version 1.2, 1994/05/18 17:29:59
|
version 1.4, 1994/07/13 19:21:07
|
Line 19
|
Line 19
|
\ 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 |
|
|
include gray.fs |
include gray.fs |
include search-order.fs |
include search-order.fs |
|
|
Line 195 nowhite ++
|
Line 197 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 537 set-current
|
Line 541 set-current
|
if |
if |
." cannot open file" cr abort |
." cannot open file" cr abort |
endif |
endif |
." ------------ CUT HERE -------------" cr |
warnings @ if |
r> primfilter ; |
." ------------ CUT HERE -------------" cr endif |
|
r> [ ] primfilter [ 0 ] ; |