CydandClaude Fable 5
db7745fcd0
Un-ignored: the dev drive is the ground truth the restoration and emulator work constantly reference (DPL3/LIBDPL + VRENDER i860 renderer source, BT/RP live+dev game trees, VGL_LABS pod boot, scene/audio content). Kept in-repo for the pod-owner community. Co-Authored-By: Claude Fable 5 <noreply@anthropic.com>
490 lines
17 KiB
C++
490 lines
17 KiB
C++
/*
|
|
** BRIEF -- Basic Reconfigurable Interactive Editing Facility
|
|
**
|
|
** Written by Dave Nanian and Michael Strickman.
|
|
*/
|
|
|
|
/*
|
|
** keyboard.h:
|
|
**
|
|
** This macro file is included and run by startup.m to assign the BRIEF
|
|
** commands to keys. If you want to change any key assignments in BRIEF,
|
|
** we recommend you do it here. All of BRIEF's non-built-in functions
|
|
** have their keys assigned in this file.
|
|
**
|
|
** NOTE:
|
|
** The macro keys.cb searchs this file for assign_to_key statements.
|
|
** If this file is changed without using the keys macro be sure to
|
|
** add assign_to_key statements in this form:
|
|
** assign_to_key ("<key>", "command");
|
|
*/
|
|
|
|
void keyboard ()
|
|
{
|
|
/*
|
|
** The following autoload defines the default BRIEF prompt
|
|
** handling macro. This macro provides a history facility as
|
|
** well as file name completion for a number of prompts.
|
|
**
|
|
** Note that the macros defined in prompt.cb are the base
|
|
** level _prompt_begin, _prompt_end and _bad_key macros; they
|
|
** do not call down to their replacements, as no one is below
|
|
** them.
|
|
*/
|
|
|
|
autoload ("prompt", "_completion_commands", /*vc*/
|
|
"_complete_edit_file", "_prompt_begin", "_prompt_end", /*vc*/
|
|
"_bad_key", "_history_buf", "mouse_prompt"); /*vc*/
|
|
|
|
/*
|
|
** The following few lines define the search and translate
|
|
** keyboard assignments. The autoload statement tells BRIEF that
|
|
** the appropriate macros can be found in the file "search.cm".
|
|
**
|
|
** The default BRIEF search keyboard is as follows:
|
|
**
|
|
** Command: Function: Key Sequence:
|
|
** -------- --------- -------------
|
|
** next_word Move the cursor to the start Ctrl-Right Arrow
|
|
** of the next word.
|
|
**
|
|
** previous_word Move the cursor to the start Ctrl-Left Arrow
|
|
** of the previous word.
|
|
**
|
|
** search_fwd Searches forward for the F5, Alt-s (replacement)
|
|
** given pattern. Displays last
|
|
** pattern as the default.
|
|
**
|
|
** search_back Searches backward for the Alt-F5 (replacement)
|
|
** given pattern. Displays last
|
|
** pattern as the default.
|
|
**
|
|
** search_again Searches in the previous Shift-F5
|
|
** direction for the previous
|
|
** search pattern.
|
|
**
|
|
** translate Translates forward in the F6, Alt-t (replacement)
|
|
** buffer. Displays last
|
|
** pattern and replacement.
|
|
**
|
|
** translate_back Translates back in the Alt-F6
|
|
** buffer. Displays last
|
|
** pattern and replacement.
|
|
**
|
|
** translate_again Translates the last pattern Shift-F6
|
|
** and replacement in the last
|
|
** direction.
|
|
**
|
|
** toggle_re Toggles whether or not Ctrl-F6
|
|
** regular expressions are used
|
|
** when searching and translating.
|
|
**
|
|
** block_search Toggles block searching. F10 block_search
|
|
**
|
|
** i_search Does an "incremental" search F10 i_search
|
|
** forward in the buffer for the
|
|
** given pattern.
|
|
**
|
|
** _marksrch Marks the located search pattern.
|
|
** Can be replaced by the user if a
|
|
** different action is desired.
|
|
*/
|
|
|
|
autoload ("search", "next_word", "_next_word",
|
|
"previous_word", "_previous_word",
|
|
".c_next_word", ".c_previous_word",
|
|
".h_next_word", ".h_previous_word",
|
|
".inc_next_word", ".inc_previous_word",
|
|
".m_next_word", ".m_previous_word",
|
|
".cb_next_word", ".cb_previous_word",
|
|
".asm_next_word", ".asm_previous_word",
|
|
"search_fwd", "search_back",
|
|
"translate", "translate_back",
|
|
"toggle_re", "block_search",
|
|
"search_again", "translate_again",
|
|
"i_search", "_marksrch" );
|
|
autoload ( "search", "end_word", "_end_word",
|
|
"begin_word", "_begin_word",
|
|
".c_end_word", ".c_begin_word",
|
|
".h_end_word", ".h_begin_word",
|
|
".inc_end_word", ".inc_begin_word",
|
|
".m_end_word", ".m_begin_word",
|
|
".cb_end_word", ".cb_begin_word",
|
|
".asm_end_word", ".asm_begin_word");
|
|
|
|
assign_to_key ("<Ctrl-Right Arrow>", "next_word");
|
|
assign_to_key ("<Ctrl-Left Arrow>", "previous_word");
|
|
assign_to_key ("<Shift-F5>", "search_again");
|
|
assign_to_key ("<Ctrl-F6>", "toggle_re");
|
|
assign_to_key ("<Shift-F6>", "translate_again");
|
|
assign_to_key ("<Alt-F6>", "translate_back");
|
|
|
|
/*
|
|
** The following few lines define the window manipulation
|
|
** keyboard assignments. The autoload statement tells BRIEF that
|
|
** the appropriate macros can be found in the file "windows.cm".
|
|
**
|
|
** The default BRIEF window keyboard is as follows:
|
|
**
|
|
** Command: Function: Key Sequence:
|
|
** -------- --------- -------------
|
|
** change_window Switch to the specified F1 (replacement)
|
|
** window, and display the name
|
|
** of the new file.
|
|
**
|
|
** create_edge Create a new window and set F3 (replacement)
|
|
** its color.
|
|
**
|
|
** change_window 0 Switch to the window above Shift-Keypad-Up Arrow/
|
|
** the current one. Display Alt-Up Arrow (101key)
|
|
** the name of the new file.
|
|
**
|
|
** change_window 1 Switch to the window to the Shift-Keypad-Right Arrow/
|
|
** right of the current one. Alt-Right Arrow (101key)
|
|
** Display the name of the new
|
|
** file.
|
|
**
|
|
** change_window 2 Switch to the window below Shift-Keypad Down Arrow/
|
|
** the current one. Display the Alt-Down Arrow (101key)
|
|
** name of the new file.
|
|
**
|
|
** change_window 3 Switch to the window to the Shift-Keypad Left Arrow/
|
|
** left of the current one. Alt-Left Arrow (101key)
|
|
** Display the name of the new
|
|
** file.
|
|
**
|
|
** to_top Move the current line to the Ctrl-t
|
|
** top of the window.
|
|
**
|
|
** to_bottom Move the current line to the Ctrl-b
|
|
** bottom of the window, or as
|
|
** close as possible.
|
|
**
|
|
** center_line Center the current line in Ctrl-c/
|
|
** window, if possible. Center (101key)
|
|
**
|
|
** screen_up Scroll the screen up one Ctrl-e
|
|
** line, leaving the cursor on
|
|
** the same line, if possible.
|
|
**
|
|
** screen_down Scroll the screen down one Ctrl-d
|
|
** line, leaving the cursor on
|
|
** the same line, if possible.
|
|
**
|
|
** left_side Move the cursor to the left Shift-Keypad Home/
|
|
** side of the window. Alt-Home (101key)
|
|
**
|
|
** right_side Move the cursor to the right Shift-End/
|
|
** side of the window. Alt-End (101key)
|
|
**
|
|
** zoom_window Zooms and unzooms the current Alt-F2, Ctrl-z
|
|
** window.
|
|
*/
|
|
|
|
autoload ("windows", "change_window", "create_edge",
|
|
"to_top", "to_bottom", "center_line",
|
|
"screen_up", "screen_down", "left_side",
|
|
"right_side", "zoom_window");
|
|
|
|
/*
|
|
** Normally, <Shift-Up> is the same as <Keypad-8>. When the
|
|
** 101key driver is loaded, <Shift-Up> refers to the dedicated
|
|
** cursor pad, and the BIOS doesn't transmit <Shift-Up>. We use
|
|
** this fact to determine if 101key support is installed.
|
|
*/
|
|
|
|
if (key_to_int ("<Shift-Up>") == 0)
|
|
{
|
|
assign_to_key ("<Alt-Up>", "change_window 0");
|
|
assign_to_key ("<Alt-Right>", "change_window 1");
|
|
assign_to_key ("<Alt-Down>", "change_window 2");
|
|
assign_to_key ("<Alt-Left>", "change_window 3");
|
|
assign_to_key ("<Alt-Home>", "left_side");
|
|
assign_to_key ("<Alt-End>", "right_side");
|
|
assign_to_key ("<Center>", "center_line");
|
|
}
|
|
else
|
|
{
|
|
assign_to_key ("<Shift-Keypad Up>", "change_window 0");
|
|
assign_to_key ("<Shift-Keypad Right>", "change_window 1");
|
|
assign_to_key ("<Shift-Keypad Down>", "change_window 2");
|
|
assign_to_key ("<Shift-Keypad Left>", "change_window 3");
|
|
assign_to_key ("<Shift-Keypad Home>", "left_side");
|
|
assign_to_key ("<Shift-Keypad End>", "right_side");
|
|
}
|
|
assign_to_key ("<Ctrl-t>", "to_top");
|
|
assign_to_key ("<Ctrl-b>", "to_bottom");
|
|
assign_to_key ("<Ctrl-c>", "center_line");
|
|
assign_to_key ("<Ctrl-e>", "screen_up");
|
|
assign_to_key ("<Ctrl-d>", "screen_down");
|
|
assign_to_key ("<Alt-F2>", "zoom_window");
|
|
assign_to_key ("<Ctrl-z>", "zoom_window");
|
|
|
|
/*
|
|
** The following few lines define the standard buffer manipulation
|
|
** keyboard assignments. The autoload statement tells BRIEF that the
|
|
** appropriate files can be found in the file "buffers.cm".
|
|
**
|
|
** The default BRIEF buffer manipulation keyboard is as follows:
|
|
**
|
|
** Command: Function: Key Sequence:
|
|
** -------- --------- -------------
|
|
** buf_list Displays a list of buffers Alt-b
|
|
** which can be examined, edited
|
|
** written or deleted.
|
|
**
|
|
** edit_file Displays the name of the Alt-e (replacement)
|
|
** file being edited on the
|
|
** command line.
|
|
**
|
|
** _multifile_edit_file Allows more than one file
|
|
** to be selected from the file
|
|
** completion menu.
|
|
**
|
|
** edit_next_buffer Switches to the next buffer Alt-n
|
|
** in the buffer list.
|
|
**
|
|
** edit_prev_buffer Switches to the previous Alt-minus
|
|
** buffer in the buffer list.
|
|
**
|
|
** delete_curr_buffer Deletes the current buffer. Ctrl-minus
|
|
**
|
|
** _bad_key Adds menus to some commands.
|
|
*/
|
|
|
|
autoload ("buffers", "buf_list", "edit_file", "edit_next_buffer",
|
|
"edit_prev_buffer", "delete_curr_buffer",
|
|
"_bad_key", "mouse_buf_list", "_buf_position" );
|
|
|
|
assign_to_key ("<Alt-b>", "buf_list");
|
|
assign_to_key ("<Alt-n>", "edit_next_buffer");
|
|
assign_to_key ("<Alt-minus>", "edit_prev_buffer");
|
|
assign_to_key ("<Ctrl-minus>", "delete_curr_buffer");
|
|
|
|
/*
|
|
** These assignments are for the bookmark key definitions. <Alt-j> is
|
|
** built-in.
|
|
*/
|
|
|
|
assign_to_key ("<Alt-1>", "drop_bookmark 1");
|
|
assign_to_key ("<Alt-2>", "drop_bookmark 2");
|
|
assign_to_key ("<Alt-3>", "drop_bookmark 3");
|
|
assign_to_key ("<Alt-4>", "drop_bookmark 4");
|
|
assign_to_key ("<Alt-5>", "drop_bookmark 5");
|
|
assign_to_key ("<Alt-6>", "drop_bookmark 6");
|
|
assign_to_key ("<Alt-7>", "drop_bookmark 7");
|
|
assign_to_key ("<Alt-8>", "drop_bookmark 8");
|
|
assign_to_key ("<Alt-9>", "drop_bookmark 9");
|
|
assign_to_key ("<Alt-0>", "drop_bookmark 10");
|
|
|
|
/*
|
|
** The following few lines define the standard file compilation
|
|
** keyboard assignments. The autoload statement tells BRIEF that
|
|
** the appropriate macros can be found in the file "compile.cm".
|
|
**
|
|
** The default BRIEF file compilation keyboard is as follows:
|
|
**
|
|
** Command: Function: Key Sequence:
|
|
** -------- --------- -------------
|
|
** compile_it Compiles the file in the Alt-F10
|
|
** current buffer, using the
|
|
** compiler appropriate to the
|
|
** file's extension.
|
|
**
|
|
** warnings_only Sets up the compilation None
|
|
** functions to handle compiles
|
|
** that generate only warning
|
|
** message, or don't return an
|
|
** error level.
|
|
**
|
|
** bgd_compilation Allows compilation to happen None
|
|
** in the background.
|
|
*/
|
|
|
|
autoload ("compile", "compile_it", "cc", "cm", "warnings_only", "bgd_compilation");
|
|
|
|
assign_to_key ("<Alt-F10>", "compile_it");
|
|
|
|
/*
|
|
** The following few lines define the standard error location
|
|
** keyboard assignments. The autoload statement tells BRIEF that
|
|
** the appropriate macros can be found in the file "errorfix.cm".
|
|
**
|
|
** The default BRIEF file compilation keyboard is as follows:
|
|
**
|
|
** Command: Function: Key Sequence:
|
|
** -------- --------- -------------
|
|
** next_error Goes to the next error for Ctrl-n
|
|
** the current file, if any.
|
|
**
|
|
** next_error 1 Displays a window of error Ctrl-p
|
|
** messages, if any.
|
|
*/
|
|
|
|
autoload ("errorfix", "next_error", "_next_error",
|
|
"_previous_error", "_error_info",
|
|
"mouse_errorfix");
|
|
|
|
assign_to_key ("<Ctrl-n>", "next_error");
|
|
assign_to_key ("<Ctrl-p>", "next_error 1");
|
|
|
|
/*
|
|
** The following few lines define a number of miscellaneous
|
|
** keyboard assignments. The autoload statement tells BRIEF that
|
|
** the appropriate macros can be found in the file "misc.cm". Note
|
|
** that this macro is included in the file "startup.m".
|
|
**
|
|
** The default BRIEF assignments for these commands are:
|
|
**
|
|
** Command: Function: Key Sequence:
|
|
** -------- --------- -------------
|
|
** delete_char Do a block-sensitive delete. Del (replacement)
|
|
**
|
|
** delete_previous_word Ctrl-Backspace
|
|
** Deletes the word in front of
|
|
** the cursor.
|
|
**
|
|
** delete_next_word Deletes the word after the Alt-backspace
|
|
** cursor. (101key driver only)
|
|
**
|
|
** delete_to_bol Deletes to the beginning of Ctrl-k
|
|
** the line.
|
|
**
|
|
** write_buffer Do a block-sensitive write. Alt-w (replacement)
|
|
**
|
|
** write_and_exit Write all modified buffers Ctrl-x
|
|
** and exit BRIEF (same as
|
|
** Alt-x w).
|
|
**
|
|
** set_backup Toggle whether backups should Ctrl-w
|
|
** be created. Assigned here,
|
|
** function is built-in.
|
|
**
|
|
** display_file_name Display the file name of the Alt-f
|
|
** current buffer.
|
|
**
|
|
** load_keystroke_macro Loads a keystroke macro. Alt-F7
|
|
**
|
|
** open_line Open up a new line under the Ctrl-Enter
|
|
** current one.
|
|
**
|
|
** back_tab Moves to the previous tab Shift-Tab
|
|
** stop.
|
|
**
|
|
** quote Allows keys bound to command Alt-q
|
|
** to be inserted.
|
|
**
|
|
** copy Does a block-sensitive copy. Grey-plus (replacement)
|
|
**
|
|
** cut Does a block-sensitive cut. Grey-minus (replacement)
|
|
**
|
|
** _home Does a multi-keystroke home. Home
|
|
**
|
|
** _end Does a multi-keystroke end. End
|
|
*/
|
|
|
|
assign_to_key ("<Ctrl-Backspace>", "delete_previous_word");
|
|
assign_to_key ("<Alt-Backspace>", "delete_next_word");
|
|
assign_to_key ("<Ctrl-k>", "delete_to_bol");
|
|
assign_to_key ("<Ctrl-x>", "write_and_exit");
|
|
assign_to_key ("<Ctrl-w>", "set_backup");
|
|
assign_to_key ("<Alt-f>", "display_file_name");
|
|
assign_to_key ("<Alt-F7>", "load_keystroke_macro");
|
|
assign_to_key ("<Ctrl-Enter>", "open_line");
|
|
assign_to_key ("<Shift-Tab>", "back_tab");
|
|
assign_to_key ("<Alt-q>", "quote");
|
|
assign_to_key ("<Home>", "_home");
|
|
assign_to_key ("<End>", "_end");
|
|
|
|
/*
|
|
** The following few lines define the keys needed to perform
|
|
** the BRIEF help function. The autoload statement tells BRIEF that
|
|
** the appropriate macros can be found in the file "help.cm".
|
|
**
|
|
** In addition, registered macro type 2 (context sensitive help)
|
|
** is set up here.
|
|
**
|
|
** The default BRIEF help keyboard is as follows:
|
|
**
|
|
** Command: Function: Key Sequence:
|
|
** -------- --------- -------------
|
|
** help Help out the user! Alt-h
|
|
*/
|
|
|
|
autoload ("help", "help", "_context_help", "_help_add_button",
|
|
"_user_kbd", "display_help", "process_help_menu",
|
|
"mouse_help_menu", "mouse_help");
|
|
|
|
register_macro (2, "_context_help"); // "Assigned" to Alt-h
|
|
// when prompting.
|
|
|
|
assign_to_key ("<Alt-h>", "help");
|
|
|
|
/*
|
|
** The following few lines define some keys that are not used
|
|
** very often. The autoload statements tell BRIEF where it can
|
|
** find the files that the commands are in.
|
|
**
|
|
** The default BRIEF assignments for these commands are:
|
|
**
|
|
** Command: Function: Key Sequence:
|
|
** -------- --------- -------------
|
|
** repeat Repeat the next command. Ctrl-r
|
|
**
|
|
** key Give me the correct key code Shift-F10
|
|
** for the key sequence.
|
|
**
|
|
** routines Present a menu containing all Ctrl-g
|
|
** of the routines in this file,
|
|
** and allow me to go to one of
|
|
** them.
|
|
*/
|
|
|
|
autoload ("repeat", "repeat");
|
|
autoload ("key", "key");
|
|
autoload ("routines", "routines");
|
|
|
|
assign_to_key ("<Ctrl-r>", "repeat");
|
|
assign_to_key ("<Shift-F10>", "key");
|
|
assign_to_key ("<Ctrl-g>", "routines");
|
|
|
|
/*
|
|
** These are general autoloads for the various BRIEF macro
|
|
** packages.
|
|
*/
|
|
|
|
autoload ("autosave", "autosave");
|
|
|
|
autoload ("indent", ".c_smart_first", ".c_template_first",
|
|
"_regular_first", "r_indent", "slide_in",
|
|
".cb_smart_first", ".cb_template_first",
|
|
"slide_out", ".c_abbrev", "brace_expand",
|
|
"just_brace", "just_cbrace", "just_space",
|
|
".c_open_brace", ".c_close_brace");
|
|
|
|
autoload ("wp", "_wp_on", "_wp_off", "center", "reform", "margin");
|
|
|
|
autoload ("dialog", "_process_menu", "_process_dialog_box", "_dialog_level",
|
|
"_dialog_mode", "_dialog_esc", "_dialog_grey_minus",
|
|
"_dialog_dir");
|
|
|
|
autoload ("column", "_col_copy", "_col_cut", "_col_delete", "_col_paste");
|
|
|
|
autoload ("ada", ".ada_smart_first", ".ada_template_first");
|
|
|
|
autoload ("basic",".bas_smart_first", ".bas_template_first");
|
|
|
|
autoload ("cobol", ".cob_smart_first", ".cob_template_first");
|
|
|
|
autoload ("fortran", ".for_smart_first", ".for_template_first");
|
|
|
|
autoload ("modula2", ".mod_smart_first", ".def_smart_first", ".mod_template_first",
|
|
".def_template_first");
|
|
|
|
autoload ("pascal", ".pas_smart_first", ".pas_template_first");
|
|
|
|
autoload ("popup", "popup_menu", "process_popup_menu");
|
|
|
|
#include "vc_key.h" // include Sourcer's Apprentice autoloads
|
|
}
|