| ' noop IS everyline |
' noop IS everyline |
| |
|
| : decode ( max span addr pos1 key -- max span addr pos2 flag ) |
: decode ( max span addr pos1 key -- max span addr pos2 flag ) |
| |
\ perform action corresponding to key; addr max is the buffer, |
| |
\ addr span is the current string in the buffer, and pos1 is the |
| |
\ cursor position in the buffer. |
| everychar |
everychar |
| dup -1 = IF drop 4 THEN \ -1 is EOF |
dup -1 = IF drop 4 THEN \ -1 is EOF |
| dup #del = IF drop #bs THEN \ del is rubout |
dup #del = IF drop #bs THEN \ del is rubout |
