ray 0.0.1 → 0.1.0.pre1

data/ext/joystick.c

@@ -1,145 +0,0 @@
-#include "ray.h"
-
-VALUE ray_cJoystick = Qnil;
-
-SDL_Joystick *ray_rb2joystick(VALUE object) {
-   if (!RAY_IS_A(object, ray_cJoystick)) {
-      rb_raise(rb_eTypeError, "Can't convert %s into Ray::Joystick",
-               RAY_OBJ_CLASSNAME(object));
-   }
-
-   ray_joystick *joy = NULL;
-   Data_Get_Struct(object, ray_joystick, joy);
-
-   if (!joy->joystick)
-      rb_raise(rb_eRuntimeError, "Trying to get a joystick that is not opened.");
-
-   return joy->joystick;
-}
-
-void ray_free_joystick(ray_joystick *ptr) {
-   if (ptr->joystick) SDL_JoystickClose(ptr->joystick);
-   free(ptr);
-}
-
-VALUE ray_alloc_joystick(VALUE self) {
-   ray_joystick *ptr = malloc(sizeof(ray_joystick));
-   ptr->joystick = NULL;
-   
-   return Data_Wrap_Struct(self, NULL, ray_free_joystick, ptr);
-}
-
-/*
-  Creates a new joystick, and open it. You don't need to close it explictly,
-  although doing multiple call to 
-  @param [Integer] stick_id Identifier for this stick. Should be smaller
-                            than Ray::Joystick.count.
-*/
-VALUE ray_init_joystick(VALUE self, VALUE stick_id) {
-   rb_iv_set(self, "@id", stick_id);
-   rb_funcall2(self, RAY_METH("open"), 0, NULL);
-   return Qnil;
-}
-
-/* @return [Integer] the number of joysticks available */
-VALUE ray_joystick_count(VALUE self) {
-   return INT2FIX(SDL_NumJoysticks());
-}
-
-/*
-  @return [true, false] True if events coming from the joystick are handled.
-*/
-VALUE ray_joystick_handle_event(VALUE self) {
-   return SDL_JoystickEventState(SDL_QUERY) ? Qtrue : Qfalse; 
-}
-
-/*
-  Sets whether we should handle events coming from the joystick.
- */
-VALUE ray_joystick_set_handle_event(VALUE self, VALUE val) {
-   SDL_JoystickEventState(RTEST(val) ? SDL_ENABLE : SDL_DISABLE);
-   return val;
-}
-
-/* Opens the joystick */
-VALUE ray_joystick_open(VALUE self) {
-   int id = NUM2INT(rb_iv_get(self, "@id"));
-   SDL_Joystick *ptr = SDL_JoystickOpen(id);
-
-   if (!ptr) {
-      rb_raise(rb_eArgError, "Failled to open joystick %d (%s)",
-               id, SDL_GetError());
-   }
-
-   ray_joystick *joy = NULL;
-   Data_Get_Struct(self, ray_joystick, joy);
-
-   joy->joystick = ptr;
-
-   return self;
-}
-
-/* @return [true, false] true if the joystick is closed */ 
-VALUE ray_joystick_closed(VALUE self) {
-   ray_joystick *joy = NULL;
-   Data_Get_Struct(self, ray_joystick, joy);
-   
-   return joy->joystick == NULL ? Qtrue : Qfalse;
-}
-
-/* Closes the joystick. Can be called even if closed? is true. */
-VALUE ray_joystick_close(VALUE self) {
-   if (ray_joystick_closed(self) == Qtrue)
-      return Qnil;
-
-   SDL_JoystickClose(ray_rb2joystick(self));
-
-   ray_joystick *joy = NULL;
-   Data_Get_Struct(self, ray_joystick, joy);
-
-   joy->joystick = NULL;
-   
-   return Qnil;
-}
-
-/* @return [Integer] The number of buttons on this joystick */
-VALUE ray_joystick_button_count(VALUE self) {
-   return INT2FIX(SDL_JoystickNumButtons(ray_rb2joystick(self)));
-}
-
-/* @return [Integer] The number of axes on this joystick */
-VALUE ray_joystick_axe_count(VALUE self) {
-   return INT2FIX(SDL_JoystickNumAxes(ray_rb2joystick(self)));
-}
-
-/* @return [Integer] The number of trackballs on this joystick */
-VALUE ray_joystick_ball_count(VALUE self) {
-   return INT2FIX(SDL_JoystickNumBalls(ray_rb2joystick(self)));
-}
-
-/* @return [Integer] The number of hats on this joystick */
-VALUE ray_joystick_hat_count(VALUE self) {
-   return INT2FIX(SDL_JoystickNumHats(ray_rb2joystick(self)));
-}
-
-void Init_ray_joystick() {
-   ray_cJoystick = rb_define_class_under(ray_mRay, "Joystick", rb_cObject);
-   rb_define_alloc_func(ray_cJoystick, ray_alloc_joystick);
-   rb_define_method(ray_cJoystick, "initialize", ray_init_joystick, 1);
-
-   rb_define_module_function(ray_cJoystick, "count", ray_joystick_count, 0);
-
-   rb_define_module_function(ray_cJoystick, "handle_event=",
-                             ray_joystick_set_handle_event, 1);
-   rb_define_module_function(ray_cJoystick, "handle_event",
-                             ray_joystick_handle_event, 0);
-
-   rb_define_method(ray_cJoystick, "open", ray_joystick_open, 0);
-   rb_define_method(ray_cJoystick, "close", ray_joystick_close, 0);
-   rb_define_method(ray_cJoystick, "closed?", ray_joystick_closed, 0);
-   
-   rb_define_method(ray_cJoystick, "button_count", ray_joystick_button_count, 0);
-   rb_define_method(ray_cJoystick, "axe_count", ray_joystick_axe_count, 0);
-   rb_define_method(ray_cJoystick, "hat_count", ray_joystick_hat_count, 0);
-   rb_define_method(ray_cJoystick, "ball_count", ray_joystick_ball_count, 0);
-}

data/ext/ray.c

@@ -1,489 +0,0 @@
-#include "ray.h"
-
-#ifdef HAVE_COCOA
-extern void ray_osx_init();
-extern void ray_osx_close();
-#endif
-
-VALUE ray_mRay = Qnil;
-
-/*
-  @overload init(opts = {})
-    Inits Ray.
-  
-    @option opts [Integer] :frequency Audio frequency (defaults to 22050)
-    @option opts [Integer] :format A constant declared in Ray::Audio
-    @option opts [true] :mono or :stereo Set :mono or :stereo to true to enable
-                                         one of them.
-    @option opts [Integer] :chunk_size Size of a chunk (defaults to 1024)
-*/
-VALUE ray_init(int argc, VALUE *argv, VALUE self) {
-   VALUE hash = Qnil;
-   rb_scan_args(argc, argv, "01", &hash);
-
-#ifdef HAVE_COCOA
-   ray_osx_init();
-#endif
-
-   if (SDL_Init(SDL_INIT_VIDEO | SDL_INIT_JOYSTICK) == -1) {
-      rb_raise(rb_eRuntimeError, "Couldn't init the SDL (%s)",
-               SDL_GetError());
-   }
-
-#ifdef HAVE_SDL_TTF
-   if (!TTF_WasInit()) {
-      if (TTF_Init() == -1) {
-         rb_raise(rb_eRuntimeError, "Couldn't init SDL_TTF (%s)",
-                  TTF_GetError());
-      }
-   }
-#endif
-
-#ifdef HAVE_SDL_MIXER
-   int frequency   = MIX_DEFAULT_FREQUENCY;
-   uint16_t format = MIX_DEFAULT_FORMAT;
-   int channels    = MIX_DEFAULT_CHANNELS;
-   int chunk_size = 1024;
-
-   if (!NIL_P(hash)) {
-      VALUE rb_freq, rb_format, rb_chunk_size;
-      if (!NIL_P(rb_freq = rb_hash_aref(hash, RAY_SYM("frequency"))))
-         frequency = NUM2INT(rb_freq);
-
-      if (!NIL_P(rb_format = rb_hash_aref(hash, RAY_SYM("format"))))
-         format = NUM2INT(rb_format);
-      
-      if (RTEST(rb_hash_aref(hash, RAY_SYM("mono"))))
-         channels = 1;
-      else if (RTEST(rb_hash_aref(hash, RAY_SYM("stereo"))))
-         channels = 2;
-
-      if (!NIL_P(rb_chunk_size = rb_hash_aref(hash, RAY_SYM("chunk_size"))))
-         chunk_size = NUM2INT(rb_chunk_size);
-   }
-   
-   if (Mix_OpenAudio(frequency, format, channels, chunk_size) == -1) {
-      rb_raise(rb_eRuntimeError, "Couldn't open audio (%s)",
-               Mix_GetError());
-   }
-#endif
-
-   return Qnil;
-}
-
-/* Stops ray */
-VALUE ray_stop(VALUE self) {
-#ifdef HAVE_SDL_MIXER
-   Mix_CloseAudio();
-#endif
-
-#ifdef HAVE_SDL_TTF
-   /*
-     Freeing a font after TTF_Quit causes a segfault, but, Ruby being
-     garbage called, we can't be sure a font won't be freed later.
-   */
-
-   /* TTF_Quit(); */
-#endif
-
-   SDL_Quit();
-   /* The pool is never drained on OSX */
-   return Qnil;
-}
-
-ray_video_mode ray_parse_video_mode(VALUE hash) {
-   VALUE width  = rb_hash_aref(hash, RAY_SYM("width"));
-   VALUE height = rb_hash_aref(hash, RAY_SYM("height"));
-
-   if (NIL_P(width))  width  = rb_hash_aref(hash, RAY_SYM("w"));
-   if (NIL_P(height)) height = rb_hash_aref(hash, RAY_SYM("h"));
-
-   if (NIL_P(width) || NIL_P(height))
-      rb_raise(rb_eArgError, "Missing parameter: width or height");
-
-   VALUE bitsperpixel = rb_hash_aref(hash, RAY_SYM("bits_per_pixel"));
-   if (NIL_P(bitsperpixel)) bitsperpixel = rb_hash_aref(hash, RAY_SYM("bpp"));
-
-   if (NIL_P(bitsperpixel))
-      bitsperpixel = INT2FIX(32);
-
-   uint32_t flags = 0;
-   if (RTEST(rb_hash_aref(hash, RAY_SYM("sw_surface"))))
-      flags |= SDL_SWSURFACE;
-   else
-      flags |= SDL_HWSURFACE; /* even if hwsurface was false and not nil */
-
-   if (RTEST(rb_hash_aref(hash, RAY_SYM("async_blit"))))
-      flags |= SDL_ASYNCBLIT;
-
-   if (!(flags & SDL_SWSURFACE) &&
-       RTEST(rb_hash_aref(hash, RAY_SYM("double_buf")))) {
-      flags |= SDL_DOUBLEBUF;
-   }
-
-   if (RTEST(rb_hash_aref(hash, RAY_SYM("fullscreen"))))
-      flags |= SDL_FULLSCREEN;
-
-   if (RTEST(rb_hash_aref(hash, RAY_SYM("no_frame"))))
-      flags |= SDL_NOFRAME;
-
-   if (RTEST(rb_hash_aref(hash, RAY_SYM("resizable"))))
-      flags |= SDL_RESIZABLE;
-
-   ray_video_mode mode = {
-      NUM2INT(width),
-      NUM2INT(height),
-
-      NUM2INT(bitsperpixel),
-
-      flags
-   };
-
-   return mode;
-}
-
-/*
-  @overload create_window(hash)
-    Creates a new window.
-
-    If both hw_surface and sws_urface are false, hw_surface
-    will be considered as true. :sw_surface should be true
-    if you want to acess
-
-    @return [Ray::Image] An image representing the window
-
-    @option hash [Integer] :width Width of the window
-    @option hash [Integer] :height Height of the window
-
-    @option hash [Integer] :w Alias for width
-    @option hash [Integer] :h Alias for height
-
-    @option hash [Integer] :bits_per_pixel Bits per pixel. Valid values are
-                                           8, 15, 16, 24, and 32.
-    @option hash [Integer] :bpp Alias for bits_per_pixel
-
-    @option hash [true, false] :hw_surface Creates the surface in video memory
-                                        (default)
-    @option hash [true, false] :sw_surface Creates the surface in system memory
-    @option hash [true, false] :async_blit Enables asynchronous updates of the
-                                           the surface
-    @option hash [true, false] :double_buf Enables double buffering. Ignored
-                                           if sw_surface is set.
-    @option hash [true, false] :fullscreen Creates a full screen window.
-    @option hash [true, false] :resizable  Creates a resizable window.
-    @option hash [true, false] :no_frame   Disables window decoration if
-                                           possible.
- */
-VALUE ray_create_window(VALUE self, VALUE hash) {
-   ray_video_mode mode = ray_parse_video_mode(hash);
-   SDL_Surface *screen = SDL_SetVideoMode(mode.width, mode.height,
-                                          mode.bpp, mode.flags);
-   
-   if (!screen) {
-      rb_raise(rb_eRuntimeError, "Could not create the window (%s)",
-               SDL_GetError());
-   }
-
-   return ray_create_image(screen);
-}
-
-/*
-  @overload can_use_mode?(hash)
-    @param [Hash] hash Same options as in create_window
-    @return [true, false] True if the video mode described by hash
-                          can be used.
-*/
-VALUE ray_can_use_mode(VALUE self, VALUE hash) {
-   ray_video_mode mode = ray_parse_video_mode(hash);
-   
-   int res = SDL_VideoModeOK(mode.width, mode.height, mode.bpp, mode.flags);
-   return res ? Qtrue : Qfalse;
-}
-
-/*
-  @overload icon=(icon)
-    Sets the window icon
-    @param [Ray::Image] icon The icon to display
-*/
-VALUE ray_set_icon(VALUE self, VALUE icon) {
-   SDL_WM_SetIcon(ray_rb2surface(icon), NULL);
-   return icon;
-}
-
-/* @return [String, nil] The window title */
-VALUE ray_window_title(VALUE self) {
-   char *title = NULL;
-   SDL_WM_GetCaption(&title, NULL);
-
-   if (!title)
-      return Qnil;
-   return rb_str_new2(title);
-}
-
-/*
-  @overload window_title=(title)
-    Sets the window title
-*/
-VALUE ray_set_window_title(VALUE self, VALUE title) {
-   char *icon = NULL;
-
-   if (!NIL_P(title)) title = rb_String(title);
-
-   SDL_WM_GetCaption(NULL, &icon);
-   SDL_WM_SetCaption(NIL_P(title) ? NULL : StringValuePtr(title), icon);
-
-   return title;
-}
-
-/* @return [String, nil] The window text icon */
-VALUE ray_text_icon(VALUE self) {
-   char *icon = NULL;
-   SDL_WM_GetCaption(NULL, &icon);
-
-   if (!icon)
-      return Qnil;
-   return rb_str_new2(icon);   
-}
-
-/*
-  @overload text_icon=(val)
-    Sets the window text icon
-*/
-VALUE ray_set_text_icon(VALUE self, VALUE icon) {
-   char *title;
-   
-   if (!NIL_P(icon)) icon = rb_String(icon);
-
-   SDL_WM_GetCaption(&title, NULL);
-   SDL_WM_SetCaption(title, NIL_P(icon) ? NULL : StringValuePtr(icon));
-
-   return icon;
-}
-
-/*
-  @return [true, false] True if the input is grabbed, which means the mouse
-                        is confined in the window, and keyboard input is sent
-                        directly to the window.
-*/
-VALUE ray_grab_input(VALUE self) {
-   SDL_GrabMode mode = SDL_WM_GrabInput(SDL_GRAB_QUERY);
-   return (mode == SDL_GRAB_ON) ? Qtrue : Qfalse;
-}
-
-/*
-  @overload grab_input=(grab)
-    Sets the grab input to true or false
-*/
-VALUE ray_set_grab_input(VALUE self, VALUE grab) {
-   SDL_WM_GrabInput(RTEST(grab) ? SDL_GRAB_ON : SDL_GRAB_OFF);
-   return grab;
-}
-
-/* @return [Ray::Image, nil] The current screen, created by create_window */
-VALUE ray_screen(VALUE self) {
-   SDL_Surface *surf = SDL_GetVideoSurface();
-   
-   if (!surf)
-      return Qnil;
-   return ray_create_image(surf);
-}
-
-/* @return [true, false] true if Ray supports other image formats than BMP */
-VALUE ray_has_image_support(VALUE self) {
-#ifdef HAVE_SDL_IMAGE
-   return Qtrue;
-#else
-   return Qfalse;
-#endif
-}
-
-/* @return [true, false] true if Ray supports graphical effect like rotations */
-VALUE ray_has_gfx_support(VALUE self) {
-#ifdef HAVE_SDL_GFX
-   return Qtrue;
-#else
-   return Qfalse;
-#endif
-}
-
-/* @return [true, false] true if Ray supports ttf fonts */
-VALUE ray_has_font_support(VALUE self) {
-#ifdef HAVE_SDL_TTF
-   return Qtrue;
-#else
-   return Qfalse;
-#endif
-}
-
-/* @return [true, false] true if Ray supports audio playback */
-VALUE ray_has_audio_support(VALUE self) {
-#ifdef HAVE_SDL_MIXER
-   return Qtrue;
-#else
-   return Qfalse;
-#endif
-}
-
-void Init_ray_ext() {
-   ray_mRay = rb_define_module("Ray");
-
-   rb_define_module_function(ray_mRay, "init", ray_init, -1);
-   rb_define_module_function(ray_mRay, "stop", ray_stop, 0);
-
-   rb_define_module_function(ray_mRay, "create_window", ray_create_window, 1);
-   rb_define_module_function(ray_mRay, "can_use_mode?", ray_can_use_mode, 1);
-   rb_define_module_function(ray_mRay, "screen", ray_screen, 0);
-   
-   rb_define_module_function(ray_mRay, "icon=", ray_set_icon, 1);
-   rb_define_module_function(ray_mRay, "window_title=", ray_set_window_title,
-                             1);
-   rb_define_module_function(ray_mRay, "text_icon=", ray_set_text_icon, 1);
-
-   rb_define_module_function(ray_mRay, "window_title", ray_window_title, 0);
-   rb_define_module_function(ray_mRay, "text_icon", ray_text_icon, 0);
-
-   rb_define_module_function(ray_mRay, "grab_input", ray_grab_input, 0);
-   rb_define_module_function(ray_mRay, "grab_input=", ray_set_grab_input, 1);
-
-   rb_define_module_function(ray_mRay, "has_image_support?",
-                             ray_has_image_support, 0);
-   rb_define_module_function(ray_mRay, "has_gfx_support?",
-                             ray_has_gfx_support, 0);
-   rb_define_module_function(ray_mRay, "has_font_support?",
-                             ray_has_font_support, 0);
-  rb_define_module_function(ray_mRay, "has_audio_support?",
-                             ray_has_audio_support, 0); 
-
-   Init_ray_image();
-   Init_ray_color();
-   Init_ray_rect();
-   Init_ray_event();
-   Init_ray_joystick();
-
-#ifdef HAVE_SDL_TTF
-   Init_ray_font();
-#endif
-
-#ifdef HAVE_SDL_MIXER
-   Init_ray_audio();
-#endif
-
-#ifdef PSP
-   Init_ray_psp();
-#endif
-}
-
-#ifdef PSP
-
-PSP_MAIN_THREAD_ATTR(THREAD_ATTR_USER | THREAD_ATTR_VFPU);
-PSP_HEAP_SIZE_KB(-512);
-
-#include <unistd.h>
-
-#define RGB(r, g, b) ((r) | ((g)<<8) | ((b)<<16) | (0xff<<24))
-
-VALUE ray_safe_load(VALUE self) {
-   return rb_require("./script.rb");
-}
-
-int SDL_main(int argc, char *argv[]) {
-   ruby_init();
-
-   ruby_incpush("./ruby/1.8");
-   ruby_incpush("./ruby/site_ruby");
-   ruby_incpush("./ruby/site_ruby/1.8");
-
-   ruby_incpush("ms0:/ruby/1.8");
-   ruby_incpush("ms0:/ruby/site_ruby");
-   ruby_incpush("ms0:/ruby/site_ruby/1.8");
-
-   ruby_incpush(".");
-   
-   ruby_script("ray");
-
-   Init_ray_ext();
-
-   int error = 0;
-   VALUE res = rb_protect(ray_safe_load, 0, &error);
-
-   if (error != 0) {
-      pspDebugScreenInit();
-
-      pspDebugScreenSetBackColor(RGB(0, 0, 0));
-      pspDebugScreenEnableBackColor(1);
-
-      pspDebugScreenClear();
-      pspDebugScreenSetXY(0, 0);
-
-      pspDebugScreenSetTextColor(RGB(255, 0, 0));
-      pspDebugScreenPrintf("Ray - error manager\n\n\n");
-      pspDebugScreenSetTextColor(RGB(255, 255, 255));
-
-      pspDebugScreenPrintf("This is Ray's error manager.An exception ");
-      pspDebugScreenPrintf("has been thrown, and the script ");
-      pspDebugScreenPrintf("cannot be run. If you're the developper of");
-      pspDebugScreenPrintf(" this application,\ncheck yout script.");
-      pspDebugScreenPrintf(" If it seems fine to you, consider ");
-      pspDebugScreenPrintf("filling a bug report.\n");
-      pspDebugScreenPrintf("If you're not the developper, consider");
-      pspDebugScreenPrintf(" contacting him.\n\n\n");
-
-      pspDebugScreenSetTextColor(RGB(255, 0, 0));
-      pspDebugScreenPrintf("Errors informations :\n\n\n");
-      pspDebugScreenSetTextColor(RGB(255, 255, 255));
-
-      // Now, we get the error.
-      VALUE error = rb_gv_get("$!");
-
-      // And the information we want to have about it.
-      VALUE backtrace = rb_funcall(error, RAY_METH("backtrace"), 0);
-      VALUE type      = rb_funcall(error, RAY_METH("class"), 0);
-      VALUE msg       = rb_funcall(error, RAY_METH("message"), 0);
-
-      type = rb_funcall(type, RAY_METH("to_s"), 0);
-
-      VALUE first = rb_ary_entry(backtrace, 0);
-
-      FILE *log = fopen("ray-error.log", "w");
-      if (!log) {
-         sceKernelExitGame();
-         return 1;
-      }
-
-      pspDebugScreenPrintf("%s: %s: %s\n", StringValuePtr(first),
-                                           StringValuePtr(type),
-                                           StringValuePtr(msg));
-      fprintf(log, "%s: %s: %s\n", StringValuePtr(first), StringValuePtr(type),
-              StringValuePtr(msg));
-
-      int i = 1;
-      for (i = 1; i < RARRAY_LEN(backtrace); ++i) {
-         VALUE entry = rb_ary_entry(backtrace, i);
-         pspDebugScreenPrintf("%s\n", StringValuePtr(entry));
-         fprintf(log, "%s\n", StringValuePtr(entry));
-      }
-
-      fclose(log);
-
-      pspDebugScreenPrintf("\nThese informations can be found in ");
-      pspDebugScreenPrintf("ray-error.log\n\n");
-
-      pspDebugScreenPrintf("Press X to quit.");
-
-      SceCtrlData pad;
-
-      sceCtrlSetSamplingCycle(0);
-      sceCtrlSetSamplingMode(PSP_CTRL_MODE_ANALOG);
-      sceCtrlReadBufferPositive(&pad, 1);
-
-      while (!(pad.Buttons & PSP_CTRL_CROSS))
-         sceCtrlReadBufferPositive(&pad, 1);
-
-      sceKernelExitGame();
-      return 0;
-   }
-
-   return res;
-}
-
-#endif