ruby-miyako 2.1.0

data/Rakefile

@@ -0,0 +1,7 @@
+#! /usr/bin/env rake
+
+task :default => :ruby_miyako
+
+task :ruby_miyako do
+  system 'ruby install_miyako.rb'
+end

data/defines.h

@@ -0,0 +1,144 @@
+/*
+--
+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
+++
+*/
+
+#include <SDL.h>
+#include <SDL_ttf.h>
+#include <SDL_endian.h>
+#include <stdlib.h>
+#include <math.h>
+#include "ruby.h"
+#include "ruby/encoding.h"
+
+typedef struct
+{
+	SDL_Surface* surface;
+} Surface;
+
+typedef struct
+{
+	Uint32 r;
+	Uint32 g;
+	Uint32 b;
+	Uint32 a;
+} MiyakoColor;
+
+typedef struct
+{
+  int w;
+  int h;
+} MiyakoSize;
+
+typedef struct
+{
+  VALUE unit;
+  SDL_Surface *surface;
+  SDL_PixelFormat *fmt;
+  SDL_Rect rect;
+  MiyakoColor color;
+	Uint32 a255;
+  Uint32 *ptr;
+  int x;
+  int y;
+} MiyakoBitmap;
+
+// from rubysdl.h
+#define GLOBAL_DEFINE_GET_STRUCT(struct_name, fun, klass, klassstr) \
+struct_name* fun(VALUE obj) \
+{ \
+  struct_name* st; \
+  \
+  if(!rb_obj_is_kind_of(obj, klass)){ \
+    rb_raise(rb_eTypeError, "wrong argument type %s (expected " klassstr ")", \
+             rb_obj_classname(obj)); \
+  } \
+  Data_Get_Struct(obj, struct_name, st); \
+  return st; \
+} 
+
+#define MIYAKO_GETCOLOR(COLOR) \
+	COLOR.r = (Uint32)(((pixel & fmt->Rmask) >> fmt->Rshift) << fmt->Rloss); \
+	COLOR.g = (Uint32)(((pixel & fmt->Gmask) >> fmt->Gshift) << fmt->Gloss); \
+	COLOR.b = (Uint32)(((pixel & fmt->Bmask) >> fmt->Bshift) << fmt->Bloss); \
+	COLOR.a = (Uint32)(((pixel & fmt->Amask) >> fmt->Ashift) << fmt->Aloss);
+
+#define MIYAKO_SETCOLOR(RESULT, COLOR) \
+  RESULT = (COLOR.r >> fmt->Rloss) << fmt->Rshift | \
+           (COLOR.g >> fmt->Gloss) << fmt->Gshift | \
+           (COLOR.b >> fmt->Bloss) << fmt->Bshift | \
+           (COLOR.a >> fmt->Aloss) << fmt->Ashift;
+
+#define MIYAKO_SET_RECT(RECT, BASE) \
+  RECT.x = NUM2INT(*(RSTRUCT_PTR(BASE) + 1)); \
+  RECT.y = NUM2INT(*(RSTRUCT_PTR(BASE) + 2)); \
+  RECT.w = NUM2INT(*(RSTRUCT_PTR(BASE) + 3)); \
+  RECT.h = NUM2INT(*(RSTRUCT_PTR(BASE) + 4));
+
+#define MIYAKO_INIT_RECT1 \
+	int dlx = drect.x + x; \
+	int dly = drect.y + y; \
+	int dmx = dlx + (srect.w < drect.w ? srect.w : drect.w); \
+	int dmy = dly + (srect.h < drect.h ? srect.h : drect.h);
+  
+#define MIYAKO_INIT_RECT2 \
+	int dlx = drect.x; \
+	int dly = drect.y; \
+	int dmx = dlx + drect.w; \
+	int dmy = dly + drect.h;
+
+#define MIYAKO_INIT_RECT3 \
+  if(s2rect.w != drect.w){ return Qnil; } \
+  if(s2rect.h != drect.h){ return Qnil; } \
+  int x1 = NUM2INT(*(RSTRUCT_PTR(s1unit) + 5)); \
+  int y1 = NUM2INT(*(RSTRUCT_PTR(s1unit) + 6)); \
+  int x2 = NUM2INT(*(RSTRUCT_PTR(s2unit) + 5)); \
+  int y2 = NUM2INT(*(RSTRUCT_PTR(s2unit) + 6)); \
+  if(s1rect.x < 0 || s1rect.y < 0 || s2rect.x < 0 || s2rect.y < 0){ return Qnil; } \
+  if(s1rect.w < s2rect.w && (x1+s1rect.x+s1rect.w > s2rect.w)){ return Qnil; } \
+  if(s2rect.w < s1rect.w && (x2+s2rect.x+s2rect.w > s1rect.w)){ return Qnil; } \
+  if(s1rect.h < s2rect.h && (y1+s1rect.y+s1rect.h > s2rect.h)){ return Qnil; } \
+  if(s2rect.h < s1rect.h && (y2+s2rect.y+s2rect.h > s1rect.h)){ return Qnil; } \
+	int dlx = drect.x; \
+	int dly = drect.y; \
+	int dmx = dlx + (s1rect.w < s2rect.w ? s1rect.w : s2rect.w); \
+	int dmy = dly + (s1rect.h < s2rect.h ? s1rect.h : s2rect.h);
+  
+#define MIYAKO_PSET(XX,YY) \
+        pixel = 0; \
+        if(dcolor.a == 0) \
+        { \
+          *(pdst + YY * dst->w + XX) = (scolor.r >> fmt->Rloss) << fmt->Rshift | \
+                                       (scolor.g >> fmt->Gloss) << fmt->Gshift | \
+                                       (scolor.b >> fmt->Bloss) << fmt->Bshift | \
+                                       (scolor.a >> fmt->Aloss) << fmt->Ashift; \
+          continue; \
+        } \
+        if(scolor.a > 0) \
+        { \
+          int a1 = scolor.a + 1; \
+          int a2 = 256 - scolor.a; \
+          scolor.r = (scolor.r * a1 + dcolor.r * a2) >> 8; \
+          scolor.g = (scolor.g * a1 + dcolor.g * a2) >> 8; \
+          scolor.b = (scolor.b * a1 + dcolor.b * a2) >> 8; \
+          *(pdst + YY * dst->w + XX) = (scolor.r >> fmt->Rloss) << fmt->Rshift | \
+                                       (scolor.g >> fmt->Gloss) << fmt->Gshift | \
+                                       (scolor.b >> fmt->Bloss) << fmt->Bshift | \
+                                       (scolor.a >> fmt->Aloss) << fmt->Ashift; \
+        }

data/extconf.rb

@@ -0,0 +1,44 @@
+require 'mkmf'
+
+if /mswin32/ =~ CONFIG["arch"]
+  have_library("SDL")
+else
+  sdl_config = with_config('sdl-config', 'sdl-config')
+  
+  $CFLAGS += ' ' + `#{sdl_config} --cflags`.chomp
+  $LOCAL_LIBS += ' ' + `#{sdl_config} --libs`.chomp
+  
+  if /-Dmain=SDL_main/ =~ $CFLAGS then
+    def try_func(func, libs, headers = nil, &b)
+      headers = cpp_include(headers)
+      try_link(<<"SRC", libs, &b) or try_link(<<"SRC", libs, &b)
+#{headers}
+/*top*/
+int main(int argc,char** argv) { return 0; }
+int t() { #{func}(); return 0; }
+SRC
+#{COMMON_HEADERS}
+#{headers}
+/*top*/
+int main(int argc,char** argv) { return 0; }
+int t() { void ((*volatile p)()); p = (void ((*)()))#{func}; return 0; }
+SRC
+    end
+  end
+end
+
+if enable_config("static-libs",false) then
+  have_library("SDL")
+  have_library("freetype")
+  have_library("SGE")
+end
+
+if have_library("SDL_ttf","TTF_Init") then
+  $CFLAGS+= " -D HAVE_SDL_TTF "
+end
+
+if have_library("SGE","sge_Line") then
+  $CFLAGS+= " -D HAVE_SGE "
+end
+
+create_makefile('miyako_no_katana')

data/extern.h

@@ -0,0 +1,29 @@
+/*
+--
+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
+++
+*/
+
+extern void _miyako_setup_unit(VALUE unit, SDL_Surface *screen, MiyakoBitmap *mb, VALUE x, VALUE y, int use_yield);
+extern void _miyako_setup_unit_2(VALUE unit_s, VALUE unit_d, 
+                                SDL_Surface *screen,
+                                MiyakoBitmap *mb_s, MiyakoBitmap *mb_d,
+                                VALUE x, VALUE y, int use_yield);
+extern int _miyako_init_rect(MiyakoBitmap *src, MiyakoBitmap *dst, MiyakoSize *size);
+extern void _miyako_yield_unit_1(MiyakoBitmap *src);
+extern void _miyako_yield_unit_2(MiyakoBitmap *src, MiyakoBitmap *dst);

data/install_miyako.rb

@@ -0,0 +1,87 @@
+# Miyako2.0 install script
+# 2009 Cyross Makoto
+
+if RUBY_VERSION < '1.9.1'
+  puts 'Sorry. Miyako needs Ruby 1.9.1 or above...'
+  exit
+end
+
+begin
+require 'sdl'
+rescue
+  puts 'Sorry. Miyako needs Ruby/SDL...'
+  exit
+end
+
+if SDL::VERSION < '2.1'
+  puts 'Sorry. Miyako needs Ruby/SDL 2.1.0 or above...'
+  exit
+end
+
+require 'rbconfig'
+require 'fileutils'
+require 'optparse'
+
+option = { :noop => false, :verbose => true }
+not_force = true
+
+ARGV.options do |opt|
+  opt.on('--no-harm'){ option[:noop] = true }
+  opt.on('--force'){ not_force = false }
+  opt.on('--quiet'){ option[:verbose] = false }
+
+  opt.parse!
+end
+
+ext_dir = "./"
+osn = Config::CONFIG["target_os"].downcase
+if osn =~ /mswin|mingw|cygwin|bccwin/
+  ext_dir = "win/"
+elsif osn =~ /darwin/ # Mac OS X
+  if ENV['SDL_CONFIG_PATH'] 
+    system(Config::CONFIG["ruby_install_name"] + " extconf.rb --with-sdl-config='#{ENV['SDL_CONFIG_PATH']}'; make")
+  else
+    system(Config::CONFIG["ruby_install_name"] + " extconf.rb --with-sdl-config='sdl-config'; make")
+  end
+else # linux, U*IX...
+  if ENV['SDL_CONFIG_PATH'] 
+    system(Config::CONFIG["ruby_install_name"] + " extconf.rb --with-sdl-config='#{ENV['SDL_CONFIG_PATH']}'; make")
+  else
+    system(Config::CONFIG["ruby_install_name"] + " extconf.rb --with-sdl-config='sdl-config'; make")
+  end
+end
+
+sitelibdir = Config::CONFIG["sitelibdir"] + "/Miyako"
+apidir = sitelibdir + "/API"
+extdir = sitelibdir + "/EXT"
+
+if FileTest.exist?(sitelibdir) && not_force
+  puts "#{sitelibdir} is arleady exists."
+  puts "Are you sure?(Y/else)"
+  exit unless $stdin.gets.split(//)[0].upcase == 'Y'
+end
+
+FileUtils.remove_dir(sitelibdir, true)
+FileUtils.mkpath(sitelibdir, option)
+FileUtils.mkpath(apidir, option)
+FileUtils.mkpath(extdir, option)
+
+if osn =~ /darwin/ # Mac OS X
+  Dir.glob(ext_dir + "*.bundle"){|fname| FileUtils.install(fname, sitelibdir, option)}
+else # Windows, linux, U*IX...
+  Dir.glob(ext_dir + "*.so"){|fname| FileUtils.install(fname, sitelibdir, option)}
+end
+Dir.glob("lib/Miyako/*.rb"){|fname| FileUtils.install(fname, sitelibdir, option)}
+Dir.glob("lib/Miyako/API/*.rb"){|fname| FileUtils.install(fname, apidir, option)}
+Dir.glob("lib/Miyako/EXT/*.rb"){|fname| FileUtils.install(fname, extdir, option)}
+
+unless osn =~ /mswin|mingw|cygwin|bccwin/
+  FileUtils.chmod(0755, sitelibdir)
+  FileUtils.chmod(0755, apidir)
+  FileUtils.chmod(0755, extdir)
+  FileUtils.chmod(0644, sitelibdir+'/miyako.rb')
+  Dir.glob(sitelibdir+"/*.so"){|fname| FileUtils.chmod(0644, fname)} # for linux,bsd
+  Dir.glob(sitelibdir+"/*.bundle"){|fname| FileUtils.chmod(0644, fname)} # for macosx
+  Dir.glob(apidir+"/*.rb"){|fname| FileUtils.chmod(0644, fname)}
+  Dir.glob(extdir+"/*.rb"){|fname| FileUtils.chmod(0644, fname)}
+end