version 1.58, 2000/12/26 19:35:32
|
version 1.59, 2000/12/26 20:01:49
|
Line 324 Variable c-flag
|
Line 324 Variable c-flag
|
)) ?? nl |
)) ?? nl |
)) |
)) |
(( ` " ` " {{ start }} (( noquote ++ ` " )) ++ {{ end 1- doc 2! }} ` " white ** nl )) ?? |
(( ` " ` " {{ start }} (( noquote ++ ` " )) ++ {{ end 1- doc 2! }} ` " white ** nl )) ?? |
{{ 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 white ** )) ** {{ end c-code 2! skipsynclines on }} |
(( ` : white ** nl |
(( ` : white ** nl |
{{ start }} (( nonl ++ nl )) ++ {{ end forth-code 2! }} |
{{ start }} (( nonl ++ nl white ** )) ++ {{ end forth-code 2! }} |
)) ?? {{ printprim }} |
)) ?? {{ printprim }} |
(( nl || eof )) |
(( nl || eof )) |
)) <- primitive ( -- ) |
)) <- primitive ( -- ) |
|
|
(( (( comment || primitive || nl )) ** eof )) |
(( (( comment || primitive || nl white ** )) ** eof )) |
parser primitives2something |
parser primitives2something |
warnings @ [IF] |
warnings @ [IF] |
.( parser generated ok ) cr |
.( parser generated ok ) cr |