version 1.31, 2003/03/09 15:16:50
|
version 1.32, 2003/09/01 22:12:46
|
Line 100 s" os-class" environment? [IF] s" unix"
|
Line 100 s" os-class" environment? [IF] s" unix"
|
: clear-tib ( max span addr pos -- max 0 addr 0 false ) |
: clear-tib ( max span addr pos -- max 0 addr 0 false ) |
clear-line 0 tuck dup ; |
clear-line 0 tuck dup ; |
|
|
: hist-pos ( -- ud ) history file-position throw ; |
: hist-pos ( -- ud ) history file-position drop ( throw ) ; |
: hist-setpos ( ud -- ) history reposition-file throw ; |
: hist-setpos ( ud -- ) history reposition-file drop ( throw ) ; |
|
|
: get-line ( addr len -- len' flag ) |
: get-line ( addr len -- len' flag ) |
swap history read-line throw ; |
swap history read-line throw ; |
Line 129 Create lfpad #lf c,
|
Line 129 Create lfpad #lf c,
|
|
|
: (enter) ( max span addr pos1 -- max span addr pos2 true ) |
: (enter) ( max span addr pos1 -- max span addr pos2 true ) |
>r end^ 2@ hist-setpos |
>r end^ 2@ hist-setpos |
2dup swap history write-line throw |
2dup swap history write-line drop ( throw ) \ don't worry about errors |
hist-pos 2dup backward^ 2! end^ 2! |
hist-pos 2dup backward^ 2! end^ 2! |
r> (ret) ; |
r> (ret) ; |
|
|