Subversion Repositories Kolibri OS

Rev

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

  1.  
  2. REQUIRE [IF] ~MAK\CompIF.f
  3.  
  4. C" H." FIND NIP 0=
  5. [IF]
  6.  : H.  BASE @ HEX SWAP U. BASE !  ;
  7. \ OP1
  8. [THEN]
  9.  
  10. C" FIELD" FIND NIP 0=
  11. [IF] : FIELD -- ;
  12. [THEN]
  13.  
  14. C" BETWEEN" FIND NIP 0=
  15. [IF] : BETWEEN 1+ WITHIN ;
  16. [THEN]
  17.  
  18. C" ?EXIT" FIND NIP 0=
  19. [IF]
  20.  : ?EXIT POSTPONE IF
  21.          POSTPONE EXIT
  22.          POSTPONE THEN ; IMMEDIATE
  23. \ : ?EXIT  IF RDROP THEN ;
  24. [THEN]
  25.  
  26. C" DUP>R" FIND NIP 0=
  27. [IF]
  28.  
  29. : DUP>R POSTPONE DUP
  30.         POSTPONE >R   ; IMMEDIATE
  31. [THEN]
  32.  
  33. C" >NAME" FIND NIP 0=
  34. [IF] : >NAME  4 - DUP BEGIN 1- 2DUP COUNT + U< 0= UNTIL NIP ;
  35. [THEN]
  36.  
  37. C" 2," FIND NIP 0=
  38. [IF]
  39.  : 2,  ( D -- )
  40.  HERE 2! 2 CELLS ALLOT ;
  41. [THEN]
  42.  
  43. C" C>S" FIND NIP 0=
  44. [IF] : C>S ( c -- n )  0xFF AND [ 0x7F INVERT ] LITERAL XOR 0x80 + ;
  45. [THEN]
  46.