gforth/extend.fs - diff

Return to extend.fs CVS log

Up to [gforth] / gforth

version 1.6, 1994/08/31 19:42:45	version 1.7, 1994/09/02 15:23:35
Line 72 decimal	Line 72 decimal
: erase ( 0 1 chars um/mod nip ) 0 fill ;	: erase ( 0 1 chars um/mod nip ) 0 fill ;
: blank ( 0 1 chars um/mod nip ) bl fill ;	: blank ( 0 1 chars um/mod nip ) bl fill ;

	\ SEARCH 02sep94py

	: search ( buf buflen text textlen -- restbuf restlen flag )
	2over 2 pick - 1+ 3 pick c@ >r
	BEGIN r@ scan dup WHILE
	>r >r 2dup r@ -text
	0= IF >r drop 2drop r> r> r> rot + 1- rdrop true EXIT THEN
	r> r> 1 /string REPEAT
	2drop 2drop rdrop false ;

\ ROLL 17may93jaw	\ ROLL 17may93jaw

: roll dup 1+ pick >r	: roll dup 1+ pick >r