| : |
: |
| 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 |
