gforth/string.fs - diff

Return to string.fs CVS log

Up to [gforth] / gforth

version 1.2, 2000/04/12 20:53:46	version 1.7, 2007/12/31 18:40:24
Line 1	Line 1
\ dynamic string handling 10aug99py	\ dynamic string handling 10aug99py

	\ Copyright (C) 2000,2005 Free Software Foundation, Inc.

	\ This file is part of Gforth.

	\ Gforth is free software; you can redistribute it and/or
	\ modify it under the terms of the GNU General Public License
	\ as published by the Free Software Foundation, either version 3
	\ of the License, or (at your option) any later version.

	\ This program is distributed in the hope that it will be useful,
	\ but WITHOUT ANY WARRANTY; without even the implied warranty of
	\ MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
	\ GNU General Public License for more details.

	\ You should have received a copy of the GNU General Public License
	\ along with this program. If not, see http://www.gnu.org/licenses/.

: delete ( buffer size count -- )	: delete ( buffer size count -- )
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 ;