[BACK]Return to xchars.fs CVS log [TXT] [DIR] Up to [gforth] / gforth / kernel

Diff for /gforth/kernel/xchars.fs between versions 1.13 and 1.16

version 1.13, 2007/12/31 18:40:26 version 1.16, 2011/09/01 20:09:23
Line 1 Line 1
 \ extended characters (either 8bit or UTF-8, possibly other encodings)  \ extended characters (either 8bit or UTF-8, possibly other encodings)
 \ and their fixed-size variant  \ and their fixed-size variant
   
 \ Copyright (C) 2005,2006,2007 Free Software Foundation, Inc.  \ Copyright (C) 2005,2006,2007,2008 Free Software Foundation, Inc.
   
 \ This file is part of Gforth.  \ This file is part of Gforth.
   
Line 47  Defer x\string- ( xc-addr1 u1 -- xc-addr Line 47  Defer x\string- ( xc-addr1 u1 -- xc-addr
 \G last xchar in the buffer.  \G last xchar in the buffer.
 Defer xc@ ( xc-addr -- xc ) \ xchar-ext xc-fetch  Defer xc@ ( xc-addr -- xc ) \ xchar-ext xc-fetch
 \G Fetchs the xchar @var{xc} at @var{xc-addr1}.  \G Fetchs the xchar @var{xc} at @var{xc-addr1}.
   Defer xc!+ ( xc xc-addr1 -- xc-addr2 ) \ xchar-ext      xc-store
   \G Stores the xchar @var{xc} at @var{xc-addr1}. @var{xc-addr2} is the next
   \G unused address in the buffer.
 Defer xc!+? ( xc xc-addr1 u1 -- xc-addr2 u2 f ) \ xchar-ext     xc-store-plus-query  Defer xc!+? ( xc xc-addr1 u1 -- xc-addr2 u2 f ) \ xchar-ext     xc-store-plus-query
 \G Stores the xchar @var{xc} into the buffer starting at address  \G Stores the xchar @var{xc} into the buffer starting at address
 \G @var{xc-addr1}, @var{u1} pchars large. @var{xc-addr2} points to the  \G @var{xc-addr1}, @var{u1} pchars large. @var{xc-addr2} points to the
Line 88  Defer -trailing-garbage ( xc-addr u1 -- Line 91  Defer -trailing-garbage ( xc-addr u1 --
     holdptr @ dup holdbuf u< -&17 and throw      holdptr @ dup holdbuf u< -&17 and throw
     8 xc!+? 2drop drop ;      8 xc!+? 2drop drop ;
   
   : xc, ( xchar -- ) here unused xc!+? 2drop dp ! ;
   
 \ fixed-size versions of these words  \ fixed-size versions of these words
   
 : char- ( c-addr1 -- c-addr2 )  : char- ( c-addr1 -- c-addr2 )
Removed from v.1.13  
changed lines
  Added in v.1.16

FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>