diff options
| author | Pedro F. Giffuni <pfg@FreeBSD.org> | 2015-05-12 02:36:33 +0000 |
|---|---|---|
| committer | Pedro F. Giffuni <pfg@FreeBSD.org> | 2015-05-12 02:36:33 +0000 |
| commit | be98e1ae3decabdd852fbe6496166aaa9acfbf9e (patch) | |
| tree | ba5e252f1f49f00233d74f3c75f217171ccf80c8 /softwords/marker.fr | |
Bring ficl to the vendor area.vendor/ficl/3.0.3
We currently use ficl3 in ~sys/boot/ficl but
it has a bunch of local changes.
WWW: http://ficl.sourceforge.net/
Discussed with: dteske, mr
Notes
Notes:
svn path=/vendor/ficl/dist/; revision=282801
svn path=/vendor/ficl/3.0.3/; revision=282802; tag=vendor/ficl/3.0.3
Diffstat (limited to 'softwords/marker.fr')
| -rw-r--r-- | softwords/marker.fr | 25 |
1 files changed, 25 insertions, 0 deletions
diff --git a/softwords/marker.fr b/softwords/marker.fr new file mode 100644 index 000000000000..0f2ee5eaf493 --- /dev/null +++ b/softwords/marker.fr @@ -0,0 +1,25 @@ +\ ** ficl/softwords/marker.fr
+\ ** Ficl implementation of CORE EXT MARKER
+\ John Sadler, 4 Oct 98
+\ Requires ficl 2.02 FORGET-WID !!
+.( loading MARKER ) cr
+: 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
+;
|