mirror of
https://github.com/Interlisp/maiko.git
synced 2026-01-13 23:27:12 +00:00
260 lines
7.8 KiB
C
260 lines
7.8 KiB
C
#ifndef XKEYMAP_H
|
|
#define XKEYMAP_H 1
|
|
|
|
/* $Id: XKeymap.h,v 1.2 1999/01/03 02:05:48 sybalsky Exp $ (C) Copyright Venue, All Rights Reserved
|
|
*/
|
|
|
|
/************************************************************************/
|
|
/* */
|
|
/* (C) Copyright 1989-92 Venue. All Rights Reserved. */
|
|
/* Manufactured in the United States of America. */
|
|
/* */
|
|
/************************************************************************/
|
|
|
|
/************************************************************************/
|
|
/* */
|
|
/* Generic X-keyboard map for Medley. This table is used at */
|
|
/* start-up time to create the table that maps X keycodes to */
|
|
/* Medley key numbers. */
|
|
/* */
|
|
/* This is done by asking X for the keycodes that correspond */
|
|
/* to given KEYSYMs (X's machine-independent coding scheme), */
|
|
/* and building the table. This has one problem: The mapping */
|
|
/* for non-ASCII characters isn't standard among keyboards. To */
|
|
/* get as reasonable a map as possible, the table below contains */
|
|
/* possibly several mappings for each Medley key number. Since */
|
|
/* not every keyboard has every key (e.g., Alt vs Meta), there */
|
|
/* may also be several mappings for a single KEYSYM. */
|
|
/* */
|
|
/* Here's how it works: Each entry is tried in turn. If the */
|
|
/* Medley key number we'd be assigning is already assigned a */
|
|
/* mapping, skip this entry. If not, assign this mapping, and */
|
|
/* set the "this-KEYSYM-used" flag. If this is a new KEYSYM, */
|
|
/* reset the flag before trying anything. If the "used" flag */
|
|
/* is set, skip until we find a new KEYSYM. */
|
|
/* */
|
|
/* Constraints: */
|
|
/* Put the better key-number assignment earlier. */
|
|
/* Put the better KEYSYM assignment earlier. */
|
|
/* All entries for a single KEYSYM -must- be adjacent */
|
|
/* Final entry in the map has key number -1. */
|
|
/* */
|
|
/************************************************************************/
|
|
/* */
|
|
/* C H A N G E H I S T O R Y */
|
|
/* */
|
|
/* 23 SEP 91 JDS: Rearrange CUT, BS, and DEL keys to assure that */
|
|
/* we get a BS key first, then a CUT key, then, */
|
|
/* if there's a key left, a DEL (BW) key. */
|
|
/* */
|
|
/* 26 MAY 92 JDS: Rearrange keys for PC kbd layout. */
|
|
/* */
|
|
/* */
|
|
/* */
|
|
/* */
|
|
/* */
|
|
/* */
|
|
/************************************************************************/
|
|
|
|
#ifdef XWINDOW
|
|
/*
|
|
* triples in this array are interpreted in initkbd.c as
|
|
* reusable, (Lisp keyboard) code, (X keysym) symbol
|
|
*/
|
|
static const int generic_X_keymap[] = {
|
|
0, 107, 0x1000ff10, /* Un-named KEYSYM used on Sun kbd for F11 */
|
|
0, 108, 0x1000ff11, /* Un-named KEYSYM used on Sun kbd for F12 */
|
|
0, 107, XK_F11,
|
|
0, 61, XK_F11, /* STOP, usual sun type-4 kbd key */
|
|
0, 61, XK_Pause, /* STOP, Pause/break key on PC */
|
|
0, 108, XK_F12,
|
|
0, 91, XK_F12,
|
|
0, 61, XK_L1,
|
|
0, 91, XK_L2,
|
|
0, 97, XK_Help,
|
|
0, 99, XK_F2,
|
|
0, 106, XK_F10,
|
|
0, 100, XK_F3,
|
|
0, 67, XK_F4,
|
|
0, 68, XK_F5,
|
|
0, 101, XK_F6,
|
|
0, 66, XK_F7,
|
|
0, 104, XK_F8,
|
|
0, 80, XK_F9,
|
|
0, 31, XK_Meta_L, /* Meta, standard meta key */
|
|
0, 86, XK_Meta_L, /* (sun left-diamond key) */
|
|
0, 31, XK_Alt_L, /* Meta, Sun-4 usual key */
|
|
0, 86, XK_Alt_L, /* (sun left-diamond key) */
|
|
0, 75, XK_F21,
|
|
0, 110, XK_F22,
|
|
0, 74, XK_F23,
|
|
0, 109, XK_F13,
|
|
0, 14, XK_F15, /* SAME key on Sun type-4 kbd */
|
|
#ifdef XK_Scroll_Lock
|
|
0, 14, XK_Scroll_Lock, /* SAME key on PC kbd */
|
|
#endif /* .. scroll .. */
|
|
0, 33, XK_Escape,
|
|
0, 32, XK_1,
|
|
0, 32, XK_exclam,
|
|
0, 17, XK_2,
|
|
0, 17, XK_at,
|
|
0, 16, XK_3,
|
|
0, 16, XK_numbersign,
|
|
0, 1, XK_4,
|
|
0, 1, XK_dollar,
|
|
0, 0, XK_5,
|
|
0, 0, XK_percent,
|
|
0, 2, XK_6,
|
|
0, 2, XK_asciicircum,
|
|
0, 4, XK_7,
|
|
0, 4, XK_ampersand,
|
|
0, 53, XK_8,
|
|
0, 53, XK_asterisk,
|
|
0, 22, XK_9,
|
|
0, 22, XK_parenleft,
|
|
0, 8, XK_0,
|
|
0, 8, XK_parenright,
|
|
0, 10, XK_minus,
|
|
0, 10, XK_underscore,
|
|
0, 59, XK_equal,
|
|
0, 59, XK_plus,
|
|
0, 45, XK_quoteleft,
|
|
0, 45, XK_asciitilde,
|
|
0, 89, XK_F16, /* Copy, Sun-4 kbd L6 */
|
|
0, 34, XK_Tab,
|
|
0, 19, XK_Q,
|
|
0, 18, XK_W,
|
|
0, 3, XK_E,
|
|
0, 48, XK_R,
|
|
0, 49, XK_T,
|
|
0, 51, XK_Y,
|
|
0, 6, XK_U,
|
|
0, 23, XK_I,
|
|
0, 25, XK_O,
|
|
0, 11, XK_P,
|
|
0, 58, XK_bracketleft,
|
|
0, 58, XK_braceleft,
|
|
0, 29, XK_bracketright,
|
|
0, 29, XK_braceright,
|
|
0, 13, XK_Delete,
|
|
0, 111, XK_F17,
|
|
0, 36, XK_Control_L,
|
|
0, 21, XK_A,
|
|
0, 20, XK_S,
|
|
0, 5, XK_D,
|
|
0, 35, XK_F,
|
|
0, 50, XK_G,
|
|
0, 52, XK_H,
|
|
0, 38, XK_J,
|
|
0, 9, XK_K,
|
|
0, 26, XK_L,
|
|
0, 43, XK_semicolon,
|
|
0, 28, XK_quoteright,
|
|
0, 105, XK_backslash,
|
|
0, 105, XK_bar,
|
|
0, 105, XK_brokenbar,
|
|
0, 44, XK_Return,
|
|
/* 46, XK_F20, See DELETE, CUT, BS below */
|
|
0, 41, XK_Shift_L,
|
|
0, 40, XK_Z,
|
|
0, 24, XK_X,
|
|
0, 37, XK_C,
|
|
0, 7, XK_V,
|
|
0, 39, XK_B,
|
|
0, 54, XK_N,
|
|
0, 55, XK_M,
|
|
0, 27, XK_comma,
|
|
0, 42, XK_period,
|
|
0, 12, XK_slash,
|
|
0, 60, XK_Shift_R,
|
|
0, 71, XK_Linefeed,
|
|
0, 92, XK_Help,
|
|
0, 92, XK_Print, /* PC Kbd Print key, works as HELP */
|
|
0, 56, XK_Caps_Lock,
|
|
0, 86, XK_Meta_L,
|
|
0, 57, XK_space,
|
|
0, 88, XK_Meta_R,
|
|
|
|
/* DELETE, CUT, and BACKSPACE keys. It's important that there */
|
|
/* be a BS key, so we'll take over DEL for that purpose */
|
|
/* if nothing better offers. We also need a CUT key, so we'll */
|
|
/* grab it for THAT if there's a BS key. */
|
|
|
|
0, 15, XK_BackSpace, /* best BS key */
|
|
0, 46, XK_F20, /* CUT key on Sun kbd */
|
|
0, 13, XK_KP_Decimal, /* Keypad DEL/. key if all else fails */
|
|
0, 15, XK_Delete, /* Use DEL for BS if needed */
|
|
0, 46, XK_Delete, /* or for CUT if needed */
|
|
1, 13, XK_Delete, /* Or leave it as BackWord */
|
|
|
|
/* The keypad (right side, numeric entry pad) */
|
|
/* But keypad-decimal is assigned up with DEL & BS */
|
|
0, 98, XK_KP_0, /* Keypad 0 */
|
|
0, 89, XK_Insert, /* Copy, generic INS key */
|
|
0, 98, XK_Insert, /* INS key = Keypad 0 otherwise */
|
|
0, 94, XK_KP_1, /* Keypad 1 */
|
|
0, 94, XK_R13,
|
|
0, 69, XK_KP_2,
|
|
0, 70, XK_KP_3,
|
|
0, 70, XK_F35,
|
|
0, 84, XK_KP_4,
|
|
0, 85, XK_KP_5,
|
|
0, 85, XK_F31,
|
|
0, 87, XK_KP_6,
|
|
0, 81, XK_KP_7,
|
|
0, 81, XK_F27,
|
|
0, 82, XK_KP_8,
|
|
0, 83, XK_F29,
|
|
0, 83, XK_KP_9,
|
|
0, 96, XK_KP_Subtract,
|
|
0, 76, XK_KP_Enter,
|
|
0, 102, XK_KP_Add,
|
|
0, 73, XK_Num_Lock,
|
|
0, 64, XK_KP_Equal,
|
|
0, 64, XK_F24,
|
|
0, 65, XK_KP_Divide,
|
|
0, 65, XK_F25,
|
|
0, 95, XK_KP_Multiply,
|
|
0, 95, XK_F26,
|
|
|
|
/* Arrow keys. If not already assigned by the */
|
|
/* keypad digit assignments above, try assigning */
|
|
/* the new arrow-key key#s assigned for RS/6000 */
|
|
/* Failing that, try assigning the keypad #s. */
|
|
0, 129, XK_Left,
|
|
0, 84, XK_Left,
|
|
|
|
0, 130, XK_Up,
|
|
0, 82, XK_Up,
|
|
|
|
0, 131, XK_Down,
|
|
0, 69, XK_Down,
|
|
|
|
0, 132, XK_Right,
|
|
0, 87, XK_Right,
|
|
|
|
0, 93, XK_Multi_key, /* Expand, Sun type-4 */
|
|
0, 93, XK_Alt_R, /* Expand, RH Alt key */
|
|
0, 93, XK_Mode_switch, /* Expand, RH Alt key on PC kbd */
|
|
/* No key defs may come here! */
|
|
0, 47, XK_Mode_switch, /* Next, Sun-4 Alt-graph key */
|
|
1, 47, XK_Control_R, /* Next, PC's right-hand Ctrl key */
|
|
0, 47, XK_Next, /* Next, Next or PgDn key ? */
|
|
0, 91, XK_Next, /* Again, Next or PgDn key */
|
|
|
|
0, 63, XK_F14, /* Undo, Sun-4 kbd L4 */
|
|
0, 63, XK_Prior, /* Undo, generic Prev or PgUp key */
|
|
|
|
0, 90, XK_F19, /* Find, Sun-4 L9 key */
|
|
0, 90, XK_Find, /* Find, generic Find key */
|
|
0, 90, XK_End, /* End key on PC kbd */
|
|
|
|
0, 62, XK_F18, /* Move key on Sun4 kbd */
|
|
0, 62, XK_Home, /* Home key on PC 101-key kbd */
|
|
|
|
-1, -1, -1};
|
|
|
|
#endif /* XWINDOW */
|
|
|
|
#endif
|