File Manager

003 File Manager

Current Path: /usr/src/stand/ficl/softwords

📁 ..
📄 classes.fr(3.69 KB)
📄 ficlclass.fr(1.87 KB)
📄 ficllocal.fr(916 B)
📄 fileaccess.fr(353 B)
📄 forml.fr(1.4 KB)
📄 freebsd.fr(1.62 KB)
📄 ifbrack.fr(1.29 KB)
📄 jhlocal.fr(2.35 KB)
📄 marker.fr(766 B)
📄 oo.fr(21.22 KB)
📄 prefix.fr(1.42 KB)
📄 softcore.awk(5.57 KB)
📄 softcore.fr(5.49 KB)
📄 string.fr(3.46 KB)

Editing: ifbrack.fr

\ ** ficl/softwords/ifbrack.fr
\ ** ANS conditional compile directives [if] [else] [then]
\ ** Requires ficl 2.0 or greater...
\
\ $FreeBSD$

hide

: ?[if]   ( c-addr u -- c-addr u flag )
    2dup s" [if]" compare-insensitive 0=
;

: ?[else]   ( c-addr u -- c-addr u flag )
    2dup s" [else]" compare-insensitive 0=
;

: ?[then]   ( c-addr u -- c-addr u flag )
    2dup s" [then]" compare-insensitive 0= >r
    2dup s" [endif]" compare-insensitive 0= r> 
    or
;

set-current

: [else]  ( -- )
    1                                     \ ( level )
    begin
      begin
        parse-word dup  while             \ ( level addr len )
        ?[if] if                          \ ( level addr len )
            2drop 1+                      \ ( level )
        else                              \ ( level addr len )
            ?[else] if                    \ ( level addr len )
                 2drop 1- dup if 1+ endif
            else
                ?[then] if 2drop 1- else 2drop endif 
            endif
        endif ?dup 0=  if exit endif      \ level
      repeat  2drop                       \ level
    refill 0= until                       \ level
    drop
;  immediate

: [if]  ( flag -- )
0= if postpone [else] then ;  immediate

: [then]  ( -- )  ;  immediate
: [endif]  ( -- )  ;  immediate

003 File Manager

Editing: ifbrack.fr

Upload File

Create Folder