rubysdl 1.3.0

data/rubysdl_event_key.c

@@ -0,0 +1,356 @@
+/*
+  Ruby/SDL   Ruby extension library for SDL
+
+  Copyright (C) 2001-2007 Ohbayashi Ippei
+  
+  This library is free software; you can redistribute it and/or
+  modify it under the terms of the GNU Lesser General Public
+  License as published by the Free Software Foundation; either
+  version 2.1 of the License, or (at your option) any later version.
+
+  This library is distributed in the hope that it will be useful,
+  but WITHOUT ANY WARRANTY; without even the implied warranty of
+  MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
+  Lesser General Public License for more details.
+
+  You should have received a copy of the GNU Lesser General Public
+  License along with this library; if not, write to the Free Software
+  Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA  02111-1307  USA
+  */
+#include "rubysdl.h"
+
+static Uint8 *keyState;
+static SDLMod modState;
+
+void defineConstForKey()
+{
+  rb_define_const(mKey,"UNKNOWN",INT2NUM(SDLK_UNKNOWN));
+  rb_define_const(mKey,"FIRST",INT2NUM(SDLK_FIRST));
+  rb_define_const(mKey,"BACKSPACE",INT2NUM(SDLK_BACKSPACE));
+  rb_define_const(mKey,"TAB",INT2NUM(SDLK_TAB));
+  rb_define_const(mKey,"CLEAR",INT2NUM(SDLK_CLEAR));
+  rb_define_const(mKey,"RETURN",INT2NUM(SDLK_RETURN));
+  rb_define_const(mKey,"PAUSE",INT2NUM(SDLK_PAUSE));
+  rb_define_const(mKey,"ESCAPE",INT2NUM(SDLK_ESCAPE));
+  rb_define_const(mKey,"SPACE",INT2NUM(SDLK_SPACE));
+  rb_define_const(mKey,"EXCLAIM",INT2NUM(SDLK_EXCLAIM));
+  rb_define_const(mKey,"QUOTEDBL",INT2NUM(SDLK_QUOTEDBL));
+  rb_define_const(mKey,"HASH",INT2NUM(SDLK_HASH));
+  rb_define_const(mKey,"DOLLAR",INT2NUM(SDLK_DOLLAR));
+  rb_define_const(mKey,"AMPERSAND",INT2NUM(SDLK_AMPERSAND));
+  rb_define_const(mKey,"QUOTE",INT2NUM(SDLK_QUOTE));
+  rb_define_const(mKey,"LEFTPAREN",INT2NUM(SDLK_LEFTPAREN));
+  rb_define_const(mKey,"RIGHTPAREN",INT2NUM(SDLK_RIGHTPAREN));
+  rb_define_const(mKey,"ASTERISK",INT2NUM(SDLK_ASTERISK));
+  rb_define_const(mKey,"PLUS",INT2NUM(SDLK_PLUS));
+  rb_define_const(mKey,"COMMA",INT2NUM(SDLK_COMMA));
+  rb_define_const(mKey,"MINUS",INT2NUM(SDLK_MINUS));
+  rb_define_const(mKey,"PERIOD",INT2NUM(SDLK_PERIOD));
+  rb_define_const(mKey,"SLASH",INT2NUM(SDLK_SLASH));
+  rb_define_const(mKey,"K0",INT2NUM(SDLK_0));
+  rb_define_const(mKey,"K1",INT2NUM(SDLK_1));
+  rb_define_const(mKey,"K2",INT2NUM(SDLK_2));
+  rb_define_const(mKey,"K3",INT2NUM(SDLK_3));
+  rb_define_const(mKey,"K4",INT2NUM(SDLK_4));
+  rb_define_const(mKey,"K5",INT2NUM(SDLK_5));
+  rb_define_const(mKey,"K6",INT2NUM(SDLK_6));
+  rb_define_const(mKey,"K7",INT2NUM(SDLK_7));
+  rb_define_const(mKey,"K8",INT2NUM(SDLK_8));
+  rb_define_const(mKey,"K9",INT2NUM(SDLK_9));
+  rb_define_const(mKey,"COLON",INT2NUM(SDLK_COLON));
+  rb_define_const(mKey,"SEMICOLON",INT2NUM(SDLK_SEMICOLON));
+  rb_define_const(mKey,"LESS",INT2NUM(SDLK_LESS));
+  rb_define_const(mKey,"EQUALS",INT2NUM(SDLK_EQUALS));
+  rb_define_const(mKey,"GREATER",INT2NUM(SDLK_GREATER));
+  rb_define_const(mKey,"QUESTION",INT2NUM(SDLK_QUESTION));
+  rb_define_const(mKey,"AT",INT2NUM(SDLK_AT));
+  /* 
+     Skip uppercase letters
+     */
+  rb_define_const(mKey,"LEFTBRACKET",INT2NUM(SDLK_LEFTBRACKET));
+  rb_define_const(mKey,"BACKSLASH",INT2NUM(SDLK_BACKSLASH));
+  rb_define_const(mKey,"RIGHTBRACKET",INT2NUM(SDLK_RIGHTBRACKET));
+  rb_define_const(mKey,"CARET",INT2NUM(SDLK_CARET));
+  rb_define_const(mKey,"UNDERSCORE",INT2NUM(SDLK_UNDERSCORE));
+  rb_define_const(mKey,"BACKQUOTE",INT2NUM(SDLK_BACKQUOTE));
+  rb_define_const(mKey,"A",INT2NUM(SDLK_a));
+  rb_define_const(mKey,"B",INT2NUM(SDLK_b));
+  rb_define_const(mKey,"C",INT2NUM(SDLK_c));
+  rb_define_const(mKey,"D",INT2NUM(SDLK_d));
+  rb_define_const(mKey,"E",INT2NUM(SDLK_e));
+  rb_define_const(mKey,"F",INT2NUM(SDLK_f));
+  rb_define_const(mKey,"G",INT2NUM(SDLK_g));
+  rb_define_const(mKey,"H",INT2NUM(SDLK_h));
+  rb_define_const(mKey,"I",INT2NUM(SDLK_i));
+  rb_define_const(mKey,"J",INT2NUM(SDLK_j));
+  rb_define_const(mKey,"K",INT2NUM(SDLK_k));
+  rb_define_const(mKey,"L",INT2NUM(SDLK_l));
+  rb_define_const(mKey,"M",INT2NUM(SDLK_m));
+  rb_define_const(mKey,"N",INT2NUM(SDLK_n));
+  rb_define_const(mKey,"O",INT2NUM(SDLK_o));
+  rb_define_const(mKey,"P",INT2NUM(SDLK_p));
+  rb_define_const(mKey,"Q",INT2NUM(SDLK_q));
+  rb_define_const(mKey,"R",INT2NUM(SDLK_r));
+  rb_define_const(mKey,"S",INT2NUM(SDLK_s));
+  rb_define_const(mKey,"T",INT2NUM(SDLK_t));
+  rb_define_const(mKey,"U",INT2NUM(SDLK_u));
+  rb_define_const(mKey,"V",INT2NUM(SDLK_v));
+  rb_define_const(mKey,"W",INT2NUM(SDLK_w));
+  rb_define_const(mKey,"X",INT2NUM(SDLK_x));
+  rb_define_const(mKey,"Y",INT2NUM(SDLK_y));
+  rb_define_const(mKey,"Z",INT2NUM(SDLK_z));
+  rb_define_const(mKey,"DELETE",INT2NUM(SDLK_DELETE));
+	/* End of ASCII mapped keysyms */
+
+	/* International keyboard syms */
+  rb_define_const(mKey,"WORLD_0",INT2NUM(SDLK_WORLD_0));
+  rb_define_const(mKey,"WORLD_1",INT2NUM(SDLK_WORLD_1));
+  rb_define_const(mKey,"WORLD_2",INT2NUM(SDLK_WORLD_2));
+  rb_define_const(mKey,"WORLD_3",INT2NUM(SDLK_WORLD_3));
+  rb_define_const(mKey,"WORLD_4",INT2NUM(SDLK_WORLD_4));
+  rb_define_const(mKey,"WORLD_5",INT2NUM(SDLK_WORLD_5));
+  rb_define_const(mKey,"WORLD_6",INT2NUM(SDLK_WORLD_6));
+  rb_define_const(mKey,"WORLD_7",INT2NUM(SDLK_WORLD_7));
+  rb_define_const(mKey,"WORLD_8",INT2NUM(SDLK_WORLD_8));
+  rb_define_const(mKey,"WORLD_9",INT2NUM(SDLK_WORLD_9));
+  rb_define_const(mKey,"WORLD_10",INT2NUM(SDLK_WORLD_10));
+  rb_define_const(mKey,"WORLD_11",INT2NUM(SDLK_WORLD_11));
+  rb_define_const(mKey,"WORLD_12",INT2NUM(SDLK_WORLD_12));
+  rb_define_const(mKey,"WORLD_13",INT2NUM(SDLK_WORLD_13));
+  rb_define_const(mKey,"WORLD_14",INT2NUM(SDLK_WORLD_14));
+  rb_define_const(mKey,"WORLD_15",INT2NUM(SDLK_WORLD_15));
+  rb_define_const(mKey,"WORLD_16",INT2NUM(SDLK_WORLD_16));
+  rb_define_const(mKey,"WORLD_17",INT2NUM(SDLK_WORLD_17));
+  rb_define_const(mKey,"WORLD_18",INT2NUM(SDLK_WORLD_18));
+  rb_define_const(mKey,"WORLD_19",INT2NUM(SDLK_WORLD_19));
+  rb_define_const(mKey,"WORLD_20",INT2NUM(SDLK_WORLD_20));
+  rb_define_const(mKey,"WORLD_21",INT2NUM(SDLK_WORLD_21));
+  rb_define_const(mKey,"WORLD_22",INT2NUM(SDLK_WORLD_22));
+  rb_define_const(mKey,"WORLD_23",INT2NUM(SDLK_WORLD_23));
+  rb_define_const(mKey,"WORLD_24",INT2NUM(SDLK_WORLD_24));
+  rb_define_const(mKey,"WORLD_25",INT2NUM(SDLK_WORLD_25));
+  rb_define_const(mKey,"WORLD_26",INT2NUM(SDLK_WORLD_26));
+  rb_define_const(mKey,"WORLD_27",INT2NUM(SDLK_WORLD_27));
+  rb_define_const(mKey,"WORLD_28",INT2NUM(SDLK_WORLD_28));
+  rb_define_const(mKey,"WORLD_29",INT2NUM(SDLK_WORLD_29));
+  rb_define_const(mKey,"WORLD_30",INT2NUM(SDLK_WORLD_30));
+  rb_define_const(mKey,"WORLD_31",INT2NUM(SDLK_WORLD_31));
+  rb_define_const(mKey,"WORLD_32",INT2NUM(SDLK_WORLD_32));
+  rb_define_const(mKey,"WORLD_33",INT2NUM(SDLK_WORLD_33));
+  rb_define_const(mKey,"WORLD_34",INT2NUM(SDLK_WORLD_34));
+  rb_define_const(mKey,"WORLD_35",INT2NUM(SDLK_WORLD_35));
+  rb_define_const(mKey,"WORLD_36",INT2NUM(SDLK_WORLD_36));
+  rb_define_const(mKey,"WORLD_37",INT2NUM(SDLK_WORLD_37));
+  rb_define_const(mKey,"WORLD_38",INT2NUM(SDLK_WORLD_38));
+  rb_define_const(mKey,"WORLD_39",INT2NUM(SDLK_WORLD_39));
+  rb_define_const(mKey,"WORLD_40",INT2NUM(SDLK_WORLD_40));
+  rb_define_const(mKey,"WORLD_41",INT2NUM(SDLK_WORLD_41));
+  rb_define_const(mKey,"WORLD_42",INT2NUM(SDLK_WORLD_42));
+  rb_define_const(mKey,"WORLD_43",INT2NUM(SDLK_WORLD_43));
+  rb_define_const(mKey,"WORLD_44",INT2NUM(SDLK_WORLD_44));
+  rb_define_const(mKey,"WORLD_45",INT2NUM(SDLK_WORLD_45));
+  rb_define_const(mKey,"WORLD_46",INT2NUM(SDLK_WORLD_46));
+  rb_define_const(mKey,"WORLD_47",INT2NUM(SDLK_WORLD_47));
+  rb_define_const(mKey,"WORLD_48",INT2NUM(SDLK_WORLD_48));
+  rb_define_const(mKey,"WORLD_49",INT2NUM(SDLK_WORLD_49));
+  rb_define_const(mKey,"WORLD_50",INT2NUM(SDLK_WORLD_50));
+  rb_define_const(mKey,"WORLD_51",INT2NUM(SDLK_WORLD_51));
+  rb_define_const(mKey,"WORLD_52",INT2NUM(SDLK_WORLD_52));
+  rb_define_const(mKey,"WORLD_53",INT2NUM(SDLK_WORLD_53));
+  rb_define_const(mKey,"WORLD_54",INT2NUM(SDLK_WORLD_54));
+  rb_define_const(mKey,"WORLD_55",INT2NUM(SDLK_WORLD_55));
+  rb_define_const(mKey,"WORLD_56",INT2NUM(SDLK_WORLD_56));
+  rb_define_const(mKey,"WORLD_57",INT2NUM(SDLK_WORLD_57));
+  rb_define_const(mKey,"WORLD_58",INT2NUM(SDLK_WORLD_58));
+  rb_define_const(mKey,"WORLD_59",INT2NUM(SDLK_WORLD_59));
+  rb_define_const(mKey,"WORLD_60",INT2NUM(SDLK_WORLD_60));
+  rb_define_const(mKey,"WORLD_61",INT2NUM(SDLK_WORLD_61));
+  rb_define_const(mKey,"WORLD_62",INT2NUM(SDLK_WORLD_62));
+  rb_define_const(mKey,"WORLD_63",INT2NUM(SDLK_WORLD_63));
+  rb_define_const(mKey,"WORLD_64",INT2NUM(SDLK_WORLD_64));
+  rb_define_const(mKey,"WORLD_65",INT2NUM(SDLK_WORLD_65));
+  rb_define_const(mKey,"WORLD_66",INT2NUM(SDLK_WORLD_66));
+  rb_define_const(mKey,"WORLD_67",INT2NUM(SDLK_WORLD_67));
+  rb_define_const(mKey,"WORLD_68",INT2NUM(SDLK_WORLD_68));
+  rb_define_const(mKey,"WORLD_69",INT2NUM(SDLK_WORLD_69));
+  rb_define_const(mKey,"WORLD_70",INT2NUM(SDLK_WORLD_70));
+  rb_define_const(mKey,"WORLD_71",INT2NUM(SDLK_WORLD_71));
+  rb_define_const(mKey,"WORLD_72",INT2NUM(SDLK_WORLD_72));
+  rb_define_const(mKey,"WORLD_73",INT2NUM(SDLK_WORLD_73));
+  rb_define_const(mKey,"WORLD_74",INT2NUM(SDLK_WORLD_74));
+  rb_define_const(mKey,"WORLD_75",INT2NUM(SDLK_WORLD_75));
+  rb_define_const(mKey,"WORLD_76",INT2NUM(SDLK_WORLD_76));
+  rb_define_const(mKey,"WORLD_77",INT2NUM(SDLK_WORLD_77));
+  rb_define_const(mKey,"WORLD_78",INT2NUM(SDLK_WORLD_78));
+  rb_define_const(mKey,"WORLD_79",INT2NUM(SDLK_WORLD_79));
+  rb_define_const(mKey,"WORLD_80",INT2NUM(SDLK_WORLD_80));
+  rb_define_const(mKey,"WORLD_81",INT2NUM(SDLK_WORLD_81));
+  rb_define_const(mKey,"WORLD_82",INT2NUM(SDLK_WORLD_82));
+  rb_define_const(mKey,"WORLD_83",INT2NUM(SDLK_WORLD_83));
+  rb_define_const(mKey,"WORLD_84",INT2NUM(SDLK_WORLD_84));
+  rb_define_const(mKey,"WORLD_85",INT2NUM(SDLK_WORLD_85));
+  rb_define_const(mKey,"WORLD_86",INT2NUM(SDLK_WORLD_86));
+  rb_define_const(mKey,"WORLD_87",INT2NUM(SDLK_WORLD_87));
+  rb_define_const(mKey,"WORLD_88",INT2NUM(SDLK_WORLD_88));
+  rb_define_const(mKey,"WORLD_89",INT2NUM(SDLK_WORLD_89));
+  rb_define_const(mKey,"WORLD_90",INT2NUM(SDLK_WORLD_90));
+  rb_define_const(mKey,"WORLD_91",INT2NUM(SDLK_WORLD_91));
+  rb_define_const(mKey,"WORLD_92",INT2NUM(SDLK_WORLD_92));
+  rb_define_const(mKey,"WORLD_93",INT2NUM(SDLK_WORLD_93));
+  rb_define_const(mKey,"WORLD_94",INT2NUM(SDLK_WORLD_94));
+  rb_define_const(mKey,"WORLD_95",INT2NUM(SDLK_WORLD_95));
+
+
+  /* Numeric keypad */
+  rb_define_const(mKey,"KP0",INT2NUM(SDLK_KP0));
+  rb_define_const(mKey,"KP1",INT2NUM(SDLK_KP1));
+  rb_define_const(mKey,"KP2",INT2NUM(SDLK_KP2));
+  rb_define_const(mKey,"KP3",INT2NUM(SDLK_KP3));
+  rb_define_const(mKey,"KP4",INT2NUM(SDLK_KP4));
+  rb_define_const(mKey,"KP5",INT2NUM(SDLK_KP5));
+  rb_define_const(mKey,"KP6",INT2NUM(SDLK_KP6));
+  rb_define_const(mKey,"KP7",INT2NUM(SDLK_KP7));
+  rb_define_const(mKey,"KP8",INT2NUM(SDLK_KP8));
+  rb_define_const(mKey,"KP9",INT2NUM(SDLK_KP9));
+  rb_define_const(mKey,"KP_PERIOD",INT2NUM(SDLK_KP_PERIOD));
+  rb_define_const(mKey,"KP_DIVIDE",INT2NUM(SDLK_KP_DIVIDE));
+  rb_define_const(mKey,"KP_MULTIPLY",INT2NUM(SDLK_KP_MULTIPLY));
+  rb_define_const(mKey,"KP_MINUS",INT2NUM(SDLK_KP_MINUS));
+  rb_define_const(mKey,"KP_PLUS",INT2NUM(SDLK_KP_PLUS));
+  rb_define_const(mKey,"KP_ENTER",INT2NUM(SDLK_KP_ENTER));
+  rb_define_const(mKey,"KP_EQUALS",INT2NUM(SDLK_KP_EQUALS));
+  
+  /* Arrows + Home/End pad */
+  rb_define_const(mKey,"UP",INT2NUM(SDLK_UP));
+  rb_define_const(mKey,"DOWN",INT2NUM(SDLK_DOWN));
+  rb_define_const(mKey,"RIGHT",INT2NUM(SDLK_RIGHT));
+  rb_define_const(mKey,"LEFT",INT2NUM(SDLK_LEFT));
+  rb_define_const(mKey,"INSERT",INT2NUM(SDLK_INSERT));
+  rb_define_const(mKey,"HOME",INT2NUM(SDLK_HOME));
+  rb_define_const(mKey,"END",INT2NUM(SDLK_END));
+  rb_define_const(mKey,"PAGEUP",INT2NUM(SDLK_PAGEUP));
+  rb_define_const(mKey,"PAGEDOWN",INT2NUM(SDLK_PAGEDOWN));
+
+  /* Function keys */
+  rb_define_const(mKey,"F1",INT2NUM(SDLK_F1));
+  rb_define_const(mKey,"F2",INT2NUM(SDLK_F2));
+  rb_define_const(mKey,"F3",INT2NUM(SDLK_F3));
+  rb_define_const(mKey,"F4",INT2NUM(SDLK_F4));
+  rb_define_const(mKey,"F5",INT2NUM(SDLK_F5));
+  rb_define_const(mKey,"F6",INT2NUM(SDLK_F6));
+  rb_define_const(mKey,"F7",INT2NUM(SDLK_F7));
+  rb_define_const(mKey,"F8",INT2NUM(SDLK_F8));
+  rb_define_const(mKey,"F9",INT2NUM(SDLK_F9));
+  rb_define_const(mKey,"F10",INT2NUM(SDLK_F10));
+  rb_define_const(mKey,"F11",INT2NUM(SDLK_F11));
+  rb_define_const(mKey,"F12",INT2NUM(SDLK_F12));
+  rb_define_const(mKey,"F13",INT2NUM(SDLK_F13));
+  rb_define_const(mKey,"F14",INT2NUM(SDLK_F14));
+  rb_define_const(mKey,"F15",INT2NUM(SDLK_F15));
+  
+  /* Key state modifier keys */
+  rb_define_const(mKey,"NUMLOCK",INT2NUM(SDLK_NUMLOCK));
+  rb_define_const(mKey,"CAPSLOCK",INT2NUM(SDLK_CAPSLOCK));
+  rb_define_const(mKey,"SCROLLOCK",INT2NUM(SDLK_SCROLLOCK));
+  rb_define_const(mKey,"RSHIFT",INT2NUM(SDLK_RSHIFT));
+  rb_define_const(mKey,"LSHIFT",INT2NUM(SDLK_LSHIFT));
+  rb_define_const(mKey,"RCTRL",INT2NUM(SDLK_RCTRL));
+  rb_define_const(mKey,"LCTRL",INT2NUM(SDLK_LCTRL));
+  rb_define_const(mKey,"RALT",INT2NUM(SDLK_RALT));
+  rb_define_const(mKey,"LALT",INT2NUM(SDLK_LALT));
+  rb_define_const(mKey,"RMETA",INT2NUM(SDLK_RMETA));
+  rb_define_const(mKey,"LMETA",INT2NUM(SDLK_LMETA));
+  rb_define_const(mKey,"LSUPER",INT2NUM(SDLK_LSUPER));
+  rb_define_const(mKey,"RSUPER",INT2NUM(SDLK_RSUPER));
+  rb_define_const(mKey,"MODE",INT2NUM(SDLK_MODE));
+  
+  /* Miscellaneous function keys */
+  rb_define_const(mKey,"HELP",INT2NUM(SDLK_HELP));
+  rb_define_const(mKey,"PRINT",INT2NUM(SDLK_PRINT));
+  rb_define_const(mKey,"SYSREQ",INT2NUM(SDLK_SYSREQ));
+  rb_define_const(mKey,"BREAK",INT2NUM(SDLK_BREAK));
+  rb_define_const(mKey,"MENU",INT2NUM(SDLK_MENU));
+  rb_define_const(mKey,"POWER",INT2NUM(SDLK_POWER));
+  rb_define_const(mKey,"EURO",INT2NUM(SDLK_EURO));
+
+  /* Add any other keys here */
+  
+  rb_define_const(mKey,"LAST",INT2NUM(SDLK_LAST));
+
+  /* key mods */
+  rb_define_const(mKey,"MOD_NONE",UINT2NUM(KMOD_NONE));
+  rb_define_const(mKey,"MOD_LSHIFT",UINT2NUM(KMOD_LSHIFT));
+  rb_define_const(mKey,"MOD_RSHIFT",UINT2NUM(KMOD_RSHIFT));
+  rb_define_const(mKey,"MOD_LCTRL",UINT2NUM(KMOD_LCTRL));
+  rb_define_const(mKey,"MOD_RCTRL",UINT2NUM(KMOD_RCTRL));
+  rb_define_const(mKey,"MOD_LALT",UINT2NUM(KMOD_LALT));
+  rb_define_const(mKey,"MOD_RALT",UINT2NUM(KMOD_RALT));
+  rb_define_const(mKey,"MOD_LMETA",UINT2NUM(KMOD_LMETA));
+  rb_define_const(mKey,"MOD_RMETA",UINT2NUM(KMOD_RMETA));
+  rb_define_const(mKey,"MOD_NUM",UINT2NUM(KMOD_NUM));
+  rb_define_const(mKey,"MOD_CAPS",UINT2NUM(KMOD_CAPS));
+  rb_define_const(mKey,"MOD_MODE",UINT2NUM(KMOD_MODE));
+  rb_define_const(mKey,"MOD_RESERVED",UINT2NUM(KMOD_RESERVED));
+
+  rb_define_const(mKey,"MOD_CTRL",UINT2NUM(KMOD_CTRL));
+  rb_define_const(mKey,"MOD_SHIFT",UINT2NUM(KMOD_SHIFT));
+  rb_define_const(mKey,"MOD_ALT",UINT2NUM(KMOD_ALT));
+  rb_define_const(mKey,"MOD_META",UINT2NUM(KMOD_META));
+
+  /* key repeat constants*/
+  rb_define_const(mKey,"DEFAULT_REPEAT_DELAY", INT2NUM(SDL_DEFAULT_REPEAT_DELAY));
+  rb_define_const(mKey,"DEFAULT_REPEAT_INTERVAL", INT2NUM(SDL_DEFAULT_REPEAT_INTERVAL));
+  
+}
+
+/* under 2 function is for testing */
+static VALUE sdl_keyScan(VALUE mod)
+{
+  keyState=SDL_GetKeyState(NULL);
+  modState=SDL_GetModState();
+  return Qnil;
+}
+static VALUE sdl_keyPressed(VALUE mod,VALUE keysym)
+{
+  if(NUM2INT(keysym) <SDLK_FIRST || SDLK_LAST < NUM2INT(keysym))
+    rb_raise(eSDLError, "keysym number is out of range");
+  
+  return (keyState[NUM2INT(keysym)]==SDL_PRESSED)?Qtrue:Qfalse;
+}
+static VALUE sdl_modState(VALUE mod)
+{
+  return UINT2NUM(modState);
+}
+static VALUE sdl_enableKeyRepeat(VALUE mod,VALUE delay,VALUE interval)
+{
+  if( SDL_EnableKeyRepeat( NUM2INT(delay),NUM2INT(interval) )==-1 ){
+    rb_raise(eSDLError,"enable key repeat fail: %s",SDL_GetError());
+  }
+  return Qnil;
+}
+static VALUE sdl_disableKeyRepeat(VALUE mod)
+{
+  if( SDL_EnableKeyRepeat( 0,0 )==-1 ){
+    rb_raise(eSDLError,"disable key repeat fail: %s",SDL_GetError());
+  }
+  return Qnil;
+}
+static VALUE sdl_getKeyName(VALUE mod,VALUE key)
+{
+  return rb_str_new2( SDL_GetKeyName( NUM2UINT(key) ) );
+}
+void init_keyEvent()
+{
+  mKey = rb_define_module_under(mSDL,"Key");
+  rb_define_module_function(mKey,"scan",sdl_keyScan,0);
+  rb_define_module_function(mKey,"press?",sdl_keyPressed,1);
+  rb_define_module_function(mKey,"modState",sdl_modState,0);
+  rb_define_module_function(mKey,"enableKeyRepeat",sdl_enableKeyRepeat,2);
+  rb_define_module_function(mKey,"disableKeyRepeat",sdl_disableKeyRepeat,0);
+  rb_define_module_function(mKey,"getKeyName",sdl_getKeyName,1);
+
+  keyState = ALLOC_N(Uint8,SDLK_LAST);
+  memset(keyState, SDL_RELEASED, SDLK_LAST);
+  
+  defineConstForKey();
+}

data/rubysdl_image.c

@@ -0,0 +1,53 @@
+/*
+  Ruby/SDL   Ruby extension library for SDL
+
+  Copyright (C) 2001-2007 Ohbayashi Ippei
+  
+  This library is free software; you can redistribute it and/or
+  modify it under the terms of the GNU Lesser General Public
+  License as published by the Free Software Foundation; either
+  version 2.1 of the License, or (at your option) any later version.
+
+  This library is distributed in the hope that it will be useful,
+  but WITHOUT ANY WARRANTY; without even the implied warranty of
+  MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
+  Lesser General Public License for more details.
+
+  You should have received a copy of the GNU Lesser General Public
+  License along with this library; if not, write to the Free Software
+  Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA  02111-1307  USA
+  */
+#ifdef HAVE_SDL_IMAGE
+#include "rubysdl.h"
+#include <SDL_image.h>
+
+static VALUE sdl_load(VALUE class,VALUE filename)
+{
+  SDL_Surface *surface;
+  surface = IMG_Load(GETCSTR(filename));
+  if(surface==NULL){
+    rb_raise(eSDLError,"Couldn't load %s: %s",GETCSTR(filename),
+	     SDL_GetError());
+  }
+  return Data_Wrap_Struct(class,0,sdl_freeSurface,surface);
+}
+static VALUE sdl_loadFromIO(VALUE class,VALUE io)
+{
+  volatile VALUE guard = io;
+  SDL_Surface *surface;
+  
+  surface = IMG_Load_RW(rubysdl_RWops_from_ruby_obj(io), 1);
+  
+  if(surface==NULL){
+    rb_raise(eSDLError,"Couldn't load image from IO: %s",
+	     SDL_GetError());
+  }
+  return Data_Wrap_Struct(class,0,sdl_freeSurface,surface);
+}
+
+void init_sdl_image()
+{
+  rb_define_singleton_method(cSurface,"load",sdl_load,1);
+  rb_define_singleton_method(cSurface,"loadFromIO",sdl_loadFromIO,1);
+}
+#endif /* HAVE_SDL_IMAGE */

data/rubysdl_joystick.c

@@ -0,0 +1,156 @@
+/*
+  Ruby/SDL   Ruby extension library for SDL
+
+  Copyright (C) 2001-2007 Ohbayashi Ippei
+  
+  This library is free software; you can redistribute it and/or
+  modify it under the terms of the GNU Lesser General Public
+  License as published by the Free Software Foundation; either
+  version 2.1 of the License, or (at your option) any later version.
+
+  This library is distributed in the hope that it will be useful,
+  but WITHOUT ANY WARRANTY; without even the implied warranty of
+  MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
+  Lesser General Public License for more details.
+
+  You should have received a copy of the GNU Lesser General Public
+  License along with this library; if not, write to the Free Software
+  Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA  02111-1307  USA
+  */
+#include "rubysdl.h"
+
+
+static VALUE sdl_getJoyPolling(VALUE class)
+{
+  return BOOL(SDL_JoystickEventState(SDL_QUERY)==SDL_ENABLE);
+}
+static VALUE sdl_setJoyPolling(VALUE class,VALUE poll)
+{
+  if(poll)
+    SDL_JoystickEventState(SDL_ENABLE);
+  else
+    SDL_JoystickEventState(SDL_IGNORE);
+  return poll;
+}
+
+static VALUE sdl_joystick_num(VALUE class)
+{
+  return INT2FIX(SDL_NumJoysticks());
+}
+static VALUE sdl_joystick_name(VALUE class,VALUE index)
+{
+  return rb_str_new2( SDL_JoystickName(NUM2INT(index)) );
+}
+static VALUE sdl_joystick_open(VALUE class,VALUE index)
+{
+  SDL_Joystick *joystick;
+  joystick=SDL_JoystickOpen(NUM2INT(index));
+  if(joystick==NULL)
+    rb_raise(eSDLError,"Couldn't open joystick No.%d :%s",NUM2INT(index),
+	     SDL_GetError());
+  return Data_Wrap_Struct(class,0,0,joystick);
+}
+static VALUE sdl_joystick_opened(VALUE class,VALUE index)
+{
+  return (SDL_JoystickOpened(NUM2INT(index)))?Qtrue:Qfalse;
+}
+static VALUE sdl_joystick_update(VALUE class)
+{
+  SDL_JoystickUpdate();
+  return Qnil;
+}
+static VALUE sdl_joystick_index(VALUE obj)
+{
+  SDL_Joystick *joystick;
+  Data_Get_Struct(obj,SDL_Joystick,joystick);
+  return INT2FIX(SDL_JoystickIndex(joystick));
+}
+static VALUE sdl_joystick_numAxes(VALUE obj)
+{
+  SDL_Joystick *joystick;
+  Data_Get_Struct(obj,SDL_Joystick,joystick);
+  return INT2FIX(SDL_JoystickNumAxes(joystick));
+}
+static VALUE sdl_joystick_numBalls(VALUE obj)
+{
+  SDL_Joystick *joystick;
+  Data_Get_Struct(obj,SDL_Joystick,joystick);
+  return INT2FIX(SDL_JoystickNumBalls(joystick));
+}
+static VALUE sdl_joystick_numHats(VALUE obj)
+{
+  SDL_Joystick *joystick;
+  Data_Get_Struct(obj,SDL_Joystick,joystick);
+  return INT2FIX(SDL_JoystickNumHats(joystick));
+}
+static VALUE sdl_joystick_numButtons(VALUE obj)
+{
+  SDL_Joystick *joystick;
+  Data_Get_Struct(obj,SDL_Joystick,joystick);
+  return INT2FIX(SDL_JoystickNumButtons(joystick));
+}
+
+static VALUE sdl_joystick_getAxis(VALUE obj,VALUE axis)
+{
+  SDL_Joystick *joystick;
+  Data_Get_Struct(obj,SDL_Joystick,joystick);
+  return INT2NUM(SDL_JoystickGetAxis(joystick,NUM2INT(axis)));
+}
+static VALUE sdl_joystick_getHat(VALUE obj,VALUE hat)
+{
+  SDL_Joystick *joystick;
+  Data_Get_Struct(obj,SDL_Joystick,joystick);
+  return UINT2NUM(SDL_JoystickGetHat(joystick,NUM2INT(hat)));
+}
+static VALUE sdl_joystick_getButton(VALUE obj,VALUE button)
+{
+  SDL_Joystick *joystick;
+  Data_Get_Struct(obj,SDL_Joystick,joystick);
+  return (SDL_JoystickGetButton(joystick,NUM2INT(button)))?Qtrue:Qfalse;
+}
+static VALUE sdl_joystick_getBall(VALUE obj,VALUE ball)
+{
+  SDL_Joystick *joystick;
+  int dx,dy;
+  Data_Get_Struct(obj,SDL_Joystick,joystick);
+  if( SDL_JoystickGetBall(joystick,NUM2INT(ball),&dx,&dy)== -1 )
+    rb_raise(eSDLError,"SDL_JoystickGetBall failed :%s",SDL_GetError());
+  return rb_ary_new3(2,INT2FIX(dx),INT2FIX(dy));
+}
+
+static void defineConstForJoystick()
+{
+  rb_define_const(cJoystick,"HAT_CENTERED",UINT2NUM(SDL_HAT_CENTERED));
+  rb_define_const(cJoystick,"HAT_UP",UINT2NUM(SDL_HAT_UP));
+  rb_define_const(cJoystick,"HAT_RIGHT",UINT2NUM(SDL_HAT_RIGHT));
+  rb_define_const(cJoystick,"HAT_DOWN",UINT2NUM(SDL_HAT_DOWN));
+  rb_define_const(cJoystick,"HAT_LEFT",UINT2NUM(SDL_HAT_LEFT));
+  rb_define_const(cJoystick,"HAT_RIGHTUP",UINT2NUM(SDL_HAT_RIGHTUP));
+  rb_define_const(cJoystick,"HAT_RIGHTDOWN",UINT2NUM(SDL_HAT_RIGHTDOWN));
+  rb_define_const(cJoystick,"HAT_LEFTUP",UINT2NUM(SDL_HAT_LEFTUP));
+  rb_define_const(cJoystick,"HAT_LEFTDOWN",UINT2NUM(SDL_HAT_LEFTDOWN));
+}
+void init_joystick()
+{
+  cJoystick = rb_define_class_under(mSDL,"Joystick",rb_cObject);
+  rb_define_singleton_method(cJoystick,"poll",sdl_getJoyPolling,0);
+  rb_define_singleton_method(cJoystick,"poll=",sdl_setJoyPolling,1);
+  rb_define_singleton_method(cJoystick,"num",sdl_joystick_num,0);
+  rb_define_singleton_method(cJoystick,"indexName",sdl_joystick_name,1);
+  rb_define_singleton_method(cJoystick,"open",sdl_joystick_open,1);
+  rb_define_singleton_method(cJoystick,"open?",sdl_joystick_opened,1);
+  rb_define_singleton_method(cJoystick,"updateAll",sdl_joystick_update,0);
+  
+  rb_define_method(cJoystick,"index",sdl_joystick_index,0);
+  rb_define_method(cJoystick,"numAxes",sdl_joystick_numAxes,0);
+  rb_define_method(cJoystick,"numBalls",sdl_joystick_numBalls,0);
+  rb_define_method(cJoystick,"numHats",sdl_joystick_numHats,0);
+  rb_define_method(cJoystick,"numButtons",sdl_joystick_numButtons,0);
+  
+  rb_define_method(cJoystick,"axis",sdl_joystick_getAxis,1);
+  rb_define_method(cJoystick,"hat",sdl_joystick_getHat,1);
+  rb_define_method(cJoystick,"button",sdl_joystick_getButton,1);
+  rb_define_method(cJoystick,"ball",sdl_joystick_getBall,1);
+
+  defineConstForJoystick();
+}