ruby-miyako 2.1.0

data/miyako_input_audio.c

@@ -0,0 +1,254 @@
+/*
+--
+Miyako v2.1 Extend Library "Miyako no Katana"
+Copyright (C) 2009  Cyross Makoto
+
+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
+++
+*/
+
+/*
+=拡張ライブラリmiyako_no_katana
+Authors:: サイロス誠
+Version:: 2.1
+Copyright:: 2007-2008 Cyross Makoto
+License:: LGPL2.1
+ */
+#include "defines.h"
+
+static VALUE mSDL = Qnil;
+static VALUE mMiyako = Qnil;
+static VALUE mAudio = Qnil;
+static VALUE mInput = Qnil;
+static VALUE mScreen = Qnil;
+static VALUE cJoystick = Qnil;
+static VALUE cEvent = Qnil;
+static VALUE cBGM = Qnil;
+static VALUE cSE = Qnil;
+static VALUE nZero = Qnil;
+static VALUE nOne = Qnil;
+static volatile ID id_update_all = Qnil;
+static volatile ID id_is_playing = Qnil;
+static volatile ID id_is_fade_out = Qnil;
+static volatile ID id_in_the_loop = Qnil;
+static volatile ID id_is_playing_wo_loop = Qnil;
+static volatile ID id_is_allow_countup = Qnil;
+static volatile ID id_allow_countup = Qnil;
+static volatile ID id_countup = Qnil;
+static volatile ID id_poll = Qnil;
+static volatile ID id_call = Qnil;
+static volatile int zero = 0;
+static volatile int one = 1;
+static volatile VALUE sy_pushed = Qnil;
+static volatile VALUE sy_pos = Qnil;
+static volatile VALUE sy_dx = Qnil;
+static volatile VALUE sy_dy = Qnil;
+static volatile VALUE sy_click = Qnil;
+static volatile VALUE sy_drop = Qnil;
+static volatile VALUE sy_left = Qnil;
+static volatile VALUE sy_right = Qnil;
+static volatile VALUE sy_middle = Qnil;
+static volatile VALUE sy_trigger = Qnil;
+static volatile VALUE sy_alt = Qnil;
+static volatile VALUE sy_ent = Qnil;
+
+/*
+:nodoc:
+*/
+static VALUE input_update(VALUE self)
+{
+  int i;
+  VALUE *ptr;
+
+  VALUE btn = rb_iv_get(self, "@@btn");    
+  VALUE mouse = rb_iv_get(self, "@@mouse");    
+  VALUE process = rb_iv_get(self, "@@process");    
+  VALUE toggle = rb_iv_get(self, "@@toggle_screen_mode");    
+
+  VALUE trigger = rb_hash_lookup(btn, sy_trigger);
+  VALUE pushed  = rb_hash_lookup(btn, sy_pushed);
+  VALUE click   = rb_hash_lookup(mouse, sy_click);
+  VALUE drop    = rb_hash_lookup(mouse, sy_drop);
+  VALUE pos     = rb_hash_lookup(mouse, sy_pos);
+  
+  rb_funcall(cJoystick, id_update_all, 0);
+  
+  VALUE keys = rb_funcall(pushed, rb_intern("keys"), 0);
+  ptr = RARRAY_PTR(keys);
+  for(i=0; i<RARRAY_LEN(keys); i++)
+  {
+    rb_hash_aset(pushed, *(ptr+i), nZero);
+  }
+  rb_hash_aset(pos, sy_dx, nZero);
+  rb_hash_aset(pos, sy_dy, nZero);
+
+  rb_hash_aset(click, sy_left, Qfalse);
+  rb_hash_aset(click, sy_middle, Qfalse);
+  rb_hash_aset(click, sy_right, Qfalse);
+  rb_hash_aset(drop, sy_left, Qfalse);
+  rb_hash_aset(drop, sy_middle, Qfalse);
+  rb_hash_aset(drop, sy_right, Qfalse);
+  
+  VALUE e_list = rb_ary_new();
+  VALUE e = rb_funcall(cEvent, id_poll, 0);
+  while(e != Qnil)
+  {
+    rb_ary_push(e_list, e);
+    e = rb_funcall(cEvent, id_poll, 0);
+  }
+
+  ptr = RARRAY_PTR(e_list);
+  int len = RARRAY_LEN(e_list);
+  for(i=0; i<len; i++)
+  {
+    VALUE e2 = *(ptr + len - i - 1);
+    VALUE proc = rb_hash_lookup(process, CLASS_OF(e2));
+    rb_funcall(proc, id_call, 1, e2);
+    if(rb_hash_lookup(trigger, sy_alt) == nOne &&
+       rb_hash_lookup(pushed, sy_ent) == nOne &&
+       toggle == Qtrue)
+    {
+      rb_funcall(mScreen, rb_intern("toggle_mode"), 0);
+      rb_hash_aset(trigger, sy_alt, nZero);
+      rb_hash_aset(pushed, sy_ent, nZero);
+    }
+  }
+  
+  return Qnil;
+}
+
+/*
+:nodoc:
+*/
+static VALUE bgm_update(VALUE self)
+{
+  VALUE nua = rb_gv_get("$not_use_audio");
+  if(nua == Qfalse) return Qnil;
+  
+  VALUE pb = rb_iv_get(self, "@@playin_bgm");
+  if(pb == Qnil) return Qnil;
+
+  if(rb_funcall(pb, id_is_playing_wo_loop, 0) == Qfalse &&
+     rb_funcall(pb, id_in_the_loop, 0) == Qtrue)
+  {
+    rb_funcall(pb, id_countup, 0);
+    if(rb_funcall(pb, id_in_the_loop, 0) == Qfalse)
+      rb_iv_set(self, "@@playin_bgm", Qnil);
+  }
+  else if(rb_funcall(pb, id_is_playing, 0) == Qfalse &&
+          rb_funcall(pb, id_is_fade_out, 0) == Qfalse)
+  {
+    rb_iv_set(self, "@@playin_bgm", Qnil);
+  }
+  else if(rb_funcall(pb, id_is_allow_countup, 0) == Qfalse)
+  {
+     rb_funcall(pb, id_allow_countup, 0);
+  }
+
+  return Qnil;
+}
+
+/*
+:nodoc:
+*/
+static VALUE se_update(VALUE self)
+{
+  VALUE nua = rb_gv_get("$not_use_audio");
+  if(nua == Qfalse) return Qnil;
+  
+  VALUE playings = rb_iv_get(self, "@@playings");
+  VALUE *ptr = RARRAY_PTR(playings);
+  int i;
+  for(i=0; i<RARRAY_LEN(playings); i++)
+  {
+    VALUE pl = *(ptr+i);
+    
+  if(rb_funcall(pl, id_is_playing_wo_loop, 0) == Qfalse &&
+       rb_funcall(pl, id_in_the_loop, 0) == Qtrue)
+    {
+      rb_funcall(pl, id_countup, 0);
+      if(rb_funcall(pl, id_in_the_loop, 0) == Qfalse)
+        rb_ary_delete(playings, pl);
+    }
+    else if(rb_funcall(pl, id_is_playing, 0) == Qfalse &&
+            rb_funcall(pl, id_is_fade_out, 0) == Qfalse)
+    {
+      rb_ary_delete(playings, pl);
+    }
+    else if(rb_funcall(pl, id_is_allow_countup, 0) == Qfalse)
+    {
+      rb_funcall(pl, id_allow_countup, 0);
+    }
+  }
+  
+  return Qnil;
+}
+
+/*
+:nodoc:
+*/
+static VALUE audio_update(VALUE self)
+{
+  bgm_update(cBGM);
+  se_update(cSE);
+  return self;
+}
+
+void Init_miyako_input_audio()
+{
+  mSDL = rb_define_module("SDL");
+  mMiyako = rb_define_module("Miyako");
+  mAudio = rb_define_module_under(mMiyako, "Audio");
+  mInput = rb_define_module_under(mMiyako, "Input");
+  mScreen = rb_define_module_under(mMiyako, "Screen");
+  cJoystick = rb_define_class_under(mSDL, "Joystick", rb_cObject);
+  cEvent = rb_define_class_under(mSDL, "Event", rb_cObject);
+  cBGM = rb_define_class_under(mAudio, "BGM", rb_cObject);
+  cSE = rb_define_class_under(mAudio, "SE", rb_cObject);
+
+  id_update_all = rb_intern("updateAll");
+  id_poll = rb_intern("poll");
+  id_call = rb_intern("call");
+  id_is_playing = rb_intern("playing?");
+  id_is_fade_out = rb_intern("fade_out?");
+  id_in_the_loop = rb_intern("in_the_loop?");
+  id_is_playing_wo_loop = rb_intern("playing_without_loop?");
+  id_is_allow_countup = rb_intern("allow_loop_count_up?");
+  id_allow_countup = rb_intern("allow_loop_count_up");
+  id_countup = rb_intern("loop_count_up");
+
+  sy_pushed  = ID2SYM(rb_intern("pushed"));
+  sy_pos     = ID2SYM(rb_intern("pos"));
+  sy_dx      = ID2SYM(rb_intern("dx"));
+  sy_dy      = ID2SYM(rb_intern("dy"));
+  sy_click   = ID2SYM(rb_intern("click"));
+  sy_drop    = ID2SYM(rb_intern("drop"));
+  sy_left    = ID2SYM(rb_intern("left"));
+  sy_right   = ID2SYM(rb_intern("right"));
+  sy_middle  = ID2SYM(rb_intern("middle"));
+  sy_trigger = ID2SYM(rb_intern("trigger"));
+  sy_alt     = ID2SYM(rb_intern("alt"));
+  sy_ent     = ID2SYM(rb_intern("ent"));
+
+  zero = 0;
+  nZero = INT2NUM(zero);
+  one = 1;
+  nOne = INT2NUM(one);
+
+  rb_define_module_function(mInput, "update", input_update, 0);
+  rb_define_module_function(mAudio, "update", audio_update, 0);
+  rb_define_singleton_method(cBGM, "update", bgm_update, 0);
+  rb_define_singleton_method(cSE, "update", se_update, 0);
+}

data/miyako_layout.c

@@ -0,0 +1,191 @@
+/*
+--
+Miyako v2.0 Extend Library "Miyako no Katana"
+Copyright (C) 2008  Cyross Makoto
+
+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
+++
+*/
+
+/*
+=拡張ライブラリmiyako_no_katana
+Authors:: サイロス誠
+Version:: 2.0
+Copyright:: 2007-2008 Cyross Makoto
+License:: LGPL2.1
+ */
+#include "defines.h"
+
+static VALUE mSDL = Qnil;
+static VALUE mMiyako = Qnil;
+static VALUE mScreen = Qnil;
+static VALUE mLayout = Qnil;
+static VALUE nZero = Qnil;
+static VALUE nOne = Qnil;
+static volatile ID id_update = Qnil;
+static volatile ID id_kakko  = Qnil;
+static volatile ID id_render = Qnil;
+static volatile ID id_to_a   = Qnil;
+static volatile int zero = Qnil;
+static volatile int one = Qnil;
+
+static VALUE layout_snap(int argc, VALUE *argv, VALUE self);
+static VALUE layout_move(VALUE self, VALUE dx, VALUE dy);
+
+static VALUE layout_update_layout(VALUE self, VALUE dx, VALUE dy)
+{
+  rb_funcall(self, rb_intern("update_layout_position"), 0);
+  VALUE layout   = rb_iv_get(self, "@layout");
+  VALUE children = *(RSTRUCT_PTR(*(RSTRUCT_PTR(layout)+3))+1);
+  int i;
+  for(i=0; i<RARRAY_LEN(children); i++)
+  {
+    layout_move(*(RARRAY_PTR(children) + i), dx, dy);
+  }
+  return Qnil;
+}
+
+static VALUE layout_move(VALUE self, VALUE dx, VALUE dy)
+{
+  VALUE *pos = RSTRUCT_PTR(*(RSTRUCT_PTR(rb_iv_get(self, "@layout"))));
+  VALUE *pox = pos+0;
+  VALUE *poy = pos+1;
+  VALUE tx = *pox;
+  VALUE ty = *poy;
+  *pox = INT2NUM(NUM2INT(tx)+NUM2INT(dx));
+  *poy = INT2NUM(NUM2INT(ty)+NUM2INT(dy));
+  layout_update_layout(self, dx, dy);
+  VALUE on_move = *(RSTRUCT_PTR(rb_iv_get(self, "@layout")) + 4);
+  int i;
+  for(i=0; i<RARRAY_LEN(on_move); i++)
+  {
+    rb_funcall(*(RARRAY_PTR(on_move) + i), rb_intern("call"), 5, self, *pox, *poy, dx, dy);
+  }
+  if(rb_block_given_p() == Qtrue){
+    VALUE ret = rb_yield(self);
+    if(ret == Qnil || ret == Qfalse)
+    {
+      *pox = tx;
+      *poy = ty;
+      layout_update_layout(self, INT2NUM(-(NUM2INT(dx))), INT2NUM(-(NUM2INT(dy))));
+    }
+  }
+  return self;
+}
+
+static VALUE layout_move_to(VALUE self, VALUE x, VALUE y)
+{
+  VALUE *pos = RSTRUCT_PTR(*(RSTRUCT_PTR(rb_iv_get(self, "@layout"))));
+  VALUE *pox = pos+0;
+  VALUE *poy = pos+1;
+  VALUE tx = *pox;
+  VALUE ty = *poy;
+  *pox = x;
+  *poy = y;
+	VALUE dx = INT2NUM((NUM2INT(x))-(NUM2INT(tx)));
+	VALUE dy = INT2NUM((NUM2INT(y))-(NUM2INT(ty)));
+  layout_update_layout(self, dx, dy);
+  VALUE on_move = *(RSTRUCT_PTR(rb_iv_get(self, "@layout")) + 4);
+  int i;
+  for(i=0; i<RARRAY_LEN(on_move); i++)
+  {
+    rb_funcall(*(RARRAY_PTR(on_move) + i), rb_intern("call"), 5, self, *pox, *poy, dx, dy);
+  }
+  if(rb_block_given_p() == Qtrue){
+    VALUE ret = rb_yield(self);
+    if(ret == Qnil || ret == Qfalse)
+    {
+      *pox = tx;
+      *poy = ty;
+      layout_update_layout(self, INT2NUM(-(NUM2INT(dx))), INT2NUM(-(NUM2INT(dy))));
+    }
+  }
+  return self;
+}
+
+static VALUE layout_add_snap_child(VALUE self, VALUE spr)
+{
+  VALUE layout   = rb_iv_get(self, "@layout");
+  VALUE snap     = *(RSTRUCT_PTR(layout)+3);
+  VALUE children = *(RSTRUCT_PTR(snap)+1);
+  if(rb_ary_includes(children, spr)==Qfalse){ rb_ary_push(children, spr); }
+  return self;
+}
+
+static VALUE layout_delete_snap_child(VALUE self, VALUE spr)
+{
+  VALUE layout   = rb_iv_get(self, "@layout");
+  VALUE snap     = *(RSTRUCT_PTR(layout)+3);
+  VALUE children = *(RSTRUCT_PTR(snap)+1);
+  if(TYPE(spr) == T_ARRAY)
+  {
+    int i;
+    for(i=0; i<RARRAY_LEN(spr); i++){ rb_ary_delete(children, *(RARRAY_PTR(spr) + i)); }
+  }
+  else
+  {
+    rb_ary_delete(children, spr);
+  }
+  return self;
+}
+
+static VALUE layout_snap(int argc, VALUE *argv, VALUE self)
+{
+  VALUE spr = Qnil;
+  rb_scan_args(argc, argv, "01", &spr);
+  VALUE layout  = rb_iv_get(self, "@layout");
+  VALUE *sprite = RSTRUCT_PTR(*(RSTRUCT_PTR(layout)+3));
+  VALUE *base   = RSTRUCT_PTR(layout)+2;
+  if(spr != Qnil)
+  {
+    if(*sprite != Qnil){ layout_delete_snap_child(*sprite, self); }
+    *sprite = spr;
+    layout_add_snap_child(spr, self);
+  }
+  if(*sprite != Qnil)
+  {
+    *base = *sprite;
+  }
+	else
+	{
+    *base = mScreen;
+	}
+  return self;
+}
+
+void Init_miyako_layout()
+{
+  mSDL = rb_define_module("SDL");
+  mMiyako = rb_define_module("Miyako");
+  mScreen = rb_define_module_under(mMiyako, "Screen");
+  mLayout = rb_define_module_under(mMiyako, "Layout");
+
+  id_update = rb_intern("update");
+  id_kakko  = rb_intern("[]");
+  id_render = rb_intern("render");
+  id_to_a   = rb_intern("to_a");
+
+  zero = 0;
+  nZero = INT2NUM(zero);
+  one = 1;
+  nOne = INT2NUM(one);
+
+	rb_define_method(mLayout, "move!", layout_move, 2);
+	rb_define_method(mLayout, "move_to!", layout_move_to, 2);
+	rb_define_method(mLayout, "update_layout", layout_update_layout, 2);
+	rb_define_method(mLayout, "snap", layout_snap, -1);
+	rb_define_method(mLayout, "add_snap_child", layout_add_snap_child, 1);
+	rb_define_method(mLayout, "delete_snap_child", layout_delete_snap_child, 1);
+}