Mercurial > sdl-ios-xcode

annotate src/video/ataricommon/SDL_atarievents.c @ 4387:72d3b4fd918b SDL-1.2

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Missing pop over a jump
author Sam Lantinga <slouken@libsdl.org>
date Thu, 03 Dec 2009 04:20:46 +0000
parents a1b03ba2fcd0
children
rev   line source
281
c5010ab8ba35 Added initial support for Atari (thanks Patrice!)
Sam Lantinga <slouken@libsdl.org>
parents:
diff changeset
1 /*
c5010ab8ba35 Added initial support for Atari (thanks Patrice!)
Sam Lantinga <slouken@libsdl.org>
parents:
diff changeset
2 SDL - Simple DirectMedia Layer
4159
a1b03ba2fcd0 Updated copyright date
Sam Lantinga <slouken@libsdl.org>
parents: 3860
diff changeset
3 Copyright (C) 1997-2009 Sam Lantinga
281
c5010ab8ba35 Added initial support for Atari (thanks Patrice!)
Sam Lantinga <slouken@libsdl.org>
parents:
diff changeset
4
c5010ab8ba35 Added initial support for Atari (thanks Patrice!)
Sam Lantinga <slouken@libsdl.org>
parents:
diff changeset
5 This library is free software; you can redistribute it and/or
1312
c9b51268668f Updated copyright information and removed rcs id lines (problematic in branch merges)
Sam Lantinga <slouken@libsdl.org>
parents: 1221
diff changeset
6 modify it under the terms of the GNU Lesser General Public
281
c5010ab8ba35 Added initial support for Atari (thanks Patrice!)
Sam Lantinga <slouken@libsdl.org>
parents:
diff changeset
7 License as published by the Free Software Foundation; either
1312
c9b51268668f Updated copyright information and removed rcs id lines (problematic in branch merges)
Sam Lantinga <slouken@libsdl.org>
parents: 1221
diff changeset
8 version 2.1 of the License, or (at your option) any later version.
281
c5010ab8ba35 Added initial support for Atari (thanks Patrice!)
Sam Lantinga <slouken@libsdl.org>
parents:
diff changeset
9
c5010ab8ba35 Added initial support for Atari (thanks Patrice!)
Sam Lantinga <slouken@libsdl.org>
parents:
diff changeset
10 This library is distributed in the hope that it will be useful,
c5010ab8ba35 Added initial support for Atari (thanks Patrice!)
Sam Lantinga <slouken@libsdl.org>
parents:
diff changeset
11 but WITHOUT ANY WARRANTY; without even the implied warranty of
c5010ab8ba35 Added initial support for Atari (thanks Patrice!)
Sam Lantinga <slouken@libsdl.org>
parents:
diff changeset
12 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
1312
c9b51268668f Updated copyright information and removed rcs id lines (problematic in branch merges)
Sam Lantinga <slouken@libsdl.org>
parents: 1221
diff changeset
13 Lesser General Public License for more details.
281
c5010ab8ba35 Added initial support for Atari (thanks Patrice!)
Sam Lantinga <slouken@libsdl.org>
parents:
diff changeset
14
1312
c9b51268668f Updated copyright information and removed rcs id lines (problematic in branch merges)
Sam Lantinga <slouken@libsdl.org>
parents: 1221
diff changeset
15 You should have received a copy of the GNU Lesser General Public
c9b51268668f Updated copyright information and removed rcs id lines (problematic in branch merges)
Sam Lantinga <slouken@libsdl.org>
parents: 1221
diff changeset
16 License along with this library; if not, write to the Free Software
c9b51268668f Updated copyright information and removed rcs id lines (problematic in branch merges)
Sam Lantinga <slouken@libsdl.org>
parents: 1221
diff changeset
17 Foundation, Inc., 51 Franklin St, Fifth Floor, Boston, MA 02110-1301 USA
281
c5010ab8ba35 Added initial support for Atari (thanks Patrice!)
Sam Lantinga <slouken@libsdl.org>
parents:
diff changeset
18
c5010ab8ba35 Added initial support for Atari (thanks Patrice!)
Sam Lantinga <slouken@libsdl.org>
parents:
diff changeset
19 Sam Lantinga
c5010ab8ba35 Added initial support for Atari (thanks Patrice!)
Sam Lantinga <slouken@libsdl.org>
parents:
diff changeset
20 slouken@libsdl.org
c5010ab8ba35 Added initial support for Atari (thanks Patrice!)
Sam Lantinga <slouken@libsdl.org>
parents:
diff changeset
21 */
1402
d910939febfa Use consistent identifiers for the various platforms we support.
Sam Lantinga <slouken@libsdl.org>
parents: 1361
diff changeset
22 #include "SDL_config.h"
281
c5010ab8ba35 Added initial support for Atari (thanks Patrice!)
Sam Lantinga <slouken@libsdl.org>
parents:
diff changeset
23
c5010ab8ba35 Added initial support for Atari (thanks Patrice!)
Sam Lantinga <slouken@libsdl.org>
parents:
diff changeset
24 /*
c5010ab8ba35 Added initial support for Atari (thanks Patrice!)
Sam Lantinga <slouken@libsdl.org>
parents:
diff changeset
25 * Atari keyboard events manager
c5010ab8ba35 Added initial support for Atari (thanks Patrice!)
Sam Lantinga <slouken@libsdl.org>
parents:
diff changeset
26 *
c5010ab8ba35 Added initial support for Atari (thanks Patrice!)
Sam Lantinga <slouken@libsdl.org>
parents:
diff changeset
27 * Patrice Mandin
c5010ab8ba35 Added initial support for Atari (thanks Patrice!)
Sam Lantinga <slouken@libsdl.org>
parents:
diff changeset
28 *
c5010ab8ba35 Added initial support for Atari (thanks Patrice!)
Sam Lantinga <slouken@libsdl.org>
parents:
diff changeset
29 * This routines choose what the final event manager will be
c5010ab8ba35 Added initial support for Atari (thanks Patrice!)
Sam Lantinga <slouken@libsdl.org>
parents:
diff changeset
30 */
c5010ab8ba35 Added initial support for Atari (thanks Patrice!)
Sam Lantinga <slouken@libsdl.org>
parents:
diff changeset
31
557
0ce5a68278fd Updated Atari port for new system headers (thanks Patrice!)
Sam Lantinga <slouken@libsdl.org>
parents: 297
diff changeset
32 #include <mint/cookie.h>
3860
bf1586b58ef2 Factorize keyboard mapping between drivers
Patrice Mandin <patmandin@gmail.com>
parents: 1402
diff changeset
33 #include <mint/ostruct.h>
bf1586b58ef2 Factorize keyboard mapping between drivers
Patrice Mandin <patmandin@gmail.com>
parents: 1402
diff changeset
34 #include <mint/osbind.h>
281
c5010ab8ba35 Added initial support for Atari (thanks Patrice!)
Sam Lantinga <slouken@libsdl.org>
parents:
diff changeset
35
1361
19418e4422cb New configure-based build system. Still work in progress, but much improved
Sam Lantinga <slouken@libsdl.org>
parents: 1358
diff changeset
36 #include "../../events/SDL_sysevents.h"
19418e4422cb New configure-based build system. Still work in progress, but much improved
Sam Lantinga <slouken@libsdl.org>
parents: 1358
diff changeset
37 #include "../../events/SDL_events_c.h"
281
c5010ab8ba35 Added initial support for Atari (thanks Patrice!)
Sam Lantinga <slouken@libsdl.org>
parents:
diff changeset
38
3860
bf1586b58ef2 Factorize keyboard mapping between drivers
Patrice Mandin <patmandin@gmail.com>
parents: 1402
diff changeset
39 #include "SDL_atarikeys.h"
281
c5010ab8ba35 Added initial support for Atari (thanks Patrice!)
Sam Lantinga <slouken@libsdl.org>
parents:
diff changeset
40 #include "SDL_atarievents_c.h"
c5010ab8ba35 Added initial support for Atari (thanks Patrice!)
Sam Lantinga <slouken@libsdl.org>
parents:
diff changeset
41 #include "SDL_biosevents_c.h"
c5010ab8ba35 Added initial support for Atari (thanks Patrice!)
Sam Lantinga <slouken@libsdl.org>
parents:
diff changeset
42 #include "SDL_gemdosevents_c.h"
c5010ab8ba35 Added initial support for Atari (thanks Patrice!)
Sam Lantinga <slouken@libsdl.org>
parents:
diff changeset
43 #include "SDL_ikbdevents_c.h"
c5010ab8ba35 Added initial support for Atari (thanks Patrice!)
Sam Lantinga <slouken@libsdl.org>
parents:
diff changeset
44
c5010ab8ba35 Added initial support for Atari (thanks Patrice!)
Sam Lantinga <slouken@libsdl.org>
parents:
diff changeset
45 enum {
c5010ab8ba35 Added initial support for Atari (thanks Patrice!)
Sam Lantinga <slouken@libsdl.org>
parents:
diff changeset
46 MCH_ST=0,
c5010ab8ba35 Added initial support for Atari (thanks Patrice!)
Sam Lantinga <slouken@libsdl.org>
parents:
diff changeset
47 MCH_STE,
c5010ab8ba35 Added initial support for Atari (thanks Patrice!)
Sam Lantinga <slouken@libsdl.org>
parents:
diff changeset
48 MCH_TT,
1054
e89d7f826b4a Add support for ARAnyM Atari emulator
Patrice Mandin <patmandin@gmail.com>
parents: 769
diff changeset
49 MCH_F30,
1079
39b5606fa543 Forgot enumeration value for Atari clones
Patrice Mandin <patmandin@gmail.com>
parents: 1054
diff changeset
50 MCH_CLONE,
1054
e89d7f826b4a Add support for ARAnyM Atari emulator
Patrice Mandin <patmandin@gmail.com>
parents: 769
diff changeset
51 MCH_ARANYM
281
c5010ab8ba35 Added initial support for Atari (thanks Patrice!)
Sam Lantinga <slouken@libsdl.org>
parents:
diff changeset
52 };
c5010ab8ba35 Added initial support for Atari (thanks Patrice!)
Sam Lantinga <slouken@libsdl.org>
parents:
diff changeset
53
3860
bf1586b58ef2 Factorize keyboard mapping between drivers
Patrice Mandin <patmandin@gmail.com>
parents: 1402
diff changeset
54 #ifndef KT_NOCHANGE
bf1586b58ef2 Factorize keyboard mapping between drivers
Patrice Mandin <patmandin@gmail.com>
parents: 1402
diff changeset
55 # define KT_NOCHANGE -1
bf1586b58ef2 Factorize keyboard mapping between drivers
Patrice Mandin <patmandin@gmail.com>
parents: 1402
diff changeset
56 #endif
bf1586b58ef2 Factorize keyboard mapping between drivers
Patrice Mandin <patmandin@gmail.com>
parents: 1402
diff changeset
57
bf1586b58ef2 Factorize keyboard mapping between drivers
Patrice Mandin <patmandin@gmail.com>
parents: 1402
diff changeset
58 /* The translation tables from a console scancode to a SDL keysym */
bf1586b58ef2 Factorize keyboard mapping between drivers
Patrice Mandin <patmandin@gmail.com>
parents: 1402
diff changeset
59 static SDLKey keymap[ATARIBIOS_MAXKEYS];
bf1586b58ef2 Factorize keyboard mapping between drivers
Patrice Mandin <patmandin@gmail.com>
parents: 1402
diff changeset
60 static unsigned char *keytab_normal;
bf1586b58ef2 Factorize keyboard mapping between drivers
Patrice Mandin <patmandin@gmail.com>
parents: 1402
diff changeset
61
281
c5010ab8ba35 Added initial support for Atari (thanks Patrice!)
Sam Lantinga <slouken@libsdl.org>
parents:
diff changeset
62 void (*Atari_ShutdownEvents)(void);
c5010ab8ba35 Added initial support for Atari (thanks Patrice!)
Sam Lantinga <slouken@libsdl.org>
parents:
diff changeset
63
c5010ab8ba35 Added initial support for Atari (thanks Patrice!)
Sam Lantinga <slouken@libsdl.org>
parents:
diff changeset
64 static void Atari_InitializeEvents(_THIS)
c5010ab8ba35 Added initial support for Atari (thanks Patrice!)
Sam Lantinga <slouken@libsdl.org>
parents:
diff changeset
65 {
c5010ab8ba35 Added initial support for Atari (thanks Patrice!)
Sam Lantinga <slouken@libsdl.org>
parents:
diff changeset
66 const char *envr;
c5010ab8ba35 Added initial support for Atari (thanks Patrice!)
Sam Lantinga <slouken@libsdl.org>
parents:
diff changeset
67 unsigned long cookie_mch;
c5010ab8ba35 Added initial support for Atari (thanks Patrice!)
Sam Lantinga <slouken@libsdl.org>
parents:
diff changeset
68
c5010ab8ba35 Added initial support for Atari (thanks Patrice!)
Sam Lantinga <slouken@libsdl.org>
parents:
diff changeset
69 /* Test if we are on an Atari machine or not */
c5010ab8ba35 Added initial support for Atari (thanks Patrice!)
Sam Lantinga <slouken@libsdl.org>
parents:
diff changeset
70 if (Getcookie(C__MCH, &cookie_mch) == C_NOTFOUND) {
c5010ab8ba35 Added initial support for Atari (thanks Patrice!)
Sam Lantinga <slouken@libsdl.org>
parents:
diff changeset
71 cookie_mch = 0;
c5010ab8ba35 Added initial support for Atari (thanks Patrice!)
Sam Lantinga <slouken@libsdl.org>
parents:
diff changeset
72 }
c5010ab8ba35 Added initial support for Atari (thanks Patrice!)
Sam Lantinga <slouken@libsdl.org>
parents:
diff changeset
73 cookie_mch >>= 16;
c5010ab8ba35 Added initial support for Atari (thanks Patrice!)
Sam Lantinga <slouken@libsdl.org>
parents:
diff changeset
74
c5010ab8ba35 Added initial support for Atari (thanks Patrice!)
Sam Lantinga <slouken@libsdl.org>
parents:
diff changeset
75 /* Default is Ikbd, the faster except for clones */
c5010ab8ba35 Added initial support for Atari (thanks Patrice!)
Sam Lantinga <slouken@libsdl.org>
parents:
diff changeset
76 switch(cookie_mch) {
c5010ab8ba35 Added initial support for Atari (thanks Patrice!)
Sam Lantinga <slouken@libsdl.org>
parents:
diff changeset
77 case MCH_ST:
c5010ab8ba35 Added initial support for Atari (thanks Patrice!)
Sam Lantinga <slouken@libsdl.org>
parents:
diff changeset
78 case MCH_STE:
c5010ab8ba35 Added initial support for Atari (thanks Patrice!)
Sam Lantinga <slouken@libsdl.org>
parents:
diff changeset
79 case MCH_TT:
c5010ab8ba35 Added initial support for Atari (thanks Patrice!)
Sam Lantinga <slouken@libsdl.org>
parents:
diff changeset
80 case MCH_F30:
1054
e89d7f826b4a Add support for ARAnyM Atari emulator
Patrice Mandin <patmandin@gmail.com>
parents: 769
diff changeset
81 case MCH_ARANYM:
281
c5010ab8ba35 Added initial support for Atari (thanks Patrice!)
Sam Lantinga <slouken@libsdl.org>
parents:
diff changeset
82 this->InitOSKeymap=AtariIkbd_InitOSKeymap;
c5010ab8ba35 Added initial support for Atari (thanks Patrice!)
Sam Lantinga <slouken@libsdl.org>
parents:
diff changeset
83 this->PumpEvents=AtariIkbd_PumpEvents;
c5010ab8ba35 Added initial support for Atari (thanks Patrice!)
Sam Lantinga <slouken@libsdl.org>
parents:
diff changeset
84 Atari_ShutdownEvents=AtariIkbd_ShutdownEvents;
c5010ab8ba35 Added initial support for Atari (thanks Patrice!)
Sam Lantinga <slouken@libsdl.org>
parents:
diff changeset
85 break;
c5010ab8ba35 Added initial support for Atari (thanks Patrice!)
Sam Lantinga <slouken@libsdl.org>
parents:
diff changeset
86 default:
c5010ab8ba35 Added initial support for Atari (thanks Patrice!)
Sam Lantinga <slouken@libsdl.org>
parents:
diff changeset
87 this->InitOSKeymap=AtariGemdos_InitOSKeymap;
c5010ab8ba35 Added initial support for Atari (thanks Patrice!)
Sam Lantinga <slouken@libsdl.org>
parents:
diff changeset
88 this->PumpEvents=AtariGemdos_PumpEvents;
c5010ab8ba35 Added initial support for Atari (thanks Patrice!)
Sam Lantinga <slouken@libsdl.org>
parents:
diff changeset
89 Atari_ShutdownEvents=AtariGemdos_ShutdownEvents;
c5010ab8ba35 Added initial support for Atari (thanks Patrice!)
Sam Lantinga <slouken@libsdl.org>
parents:
diff changeset
90 break;
c5010ab8ba35 Added initial support for Atari (thanks Patrice!)
Sam Lantinga <slouken@libsdl.org>
parents:
diff changeset
91 }
c5010ab8ba35 Added initial support for Atari (thanks Patrice!)
Sam Lantinga <slouken@libsdl.org>
parents:
diff changeset
92
1336
3692456e7b0f Use SDL_ prefixed versions of C library functions.
Sam Lantinga <slouken@libsdl.org>
parents: 1312
diff changeset
93 envr = SDL_getenv("SDL_ATARI_EVENTSDRIVER");
281
c5010ab8ba35 Added initial support for Atari (thanks Patrice!)
Sam Lantinga <slouken@libsdl.org>
parents:
diff changeset
94
c5010ab8ba35 Added initial support for Atari (thanks Patrice!)
Sam Lantinga <slouken@libsdl.org>
parents:
diff changeset
95 if (!envr) {
c5010ab8ba35 Added initial support for Atari (thanks Patrice!)
Sam Lantinga <slouken@libsdl.org>
parents:
diff changeset
96 return;
c5010ab8ba35 Added initial support for Atari (thanks Patrice!)
Sam Lantinga <slouken@libsdl.org>
parents:
diff changeset
97 }
c5010ab8ba35 Added initial support for Atari (thanks Patrice!)
Sam Lantinga <slouken@libsdl.org>
parents:
diff changeset
98
1336
3692456e7b0f Use SDL_ prefixed versions of C library functions.
Sam Lantinga <slouken@libsdl.org>
parents: 1312
diff changeset
99 if (SDL_strcmp(envr, "ikbd") == 0) {
281
c5010ab8ba35 Added initial support for Atari (thanks Patrice!)
Sam Lantinga <slouken@libsdl.org>
parents:
diff changeset
100 this->InitOSKeymap=AtariIkbd_InitOSKeymap;
c5010ab8ba35 Added initial support for Atari (thanks Patrice!)
Sam Lantinga <slouken@libsdl.org>
parents:
diff changeset
101 this->PumpEvents=AtariIkbd_PumpEvents;
c5010ab8ba35 Added initial support for Atari (thanks Patrice!)
Sam Lantinga <slouken@libsdl.org>
parents:
diff changeset
102 Atari_ShutdownEvents=AtariIkbd_ShutdownEvents;
c5010ab8ba35 Added initial support for Atari (thanks Patrice!)
Sam Lantinga <slouken@libsdl.org>
parents:
diff changeset
103 }
c5010ab8ba35 Added initial support for Atari (thanks Patrice!)
Sam Lantinga <slouken@libsdl.org>
parents:
diff changeset
104
1336
3692456e7b0f Use SDL_ prefixed versions of C library functions.
Sam Lantinga <slouken@libsdl.org>
parents: 1312
diff changeset
105 if (SDL_strcmp(envr, "gemdos") == 0) {
281
c5010ab8ba35 Added initial support for Atari (thanks Patrice!)
Sam Lantinga <slouken@libsdl.org>
parents:
diff changeset
106 this->InitOSKeymap=AtariGemdos_InitOSKeymap;
c5010ab8ba35 Added initial support for Atari (thanks Patrice!)
Sam Lantinga <slouken@libsdl.org>
parents:
diff changeset
107 this->PumpEvents=AtariGemdos_PumpEvents;
c5010ab8ba35 Added initial support for Atari (thanks Patrice!)
Sam Lantinga <slouken@libsdl.org>
parents:
diff changeset
108 Atari_ShutdownEvents=AtariGemdos_ShutdownEvents;
c5010ab8ba35 Added initial support for Atari (thanks Patrice!)
Sam Lantinga <slouken@libsdl.org>
parents:
diff changeset
109 }
c5010ab8ba35 Added initial support for Atari (thanks Patrice!)
Sam Lantinga <slouken@libsdl.org>
parents:
diff changeset
110
1336
3692456e7b0f Use SDL_ prefixed versions of C library functions.
Sam Lantinga <slouken@libsdl.org>
parents: 1312
diff changeset
111 if (SDL_strcmp(envr, "bios") == 0) {
281
c5010ab8ba35 Added initial support for Atari (thanks Patrice!)
Sam Lantinga <slouken@libsdl.org>
parents:
diff changeset
112 this->InitOSKeymap=AtariBios_InitOSKeymap;
c5010ab8ba35 Added initial support for Atari (thanks Patrice!)
Sam Lantinga <slouken@libsdl.org>
parents:
diff changeset
113 this->PumpEvents=AtariBios_PumpEvents;
c5010ab8ba35 Added initial support for Atari (thanks Patrice!)
Sam Lantinga <slouken@libsdl.org>
parents:
diff changeset
114 Atari_ShutdownEvents=AtariBios_ShutdownEvents;
c5010ab8ba35 Added initial support for Atari (thanks Patrice!)
Sam Lantinga <slouken@libsdl.org>
parents:
diff changeset
115 }
c5010ab8ba35 Added initial support for Atari (thanks Patrice!)
Sam Lantinga <slouken@libsdl.org>
parents:
diff changeset
116 }
c5010ab8ba35 Added initial support for Atari (thanks Patrice!)
Sam Lantinga <slouken@libsdl.org>
parents:
diff changeset
117
c5010ab8ba35 Added initial support for Atari (thanks Patrice!)
Sam Lantinga <slouken@libsdl.org>
parents:
diff changeset
118 void Atari_InitOSKeymap(_THIS)
c5010ab8ba35 Added initial support for Atari (thanks Patrice!)
Sam Lantinga <slouken@libsdl.org>
parents:
diff changeset
119 {
c5010ab8ba35 Added initial support for Atari (thanks Patrice!)
Sam Lantinga <slouken@libsdl.org>
parents:
diff changeset
120 Atari_InitializeEvents(this);
c5010ab8ba35 Added initial support for Atari (thanks Patrice!)
Sam Lantinga <slouken@libsdl.org>
parents:
diff changeset
121
3860
bf1586b58ef2 Factorize keyboard mapping between drivers
Patrice Mandin <patmandin@gmail.com>
parents: 1402
diff changeset
122 SDL_Atari_InitInternalKeymap(this);
bf1586b58ef2 Factorize keyboard mapping between drivers
Patrice Mandin <patmandin@gmail.com>
parents: 1402
diff changeset
123
281
c5010ab8ba35 Added initial support for Atari (thanks Patrice!)
Sam Lantinga <slouken@libsdl.org>
parents:
diff changeset
124 /* Call choosen routine */
c5010ab8ba35 Added initial support for Atari (thanks Patrice!)
Sam Lantinga <slouken@libsdl.org>
parents:
diff changeset
125 this->InitOSKeymap(this);
c5010ab8ba35 Added initial support for Atari (thanks Patrice!)
Sam Lantinga <slouken@libsdl.org>
parents:
diff changeset
126 }
c5010ab8ba35 Added initial support for Atari (thanks Patrice!)
Sam Lantinga <slouken@libsdl.org>
parents:
diff changeset
127
3860
bf1586b58ef2 Factorize keyboard mapping between drivers
Patrice Mandin <patmandin@gmail.com>
parents: 1402
diff changeset
128 void SDL_Atari_InitInternalKeymap(_THIS)
bf1586b58ef2 Factorize keyboard mapping between drivers
Patrice Mandin <patmandin@gmail.com>
parents: 1402
diff changeset
129 {
bf1586b58ef2 Factorize keyboard mapping between drivers
Patrice Mandin <patmandin@gmail.com>
parents: 1402
diff changeset
130 int i;
bf1586b58ef2 Factorize keyboard mapping between drivers
Patrice Mandin <patmandin@gmail.com>
parents: 1402
diff changeset
131 _KEYTAB *key_tables;
bf1586b58ef2 Factorize keyboard mapping between drivers
Patrice Mandin <patmandin@gmail.com>
parents: 1402
diff changeset
132
bf1586b58ef2 Factorize keyboard mapping between drivers
Patrice Mandin <patmandin@gmail.com>
parents: 1402
diff changeset
133 /* Read system tables for scancode -> ascii translation */
bf1586b58ef2 Factorize keyboard mapping between drivers
Patrice Mandin <patmandin@gmail.com>
parents: 1402
diff changeset
134 key_tables = (_KEYTAB *) Keytbl(KT_NOCHANGE, KT_NOCHANGE, KT_NOCHANGE);
bf1586b58ef2 Factorize keyboard mapping between drivers
Patrice Mandin <patmandin@gmail.com>
parents: 1402
diff changeset
135 keytab_normal = key_tables->unshift;
bf1586b58ef2 Factorize keyboard mapping between drivers
Patrice Mandin <patmandin@gmail.com>
parents: 1402
diff changeset
136
bf1586b58ef2 Factorize keyboard mapping between drivers
Patrice Mandin <patmandin@gmail.com>
parents: 1402
diff changeset
137 /* Initialize keymap */
bf1586b58ef2 Factorize keyboard mapping between drivers
Patrice Mandin <patmandin@gmail.com>
parents: 1402
diff changeset
138 for ( i=0; i<ATARIBIOS_MAXKEYS; i++ )
bf1586b58ef2 Factorize keyboard mapping between drivers
Patrice Mandin <patmandin@gmail.com>
parents: 1402
diff changeset
139 keymap[i] = SDLK_UNKNOWN;
bf1586b58ef2 Factorize keyboard mapping between drivers
Patrice Mandin <patmandin@gmail.com>
parents: 1402
diff changeset
140
bf1586b58ef2 Factorize keyboard mapping between drivers
Patrice Mandin <patmandin@gmail.com>
parents: 1402
diff changeset
141 /* Functions keys */
bf1586b58ef2 Factorize keyboard mapping between drivers
Patrice Mandin <patmandin@gmail.com>
parents: 1402
diff changeset
142 for ( i = 0; i<10; i++ )
bf1586b58ef2 Factorize keyboard mapping between drivers
Patrice Mandin <patmandin@gmail.com>
parents: 1402
diff changeset
143 keymap[SCANCODE_F1 + i] = SDLK_F1+i;
bf1586b58ef2 Factorize keyboard mapping between drivers
Patrice Mandin <patmandin@gmail.com>
parents: 1402
diff changeset
144
bf1586b58ef2 Factorize keyboard mapping between drivers
Patrice Mandin <patmandin@gmail.com>
parents: 1402
diff changeset
145 /* Cursor keypad */
bf1586b58ef2 Factorize keyboard mapping between drivers
Patrice Mandin <patmandin@gmail.com>
parents: 1402
diff changeset
146 keymap[SCANCODE_HELP] = SDLK_HELP;
bf1586b58ef2 Factorize keyboard mapping between drivers
Patrice Mandin <patmandin@gmail.com>
parents: 1402
diff changeset
147 keymap[SCANCODE_UNDO] = SDLK_UNDO;
bf1586b58ef2 Factorize keyboard mapping between drivers
Patrice Mandin <patmandin@gmail.com>
parents: 1402
diff changeset
148 keymap[SCANCODE_INSERT] = SDLK_INSERT;
bf1586b58ef2 Factorize keyboard mapping between drivers
Patrice Mandin <patmandin@gmail.com>
parents: 1402
diff changeset
149 keymap[SCANCODE_CLRHOME] = SDLK_HOME;
bf1586b58ef2 Factorize keyboard mapping between drivers
Patrice Mandin <patmandin@gmail.com>
parents: 1402
diff changeset
150 keymap[SCANCODE_UP] = SDLK_UP;
bf1586b58ef2 Factorize keyboard mapping between drivers
Patrice Mandin <patmandin@gmail.com>
parents: 1402
diff changeset
151 keymap[SCANCODE_DOWN] = SDLK_DOWN;
bf1586b58ef2 Factorize keyboard mapping between drivers
Patrice Mandin <patmandin@gmail.com>
parents: 1402
diff changeset
152 keymap[SCANCODE_RIGHT] = SDLK_RIGHT;
bf1586b58ef2 Factorize keyboard mapping between drivers
Patrice Mandin <patmandin@gmail.com>
parents: 1402
diff changeset
153 keymap[SCANCODE_LEFT] = SDLK_LEFT;
bf1586b58ef2 Factorize keyboard mapping between drivers
Patrice Mandin <patmandin@gmail.com>
parents: 1402
diff changeset
154
bf1586b58ef2 Factorize keyboard mapping between drivers
Patrice Mandin <patmandin@gmail.com>
parents: 1402
diff changeset
155 /* Special keys */
bf1586b58ef2 Factorize keyboard mapping between drivers
Patrice Mandin <patmandin@gmail.com>
parents: 1402
diff changeset
156 keymap[SCANCODE_ESCAPE] = SDLK_ESCAPE;
bf1586b58ef2 Factorize keyboard mapping between drivers
Patrice Mandin <patmandin@gmail.com>
parents: 1402
diff changeset
157 keymap[SCANCODE_BACKSPACE] = SDLK_BACKSPACE;
bf1586b58ef2 Factorize keyboard mapping between drivers
Patrice Mandin <patmandin@gmail.com>
parents: 1402
diff changeset
158 keymap[SCANCODE_TAB] = SDLK_TAB;
bf1586b58ef2 Factorize keyboard mapping between drivers
Patrice Mandin <patmandin@gmail.com>
parents: 1402
diff changeset
159 keymap[SCANCODE_ENTER] = SDLK_RETURN;
bf1586b58ef2 Factorize keyboard mapping between drivers
Patrice Mandin <patmandin@gmail.com>
parents: 1402
diff changeset
160 keymap[SCANCODE_DELETE] = SDLK_DELETE;
bf1586b58ef2 Factorize keyboard mapping between drivers
Patrice Mandin <patmandin@gmail.com>
parents: 1402
diff changeset
161 keymap[SCANCODE_LEFTCONTROL] = SDLK_LCTRL;
bf1586b58ef2 Factorize keyboard mapping between drivers
Patrice Mandin <patmandin@gmail.com>
parents: 1402
diff changeset
162 keymap[SCANCODE_LEFTSHIFT] = SDLK_LSHIFT;
bf1586b58ef2 Factorize keyboard mapping between drivers
Patrice Mandin <patmandin@gmail.com>
parents: 1402
diff changeset
163 keymap[SCANCODE_RIGHTSHIFT] = SDLK_RSHIFT;
bf1586b58ef2 Factorize keyboard mapping between drivers
Patrice Mandin <patmandin@gmail.com>
parents: 1402
diff changeset
164 keymap[SCANCODE_LEFTALT] = SDLK_LALT;
bf1586b58ef2 Factorize keyboard mapping between drivers
Patrice Mandin <patmandin@gmail.com>
parents: 1402
diff changeset
165 keymap[SCANCODE_CAPSLOCK] = SDLK_CAPSLOCK;
bf1586b58ef2 Factorize keyboard mapping between drivers
Patrice Mandin <patmandin@gmail.com>
parents: 1402
diff changeset
166 }
bf1586b58ef2 Factorize keyboard mapping between drivers
Patrice Mandin <patmandin@gmail.com>
parents: 1402
diff changeset
167
281
c5010ab8ba35 Added initial support for Atari (thanks Patrice!)
Sam Lantinga <slouken@libsdl.org>
parents:
diff changeset
168 void Atari_PumpEvents(_THIS)
c5010ab8ba35 Added initial support for Atari (thanks Patrice!)
Sam Lantinga <slouken@libsdl.org>
parents:
diff changeset
169 {
c5010ab8ba35 Added initial support for Atari (thanks Patrice!)
Sam Lantinga <slouken@libsdl.org>
parents:
diff changeset
170 Atari_InitializeEvents(this);
c5010ab8ba35 Added initial support for Atari (thanks Patrice!)
Sam Lantinga <slouken@libsdl.org>
parents:
diff changeset
171
c5010ab8ba35 Added initial support for Atari (thanks Patrice!)
Sam Lantinga <slouken@libsdl.org>
parents:
diff changeset
172 /* Call choosen routine */
c5010ab8ba35 Added initial support for Atari (thanks Patrice!)
Sam Lantinga <slouken@libsdl.org>
parents:
diff changeset
173 this->PumpEvents(this);
c5010ab8ba35 Added initial support for Atari (thanks Patrice!)
Sam Lantinga <slouken@libsdl.org>
parents:
diff changeset
174 }
1209
a55ac374271c Added preliminary missingtranslation from Atari to Unicode charset
Patrice Mandin <patmandin@gmail.com>
parents: 1079
diff changeset
175
1221
8ef3e7e92a91 Use a simple table for Unicode translation
Patrice Mandin <patmandin@gmail.com>
parents: 1209
diff changeset
176 /* Atari to Unicode charset translation table */
8ef3e7e92a91 Use a simple table for Unicode translation
Patrice Mandin <patmandin@gmail.com>
parents: 1209
diff changeset
177
8ef3e7e92a91 Use a simple table for Unicode translation
Patrice Mandin <patmandin@gmail.com>
parents: 1209
diff changeset
178 Uint16 SDL_AtariToUnicodeTable[256]={
8ef3e7e92a91 Use a simple table for Unicode translation
Patrice Mandin <patmandin@gmail.com>
parents: 1209
diff changeset
179 /* Standard ASCII characters from 0x00 to 0x7e */
8ef3e7e92a91 Use a simple table for Unicode translation
Patrice Mandin <patmandin@gmail.com>
parents: 1209
diff changeset
180 /* Unicode stuff from 0x7f to 0xff */
8ef3e7e92a91 Use a simple table for Unicode translation
Patrice Mandin <patmandin@gmail.com>
parents: 1209
diff changeset
181
8ef3e7e92a91 Use a simple table for Unicode translation
Patrice Mandin <patmandin@gmail.com>
parents: 1209
diff changeset
182 0x0000,0x0001,0x0002,0x0003,0x0004,0x0005,0x0006,0x0007,
8ef3e7e92a91 Use a simple table for Unicode translation
Patrice Mandin <patmandin@gmail.com>
parents: 1209
diff changeset
183 0x0008,0x0009,0x000A,0x000B,0x000C,0x000D,0x000E,0x000F,
8ef3e7e92a91 Use a simple table for Unicode translation
Patrice Mandin <patmandin@gmail.com>
parents: 1209
diff changeset
184 0x0010,0x0011,0x0012,0x0013,0x0014,0x0015,0x0016,0x0017,
8ef3e7e92a91 Use a simple table for Unicode translation
Patrice Mandin <patmandin@gmail.com>
parents: 1209
diff changeset
185 0x0018,0x0019,0x001A,0x001B,0x001C,0x001D,0x001E,0x001F,
8ef3e7e92a91 Use a simple table for Unicode translation
Patrice Mandin <patmandin@gmail.com>
parents: 1209
diff changeset
186 0x0020,0x0021,0x0022,0x0023,0x0024,0x0025,0x0026,0x0027,
8ef3e7e92a91 Use a simple table for Unicode translation
Patrice Mandin <patmandin@gmail.com>
parents: 1209
diff changeset
187 0x0028,0x0029,0x002A,0x002B,0x002C,0x002D,0x002E,0x002F,
8ef3e7e92a91 Use a simple table for Unicode translation
Patrice Mandin <patmandin@gmail.com>
parents: 1209
diff changeset
188 0x0030,0x0031,0x0032,0x0033,0x0034,0x0035,0x0036,0x0037,
8ef3e7e92a91 Use a simple table for Unicode translation
Patrice Mandin <patmandin@gmail.com>
parents: 1209
diff changeset
189 0x0038,0x0039,0x003A,0x003B,0x003C,0x003D,0x003E,0x003F,
1209
a55ac374271c Added preliminary missingtranslation from Atari to Unicode charset
Patrice Mandin <patmandin@gmail.com>
parents: 1079
diff changeset
190
1221
8ef3e7e92a91 Use a simple table for Unicode translation
Patrice Mandin <patmandin@gmail.com>
parents: 1209
diff changeset
191 0x0040,0x0041,0x0042,0x0043,0x0044,0x0045,0x0046,0x0047,
8ef3e7e92a91 Use a simple table for Unicode translation
Patrice Mandin <patmandin@gmail.com>
parents: 1209
diff changeset
192 0x0048,0x0049,0x004A,0x004B,0x004C,0x004D,0x004E,0x004F,
8ef3e7e92a91 Use a simple table for Unicode translation
Patrice Mandin <patmandin@gmail.com>
parents: 1209
diff changeset
193 0x0050,0x0051,0x0052,0x0053,0x0054,0x0055,0x0056,0x0057,
8ef3e7e92a91 Use a simple table for Unicode translation
Patrice Mandin <patmandin@gmail.com>
parents: 1209
diff changeset
194 0x0058,0x0059,0x005A,0x005B,0x005C,0x005D,0x005E,0x005F,
8ef3e7e92a91 Use a simple table for Unicode translation
Patrice Mandin <patmandin@gmail.com>
parents: 1209
diff changeset
195 0x0060,0x0061,0x0062,0x0063,0x0064,0x0065,0x0066,0x0067,
8ef3e7e92a91 Use a simple table for Unicode translation
Patrice Mandin <patmandin@gmail.com>
parents: 1209
diff changeset
196 0x0068,0x0069,0x006A,0x006B,0x006C,0x006D,0x006E,0x006F,
8ef3e7e92a91 Use a simple table for Unicode translation
Patrice Mandin <patmandin@gmail.com>
parents: 1209
diff changeset
197 0x0070,0x0071,0x0072,0x0073,0x0074,0x0075,0x0076,0x0077,
8ef3e7e92a91 Use a simple table for Unicode translation
Patrice Mandin <patmandin@gmail.com>
parents: 1209
diff changeset
198 0x0078,0x0079,0x007A,0x007B,0x007C,0x007D,0x007E,0x0394,
8ef3e7e92a91 Use a simple table for Unicode translation
Patrice Mandin <patmandin@gmail.com>
parents: 1209
diff changeset
199
8ef3e7e92a91 Use a simple table for Unicode translation
Patrice Mandin <patmandin@gmail.com>
parents: 1209
diff changeset
200 0x00C7,0x00FC,0x00E9,0x00E2,0x00E4,0x00E0,0x00E5,0x00E7,
8ef3e7e92a91 Use a simple table for Unicode translation
Patrice Mandin <patmandin@gmail.com>
parents: 1209
diff changeset
201 0x00EA,0x00EB,0x00E8,0x00EF,0x00EE,0x00EC,0x00C4,0x00C5,
8ef3e7e92a91 Use a simple table for Unicode translation
Patrice Mandin <patmandin@gmail.com>
parents: 1209
diff changeset
202 0x00C9,0x00E6,0x00C6,0x00F4,0x00F6,0x00F2,0x00FB,0x00F9,
8ef3e7e92a91 Use a simple table for Unicode translation
Patrice Mandin <patmandin@gmail.com>
parents: 1209
diff changeset
203 0x00FF,0x00D6,0x00DC,0x00A2,0x00A3,0x00A5,0x00DF,0x0192,
8ef3e7e92a91 Use a simple table for Unicode translation
Patrice Mandin <patmandin@gmail.com>
parents: 1209
diff changeset
204 0x00E1,0x00ED,0x00F3,0x00FA,0x00F1,0x00D1,0x00AA,0x00BA,
8ef3e7e92a91 Use a simple table for Unicode translation
Patrice Mandin <patmandin@gmail.com>
parents: 1209
diff changeset
205 0x00BF,0x2310,0x00AC,0x00BD,0x00BC,0x00A1,0x00AB,0x00BB,
8ef3e7e92a91 Use a simple table for Unicode translation
Patrice Mandin <patmandin@gmail.com>
parents: 1209
diff changeset
206 0x00C3,0x00F5,0x00D8,0x00F8,0x0153,0x0152,0x00C0,0x00C3,
8ef3e7e92a91 Use a simple table for Unicode translation
Patrice Mandin <patmandin@gmail.com>
parents: 1209
diff changeset
207 0x00D5,0x00A8,0x00B4,0x2020,0x00B6,0x00A9,0x00AE,0x2122,
8ef3e7e92a91 Use a simple table for Unicode translation
Patrice Mandin <patmandin@gmail.com>
parents: 1209
diff changeset
208
8ef3e7e92a91 Use a simple table for Unicode translation
Patrice Mandin <patmandin@gmail.com>
parents: 1209
diff changeset
209 0x0133,0x0132,0x05D0,0x05D1,0x05D2,0x05D3,0x05D4,0x05D5,
8ef3e7e92a91 Use a simple table for Unicode translation
Patrice Mandin <patmandin@gmail.com>
parents: 1209
diff changeset
210 0x05D6,0x05D7,0x05D8,0x05D9,0x05DB,0x05DC,0x05DE,0x05E0,
8ef3e7e92a91 Use a simple table for Unicode translation
Patrice Mandin <patmandin@gmail.com>
parents: 1209
diff changeset
211 0x05E1,0x05E2,0x05E4,0x05E6,0x05E7,0x05E8,0x05E9,0x05EA,
8ef3e7e92a91 Use a simple table for Unicode translation
Patrice Mandin <patmandin@gmail.com>
parents: 1209
diff changeset
212 0x05DF,0x05DA,0x05DD,0x05E3,0x05E5,0x00A7,0x2038,0x221E,
8ef3e7e92a91 Use a simple table for Unicode translation
Patrice Mandin <patmandin@gmail.com>
parents: 1209
diff changeset
213 0x03B1,0x03B2,0x0393,0x03C0,0x03A3,0x03C3,0x00B5,0x03C4,
8ef3e7e92a91 Use a simple table for Unicode translation
Patrice Mandin <patmandin@gmail.com>
parents: 1209
diff changeset
214 0x03A6,0x0398,0x03A9,0x03B4,0x222E,0x03C6,0x2208,0x2229,
8ef3e7e92a91 Use a simple table for Unicode translation
Patrice Mandin <patmandin@gmail.com>
parents: 1209
diff changeset
215 0x2261,0x00B1,0x2265,0x2264,0x2320,0x2321,0x00F7,0x2248,
8ef3e7e92a91 Use a simple table for Unicode translation
Patrice Mandin <patmandin@gmail.com>
parents: 1209
diff changeset
216 0x00B0,0x2022,0x00B7,0x221A,0x207F,0x00B2,0x00B3,0x00AF
8ef3e7e92a91 Use a simple table for Unicode translation
Patrice Mandin <patmandin@gmail.com>
parents: 1209
diff changeset
217 };
3860
bf1586b58ef2 Factorize keyboard mapping between drivers
Patrice Mandin <patmandin@gmail.com>
parents: 1402
diff changeset
218
bf1586b58ef2 Factorize keyboard mapping between drivers
Patrice Mandin <patmandin@gmail.com>
parents: 1402
diff changeset
219 SDL_keysym *SDL_Atari_TranslateKey(int scancode, SDL_keysym *keysym,
bf1586b58ef2 Factorize keyboard mapping between drivers
Patrice Mandin <patmandin@gmail.com>
parents: 1402
diff changeset
220 SDL_bool pressed)
bf1586b58ef2 Factorize keyboard mapping between drivers
Patrice Mandin <patmandin@gmail.com>
parents: 1402
diff changeset
221 {
bf1586b58ef2 Factorize keyboard mapping between drivers
Patrice Mandin <patmandin@gmail.com>
parents: 1402
diff changeset
222 int asciicode = 0;
bf1586b58ef2 Factorize keyboard mapping between drivers
Patrice Mandin <patmandin@gmail.com>
parents: 1402
diff changeset
223
bf1586b58ef2 Factorize keyboard mapping between drivers
Patrice Mandin <patmandin@gmail.com>
parents: 1402
diff changeset
224 /* Set the keysym information */
bf1586b58ef2 Factorize keyboard mapping between drivers
Patrice Mandin <patmandin@gmail.com>
parents: 1402
diff changeset
225 keysym->scancode = scancode;
bf1586b58ef2 Factorize keyboard mapping between drivers
Patrice Mandin <patmandin@gmail.com>
parents: 1402
diff changeset
226 keysym->mod = KMOD_NONE;
bf1586b58ef2 Factorize keyboard mapping between drivers
Patrice Mandin <patmandin@gmail.com>
parents: 1402
diff changeset
227 keysym->sym = keymap[scancode];
bf1586b58ef2 Factorize keyboard mapping between drivers
Patrice Mandin <patmandin@gmail.com>
parents: 1402
diff changeset
228 keysym->unicode = 0;
bf1586b58ef2 Factorize keyboard mapping between drivers
Patrice Mandin <patmandin@gmail.com>
parents: 1402
diff changeset
229
bf1586b58ef2 Factorize keyboard mapping between drivers
Patrice Mandin <patmandin@gmail.com>
parents: 1402
diff changeset
230 if (keysym->sym == SDLK_UNKNOWN) {
bf1586b58ef2 Factorize keyboard mapping between drivers
Patrice Mandin <patmandin@gmail.com>
parents: 1402
diff changeset
231 keysym->sym = asciicode = keytab_normal[scancode];
bf1586b58ef2 Factorize keyboard mapping between drivers
Patrice Mandin <patmandin@gmail.com>
parents: 1402
diff changeset
232 }
bf1586b58ef2 Factorize keyboard mapping between drivers
Patrice Mandin <patmandin@gmail.com>
parents: 1402
diff changeset
233
bf1586b58ef2 Factorize keyboard mapping between drivers
Patrice Mandin <patmandin@gmail.com>
parents: 1402
diff changeset
234 if (SDL_TranslateUNICODE && pressed) {
bf1586b58ef2 Factorize keyboard mapping between drivers
Patrice Mandin <patmandin@gmail.com>
parents: 1402
diff changeset
235 keysym->unicode = SDL_AtariToUnicodeTable[asciicode];
bf1586b58ef2 Factorize keyboard mapping between drivers
Patrice Mandin <patmandin@gmail.com>
parents: 1402
diff changeset
236 }
bf1586b58ef2 Factorize keyboard mapping between drivers
Patrice Mandin <patmandin@gmail.com>
parents: 1402
diff changeset
237
bf1586b58ef2 Factorize keyboard mapping between drivers
Patrice Mandin <patmandin@gmail.com>
parents: 1402
diff changeset
238 return(keysym);
bf1586b58ef2 Factorize keyboard mapping between drivers
Patrice Mandin <patmandin@gmail.com>
parents: 1402
diff changeset
239 }