mirror of
https://github.com/Interlisp/maiko.git
synced 2026-01-19 09:18:33 +00:00
Add lisp keynames to document the SDL key map table (#471)
Adding the lisp keynames and reformatting the keymap table to be one line per Lisp key bit makes it easier to see what is going on.
This commit is contained in:
Nick Briggs
GitHub
parent
2e893a75ab
commit
408559b0d8
215
src/sdl.c
215
src/sdl.c
@ -40,109 +40,118 @@ extern int error(const char *s);
|
||||
extern int KBDEventFlg;
|
||||
/* clang-format off */
|
||||
int keymap[] = {
|
||||
0, SDLK_5,
|
||||
1, SDLK_4,
|
||||
2, SDLK_6,
|
||||
3, SDLK_e,
|
||||
4, SDLK_7,
|
||||
5, SDLK_d,
|
||||
6, SDLK_u,
|
||||
7, SDLK_v,
|
||||
8, SDLK_RIGHTPAREN,
|
||||
8, SDLK_0,
|
||||
9, SDLK_k,
|
||||
10, SDLK_MINUS,
|
||||
11, SDLK_p,
|
||||
12, SDLK_SLASH,
|
||||
13, SDLK_KP_PERIOD,
|
||||
14, SDLK_SCROLLLOCK,
|
||||
15, SDLK_BACKSPACE,
|
||||
16, SDLK_3,
|
||||
17, SDLK_2,
|
||||
18, SDLK_w,
|
||||
19, SDLK_q,
|
||||
20, SDLK_s,
|
||||
21, SDLK_a,
|
||||
22, SDLK_LEFTPAREN,
|
||||
22, SDLK_9,
|
||||
23, SDLK_i,
|
||||
24, SDLK_x,
|
||||
25, SDLK_o,
|
||||
26, SDLK_l,
|
||||
27, SDLK_COMMA,
|
||||
28, SDLK_QUOTE,
|
||||
29, SDLK_RIGHTBRACKET,
|
||||
31, SDLK_LALT, /* Meta, Sun-4 usual key */
|
||||
32, SDLK_1,
|
||||
33, SDLK_ESCAPE,
|
||||
34, SDLK_TAB,
|
||||
35, SDLK_f,
|
||||
36, SDLK_LCTRL,
|
||||
37, SDLK_c,
|
||||
38, SDLK_j,
|
||||
39, SDLK_b,
|
||||
40, SDLK_z,
|
||||
41, SDLK_LSHIFT,
|
||||
42, SDLK_PERIOD,
|
||||
43, SDLK_SEMICOLON,
|
||||
43, SDLK_COLON,
|
||||
44, SDLK_RETURN,
|
||||
45, SDLK_BACKQUOTE,
|
||||
47, SDLK_RCTRL,
|
||||
48, SDLK_r,
|
||||
49, SDLK_t,
|
||||
50, SDLK_g,
|
||||
51, SDLK_y,
|
||||
52, SDLK_h,
|
||||
53, SDLK_8,
|
||||
54, SDLK_n,
|
||||
55, SDLK_m,
|
||||
56, SDLK_CAPSLOCK,
|
||||
57, SDLK_SPACE,
|
||||
58, SDLK_LEFTBRACKET,
|
||||
59, SDLK_EQUALS,
|
||||
60, SDLK_RSHIFT,
|
||||
61, SDLK_F11,
|
||||
61, SDLK_PAUSE,
|
||||
62, SDLK_HOME,
|
||||
63, SDLK_PAGEUP,
|
||||
64, SDLK_KP_EQUALS,
|
||||
65, SDLK_KP_DIVIDE,
|
||||
66, SDLK_F7,
|
||||
67, SDLK_F4,
|
||||
68, SDLK_F5,
|
||||
69, SDLK_KP_2,
|
||||
70, SDLK_KP_3,
|
||||
// 71, XK_Linefeed,
|
||||
// 73, XK_Numlock,
|
||||
76, SDLK_KP_ENTER,
|
||||
80, SDLK_F9,
|
||||
81, SDLK_KP_7,
|
||||
82, SDLK_KP_8,
|
||||
83, SDLK_KP_9,
|
||||
84, SDLK_KP_4,
|
||||
85, SDLK_KP_5,
|
||||
86, SDLK_LALT, /* (sun left-diamond key) */
|
||||
87, SDLK_KP_6,
|
||||
89, SDLK_INSERT,
|
||||
90, SDLK_END,
|
||||
91, SDLK_F12,
|
||||
92, SDLK_PRINTSCREEN, // is this XK_Print??
|
||||
93, SDLK_MODE, // is this XK_Mode_switch
|
||||
94, SDLK_KP_1,
|
||||
95, SDLK_KP_MULTIPLY,
|
||||
96, SDLK_KP_MINUS,
|
||||
97, SDLK_HELP,
|
||||
98, SDLK_KP_0,
|
||||
99, SDLK_F2,
|
||||
100, SDLK_F3,
|
||||
101, SDLK_F6,
|
||||
102, SDLK_KP_PLUS,
|
||||
104, SDLK_F8,
|
||||
105, SDLK_BACKSLASH,
|
||||
106, SDLK_F10,
|
||||
107, SDLK_F11,
|
||||
108, SDLK_F12,
|
||||
0, SDLK_5, /* (5 %% FIVE) */
|
||||
1, SDLK_4, /* (4 $ FOUR) */
|
||||
2, SDLK_6, /* (6 ~ SIX) */
|
||||
3, SDLK_e, /* (e E) */
|
||||
4, SDLK_7, /* (7 & SEVEN) */
|
||||
5, SDLK_d, /* (d D) */
|
||||
6, SDLK_u, /* (u U) */
|
||||
7, SDLK_v, /* (v V) */
|
||||
8, SDLK_RIGHTPAREN, 8, SDLK_0, /* (0 %) ZERO) */
|
||||
9, SDLK_k, /* (k K) */
|
||||
10, SDLK_MINUS, /* (- %^X) */
|
||||
11, SDLK_p, /* (p P) */
|
||||
12, SDLK_SLASH, /* (/ ?) */
|
||||
13, SDLK_KP_PERIOD, /* (\ %| FONT LOOKS) */
|
||||
14, SDLK_SCROLLLOCK, /* (LF SAME) */
|
||||
15, SDLK_BACKSPACE, /* (BS <-) */
|
||||
16, SDLK_3, /* (3 %# THREE) */
|
||||
17, SDLK_2, /* (2 @ TWO) */
|
||||
18, SDLK_w, /* (w W) */
|
||||
19, SDLK_q, /* (q Q) */
|
||||
20, SDLK_s, /* (s S) */
|
||||
21, SDLK_a, /* (a A) */
|
||||
22, SDLK_LEFTPAREN, 22, SDLK_9, /* (9 %( NINE) */
|
||||
23, SDLK_i, /* (i I) */
|
||||
24, SDLK_x, /* (x X) */
|
||||
25, SDLK_o, /* (o O) */
|
||||
26, SDLK_l, /* (l L) */
|
||||
27, SDLK_COMMA, /* (%, <) */
|
||||
28, SDLK_QUOTE, /* (%' %") */
|
||||
29, SDLK_RIGHTBRACKET, /* (%] }) */
|
||||
// 30, /* (BLANK-MIDDLE OPEN DBK-HELP) */
|
||||
31, SDLK_LALT, /* Meta, Sun-4 usual key */ /* (BLANK-TOP KEYBOARD DBK-META) */
|
||||
32, SDLK_1, /* (1 ! ONE) */
|
||||
33, SDLK_ESCAPE, /* (ESC ESCAPE ->) */
|
||||
34, SDLK_TAB, /* (TAB =>) */
|
||||
35, SDLK_f, /* (f F) */
|
||||
36, SDLK_LCTRL, /* (CTRL PROP'S EDIT) */
|
||||
37, SDLK_c, /* (c C) */
|
||||
38, SDLK_j, /* (j J) */
|
||||
39, SDLK_b, /* (b B) */
|
||||
40, SDLK_z, /* (z Z) */
|
||||
41, SDLK_LSHIFT, /* (LSHIFT) */
|
||||
42, SDLK_PERIOD, /* (%. >) */
|
||||
43, SDLK_SEMICOLON, 43, SDLK_COLON, /* (; %:) */
|
||||
44, SDLK_RETURN, /* (CR <-%|) */
|
||||
45, SDLK_BACKQUOTE, /* (_ ^) */
|
||||
// 46, /* (DEL DELETE) */
|
||||
47, SDLK_RCTRL, /* (SKIP NEXT) */
|
||||
48, SDLK_r, /* (r R) */
|
||||
49, SDLK_t, /* (t T) */
|
||||
50, SDLK_g, /* (g G) */
|
||||
51, SDLK_y, /* (y Y) */
|
||||
52, SDLK_h, /* (h H) */
|
||||
53, SDLK_8, /* (8 * EIGHT) */
|
||||
54, SDLK_n, /* (n N) */
|
||||
55, SDLK_m, /* (m M) */
|
||||
56, SDLK_CAPSLOCK, /* (LOCK) */
|
||||
57, SDLK_SPACE, /* (SPACE) */
|
||||
58, SDLK_LEFTBRACKET, /* (%[ {) */
|
||||
59, SDLK_EQUALS, /* (= +) */
|
||||
60, SDLK_RSHIFT, /* (RSHIFT) */
|
||||
61, SDLK_F11, 61, SDLK_PAUSE, /* (BLANK-BOTTOM STOP) */
|
||||
62, SDLK_HOME, /* (MOVE) */
|
||||
63, SDLK_PAGEUP, /* (UNDO) */
|
||||
64, SDLK_KP_EQUALS, /* (UTIL0 SUN-KEYPAD=) */
|
||||
65, SDLK_KP_DIVIDE, /* (UTIL1 SUN-KEYPAD/) */
|
||||
66, SDLK_F7, /* (UTIL2 SUPER/SUB) */
|
||||
67, SDLK_F4, /* (UTIL3 CASE) */
|
||||
68, SDLK_F5, /* (UTIL4 STRIKEOUT) */
|
||||
69, SDLK_KP_2, /* (UTIL5 KEYPAD2) */
|
||||
70, SDLK_KP_3, /* (UTIL6 KEYPAD3 PGDN) */
|
||||
// 71, XK_Linefeed, /* (UTIL7 SUN-LF) */
|
||||
// 72, /* (PAD1 LEFTKEY CAPSLOCK KEYPAD+) */
|
||||
// 73, XK_Numlock, /* (PAD2 LEFTMIDDLEKEY NUMLOCK KEYPAD-) */
|
||||
// 74, /* (PAD3 MIDDLEKEY SCROLLLOCK KEYPAD*) */
|
||||
// 75, /* (PAD4 RIGHTMIDDLEKEY BREAK KEYPAD/ SUN-PAUSE) */
|
||||
76, SDLK_KP_ENTER, /* (PAD5 RIGHTKEY DOIT PRTSC) */
|
||||
// 77, /* (LEFT RED MOUSERED) */
|
||||
// 78, /* (RIGHT BLUE MOUSEBLUE) */
|
||||
// 79, /* (MIDDLE YELLOW MOUSEYELLOW) */
|
||||
80, SDLK_F9, /* (MARGINS) */
|
||||
81, SDLK_KP_7, /* (K41 KEYPAD7 HOME) */
|
||||
82, SDLK_KP_8, /* (K42 KEYPAD8) */
|
||||
83, SDLK_KP_9, /* (K43 KEYPAD9 PGUP) */
|
||||
84, SDLK_KP_4, /* (K44 KEYPAD4) */
|
||||
85, SDLK_KP_5, /* (K45 KEYPAD5) */
|
||||
86, SDLK_LALT, /* (sun left-diamond key) */ /* (K46 SUN-LEFT-SPACE) */
|
||||
87, SDLK_KP_6, /* (K47 KEYPAD6) */
|
||||
// 88, /* (K48 RIGHT-COMMAND SUN-RIGHT-SPACE) */
|
||||
89, SDLK_INSERT, /* (COPY) */
|
||||
90, SDLK_END, /* (FIND) */
|
||||
91, SDLK_F12, /* (AGAIN) */
|
||||
92, SDLK_PRINTSCREEN, // is this XK_Print?? /* (HELP) */
|
||||
93, SDLK_MODE, // is this XK_Mode_switch /* (DEF'N EXPAND) */
|
||||
94, SDLK_KP_1, /* (K4E KEYPAD1 END) */
|
||||
95, SDLK_KP_MULTIPLY, /* (ALWAYS-ON-1) */
|
||||
96, SDLK_KP_MINUS, /* (ALWAYS-ON-2) */
|
||||
97, SDLK_HELP, /* (CENTER) */
|
||||
98, SDLK_KP_0, /* (K52 KEYPAD0 INS) */
|
||||
99, SDLK_F2, /* (BOLD) */
|
||||
100, SDLK_F3, /* (ITALICS) */
|
||||
101, SDLK_F6, /* (UNDERLINE) */
|
||||
102, SDLK_KP_PLUS, /* (SUPERSCRIPT) */
|
||||
// 103, /* (SUBSCRIPT) */
|
||||
104, SDLK_F8, /* (LARGER SMALLER) */
|
||||
105, SDLK_BACKSLASH, /* (K59 KEYPAD%| KEYPAD.) */
|
||||
106, SDLK_F10, /* (K5A KEYPAD\ KEYPAD, SUN-F10) */
|
||||
107, SDLK_F11, /* (K5B SUN-F11) */
|
||||
108, SDLK_F12, /* (K5C SUN-F12) */
|
||||
// 109, /* (DEFAULTS SUN-PROP) */
|
||||
// 110, /* (K5E SUN-PRTSC) */
|
||||
// 111, /* (K5F SUN-OPEN) */
|
||||
-1, -1
|
||||
};
|
||||
/* clang-format on */
|
||||
|
||||
Loading…
x
Reference in New Issue
Block a user