version 1.24, 1999/02/16 06:32:30
|
version 1.25, 1999/02/21 11:43:12
|
Line 512 else if (n>0)
|
Line 512 else if (n>0)
|
dup 0< IF drop -1 ELSE 0> 1 and THEN ; |
dup 0< IF drop -1 ELSE 0> 1 and THEN ; |
|
|
toupper c1 -- c2 gforth |
toupper c1 -- c2 gforth |
""For a character a-z, convert to the equivalent upper-case |
""If @var{c1} is a lower-case character (in the current locale), @var{c2} |
character. All other characters are unchanged."" |
is the equivalent upper-case character. All other characters are unchanged."" |
c2 = toupper(c1); |
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 - ; |