| |
|
| : bindkey ( xt key -- ) cells ctrlkeys + ! ; |
: bindkey ( xt key -- ) cells ctrlkeys + ! ; |
| |
|
| ' forw ctrl F bindkey |
|
| ' back ctrl B bindkey |
|
| ' ?del ctrl H bindkey |
|
| ' eof ctrl D bindkey |
|
| ' <del> ctrl X bindkey |
|
| |
|
| ' (ins) IS insert-char |
|
| |
|
| \ history support 16oct94py |
\ history support 16oct94py |
| |
|
| 0 Value history \ history file fid |
0 Value history \ history file fid |
| : kill-prefix ( key -- key ) |
: kill-prefix ( key -- key ) |
| dup #tab <> IF 0 0 prefix-found 2! THEN ; |
dup #tab <> IF 0 0 prefix-found 2! THEN ; |
| |
|
| ' kill-prefix IS everychar |
: 8-bit-io ( -- ) |
| |
['] forw ctrl F bindkey |
| |
['] back ctrl B bindkey |
| |
['] ?del ctrl H bindkey |
| |
['] eof ctrl D bindkey |
| |
['] <del> ctrl X bindkey |
| |
['] next-line ctrl N bindkey |
| |
['] prev-line ctrl P bindkey |
| |
['] clear-tib ctrl K bindkey |
| |
['] first-pos ctrl A bindkey |
| |
['] end-pos ctrl E bindkey |
| |
['] (enter) #lf bindkey |
| |
['] (enter) #cr bindkey |
| |
['] tab-expand #tab bindkey |
| |
['] (ins) IS insert-char |
| |
['] kill-prefix IS everychar |
| |
['] noop IS everyline |
| |
[ action-of key ] Literal IS key |
| |
[ action-of emit ] Literal IS emit ; |
| |
|
| |
\ UTF-8 support |
| |
|
| |
include utf-8.fs |
| |
|
| |
: utf-8-cold ( -- ) |
| |
s" LANG" getenv s" .UTF-8" search nip nip |
| |
IF utf-8-io ELSE 8-bit-io THEN ; |
| |
|
| |
' utf-8-cold INIT8 chained |
| |
|
| ' next-line ctrl N bindkey |
utf-8-cold |
| ' prev-line ctrl P bindkey |
|
| ' clear-tib ctrl K bindkey |
|
| ' first-pos ctrl A bindkey |
|
| ' end-pos ctrl E bindkey |
|
| ' (enter) #lf bindkey |
|
| ' (enter) #cr bindkey |
|
| ' tab-expand #tab bindkey |
|
| |
|
| \ initializing history |
\ initializing history |
| |
|
