ruby-iup 0.0.1

data/ext/rb_iupcontrols.h

@@ -0,0 +1,28 @@
+#include <ruby.h>
+#include "iup.h"
+#include "iupcontrols.h"
+
+VALUE rb_IupControlsOpen(VALUE self)
+{
+	int v;
+	v = IupControlsOpen();
+	return INT2FIX((int)v);
+}
+
+VALUE rb_IupControlsClose(VALUE self)
+{
+	IupControlsClose();
+	return Qnil;
+}
+
+VALUE rb_IupImageLibOpen(VALUE self)
+{
+	IupImageLibOpen();
+	return Qnil;
+}
+
+VALUE rb_IupImageLibClose(VALUE self)
+{
+	IupImageLibClose();
+	return Qnil;
+}

data/ext/rb_iupdef.h

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

data/ext/rb_iupdial.h

@@ -0,0 +1,24 @@
+#include <ruby.h>
+#include "iup.h"
+#include "iupdial.h"
+
+VALUE rb_IupDial(int argc,VALUE *argv,VALUE self)
+{
+	extern VALUE rb_cIupDial;
+	const char *type = NULL;
+	Ihandle* v;
+	VALUE v_type;
+	if(argc==1 && TYPE(argv[0])==T_HASH) {
+		v_type = rb_hash_delete(argv[0],ID2SYM(rb_intern("type")));
+	} else {
+		rb_scan_args(argc,argv,"10",&v_type);
+	}
+	if(v_type!=Qnil)
+		type = RSTRING(v_type)->ptr;
+	v = IupDial(type);
+	if(argc==1 && TYPE(argv[0])==T_HASH)
+		rb_set_attribute(v,argv[0]);	
+	if(v)
+		return rb_funcall(rb_cIupDial,rb_intern("new"),1,UINT2NUM((unsigned)v));
+	return Qnil;
+}

data/ext/rb_iupgauge.h

@@ -0,0 +1,15 @@
+#include <ruby.h>
+#include "iup.h"
+#include "iupgauge.h"
+
+VALUE rb_IupGauge(int argc,VALUE *argv,VALUE self)
+{
+	extern VALUE rb_cIupGauge;
+	Ihandle* v;
+	v = IupGauge();
+	if(argc==1 && TYPE(argv[0])==T_HASH)
+		rb_set_attribute(v,argv[0]);	
+	if(v)
+		return rb_funcall(rb_cIupGauge,rb_intern("new"),1,UINT2NUM((unsigned)v));
+	return Qnil;
+}

data/ext/rb_iupgc.h

@@ -0,0 +1,18 @@
+#include <ruby.h>
+#include "iup.h"
+#include "iupgc.h"
+
+VALUE rb_IupGetColor(VALUE self,VALUE v_x,VALUE v_y)
+{
+	int x = NUM2INT(v_x);
+	int y = NUM2INT(v_y);
+	unsigned char r;
+	unsigned char g;
+	unsigned char b;
+	int v;
+	VALUE v_r;
+	v = IupGetColor(x,y,&r,&g,&b);
+	if(v==0) return Qnil;
+	v_r = rb_ary_new3(3,INT2FIX(r),INT2FIX(g),INT2FIX(b));
+	return v_r;
+}

data/ext/rb_iupgetparam.h

@@ -0,0 +1,72 @@
+#include <ruby.h>
+#include "iup.h"
+#include "iupgetparam.h"
+
+static char ParamAction[100];
+
+static int _param_action(Ihandle* dialog, int param_index, void* user_data)
+{
+	VALUE v;
+	VALUE node;
+	node = rb_funcall(rb_cIupNode,rb_intern("new"),1,UINT2NUM((unsigned)dialog));
+	v = rb_funcall(rb_cObject,rb_intern(ParamAction),3,node,INT2FIX(param_index),UINT2NUM((unsigned)user_data));
+	return NUM2INT(v);
+}
+
+VALUE rb_IupGetParam(int argc,VALUE *argv,VALUE self)
+{
+	const char* title = RSTRING(argv[0])->ptr;
+	Iparamcb action = NULL;
+	void* user_data = (void*)NUM2INT(argv[2]);
+	const char* format = RSTRING(argv[3])->ptr;
+	int param_count;
+	int param_extra;
+	void *param_data[50];
+	int i,v;
+        int n[50];
+        float d[50];
+        static char s[50][500];
+        VALUE v_r;
+	if(argv[1]!=Qnil) {
+		strcpy(ParamAction,RSTRING(argv[1])->ptr);
+		action = (Iparamcb)_param_action;	
+	}
+        param_count = IupGetParamCount(format, &param_extra);
+        for(i=0;i<param_count && i+4<argc;i++) {
+        	switch(TYPE(argv[i+4])) {
+        		case T_FIXNUM:
+        		case T_BIGNUM:
+        			n[i] = NUM2INT(argv[i+4]);
+        			param_data[i] = (void*)&n[i];
+        			break;
+        		case T_FLOAT:
+        			d[i] = RFLOAT(argv[i+4])->value;
+        			param_data[i] = (void*)&d[i];
+        			break;
+        		case T_STRING:
+        			strcpy(s[i],RSTRING(argv[i+4])->ptr);
+        			param_data[i] = s[i];
+        			break;
+        	}        	
+	}
+	param_data[i] = NULL;
+	v = IupGetParamv(title,action,user_data,format,param_count,param_extra,param_data);
+	v_r = rb_ary_new();
+	for(i=0;i<param_count;i++) {
+        	switch(TYPE(argv[i+4])) {
+        		case T_FIXNUM:
+        		case T_BIGNUM:
+        			rb_ary_push(v_r,INT2NUM(n[i]));
+        			break;
+        		case T_FLOAT:
+        			sprintf(s[i],"%g",d[i]);
+        			rb_ary_push(v_r,rb_float_new(atof(s[i])));
+        			break;
+        		case T_STRING:
+        			rb_ary_push(v_r,rb_str_new2(s[i]));
+        			break;
+        	}        	
+	}
+	return v_r;
+}
+

data/ext/rb_iupgl.h

@@ -0,0 +1,58 @@
+#include <ruby.h>
+#include "iup.h"
+#include "iupgl.h"
+
+VALUE rb_IupGLCanvasOpen(VALUE self)
+{
+	IupGLCanvasOpen();
+	return Qnil;
+}
+
+VALUE rb_IupGLCanvas(int argc,VALUE *argv,VALUE self)
+{
+	extern VALUE rb_cIupGLCanvas;
+	const char *action = NULL;
+	Ihandle* v;
+	VALUE v_action;
+        IupGLCanvasOpen();
+	rb_scan_args(argc,argv,"01",&v_action);
+	if(v_action!=Qnil) action = RSTRING(v_action)->ptr;
+	v = IupGLCanvas(action);
+	if(v)
+		return rb_funcall(rb_cIupGLCanvas,rb_intern("new"),1,UINT2NUM((unsigned)v));
+	return Qnil;
+}
+
+VALUE rb_IupGLMakeCurrent(VALUE self,VALUE node)
+{
+	VALUE v_ih = rb_iv_get(node,"@ihandle");
+	IupGLMakeCurrent((Ihandle*)NUM2UINT(v_ih));
+	return Qnil;
+}
+
+VALUE rb_IupGLIsCurrent(VALUE self,VALUE node)
+{
+	int v;
+	VALUE v_ih = rb_iv_get(node,"@ihandle");
+	v = IupGLIsCurrent((Ihandle*)NUM2UINT(v_ih));
+	return INT2FIX((int)v);
+}
+
+VALUE rb_IupGLSwapBuffers(VALUE self,VALUE node)
+{
+	VALUE v_ih = rb_iv_get(node,"@ihandle");
+	IupGLSwapBuffers((Ihandle*)NUM2UINT(v_ih));
+	return Qnil;
+}
+
+VALUE rb_IupGLPalette(VALUE self,VALUE node,VALUE v_index,VALUE v_r,VALUE v_g,VALUE v_b)
+{
+	float r,g,b;
+	int index = NUM2INT(v_index);
+	VALUE v_ih = rb_iv_get(node,"@ihandle");
+	r = RFLOAT(v_r)->value;
+	g = RFLOAT(v_g)->value;
+	b = RFLOAT(v_b)->value;
+	IupGLPalette((Ihandle*)NUM2UINT(v_ih),index,r,g,b);
+	return Qnil;
+}

data/ext/rb_iupim.h

@@ -0,0 +1,25 @@
+#include <ruby.h>
+#include "iup.h"
+#include "iupim.h"
+
+VALUE rb_IupLoadImage(VALUE self,VALUE v_file_name)
+{
+	extern VALUE rb_cIupImage;
+	const char* file_name = RSTRING(v_file_name)->ptr;
+	Ihandle* v;
+	v = IupLoadImage(file_name);
+	if(v)
+		return rb_funcall(rb_cIupImage,rb_intern("new"),1,UINT2NUM((unsigned)v));
+	return Qnil;
+}
+
+VALUE rb_IupSaveImage(VALUE self,VALUE node,VALUE v_file_name,VALUE v_format)
+{
+	const char* file_name = RSTRING(v_file_name)->ptr;
+	const char* format = RSTRING(v_format)->ptr;
+	int v;
+	VALUE v_ih = rb_iv_get(node,"@ihandle");
+	v = IupSaveImage((Ihandle*)NUM2UINT(v_ih),file_name,format);
+	return INT2FIX((int)v);
+}
+

data/ext/rb_iupmask.h

@@ -0,0 +1,189 @@
+#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);
+}

data/ext/rb_iupmatrix.h

@@ -0,0 +1,80 @@
+#include <ruby.h>
+#include "iup.h"
+#include "iupmatrix.h"
+
+VALUE rb_IupMatrix(int argc,VALUE *argv,VALUE self)
+{
+	extern VALUE rb_cIupMatrix;
+	char *action = NULL;
+	Ihandle* v;
+	VALUE v_action;
+	if(argc==1 && TYPE(argv[0])==T_HASH) {
+		v_action = rb_hash_delete(argv[0],ID2SYM(rb_intern("action")));
+	} else {
+		rb_scan_args(argc,argv,"01",&v_action);
+	}
+	if(v_action!=Qnil)
+		action = RSTRING(v_action)->ptr;
+	v = IupMatrix(action);
+	if(argc==1 && TYPE(argv[0])==T_HASH)
+		rb_set_attribute(v,argv[0]);	
+	if(v)
+		return rb_funcall(rb_cIupMatrix,rb_intern("new"),1,UINT2NUM((unsigned)v));
+	return Qnil;
+}
+
+VALUE rb_IupMatSetAttribute(VALUE node,VALUE v_a,VALUE v_l,VALUE v_c,VALUE v_v)
+{
+	const char* a = RSTRING(v_a)->ptr;
+	int l = NUM2INT(v_l);
+	int c = NUM2INT(v_c);
+	char* v = RSTRING(v_v)->ptr;
+	VALUE v_ih = rb_iv_get(node,"@ihandle");
+	IupMatSetAttribute((Ihandle*)NUM2UINT(v_ih),a,l,c,v);
+	return Qnil;
+}
+
+VALUE rb_IupMatStoreAttribute(VALUE node,VALUE v_a,VALUE v_l,VALUE v_c,VALUE v_v)
+{
+	const char* a = RSTRING(v_a)->ptr;
+	int l = NUM2INT(v_l);
+	int c = NUM2INT(v_c);
+	char* v = RSTRING(v_v)->ptr;
+	VALUE v_ih = rb_iv_get(node,"@ihandle");
+	IupMatStoreAttribute((Ihandle*)NUM2UINT(v_ih),a,l,c,v);
+	return Qnil;
+}
+
+VALUE rb_IupMatGetAttribute(VALUE node,VALUE v_a,VALUE v_l,VALUE v_c)
+{
+	const char* a = RSTRING(v_a)->ptr;
+	int l = NUM2INT(v_l);
+	int c = NUM2INT(v_c);
+	char* v;
+	VALUE v_ih = rb_iv_get(node,"@ihandle");
+	v = IupMatGetAttribute((Ihandle*)NUM2UINT(v_ih),a,l,c);
+	return  rb_str_new2(v);
+}
+
+VALUE rb_IupMatGetInt(VALUE node,VALUE v_a,VALUE v_l,VALUE v_c)
+{
+	const char* a = RSTRING(v_a)->ptr;
+	int l = NUM2INT(v_l);
+	int c = NUM2INT(v_c);
+	int v;
+	VALUE v_ih = rb_iv_get(node,"@ihandle");
+	v = IupMatGetInt((Ihandle*)NUM2UINT(v_ih),a,l,c);
+	return INT2FIX(v);
+}
+
+VALUE rb_IupMatGetFloat(VALUE node,VALUE v_a,VALUE v_l,VALUE v_c)
+{
+	const char* a = RSTRING(v_a)->ptr;
+	int l = NUM2INT(v_l);
+	int c = NUM2INT(v_c);
+	float v;
+	VALUE v_ih = rb_iv_get(node,"@ihandle");
+	v = IupMatGetFloat((Ihandle*)NUM2UINT(v_ih),a,l,c);
+	return INT2FIX(v);
+}
+