gforth/prim - diff

Return to prim CVS log

Up to [gforth] / gforth

version 1.186, 2006/01/28 17:55:31	version 1.188, 2006/02/04 22:09:11
Line 719 c2 = toupper(c1);	Line 719 c2 = toupper(c1);
:	:
dup [char] a - [ char z char a - 1 + ] Literal u< bl and - ;	dup [char] a - [ char z char a - 1 + ] Literal u< bl and - ;

	capscompare ( c_addr1 u1 c_addr2 u2 -- n ) string
	""Compare two strings lexicographically. If they are equal, @i{n} is 0; if
	the first string is smaller, @i{n} is -1; if the first string is larger, @i{n}
	is 1. Currently this is based on the machine's character
	comparison. In the future, this may change to consider the current
	locale and its collation order.""
	/* close ' to keep fontify happy */
	n = capscompare(c_addr1, u1, c_addr2, u2);

/string ( c_addr1 u1 n -- c_addr2 u2 ) string slash_string	/string ( c_addr1 u1 n -- c_addr2 u2 ) string slash_string
""Adjust the string specified by @i{c-addr1, u1} to remove @i{n}	""Adjust the string specified by @i{c-addr1, u1} to remove @i{n}
characters from the start of the string.""	characters from the start of the string.""
Line 873 division by 2 (note that @code{/} not ne	Line 882 division by 2 (note that @code{/} not ne
n2 = n1>>1;	n2 = n1>>1;
:	:
dup MINI and IF 1 ELSE 0 THEN	dup MINI and IF 1 ELSE 0 THEN
[ bits/byte cell * 1- ] literal	[ bits/char cell * 1- ] literal
0 DO 2* swap dup 2* >r MINI and	0 DO 2* swap dup 2* >r MINI and
IF 1 ELSE 0 THEN or r> swap	IF 1 ELSE 0 THEN or r> swap
LOOP nip ;	LOOP nip ;