mirror of https://github.com/hsoft/collapseos.git
19 lines
419 B
Forth
19 lines
419 B
Forth
( requires core )
|
|
|
|
: (parsec) ( a -- n f )
|
|
( apostrophe is ASCII 39 )
|
|
DUP C@ 39 = NOT IF 0 EXIT THEN ( -- a 0 )
|
|
DUP 2 + C@ 39 = NOT IF 0 EXIT THEN ( -- a 0 )
|
|
( surrounded by apos, good, return )
|
|
1 + C@ 1 ( -- n 1 )
|
|
;
|
|
|
|
: (parse) ( a -- n )
|
|
(parsec) NOT SKIP? EXIT
|
|
(parsed) NOT SKIP? EXIT
|
|
( nothing works )
|
|
ABORT" unknown word! "
|
|
;
|
|
|
|
' (parse) (parse*) !
|