gforth/string.fs - diff

Return to string.fs CVS log

Up to [gforth] / gforth

version 1.4, 2000/09/23 15:46:59	version 1.5, 2005/01/05 16:25:26
Line 22	Line 22
over min >r r@ - ( left over ) dup 0>	over min >r r@ - ( left over ) dup 0>
IF 2dup swap dup r@ + -rot swap move THEN + r> bl fill ;	IF 2dup swap dup r@ + -rot swap move THEN + r> bl fill ;

	[IFUNDEF] insert
: insert ( string length buffer size -- )	: insert ( string length buffer size -- )
rot over min >r r@ - ( left over )	rot over min >r r@ - ( left over )
over dup r@ + rot move r> move ;	over dup r@ + rot move r> move ;
	[THEN]

: $padding ( n -- n' )	: $padding ( n -- n' )
[ 6 cells ] Literal + [ -4 cells ] Literal and ;	[ 6 cells ] Literal + [ -4 cells ] Literal and ;