[gforth] / gforth / string.fs  

gforth: gforth/string.fs

Diff for /gforth/string.fs between version 1.1 and 1.2

version 1.1, Sun Mar 26 21:53:16 2000 UTC version 1.2, Wed Apr 12 20:53:46 2000 UTC
Line 28 
Line 28 
 \ dynamic string handling                              12dec99py  \ dynamic string handling                              12dec99py
   
 : $split ( addr u char -- addr1 u1 addr2 u2 )  : $split ( addr u char -- addr1 u1 addr2 u2 )
   >r 2dup r> scan dup >r 1 /string 2swap r> - 2swap ;    >r 2dup r> scan dup >r dup IF  1 /string  THEN
     2swap r> - 2swap ;
   
 : $iter ( .. $addr char xt -- .. ) { char xt }  : $iter ( .. $addr char xt -- .. ) { char xt }
   $@ BEGIN  dup  WHILE  char $split >r >r xt execute r> r>    $@ BEGIN  dup  WHILE  char $split >r >r xt execute r> r>

Generate output suitable for use with a patch program
Legend:
Removed from v.1.1  
changed lines
  Added in v.1.2
CVS Admin

Powered by ViewCVS 1.0-dev 		(Powered by ViewCVS)

ViewCVS and CVS Help