]> icculus.org git repositories - btb/d2x.git/blob - arch/sdl/key.c
separate sdl key mapping from actual handler
[btb/d2x.git] / arch / sdl / key.c
1 /*
2  *
3  * SDL keyboard input support
4  *
5  *
6  */
7
8 #ifdef HAVE_CONFIG_H
9 #include <conf.h>
10 #endif
11
12 #include <stdio.h>
13 #include <stdlib.h>
14
15 #include <SDL.h>
16
17 #include "inferno.h"
18 #include "game.h"
19 #include "event.h"
20 #include "error.h"
21 #include "key.h"
22 #include "timer.h"
23 #include "console.h"
24 #include "u_mem.h"
25 #include "mouse.h"
26
27
28 #define KEY_BUFFER_SIZE 16
29
30 static unsigned char Installed = 0;
31
32 //-------- Variable accessed by outside functions ---------
33 unsigned char           keyd_buffer_type; // 0=No buffer, 1=buffer ASCII, 2=buffer scans
34 unsigned char           keyd_repeat;
35 unsigned char           keyd_editor_mode;
36 volatile unsigned char  keyd_last_pressed;
37 volatile unsigned char  keyd_last_released;
38 volatile unsigned char  keyd_pressed[256];
39 volatile int            keyd_time_when_last_pressed;
40
41 typedef struct Key_info {
42         ubyte   state;          // state of key 1 == down, 0 == up
43         ubyte   last_state;     // previous state of key
44         int     counter;        // incremented each time key is down in handler
45         fix     timewentdown;   // simple counter incremented each time in interrupt and key is down
46         fix     timehelddown;   // counter to tell how long key is down -- gets reset to 0 by key routines
47         ubyte   downcount;      // number of key counts key was down
48         ubyte   upcount;        // number of times key was released
49 } Key_info;
50
51 typedef struct keyboard {
52         unsigned short  keybuffer[KEY_BUFFER_SIZE];
53         Key_info        keys[256];
54         fix             time_pressed[KEY_BUFFER_SIZE];
55         unsigned int    keyhead, keytail;
56 } keyboard;
57
58 static keyboard key_data;
59
60 typedef struct key_props {
61         char *key_text;
62         unsigned char ascii_value;
63         unsigned char shifted_ascii_value;
64         SDLKey sym;
65 } key_props;
66
67 key_props key_properties[256] = {
68 { "",       255,    255,    -1                 },
69 { "ESC",    255,    255,    SDLK_ESCAPE        },
70 { "1",      '1',    '!',    SDLK_1             },
71 { "2",      '2',    '@',    SDLK_2             },
72 { "3",      '3',    '#',    SDLK_3             },
73 { "4",      '4',    '$',    SDLK_4             },
74 { "5",      '5',    '%',    SDLK_5             },
75 { "6",      '6',    '^',    SDLK_6             },
76 { "7",      '7',    '&',    SDLK_7             },
77 { "8",      '8',    '*',    SDLK_8             },
78 { "9",      '9',    '(',    SDLK_9             },
79 { "0",      '0',    ')',    SDLK_0             },
80 { "-",      '-',    '_',    SDLK_MINUS         },
81 { "=",      '=',    '+',    SDLK_EQUALS        },
82 { "BSPC",   255,    255,    SDLK_BACKSPACE     },
83 { "TAB",    255,    255,    SDLK_TAB           },
84 { "Q",      'q',    'Q',    SDLK_q             },
85 { "W",      'w',    'W',    SDLK_w             },
86 { "E",      'e',    'E',    SDLK_e             },
87 { "R",      'r',    'R',    SDLK_r             },
88 { "T",      't',    'T',    SDLK_t             },
89 { "Y",      'y',    'Y',    SDLK_y             },
90 { "U",      'u',    'U',    SDLK_u             },
91 { "I",      'i',    'I',    SDLK_i             },
92 { "O",      'o',    'O',    SDLK_o             },
93 { "P",      'p',    'P',    SDLK_p             },
94 { "[",      '[',    '{',    SDLK_LEFTBRACKET   },
95 { "]",      ']',    '}',    SDLK_RIGHTBRACKET  },
96 { "RETURN", 255,    255,    SDLK_RETURN        },
97 { "LCTRL",  255,    255,    SDLK_LCTRL         },
98 { "A",      'a',    'A',    SDLK_a             },
99 { "S",      's',    'S',    SDLK_s             },
100 { "D",      'd',    'D',    SDLK_d             },
101 { "F",      'f',    'F',    SDLK_f             },
102 { "G",      'g',    'G',    SDLK_g             },
103 { "H",      'h',    'H',    SDLK_h             },
104 { "J",      'j',    'J',    SDLK_j             },
105 { "K",      'k',    'K',    SDLK_k             },
106 { "L",      'l',    'L',    SDLK_l             },
107 { ";",      ';',    ':',    SDLK_SEMICOLON     },
108 { "'",     '\'',    '"',    SDLK_QUOTE         },
109 { "`",      '`',    '~',    SDLK_BACKQUOTE     },
110 { "LSHFT",  255,    255,    SDLK_LSHIFT        },
111 { "\\",    '\\',    '|',    SDLK_BACKSLASH     },
112 { "Z",      'z',    'Z',    SDLK_z             },
113 { "X",      'x',    'X',    SDLK_x             },
114 { "C",      'c',    'C',    SDLK_c             },
115 { "V",      'v',    'V',    SDLK_v             },
116 { "B",      'b',    'B',    SDLK_b             },
117 { "N",      'n',    'N',    SDLK_n             },
118 { "M",      'm',    'M',    SDLK_m             },
119 { ",",      ',',    '<',    SDLK_COMMA         },
120 { ".",      '.',    '>',    SDLK_PERIOD        },
121 { "/",      '/',    '?',    SDLK_SLASH         },
122 { "RSHFT",  255,    255,    SDLK_RSHIFT        },
123 { "PAD*",   '*',    255,    SDLK_KP_MULTIPLY   },
124 { "LALT",   255,    255,    SDLK_LALT          },
125 { "SPC",    ' ',    ' ',    SDLK_SPACE         },
126 { "CPSLK",  255,    255,    SDLK_CAPSLOCK      },
127 { "F1",     255,    255,    SDLK_F1            },
128 { "F2",     255,    255,    SDLK_F2            },
129 { "F3",     255,    255,    SDLK_F3            },
130 { "F4",     255,    255,    SDLK_F4            },
131 { "F5",     255,    255,    SDLK_F5            },
132 { "F6",     255,    255,    SDLK_F6            },
133 { "F7",     255,    255,    SDLK_F7            },
134 { "F8",     255,    255,    SDLK_F8            },
135 { "F9",     255,    255,    SDLK_F9            },
136 { "F10",    255,    255,    SDLK_F10           },
137 { "NMLCK",  255,    255,    SDLK_NUMLOCK       },
138 { "SCLK",   255,    255,    SDLK_SCROLLOCK     },
139 { "PAD7",   255,    255,    SDLK_KP7           },
140 { "PAD8",   255,    255,    SDLK_KP8           },
141 { "PAD9",   255,    255,    SDLK_KP9           },
142 { "PAD-",   255,    255,    SDLK_KP_MINUS      },
143 { "PAD4",   255,    255,    SDLK_KP4           },
144 { "PAD5",   255,    255,    SDLK_KP5           },
145 { "PAD6",   255,    255,    SDLK_KP6           },
146 { "PAD+",   255,    255,    SDLK_KP_PLUS       },
147 { "PAD1",   255,    255,    SDLK_KP1           },
148 { "PAD2",   255,    255,    SDLK_KP2           },
149 { "PAD3",   255,    255,    SDLK_KP3           },
150 { "PAD0",   255,    255,    SDLK_KP0           },
151 { "PAD.",   255,    255,    SDLK_KP_PERIOD     },
152 { "",       255,    255,    -1                 },
153 { "",       255,    255,    -1                 },
154 { "",       255,    255,    -1                 },
155 { "F11",    255,    255,    SDLK_F11           },
156 { "F12",    255,    255,    SDLK_F12           },
157 { "F13",    255,    255,    SDLK_F13           },
158 { "F14",    255,    255,    SDLK_F14           },
159 { "F15",    255,    255,    SDLK_F15           },
160 #ifdef __APPLE__
161 { "F16",    255,    255,    0x106A             },
162 { "F17",    255,    255,    0x1040             },
163 { "F18",    255,    255,    0x104F             },
164 { "F19",    255,    255,    0x1050             },
165 #else
166 { "",       255,    255,    -1                 },
167 { "",       255,    255,    -1                 },
168 { "",       255,    255,    -1                 },
169 { "",       255,    255,    -1                 },
170 #endif
171 { "",       255,    255,    -1                 },
172 { "PAUSE",  255,    255,    SDLK_PAUSE         },
173 { "",       255,    255,    -1                 },
174 { "",       255,    255,    -1                 },
175 { "",       255,    255,    -1                 },
176 { "",       255,    255,    -1                 },
177 { "",       255,    255,    -1                 },
178 { "",       255,    255,    -1                 },
179 { "",       255,    255,    -1                 },
180 { "",       255,    255,    -1                 },
181 { "",       255,    255,    -1                 },
182 { "",       255,    255,    -1                 },
183 { "",       255,    255,    -1                 },
184 { "",       255,    255,    -1                 },
185 { "",       255,    255,    -1                 },
186 { "",       255,    255,    -1                 },
187 { "",       255,    255,    -1                 },
188 { "",       255,    255,    -1                 },
189 { "",       255,    255,    -1                 },
190 { "",       255,    255,    -1                 },
191 { "",       255,    255,    -1                 },
192 { "",       255,    255,    -1                 },
193 { "",       255,    255,    -1                 },
194 { "",       255,    255,    -1                 },
195 { "",       255,    255,    -1                 },
196 { "",       255,    255,    -1                 },
197 { "",       255,    255,    -1                 },
198 { "",       255,    255,    -1                 },
199 { "",       255,    255,    -1                 },
200 { "",       255,    255,    -1                 },
201 { "",       255,    255,    -1                 },
202 { "",       255,    255,    -1                 },
203 { "",       255,    255,    -1                 },
204 { "",       255,    255,    -1                 },
205 { "",       255,    255,    -1                 },
206 { "",       255,    255,    -1                 },
207 { "",       255,    255,    -1                 },
208 { "",       255,    255,    -1                 },
209 { "",       255,    255,    -1                 },
210 { "",       255,    255,    -1                 },
211 { "",       255,    255,    -1                 },
212 { "",       255,    255,    -1                 },
213 { "",       255,    255,    -1                 },
214 { "",       255,    255,    -1                 },
215 { "",       255,    255,    -1                 },
216 { "",       255,    255,    -1                 },
217 { "",       255,    255,    -1                 },
218 { "",       255,    255,    -1                 },
219 { "",       255,    255,    -1                 },
220 { "",       255,    255,    -1                 },
221 { "",       255,    255,    -1                 },
222 { "",       255,    255,    -1                 },
223 { "",       255,    255,    -1                 },
224 { "",       255,    255,    -1                 },
225 { "",       255,    255,    -1                 },
226 { "",       255,    255,    -1                 },
227 { "",       255,    255,    -1                 },
228 { "",       255,    255,    -1                 },
229 { "",       255,    255,    -1                 },
230 { "PAD=",   255,    255,    SDLK_KP_EQUALS     },
231 { "ENTER",  255,    255,    SDLK_KP_ENTER      },
232 { "RCTRL",  255,    255,    SDLK_RCTRL         },
233 { "LCMD",   255,    255,    SDLK_LMETA         },
234 { "RCMD",   255,    255,    SDLK_RMETA         },
235 { "",       255,    255,    -1                 },
236 { "",       255,    255,    -1                 },
237 { "",       255,    255,    -1                 },
238 { "",       255,    255,    -1                 },
239 { "",       255,    255,    -1                 },
240 { "",       255,    255,    -1                 },
241 { "",       255,    255,    -1                 },
242 { "",       255,    255,    -1                 },
243 { "",       255,    255,    -1                 },
244 { "",       255,    255,    -1                 },
245 { "",       255,    255,    -1                 },
246 { "",       255,    255,    -1                 },
247 { "",       255,    255,    -1                 },
248 { "",       255,    255,    -1                 },
249 { "",       255,    255,    -1                 },
250 { "",       255,    255,    -1                 },
251 { "",       255,    255,    -1                 },
252 { "",       255,    255,    -1                 },
253 { "",       255,    255,    -1                 },
254 { "",       255,    255,    -1                 },
255 { "",       255,    255,    -1                 },
256 { "PAD/",   255,    255,    SDLK_KP_DIVIDE     },
257 { "",       255,    255,    -1                 },
258 { "PRSCR",  255,    255,    SDLK_PRINT         },
259 { "RALT",   255,    255,    SDLK_RALT          },
260 { "",       255,    255,    -1                 },
261 { "",       255,    255,    -1                 },
262 { "",       255,    255,    -1                 },
263 { "",       255,    255,    -1                 },
264 { "",       255,    255,    -1                 },
265 { "",       255,    255,    -1                 },
266 { "",       255,    255,    -1                 },
267 { "",       255,    255,    -1                 },
268 { "",       255,    255,    -1                 },
269 { "",       255,    255,    -1                 },
270 { "",       255,    255,    -1                 },
271 { "",       255,    255,    -1                 },
272 { "",       255,    255,    -1                 },
273 { "",       255,    255,    -1                 },
274 { "HOME",   255,    255,    SDLK_HOME          },
275 { "UP",     255,    255,    SDLK_UP            },
276 { "PGUP",   255,    255,    SDLK_PAGEUP        },
277 { "",       255,    255,    -1                 },
278 { "LEFT",   255,    255,    SDLK_LEFT          },
279 { "",       255,    255,    -1                 },
280 { "RIGHT",  255,    255,    SDLK_RIGHT         },
281 { "",       255,    255,    -1                 },
282 { "END",    255,    255,    SDLK_END           },
283 { "DOWN",   255,    255,    SDLK_DOWN          },
284 { "PGDN",   255,    255,    SDLK_PAGEDOWN      },
285 { "INS",    255,    255,    SDLK_INSERT        },
286 { "DEL",    255,    255,    SDLK_DELETE        },
287 { "",       255,    255,    -1                 },
288 { "",       255,    255,    -1                 },
289 { "",       255,    255,    -1                 },
290 { "",       255,    255,    -1                 },
291 { "",       255,    255,    -1                 },
292 { "",       255,    255,    -1                 },
293 { "",       255,    255,    -1                 },
294 { "",       255,    255,    -1                 },
295 { "",       255,    255,    -1                 },
296 { "",       255,    255,    -1                 },
297 { "",       255,    255,    -1                 },
298 { "",       255,    255,    -1                 },
299 { "",       255,    255,    -1                 },
300 { "",       255,    255,    -1                 },
301 { "",       255,    255,    -1                 },
302 { "",       255,    255,    -1                 },
303 { "",       255,    255,    -1                 },
304 { "",       255,    255,    -1                 },
305 { "",       255,    255,    -1                 },
306 { "",       255,    255,    -1                 },
307 { "",       255,    255,    -1                 },
308 { "",       255,    255,    -1                 },
309 { "",       255,    255,    -1                 },
310 { "",       255,    255,    -1                 },
311 { "",       255,    255,    -1                 },
312 { "",       255,    255,    -1                 },
313 { "",       255,    255,    -1                 },
314 { "",       255,    255,    -1                 },
315 { "",       255,    255,    -1                 },
316 { "",       255,    255,    -1                 },
317 { "",       255,    255,    -1                 },
318 { "",       255,    255,    -1                 },
319 { "",       255,    255,    -1                 },
320 { "",       255,    255,    -1                 },
321 { "",       255,    255,    -1                 },
322 { "",       255,    255,    -1                 },
323 { "",       255,    255,    -1                 },
324 { "",       255,    255,    -1                 },
325 { "",       255,    255,    -1                 },
326 { "",       255,    255,    -1                 },
327 { "",       255,    255,    -1                 },
328 { "",       255,    255,    -1                 },
329 { "",       255,    255,    -1                 },
330 { "",       255,    255,    -1                 },
331 };
332
333 char *key_text[256];
334
335
336 unsigned char key_to_ascii(int keycode )
337 {
338         int shifted;
339
340         shifted = keycode & KEY_SHIFTED;
341         keycode &= 0xFF;
342
343         if (shifted)
344                 return key_properties[keycode].shifted_ascii_value;
345         else
346                 return key_properties[keycode].ascii_value;
347 }
348
349
350 /* The list of keybindings */
351 static char *key_binding_list[256];
352
353
354 /* get the action bound to a key, if any */
355 char *key_binding(ubyte keycode)
356 {
357         return key_binding_list[keycode];
358 }
359
360
361 /* Write key bindings to file */
362 void key_write_bindings(CFILE *file)
363 {
364         int i;
365
366         for (i = 0; i < 256; i++)
367                 if (key_binding_list[i])
368                         PHYSFSX_printf(file, "bind %s \"%s\"\n", key_text[i], key_binding_list[i]);
369 }
370
371
372 /* bind */
373 void key_cmd_bind(int argc, char **argv)
374 {
375         char buf[CMD_MAX_LENGTH] = "";
376         int key = -1;
377         int i;
378
379         if (argc < 2)
380         {
381                 con_printf(CON_NORMAL, "key bindings:\n");
382                 for (i = 0; i < 256; i++) {
383                         if (!key_binding_list[i])
384                                 continue;
385                         con_printf(CON_NORMAL, "%s: %s\n", key_text[i], key_binding_list[i]);
386                 }
387                 return;
388         }
389
390         for (i = 0; i < 256; i++) {
391                 if (!stricmp(argv[1], key_text[i])) {
392                         key = i;
393                         break;
394                 }
395         }
396
397         if (key < 0) {
398                 con_printf(CON_CRITICAL, "bind: key %s not found\n", argv[1]);
399                 return;
400         }
401
402         if (argc < 3) {
403                 if (key_binding_list[key])
404                         con_printf(CON_NORMAL, "%s: %s\n", key_text[key], key_binding_list[key]);
405                 else
406                         con_printf(CON_NORMAL, "%s is unbound\n", key_text[key]);
407                 return;
408         }
409
410         for (i = 2; i < argc; i++) {
411                 if (i > 2)
412                         strncat(buf, " ", CMD_MAX_LENGTH);
413                 strncat(buf, argv[i], CMD_MAX_LENGTH);
414         }
415
416         if (key_binding_list[key])
417                 d_free(key_binding_list[key]);
418         key_binding_list[key] = d_strdup(buf);
419 }
420
421
422 /* unbind */
423 void key_cmd_unbind(int argc, char **argv)
424 {
425         unsigned int key;
426
427         if (argc < 2)
428                 return;
429
430         for (key = 0; key < 256; key++) {
431                 if (!stricmp(argv[1], key_text[key])) {
432                         break;
433                 }
434         }
435
436         if (key_binding_list[key])
437                 d_free(key_binding_list[key]);
438         key_binding_list[key] = NULL;
439 }
440
441
442 void key_handle_binding(int keycode, int state)
443 {
444         if (!key_binding_list[keycode])
445                 return;
446
447         if (Game_paused)
448                 return;
449
450         if (Function_mode != FMODE_GAME)
451                 return;
452
453         if (CON_isVisible())
454                 return;
455
456         if (!state && key_binding_list[keycode][0] == '+')
457                 cmd_appendf("-%s", &key_binding_list[keycode][1]);
458         else if (state)
459                 cmd_append(key_binding_list[keycode]);
460 }
461
462
463 void key_handler(SDL_KeyboardEvent *event)
464 {
465         int i, event_key, key_state;
466
467         if (event->keysym.sym != SDLK_UNKNOWN)
468                 event_key = event->keysym.sym;
469         else
470                 event_key = 0x1000 | event->keysym.scancode; // hardware scancode, definitions in #ifdefs above
471
472         key_state = (event->state == SDL_PRESSED);
473         //=====================================================
474         //Here a translation from win keycodes to mac keycodes!
475         //=====================================================
476
477         for (i = 255; i >= 0; i--) {
478                 if (key_properties[i].sym == event_key) {
479                         vkey_handler(i, key_state);
480                 }
481         }
482 }
483
484
485 void vkey_handler(int keycode, int state)
486 {
487         unsigned char temp;
488         Key_info *key;
489
490                 key = &(key_data.keys[keycode]);
491                         key_handle_binding(keycode, state);
492
493                         if (state) {
494                                 keyd_last_pressed = keycode;
495                                 keyd_pressed[keycode] = 1;
496                                 key->downcount += state;
497                                 key->state = 1;
498                                 key->timewentdown = keyd_time_when_last_pressed = timer_get_fixed_seconds();
499                                 key->counter++;
500                         } else {
501                                 keyd_pressed[keycode] = 0;
502                                 keyd_last_released = keycode;
503                                 key->upcount += key->state;
504                                 key->state = 0;
505                                 key->counter = 0;
506                                 key->timehelddown += timer_get_fixed_seconds() - key->timewentdown;
507                         }
508
509                 if ( (state && !key->last_state) || (state && key->last_state && (key->counter > 30) && (key->counter & 0x01)) ) {
510                         if ( keyd_pressed[KEY_LSHIFT] || keyd_pressed[KEY_RSHIFT])
511                                 keycode |= KEY_SHIFTED;
512                         if ( keyd_pressed[KEY_LALT] || keyd_pressed[KEY_RALT])
513                                 keycode |= KEY_ALTED;
514                         if ( keyd_pressed[KEY_LCTRL] || keyd_pressed[KEY_RCTRL])
515                                 keycode |= KEY_CTRLED;
516                         if ( keyd_pressed[KEY_LMETA] || keyd_pressed[KEY_RMETA])
517                                 keycode |= KEY_METAED;
518                         if ( keyd_pressed[KEY_DELETE] )
519                                 keycode |= KEY_DEBUGGED;
520
521                         temp = key_data.keytail + 1;
522                         if ( temp >= KEY_BUFFER_SIZE ) temp=0;
523                         if (temp!=key_data.keyhead)     {
524                                 key_data.keybuffer[key_data.keytail] = keycode;
525                                 key_data.time_pressed[key_data.keytail] = keyd_time_when_last_pressed;
526                                 key_data.keytail = temp;
527                         }
528                 }
529                 key->last_state = state;
530 }
531
532 void key_close()
533 {
534         int i;
535
536         for (i = 0; i < 256; i++)
537                 if (key_binding_list[i])
538                         d_free(key_binding_list[i]);
539
540         for (i = 0; i < MOUSE_MAX_BUTTONS; i++) {
541                 d_free(key_text[KEY_MB1 + i]);
542         }
543
544         Installed = 0;
545 }
546
547 void key_init()
548 {
549         int i;
550
551         if (Installed) return;
552
553         Installed=1;
554
555         keyd_time_when_last_pressed = timer_get_fixed_seconds();
556         keyd_buffer_type = 1;
557         keyd_repeat = 1;
558   
559         for(i=0; i<256; i++)
560                 key_text[i] = key_properties[i].key_text;
561
562         for (i = 0; i < MOUSE_MAX_BUTTONS; i++) {
563                 char temp[10];
564                 sprintf(temp, "MB%d", i + 1);
565                 key_text[KEY_MB1 + i] = d_strdup(temp);
566         }
567
568         cmd_addcommand("bind", key_cmd_bind);
569         cmd_addcommand("unbind", key_cmd_unbind);
570
571         // Clear the keyboard array
572         key_flush();
573         atexit(key_close);
574 }
575
576 void key_flush()
577 {
578         int i;
579         fix curtime;
580
581         if (!Installed)
582                 key_init();
583
584         key_data.keyhead = key_data.keytail = 0;
585
586         //Clear the keyboard buffer
587         for (i=0; i<KEY_BUFFER_SIZE; i++ ) {
588                 key_data.keybuffer[i] = 0;
589                 key_data.time_pressed[i] = 0;
590         }
591
592 //use gettimeofday here:
593         curtime = timer_get_fixed_seconds();
594
595         for (i=0; i<256; i++) {
596                 keyd_pressed[i] = 0;
597                 key_data.keys[i].state = 1;
598                 key_data.keys[i].last_state = 0;
599                 key_data.keys[i].timewentdown = curtime;
600                 key_data.keys[i].downcount = 0;
601                 key_data.keys[i].upcount = 0;
602                 key_data.keys[i].timehelddown = 0;
603                 key_data.keys[i].counter = 0;
604         }
605 }
606
607 int add_one(int n)
608 {
609         n++;
610         if ( n >= KEY_BUFFER_SIZE ) n = 0;
611
612         return n;
613 }
614
615 int key_checkch()
616 {
617         int is_one_waiting = 0;
618
619         event_poll();
620         if (key_data.keytail != key_data.keyhead)
621                 is_one_waiting = 1;
622
623         return is_one_waiting;
624 }
625
626 int key_inkey()
627 {
628         int key = 0;
629
630         if (!Installed)
631                 key_init();
632
633         event_poll();
634         if (key_data.keytail!=key_data.keyhead) {
635                 key = key_data.keybuffer[key_data.keyhead];
636                 key_data.keyhead = add_one(key_data.keyhead);
637         }
638         else
639                 timer_delay(1);
640
641         return key;
642 }
643
644 int key_inkey_time(fix * time)
645 {
646         int key = 0;
647
648         if (!Installed)
649                 key_init();
650
651         event_poll();
652         if (key_data.keytail != key_data.keyhead) {
653                 key = key_data.keybuffer[key_data.keyhead];
654                 *time = key_data.time_pressed[key_data.keyhead];
655                 key_data.keyhead = add_one(key_data.keyhead);
656         }
657
658         return key;
659 }
660
661 int key_peekkey()
662 {
663         int key = 0;
664
665         event_poll();
666         if (key_data.keytail != key_data.keyhead)
667                 key = key_data.keybuffer[key_data.keyhead];
668
669         return key;
670 }
671
672 int key_getch()
673 {
674         int dummy = 0;
675
676         if (!Installed)
677                 return 0;
678 //              return getch();
679
680         while (!key_checkch())
681                 dummy++;
682
683         return key_inkey();
684 }
685
686 unsigned int key_get_shift_status()
687 {
688         unsigned int shift_status = 0;
689
690         if ( keyd_pressed[KEY_LSHIFT] || keyd_pressed[KEY_RSHIFT] )
691                 shift_status |= KEY_SHIFTED;
692
693         if ( keyd_pressed[KEY_LALT] || keyd_pressed[KEY_RALT] )
694                 shift_status |= KEY_ALTED;
695
696         if ( keyd_pressed[KEY_LCTRL] || keyd_pressed[KEY_RCTRL] )
697                 shift_status |= KEY_CTRLED;
698
699         if ( keyd_pressed[KEY_LMETA] || keyd_pressed[KEY_RMETA] )
700                 shift_status |= KEY_METAED;
701
702 #ifndef NDEBUG
703         if (keyd_pressed[KEY_DELETE])
704                 shift_status |=KEY_DEBUGGED;
705 #endif
706
707         return shift_status;
708 }
709
710 // Returns the number of seconds this key has been down since last call.
711 fix key_down_time(int scancode)
712 {
713         fix time_down, time;
714
715         event_poll();
716         if ((scancode<0) || (scancode>255)) return 0;
717
718         if (!keyd_pressed[scancode]) {
719                 time_down = key_data.keys[scancode].timehelddown;
720                 key_data.keys[scancode].timehelddown = 0;
721         } else {
722                 time = timer_get_fixed_seconds();
723                 time_down = time - key_data.keys[scancode].timewentdown;
724                 key_data.keys[scancode].timewentdown = time;
725         }
726
727         return time_down;
728 }
729
730 unsigned int key_down_count(int scancode)
731 {
732         int n;
733
734         event_poll();
735         if ((scancode<0) || (scancode>255)) return 0;
736
737         n = key_data.keys[scancode].downcount;
738         key_data.keys[scancode].downcount = 0;
739
740         return n;
741 }
742
743 unsigned int key_up_count(int scancode)
744 {
745         int n;
746
747         event_poll();
748         if ((scancode<0) || (scancode>255)) return 0;
749
750         n = key_data.keys[scancode].upcount;
751         key_data.keys[scancode].upcount = 0;
752
753         return n;
754 }