Subversion Repositories Kolibri OS

Rev

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

  1.  
  2. \ ~mak/want.f WANT #define
  3.  
  4. 0 VALUE  M#define-CODE
  5.  
  6. : M#define CREATE PARSE-WORD EVALUATE ,
  7.  DOES> [ HERE 5 - TO M#define-CODE ] @ ;
  8.  
  9. : Archive_
  10.   PARSE-WORD EVALUATE
  11.   '  DUP 1+  REL@ CELL+ M#define-CODE =
  12.  IF
  13. >BODY ! EXIT
  14.  THEN  1 THROW ;
  15.  
  16.  
  17. : Archive \ F7_ED
  18.  BEGIN
  19.    PARSE-WORD DUP 0=
  20.    IF  NIP  REFILL   0= IF DROP TRUE THEN
  21.    ELSE S" size" COMPARE 0=  THEN
  22.  UNTIL
  23.  REFILL DROP
  24.  BEGIN REFILL 0= IF \EOF EXIT THEN
  25.    SOURCE NIP
  26.  WHILE M#define
  27.  REPEAT
  28.  
  29.  BEGIN REFILL
  30.  WHILE     SOURCE NIP 40 >
  31.     IF
  32.            [']  Archive_ CATCH DROP
  33.      THEN
  34.   REPEAT      POSTPONE \
  35.  ;
  36.