| char 0 char 9 .. charclass digit |
char 0 char 9 .. charclass digit |
| bl singleton tab-char over add-member charclass white |
bl singleton tab-char over add-member charclass white |
| nl-char singleton eof-char over add-member complement charclass nonl |
nl-char singleton eof-char over add-member complement charclass nonl |
| nl-char singleton eof-char over add-member char : over add-member complement charclass nocolonnl |
nl-char singleton eof-char over add-member |
| |
char : over add-member complement charclass nocolonnl |
| |
bl 1+ maxchar .. char \ singleton complement intersection |
| |
charclass nowhitebq |
| bl 1+ maxchar .. charclass nowhite |
bl 1+ maxchar .. charclass nowhite |
| char " singleton eof-char over add-member complement charclass noquote |
char " singleton eof-char over add-member complement charclass noquote |
| nl-char singleton charclass nl |
nl-char singleton charclass nl |
| (( letter (( letter || digit )) ** |
(( letter (( letter || digit )) ** |
| )) <- c-name ( -- ) |
)) <- c-name ( -- ) |
| |
|
| nowhite ++ |
(( nowhitebq nowhite ** )) |
| <- name ( -- ) |
<- name ( -- ) |
| |
|
| Variable forth-flag |
Variable forth-flag |
| forth-flag @ |
forth-flag @ |
| IF ." has? " type ." [IF]" cr THEN |
IF ." has? " type ." [IF]" cr THEN |
| ELSE 2drop |
ELSE 2drop |
| c-flag @ |
c-flag @ IF ." #endif" cr THEN |
| IF ." #endif" cr THEN |
forth-flag @ IF ." [THEN]" cr THEN |
| forth-flag @ |
|
| IF ." [THEN]" cr THEN |
|
| THEN }} |
THEN }} |
| )) <- if-comment |
)) <- if-comment |
| |
|
| )) <- stack-effect ( -- ) |
)) <- stack-effect ( -- ) |
| |
|
| (( {{ s" " doc 2! s" " forth-code 2! }} |
(( {{ s" " doc 2! s" " forth-code 2! }} |
| (( comment || nl )) ** |
|
| (( {{ line @ name-line ! filename 2@ name-filename 2! }} |
(( {{ line @ name-line ! filename 2@ name-filename 2! }} |
| {{ start }} name {{ end 2dup forth-name 2! c-name 2! }} white ++ |
{{ start }} name {{ end 2dup forth-name 2! c-name 2! }} white ++ |
| ` ( white ** {{ start }} stack-effect {{ end stack-string 2! }} ` ) white ** |
` ( white ** {{ start }} stack-effect {{ end stack-string 2! }} ` ) white ** |
| {{ skipsynclines off line @ c-line ! filename 2@ c-filename 2! start }} (( nocolonnl nonl ** nl )) ** {{ end c-code 2! skipsynclines on }} |
{{ skipsynclines off line @ c-line ! filename 2@ c-filename 2! start }} (( nocolonnl nonl ** nl )) ** {{ end c-code 2! skipsynclines on }} |
| (( ` : nl |
(( ` : nl |
| {{ start }} (( nonl ++ nl )) ++ {{ end forth-code 2! }} |
{{ start }} (( nonl ++ nl )) ++ {{ end forth-code 2! }} |
| )) ?? |
)) ?? {{ printprim }} |
| (( nl || eof )) |
(( nl || eof )) |
| )) <- primitive ( -- ) |
)) <- primitive ( -- ) |
| |
|
| (( (( primitive {{ printprim }} )) ** eof )) |
(( (( comment || primitive || nl )) ** eof )) |
| parser primitives2something |
parser primitives2something |
| warnings @ [IF] |
warnings @ [IF] |
| .( parser generated ok ) cr |
.( parser generated ok ) cr |
