version 1.222, 2007/12/31 18:40:24
|
version 1.223, 2008/01/13 16:02:37
|
Line 702 c2 = toupper(c1);
|
Line 702 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 |
capscompare ( c_addr1 u1 c_addr2 u2 -- n ) gforth |
""Compare two strings lexicographically. If they are equal, @i{n} is 0; if |
""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} |
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 |
is 1. Currently this is based on the machine's character |