Lines Matching +full:level +full:- +full:2
8 : ?[if] ( c-addr u -- c-addr u flag )
9 2dup s" [if]" compare-insensitive 0=
12 : ?[else] ( c-addr u -- c-addr u flag )
13 2dup s" [else]" compare-insensitive 0=
16 : ?[then] ( c-addr u -- c-addr u flag )
17 2dup s" [then]" compare-insensitive 0= >r
18 2dup s" [endif]" compare-insensitive 0= r>
22 set-current
24 : [else] ( -- )
25 1 \ ( level )
28 parse-word dup while \ ( level addr len )
29 ?[if] if \ ( level addr len )
30 2drop 1+ \ ( level )
31 else \ ( level addr len )
32 ?[else] if \ ( level addr len )
33 2drop 1- dup if 1+ endif
35 ?[then] if 2drop 1- else 2drop endif
37 endif ?dup 0= if exit endif \ level
38 repeat 2drop \ level
39 refill 0= until \ level
43 : [if] ( flag -- )
46 : [then] ( -- ) ; immediate
47 : [endif] ( -- ) ; immediate