sys/boot/ficl/softwords/prefix.fr

   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$
   9
  10 variable 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
  18 start-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 : .( 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
  34 \ ** these temporarily shift the base to 2, 8, 10, and 16 respectively
  35 \ ** and consume the next number in the input stream, pushing/compiling
  36 \ ** as normal
  37
  38 \ (jws) __tempbase is precompiled, as are 0x and 0d - see prefix.c
  39 \
  40 \ : __tempbase  { newbase | oldbase -- }
  41 \   base @ to oldbase
  42 \   newbase base !
  43 \   0 0 parse-word >number 2drop drop
  44 \   oldbase base !
  45 \   ;
  46
  47 : 0b  2 __tempbase ; immediate
  48
  49 : 0o  8 __tempbase ; immediate
  50
  51 \ : 0d 10 __tempbase ; immediate
  52 \ "0d" add-prefix
  53
  54 \ : 0x 16 __tempbase ; immediate
  55 \ "0x" add-prefix
  56
  57 end-prefixes
  58
  59 \ #endif