| \ idea: Gerald Wodni |
\ idea: Gerald Wodni |
| |
|
| : addr? ( addr -- flag ) |
: addr? ( addr -- flag ) |
| TRY @ IFERROR 2drop false nothrow ELSE drop true THEN ENDTRY ; |
TRY c@ IFERROR 2drop false nothrow ELSE drop true THEN ENDTRY ; |
| |
|
| : string? ( addr u -- flag ) |
: string? ( addr u -- flag ) |
| TRY bounds ?DO I c@ bl < IF -1 throw THEN LOOP |
TRY dup #80 u> throw bounds ?DO I c@ bl < IF -1 throw THEN LOOP |
| IFERROR 2drop drop false nothrow ELSE true THEN ENDTRY ; |
IFERROR 2drop drop false nothrow ELSE true THEN ENDTRY ; |
| |
|
| : .string. ( addr u -- ) |
: .string. ( addr u -- ) |
