1 \ ** ficl/softwords/ficllocal.fr
2 \ ** stack comment style local syntax...
4 \ variables before the "--" are initialized in reverse order
5 \ from the stack. Those after the "--" are zero initialized
7 \ locstate: 0 = looking for -- or }}
15 : ?-- s" --" compare 0= ;
16 : ?}} s" }}" compare 0= ;
21 0 dup locals| nLocs locstate |
24 ?dup 0= abort" Error: out of text without seeing }}"
25 2dup 2dup ?-- -rot ?}} or 0=
30 ?-- if 1 to locstate endif
47 ; immediate compile-only