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