]> icculus.org git repositories - btb/d2x.git/blob - arch/sdl/key.c
update text
[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 && !stricmp(argv[1], "-h")) {
380                 con_printf(CON_NORMAL, "%s <key> <commands>\n", argv[0]);
381                 con_printf(CON_NORMAL, "    bind <commands> to <key>\n");
382                 con_printf(CON_NORMAL, "%s <key>\n", argv[0]);
383                 con_printf(CON_NORMAL, "    show the current binding for <key>\n");
384                 con_printf(CON_NORMAL, "%s\n", argv[0]);
385                 con_printf(CON_NORMAL, "    show all key bindings\n");
386                 return;
387         }
388
389         if (argc < 2)
390         {
391                 con_printf(CON_NORMAL, "key bindings:\n");
392                 for (i = 0; i < 256; i++) {
393                         if (!key_binding_list[i])
394                                 continue;
395                         con_printf(CON_NORMAL, "%s: %s\n", key_text[i], key_binding_list[i]);
396                 }
397                 return;
398         }
399
400         for (i = 0; i < 256; i++) {
401                 if (!stricmp(argv[1], key_text[i])) {
402                         key = i;
403                         break;
404                 }
405         }
406
407         if (key < 0) {
408                 con_printf(CON_CRITICAL, "bind: key %s not found\n", argv[1]);
409                 return;
410         }
411
412         if (argc < 3) {
413                 if (key_binding_list[key])
414                         con_printf(CON_NORMAL, "%s: %s\n", key_text[key], key_binding_list[key]);
415                 else
416                         con_printf(CON_NORMAL, "%s is unbound\n", key_text[key]);
417                 return;
418         }
419
420         for (i = 2; i < argc; i++) {
421                 if (i > 2)
422                         strncat(buf, " ", CMD_MAX_LENGTH);
423                 strncat(buf, argv[i], CMD_MAX_LENGTH);
424         }
425
426         if (key_binding_list[key])
427                 d_free(key_binding_list[key]);
428         key_binding_list[key] = d_strdup(buf);
429 }
430
431
432 /* unbind */
433 void key_cmd_unbind(int argc, char **argv)
434 {
435         unsigned int key;
436
437         if (argc != 2 || !stricmp(argv[1], "-h")) {
438                 con_printf(CON_NORMAL, "%s <key>\n", argv[0]);
439                 con_printf(CON_NORMAL, "    remove binding from <key>\n");
440                 return;
441         }
442
443         for (key = 0; key < 256; key++) {
444                 if (!stricmp(argv[1], key_text[key])) {
445                         break;
446                 }
447         }
448
449         if (key_binding_list[key])
450                 d_free(key_binding_list[key]);
451         key_binding_list[key] = NULL;
452 }
453
454
455 void key_handle_binding(int keycode, int state)
456 {
457         if (!key_binding_list[keycode])
458                 return;
459
460         if (Game_paused)
461                 return;
462
463         if (Function_mode != FMODE_GAME)
464                 return;
465
466         if (CON_isVisible())
467                 return;
468
469         if (!state && key_binding_list[keycode][0] == '+')
470                 cmd_appendf("-%s", &key_binding_list[keycode][1]);
471         else if (state)
472                 cmd_append(key_binding_list[keycode]);
473 }
474
475
476 void key_handler(SDL_KeyboardEvent *event)
477 {
478         int i, event_key, key_state;
479
480         if (event->keysym.sym != SDLK_UNKNOWN)
481                 event_key = event->keysym.sym;
482         else
483                 event_key = 0x1000 | event->keysym.scancode; // hardware scancode, definitions in #ifdefs above
484
485         key_state = (event->state == SDL_PRESSED);
486         //=====================================================
487         //Here a translation from win keycodes to mac keycodes!
488         //=====================================================
489
490         for (i = 255; i >= 0; i--) {
491                 if (key_properties[i].sym == event_key) {
492                         vkey_handler(i, key_state);
493                 }
494         }
495 }
496
497
498 void vkey_handler(int keycode, int state)
499 {
500         unsigned char temp;
501         Key_info *key;
502
503         key = &(key_data.keys[keycode]);
504         key_handle_binding(keycode, state);
505
506         if (state) {
507                 keyd_last_pressed = keycode;
508                 keyd_pressed[keycode] = 1;
509                 key->downcount += state;
510                 key->state = 1;
511                 key->timewentdown = keyd_time_when_last_pressed = timer_get_fixed_seconds();
512                 key->counter++;
513         } else {
514                 keyd_pressed[keycode] = 0;
515                 keyd_last_released = keycode;
516                 key->upcount += key->state;
517                 key->state = 0;
518                 key->counter = 0;
519                 key->timehelddown += timer_get_fixed_seconds() - key->timewentdown;
520         }
521
522         if ( (state && !key->last_state) || (state && key->last_state && (key->counter > 30) && (key->counter & 0x01)) ) {
523                 if ( keyd_pressed[KEY_LSHIFT] || keyd_pressed[KEY_RSHIFT])
524                         keycode |= KEY_SHIFTED;
525                 if ( keyd_pressed[KEY_LALT] || keyd_pressed[KEY_RALT])
526                         keycode |= KEY_ALTED;
527                 if ( keyd_pressed[KEY_LCTRL] || keyd_pressed[KEY_RCTRL])
528                         keycode |= KEY_CTRLED;
529                 if ( keyd_pressed[KEY_LMETA] || keyd_pressed[KEY_RMETA])
530                         keycode |= KEY_METAED;
531                 if ( keyd_pressed[KEY_DELETE] )
532                         keycode |= KEY_DEBUGGED;
533
534                 temp = key_data.keytail + 1;
535                 if ( temp >= KEY_BUFFER_SIZE ) temp=0;
536                 if (temp!=key_data.keyhead)     {
537                         key_data.keybuffer[key_data.keytail] = keycode;
538                         key_data.time_pressed[key_data.keytail] = keyd_time_when_last_pressed;
539                         key_data.keytail = temp;
540                 }
541         }
542         key->last_state = state;
543 }
544
545
546 void key_close()
547 {
548         int i;
549
550         for (i = 0; i < 256; i++)
551                 if (key_binding_list[i])
552                         d_free(key_binding_list[i]);
553
554         for (i = 0; i < MOUSE_MAX_BUTTONS; i++) {
555                 d_free(key_text[KEY_MB1 + i]);
556         }
557
558         Installed = 0;
559 }
560
561 void key_init()
562 {
563         int i;
564
565         if (Installed) return;
566
567         Installed=1;
568
569         keyd_time_when_last_pressed = timer_get_fixed_seconds();
570         keyd_buffer_type = 1;
571         keyd_repeat = 1;
572   
573         for(i=0; i<256; i++)
574                 key_text[i] = key_properties[i].key_text;
575
576         for (i = 0; i < MOUSE_MAX_BUTTONS; i++) {
577                 char temp[10];
578                 sprintf(temp, "MB%d", i + 1);
579                 key_text[KEY_MB1 + i] = d_strdup(temp);
580         }
581
582         cmd_addcommand("bind", key_cmd_bind);
583         cmd_addcommand("unbind", key_cmd_unbind);
584
585         // Clear the keyboard array
586         key_flush();
587         atexit(key_close);
588 }
589
590 void key_flush()
591 {
592         int i;
593         fix curtime;
594
595         if (!Installed)
596                 key_init();
597
598         key_data.keyhead = key_data.keytail = 0;
599
600         //Clear the keyboard buffer
601         for (i=0; i<KEY_BUFFER_SIZE; i++ ) {
602                 key_data.keybuffer[i] = 0;
603                 key_data.time_pressed[i] = 0;
604         }
605
606 //use gettimeofday here:
607         curtime = timer_get_fixed_seconds();
608
609         for (i=0; i<256; i++) {
610                 keyd_pressed[i] = 0;
611                 key_data.keys[i].state = 1;
612                 key_data.keys[i].last_state = 0;
613                 key_data.keys[i].timewentdown = curtime;
614                 key_data.keys[i].downcount = 0;
615                 key_data.keys[i].upcount = 0;
616                 key_data.keys[i].timehelddown = 0;
617                 key_data.keys[i].counter = 0;
618         }
619 }
620
621 int add_one(int n)
622 {
623         n++;
624         if ( n >= KEY_BUFFER_SIZE ) n = 0;
625
626         return n;
627 }
628
629 int key_checkch()
630 {
631         int is_one_waiting = 0;
632
633         event_poll();
634         if (key_data.keytail != key_data.keyhead)
635                 is_one_waiting = 1;
636
637         return is_one_waiting;
638 }
639
640 int key_inkey()
641 {
642         int key = 0;
643
644         if (!Installed)
645                 key_init();
646
647         event_poll();
648         if (key_data.keytail!=key_data.keyhead) {
649                 key = key_data.keybuffer[key_data.keyhead];
650                 key_data.keyhead = add_one(key_data.keyhead);
651         }
652         else
653                 timer_delay(1);
654
655         return key;
656 }
657
658 int key_inkey_time(fix * time)
659 {
660         int key = 0;
661
662         if (!Installed)
663                 key_init();
664
665         event_poll();
666         if (key_data.keytail != key_data.keyhead) {
667                 key = key_data.keybuffer[key_data.keyhead];
668                 *time = key_data.time_pressed[key_data.keyhead];
669                 key_data.keyhead = add_one(key_data.keyhead);
670         }
671
672         return key;
673 }
674
675 int key_peekkey()
676 {
677         int key = 0;
678
679         event_poll();
680         if (key_data.keytail != key_data.keyhead)
681                 key = key_data.keybuffer[key_data.keyhead];
682
683         return key;
684 }
685
686 int key_getch()
687 {
688         int dummy = 0;
689
690         if (!Installed)
691                 return 0;
692 //              return getch();
693
694         while (!key_checkch())
695                 dummy++;
696
697         return key_inkey();
698 }
699
700 unsigned int key_get_shift_status()
701 {
702         unsigned int shift_status = 0;
703
704         if ( keyd_pressed[KEY_LSHIFT] || keyd_pressed[KEY_RSHIFT] )
705                 shift_status |= KEY_SHIFTED;
706
707         if ( keyd_pressed[KEY_LALT] || keyd_pressed[KEY_RALT] )
708                 shift_status |= KEY_ALTED;
709
710         if ( keyd_pressed[KEY_LCTRL] || keyd_pressed[KEY_RCTRL] )
711                 shift_status |= KEY_CTRLED;
712
713         if ( keyd_pressed[KEY_LMETA] || keyd_pressed[KEY_RMETA] )
714                 shift_status |= KEY_METAED;
715
716 #ifndef NDEBUG
717         if (keyd_pressed[KEY_DELETE])
718                 shift_status |=KEY_DEBUGGED;
719 #endif
720
721         return shift_status;
722 }
723
724 // Returns the number of seconds this key has been down since last call.
725 fix key_down_time(int scancode)
726 {
727         fix time_down, time;
728
729         event_poll();
730         if ((scancode<0) || (scancode>255)) return 0;
731
732         if (!keyd_pressed[scancode]) {
733                 time_down = key_data.keys[scancode].timehelddown;
734                 key_data.keys[scancode].timehelddown = 0;
735         } else {
736                 time = timer_get_fixed_seconds();
737                 time_down = time - key_data.keys[scancode].timewentdown;
738                 key_data.keys[scancode].timewentdown = time;
739         }
740
741         return time_down;
742 }
743
744 unsigned int key_down_count(int scancode)
745 {
746         int n;
747
748         event_poll();
749         if ((scancode<0) || (scancode>255)) return 0;
750
751         n = key_data.keys[scancode].downcount;
752         key_data.keys[scancode].downcount = 0;
753
754         return n;
755 }
756
757 unsigned int key_up_count(int scancode)
758 {
759         int n;
760
761         event_poll();
762         if ((scancode<0) || (scancode>255)) return 0;
763
764         n = key_data.keys[scancode].upcount;
765         key_data.keys[scancode].upcount = 0;
766
767         return n;
768 }