Diff for /gforth/extend.fs between versions 1.27 and 1.29

version 1.27, 1997/07/06 15:55:23 version 1.29, 1997/12/01 21:15:02
Line 94  decimal Line 94  decimal
   
 \ SEARCH                                                02sep94py  \ SEARCH                                                02sep94py
   
 : search   ( buf buflen text textlen -- restbuf restlen flag ) \ string  : search ( c-addr1 u1 c-addr2 u2 -- c-addr3 u3 flag ) \ string
     2over  2 pick - 1+ 3 pick c@ >r      \ not very efficient; but if we want efficiency, we'll do it as primitive
     BEGIN      2>r 2dup
         r@ scan dup      begin
     WHILE          dup r@ >=
         >r >r  2dup r@ -text      while
         0=          over 2r@ swap -text 0= if
         IF              2swap 2drop 2r> 2drop true exit
             >r drop 2drop r> r> r> rot + 1- rdrop true          endif
             EXIT          1 /string
         THEN      repeat
         r> r>  1 /string      2drop 2r> 2drop false ;
     REPEAT  
     2drop 2drop  rdrop false ;  
   
 \ SOURCE-ID SAVE-INPUT RESTORE-INPUT                    11jun93jaw  \ SOURCE-ID SAVE-INPUT RESTORE-INPUT                    11jun93jaw
   
Line 192  variable span ( -- a-addr ) \ core-ext Line 190  variable span ( -- a-addr ) \ core-ext
         dup 0 wordlist-link - rehash          dup 0 wordlist-link - rehash
     REPEAT      REPEAT
     drop      drop
     @ udp !  dp ! ;      @ udp !  dp !
       \ clean up vocabulary stack
       0 vp @ 0
       ?DO
           vp cell+ I cells + @ dup here >
           IF  drop  ELSE  swap 1+  THEN
       LOOP
       dup 0= or set-order \ -1 set-order if order is empty
       get-current here > IF
           forth-wordlist set-current
       THEN ;
   
 : marker ( "mark" -- )  : marker ( "mark" -- )
     marker, Create A,      marker, Create A,

Removed from v.1.27  
changed lines
  Added in v.1.29


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