home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
rtsi.com
/
2014.01.www.rtsi.com.tar
/
www.rtsi.com
/
OS9
/
OSK
/
CMDS
/
beav.1.40.lzh
/
BEAV140
/
ttykbd.c
< prev
next >
Wrap
Text File
|
1995-06-14
|
15KB
|
473 lines
/*
* Wang PC keyboard handler
*/
#include "def.h"
extern char MSG_sp_key[];
extern char MSG_byte_shift[];
extern char MSG_back_char[];
extern char MSG_quit[];
extern char MSG_forw_del_char[];
extern char MSG_toggle_swap[];
extern char MSG_forw_char[];
extern char MSG_abort[];
extern char MSG_ins_self[];
extern char MSG_back_del_char[];
extern char MSG_refresh[];
extern char MSG_forw_line[];
extern char MSG_back_line[];
extern char MSG_quote[];
extern char MSG_recall[];
extern char MSG_twiddle[];
extern char MSG_forw_page[];
extern char MSG_kill_region[];
extern char MSG_yank[];
extern char MSG_down_window[];
extern char MSG_ins_toggle[];
extern char MSG_display_buffers[];
extern char MSG_quit[];
extern char MSG_exit_flush_all[];
extern char MSG_set_file_name[];
extern char MSG_file_insert[];
extern char MSG_buf_size_lock[];
extern char MSG_flush_all[];
extern char MSG_down_window[];
extern char MSG_up_window[];
extern char MSG_file_read[];
extern char MSG_file_save[];
extern char MSG_file_visit[];
extern char MSG_file_write[];
extern char MSG_swap_dot_and_mark[];
extern char MSG_shrink_window[];
extern char MSG_display_position[];
extern char MSG_start_macro[];
extern char MSG_end_macro[];
extern char MSG_help[];
extern char MSG_only_window[];
extern char MSG_split_window[];
extern char MSG_use_buffer[];
extern char MSG_spawn_cli[];
extern char MSG_execute_macro[];
extern char MSG_goto_line[];
extern char MSG_ins_unit[];
extern char MSG_kill_buffer[];
extern char MSG_load_bindings[];
extern char MSG_forw_window[];
extern char MSG_back_window[];
extern char MSG_view_file[];
extern char MSG_enlarge_window[];
extern char MSG_ascii_mode[];
extern char MSG_binary_mode[];
extern char MSG_buffer_name[];
extern char MSG_decimal_mode[];
extern char MSG_hex_mode[];
extern char MSG_back_del_unit[];
extern char MSG_octal_mode[];
extern char MSG_display_version[];
extern char MSG_unit_size1[];
extern char MSG_unit_size2[];
extern char MSG_unit_size4[];
extern char MSG_reposition_window[];
extern char MSG_set_mark[];
extern char MSG_goto_eob[];
extern char MSG_goto_bob[];
extern char MSG_next_buff[];
extern char MSG_prev_buff[];
extern char MSG_query_replace[];
extern char MSG_display_bindings[];
extern char MSG_auto_save[];
extern char MSG_back_unit[];
extern char MSG_compare[];
extern char MSG_forw_del_unit[];
extern char MSG_forw_unit[];
extern char MSG_link_windows[];
extern char MSG_print[];
extern char MSG_back_search[];
extern char MSG_forw_search[];
extern char MSG_back_page[];
extern char MSG_copy_region[];
extern char MSG_extended_command[];
extern char MSG_up_window[];
extern char MSG_search_again[];
extern char MSG_bind_to_key[];
extern char MSG_file_visit_split[];
extern char MSG_yank_buffer[];
extern char MSG_save_region[];
extern char MSG_use_buffer_split[];
extern char MSG_no_f_tb[];
#define SPECIAL 0x1F /* Special keys */
typedef struct key_name_array
{
int key_code;
char *func_name_str;
char *key_name_str;
} KEY_NAME_ARRAY;
#if MSDOS
extern bool wang_pc;
extern bool ibm_pc;
#endif
/*
* The keyboard's special characters, those things that are prefixed with
* a 0x1F, are placed into the keyboard tables as KCTRL || 0x800 || x, for some
* x i.e. they have both the control and 0x800 bits set, so they won't conflict
* with anything else on the keyboard.
*/
/*
* Names for the keys with basic keycode
* between KFIRST and KLAST (inclusive). This is used by
* the key name routine in "kbd.c".
*/
#if MSDOS
KEY_NAME_ARRAY wang_keys[] =
{
KCTRL | KFIRST | 0x00, MSG_bind_to_key, "Indent",
/* KCTRL | KFIRST | 0x01, NULL, "Page", */
KCTRL | KFIRST | 0x02, MSG_reposition_window, "Center",
/* KCTRL | KFIRST | 0x03, NULL, "DecTab", */
/* KCTRL | KFIRST | 0x04, NULL, "Format", */
/* KCTRL | KFIRST | 0x05, NULL, "Merge", */
/* KCTRL | KFIRST | 0x06, NULL, "Note", */
KCTRL | KFIRST | 0x07, MSG_set_mark, "Stop",
KCTRL | KFIRST | 0x08, MSG_forw_search, "Search",
KCTRL | KFIRST | 0x09, MSG_yank, "Replace",
KCTRL | KFIRST | 0x0A, MSG_copy_region, "Copy",
KCTRL | KFIRST | 0x0B, MSG_kill_region, "Move",
KCTRL | KFIRST | 0x0C, MSG_extended_command, "Command",
KCTRL | KFIRST | 0x0D, MSG_forw_window, "UpDown",
/* KCTRL | KFIRST | 0x0E, NULL, "BlankKey", */
KCTRL | KFIRST | 0x0F, MSG_goto_line, "GoTo",
/* KCTRL | KFIRST | 0x10, NULL, "Sh-Indent", */
/* KCTRL | KFIRST | 0x11, NULL, "Sh-Page", */
/* KCTRL | KFIRST | 0x12, NULL, "Sh-Center", */
/* KCTRL | KFIRST | 0x13, NULL, "Sh-DecTab", */
/* KCTRL | KFIRST | 0x14, NULL, "Sh-Format", */
/* KCTRL | KFIRST | 0x15, NULL, "Sh-Merge", */
/* KCTRL | KFIRST | 0x16, NULL, "Sh-Note", */
/* KCTRL | KFIRST | 0x17, NULL, "Sh-Stop", */
KCTRL | KFIRST | 0x18, MSG_search_again, "Sh-Search",
KCTRL | KFIRST | 0x19, MSG_query_replace, "Sh-Replace",
/* KCTRL | KFIRST | 0x1A, NULL, "Sh-Copy", */
/* KCTRL | KFIRST | 0x1B, NULL, "Sh-Move", */
/* KCTRL | KFIRST | 0x1C, NULL, "Sh-Command", */
KCTRL | KFIRST | 0x1D, MSG_split_window, "Sh-UpDown",
/* KCTRL | KFIRST | 0x1E, NULL, "Sh-BlankKey", */
/* KCTRL | KFIRST | 0x1F, NULL, "Sh-GoTo", */
KCTRL | KFIRST | 0x40, MSG_back_line, "North",
KCTRL | KFIRST | 0x41, MSG_forw_char, "East",
KCTRL | KFIRST | 0x42, MSG_forw_line, "South",
KCTRL | KFIRST | 0x43, MSG_back_char, "West",
KCTRL | KFIRST | 0x44, MSG_byte_shift, "Home",
/* KCTRL | KFIRST | 0x45, NULL, "Execute", */
KCTRL | KFIRST | 0x46, MSG_ins_toggle, "Insert",
KCTRL | KFIRST | 0x47, MSG_forw_del_char, "Delete",
KCTRL | KFIRST | 0x48, MSG_back_page, "PrevPage",
KCTRL | KFIRST | 0x49, MSG_forw_page, "NextPage",
/* KCTRL | KFIRST | 0x4B, NULL, "Erase", */
/* KCTRL | KFIRST | 0x4D, NULL, "BackTab", */
/* KCTRL | KFIRST | 0x50, NULL, "Sh-North", */
KCTRL | KFIRST | 0x51, MSG_forw_unit, "Sh-East",
/* KCTRL | KFIRST | 0x52, NULL, "Sh-South", */
KCTRL | KFIRST | 0x53, MSG_back_unit, "Sh-West",
/* KCTRL | KFIRST | 0x54, NULL, "Sh-Home", */
KCTRL | KFIRST | 0x55, MSG_execute_macro, "Sh-Execute",
/* KCTRL | KFIRST | 0x56, NULL, "Sh-Insert", */
KCTRL | KFIRST | 0x57, MSG_forw_del_unit, "Sh-Delete",
KCTRL | KFIRST | 0x58, MSG_goto_bob, "Sh-PrevPage",
KCTRL | KFIRST | 0x59, MSG_goto_eob, "Sh-NextPage",
/* KCTRL | KFIRST | 0x5B, NULL, "Sh-Erase", */
/* KCTRL | KFIRST | 0x5C, NULL, "Sh-Tab", */
/* KCTRL | KFIRST | 0x5D, NULL, "Sh-BackTab", */
KCTRL | KFIRST | 0x60, MSG_abort, "Cancel",
KMETA | KCTRL | KFIRST | 0x60, MSG_abort, "Cancel",
KCTLX | KCTRL | KFIRST | 0x60, MSG_abort, "Ctl-X Cancel",
KCTRL | KFIRST | 0x61, MSG_display_bindings, "Help",
/* KCTRL | KFIRST | 0x62, NULL, "Glossary", */
KCTRL | KFIRST | 0x63, MSG_print, "Print",
KCTRL | KFIRST | 0x71, MSG_help, "Sh-Help",
/* KCTRL | KFIRST | 0x72, NULL, "Sh-Glossary", */
/* KCTRL | KFIRST | 0x73, NULL, "Sh-Print", */
0, NULL, NULL
};
#endif
#if defined(MSDOS) || defined(OS2)
KEY_NAME_ARRAY ibm_keys[] =
{
KCTLX | KFIRST | 0x3B, MSG_display_bindings, "F1",
KCTLX | KFIRST | 0x3C, MSG_set_mark, "F2",
KCTLX | KFIRST | 0x3D, MSG_forw_search, "F3",
KCTLX | KFIRST | 0x3E, MSG_search_again, "F4",
KCTLX | KFIRST | 0x3F, MSG_query_replace, "F5",
KCTLX | KFIRST | 0x40, MSG_yank, "F6",
KCTLX | KFIRST | 0x41, MSG_copy_region, "F7",
KCTLX | KFIRST | 0x42, MSG_kill_region, "F8",
KCTLX | KFIRST | 0x43, MSG_goto_line, "F9",
KCTLX | KFIRST | 0x44, NULL, "F10",
KCTLX | KFIRST | 0x85, NULL, "F11",
KCTLX | KFIRST | 0x86, NULL, "F12",
KCTLX | KFIRST | 0x54, MSG_help, "Sh-F1",
KCTLX | KFIRST | 0x55, MSG_file_read, "Sh-F2",
KCTLX | KFIRST | 0x56, MSG_file_save, "Sh-F3",
KCTLX | KFIRST | 0x57, MSG_file_visit, "Sh-F4",
KCTLX | KFIRST | 0x58, MSG_file_write, "Sh-F5",
KCTLX | KFIRST | 0x59, MSG_flush_all, "Sh-F6",
KCTLX | KFIRST | 0x5A, MSG_set_file_name, "Sh-F7",
KCTLX | KFIRST | 0x5B, MSG_file_insert, "Sh-F8",
KCTLX | KFIRST | 0x5C, MSG_exit_flush_all, "Sh-F9",
KCTLX | KFIRST | 0x5D, MSG_quit, "Sh-F10",
KCTLX | KFIRST | 0x87, NULL, "Sh-F11",
KCTLX | KFIRST | 0x88, NULL, "Sh-F12",
KCTLX | KFIRST | 0x5E, MSG_display_buffers, "Ctl-F1",
KCTLX | KFIRST | 0x5F, MSG_use_buffer, "Ctl-F2",
KCTLX | KFIRST | 0x60, MSG_kill_buffer, "Ctl-F3",
KCTLX | KFIRST | 0x61, MSG_next_buff, "Ctl-F4",
KCTLX | KFIRST | 0x62, MSG_prev_buff, "Ctl-F5",
KCTLX | KFIRST | 0x63, MSG_yank_buffer, "Ctl-F6",
KCTLX | KFIRST | 0x64, MSG_set_file_name, "Ctl-F7",
KCTLX | KFIRST | 0x65, MSG_file_insert, "Ctl-F8",
KCTLX | KFIRST | 0x66, MSG_exit_flush_all, "Ctl-F9",
KCTLX | KFIRST | 0x67, MSG_quit, "Ctl-F10",
KCTLX | KFIRST | 0x89, NULL, "Ctl-F11",
KCTLX | KFIRST | 0x8A, NULL, "Ctl-F12",
KCTLX | KFIRST | 0x68, NULL, "Alt-F1",
KCTLX | KFIRST | 0x69, NULL, "Alt-F2",
KCTLX | KFIRST | 0x6A, NULL, "Alt-F3",
KCTLX | KFIRST | 0x6B, NULL, "Alt-F4",
KCTLX | KFIRST | 0x6C, NULL, "Alt-F5",
KCTLX | KFIRST | 0x6D, NULL, "Alt-F6",
KCTLX | KFIRST | 0x6E, NULL, "Alt-F7",
KCTLX | KFIRST | 0x6F, NULL, "Alt-F8",
KCTLX | KFIRST | 0x70, NULL, "Alt-F9",
KCTLX | KFIRST | 0x71, NULL, "Alt-F10",
KCTLX | KFIRST | 0x8B, NULL, "Alt-F11",
KCTLX | KFIRST | 0x8C, NULL, "Alt-F12",
KCTLX | KFIRST | 0x48, MSG_back_line, "North",
KCTLX | KFIRST | 0x4D, MSG_forw_char, "East",
KCTLX | KFIRST | 0x50, MSG_forw_line, "South",
KCTLX | KFIRST | 0x4B, MSG_back_char, "West",
KCTLX | KFIRST | 0x8D, MSG_back_line, "Ctl-North",
KCTLX | KFIRST | 0x74, MSG_forw_unit, "Ctl-East",
KCTLX | KFIRST | 0x91, MSG_forw_line, "Ctl-South",
KCTLX | KFIRST | 0x73, MSG_back_unit, "Ctl-West",
KCTLX | KFIRST | 0x98, NULL, "Alt-North",
KCTLX | KFIRST | 0x9D, NULL, "Alt-East",
KCTLX | KFIRST | 0xA0, NULL, "Alt-South",
KCTLX | KFIRST | 0x9B, NULL, "Alt-West",
KCTLX | KFIRST | 0x49, MSG_back_page, "PageDown",
KCTLX | KFIRST | 0x51, MSG_forw_page, "PageUp",
KCTLX | KFIRST | 0x47, MSG_goto_bob, "Home",
KCTLX | KFIRST | 0x4F, MSG_goto_eob, "End",
KCTLX | KFIRST | 0x4C, NULL, "Center",
KCTLX | KFIRST | 0x76, MSG_forw_window, "Ctl-PageDown",
KCTLX | KFIRST | 0x84, MSG_back_window, "Ctl-PageUp",
KCTLX | KFIRST | 0x77, MSG_goto_bob, "Ctl-Home",
KCTLX | KFIRST | 0x75, MSG_goto_eob, "Ctl-End",
KCTLX | KFIRST | 0x8F, NULL, "Ctl-Center",
KCTLX | KFIRST | 0xA1, NULL, "Alt-PageDown",
KCTLX | KFIRST | 0x99, NULL, "Alt-PageUp",
KCTLX | KFIRST | 0x97, NULL, "Alt-Home",
KCTLX | KFIRST | 0x9F, NULL, "Alt-End",
KCTLX | KFIRST | 0x52, MSG_ins_toggle, "Insert",
KCTLX | KFIRST | 0x53, MSG_forw_del_char, "Delete",
KCTLX | KFIRST | 0x92, NULL, "Ctl-Insert",
KCTLX | KFIRST | 0x93, NULL, "Ctl-Delete",
KCTLX | KFIRST | 0xA2, NULL, "Alt-Insert",
KCTLX | KFIRST | 0xA3, NULL, "Alt-Delete",
KCTLX | KFIRST | 0x72, MSG_print, "Ctl-Print",
KCTLX | KFIRST | 0x0F, NULL, "Sh-Tab",
KCTLX | KFIRST | 0x94, NULL, "Ctl-Tab",
KCTLX | KFIRST | 0xA5, NULL, "Alt-Tab",
KCTLX | KFIRST | 0x95, NULL, "Ctrl-Num/",
KCTLX | KFIRST | 0x96, NULL, "Ctrl-Num*",
KCTLX | KFIRST | 0x8E, NULL, "Ctrl-Num-",
KCTLX | KFIRST | 0x90, NULL, "Ctrl-Num+",
KCTLX | KFIRST | 0xA4, NULL, "Alt-Num/",
KCTLX | KFIRST | 0x37, NULL, "Alt-Num*",
KCTLX | KFIRST | 0x4A, NULL, "Alt-Num-",
KCTLX | KFIRST | 0x4E, NULL, "Alt-Num+",
KCTLX | KFIRST | 0xA6, NULL, "Alt-NumEnter",
KCTLX | KFIRST | 0x01, NULL, "Alt-Esc",
KCTLX | KFIRST | 0x1C, NULL, "Alt-Enter",
KCTLX | KFIRST | 0x0E, NULL, "Alt-Backspace",
KCTLX | KFIRST | 0x1E, NULL, "Alt-A",
KCTLX | KFIRST | 0x30, NULL, "Alt-B",
KCTLX | KFIRST | 0x2E, NULL, "Alt-C",
KCTLX | KFIRST | 0x20, NULL, "Alt-D",
KCTLX | KFIRST | 0x12, NULL, "Alt-E",
KCTLX | KFIRST | 0x21, NULL, "Alt-F",
KCTLX | KFIRST | 0x22, NULL, "Alt-G",
KCTLX | KFIRST | 0x23, NULL, "Alt-H",
KCTLX | KFIRST | 0x17, NULL, "Alt-I",
KCTLX | KFIRST | 0x24, NULL, "Alt-J",
KCTLX | KFIRST | 0x25, NULL, "Alt-K",
KCTLX | KFIRST | 0x26, NULL, "Alt-L",
KCTLX | KFIRST | 0x32, NULL, "Alt-M",
KCTLX | KFIRST | 0x31, NULL, "Alt-N",
KCTLX | KFIRST | 0x18, NULL, "Alt-O",
KCTLX | KFIRST | 0x19, NULL, "Alt-P",
KCTLX | KFIRST | 0x10, NULL, "Alt-Q",
KCTLX | KFIRST | 0x13, NULL, "Alt-R",
KCTLX | KFIRST | 0x1F, NULL, "Alt-S",
KCTLX | KFIRST | 0x14, NULL, "Alt-T",
KCTLX | KFIRST | 0x16, NULL, "Alt-U",
KCTLX | KFIRST | 0x2F, NULL, "Alt-V",
KCTLX | KFIRST | 0x11, NULL, "Alt-W",
KCTLX | KFIRST | 0x2D, NULL, "Alt-X",
KCTLX | KFIRST | 0x15, NULL, "Alt-Y",
KCTLX | KFIRST | 0x2C, NULL, "Alt-Z",
KCTLX | KFIRST | 0x78, NULL, "Alt-1",
KCTLX | KFIRST | 0x79, NULL, "Alt-2",
KCTLX | KFIRST | 0x7A, NULL, "Alt-3",
KCTLX | KFIRST | 0x7B, NULL, "Alt-4",
KCTLX | KFIRST | 0x7C, NULL, "Alt-5",
KCTLX | KFIRST | 0x7D, NULL, "Alt-6",
KCTLX | KFIRST | 0x7E, NULL, "Alt-7",
KCTLX | KFIRST | 0x7F, NULL, "Alt-8",
KCTLX | KFIRST | 0x80, NULL, "Alt-9",
KCTLX | KFIRST | 0x81, NULL, "Alt-0",
0, NULL, NULL
};
#endif
/*
* Read in a key, doing the low level mapping
* of ASCII code to 12 bit code. This level deals with
* mapping the special keys into their spots in the C1
* control area. The C0 controls go right through, and
* get remapped by "getkey".
*/
static int unkey = KRANDOM; /* jam - for ungetkey */
void
ungetkey (k)
int k;
{
unkey = k;
}
int
getkbd ()
{
register int c;
if (unkey == KRANDOM) /* jam */
c = ttgetc ();
else
{
c = unkey;
unkey = KRANDOM;
}
if (c == SPECIAL)
{
c = ttgetc ();
if ((c == 0xCD) || (c == 0xDD)) /* Backtab is meta */
return (METACH);
return (c | KCTRL);
}
if (c == 0 || c == 0xE0)
{
c = ttgetc ();
return (c | KFIRST | KCTLX);
}
return (c);
}
/*
* Terminal specific keymap initialization.
* Attach the special keys to the appropriate built
* in functions.
* As is the case of all the keymap routines, errors
* are very fatal.
*/
void
ttykeymapinit ()
{
#ifdef MSDOS
KEY_NAME_ARRAY *ptr;
int i;
char buf[NCOL];
if (wang_pc)
ptr = wang_keys;
if (ibm_pc)
ptr = ibm_keys;
if (!wang_pc && !ibm_pc)
return;
i = 0;
while (ptr->key_code != 0)
{
if (ptr->func_name_str != NULL)
keydup (ptr->key_code, ptr->func_name_str);
ptr++;
i++;
}
sprintf (buf, MSG_sp_key, i);
writ_echo (buf);
#endif
#ifdef OS2
KEY_NAME_ARRAY *ptr;
int i;
char buf[NCOL];
ptr = ibm_keys;
i = 0;
while (ptr->key_code != 0)
{
if (ptr->func_name_str != NULL)
keydup (ptr->key_code, ptr->func_name_str);
ptr++;
i++;
}
/* sprintf (buf, MSG_sp_key, i);
writ_echo (buf); */
#endif
}
/*
* Search key name array for given key code.
* return pointer to key name.
*/
char *
keystrings (key)
int key;
{
#ifdef MSDOS
KEY_NAME_ARRAY *ptr;
if (wang_pc)
ptr = wang_keys;
if (ibm_pc)
ptr = ibm_keys;
if (!wang_pc && !ibm_pc)
return (NULL);
while (ptr->key_code != 0)
{
if (key == ptr->key_code)
{
return (ptr->key_name_str);
}
ptr++;
}
#endif
#ifdef OS2
KEY_NAME_ARRAY *ptr = ibm_keys;
while (ptr->key_code != 0)
{
if (key == ptr->key_code)
{
return (ptr->key_name_str);
}
ptr++;
}
#endif
return (NULL);
}