1 \ @(#) condcomp.fth 98/01/26 1.2
\r
2 \ Conditional Compilation support
\r
4 \ Words: STRINGS= [IF] [ELSE] [THEN] EXISTS?
\r
6 \ Lifted from X3J14 dpANS-6 document.
\r
8 anew task-condcomp.fth
\r
14 BL WORD \ level $word
\r
15 COUNT DUP \ level adr len len
\r
16 WHILE \ level adr len
\r
17 2DUP S" [IF]" COMPARE 0=
\r
20 ELSE \ level adr len
\r
22 COMPARE 0= \ level adr len flag
\r
24 2DROP 1- DUP IF 1+ THEN \ level'
\r
25 ELSE \ level adr len
\r
26 S" [THEN]" COMPARE 0=
\r
32 ?DUP 0= IF EXIT THEN \ level'
\r
33 REPEAT 2DROP \ level
\r
34 REFILL 0= UNTIL \ level
\r
47 : EXISTS? ( <name> -- flag , true if defined )
\r