gforth/string.fs - diff

Return to string.fs CVS log

Up to [gforth] / gforth

version 1.1, 2000/03/26 21:53:16	version 1.2, 2000/04/12 20:53:46
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>