1\ **
2\ ** Prefix words for ficl
3\ ** submitted by Larry Hastings, larry@hastings.org
4\ **
5\ (jws) To make a prefix, simply create a new definition in the <prefixes>
6\ wordlist. start-prefixes and end-prefixes handle the bookkeeping
7\
| 1\ **
2\ ** Prefix words for ficl
3\ ** submitted by Larry Hastings, larry@hastings.org
4\ **
5\ (jws) To make a prefix, simply create a new definition in the <prefixes>
6\ wordlist. start-prefixes and end-prefixes handle the bookkeeping
7\
|
8\ $FreeBSD: head/sys/boot/ficl/softwords/prefix.fr 94290 2002-04-09 17:45:28Z dcs $
| 8\ $FreeBSD: head/sys/boot/ficl/softwords/prefix.fr 167850 2007-03-23 22:26:01Z jkim $
|
9
10variable save-current
11
12: start-prefixes get-current save-current ! <prefixes> set-current ;
13: end-prefixes save-current @ set-current ;
14: show-prefixes <prefixes> >search words search> drop ;
15
16\ #if (FICL_EXTENDED_PREFIX)
17
18start-prefixes
19
20\ define " (double-quote) as an alias for s", and make it a prefix
21: " postpone s" ; immediate
22
23
24\ make .( a prefix (we just create an alias for it in the prefixes list)
| 9
10variable save-current
11
12: start-prefixes get-current save-current ! <prefixes> set-current ;
13: end-prefixes save-current @ set-current ;
14: show-prefixes <prefixes> >search words search> drop ;
15
16\ #if (FICL_EXTENDED_PREFIX)
17
18start-prefixes
19
20\ define " (double-quote) as an alias for s", and make it a prefix
21: " postpone s" ; immediate
22
23
24\ make .( a prefix (we just create an alias for it in the prefixes list)
|
25: .( .( ;
| 25: .( postpone .( ; immediate
|
26
27
28\ make \ a prefix, and add // (same thing) as a prefix too
29\ (jws) "//" is precompiled to save aggravation with Perl
30\ : // postpone \ ; immediate
31
32
33\ ** add 0b, 0o, 0d, and 0x as prefixes
--- 26 unchanged lines hidden --- | 26
27
28\ make \ a prefix, and add // (same thing) as a prefix too
29\ (jws) "//" is precompiled to save aggravation with Perl
30\ : // postpone \ ; immediate
31
32
33\ ** add 0b, 0o, 0d, and 0x as prefixes
--- 26 unchanged lines hidden --- |