gforth/kernel/xchars.fs - diff

Return to xchars.fs CVS log

Up to [gforth] / gforth / kernel

version 1.17, 2011/12/31 15:29:26	version 1.18, 2012/08/09 23:58:53
Line 103 Defer -trailing-garbage ( xc-addr u1 --	Line 103 Defer -trailing-garbage ( xc-addr u1 --
: string- ( c-addr1 u1 -- c-addr1 u2 )	: string- ( c-addr1 u1 -- c-addr1 u2 )
1- ;	1- ;

	: c!+ ( c c-addr1 -- c-addr2 )
	dup 1+ >r c! r> ;

: c!+? ( c c-addr1 u1 -- c-addr2 u2 f )	: c!+? ( c c-addr1 u1 -- c-addr2 u2 f )
dup 1 chars u< if \ or use < ?	dup 1 chars u< if \ or use < ?
rot drop false	rot drop false
Line 122 Defer -trailing-garbage ( xc-addr u1 --	Line 125 Defer -trailing-garbage ( xc-addr u1 --
['] +string is +x/string	['] +string is +x/string
['] string- is x\string-	['] string- is x\string-
['] c@ is xc@	['] c@ is xc@
	['] c!+ is xc!+
['] c!+? is xc!+?	['] c!+? is xc!+?
['] count is xc@+	['] count is xc@+
['] c-size is xc-size	['] c-size is xc-size