gforth/kernel/xchars.fs - diff

Return to xchars.fs CVS log

Up to [gforth] / gforth / kernel

version 1.3, 2005/01/12 21:21:53	version 1.4, 2006/02/19 17:27:13
Line 33 DEFER XC@ ( xc-addr -- xc )	Line 33 DEFER XC@ ( xc-addr -- xc )
DEFER XC!+? ( xc xc-addr1 u1 -- xc-addr2 u2 f ) \ f if operation succeeded	DEFER XC!+? ( xc xc-addr1 u1 -- xc-addr2 u2 f ) \ f if operation succeeded
DEFER XC@+ ( xc-addr1 -- xc-addr2 xc )	DEFER XC@+ ( xc-addr1 -- xc-addr2 xc )
DEFER XC-SIZE ( xc -- u ) \ size in cs	DEFER XC-SIZE ( xc -- u ) \ size in cs
	DEFER X-WIDTH ( addr u -- n ) \ size in fixed chars
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	\ derived words, faster implementations are probably possible
Line 75 DEFER -TRAILING-GARBAGE ( addr u1 -- add	Line 76 DEFER -TRAILING-GARBAGE ( addr u1 -- add
['] c!+? is xc!+?	['] c!+? is xc!+?
['] count is xc@+	['] count is xc@+
['] c-size is xc-size	['] c-size is xc-size
	['] nip IS x-width
['] noop is -trailing-garbage	['] noop is -trailing-garbage
;	;