40 lines
782 B
Forth
40 lines
782 B
Forth
\ $Id: locals-ans.f,v 1.2 2003/01/10 16:44:16 anfilat Exp $
|
|
\ Work in spf3, spf4
|
|
\ LOCALS ñòàíäàðòà 94.
|
|
\ Îáúÿâëåíèå -
|
|
\ 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
|