* fth/system.fth (TOUPPER, UPCASE): New helpers.
(WORD, WORD-SAVE-AREA): New.
char [compile] literal
; immediate
char [compile] literal
; immediate
+: TOUPPER ( char -- char' )
+ dup [char] a >=
+ IF
+ dup [char] z <= IF [ char A char a - ] literal + THEN
+ THEN
+;
+
+: UPCASE ( c-addr u -- )
+ over + swap ?do
+ i c@ toupper i c!
+ loop
+;
+
+create WORD-SAVE-AREA 257 allot
+
+\ This version performs case-conversion for backward compatibility.
+: WORD ( char -- addr )
+ parse-word
+ word-save-area place
+ word-save-area count upcase
+ word-save-area
+;
+
: $TYPE ( $string -- )
count type
;
: $TYPE ( $string -- )
count type
;