|
|
1 | /*----------------------------------------------------------------------* |
|
|
2 | * File: keyboard.C |
|
|
3 | *----------------------------------------------------------------------* |
|
|
4 | * |
|
|
5 | * All portions of code are copyright by their respective author/s. |
|
|
6 | * Copyright (c) 2005 WU Fengguang |
|
|
7 | * Copyright (c) 2005-2006 Marc Lehmann <pcg@goof.com> |
|
|
8 | * |
|
|
9 | * This program is free software; you can redistribute it and/or modify |
|
|
10 | * it under the terms of the GNU General Public License as published by |
|
|
11 | * the Free Software Foundation; either version 2 of the License, or |
|
|
12 | * (at your option) any later version. |
|
|
13 | * |
|
|
14 | * This program is distributed in the hope that it will be useful, |
|
|
15 | * but WITHOUT ANY WARRANTY; without even the implied warranty of |
|
|
16 | * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the |
|
|
17 | * GNU General Public License for more details. |
|
|
18 | * |
|
|
19 | * You should have received a copy of the GNU General Public License |
|
|
20 | * along with this program; if not, write to the Free Software |
|
|
21 | * Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. |
|
|
22 | *----------------------------------------------------------------------*/ |
|
|
23 | |
1 | #include "../config.h" |
24 | #include "../config.h" |
2 | #include "rxvt.h" |
25 | #include "rxvt.h" |
3 | |
26 | |
4 | #ifdef KEYSYM_RESOURCE |
27 | #ifdef KEYSYM_RESOURCE |
5 | |
28 | |
… | |
… | |
46 | // default keycode translation map and keyevent handlers |
69 | // default keycode translation map and keyevent handlers |
47 | |
70 | |
48 | keysym_t keyboard_manager::stock_keymap[] = { |
71 | keysym_t keyboard_manager::stock_keymap[] = { |
49 | /* examples */ |
72 | /* examples */ |
50 | /* keysym, state, range, handler, str */ |
73 | /* keysym, state, range, handler, str */ |
51 | //{XK_ISO_Left_Tab, 0, 1, keysym_t::NORMAL, "\033[Z"}, |
74 | //{XK_ISO_Left_Tab, 0, 1, keysym_t::STRING, "\033[Z"}, |
52 | //{ 'a', 0, 26, keysym_t::RANGE_META8, "a" "%c"}, |
75 | //{ 'a', 0, 26, keysym_t::RANGE_META8, "a" "%c"}, |
53 | //{ 'a', ControlMask, 26, keysym_t::RANGE_META8, "" "%c"}, |
76 | //{ 'a', ControlMask, 26, keysym_t::RANGE_META8, "" "%c"}, |
54 | //{ XK_Left, 0, 4, keysym_t::LIST, ".\033[.DACB."}, |
77 | //{ XK_Left, 0, 4, keysym_t::LIST, ".\033[.DACB."}, |
55 | //{ XK_Left, ShiftMask, 4, keysym_t::LIST, ".\033[.dacb."}, |
78 | //{ XK_Left, ShiftMask, 4, keysym_t::LIST, ".\033[.dacb."}, |
56 | //{ XK_Left, ControlMask, 4, keysym_t::LIST, ".\033O.dacb."}, |
79 | //{ XK_Left, ControlMask, 4, keysym_t::LIST, ".\033O.dacb."}, |
57 | //{ XK_Tab, ControlMask, 1, keysym_t::NORMAL, "\033<C-Tab>"}, |
80 | //{ XK_Tab, ControlMask, 1, keysym_t::STRING, "\033<C-Tab>"}, |
58 | //{ XK_apostrophe, ControlMask, 1, keysym_t::NORMAL, "\033<C-'>"}, |
81 | //{ XK_apostrophe, ControlMask, 1, keysym_t::STRING, "\033<C-'>"}, |
59 | //{ XK_slash, ControlMask, 1, keysym_t::NORMAL, "\033<C-/>"}, |
82 | //{ XK_slash, ControlMask, 1, keysym_t::STRING, "\033<C-/>"}, |
60 | //{ XK_semicolon, ControlMask, 1, keysym_t::NORMAL, "\033<C-;>"}, |
83 | //{ XK_semicolon, ControlMask, 1, keysym_t::STRING, "\033<C-;>"}, |
61 | //{ XK_grave, ControlMask, 1, keysym_t::NORMAL, "\033<C-`>"}, |
84 | //{ XK_grave, ControlMask, 1, keysym_t::STRING, "\033<C-`>"}, |
62 | //{ XK_comma, ControlMask, 1, keysym_t::NORMAL, "\033<C-\054>"}, |
85 | //{ XK_comma, ControlMask, 1, keysym_t::STRING, "\033<C-\054>"}, |
63 | //{ XK_Return, ControlMask, 1, keysym_t::NORMAL, "\033<C-Return>"}, |
86 | //{ XK_Return, ControlMask, 1, keysym_t::STRING, "\033<C-Return>"}, |
64 | //{ XK_Return, ShiftMask, 1, keysym_t::NORMAL, "\033<S-Return>"}, |
87 | //{ XK_Return, ShiftMask, 1, keysym_t::STRING, "\033<S-Return>"}, |
65 | //{ ' ', ShiftMask, 1, keysym_t::NORMAL, "\033<S-Space>"}, |
88 | //{ ' ', ShiftMask, 1, keysym_t::STRING, "\033<S-Space>"}, |
66 | //{ '.', ControlMask, 1, keysym_t::NORMAL, "\033<C-.>"}, |
89 | //{ '.', ControlMask, 1, keysym_t::STRING, "\033<C-.>"}, |
67 | //{ '0', ControlMask, 10, keysym_t::RANGE, "0" "\033<C-%c>"}, |
90 | //{ '0', ControlMask, 10, keysym_t::RANGE, "0" "\033<C-%c>"}, |
68 | //{ '0', MetaMask|ControlMask, 10, keysym_t::RANGE, "0" "\033<M-C-%c>"}, |
91 | //{ '0', MetaMask|ControlMask, 10, keysym_t::RANGE, "0" "\033<M-C-%c>"}, |
69 | //{ 'a', MetaMask|ControlMask, 26, keysym_t::RANGE, "a" "\033<M-C-%c>"}, |
92 | //{ 'a', MetaMask|ControlMask, 26, keysym_t::RANGE, "a" "\033<M-C-%c>"}, |
70 | }; |
93 | }; |
71 | #endif |
94 | #endif |
… | |
… | |
74 | output_string (rxvt_term *rt, const char *str) |
97 | output_string (rxvt_term *rt, const char *str) |
75 | { |
98 | { |
76 | if (strncmp (str, "command:", 8) == 0) |
99 | if (strncmp (str, "command:", 8) == 0) |
77 | rt->cmd_write (str + 8, strlen (str) - 8); |
100 | rt->cmd_write (str + 8, strlen (str) - 8); |
78 | else if (strncmp (str, "perl:", 5) == 0) |
101 | else if (strncmp (str, "perl:", 5) == 0) |
79 | PERL_INVOKE((rt, HOOK_KEYBOARD_COMMAND, DT_STRING, str + 5, DT_END)); |
102 | HOOK_INVOKE((rt, HOOK_USER_COMMAND, DT_STR, str + 5, DT_END)); |
80 | else |
103 | else |
81 | rt->tt_write (str, strlen (str)); |
104 | rt->tt_write (str, strlen (str)); |
82 | } |
105 | } |
83 | |
106 | |
84 | static void |
107 | static void |
… | |
… | |
201 | { |
224 | { |
202 | key->keysym = keysym; |
225 | key->keysym = keysym; |
203 | key->state = state; |
226 | key->state = state; |
204 | key->range = 1; |
227 | key->range = 1; |
205 | key->str = translation; |
228 | key->str = translation; |
206 | key->type = keysym_t::NORMAL; |
229 | key->type = keysym_t::STRING; |
207 | |
230 | |
208 | if (strncmp (translation, "list", 4) == 0 && translation [4]) |
231 | if (strncmp (translation, "list", 4) == 0 && translation [4]) |
209 | { |
232 | { |
210 | char *middle = strchr (translation + 5, translation [4]); |
233 | char *middle = strchr (translation + 5, translation [4]); |
211 | char *suffix = strrchr (translation + 5, translation [4]); |
234 | char *suffix = strrchr (translation + 5, translation [4]); |
… | |
… | |
213 | if (suffix && middle && suffix > middle + 1) |
236 | if (suffix && middle && suffix > middle + 1) |
214 | { |
237 | { |
215 | key->type = keysym_t::LIST; |
238 | key->type = keysym_t::LIST; |
216 | key->range = suffix - middle - 1; |
239 | key->range = suffix - middle - 1; |
217 | |
240 | |
218 | strcpy (translation, translation + 4); |
241 | memmove (translation, translation + 4, strlen (translation + 4) + 1); |
219 | } |
242 | } |
220 | else |
243 | else |
221 | rxvt_warn ("cannot parse list-type keysym '%s', treating as normal keysym.\n", translation); |
244 | rxvt_warn ("cannot parse list-type keysym '%s', treating as normal keysym.\n", translation); |
222 | } |
245 | } |
223 | else if (strncmp (translation, "builtin:", 8) == 0) |
246 | else if (strncmp (translation, "builtin:", 8) == 0) |
… | |
… | |
291 | // TODO: do (some) translations, unescaping etc, here (allow \u escape etc.) |
314 | // TODO: do (some) translations, unescaping etc, here (allow \u escape etc.) |
292 | free (wc); |
315 | free (wc); |
293 | |
316 | |
294 | switch (key.type) |
317 | switch (key.type) |
295 | { |
318 | { |
296 | case keysym_t::NORMAL: |
319 | case keysym_t::STRING: |
297 | output_string (term, str); |
320 | output_string (term, str); |
298 | break; |
321 | break; |
299 | |
322 | |
300 | case keysym_t::RANGE: |
323 | case keysym_t::RANGE: |
301 | { |
324 | { |
… | |
… | |
420 | ++hash_budget_counter [hashkey]; |
443 | ++hash_budget_counter [hashkey]; |
421 | } |
444 | } |
422 | |
445 | |
423 | keymap.swap (sorted_keymap); |
446 | keymap.swap (sorted_keymap); |
424 | |
447 | |
425 | #if defined (DEBUG_STRICT) || defined (DEBUG_KEYBOARD) |
448 | #ifdef DEBUG_STRICT |
426 | // check for invariants |
449 | // check for invariants |
427 | for (i = 0; i < KEYSYM_HASH_BUDGETS; ++i) |
450 | for (i = 0; i < KEYSYM_HASH_BUDGETS; ++i) |
428 | { |
451 | { |
429 | index = hash[i]; |
452 | index = hash[i]; |
430 | for (int j = 0; j < hash_budget_size [i]; ++j) |
453 | for (int j = 0; j < hash_budget_size [i]; ++j) |