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, |
|
|