[BACK]Return to int.fs CVS log [TXT] [DIR] Up to [gforth] / gforth / kernel

Diff for /gforth/kernel/int.fs between versions 1.26 and 1.27

version 1.26, 1999/03/10 22:50:19 version 1.27, 1999/03/23 20:24:25
Line 279  $20 constant restrict-mask Line 279  $20 constant restrict-mask
     (name>x) (x>int) ;      (name>x) (x>int) ;
   
 : name?int ( nt -- xt ) \ gforth  : name?int ( nt -- xt ) \ gforth
     \G Like name>int, but throws an error if compile-only.      \G Like @code{name>int}, but throws an error if @code{compile-only}.
     (name>x) restrict-mask and      (name>x) restrict-mask and
     if      if
         compile-only-error \ does not return          compile-only-error \ does not return
Line 347  const Create ???  0 , 3 c, char ? c, cha Line 347  const Create ???  0 , 3 c, char ? c, cha
     dup wordlist-map @ find-method perform ;      dup wordlist-map @ find-method perform ;
   
 : search-wordlist ( c-addr count wid -- 0 / xt +-1 ) \ search  : search-wordlist ( c-addr count wid -- 0 / xt +-1 ) \ search
     \G Search the word list identified by wid      \G Search the word list identified by @var{wid}
     \G for the definition named by the string at c-addr count.      \G for the definition named by the string at @var{c-addr count}.
     \G If the definition is not found, return 0. If the definition      \G If the definition is not found, return 0. If the definition
     \G is found return 1 (if the definition is immediate) or -1      \G is found return 1 (if the definition is immediate) or -1
     \G (if the definition is not immediate) together with the xt.      \G (if the definition is not immediate) together with the @var{xt}.
     \G The xt returned represents the interpretation semantics.      \G The @var{xt} returned represents the interpretation semantics.
     (search-wordlist) dup if      (search-wordlist) dup if
         (name>intn)          (name>intn)
     then ;      then ;
Line 375  const Create ???  0 , 3 c, char ? c, cha Line 375  const Create ???  0 , 3 c, char ? c, cha
   
 : find ( c-addr -- xt +-1 / c-addr 0 ) \ core,search  : find ( c-addr -- xt +-1 / c-addr 0 ) \ core,search
     \G Search all word lists in the current search order      \G Search all word lists in the current search order
     \G for the definition named by the counted string at c-addr.      \G for the definition named by the counted string at @var{c-addr}.
     \G If the definition is not found, return 0. If the definition      \G If the definition is not found, return 0. If the definition
     \G is found return 1 (if the definition is immediate) or -1      \G is found return 1 (if the definition is immediate) or -1
     \G (if the definition is not immediate) together with the xt.      \G (if the definition is not immediate) together with the @var{xt}.
     dup count sfind dup      dup count sfind dup
     if      if
         rot drop          rot drop
Line 468  has? file 0= [IF] Line 468  has? file 0= [IF]
     swap #tib ! 0 >in ! ;      swap #tib ! 0 >in ! ;
   
 : query   ( -- ) \ core-ext  : query   ( -- ) \ core-ext
     \G obsolescent      \G OBSOLESCENT.
     [ has? file [IF] ]      [ has? file [IF] ]
         blk off loadfile off          blk off loadfile off
         [ [THEN] ]          [ [THEN] ]
Line 542  max-errors 6 * cells allot Line 542  max-errors 6 * cells allot
 \ Loadfilename ( addr u )  \ Loadfilename ( addr u )
   
 : dec. ( n -- ) \ gforth  : dec. ( n -- ) \ gforth
     \G Display n as a signed decimal number, followed by a space.      \G Display @var{n} as a signed decimal number, followed by a space.
     \G !! not used...      \G !! not used...
     base @ decimal swap . base ! ;      base @ decimal swap . base ! ;
   
 : dec.r ( u -- ) \ gforth  : dec.r ( u -- ) \ gforth
     \G Display u as a unsigned decimal number      \G Display @var{u} as a unsigned decimal number
     base @ decimal swap 0 .r base ! ;      base @ decimal swap 0 .r base ! ;
   
 : hex. ( u -- ) \ gforth  : hex. ( u -- ) \ gforth
     \G Display u as an unsigned hex number, prefixed with a "$" and      \G Display @var{u} as an unsigned hex number, prefixed with a "$" and
     \G followed by a space.      \G followed by a space.
     \G !! not used...      \G !! not used...
     '$ emit base @ swap hex u. base ! ;      '$ emit base @ swap hex u. base ! ;
Line 622  Defer dobacktrace ( -- ) Line 622  Defer dobacktrace ( -- )
 ' (DoError) IS DoError  ' (DoError) IS DoError
   
 : quit ( ?? -- ?? ) \ core  : quit ( ?? -- ?? ) \ core
       \G Empty the return stack, make the user input device
       \G the input source, enter interpret state and start
       \G the text interpreter.
     rp0 @ rp! handler off clear-tibstack >tib @ >r      rp0 @ rp! handler off clear-tibstack >tib @ >r
     BEGIN      BEGIN
         [ has? compiler [IF] ]          [ has? compiler [IF] ]
Removed from v.1.26  
changed lines
  Added in v.1.27

FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>