Subversion Repositories Kolibri OS

Rev

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

  1. \ $Id: locals-ans.f,v 1.2 2003/01/10 16:44:16 anfilat Exp $
  2. \ Work in spf3, spf4
  3. \ LOCALS ñòàíäàðòà 94.
  4. \ Îáúÿâëåíèå -
  5. \ LOCALS| n1 n2 n3 |
  6. REQUIRE { ~mak/lib/locals4.f
  7.  
  8. GET-CURRENT ALSO vocLocalsSupport_M DEFINITIONS
  9.  
  10. : CompileANSLocInit
  11.   uPrevCurrent @ SET-CURRENT
  12.   uLocalsUCnt @ ?DUP
  13.   IF NEGATE CELLS R_ALLOT,
  14.   THEN
  15.   uLocalsCnt @ uLocalsUCnt @ - ?DUP
  16.   IF DUP CELLS NEGATE uAddDepth +!
  17.      DUP  0
  18.      DO uLocalsCnt @ uLocalsUCnt @ - I - 1-
  19.         LIT,  S"  PICK >R " EVALUATE LOOP
  20.         0  DO POSTPONE DROP LOOP
  21.   THEN
  22. ;;
  23.  
  24.  
  25. SET-CURRENT
  26.  
  27. : LOCALS|
  28.   LocalsStartup
  29.   BEGIN
  30.     BL PSKIP PeekChar
  31.     [CHAR] | <>
  32.   WHILE  
  33.     CREATE LocalsDoes@ IMMEDIATE
  34.   REPEAT
  35.   [CHAR] | PARSE 2DROP
  36.   CompileANSLocInit
  37. ;; IMMEDIATE
  38.  
  39. PREVIOUS
  40.