ruby-iup 0.0.1

data/ext/rb_iup_pplot.h

@@ -0,0 +1,129 @@
+#include <ruby.h>
+#include "iup.h"
+#include "iup_pplot.h"
+
+static int PPlotOpen = 0;
+VALUE rb_IupPPlotOpen(VALUE self)
+{
+	IupPPlotOpen();
+	return Qnil;
+}
+
+VALUE rb_IupPPlot(VALUE self)
+{
+	extern VALUE rb_cIupPPlot;
+	Ihandle* v;
+	if(!PPlotOpen) {
+		IupPPlotOpen();
+		PPlotOpen = 1;
+	}
+	v = IupPPlot();
+	if(v)
+		return rb_funcall(rb_cIupPPlot,rb_intern("new"),1,UINT2NUM((unsigned)v));
+	return Qnil;
+}
+
+VALUE rb_IupPPlotBegin(VALUE node,VALUE v_strXdata)
+{
+	int strXdata = NUM2INT(v_strXdata);
+	VALUE v_ih = rb_iv_get(node,"@ihandle");
+	IupPPlotBegin((Ihandle*)NUM2UINT(v_ih),strXdata);
+	return Qnil;
+}
+
+VALUE rb_IupPPlotAdd(VALUE node,VALUE v_x,VALUE v_y)
+{
+	float x,y;
+	VALUE v_ih = rb_iv_get(node,"@ihandle");
+	if(TYPE(v_x)==T_FIXNUM)
+		x = NUM2INT(v_x);
+	else
+		x = RFLOAT(v_x)->value;
+	if(TYPE(v_y)==T_FIXNUM)
+		y = NUM2INT(v_y);
+	else		
+		y = RFLOAT(v_y)->value;
+	IupPPlotAdd((Ihandle*)NUM2UINT(v_ih),x,y);
+	return Qnil;
+}
+
+VALUE rb_IupPPlotAddStr(VALUE node,VALUE v_x,VALUE v_y)
+{
+	float y;
+	VALUE v_ih = rb_iv_get(node,"@ihandle");
+	const char* x = RSTRING(v_x)->ptr;
+	if(TYPE(v_y)==T_FIXNUM)
+		y = NUM2INT(v_y);
+	else if(TYPE(v_y)==T_FLOAT)
+		y = RFLOAT(v_y)->value;
+	else
+		y = 0;
+	
+	IupPPlotAddStr((Ihandle*)NUM2UINT(v_ih),x,y);
+	return Qnil;
+}
+
+VALUE rb_IupPPlotEnd(VALUE node)
+{
+	int v;
+	VALUE v_ih = rb_iv_get(node,"@ihandle");
+	v = IupPPlotEnd((Ihandle*)NUM2UINT(v_ih));
+	return INT2FIX(v);
+}
+
+VALUE rb_IupPPlotInsertStr(VALUE node,VALUE v_index,VALUE v_sample_index,VALUE v_x,VALUE v_y)
+{
+	float y;
+	int index = NUM2INT(v_index);
+	int sample_index = NUM2INT(v_sample_index);
+	const char* x = RSTRING(v_x)->ptr;
+	VALUE v_ih = rb_iv_get(node,"@ihandle");
+	y = RFLOAT(v_y)->value;
+	IupPPlotInsertStr((Ihandle*)NUM2UINT(v_ih),index,sample_index,x,y);
+	return Qnil;
+}
+
+VALUE rb_IupPPlotInsert(VALUE node,VALUE v_index,VALUE v_sample_index,VALUE v_x,VALUE v_y)
+{
+	float x,y;
+	int index = NUM2INT(v_index);
+	int sample_index = NUM2INT(v_sample_index);
+	VALUE v_ih = rb_iv_get(node,"@ihandle");
+	if(TYPE(v_x)==T_FIXNUM)
+		x = NUM2INT(v_x);
+	else
+		x = RFLOAT(v_x)->value;
+	if(TYPE(v_y)==T_FIXNUM)
+		y = NUM2INT(v_y);
+	else		
+		y = RFLOAT(v_y)->value;
+	IupPPlotInsert((Ihandle*)NUM2UINT(v_ih),index,sample_index,x,y);
+	return Qnil;
+}
+
+VALUE rb_IupPPlotTransform(VALUE node,VALUE v_x,VALUE v_y)
+{
+	float x,y;
+	int ix,iy;
+	VALUE v_r;
+	VALUE v_ih = rb_iv_get(node,"@ihandle");
+	if(TYPE(v_x)==T_FIXNUM)
+		x = NUM2INT(v_x);
+	else
+		x = RFLOAT(v_x)->value;
+	if(TYPE(v_y)==T_FIXNUM)
+		y = NUM2INT(v_y);
+	else		
+		y = RFLOAT(v_y)->value;
+	IupPPlotTransform((Ihandle*)NUM2UINT(v_ih),x,y,&ix,&iy);
+	v_r = rb_ary_new3(2,INT2FIX(ix),INT2FIX(iy));
+	return v_r;
+}
+
+VALUE rb_IupPPlotPaintTo(VALUE node,VALUE v_cnv)
+{
+	void* cnv = (void*)NUM2UINT(v_cnv);
+	VALUE v_ih = rb_iv_get(node,"@ihandle");
+	IupPPlotPaintTo((Ihandle*)NUM2UINT(v_ih),cnv);
+	return Qnil;
+}

data/ext/rb_iupcb.h

@@ -0,0 +1,13 @@
+#include <ruby.h>
+#include "iup.h"
+#include "iupcb.h"
+
+VALUE rb_IupColorBrowser(VALUE self)
+{
+	extern VALUE rb_cIupColorBrowser;
+	Ihandle* v;
+	v = IupColorBrowser();
+	if(v)
+		return rb_funcall(rb_cIupColorBrowser,rb_intern("new"),1,UINT2NUM((unsigned)v));
+	return Qnil;
+}

data/ext/rb_iupcbox.h

@@ -0,0 +1,40 @@
+#include <ruby.h>
+#include "iup.h"
+#include "iupcbox.h"
+
+VALUE rb_IupCboxv(int argc,VALUE *argv,VALUE self)
+{
+	extern VALUE rb_cIupCbox;
+	Ihandle* v;
+	int i;
+	Ihandle *params[100];
+	VALUE v_params,v_hash;
+	VALUE node;
+	rb_scan_args(argc,argv,"11",&v_params,&v_hash);
+	for(i=0;i<RARRAY(v_params)->len;i++) {
+		node = RARRAY(v_params)->ptr[i];
+		params[i] = (Ihandle*)NUM2UINT(rb_iv_get(node,"@ihandle"));
+	}
+	params[i] = NULL;
+	v = IupCboxv(params);
+	if(TYPE(v_hash)==T_HASH) 
+		rb_set_attribute(v,v_hash);	
+	if(v)
+		return rb_funcall(rb_cIupCbox,rb_intern("new"),1,UINT2NUM((unsigned)v));
+	return Qnil;
+}
+
+VALUE rb_IupCboxBuilderv(VALUE self,VALUE v_params)
+{
+	Ihandle* v;
+	int i;
+	Ihandle *params[100];
+	VALUE node;
+	for(i=0;i<RARRAY(v_params)->len;i++) {
+		node = RARRAY(v_params)->ptr[i];
+		params[i] = (Ihandle*)NUM2UINT(rb_iv_get(node,"@ihandle"));
+	}
+	params[i] = NULL;
+	v = IupCboxBuilderv(params);
+	return UINT2NUM((unsigned)v);
+}

data/ext/rb_iupcells.h

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

data/ext/rb_iupcolorbar.h

@@ -0,0 +1,17 @@
+#include <ruby.h>
+#include "iup.h"
+#include "iupcolorbar.h"
+
+VALUE rb_IupColorbar(VALUE self)
+{
+	extern char* iupGetEnv(Ihandle* n,const char* a);
+	unsigned *obj;
+	extern VALUE rb_cIupColorbar;
+	Ihandle* v;
+	v = IupColorbar();
+	obj = (unsigned*)iupGetEnv(v,"_IUPCOLORBAR_DATA");
+	obj[4] = 0; /* initialize cddbuffer to NULL */
+	if(v)
+		return rb_funcall(rb_cIupColorbar,rb_intern("new"),1,UINT2NUM((unsigned)v));
+	return Qnil;
+}

data/ext/rb_iupcompat.h

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