1 /* 2 SDL - Simple DirectMedia Layer 3 Copyright (C) 1997-2006 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 (at) 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 } 371
