version 1.5, 1995/04/30 23:18:21
|
version 1.6, 1995/06/07 10:05:05
|
Line 7
|
Line 7
|
2Variable end^ |
2Variable end^ |
|
|
: get-history ( addr len -- wid ) |
: get-history ( addr len -- wid ) |
check-file-prefix drop |
\ check-file-prefix drop |
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 |
to history |
to history |
history file-size throw |
history file-size throw |
2dup forward^ 2! 2dup backward^ 2! end^ 2! ; |
2dup forward^ 2! 2dup backward^ 2! end^ 2! ; |
|
|
s" ~/gforth.history" get-history |
s" ~/.gforth-history" get-history |
|
|
: history-cold Defers 'cold |
: history-cold |
s" ~/gforth.history" get-history ; |
Defers 'cold |
|
s" ~/.gforth-history" get-history ; |
|
|
' history-cold IS 'cold |
' history-cold IS 'cold |
|
|