move common files to root
[libpicofe.git] / in_sdl.c
diff --git a/in_sdl.c b/in_sdl.c
new file mode 100644 (file)
index 0000000..ce57536
--- /dev/null
+++ b/in_sdl.c
@@ -0,0 +1,467 @@
+/*
+ * (C) GraÅžvydas "notaz" Ignotas, 2012
+ *
+ * This work is licensed under the terms of any of these licenses
+ * (at your option):
+ *  - GNU GPL, version 2 or later.
+ *  - GNU LGPL, version 2.1 or later.
+ * See the COPYING file in the top-level directory.
+ */
+
+#include <stdio.h>
+#include <SDL.h>
+#include "input.h"
+#include "in_sdl.h"
+
+#define IN_SDL_PREFIX "sdl:"
+/* should be machine word for best performace */
+typedef unsigned long keybits_t;
+#define KEYBITS_WORD_BITS (sizeof(keybits_t) * 8)
+
+struct in_sdl_state {
+       SDL_Joystick *joy;
+       int joy_id;
+       int axis_keydown[2];
+       keybits_t keystate[SDLK_LAST / KEYBITS_WORD_BITS + 1];
+};
+
+static const char * const in_sdl_keys[SDLK_LAST] = {
+       [SDLK_BACKSPACE] = "backspace",
+       [SDLK_TAB] = "tab",
+       [SDLK_CLEAR] = "clear",
+       [SDLK_RETURN] = "return",
+       [SDLK_PAUSE] = "pause",
+       [SDLK_ESCAPE] = "escape",
+       [SDLK_SPACE] = "space",
+       [SDLK_EXCLAIM]  = "!",
+       [SDLK_QUOTEDBL]  = "\"",
+       [SDLK_HASH]  = "#",
+       [SDLK_DOLLAR]  = "$",
+       [SDLK_AMPERSAND]  = "&",
+       [SDLK_QUOTE] = "'",
+       [SDLK_LEFTPAREN] = "(",
+       [SDLK_RIGHTPAREN] = ")",
+       [SDLK_ASTERISK] = "*",
+       [SDLK_PLUS] = "+",
+       [SDLK_COMMA] = ",",
+       [SDLK_MINUS] = "-",
+       [SDLK_PERIOD] = ".",
+       [SDLK_SLASH] = "/",
+       [SDLK_0] = "0",
+       [SDLK_1] = "1",
+       [SDLK_2] = "2",
+       [SDLK_3] = "3",
+       [SDLK_4] = "4",
+       [SDLK_5] = "5",
+       [SDLK_6] = "6",
+       [SDLK_7] = "7",
+       [SDLK_8] = "8",
+       [SDLK_9] = "9",
+       [SDLK_COLON] = ":",
+       [SDLK_SEMICOLON] = ",",
+       [SDLK_LESS] = "<",
+       [SDLK_EQUALS] = "=",
+       [SDLK_GREATER] = ">",
+       [SDLK_QUESTION] = "?",
+       [SDLK_AT] = "@",
+       [SDLK_LEFTBRACKET] = "[",
+       [SDLK_BACKSLASH] = "\\",
+       [SDLK_RIGHTBRACKET] = "]",
+       [SDLK_CARET] = "^",
+       [SDLK_UNDERSCORE] = "_",
+       [SDLK_BACKQUOTE] = "`",
+       [SDLK_a] = "a",
+       [SDLK_b] = "b",
+       [SDLK_c] = "c",
+       [SDLK_d] = "d",
+       [SDLK_e] = "e",
+       [SDLK_f] = "f",
+       [SDLK_g] = "g",
+       [SDLK_h] = "h",
+       [SDLK_i] = "i",
+       [SDLK_j] = "j",
+       [SDLK_k] = "k",
+       [SDLK_l] = "l",
+       [SDLK_m] = "m",
+       [SDLK_n] = "n",
+       [SDLK_o] = "o",
+       [SDLK_p] = "p",
+       [SDLK_q] = "q",
+       [SDLK_r] = "r",
+       [SDLK_s] = "s",
+       [SDLK_t] = "t",
+       [SDLK_u] = "u",
+       [SDLK_v] = "v",
+       [SDLK_w] = "w",
+       [SDLK_x] = "x",
+       [SDLK_y] = "y",
+       [SDLK_z] = "z",
+       [SDLK_DELETE] = "delete",
+
+       [SDLK_KP0] = "[0]",
+       [SDLK_KP1] = "[1]",
+       [SDLK_KP2] = "[2]",
+       [SDLK_KP3] = "[3]",
+       [SDLK_KP4] = "[4]",
+       [SDLK_KP5] = "[5]",
+       [SDLK_KP6] = "[6]",
+       [SDLK_KP7] = "[7]",
+       [SDLK_KP8] = "[8]",
+       [SDLK_KP9] = "[9]",
+       [SDLK_KP_PERIOD] = "[.]",
+       [SDLK_KP_DIVIDE] = "[/]",
+       [SDLK_KP_MULTIPLY] = "[*]",
+       [SDLK_KP_MINUS] = "[-]",
+       [SDLK_KP_PLUS] = "[+]",
+       [SDLK_KP_ENTER] = "enter",
+       [SDLK_KP_EQUALS] = "equals",
+
+       [SDLK_UP] = "up",
+       [SDLK_DOWN] = "down",
+       [SDLK_RIGHT] = "right",
+       [SDLK_LEFT] = "left",
+       [SDLK_DOWN] = "down",
+       [SDLK_INSERT] = "insert",
+       [SDLK_HOME] = "home",
+       [SDLK_END] = "end",
+       [SDLK_PAGEUP] = "page up",
+       [SDLK_PAGEDOWN] = "page down",
+
+       [SDLK_F1] = "f1",
+       [SDLK_F2] = "f2",
+       [SDLK_F3] = "f3",
+       [SDLK_F4] = "f4",
+       [SDLK_F5] = "f5",
+       [SDLK_F6] = "f6",
+       [SDLK_F7] = "f7",
+       [SDLK_F8] = "f8",
+       [SDLK_F9] = "f9",
+       [SDLK_F10] = "f10",
+       [SDLK_F11] = "f11",
+       [SDLK_F12] = "f12",
+       [SDLK_F13] = "f13",
+       [SDLK_F14] = "f14",
+       [SDLK_F15] = "f15",
+
+       [SDLK_NUMLOCK] = "numlock",
+       [SDLK_CAPSLOCK] = "caps lock",
+       [SDLK_SCROLLOCK] = "scroll lock",
+       [SDLK_RSHIFT] = "right shift",
+       [SDLK_LSHIFT] = "left shift",
+       [SDLK_RCTRL] = "right ctrl",
+       [SDLK_LCTRL] = "left ctrl",
+       [SDLK_RALT] = "right alt",
+       [SDLK_LALT] = "left alt",
+       [SDLK_RMETA] = "right meta",
+       [SDLK_LMETA] = "left meta",
+       [SDLK_LSUPER] = "left super",   /* "Windows" keys */
+       [SDLK_RSUPER] = "right super",  
+       [SDLK_MODE] = "alt gr",
+       [SDLK_COMPOSE] = "compose",
+};
+
+static void in_sdl_probe(void)
+{
+       struct in_sdl_state *state;
+       SDL_Joystick *joy;
+       int i, joycount;
+       char name[256];
+
+       state = calloc(1, sizeof(*state));
+       if (state == NULL) {
+               fprintf(stderr, "in_sdl: OOM\n");
+               return;
+       }
+
+       in_register(IN_SDL_PREFIX "keys", -1, state, SDLK_LAST,
+               in_sdl_keys, 0);
+
+       /* joysticks go here too */
+       SDL_InitSubSystem(SDL_INIT_JOYSTICK);
+
+       joycount = SDL_NumJoysticks();
+       for (i = 0; i < joycount; i++) {
+               joy = SDL_JoystickOpen(i);
+               if (joy == NULL)
+                       continue;
+
+               state = calloc(1, sizeof(*state));
+               if (state == NULL) {
+                       fprintf(stderr, "in_sdl: OOM\n");
+                       break;
+               }
+               state->joy = joy;
+               state->joy_id = i;
+
+               snprintf(name, sizeof(name), IN_SDL_PREFIX "%s", SDL_JoystickName(i));
+               in_register(name, -1, state, SDLK_LAST, in_sdl_keys, 0);
+       }
+
+       if (joycount > 0)
+               SDL_JoystickEventState(SDL_ENABLE);
+}
+
+static void in_sdl_free(void *drv_data)
+{
+       struct in_sdl_state *state = drv_data;
+
+       if (state != NULL) {
+               if (state->joy != NULL)
+                       SDL_JoystickClose(state->joy);
+               free(state);
+       }
+}
+
+static const char * const *
+in_sdl_get_key_names(int *count)
+{
+       *count = SDLK_LAST;
+       return in_sdl_keys;
+}
+
+/* could use SDL_GetKeyState, but this gives better packing */
+static void update_keystate(keybits_t *keystate, int sym, int is_down)
+{
+       keybits_t *ks_word, mask;
+
+       mask = 1;
+       mask <<= sym & (KEYBITS_WORD_BITS - 1);
+       ks_word = keystate + sym / KEYBITS_WORD_BITS;
+       if (is_down)
+               *ks_word |= mask;
+       else
+               *ks_word &= ~mask;
+}
+
+static int handle_event(struct in_sdl_state *state, SDL_Event *event,
+       int *kc_out, int *down_out)
+{
+       if (event->type != SDL_KEYDOWN && event->type != SDL_KEYUP)
+               return 0;
+
+       update_keystate(state->keystate, event->key.keysym.sym,
+               event->type == SDL_KEYDOWN);
+       if (kc_out != NULL)
+               *kc_out = event->key.keysym.sym;
+       if (down_out != NULL)
+               *down_out = event->type == SDL_KEYDOWN;
+
+       return 1;
+}
+
+static int handle_joy_event(struct in_sdl_state *state, SDL_Event *event,
+       int *kc_out, int *down_out)
+{
+       int kc = -1, down = 0, ret = 0;
+
+       /* FIXME: should ckeck .which */
+       /* TODO: remaining axis */
+       switch (event->type) {
+       case SDL_JOYAXISMOTION:
+               if (event->jaxis.axis > 1)
+                       break;
+               if (-16384 <= event->jaxis.value && event->jaxis.value <= 16384) {
+                       kc = state->axis_keydown[event->jaxis.axis];
+                       state->axis_keydown[event->jaxis.axis] = 0;
+                       ret = 1;
+               }
+               else if (event->jaxis.value < -16384) {
+                       kc = state->axis_keydown[event->jaxis.axis];
+                       if (kc)
+                               update_keystate(state->keystate, kc, 0);
+                       kc = event->jaxis.axis ? SDLK_UP : SDLK_LEFT;
+                       state->axis_keydown[event->jaxis.axis] = kc;
+                       down = 1;
+                       ret = 1;
+               }
+               else if (event->jaxis.value > 16384) {
+                       kc = state->axis_keydown[event->jaxis.axis];
+                       if (kc)
+                               update_keystate(state->keystate, kc, 0);
+                       kc = event->jaxis.axis ? SDLK_DOWN : SDLK_RIGHT;
+                       state->axis_keydown[event->jaxis.axis] = kc;
+                       down = 1;
+                       ret = 1;
+               }
+               break;
+
+       case SDL_JOYBUTTONDOWN:
+       case SDL_JOYBUTTONUP:
+               kc = (int)event->jbutton.button + SDLK_WORLD_0;
+               down = event->jbutton.state == SDL_PRESSED;
+               ret = 1;
+               break;
+       }
+
+       if (ret)
+               update_keystate(state->keystate, kc, down);
+       if (kc_out != NULL)
+               *kc_out = kc;
+       if (down_out != NULL)
+               *down_out = down;
+
+       return ret;
+}
+
+#define JOY_EVENTS (SDL_JOYAXISMOTIONMASK | SDL_JOYBALLMOTIONMASK | SDL_JOYHATMOTIONMASK \
+                   | SDL_JOYBUTTONDOWNMASK | SDL_JOYBUTTONUPMASK)
+
+static int collect_events(struct in_sdl_state *state, int *one_kc, int *one_down)
+{
+       SDL_Event events[4];
+       Uint32 mask = state->joy ? JOY_EVENTS : (SDL_ALLEVENTS & ~JOY_EVENTS);
+       int count, maxcount;
+       int i, ret, retval = 0;
+
+       maxcount = (one_kc != NULL) ? 1 : sizeof(events) / sizeof(events[0]);
+
+       SDL_PumpEvents();
+       while (1) {
+               count = SDL_PeepEvents(events, maxcount, SDL_GETEVENT, mask);
+               if (count <= 0)
+                       break;
+               for (i = 0; i < count; i++) {
+                       if (state->joy)
+                               ret = handle_joy_event(state,
+                                       &events[i], one_kc, one_down);
+                       else
+                               ret = handle_event(state,
+                                       &events[i], one_kc, one_down);
+                       retval |= ret;
+                       if (one_kc != NULL && ret)
+                               goto out;
+               }
+       }
+
+out:
+       return retval;
+}
+
+static int in_sdl_update(void *drv_data, const int *binds, int *result)
+{
+       struct in_sdl_state *state = drv_data;
+       keybits_t mask;
+       int i, sym, bit, b;
+
+       collect_events(state, NULL, NULL);
+
+       for (i = 0; i < SDLK_LAST / KEYBITS_WORD_BITS + 1; i++) {
+               mask = state->keystate[i];
+               if (mask == 0)
+                       continue;
+               for (bit = 0; mask != 0; bit++, mask >>= 1) {
+                       if ((mask & 1) == 0)
+                               continue;
+                       sym = i * KEYBITS_WORD_BITS + bit;
+
+                       for (b = 0; b < IN_BINDTYPE_COUNT; b++)
+                               result[b] |= binds[IN_BIND_OFFS(sym, b)];
+               }
+       }
+
+       return 0;
+}
+
+static int in_sdl_update_keycode(void *drv_data, int *is_down)
+{
+       struct in_sdl_state *state = drv_data;
+       int ret_kc = -1, ret_down = 0;
+
+       collect_events(state, &ret_kc, &ret_down);
+
+       if (is_down != NULL)
+               *is_down = ret_down;
+
+       return ret_kc;
+}
+
+struct menu_keymap {
+       short key;
+       short pbtn;
+};
+
+static const struct menu_keymap key_pbtn_map[] =
+{
+       { SDLK_UP,      PBTN_UP },
+       { SDLK_DOWN,    PBTN_DOWN },
+       { SDLK_LEFT,    PBTN_LEFT },
+       { SDLK_RIGHT,   PBTN_RIGHT },
+       /* XXX: maybe better set this from it's plat code somehow */
+       { SDLK_RETURN,  PBTN_MOK },
+       { SDLK_ESCAPE,  PBTN_MBACK },
+       { SDLK_a,       PBTN_MA2 },
+       { SDLK_s,       PBTN_MA3 },
+       { SDLK_BACKSLASH,    PBTN_MENU },
+       { SDLK_LEFTBRACKET,  PBTN_L },
+       { SDLK_RIGHTBRACKET, PBTN_R },
+};
+#define KEY_PBTN_MAP_SIZE (sizeof(key_pbtn_map) / sizeof(key_pbtn_map[0]))
+
+static const struct menu_keymap joybtn_pbtn_map[] =
+{
+       { SDLK_UP,      PBTN_UP },
+       { SDLK_DOWN,    PBTN_DOWN },
+       { SDLK_LEFT,    PBTN_LEFT },
+       { SDLK_RIGHT,   PBTN_RIGHT },
+       /* joystick */
+       { SDLK_WORLD_0, PBTN_MOK },
+       { SDLK_WORLD_1, PBTN_MBACK },
+       { SDLK_WORLD_2, PBTN_MA2 },
+       { SDLK_WORLD_3, PBTN_MA3 },
+};
+#define JOYBTN_PBTN_MAP_SIZE (sizeof(joybtn_pbtn_map) / sizeof(joybtn_pbtn_map[0]))
+
+static int in_sdl_menu_translate(void *drv_data, int keycode, char *charcode)
+{
+       struct in_sdl_state *state = drv_data;
+       const struct menu_keymap *map;
+       int map_len;
+       int ret = 0;
+       int i;
+
+       map = state->joy ? joybtn_pbtn_map : key_pbtn_map;
+       map_len = state->joy ? JOYBTN_PBTN_MAP_SIZE : KEY_PBTN_MAP_SIZE;
+
+       if (keycode < 0)
+       {
+               /* menu -> kc */
+               keycode = -keycode;
+               for (i = 0; i < map_len; i++)
+                       if (map[i].pbtn == keycode)
+                               return map[i].key;
+       }
+       else
+       {
+               for (i = 0; i < map_len; i++) {
+                       if (map[i].key == keycode) {
+                               ret = map[i].pbtn;
+                               break;
+                       }
+               }
+
+               if (charcode != NULL && (unsigned int)keycode < SDLK_LAST &&
+                   in_sdl_keys[keycode] != NULL && in_sdl_keys[keycode][1] == 0)
+               {
+                       ret |= PBTN_CHAR;
+                       *charcode = in_sdl_keys[keycode][0];
+               }
+       }
+
+       return ret;
+}
+
+static const in_drv_t in_sdl_drv = {
+       .prefix         = IN_SDL_PREFIX,
+       .probe          = in_sdl_probe,
+       .free           = in_sdl_free,
+       .get_key_names  = in_sdl_get_key_names,
+       .update         = in_sdl_update,
+       .update_keycode = in_sdl_update_keycode,
+       .menu_translate = in_sdl_menu_translate,
+};
+
+void in_sdl_init(const struct in_default_bind *defbinds)
+{
+       in_register_driver(&in_sdl_drv, defbinds);
+}
+