Diff for /gforth/string.fs between versions 1.8 and 1.11

version 1.8, 2007/12/31 19:02:24 version 1.11, 2010/12/31 14:37:13
Line 42 Line 42
 : $ins ( addr1 u addr2 off -- ) >r  : $ins ( addr1 u addr2 off -- ) >r
   2dup dup $@len rot + swap $!len  $@ 1+ r> /string insert ;    2dup dup $@len rot + swap $!len  $@ 1+ r> /string insert ;
 : $+! ( addr1 u addr2 -- ) dup $@len $ins ;  : $+! ( addr1 u addr2 -- ) dup $@len $ins ;
 : $off ( addr -- )  dup @ free throw off ;  : $off ( addr -- )  dup @ dup IF  free throw off  ELSE  2drop  THEN ;
   : $init ( addr -- )  >r r@ off s" " r> $! ;
   
 \ dynamic string handling                              12dec99py  \ dynamic string handling                              12dec99py
   
Line 50 Line 51
   >r 2dup r> scan dup >r dup IF  1 /string  THEN    >r 2dup r> scan dup >r dup IF  1 /string  THEN
   2swap r> - 2swap ;    2swap r> - 2swap ;
   
 : $iter ( .. $addr char xt -- .. ) { char xt }  : $iter ( .. $addr char xt -- .. ) >r >r
   $@ BEGIN  dup  WHILE  char $split >r >r xt execute r> r>    $@ BEGIN  dup  WHILE  r@ $split i' -rot >r >r execute r> r>
      REPEAT  2drop ;       REPEAT  2drop rdrop rdrop ;

Removed from v.1.8  
changed lines
  Added in v.1.11


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