version 1.124, 2002/12/27 16:22:03
|
version 1.125, 2002/12/28 17:18:27
|
Line 923 variable tail-nextp2 \ xt to execute for
|
Line 923 variable tail-nextp2 \ xt to execute for
|
\ cr ; |
\ cr ; |
|
|
: output-label ( -- ) |
: output-label ( -- ) |
." INST_ADDR(" prim prim-c-name 2@ type ." )," cr ; |
." INST_ADDR(" prim prim-c-name 2@ type ." )" cr ; |
|
|
: output-alias ( -- ) |
: output-alias ( -- ) |
( primitive-number @ . ." alias " ) ." Primitive " prim prim-name 2@ type cr ; |
( primitive-number @ . ." alias " ) ." Primitive " prim prim-name 2@ type cr ; |
Line 1424 Variable c-flag
|
Line 1424 Variable c-flag
|
(( (( ` g || ` G )) {{ start }} nonl ** |
(( (( ` g || ` G )) {{ start }} nonl ** |
{{ end |
{{ end |
forth-flag @ IF ." group " type cr THEN |
forth-flag @ IF ." group " type cr THEN |
c-flag @ IF ." GROUP(" type ." )" cr THEN }} |
c-flag @ IF ." GROUP(" type ." , " function-number @ 0 .r ." )" cr THEN }} |
)) <- group-comment |
)) <- group-comment |
|
|
(( (( eval-comment || forth-comment || c-comment || else-comment || if-comment || group-comment )) ?? nonl ** )) <- comment-body |
(( (( eval-comment || forth-comment || c-comment || else-comment || if-comment || group-comment )) ?? nonl ** )) <- comment-body |