003 File Manager
Current Path:
/usr/src/stand/ficl/softwords
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: ficllocal.fr
\ ** ficl/softwords/ficllocal.fr \ ** stack comment style local syntax... \ {{ a b c -- d e }} \ variables before the "--" are initialized in reverse order \ from the stack. Those after the "--" are zero initialized \ Uses locals... \ locstate: 0 = looking for -- or }} \ 1 = found -- \ \ $FreeBSD$ hide 0 constant zero : ?-- s" --" compare 0= ; : ?}} s" }}" compare 0= ; set-current : {{ 0 dup locals| nLocs locstate | begin parse-word ?dup 0= abort" Error: out of text without seeing }}" 2dup 2dup ?-- -rot ?}} or 0= while nLocs 1+ to nLocs repeat ?-- if 1 to locstate endif nLocs 0 do (local) loop locstate 1 = if begin parse-word 2dup ?}} 0= while postpone zero (local) repeat 2drop endif 0 0 (local) ; immediate compile-only previous
Upload File
Create Folder