| ' (ins) IS insert-char |
' (ins) IS insert-char |
| defer everychar |
defer everychar |
| ' noop IS everychar |
' noop IS everychar |
| |
defer 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 ) |
| everychar |
everychar |
| : edit-line ( c-addr n1 n2 -- n3 ) \ gforth |
: edit-line ( c-addr n1 n2 -- n3 ) \ gforth |
| \G edit the string with length @var{n2} in the buffer @var{c-addr |
\G edit the string with length @var{n2} in the buffer @var{c-addr |
| \G n1}, like @code{accept}. |
\G n1}, like @code{accept}. |
| |
everyline |
| rot over |
rot over |
| 2dup type |
2dup type |
| BEGIN key decode UNTIL |
BEGIN key decode UNTIL |
