gforth/substitute.fs - diff

Return to substitute.fs CVS log

Up to [gforth] / gforth

version 1.2, 2012/07/14 13:16:02	version 1.3, 2012/07/14 13:18:04
Line 44 Variable macro$	Line 44 Variable macro$
\G result to @var{addr2 len2}. @var{n} is the number of	\G result to @var{addr2 len2}. @var{n} is the number of
\G substitutions, @var{addr2 len3} the result. If	\G substitutions, @var{addr2 len3} the result. If
\G @var{len2}=@var{len3}, it is likely that the string did not fit.	\G @var{len2}=@var{len3}, it is likely that the string did not fit.
2swap $substitute >r	2>r $substitute -rot
2swap rot umin 2dup >r >r move r> r> r> ;	2r> rot umin 2dup 2>r move 2r> rot ;

: unescapes ( addr1 u1 dest -- dest u2 )	: unescapes ( addr1 u1 dest -- dest u2 )
\G double all delimiters in @var{addr1 u1}, so that substitute	\G double all delimiters in @var{addr1 u1}, so that substitute