gforth/kernel/xchars.fs - diff

Return to xchars.fs CVS log

Up to [gforth] / gforth / kernel

version 1.1, 2005/01/06 21:31:51	version 1.2, 2005/01/06 21:54:18
Line 35 DEFER XC@+ ( xc-addr1 -- xc-addr2 xc )	Line 35 DEFER XC@+ ( xc-addr1 -- xc-addr2 xc )
DEFER XC-SIZE ( xc -- u ) \ size in cs	DEFER XC-SIZE ( xc -- u ) \ size in cs
DEFER -TRAILING-GARBAGE ( addr u1 -- addr u2 ) \ remove trailing incomplete xc	DEFER -TRAILING-GARBAGE ( addr u1 -- addr u2 ) \ remove trailing incomplete xc

	\ derived words, faster implementations are probably possible

	: X@+/string ( xc-addr1 u1 -- xc-addr2 u2 xc )
	\ !! check for errors?
	over >r +x/string
	r> xc@ ;

\ fixed-size versions of these words	\ fixed-size versions of these words

: char- ( c-addr1 -- c-addr2 )	: char- ( c-addr1 -- c-addr2 )