1 /*
2 SDL - Simple DirectMedia Layer
3 Copyright (C) 1997-2012 Sam Lantinga
4
5 This library is free software; you can redistribute it and/or
6 modify it under the terms of the GNU Library General Public
7 License as published by the Free Software Foundation; either
8 version 2 of the License, or (at your option) any later version.
9
10 This library is distributed in the hope that it will be useful,
11 but WITHOUT ANY WARRANTY; without even the implied warranty of
12 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
13 Library General Public License for more details.
14
15 You should have received a copy of the GNU Library General Public
16 License along with this library; if not, write to the Free
17 Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA
18
19 Sam Lantinga
20 slouken@libsdl.org
21 */
22 #include "SDL_config.h"
23
24 /*
25 File added by Alan Buckley (alan_baa@hotmail.com) for RISC OS compatability
26 27 March 2003
27
28 Implements keyboard setup, event pump and keyboard and mouse polling
29 */
30
31
32 #include "SDL.h"
33 #include "../../timer/SDL_timer_c.h"
34 #include "../../events/SDL_sysevents.h"
35 #include "../../events/SDL_events_c.h"
36 #include "../SDL_cursor_c.h"
37 #include "SDL_riscosvideo.h"
38 #include "SDL_riscosevents_c.h"
39
40 #include "memory.h"
41 #include "stdlib.h"
42 #include "ctype.h"
43
44 #include "kernel.h"
45 #include "swis.h"
46
47 /* The translation table from a RISC OS internal key numbers to a SDL keysym */
48 static SDLKey RO_keymap[SDLK_LAST];
49
50 /* RISC OS Key codes */
51 #define ROKEY_SHIFT 0
52 #define ROKEY_CTRL 1
53 #define ROKEY_ALT 2
54 /* Left shift is first key we will check for */
55 #define ROKEY_LEFT_SHIFT 3
56
57 /* Need to ignore mouse buttons as they are processed separately */
58 #define ROKEY_LEFT_MOUSE 9
59 #define ROKEY_CENTRE_MOUSE 10
60 #define ROKEY_RIGHT_MOUSE 11
61
62 /* No key has been pressed return value*/
63 #define ROKEY_NONE 255
64
65 /* Id of last key in keyboard */
66 #define ROKEY_LAST_KEY 124
67
68 /* Size of array for all keys */
69 #define ROKEYBD_ARRAYSIZE 125
70
71 static char RO_pressed[ROKEYBD_ARRAYSIZE];
72
73 static SDL_keysym *TranslateKey(int intkey, SDL_keysym *keysym, int pressed);
74
75 void RISCOS_PollMouse(_THIS);
76 void RISCOS_PollKeyboard();
77
78 void RISCOS_PollMouseHelper(_THIS, int fullscreen);
79
80 #if SDL_THREADS_DISABLED
81 extern void DRenderer_FillBuffers();
82
83 /* Timer running function */
84 extern void RISCOS_CheckTimer();
85
86 #endif
87
FULLSCREEN_PumpEvents(_THIS)88 void FULLSCREEN_PumpEvents(_THIS)
89 {
90 /* Current implementation requires keyboard and mouse polling */
91 RISCOS_PollKeyboard();
92 RISCOS_PollMouse(this);
93 #if SDL_THREADS_DISABLED
94 // DRenderer_FillBuffers();
95 if (SDL_timer_running) RISCOS_CheckTimer();
96 #endif
97 }
98
99
RISCOS_InitOSKeymap(_THIS)100 void RISCOS_InitOSKeymap(_THIS)
101 {
102 int i;
103
104 /* Map the VK keysyms */
105 for ( i=0; i<SDL_arraysize(RO_keymap); ++i )
106 RO_keymap[i] = SDLK_UNKNOWN;
107
108 RO_keymap[3] = SDLK_LSHIFT;
109 RO_keymap[4] = SDLK_LCTRL;
110 RO_keymap[5] = SDLK_LALT;
111 RO_keymap[6] = SDLK_RSHIFT;
112 RO_keymap[7] = SDLK_RCTRL;
113 RO_keymap[8] = SDLK_RALT;
114 RO_keymap[16] = SDLK_q;
115 RO_keymap[17] = SDLK_3;
116 RO_keymap[18] = SDLK_4;
117 RO_keymap[19] = SDLK_5;
118 RO_keymap[20] = SDLK_F4;
119 RO_keymap[21] = SDLK_8;
120 RO_keymap[22] = SDLK_F7;
121 RO_keymap[23] = SDLK_MINUS,
122 RO_keymap[25] = SDLK_LEFT;
123 RO_keymap[26] = SDLK_KP6;
124 RO_keymap[27] = SDLK_KP7;
125 RO_keymap[28] = SDLK_F11;
126 RO_keymap[29] = SDLK_F12;
127 RO_keymap[30] = SDLK_F10;
128 RO_keymap[31] = SDLK_SCROLLOCK;
129 RO_keymap[32] = SDLK_PRINT;
130 RO_keymap[33] = SDLK_w;
131 RO_keymap[34] = SDLK_e;
132 RO_keymap[35] = SDLK_t;
133 RO_keymap[36] = SDLK_7;
134 RO_keymap[37] = SDLK_i;
135 RO_keymap[38] = SDLK_9;
136 RO_keymap[39] = SDLK_0;
137 RO_keymap[41] = SDLK_DOWN;
138 RO_keymap[42] = SDLK_KP8;
139 RO_keymap[43] = SDLK_KP9;
140 RO_keymap[44] = SDLK_BREAK;
141 RO_keymap[45] = SDLK_BACKQUOTE;
142 /* RO_keymap[46] = SDLK_currency; TODO: Figure out if this has a value */
143 RO_keymap[47] = SDLK_BACKSPACE;
144 RO_keymap[48] = SDLK_1;
145 RO_keymap[49] = SDLK_2;
146 RO_keymap[50] = SDLK_d;
147 RO_keymap[51] = SDLK_r;
148 RO_keymap[52] = SDLK_6;
149 RO_keymap[53] = SDLK_u;
150 RO_keymap[54] = SDLK_o;
151 RO_keymap[55] = SDLK_p;
152 RO_keymap[56] = SDLK_LEFTBRACKET;
153 RO_keymap[57] = SDLK_UP;
154 RO_keymap[58] = SDLK_KP_PLUS;
155 RO_keymap[59] = SDLK_KP_MINUS;
156 RO_keymap[60] = SDLK_KP_ENTER;
157 RO_keymap[61] = SDLK_INSERT;
158 RO_keymap[62] = SDLK_HOME;
159 RO_keymap[63] = SDLK_PAGEUP;
160 RO_keymap[64] = SDLK_CAPSLOCK;
161 RO_keymap[65] = SDLK_a;
162 RO_keymap[66] = SDLK_x;
163 RO_keymap[67] = SDLK_f;
164 RO_keymap[68] = SDLK_y;
165 RO_keymap[69] = SDLK_j;
166 RO_keymap[70] = SDLK_k;
167 RO_keymap[72] = SDLK_SEMICOLON;
168 RO_keymap[73] = SDLK_RETURN;
169 RO_keymap[74] = SDLK_KP_DIVIDE;
170 RO_keymap[76] = SDLK_KP_PERIOD;
171 RO_keymap[77] = SDLK_NUMLOCK;
172 RO_keymap[78] = SDLK_PAGEDOWN;
173 RO_keymap[79] = SDLK_QUOTE;
174 RO_keymap[81] = SDLK_s;
175 RO_keymap[82] = SDLK_c;
176 RO_keymap[83] = SDLK_g;
177 RO_keymap[84] = SDLK_h;
178 RO_keymap[85] = SDLK_n;
179 RO_keymap[86] = SDLK_l;
180 RO_keymap[87] = SDLK_SEMICOLON;
181 RO_keymap[88] = SDLK_RIGHTBRACKET;
182 RO_keymap[89] = SDLK_DELETE;
183 RO_keymap[90] = SDLK_KP_MINUS;
184 RO_keymap[91] = SDLK_KP_MULTIPLY;
185 RO_keymap[93] = SDLK_EQUALS;
186 RO_keymap[94] = SDLK_BACKSLASH;
187 RO_keymap[96] = SDLK_TAB;
188 RO_keymap[97] = SDLK_z;
189 RO_keymap[98] = SDLK_SPACE;
190 RO_keymap[99] = SDLK_v;
191 RO_keymap[100] = SDLK_b;
192 RO_keymap[101] = SDLK_m;
193 RO_keymap[102] = SDLK_COMMA;
194 RO_keymap[103] = SDLK_PERIOD;
195 RO_keymap[104] = SDLK_SLASH;
196 RO_keymap[105] = SDLK_END;
197 RO_keymap[106] = SDLK_KP0;
198 RO_keymap[107] = SDLK_KP1;
199 RO_keymap[108] = SDLK_KP3;
200 RO_keymap[112] = SDLK_ESCAPE;
201 RO_keymap[113] = SDLK_F1;
202 RO_keymap[114] = SDLK_F2;
203 RO_keymap[115] = SDLK_F3;
204 RO_keymap[116] = SDLK_F5;
205 RO_keymap[117] = SDLK_F6;
206 RO_keymap[118] = SDLK_F8;
207 RO_keymap[119] = SDLK_F9;
208 RO_keymap[120] = SDLK_HASH;
209 RO_keymap[121] = SDLK_RIGHT;
210 RO_keymap[122] = SDLK_KP4;
211 RO_keymap[123] = SDLK_KP5;
212 RO_keymap[124] = SDLK_KP2;
213
214 SDL_memset(RO_pressed, 0, ROKEYBD_ARRAYSIZE);
215 }
216
217
218 /* Variable for mouse relative processing */
219 int mouse_relative = 0;
220
221 /* Check to see if we need to enter or leave mouse relative mode */
222
RISCOS_CheckMouseMode(_THIS)223 void RISCOS_CheckMouseMode(_THIS)
224 {
225 /* If the mouse is hidden and input is grabbed, we use relative mode */
226 if ( !(SDL_cursorstate & CURSOR_VISIBLE) &&
227 (this->input_grab != SDL_GRAB_OFF) ) {
228 mouse_relative = 1;
229 } else {
230 mouse_relative = 0;
231 }
232 }
233
234
RISCOS_PollMouse(_THIS)235 void RISCOS_PollMouse(_THIS)
236 {
237 RISCOS_PollMouseHelper(this, 1);
238 }
239
240 extern int mouseInWindow;
241
WIMP_PollMouse(_THIS)242 void WIMP_PollMouse(_THIS)
243 {
244 /* Only poll when mouse is over the window */
245 if (!mouseInWindow) return;
246
247 RISCOS_PollMouseHelper(this, 0);
248 }
249
250 /* Static variables so only changes are reported */
251 static Sint16 last_x = -1, last_y = -1;
252 static int last_buttons = 0;
253
254 /* Share routine between WIMP and FULLSCREEN for polling mouse and
255 passing on events */
RISCOS_PollMouseHelper(_THIS,int fullscreen)256 void RISCOS_PollMouseHelper(_THIS, int fullscreen)
257 {
258 _kernel_swi_regs regs;
259 static int starting = 1;
260
261 if (_kernel_swi(OS_Mouse, ®s, ®s) == NULL)
262 {
263 Sint16 new_x = regs.r[0]; /* Initialy get as OS units */
264 Sint16 new_y = regs.r[1];
265
266 /* Discard mouse events until they let go of the mouse after starting */
267 if (starting && regs.r[2] != 0)
268 return;
269 else
270 starting = 0;
271
272 if (new_x != last_x || new_y != last_y || last_buttons != regs.r[2])
273 {
274 /* Something changed so generate appropriate events */
275 int topLeftX, topLeftY; /* Top left OS units */
276 int x, y; /* Mouse position in SDL pixels */
277
278 if (fullscreen)
279 {
280 topLeftX = 0;
281 topLeftY = (this->hidden->height << this->hidden->yeig) - 1;
282 } else
283 {
284 int window_state[9];
285
286 /* Get current window state */
287 window_state[0] = this->hidden->window_handle;
288 regs.r[1] = (unsigned int)window_state;
289 _kernel_swi(Wimp_GetWindowState, ®s, ®s);
290
291 topLeftX = window_state[1];
292 topLeftY = window_state[4];
293 }
294
295 /* Convert co-ordinates to workspace */
296 x = new_x - topLeftX;
297 y = topLeftY - new_y; /* Y goes from top of window/screen */
298
299 /* Convert OS units to pixels */
300 x >>= this->hidden->xeig;
301 y >>= this->hidden->yeig;
302
303 if (last_x != new_x || last_y != new_y)
304 {
305 if (mouse_relative)
306 {
307 int centre_x = SDL_VideoSurface->w/2;
308 int centre_y = SDL_VideoSurface->h/2;
309
310 if (centre_x != x || centre_y != y)
311 {
312 if (SDL_VideoSurface) SDL_PrivateMouseMotion(0,1,x - centre_x, y - centre_y);
313 last_x = topLeftX + (centre_x << this->hidden->xeig);
314 last_y = topLeftY - (centre_y << this->hidden->yeig);
315
316 /* Re-centre the mouse pointer, so we still get relative
317 movement when the mouse is at the edge of the window
318 or screen.
319 */
320 {
321 unsigned char block[5];
322
323 block[0] = 3; /* OSWORD move pointer sub-reason code */
324 block[1] = last_x & 0xFF;
325 block[2] = (last_x >> 8) & 0xFF;
326 block[3] = last_y & 0xFF;
327 block[4] = (last_y >> 8) & 0xFF;
328
329 regs.r[0] = 21; /* OSWORD pointer stuff code */
330 regs.r[1] = (int)block;
331 _kernel_swi(OS_Word, ®s, ®s);
332 }
333 }
334 } else
335 {
336 last_x = new_x;
337 last_y = new_y;
338 SDL_PrivateMouseMotion(0,0,x,y);
339 }
340 }
341
342 if (last_buttons != regs.r[2])
343 {
344 int changed = last_buttons ^ regs.r[2];
345 last_buttons = regs.r[2];
346 if (changed & 4) SDL_PrivateMouseButton((last_buttons & 4) ? SDL_PRESSED : SDL_RELEASED, SDL_BUTTON_LEFT, 0, 0);
347 if (changed & 2) SDL_PrivateMouseButton((last_buttons & 2) ? SDL_PRESSED : SDL_RELEASED, SDL_BUTTON_MIDDLE, 0, 0);
348 if (changed & 1) SDL_PrivateMouseButton((last_buttons & 1) ? SDL_PRESSED : SDL_RELEASED, SDL_BUTTON_RIGHT, 0, 0);
349 }
350 }
351 }
352 }
353
RISCOS_PollKeyboard()354 void RISCOS_PollKeyboard()
355 {
356 int which_key = ROKEY_LEFT_SHIFT;
357 int j;
358 int min_key, max_key;
359 SDL_keysym key;
360
361 /* Scan the keyboard to see what is pressed */
362 while (which_key <= ROKEY_LAST_KEY)
363 {
364 which_key = (_kernel_osbyte(121, which_key, 0) & 0xFF);
365 if (which_key != ROKEY_NONE)
366 {
367 switch(which_key)
368 {
369 /* Skip over mouse keys */
370 case ROKEY_LEFT_MOUSE:
371 case ROKEY_CENTRE_MOUSE:
372 case ROKEY_RIGHT_MOUSE:
373 which_key = ROKEY_RIGHT_MOUSE;
374 break;
375
376 /* Ignore keys that cause 2 internal number to be generated */
377 case 71: case 24: case 87: case 40:
378 break;
379
380 /* Ignore break as it can be latched on */
381 case 44:
382 break;
383
384 default:
385 RO_pressed[which_key] += 2;
386 break;
387 }
388 which_key++;
389 }
390 }
391
392 /* Generate key released messages */
393 min_key = ROKEY_LAST_KEY+1;
394 max_key = ROKEY_LEFT_SHIFT;
395
396 for (j = ROKEY_LEFT_SHIFT; j <= ROKEY_LAST_KEY; j++)
397 {
398 if (RO_pressed[j])
399 {
400 if (RO_pressed[j] == 1)
401 {
402 RO_pressed[j] = 0;
403 SDL_PrivateKeyboard(SDL_RELEASED, TranslateKey(j,&key,0));
404 } else
405 {
406 if (j < min_key) min_key = j;
407 if (j > max_key) max_key = j;
408 }
409 }
410 }
411
412 /* Generate key pressed messages */
413 for (j = min_key; j <= max_key; j++)
414 {
415 if (RO_pressed[j])
416 {
417 if (RO_pressed[j] == 2)
418 {
419 SDL_PrivateKeyboard(SDL_PRESSED,TranslateKey(j,&key,1));
420 }
421 RO_pressed[j] = 1;
422 }
423 }
424 }
425
TranslateKey(int intkey,SDL_keysym * keysym,int pressed)426 static SDL_keysym *TranslateKey(int intkey, SDL_keysym *keysym, int pressed)
427 {
428 /* Set the keysym information */
429 keysym->scancode = (unsigned char) intkey;
430 keysym->sym = RO_keymap[intkey];
431 keysym->mod = KMOD_NONE;
432 keysym->unicode = 0;
433 if ( pressed && SDL_TranslateUNICODE )
434 {
435 int state;
436 int ch;
437
438 state = (_kernel_osbyte(202, 0, 255) & 0xFF);
439
440 /*TODO: Take into account other keyboard layouts */
441
442 ch = keysym->sym; /* This should handle most unshifted keys */
443
444 if (intkey < 9 || ch == SDLK_UNKNOWN)
445 {
446 ch = 0;
447
448 } else if (state & 64) /* Control on */
449 {
450 ch = ch & 31;
451
452 } else
453 {
454 int topOfKey = 0;
455 if (state & 8) /* Shift on */
456 {
457 topOfKey = 1;
458 }
459
460 if ((state & 16) == 0) /* Caps lock is on */
461 {
462 if (ch >= SDLK_a && ch <= SDLK_z)
463 {
464 if ((state & 128) == 0) /* Shift Enable off */
465 {
466 /* All letter become upper case */
467 topOfKey = 1;
468 } else
469 {
470 /* Shift+Letters gives lower case */
471 topOfKey = 1 - topOfKey;
472 }
473 }
474 }
475
476 if (topOfKey)
477 {
478 /* Key produced with shift held down */
479
480 /* Letters just give upper case version */
481 if (ch >= SDLK_a && ch <= SDLK_z) ch = toupper(ch);
482 else
483 {
484 switch(ch)
485 {
486 case SDLK_HASH: ch = '~'; break;
487 case SDLK_QUOTE: ch = '@'; break;
488 case SDLK_COMMA: ch = '<'; break;
489 case SDLK_MINUS: ch = '_'; break;
490 case SDLK_PERIOD: ch = '>'; break;
491 case SDLK_SLASH: ch = '?'; break;
492
493 case SDLK_0: ch = ')'; break;
494 case SDLK_1: ch = '!'; break;
495 case SDLK_2: ch = '"'; break;
496 case SDLK_3: ch = '�'; break;
497 case SDLK_4: ch = '$'; break;
498 case SDLK_5: ch = '%'; break;
499 case SDLK_6: ch = '^'; break;
500 case SDLK_7: ch = '&'; break;
501 case SDLK_8: ch = '*'; break;
502 case SDLK_9: ch = '('; break;
503
504 case SDLK_SEMICOLON: ch = ':'; break;
505 case SDLK_EQUALS: ch = '+'; break;
506 case SDLK_LEFTBRACKET: ch = '{'; break;
507 case SDLK_BACKSLASH: ch = '|'; break;
508 case SDLK_RIGHTBRACKET: ch = '}'; break;
509 case SDLK_BACKQUOTE: ch = '�'; break;
510
511 default:
512 ch = 0; /* Map to zero character if we don't understand it */
513 break;
514 }
515 }
516
517 } else if (ch > 126)
518 {
519 /* SDL key code < 126 map directly onto their Unicode equivalents */
520 /* Keypad 0 to 9 maps to numeric equivalent */
521 if (ch >= SDLK_KP0 && ch <= SDLK_KP9) ch = ch - SDLK_KP0 + '0';
522 else
523 {
524 /* Following switch maps other keys that produce an Ascii value */
525 switch(ch)
526 {
527 case SDLK_KP_PERIOD: ch = '.'; break;
528 case SDLK_KP_DIVIDE: ch = '/'; break;
529 case SDLK_KP_MULTIPLY: ch = '*'; break;
530 case SDLK_KP_MINUS: ch = '-'; break;
531 case SDLK_KP_PLUS: ch = '+'; break;
532 case SDLK_KP_EQUALS: ch = '='; break;
533
534 default:
535 /* If we don't know what it is set the Unicode to 0 */
536 ch = 0;
537 break;
538 }
539 }
540 }
541 }
542
543 keysym->unicode = ch;
544 }
545 return(keysym);
546 }
547
548 /* end of SDL_riscosevents.c ... */
549
550