Subversion Repositories Kolibri OS

Rev

Blame | Last modification | View Log | Download | RSS feed

  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.  
  22.