gforth/string.fs - diff

Return to string.fs CVS log

Up to [gforth] / gforth

version 1.3, 2000/09/23 15:06:02	version 1.6, 2005/12/31 15:46:10
Line 1	Line 1
\ dynamic string handling 10aug99py	\ dynamic string handling 10aug99py

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

\ This file is part of Gforth.	\ This file is part of Gforth.

Line 16	Line 16

\ You should have received a copy of the GNU General Public License	\ You should have received a copy of the GNU General Public License
\ along with this program; if not, write to the Free Software	\ along with this program; if not, write to the Free Software
\ Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.	\ Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111, USA.

: 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 ;