gforth/string.fs - diff

Return to string.fs CVS log

Up to [gforth] / gforth

version 1.8, 2007/12/31 19:02:24	version 1.9, 2010/09/04 21:34:23
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 ;

\ dynamic string handling 12dec99py	\ dynamic string handling 12dec99py