gforth/history.fs - diff

Return to history.fs CVS log

Up to [gforth] / gforth

Diff for /gforth/history.fs between versions 1.15 and 1.16

version 1.15, 1997/09/01 23:07:07	version 1.16, 1997/12/01 21:15:03
Line 64 interpret/compile: ctrl ( "<char>" -- c	Line 64 interpret/compile: ctrl ( "<char>" -- c

: force-open ( addr len -- fid )	: force-open ( addr len -- fid )
2dup r/w open-file 0<	2dup r/w open-file 0<
IF drop r/w create-file throw ELSE nip nip THEN ;	IF drop r/w create-file
	throw ELSE nip nip THEN ;
: get-history ( addr len -- )
force-open to history
history file-size throw
2dup forward^ 2! 2dup backward^ 2! end^ 2! ;

s" os-class" environment? [IF] s" unix" compare 0= [ELSE] true [THEN]	s" os-class" environment? [IF] s" unix" compare 0= [ELSE] true [THEN]
[IF]	[IF]
: history-cold	: history-file ( -- addr u )
s" GFORTHHIST" getenv dup 0= IF	s" GFORTHHIST" getenv dup 0= IF
2drop s" ~/.gforth-history"	2drop s" ~/.gforth-history"
THEN get-history ;	THEN ;
[ELSE]	[ELSE]

: history-dir	: history-dir ( -- addr u )
s" TMP" getenv ?dup ?EXIT drop	s" TMP" getenv ?dup ?EXIT drop
s" TEMP" getenv ?dup ?EXIT drop	s" TEMP" getenv ?dup ?EXIT drop
s" c:/" ;	s" c:/" ;

: history-file	: history-file ( -- addr u )
s" GFORTHHIST" getenv ?dup ?EXIT	s" GFORTHHIST" getenv ?dup ?EXIT
drop	drop
history-dir pad place	history-dir pad place
s" /ghist.txt" pad +place pad count ;	s" /ghist.fs" pad +place pad count ;

: history-cold
history-file
get-history ;
[THEN]	[THEN]

	: get-history ( addr len -- )
	['] force-open catch
	dup 0< IF ." can't open " history-file type cr throw THEN drop
	to history
	history file-size throw
	2dup forward^ 2! 2dup backward^ 2! end^ 2! ;

	: history-cold ( -- )
	history-file get-history ;

' history-cold INIT8 chained	' history-cold INIT8 chained
history-cold	history-cold

FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>

Removed from v.1.15
changed lines
	Added in v.1.16