rubygame 2.3.0-x86-mswin32-60

data/ext/rubygame/rubygame_image.h

@@ -0,0 +1,41 @@
+/*
+ * Rubygame -- Ruby code and bindings to SDL to facilitate game creation
+ * Copyright (C) 2004-2007  John Croisant
+ *
+ * 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
+ *
+ */
+
+#ifndef _RUBYGAME_IMAGE_H
+#define _RUBYGAME_IMAGE_H
+
+#include "SDL_image.h"
+
+#ifndef SDL_IMAGE_MAJOR_VERSION
+#define SDL_IMAGE_MAJOR_VERSION 0
+#endif
+
+#ifndef SDL_IMAGE_MINOR_VERSION
+#define SDL_IMAGE_MINOR_VERSION 0
+#endif
+
+#ifndef SDL_IMAGE_PATCHLEVEL
+#define SDL_IMAGE_PATCHLEVEL 0
+#endif
+
+extern void Init_rubygame_image();
+extern VALUE rbgm_image_load(VALUE, VALUE);
+
+#endif

data/ext/rubygame/rubygame_joystick.c

@@ -0,0 +1,247 @@
+/*--
+ *
+ *	Rubygame -- Ruby code and bindings to SDL to facilitate game creation
+ *	Copyright (C) 2004-2007  John Croisant
+ *
+ *	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 "rubygame_shared.h"
+#include "rubygame_joystick.h"
+
+void Rubygame_Init_Joystick();
+VALUE cJoy;
+
+VALUE rbgm_joy_numjoysticks(VALUE);
+VALUE rbgm_joy_getname(VALUE, VALUE);
+
+VALUE rbgm_joystick_new(VALUE, VALUE);
+
+VALUE rbgm_joystick_index(VALUE);
+VALUE rbgm_joystick_name(VALUE);
+VALUE rbgm_joystick_numaxes(VALUE);
+VALUE rbgm_joystick_numballs(VALUE);
+VALUE rbgm_joystick_numhats(VALUE);
+VALUE rbgm_joystick_numbuttons(VALUE);
+
+
+/* 
+ *  call-seq:
+ *    num_joysticks  ->  Integer
+ *
+ *  Returns the total number of joysticks detected on the system.
+ */
+VALUE rbgm_joy_numjoysticks( VALUE module )
+{
+	return INT2FIX(SDL_NumJoysticks());
+}
+
+/* 
+ *  call-seq:
+ *    get_name( n )  ->  String
+ *
+ *  Returns the name of nth joystick on the system, up to 1024 
+ *  characters long. The name is implementation-dependent.
+ *  See also #name().
+ */
+VALUE rbgm_joy_getname( VALUE module, VALUE joynum )
+{
+	return rb_str_new2(SDL_JoystickName(NUM2INT(joynum)));
+}
+
+
+/*
+* Internal function to safely deallocate the joystick, that is,
+*  only if SDL Joystick module is still initialised.
+*/
+static void RBGM_JoystickClose(SDL_Joystick *joy) 
+{
+	if(SDL_WasInit(SDL_INIT_JOYSTICK)) 
+	{
+		SDL_JoystickClose(joy);
+	}
+}
+
+
+/* 
+ *  call-seq:
+ *    new( n )  ->  Joystick
+ *
+ *  Create and initialize an interface to the nth joystick on the
+ *  system. Raises SDLError if the joystick could not be opened.
+ */
+VALUE rbgm_joystick_new( VALUE module, VALUE vindex )
+{
+	VALUE self;
+	SDL_Joystick *joy;
+	int index;
+
+	index = NUM2INT(vindex);
+
+	joy = SDL_JoystickOpen(index);
+	if(joy == NULL)
+	{
+		rb_raise(eSDLError,"Could not open joystick %d: %s",\
+			index,SDL_GetError());
+	}
+	self = Data_Wrap_Struct(cJoy, 0, RBGM_JoystickClose, joy);
+	return self;
+}
+
+/* 
+ *  call-seq:
+ *    index  ->  Integer
+ *
+ *  Returns the index number of the Joystick, i.e. the identifier number of the
+ *  joystick that this interface controls. This is the same number that was
+ *  given to #new().
+ */
+VALUE rbgm_joystick_index( VALUE self )
+{
+	SDL_Joystick *joy;
+
+	Data_Get_Struct(self,SDL_Joystick,joy);
+	return INT2FIX(SDL_JoystickIndex(joy));
+}
+
+/* 
+ *  call-seq:
+ *    name  ->  String
+ *
+ *  Returns a String containing the name of the Joystick, up to 1024
+ *  characters long. The name is implementation-dependent. See also 
+ *  #get_name().
+ */
+VALUE rbgm_joystick_name( VALUE self )
+{
+	char *name;
+	SDL_Joystick *joy;
+	Uint8 index;
+	int n;
+	int size = 1024;
+
+	Data_Get_Struct(self,SDL_Joystick,joy);
+	index = SDL_JoystickIndex(joy);
+	name = (char *)malloc(size);
+	n = snprintf(name,size,"%s",SDL_JoystickName(index));
+	return rb_str_new(name,n);
+}
+
+/* 
+ *  call-seq:
+ *    axes  ->  Integer
+ *
+ *  Returns the number of axes (singular: axis) featured on the Joystick. Each
+ *  control stick generally has two axes (X and Y), although there are other
+ *  types of controls which are represented as one or more axes. See also
+ *  #axis_state().
+ */
+VALUE rbgm_joystick_numaxes( VALUE self )
+{
+	SDL_Joystick *joy;
+	Data_Get_Struct(self,SDL_Joystick,joy);
+	return INT2FIX(SDL_JoystickNumAxes(joy));
+}
+
+/* 
+ *  call-seq:
+ *    balls  ->  Integer
+ *
+ *  Returns the number of trackballs featured on the Joystick. A trackball is
+ *  usually a small sphere which can be rotated in-place in any direction,
+ *  registering relative movement along two axes. See alse #ball_state().
+ */
+VALUE rbgm_joystick_numballs( VALUE self )
+{
+	SDL_Joystick *joy;
+	Data_Get_Struct(self,SDL_Joystick,joy);
+	return INT2FIX(SDL_JoystickNumBalls(joy));
+}
+
+/* 
+ *  call-seq:
+ *    hats  ->  Integer
+ *
+ *  Returns the number of hats featured on the Joystick. A hat is a switch
+ *  which can be pushed in one of several directions, or centered. See also
+ *  #hat_state().
+ */
+VALUE rbgm_joystick_numhats( VALUE self )
+{
+	SDL_Joystick *joy;
+	Data_Get_Struct(self,SDL_Joystick,joy);
+	return INT2FIX(SDL_JoystickNumHats(joy));
+}
+
+/* 
+ *  call-seq:
+ *    buttons  ->  Integer
+ *
+ *  Returns the number of buttons featured on the Joystick. A button can
+ *  be in one of two states: neutral, or pushed. See also #button_state()
+ */
+VALUE rbgm_joystick_numbuttons( VALUE self )
+{
+	SDL_Joystick *joy;
+	Data_Get_Struct(self,SDL_Joystick,joy);
+  SDL_JoystickUpdate();
+	return INT2FIX(SDL_JoystickNumButtons(joy));
+}
+
+
+/*  Document-class: Rubygame::Joystick
+ *
+ *  The Joystick class interfaces with joysticks, gamepads, and other
+ *  similar hardware devices, commonly used to play games. Each joystick can
+ *  offer 0 or more #axes, #balls, #hats, and/or #buttons.
+ *
+ *  After a Joystick object is successfully created, events for that
+ *  Joystick will begin appearing on the Queue, reporting any state change
+ *  that occurs. Some examples of state changes are a button being pressed
+ *  or released, or a control stick being moved (resulting in one or more axes
+ *  being changed).
+ *
+ *  The full list of Joystick-related events is as follows:
+ *  - JoyAxisEvent
+ *  - JoyBallEvent
+ *  - JoyHatEvent
+ *  - JoyDownEvent
+ *  - JoyUpEvent
+ *
+ *  In future versions of Rubygame, it will be possible to directly query
+ *  the state each joystick. However, it is recommended that you use the
+ *  event system for most cases, so you might as well get used to it!
+ *
+ */
+void Rubygame_Init_Joystick()
+{
+#if 0
+	mRubygame = rb_define_module("Rubygame");
+#endif
+
+	cJoy = rb_define_class_under(mRubygame,"Joystick",rb_cObject);
+	rb_define_singleton_method(cJoy,"num_joysticks",rbgm_joy_numjoysticks,0);
+	rb_define_singleton_method(cJoy,"get_name",rbgm_joy_getname,1);
+
+	rb_define_singleton_method(cJoy,"new",rbgm_joystick_new,1);
+	rb_define_method(cJoy,"index",rbgm_joystick_index,0);
+	rb_define_method(cJoy,"name",rbgm_joystick_name,0);
+	rb_define_method(cJoy,"axes",rbgm_joystick_numaxes,0);
+	rb_define_method(cJoy,"balls",rbgm_joystick_numballs,0);
+	rb_define_method(cJoy,"hats",rbgm_joystick_numhats,0);
+	rb_define_method(cJoy,"buttons",rbgm_joystick_numbuttons,0);
+}

data/ext/rubygame/rubygame_joystick.h

@@ -0,0 +1,41 @@
+/*
+ * Rubygame -- Ruby code and bindings to SDL to facilitate game creation
+ * Copyright (C) 2004-2007  John Croisant
+ *
+ * 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
+ *
+ */
+
+
+#ifndef _RUBYGAME_JOYSTICK_H
+#define _RUBYGAME_JOYSTICK_H
+
+extern void Rubygame_Init_Joystick();
+
+extern VALUE cJoy;
+
+extern VALUE rbgm_joy_numjoysticks(VALUE);
+extern VALUE rbgm_joy_getname(VALUE, VALUE);
+
+extern VALUE rbgm_joystick_new(VALUE, VALUE);
+
+extern VALUE rbgm_joystick_index(VALUE);
+extern VALUE rbgm_joystick_name(VALUE);
+extern VALUE rbgm_joystick_numaxes(VALUE);
+extern VALUE rbgm_joystick_numballs(VALUE);
+extern VALUE rbgm_joystick_numhats(VALUE);
+extern VALUE rbgm_joystick_numbuttons(VALUE);
+
+#endif

data/ext/rubygame/rubygame_main.c

@@ -0,0 +1,155 @@
+/*
+ *--
+ * Rubygame -- Ruby code and bindings to SDL to facilitate game creation
+ * Copyright (C) 2004-2007  John Croisant
+ *
+ * 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 "rubygame_shared.h"
+#include "rubygame_main.h"
+#include "rubygame_event.h"
+#include "rubygame_gl.h"
+#include "rubygame_joystick.h"
+#include "rubygame_screen.h"
+#include "rubygame_surface.h"
+#include "rubygame_time.h"
+
+VALUE rbgm_init(VALUE);
+VALUE rbgm_quit(VALUE);
+void Define_Rubygame_Constants();
+
+/* 
+ *  call-seq:
+ *    key_name(sym) -> string
+ *
+ *  Given the sym of a key, returns a printable representation.  This
+ *  differs from key2str in that this will return a printable string
+ *  for any key, even non-printable keys such as the arrow keys.
+ *
+ *  This method may raise SDLError if the SDL video subsystem could
+ *  not be initialized for some reason.
+ *
+ *  Example:
+ *    Rubygame.key_name( Rubygame::K_A )       # => "a"
+ *    Rubygame.key_name( Rubygame::K_RETURN )  # => "return"
+ *    Rubygame.key_name( Rubygame::K_LEFT )    # => "left"
+ */
+VALUE rbgm_keyname(VALUE self, VALUE sym)
+{
+	/* SDL_GetKeyName only works when video system has been initialized. */
+	if( init_video_system() == 0 )
+	{
+		SDLKey key = NUM2INT(sym);
+		char *result = SDL_GetKeyName(key);
+		return rb_str_new2(result);		
+	}
+	else
+	{
+		rb_raise(eSDLError,"Could not initialize SDL video subsystem.");
+		return Qnil;
+	}
+}
+
+
+/*
+ *  call-seq:
+ *     init  ->  nil
+ *
+ *  Initialize Rubygame. This should be called soon after you +require+
+ *  Rubygame, so that everything will work properly.
+ */
+VALUE rbgm_init(VALUE module)
+{
+	if(SDL_Init(SDL_INIT_EVERYTHING)==0)
+	{
+		return Qnil;
+	}
+	else
+	{
+		rb_raise(eSDLError,"Could not initialize SDL.");
+		return Qnil; /* should never get here */
+	}
+}
+
+/*
+ *  call-seq:
+ *     quit  ->  nil
+ *
+ *  Quit Rubygame. This should be used before your program terminates,
+ *  especially if you have been using a fullscreen Screen! (Otherwise,
+ *  the desktop resolution might not revert to its previous setting on
+ *  some platforms, and your users will be frustrated and confused!)
+ */
+VALUE rbgm_quit(VALUE module)
+{
+	SDL_Quit();
+	return Qnil;
+}
+
+
+void Init_rubygame_core()
+{
+	Init_rubygame_shared();
+
+	mRubygame = rb_define_module("Rubygame");
+
+	rb_define_module_function(mRubygame,"init",rbgm_init,0);
+	rb_define_module_function(mRubygame,"quit",rbgm_quit,0);
+	rb_define_singleton_method(mRubygame,"key_name",rbgm_keyname, 1);
+	cRect = rb_define_class_under(mRubygame,"Rect",rb_cArray);
+
+  rb_hash_aset(rb_ivar_get(mRubygame,rb_intern("VERSIONS")),
+               ID2SYM(rb_intern("rubygame")),
+               rb_ary_new3(3,
+                           INT2NUM(RUBYGAME_MAJOR_VERSION),
+                           INT2NUM(RUBYGAME_MINOR_VERSION),
+                           INT2NUM(RUBYGAME_PATCHLEVEL)));
+  rb_hash_aset(rb_ivar_get(mRubygame,rb_intern("VERSIONS")),
+               ID2SYM(rb_intern("sdl")),
+               rb_ary_new3(3,
+                           INT2NUM(SDL_MAJOR_VERSION),
+                           INT2NUM(SDL_MINOR_VERSION),
+                           INT2NUM(SDL_PATCHLEVEL)));
+
+	Rubygame_Init_Time();
+	Rubygame_Init_Surface();
+	Rubygame_Init_Screen();
+	Rubygame_Init_Event();
+	Rubygame_Init_Joystick();
+  Rubygame_Init_GL();
+
+	/* Flags for subsystem initialization */
+	rb_define_const(mRubygame,"INIT_TIMER",INT2NUM(SDL_INIT_TIMER));
+	rb_define_const(mRubygame,"INIT_AUDIO",INT2NUM(SDL_INIT_AUDIO));
+	rb_define_const(mRubygame,"INIT_VIDEO",INT2NUM(SDL_INIT_VIDEO));
+	rb_define_const(mRubygame,"INIT_CDROM",INT2NUM(SDL_INIT_CDROM));
+	rb_define_const(mRubygame,"INIT_JOYSTICK",INT2NUM(SDL_INIT_JOYSTICK));
+	rb_define_const(mRubygame,"INIT_NOPARACHUTE",INT2NUM(SDL_INIT_NOPARACHUTE));
+	rb_define_const(mRubygame,"INIT_EVENTTHREAD",UINT2NUM(SDL_INIT_EVENTTHREAD));
+	rb_define_const(mRubygame,"INIT_EVERYTHING",UINT2NUM(SDL_INIT_EVERYTHING));
+
+	
+	/* Define fully opaque and full transparent (0 and 255) */
+	rb_define_const(mRubygame,"ALPHA_OPAQUE",UINT2NUM(SDL_ALPHA_OPAQUE));
+	rb_define_const(mRubygame,"ALPHA_TRANSPARENT",
+	                UINT2NUM(SDL_ALPHA_TRANSPARENT));
+
+
+	/* Flags for palettes (?) */
+	rb_define_const(mRubygame,"LOGPAL",UINT2NUM(SDL_LOGPAL));
+	rb_define_const(mRubygame,"PHYSPAL",UINT2NUM(SDL_PHYSPAL));
+}