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