version 1.2, 1994/05/18 17:29:59
|
version 1.7, 1994/09/08 17:20:12
|
Line 15
|
Line 15
|
\ 5) Words that call NEXT themselves have to be done very carefully. |
\ 5) Words that call NEXT themselves have to be done very carefully. |
\ |
\ |
\ To do: |
\ To do: |
\ add the store optimization for doubles |
|
\ regarding problem 1 above: It would be better (for over) to implement |
\ regarding problem 1 above: It would be better (for over) to implement |
\ the alternative |
\ the alternative |
|
|
|
warnings off |
|
|
|
[IFUNDEF] vocabulary include search-order.fs [THEN] |
include gray.fs |
include gray.fs |
include search-order.fs |
|
|
|
100 constant max-effect \ number of things on one side of a stack effect |
100 constant max-effect \ number of things on one side of a stack effect |
4096 constant batch-size \ no meaning, just make sure it's >0 |
4096 constant batch-size \ no meaning, just make sure it's >0 |
Line 87 variable effect-out-end ( pointer )
|
Line 88 variable effect-out-end ( pointer )
|
2variable effect-in-size |
2variable effect-in-size |
2variable effect-out-size |
2variable effect-out-size |
|
|
variable primitive-number -8 primitive-number ! |
variable primitive-number -9 primitive-number ! |
|
|
\ for several reasons stack items of a word are stored in a wordlist |
\ for several reasons stack items of a word are stored in a wordlist |
\ since neither forget nor marker are implemented yet, we make a new |
\ since neither forget nor marker are implemented yet, we make a new |
Line 195 nowhite ++
|
Line 196 nowhite ++
|
|
|
(( (( primitive {{ printprim }} )) ** eof )) |
(( (( primitive {{ printprim }} )) ** eof )) |
parser primitives2something |
parser primitives2something |
|
warnings @ [IF] |
.( parser generated ok ) cr |
.( parser generated ok ) cr |
|
[THEN] |
|
|
: primfilter ( file-id xt -- ) |
: primfilter ( file-id xt -- ) |
\ fileid is for the input file, xt ( -- ) is for the output word |
\ fileid is for the input file, xt ( -- ) is for the output word |
Line 520 set-current
|
Line 523 set-current
|
." NEXT_P1;" cr |
." NEXT_P1;" cr |
stores |
stores |
fill-tos |
fill-tos |
." NEXT1_P2;" cr |
." NEXT_P2;" cr |
." }" cr |
." }" cr |
cr |
cr |
; |
; |
Line 537 set-current
|
Line 540 set-current
|
if |
if |
." cannot open file" cr abort |
." cannot open file" cr abort |
endif |
endif |
." ------------ CUT HERE -------------" cr |
warnings @ if |
|
." ------------ CUT HERE -------------" cr endif |
r> primfilter ; |
r> primfilter ; |
|
|