gforth/compat/strcomp.fs - diff

Return to strcomp.fs CVS log

Up to [gforth] / gforth / compat

version 1.2, 2002/09/14 08:34:03	version 1.3, 2003/02/25 22:58:48
Line 10	Line 10
s" gforth" environment? [if]	s" gforth" environment? [if]
2drop defined str=	2drop defined str=
[else]	[else]
	\ : \G postpone \ ; immediate
0	0
[then]	[then]
0= [if]	0= [if]

: str= ( c-addr1 u1 c-addr2 u2 -- f )	: str= ( c-addr1 u1 c-addr2 u2 -- f ) \ gforth
compare 0= ;	compare 0= ;

: string-prefix? ( c-addr1 u1 c-addr2 u2 -- f )	: string-prefix? ( c-addr1 u1 c-addr2 u2 -- f ) \ gforth
\G Is @var{c-addr2 u2} a prefix of @var{c-addr1 u1}?	\G Is @var{c-addr2 u2} a prefix of @var{c-addr1 u1}?
tuck 2>r min 2r> str= ;	tuck 2>r min 2r> str= ;

: str< ( c-addr1 u1 c-addr2 u2 -- f )	: str< ( c-addr1 u1 c-addr2 u2 -- f ) \ gforth
compare 0< ;	compare 0< ;

[then]	[then]