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: marker.fr
\ ** ficl/softwords/marker.fr \ ** Ficl implementation of CORE EXT MARKER \ John Sadler, 4 Oct 98 \ Requires ficl 2.02 FORGET-WID !! \ \ $FreeBSD$ : marker ( "name" -- ) create get-current , get-order dup , 0 ?do , loop does> 0 set-order \ clear search order dup body> >name drop here - allot \ reset HERE to my xt-addr dup @ ( pfa current-wid ) dup set-current forget-wid ( pfa ) cell+ dup @ swap ( count count-addr ) over cells + swap ( last-wid-addr count ) 0 ?do dup @ dup ( wid-addr wid wid ) >search forget-wid ( wid-addr ) cell- loop drop ;
Upload File
Create Folder