ruby-iup 0.0.2 → 0.1.0

data/ext/mkrf_conf.rb

@@ -1,72 +0,0 @@
-# extconf.rb for ruby-iup extension module.
-#
-# Copyright (C) 2008 Park Heesob <jmg3000@gmail.com>
-#
-# This program is distributed under the terms of the MIT license.
-# See the included COPYRIGHT file for the terms of this license.
-#
-# THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS
-# OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF
-# MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT.
-# IN NO EVENT SHALL THE AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY
-# CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION OF CONTRACT,
-# TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION WITH THE
-# SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE.
-
-require 'rubygems'
-require 'mkrf'
-require 'rbconfig'
-
-RUBYVER = " -DRUBY_VERSION=" + RUBY_VERSION.split(".").join
-
-ldir = nil
-Mkrf::Generator.new('iup') do |g|
-	case RUBY_PLATFORM
-	when /mswin32/
-		ldir = './iup-win32'
-		g.cflags << ' -DWIN32' + RUBYVER
-		g.include_header('iup.h', ldir+'/include')
-		g.include_library('iup.lib', 'IupVersion',ldir)
- 		g.include_library('iupcd.lib', 'cdContextIup')
- 		g.include_library('iupcontrols.lib', 'IupControlsOpen')
-		g.include_library('iupgl.lib', 'IupGLCanvas')
- 		g.include_library('iupim.lib', 'IupLoadImage')
- 		g.include_library('iupimglib.lib', 'IupImageLibOpen')
- 		g.include_library('iupole.lib', 'IupOleControl')
- 		g.include_library('iup_pplot.lib', 'IupPPlot')
- 		g.include_library('cd.lib', 'cdVersion')
- 		g.include_library('cdpdf.lib', 'cdContextPDF')
-	else        
-		ldir = './iup-linux'  
-		ENV['LD_LIBRARY_PATH'] = ldir
-		g.cflags << ' -Wall' + RUBYVER
-		g.include_header('iup.h', ldir+'/include')
-		g.include_library('iup', 'IupVersion',ldir)
- 		g.include_library('iupcd', 'cdContextIup')
- 		g.include_library('iupcontrols', 'IupControlsOpen')
-		g.include_library('iupgl', 'IupGLCanvas')
- 		g.include_library('iupim', 'IupLoadImage')
- 		g.include_library('iupimglib', 'IupImageLibOpen')
- 		g.include_library('iupole', 'IupOleControl')
- 		g.include_library('iup_pplot', 'IupPPlot')
- 		g.include_library('cd', 'cdVersion')
- 		g.include_library('cdpdf', 'cdContextPDF')
-	end
-end
-open("Rakefile", "a") do |rf|                                                   
-  if RUBY_PLATFORM =~ /win32/	   
-    rf.puts("task :default  do")
-    Dir[ldir+"/*.dll"].each do |f|                                              
-#        rf.puts("sh 'copy \"#{f}\" \"#{Config::CONFIG['bindir']}\"'".gsub('/'){'\\\\'})           
-        rf.puts("  install '#{f}', '#{Config::CONFIG['bindir']}'")           
-    end                                                                         
-    rf.puts("end");
-  else                                                                          
-    rf.puts("task :default  do")
-    Dir[ldir+"/*.so"].each do |f|                                               
-        rf.puts("  install '#{f}', '/usr/local/lib'")           
-    end                                                                         
-    rf.puts("    sh 'ldconfig'")
-    rf.puts("end");
-  end                                                                           
-end   

data/ext/rb_iupcompat.h

@@ -1,237 +0,0 @@
-#include <ruby.h>
-#include "iup.h"
-#include "iupcompat.h"
-
-VALUE rb_iupdrvGetCharSize(VALUE self,VALUE v_n,VALUE v_w,VALUE v_h)
-{
-	int w = NUM2INT(v_w);
-	int h = NUM2INT(v_h);
-	iupdrvGetCharSize(n,&w,&h);
-	return Qnil;
-}
-
-VALUE rb_iupdrvResizeObjects(VALUE self,VALUE v_n)
-{
-	iupdrvResizeObjects(n);
-	return Qnil;
-}
-
-VALUE rb_iupdrvStringSize(VALUE self,VALUE v_n,VALUE v_text,VALUE v_w,VALUE v_h)
-{
-	const char* text = RSTRING(v_text)->ptr;
-	int w = NUM2INT(v_w);
-	int h = NUM2INT(v_h);
-	iupdrvStringSize(n,text,&w,&h);
-	return Qnil;
-}
-
-VALUE rb_iupdrvGetScrollSize(VALUE self)
-{
-	int v;
-	v = iupdrvGetScrollSize();
-	return INT2FIX((int)v);
-}
-
-VALUE rb_iupGetSize(VALUE self,VALUE v_n,VALUE v_w,VALUE v_h)
-{
-	int w = NUM2INT(v_w);
-	int h = NUM2INT(v_h);
-	int v;
-	v = iupGetSize(n,&w,&h);
-	return INT2FIX((int)v);
-}
-
-VALUE rb_iupGetColor(VALUE self,VALUE v_n,VALUE v_a,VALUE v_r,VALUE v_g,VALUE v_b)
-{
-	const char *a = RSTRING(v_a)->ptr;
-	unsigned int r = NUM2INT(v_r);
-	unsigned int g = NUM2INT(v_g);
-	unsigned int b = NUM2INT(v_b);
-	int v;
-	v = iupGetColor(n,a,&r,&g,&b);
-	return INT2FIX((int)v);
-}
-
-VALUE rb_iupGetRGB(VALUE self,VALUE v_color,VALUE v_r,VALUE v_g,VALUE v_b)
-{
-	const char *color = RSTRING(v_color)->ptr;
-	unsigned int *r = NUM2INT(v_r);
-	unsigned int *g = NUM2INT(v_g);
-	unsigned int *b = NUM2INT(v_b);
-	int v;
-	v = iupGetRGB(color,r,g,b);
-	return INT2FIX((int)v);
-}
-
-VALUE rb_iupSetEnv(VALUE self,VALUE v_n,VALUE v_a,VALUE v_v)
-{
-	const char* a = RSTRING(v_a)->ptr;
-	const char* v = RSTRING(v_v)->ptr;
-	iupSetEnv(n,a,v);
-	return Qnil;
-}
-
-VALUE rb_iupStoreEnv(VALUE self,VALUE v_n,VALUE v_a,VALUE v_v)
-{
-	const char* a = RSTRING(v_a)->ptr;
-	const char* v = RSTRING(v_v)->ptr;
-	iupStoreEnv(n,a,v);
-	return Qnil;
-}
-
-VALUE rb_iupGetEnv(VALUE self,VALUE v_n,VALUE v_a)
-{
-	const char* a = RSTRING(v_a)->ptr;
-	char* v;
-	v = iupGetEnv(n,a);
-	return  rb_str_new2(v);
-}
-
-VALUE rb_iupGetEnvInt(VALUE self,VALUE v_n,VALUE v_a)
-{
-	const char* a = RSTRING(v_a)->ptr;
-	int v;
-	v = iupGetEnvInt(n,a);
-	return INT2FIX((int)v);
-}
-
-VALUE rb_iupGetEnvRaw(VALUE self,VALUE v_n,VALUE v_a)
-{
-	const char* a = RSTRING(v_a)->ptr;
-	char* v;
-	v = iupGetEnvRaw(n,a);
-	return  rb_str_new2(v);
-}
-
-VALUE rb_iupCheck(VALUE self,VALUE v_n,VALUE v_a)
-{
-	const char *a = RSTRING(v_a)->ptr;
-	int v;
-	v = iupCheck(n,a);
-	return INT2FIX((int)v);
-}
-
-VALUE rb_iupGetBgColor(VALUE self,VALUE v_self)
-{
-	char v;
-	v = iupGetBgColor(self);
-	return INT2FIX((int)v);
-}
-
-VALUE rb_iupGetParentBgColor(VALUE self,VALUE v_self)
-{
-	char v;
-	v = iupGetParentBgColor(self);
-	return INT2FIX((int)v);
-}
-
-VALUE rb_iupSetSize(VALUE self,VALUE v_root)
-{
-	int v;
-	v = iupSetSize(root);
-	return INT2FIX((int)v);
-}
-
-VALUE rb_iupSetPosX(VALUE self,VALUE v_self,VALUE v_x)
-{
-	int x = NUM2INT(v_x);
-	iupSetPosX(self,x);
-	return Qnil;
-}
-
-VALUE rb_iupSetPosY(VALUE self,VALUE v_self,VALUE v_y)
-{
-	int y = NUM2INT(v_y);
-	iupSetPosY(self,y);
-	return Qnil;
-}
-
-VALUE rb_iupGetPosX(VALUE self,VALUE v_self)
-{
-	int v;
-	v = iupGetPosX(self);
-	return INT2FIX((int)v);
-}
-
-VALUE rb_iupGetPosY(VALUE self,VALUE v_self)
-{
-	int v;
-	v = iupGetPosY(self);
-	return INT2FIX((int)v);
-}
-
-VALUE rb_iupSetCurrentWidth(VALUE self,VALUE v_self,VALUE v_w)
-{
-	int w = NUM2INT(v_w);
-	iupSetCurrentWidth(self,w);
-	return Qnil;
-}
-
-VALUE rb_iupSetCurrentHeight(VALUE self,VALUE v_self,VALUE v_h)
-{
-	int h = NUM2INT(v_h);
-	iupSetCurrentHeight(self,h);
-	return Qnil;
-}
-
-VALUE rb_iupGetCurrentWidth(VALUE self,VALUE v_self)
-{
-	int v;
-	v = iupGetCurrentWidth(self);
-	return INT2FIX((int)v);
-}
-
-VALUE rb_iupGetCurrentHeight(VALUE self,VALUE v_self)
-{
-	int v;
-	v = iupGetCurrentHeight(self);
-	return INT2FIX((int)v);
-}
-
-VALUE rb_iupGetNativeHandle(VALUE self,VALUE v_self)
-{
-	void* v;
-	v = iupGetNativeHandle(self);
-	return INT2FIX((int)v);
-}
-
-VALUE rb_iupSetNativeHandle(VALUE self,VALUE v_self,VALUE v_handle)
-{
-	iupSetNativeHandle(self,handle);
-	return Qnil;
-}
-
-VALUE rb_iupSetNaturalWidth(VALUE self,VALUE v_self,VALUE v_w)
-{
-	int w = NUM2INT(v_w);
-	iupSetNaturalWidth(self,w);
-	return Qnil;
-}
-
-VALUE rb_iupSetNaturalHeight(VALUE self,VALUE v_self,VALUE v_h)
-{
-	int h = NUM2INT(v_h);
-	iupSetNaturalHeight(self,h);
-	return Qnil;
-}
-
-VALUE rb_iupGetNaturalWidth(VALUE self,VALUE v_self)
-{
-	int v;
-	v = iupGetNaturalWidth(self);
-	return INT2FIX((int)v);
-}
-
-VALUE rb_iupGetNaturalHeight(VALUE self,VALUE v_self)
-{
-	int v;
-	v = iupGetNaturalHeight(self);
-	return INT2FIX((int)v);
-}
-
-VALUE rb_iupGetImageData(VALUE self,VALUE v_self)
-{
-	void* v;
-	v = iupGetImageData(self);
-	return INT2FIX((int)v);
-}

data/ext/rb_iupdef.h

@@ -1,3 +0,0 @@
-#include <ruby.h>
-#include "iup.h"
-#include "iupdef.h"

data/ext/rb_iupmask.h

@@ -1,189 +0,0 @@
-#include <ruby.h>
-#include "iup.h"
-#include "iupmask.h"
-
-VALUE rb_iupmaskSet(VALUE node,VALUE v_mask,VALUE v_autofill,VALUE v_casei)
-{
-	const char *mask = RSTRING(v_mask)->ptr;
-	int autofill = NUM2INT(v_autofill);
-	int casei = NUM2INT(v_casei);
-	int v;
-	VALUE v_ih = rb_iv_get(node,"@ihandle");	
-	v = iupmaskSet((Ihandle*)NUM2UINT(v_ih),mask,autofill,casei);
-	return INT2FIX(v);
-}
-
-VALUE rb_iupmaskSetInt(VALUE node,VALUE v_autofill,VALUE v_min,VALUE v_max)
-{
-	int autofill = NUM2INT(v_autofill);
-	int   min = NUM2INT(v_min);
-	int   max = NUM2INT(v_max);
-	int v;
-	VALUE v_ih = rb_iv_get(node,"@ihandle");	
-	v = iupmaskSetInt((Ihandle*)NUM2UINT(v_ih),autofill,min,max);
-	return INT2FIX(v);
-}
-
-VALUE rb_iupmaskSetFloat(VALUE node,VALUE v_autofill,VALUE v_min,VALUE v_max)
-{
-	float min = RFLOAT(v_min)->value;
-	float max = RFLOAT(v_max)->value;
-	int autofill = NUM2INT(v_autofill);
-	int v;
-	VALUE v_ih = rb_iv_get(node,"@ihandle");	
-	v = iupmaskSetFloat((Ihandle*)NUM2UINT(v_ih),autofill,min,max);
-	return INT2FIX(v);
-}
-
-VALUE rb_iupmaskRemove(VALUE node)
-{
-	VALUE v_ih = rb_iv_get(node,"@ihandle");	
-	iupmaskRemove((Ihandle*)NUM2UINT(v_ih));
-	return Qnil;
-}
-
-VALUE rb_iupmaskCheck(VALUE node)
-{
-	VALUE v_ih = rb_iv_get(node,"@ihandle");	
-	int v;
-	v = iupmaskCheck((Ihandle*)NUM2UINT(v_ih));
-	return INT2FIX(v);
-}
-
-VALUE rb_iupmaskGet(VALUE node,VALUE v_val)
-{
-	char   *val = RSTRING(v_val)->ptr;
-	VALUE v_ih = rb_iv_get(node,"@ihandle");	
-	int v;
-	v = iupmaskGet((Ihandle*)NUM2UINT(v_ih),&val);
-	return INT2FIX(v);
-}
-
-VALUE rb_iupmaskGetFloat(VALUE node,VALUE v_fval)
-{
-	int v;
-	VALUE v_ih = rb_iv_get(node,"@ihandle");	
-	float fval = RFLOAT(v_fval)->value;
-	v = iupmaskGetFloat((Ihandle*)NUM2UINT(v_ih),&fval);
-	return INT2FIX(v);
-}
-
-VALUE rb_iupmaskGetDouble(VALUE node,VALUE v_dval)
-{
-	int v;
-	double dval = RFLOAT(v_dval)->value;
-	VALUE v_ih = rb_iv_get(node,"@ihandle");	
-	v = iupmaskGetDouble((Ihandle*)NUM2UINT(v_ih),&dval);
-	return INT2FIX(v);
-}
-
-VALUE rb_iupmaskGetInt(VALUE node,VALUE v_ival)
-{
-	int    ival = NUM2INT(v_ival);
-	int v;
-	VALUE v_ih = rb_iv_get(node,"@ihandle");	
-	v = iupmaskGetInt((Ihandle*)NUM2UINT(v_ih),&ival);
-	return INT2FIX(v);
-}
-
-VALUE rb_iupmaskMatSet(VALUE node,VALUE v_mask,VALUE v_autofill,VALUE v_casei,VALUE v_lin,VALUE v_col)
-{
-	const char *mask = RSTRING(v_mask)->ptr;
-	int autofill = NUM2INT(v_autofill);
-	int casei = NUM2INT(v_casei);
-	int lin = NUM2INT(v_lin);
-	int col = NUM2INT(v_col);
-	int v;
-	VALUE v_ih = rb_iv_get(node,"@ihandle");	
-	v = iupmaskMatSet((Ihandle*)NUM2UINT(v_ih),mask,autofill,casei,lin,col);
-	return INT2FIX(v);
-}
-
-VALUE rb_iupmaskMatSetInt(VALUE node,VALUE v_autofill,VALUE v_min,VALUE v_max,VALUE v_lin,VALUE v_col)
-{
-	int autofill = NUM2INT(v_autofill);
-	int   min = NUM2INT(v_min);
-	int   max = NUM2INT(v_max);
-	int lin = NUM2INT(v_lin);
-	int col = NUM2INT(v_col);
-	int v;
-	VALUE v_ih = rb_iv_get(node,"@ihandle");	
-	v = iupmaskMatSetInt((Ihandle*)NUM2UINT(v_ih),autofill,min,max,lin,col);
-	return INT2FIX(v);
-}
-
-VALUE rb_iupmaskMatSetFloat(VALUE node,VALUE v_autofill,VALUE v_min,VALUE v_max,VALUE v_lin,VALUE v_col)
-{
-	int autofill = NUM2INT(v_autofill);
-	int lin = NUM2INT(v_lin);
-	int col = NUM2INT(v_col);
-	float min = RFLOAT(v_min)->value;
-	float max = RFLOAT(v_max)->value;
-	int v;
-	VALUE v_ih = rb_iv_get(node,"@ihandle");	
-	v = iupmaskMatSetFloat((Ihandle*)NUM2UINT(v_ih),autofill,min,max,lin,col);
-	return INT2FIX(v);
-}
-
-VALUE rb_iupmaskMatRemove(VALUE node,VALUE v_lin,VALUE v_col)
-{
-	int lin = NUM2INT(v_lin);
-	int col = NUM2INT(v_col);
-	VALUE v_ih = rb_iv_get(node,"@ihandle");	
-	iupmaskMatRemove((Ihandle*)NUM2UINT(v_ih),lin,col);
-	return Qnil;
-}
-
-VALUE rb_iupmaskMatCheck(VALUE node,VALUE v_lin,VALUE v_col)
-{
-	int lin = NUM2INT(v_lin);
-	int col = NUM2INT(v_col);
-	int v;
-	VALUE v_ih = rb_iv_get(node,"@ihandle");	
-	v = iupmaskMatCheck((Ihandle*)NUM2UINT(v_ih),lin,col);
-	return INT2FIX(v);
-}
-
-VALUE rb_iupmaskMatGet(VALUE node,VALUE v_val,VALUE v_lin,VALUE v_col)
-{
-	char   *val = RSTRING(v_val)->ptr;
-	int lin = NUM2INT(v_lin);
-	int col = NUM2INT(v_col);
-	int v;
-	VALUE v_ih = rb_iv_get(node,"@ihandle");	
-	v = iupmaskMatGet((Ihandle*)NUM2UINT(v_ih),&val,lin,col);
-	return INT2FIX(v);
-}
-
-VALUE rb_iupmaskMatGetFloat(VALUE node,VALUE v_fval,VALUE v_lin,VALUE v_col)
-{
-	int lin = NUM2INT(v_lin);
-	int col = NUM2INT(v_col);
-	int v;
-	float fval = RFLOAT(v_fval)->value;
-	VALUE v_ih = rb_iv_get(node,"@ihandle");	
-	v = iupmaskMatGetFloat((Ihandle*)NUM2UINT(v_ih),&fval,lin,col);
-	return INT2FIX(v);
-}
-
-VALUE rb_iupmaskMatGetDouble(VALUE node,VALUE v_dval,VALUE v_lin,VALUE v_col)
-{
-	int lin = NUM2INT(v_lin);
-	int col = NUM2INT(v_col);
-	int v;
-	double dval = RFLOAT(v_dval)->value;
-	VALUE v_ih = rb_iv_get(node,"@ihandle");	
-	v = iupmaskMatGetDouble((Ihandle*)NUM2UINT(v_ih),&dval,lin,col);
-	return INT2FIX(v);
-}
-
-VALUE rb_iupmaskMatGetInt(VALUE node,VALUE v_ival,VALUE v_lin,VALUE v_col)
-{
-	int    ival = NUM2INT(v_ival);
-	int lin = NUM2INT(v_lin);
-	int col = NUM2INT(v_col);
-	int v;
-	VALUE v_ih = rb_iv_get(node,"@ihandle");	
-	v = iupmaskMatGetInt((Ihandle*)NUM2UINT(v_ih),&ival,lin,col);
-	return INT2FIX(v);
-}