gforth/extend.fs - diff

Return to extend.fs CVS log

Up to [gforth] / gforth

version 1.8, 1995/01/30 18:47:45	version 1.10, 1995/07/06 15:57:27
Line 70 decimal	Line 70 decimal

\ ERASE 17may93jaw	\ ERASE 17may93jaw

: erase ( 0 1 chars um/mod nip ) 0 fill ;	: erase ( addr len -- ) ( 0 1 chars um/mod nip ) 0 fill ;
: blank ( 0 1 chars um/mod nip ) bl fill ;	: blank ( addr len -- ) ( 0 1 chars um/mod nip ) bl fill ;

\ SEARCH 02sep94py	\ SEARCH 02sep94py

Line 85 decimal	Line 85 decimal

\ ROLL 17may93jaw	\ ROLL 17may93jaw

: roll dup 1+ pick >r	: roll ( x0 x1 .. xn n -- x1 .. xn x0 )
cells sp@ cell+ dup cell+ rot move drop r> ;	dup 1+ pick >r
	cells sp@ cell+ dup cell+ rot move drop r> ;

\ SOURCE-ID SAVE-INPUT RESTORE-INPUT 11jun93jaw	\ SOURCE-ID SAVE-INPUT RESTORE-INPUT 11jun93jaw

Line 120 decimal	Line 121 decimal
variable span	variable span

: expect ( c-addr +len -- )	: expect ( c-addr +len -- )
0 rot over	0 rot over
BEGIN key decode >r 2over = r> or UNTIL	BEGIN ( maxlen span c-addr pos1 )
2drop nip span ! ;	key decode ( maxlen span c-addr pos2 flag )
	>r 2over = r> or
	UNTIL
	type-rest drop
	2drop nip span ! ;