e14743d1 |
1 | /* |
2 | SDL - Simple DirectMedia Layer |
3 | Copyright (C) 1997-2009 Sam Lantinga |
4 | |
5 | This library is free software; you can redistribute it and/or |
6 | modify it under the terms of the GNU Lesser General Public |
7 | License as published by the Free Software Foundation; either |
8 | version 2.1 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 | Lesser General Public License for more details. |
14 | |
15 | You should have received a copy of the GNU Lesser General Public |
16 | License along with this library; if not, write to the Free Software |
17 | Foundation, Inc., 51 Franklin St, Fifth Floor, Boston, MA 02110-1301 USA |
18 | |
19 | Sam Lantinga |
20 | slouken@libsdl.org |
21 | */ |
22 | #include "SDL_config.h" |
23 | |
24 | /* |
25 | * GEM SDL video driver implementation |
26 | * inspired from the Dummy SDL driver |
27 | * |
28 | * Patrice Mandin |
29 | * and work from |
30 | * Olivier Landemarre, Johan Klockars, Xavier Joubert, Claude Attard |
31 | */ |
32 | |
33 | #include <gem.h> |
34 | |
35 | #include "../../events/SDL_sysevents.h" |
36 | #include "../../events/SDL_events_c.h" |
37 | #include "SDL_gemvideo.h" |
38 | #include "SDL_gemevents_c.h" |
39 | #include "../ataricommon/SDL_atarikeys.h" /* for keyboard scancodes */ |
40 | #include "../ataricommon/SDL_atarievents_c.h" |
41 | #include "../ataricommon/SDL_xbiosevents_c.h" |
42 | #include "../ataricommon/SDL_ataridevmouse_c.h" |
43 | |
44 | /* Variables */ |
45 | |
46 | static unsigned char gem_currentkeyboard[ATARIBIOS_MAXKEYS]; |
47 | static unsigned char gem_previouskeyboard[ATARIBIOS_MAXKEYS]; |
48 | |
49 | /* Functions prototypes */ |
50 | |
51 | static int do_messages(_THIS, short *message); |
52 | static void do_keyboard(short kc, short ks); |
53 | static void do_mouse(_THIS, short mx, short my, short mb, short ks); |
54 | |
55 | /* Functions */ |
56 | |
57 | void GEM_InitOSKeymap(_THIS) |
58 | { |
59 | SDL_memset(gem_currentkeyboard, 0, sizeof(gem_currentkeyboard)); |
60 | SDL_memset(gem_previouskeyboard, 0, sizeof(gem_previouskeyboard)); |
61 | |
62 | /* Mouse init */ |
63 | GEM_mouse_relative = SDL_FALSE; |
64 | |
65 | SDL_Atari_InitInternalKeymap(this); |
66 | } |
67 | |
68 | void GEM_PumpEvents(_THIS) |
69 | { |
70 | short mousex, mousey, mouseb, dummy; |
71 | short kstate, prevkc, prevks; |
72 | int i; |
73 | SDL_keysym keysym; |
74 | |
75 | SDL_memset(gem_currentkeyboard,0,sizeof(gem_currentkeyboard)); |
76 | prevkc = prevks = 0; |
77 | |
78 | for (;;) |
79 | { |
80 | int quit, resultat, event_mask, mouse_event; |
81 | short buffer[8], kc; |
82 | short x2,y2,w2,h2; |
83 | |
84 | quit = |
85 | mouse_event = |
86 | x2=y2=w2=h2 = 0; |
87 | |
88 | event_mask = MU_MESAG|MU_TIMER|MU_KEYBD; |
89 | if (!GEM_fullscreen && (GEM_handle>=0)) { |
90 | wind_get (GEM_handle, WF_WORKXYWH, &x2, &y2, &w2, &h2); |
91 | event_mask |= MU_M1; |
92 | mouse_event = ( (SDL_GetAppState() & SDL_APPMOUSEFOCUS) |
93 | == SDL_APPMOUSEFOCUS) ? MO_LEAVE : MO_ENTER; |
94 | } |
95 | |
96 | resultat = evnt_multi( |
97 | event_mask, |
98 | 0,0,0, |
99 | mouse_event,x2,y2,w2,h2, |
100 | 0,0,0,0,0, |
101 | buffer, |
102 | 10, |
103 | &dummy,&dummy,&dummy,&kstate,&kc,&dummy |
104 | ); |
105 | |
106 | /* Message event ? */ |
107 | if (resultat & MU_MESAG) |
108 | quit = do_messages(this, buffer); |
109 | |
110 | /* Keyboard event ? */ |
111 | if (resultat & MU_KEYBD) { |
112 | if ((prevkc != kc) || (prevks != kstate)) { |
113 | do_keyboard(kc,kstate); |
114 | } else { |
115 | /* Avoid looping, if repeating same key */ |
116 | break; |
117 | } |
118 | } |
119 | |
120 | /* Mouse entering/leaving window */ |
121 | if (resultat & MU_M1) { |
122 | if (this->input_grab == SDL_GRAB_OFF) { |
123 | /* Switch mouse focus state */ |
124 | SDL_PrivateAppActive((mouse_event == MO_ENTER), |
125 | SDL_APPMOUSEFOCUS); |
126 | } |
127 | GEM_CheckMouseMode(this); |
128 | } |
129 | |
130 | /* Timer event ? */ |
131 | if ((resultat & MU_TIMER) || quit) |
132 | break; |
133 | } |
134 | |
135 | /* Update mouse */ |
136 | graf_mkstate(&mousex, &mousey, &mouseb, &kstate); |
137 | do_mouse(this, mousex, mousey, mouseb, kstate); |
138 | |
139 | /* Now generate keyboard events */ |
140 | for (i=0; i<ATARIBIOS_MAXKEYS; i++) { |
141 | /* Key pressed ? */ |
142 | if (gem_currentkeyboard[i] && !gem_previouskeyboard[i]) |
143 | SDL_PrivateKeyboard(SDL_PRESSED, |
144 | SDL_Atari_TranslateKey(i, &keysym, SDL_TRUE)); |
145 | |
146 | /* Key unpressed ? */ |
147 | if (gem_previouskeyboard[i] && !gem_currentkeyboard[i]) |
148 | SDL_PrivateKeyboard(SDL_RELEASED, |
149 | SDL_Atari_TranslateKey(i, &keysym, SDL_FALSE)); |
150 | } |
151 | |
152 | SDL_memcpy(gem_previouskeyboard,gem_currentkeyboard,sizeof(gem_previouskeyboard)); |
153 | |
154 | /* Refresh window name ? */ |
155 | if (GEM_refresh_name) { |
156 | const char *window_name = |
157 | (SDL_GetAppState() & SDL_APPACTIVE) |
158 | ? GEM_title_name : GEM_icon_name; |
159 | if (window_name) { |
160 | wind_set(GEM_handle,WF_NAME, |
161 | (short)(((unsigned long)window_name)>>16), |
162 | (short)(((unsigned long)window_name) & 0xffff), |
163 | 0,0); |
164 | } |
165 | GEM_refresh_name = SDL_FALSE; |
166 | } |
167 | } |
168 | |
169 | static int do_messages(_THIS, short *message) |
170 | { |
171 | int quit, posted, check_mouse_mode; |
172 | short x2,y2,w2,h2; |
173 | |
174 | quit = check_mouse_mode = 0; |
175 | switch (message[0]) { |
176 | case WM_CLOSED: |
177 | case AP_TERM: |
178 | posted = SDL_PrivateQuit(); |
179 | quit=1; |
180 | break; |
181 | case WM_MOVED: |
182 | wind_set(message[3],WF_CURRXYWH,message[4],message[5],message[6],message[7]); |
183 | break; |
184 | case WM_TOPPED: |
185 | wind_set(message[3],WF_TOP,message[4],0,0,0); |
186 | /* Continue with TOP event processing */ |
187 | case WM_ONTOP: |
188 | SDL_PrivateAppActive(1, SDL_APPINPUTFOCUS); |
189 | if (VDI_setpalette) { |
190 | VDI_setpalette(this, VDI_curpalette); |
191 | } |
192 | check_mouse_mode = 1; |
193 | break; |
194 | case WM_REDRAW: |
195 | if (!GEM_lock_redraw) { |
196 | GEM_wind_redraw(this, message[3],&message[4]); |
197 | } |
198 | break; |
199 | case WM_ICONIFY: |
200 | case WM_ALLICONIFY: |
201 | wind_set(message[3],WF_ICONIFY,message[4],message[5],message[6],message[7]); |
202 | /* If we're active, make ourselves inactive */ |
203 | if ( SDL_GetAppState() & SDL_APPACTIVE ) { |
204 | /* Send an internal deactivate event */ |
205 | SDL_PrivateAppActive(0, SDL_APPACTIVE); |
206 | } |
207 | /* Update window title */ |
208 | if (GEM_refresh_name && GEM_icon_name) { |
209 | wind_set(GEM_handle,WF_NAME,(short)(((unsigned long)GEM_icon_name)>>16),(short)(((unsigned long)GEM_icon_name) & 0xffff),0,0); |
210 | GEM_refresh_name = SDL_FALSE; |
211 | } |
212 | check_mouse_mode = 1; |
213 | break; |
214 | case WM_UNICONIFY: |
215 | wind_set(message[3],WF_UNICONIFY,message[4],message[5],message[6],message[7]); |
216 | /* If we're not active, make ourselves active */ |
217 | if ( !(SDL_GetAppState() & SDL_APPACTIVE) ) { |
218 | /* Send an internal activate event */ |
219 | SDL_PrivateAppActive(1, SDL_APPACTIVE); |
220 | } |
221 | if (GEM_refresh_name && GEM_title_name) { |
222 | wind_set(GEM_handle,WF_NAME,(short)(((unsigned long)GEM_title_name)>>16),(short)(((unsigned long)GEM_title_name) & 0xffff),0,0); |
223 | GEM_refresh_name = SDL_FALSE; |
224 | } |
225 | check_mouse_mode = 1; |
226 | break; |
227 | case WM_SIZED: |
228 | wind_set (message[3], WF_CURRXYWH, message[4], message[5], message[6], message[7]); |
229 | wind_get (message[3], WF_WORKXYWH, &x2, &y2, &w2, &h2); |
230 | GEM_win_fulled = SDL_FALSE; /* Cancel maximized flag */ |
231 | GEM_lock_redraw = SDL_TRUE; /* Prevent redraw till buffers resized */ |
232 | SDL_PrivateResize(w2, h2); |
233 | break; |
234 | case WM_FULLED: |
235 | { |
236 | short x,y,w,h; |
237 | |
238 | if (GEM_win_fulled) { |
239 | wind_get (message[3], WF_PREVXYWH, &x, &y, &w, &h); |
240 | GEM_win_fulled = SDL_FALSE; |
241 | } else { |
242 | x = GEM_desk_x; |
243 | y = GEM_desk_y; |
244 | w = GEM_desk_w; |
245 | h = GEM_desk_h; |
246 | GEM_win_fulled = SDL_TRUE; |
247 | } |
248 | wind_set (message[3], WF_CURRXYWH, x, y, w, h); |
249 | wind_get (message[3], WF_WORKXYWH, &x2, &y2, &w2, &h2); |
250 | GEM_lock_redraw = SDL_TRUE; /* Prevent redraw till buffers resized */ |
251 | SDL_PrivateResize(w2, h2); |
252 | } |
253 | break; |
254 | case WM_BOTTOMED: |
255 | wind_set(message[3],WF_BOTTOM,0,0,0,0); |
256 | /* Continue with BOTTOM event processing */ |
257 | case WM_UNTOPPED: |
258 | SDL_PrivateAppActive(0, SDL_APPINPUTFOCUS); |
259 | if (VDI_setpalette) { |
260 | VDI_setpalette(this, VDI_oldpalette); |
261 | } |
262 | check_mouse_mode = 1; |
263 | break; |
264 | } |
265 | |
266 | if (check_mouse_mode) { |
267 | GEM_CheckMouseMode(this); |
268 | } |
269 | |
270 | return quit; |
271 | } |
272 | |
273 | static void do_keyboard(short kc, short ks) |
274 | { |
275 | int scancode; |
276 | |
277 | if (kc) { |
278 | scancode=(kc>>8) & (ATARIBIOS_MAXKEYS-1); |
279 | gem_currentkeyboard[scancode]=0xFF; |
280 | } |
281 | |
282 | /* Read special keys */ |
283 | if (ks & K_RSHIFT) |
284 | gem_currentkeyboard[SCANCODE_RIGHTSHIFT]=0xFF; |
285 | if (ks & K_LSHIFT) |
286 | gem_currentkeyboard[SCANCODE_LEFTSHIFT]=0xFF; |
287 | if (ks & K_CTRL) |
288 | gem_currentkeyboard[SCANCODE_LEFTCONTROL]=0xFF; |
289 | if (ks & K_ALT) |
290 | gem_currentkeyboard[SCANCODE_LEFTALT]=0xFF; |
291 | } |
292 | |
293 | static void do_mouse(_THIS, short mx, short my, short mb, short ks) |
294 | { |
295 | static short prevmousex=0, prevmousey=0, prevmouseb=0; |
296 | short x2, y2, w2, h2; |
297 | |
298 | /* Don't return mouse events if out of window */ |
299 | if ((SDL_GetAppState() & SDL_APPMOUSEFOCUS)==0) { |
300 | return; |
301 | } |
302 | |
303 | /* Retrieve window coords, and generate mouse events accordingly */ |
304 | x2 = y2 = 0; |
305 | w2 = VDI_w; |
306 | h2 = VDI_h; |
307 | if ((!GEM_fullscreen) && (GEM_handle>=0)) { |
308 | wind_get (GEM_handle, WF_WORKXYWH, &x2, &y2, &w2, &h2); |
309 | |
310 | /* Do not generate mouse button event if out of window working area */ |
311 | if ((mx<x2) || (mx>=x2+w2) || (my<y2) || (my>=y2+h2)) { |
312 | mb=prevmouseb; |
313 | } |
314 | } |
315 | |
316 | /* Mouse motion ? */ |
317 | if (GEM_mouse_relative) { |
318 | if (GEM_usedevmouse) { |
319 | SDL_AtariDevMouse_PostMouseEvents(this, SDL_FALSE); |
320 | } else { |
321 | SDL_AtariXbios_PostMouseEvents(this, SDL_FALSE); |
322 | } |
323 | } else { |
324 | if ((prevmousex!=mx) || (prevmousey!=my)) { |
325 | int posx, posy; |
326 | |
327 | /* Give mouse position relative to window position */ |
328 | posx = mx - x2; |
329 | if (posx<0) posx = 0; |
330 | if (posx>w2) posx = w2-1; |
331 | posy = my - y2; |
332 | if (posy<0) posy = 0; |
333 | if (posy>h2) posy = h2-1; |
334 | |
335 | SDL_PrivateMouseMotion(0, 0, posx, posy); |
336 | } |
337 | prevmousex = mx; |
338 | prevmousey = my; |
339 | } |
340 | |
341 | /* Mouse button ? */ |
342 | if (prevmouseb!=mb) { |
343 | int i; |
344 | |
345 | for (i=0;i<2;i++) { |
346 | int curbutton, prevbutton; |
347 | |
348 | curbutton = mb & (1<<i); |
349 | prevbutton = prevmouseb & (1<<i); |
350 | |
351 | if (curbutton && !prevbutton) { |
352 | SDL_PrivateMouseButton(SDL_PRESSED, i+1, 0, 0); |
353 | } |
354 | if (!curbutton && prevbutton) { |
355 | SDL_PrivateMouseButton(SDL_RELEASED, i+1, 0, 0); |
356 | } |
357 | } |
358 | prevmouseb = mb; |
359 | } |
360 | |
361 | /* Read special keys */ |
362 | if (ks & K_RSHIFT) |
363 | gem_currentkeyboard[SCANCODE_RIGHTSHIFT]=0xFF; |
364 | if (ks & K_LSHIFT) |
365 | gem_currentkeyboard[SCANCODE_LEFTSHIFT]=0xFF; |
366 | if (ks & K_CTRL) |
367 | gem_currentkeyboard[SCANCODE_LEFTCONTROL]=0xFF; |
368 | if (ks & K_ALT) |
369 | gem_currentkeyboard[SCANCODE_LEFTALT]=0xFF; |
370 | } |