version 1.69, 2001/01/19 21:07:05
|
version 1.70, 2001/01/20 20:17:39
|
Line 164 struct%
|
Line 164 struct%
|
cell% field prim-effect-out-end |
cell% field prim-effect-out-end |
end-struct prim% |
end-struct prim% |
|
|
create prim prim% %allot |
: make-prim ( -- prim ) |
|
prim% %alloc { p } |
|
s" " p prim-doc 2! s" " p prim-forth-code 2! s" " p prim-wordset 2! |
|
p ; |
|
|
|
0 value prim |
|
|
\ global vars |
\ global vars |
variable c-line |
variable c-line |
Line 870 Variable c-flag
|
Line 875 Variable c-flag
|
(( ` = (( white ++ forth-ident )) ++ (( nl || eof )) |
(( ` = (( white ++ forth-ident )) ++ (( nl || eof )) |
)) <- combined-primitive |
)) <- combined-primitive |
|
|
(( {{ s" " prim prim-doc 2! s" " prim prim-forth-code 2! s" " prim prim-wordset 2! |
(( {{ make-prim to prim |
line @ name-line ! filename 2@ name-filename 2! |
line @ name-line ! filename 2@ name-filename 2! |
start }} forth-ident {{ end 2dup prim prim-name 2! prim prim-c-name 2! }} white ++ |
start }} forth-ident {{ end 2dup prim prim-name 2! prim prim-c-name 2! }} white ++ |
(( simple-primitive || combined-primitive )) |
(( simple-primitive || combined-primitive )) |