Details | Last modification | View Log | RSS feed
| Rev | Author | Line No. | Line |
|---|---|---|---|
| 4867 | leency | 1 | REQUIRE [IF] ~mak/CompIF.f |
| 2 | REQUIRE $! ~mak\place.f |
||
| 3 | REQUIRE [IFNDEF] ~nn\lib\ifdef.f |
||
| 4 | |||
| 5 | [IFNDEF] PARSE-WORD |
||
| 6 | : PARSE-WORD NextWord ; |
||
| 7 | [THEN] |
||
| 8 | |||
| 9 | CREATE WANT_BUFF 0x101 ALLOT |
||
| 10 | CREATE WANT_FILE 0x101 ALLOT |
||
| 11 | S" ~mak\do_want.f" WANT_FILE $! |
||
| 12 | |||
| 13 | : [WANT] ( addr len -- addr len | ) |
||
| 14 | 2DUP PARSE-WORD COMPARE |
||
| 15 | IF POSTPONE \ EXIT THEN |
||
| 16 | 2DROP INTERPRET \EOF ; |
||
| 17 | |||
| 18 | : WANT ( -- ) |
||
| 19 | PARSE-WORD WANT_BUFF $! |
||
| 20 | WANT_FILE COUNT INCLUDED ; |
||
| 21 |