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