Subversion Repositories Kolibri OS

Rev

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

  1.  
  2. : [ELSE]
  3.     1
  4.     BEGIN
  5.       NextWord DUP
  6.       IF  
  7.          2DUP S" [IF]"   COMPARE 0= IF 2DROP 1+                 ELSE
  8.          2DUP S" [ELSE]" COMPARE 0= IF 2DROP 1- DUP  IF 1+ THEN ELSE
  9.               S" [THEN]" COMPARE 0= IF       1-                 THEN
  10.                                     THEN  THEN  
  11.       ELSE 2DROP REFILL  AND \   SOURCE TYPE
  12.       THEN DUP 0=
  13.     UNTIL  DROP ;  IMMEDIATE
  14.  
  15. : [IF] 0= IF [COMPILE] [ELSE] THEN ;  IMMEDIATE
  16.  
  17. : [THEN] ;  IMMEDIATE
  18.  
  19. C" \S" FIND NIP 0=
  20. [IF]
  21. : \S            \ comment to end of file
  22.      SOURCE-ID FILE-SIZE DROP
  23.      SOURCE-ID REPOSITION-FILE DROP
  24.      [COMPILE] \ ; IMMEDIATE
  25. [THEN]
  26.