gforth/history.fs - diff

Return to history.fs CVS log

Up to [gforth] / gforth

version 1.27, 2001/09/15 20:40:47	version 1.29, 2002/09/14 08:20:19
Line 72 interpret/compile: ctrl ( "<char>" -- c	Line 72 interpret/compile: ctrl ( "<char>" -- c
nip nip	nip nip
THEN ;	THEN ;

s" os-class" environment? [IF] s" unix" compare 0= [ELSE] true [THEN]	s" os-class" environment? [IF] s" unix" str= [ELSE] true [THEN]
[IF]	[IF]
: history-file ( -- addr u )	: history-file ( -- addr u )
s" GFORTHHIST" getenv dup 0= IF	s" GFORTHHIST" getenv dup 0= IF
Line 206 Create prefix-found 0 , 0 ,	Line 206 Create prefix-found 0 , 0 ,
5 pick over 4 pick + prefix-found @ 0<> - < ;	5 pick over 4 pick + prefix-found @ 0<> - < ;

: tab-expand ( max span addr pos1 -- max span addr pos2 0 )	: tab-expand ( max span addr pos1 -- max span addr pos2 0 )
	key? IF #tab (ins) 0 EXIT THEN
kill-expand 2dup extract-word dup 0= IF nip EXIT THEN	kill-expand 2dup extract-word dup 0= IF nip EXIT THEN
search-prefix tib-full?	search-prefix tib-full?
IF 7 emit 2drop 0 0 prefix-found 2!	IF 7 emit 2drop 0 0 prefix-found 2!