gforth/history.fs - diff

Return to history.fs CVS log

Up to [gforth] / gforth

version 1.19, 1999/12/12 18:35:54	version 1.20, 2000/04/02 20:18:27
Line 111 s" os-class" environment? [IF] s" unix"	Line 111 s" os-class" environment? [IF] s" unix"
hist-pos forward^ 2!	hist-pos forward^ 2!
tuck 2dup type 0 ;	tuck 2dup type 0 ;

: prev-line ( max span addr pos1 -- max span addr pos2 false )	: find-prev-line ( max addr -- max span addr pos2 )
clear-line backward^ 2@ forward^ 2!	backward^ 2@ forward^ 2!
over 2 + negate s>d backward^ 2@ d+ 0. dmax 2dup hist-setpos	over 2 + negate s>d backward^ 2@ d+ 0. dmax 2dup hist-setpos
BEGIN	BEGIN
backward^ 2! 2dup get-line WHILE	backward^ 2! 2dup get-line WHILE
hist-pos 2dup forward^ 2@ d< WHILE	hist-pos 2dup forward^ 2@ d< WHILE
rot drop	rot drop
REPEAT 2drop THEN	REPEAT 2drop THEN tuck ;
tuck 2dup type 0 ;
	: prev-line ( max span addr pos1 -- max span addr pos2 false )
	clear-line find-prev-line 2dup type 0 ;

Create lfpad #lf c,	Create lfpad #lf c,