gforth/prim - diff

Return to prim CVS log

Up to [gforth] / gforth

version 1.142, 2003/08/23 20:16:09	version 1.144, 2003/09/14 21:16:48
Line 638 n = compare(c_addr1, u1, c_addr2, u2);	Line 638 n = compare(c_addr1, u1, c_addr2, u2);
:	:
rot 2dup swap - >r min swap -text dup	rot 2dup swap - >r min swap -text dup
IF rdrop ELSE drop r> sgn THEN ;	IF rdrop ELSE drop r> sgn THEN ;
	: -text ( c_addr1 u c_addr2 -- n )
	swap bounds
	?DO dup c@ I c@ = WHILE 1+ LOOP drop 0
	ELSE c@ I c@ - unloop THEN sgn ;
: sgn ( n -- -1/0/1 )	: sgn ( n -- -1/0/1 )
dup 0= IF EXIT THEN 0< 2* 1+ ;	dup 0= IF EXIT THEN 0< 2* 1+ ;

Line 1396 longname2=listlfind(c_addr, u, longname1	Line 1400 longname2=listlfind(c_addr, u, longname1
REPEAT THEN nip nip ;	REPEAT THEN nip nip ;
: (findl-samelen) ( u longname1 -- u longname2/0 )	: (findl-samelen) ( u longname1 -- u longname2/0 )
BEGIN 2dup cell+ @ lcount-mask and <> WHILE @ dup 0= UNTIL THEN ;	BEGIN 2dup cell+ @ lcount-mask and <> WHILE @ dup 0= UNTIL THEN ;
	: capscomp ( c_addr1 u c_addr2 -- n )
	swap bounds
	?DO dup c@ I c@ <>
	IF dup c@ toupper I c@ toupper =
	ELSE true THEN WHILE 1+ LOOP drop 0
	ELSE c@ toupper I c@ toupper - unloop THEN sgn ;
	: sgn ( n -- -1/0/1 )
	dup 0= IF EXIT THEN 0< 2* 1+ ;

\+hash	\+hash