mirror of
https://github.com/forth-ev/VolksForth.git
synced 2024-11-22 05:32:28 +00:00
1 line
18 KiB
Plaintext
1 line
18 KiB
Plaintext
\\ Install Editor cas 10nov05 This file contains the Installer for the Forth Editor The Installer will query for keystrokes that should invoke the Editor commands. This allows custom keybinding for the individual requirements \ install Editor cas 10nov05 Onlyforth Editor also save warning on : tab &20 col &20 mod - spaces ; : .key ( c -- ) dup $7E > IF ." $" u. exit THEN dup bl < IF ." ^" [ Ascii A 1- ] Literal + THEN emit ; : install \ install editor's keyboard page ." Press keys requested (Spacebar to confirm)" #keys 0 ?DO cr I 2* actiontable + @ >name .name tab ." : " I 2* keytable + dup @ .key tab ." -> " key dup bl = IF drop dup @ THEN dup .key swap ! LOOP ; --> \ define action-names UH 11mai88: :a ( addr -- adr' ) dup @ Alias 2+ ; actiontable :a up :a left :a down :a right :a push-line :a push-char :a pull-line :a pull-char :a fix-word :a screen# :a copy-line :a copy-char :a backspace :a backspace :a backspace :a delete-char ( :a insert-char ) :a delete-line :a insert-line :a flipimode ( :a erase-line :a clear-to-right):a new-line :a +tab :a -tab :a home :a to-end :a search :a undo :a update-exit :a flushed-exit :a showload :a shadow-screen :a next-Screen :a back-Screen :a alter-Screen :a mark-screen drop warning off install empty |