40 lines
782 B
FortranFixed
40 lines
782 B
FortranFixed
|
\ $Id: locals-ans.f,v 1.2 2003/01/10 16:44:16 anfilat Exp $
|
|||
|
|
\ Work in spf3, spf4
|
|||
|
|
\ LOCALS <EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> 94.
|
|||
|
|
\ <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> -
|
|||
|
|
\ LOCALS| n1 n2 n3 |
|
|||
|
|
REQUIRE { ~mak/lib/locals4.f
|
|||
|
|
|
|||
|
|
GET-CURRENT ALSO vocLocalsSupport_M DEFINITIONS
|
|||
|
|
|
|||
|
|
: CompileANSLocInit
|
|||
|
|
uPrevCurrent @ SET-CURRENT
|
|||
|
|
uLocalsUCnt @ ?DUP
|
|||
|
|
IF NEGATE CELLS R_ALLOT,
|
|||
|
|
THEN
|
|||
|
|
uLocalsCnt @ uLocalsUCnt @ - ?DUP
|
|||
|
|
IF DUP CELLS NEGATE uAddDepth +!
|
|||
|
|
DUP 0
|
|||
|
|
DO uLocalsCnt @ uLocalsUCnt @ - I - 1-
|
|||
|
|
LIT, S" PICK >R " EVALUATE LOOP
|
|||
|
|
0 DO POSTPONE DROP LOOP
|
|||
|
|
THEN
|
|||
|
|
;;
|
|||
|
|
|
|||
|
|
|
|||
|
|
SET-CURRENT
|
|||
|
|
|
|||
|
|
: LOCALS|
|
|||
|
|
LocalsStartup
|
|||
|
|
BEGIN
|
|||
|
|
BL PSKIP PeekChar
|
|||
|
|
[CHAR] | <>
|
|||
|
|
WHILE
|
|||
|
|
CREATE LocalsDoes@ IMMEDIATE
|
|||
|
|
REPEAT
|
|||
|
|
[CHAR] | PARSE 2DROP
|
|||
|
|
CompileANSLocInit
|
|||
|
|
;; IMMEDIATE
|
|||
|
|
|
|||
|
|
PREVIOUS
|