gforth/string.fs - diff

Return to string.fs CVS log

Up to [gforth] / gforth

version 1.10, 2010/12/30 21:46:14	version 1.11, 2010/12/31 14:37:13
Line 43	Line 43
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 @ dup IF free throw off ELSE 2drop THEN ;	: $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