29 lines
481 B
Forth
29 lines
481 B
Forth
ALSO UTILITY
|
|
|
|
: TSTR "019AFGZafgz[{.:}] \0\a\b\t\n\v\f\r\e\"\'\\\x1f\x7f▪" ;
|
|
|
|
: CHECK ( xt -- )
|
|
DUP >NAME TYPE ": " TYPE
|
|
"\"" TYPE ▪ TSTR 0 DO
|
|
DUP I + C@
|
|
2 PICK EXECUTE
|
|
IF DUP I + 1 TYPE-ESCAPED THEN
|
|
LOOP "\"\n" TYPE ;
|
|
|
|
: ANY? DROP TRUE ;
|
|
|
|
' ANY? CHECK
|
|
' ASCII? CHECK
|
|
' BLANK? CHECK
|
|
' CNTRL? CHECK
|
|
' DIGIT? CHECK
|
|
' GRAPH? CHECK
|
|
' LOWER? CHECK
|
|
' UPPER? CHECK
|
|
' PRINT? CHECK
|
|
' SPACE? CHECK
|
|
' ALPHA? CHECK
|
|
' ALNUM? CHECK
|
|
' PUNCT? CHECK
|
|
' XDIGIT? CHECK
|