version 1.95, 2001/04/30 13:48:56
|
version 1.98, 2001/06/16 22:53:36
|
Line 53
|
Line 53
|
|
|
warnings off |
warnings off |
|
|
[IFUNDEF] vocabulary \ we are executed just with kernel image |
[IFUNDEF] try |
\ load the rest that is needed |
include startup.fs |
\ (require fails because this file is needed from a |
|
\ different directory with the wordlibraries) |
|
include ./search.fs |
|
include ./extend.fs |
|
include ./stuff.fs |
|
[THEN] |
|
|
|
[IFUNDEF] environment? |
|
include ./environ.fs |
|
[THEN] |
[THEN] |
|
|
: struct% struct ; \ struct is redefined in gray |
: struct% struct ; \ struct is redefined in gray |
|
|
|
warnings off |
|
|
include ./gray.fs |
include ./gray.fs |
|
|
32 constant max-effect \ number of things on one side of a stack effect |
32 constant max-effect \ number of things on one side of a stack effect |
Line 1183 Variable c-flag
|
Line 1176 Variable c-flag
|
THEN }} |
THEN }} |
)) <- if-comment |
)) <- if-comment |
|
|
(( (( eval-comment || forth-comment || c-comment || else-comment || if-comment )) ?? nonl ** )) <- comment-body |
(( (( ` g || ` G )) {{ start }} nonl ** |
|
{{ end |
|
forth-flag @ IF ." group " type cr THEN |
|
c-flag @ IF ." GROUP(" type ." )" cr THEN }} |
|
)) <- group-comment |
|
|
|
(( (( eval-comment || forth-comment || c-comment || else-comment || if-comment || group-comment )) ?? nonl ** )) <- comment-body |
|
|
(( ` \ comment-body nleof )) <- comment ( -- ) |
(( ` \ comment-body nleof )) <- comment ( -- ) |
|
|
Line 1227 warnings @ [IF]
|
Line 1226 warnings @ [IF]
|
[THEN] |
[THEN] |
|
|
|
|
\ run with out of box gforth 0.5.0 |
\ run with gforth-0.5.0 (slurp-file is missing) |
[IFUNDEF] slurp-file |
[IFUNDEF] slurp-file |
: slurp-file ( c-addr1 u1 -- c-addr2 u2 ) |
: slurp-file ( c-addr1 u1 -- c-addr2 u2 ) |
\ c-addr1 u1 is the filename, c-addr2 u2 is the file's contents |
\ c-addr1 u1 is the filename, c-addr2 u2 is the file's contents |