ruby-dcl 1.7.1 → 1.8.2

data/ext/numru/grph2_uipack.c

@@ -1,10 +1,9 @@
 /*
- * $Id: p_header,v 1.3 2015/03/18 03:27:42 horinout Exp $
+ * $Id$
  */
 
 #include <stdio.h>
 #include "ruby.h"
-#include "libtinyf2c.h"
 #include "narray.h"
 #include "cdcl.h"
 
@@ -15,6 +14,10 @@
 
 #define DFLT_SIZE 32
 
+#ifndef NARRAY_BIGMEM
+typedef int    na_shape_t;
+#endif
+
 extern char    *dcl_obj2ccharary(VALUE, int, int);
 extern integer *dcl_obj2cintegerary(VALUE);
 extern real    *dcl_obj2crealary(VALUE);
@@ -22,10 +25,10 @@ extern complex *dcl_obj2ccomplexary(VALUE);
 extern logical *dcl_obj2clogicalary(VALUE);
 
 extern VALUE dcl_ccharary2obj(char *, int, int);
-extern VALUE dcl_cintegerary2obj(integer *, int, int, int *);
-extern VALUE dcl_crealary2obj(real *, int, int, int *);
-extern VALUE dcl_ccomplexary2obj(complex *, int, char *);
-extern VALUE dcl_clogicalary2obj(logical *, int, int, int *);
+extern VALUE dcl_cintegerary2obj(integer *, na_shape_t, int, na_shape_t *);
+extern VALUE dcl_crealary2obj(real *, na_shape_t, int, na_shape_t *);
+/* extern VALUE dcl_ccomplexary2obj(complex *, int, char *); */
+extern VALUE dcl_clogicalary2obj(logical *, na_shape_t, int, na_shape_t *);
 
 extern void dcl_freeccharary(char *);
 extern void dcl_freecintegerary(integer *);
@@ -96,7 +99,7 @@ dcl_uipdat(obj, z, mx, nx, ny)
     i_z = dcl_obj2crealary(z);
 
 
-    uipdat_(i_z, &i_mx, &i_nx, &i_ny);
+    uipdat__(i_z, &i_mx, &i_nx, &i_ny);
 
     dcl_freecrealary(i_z);
 
@@ -145,7 +148,7 @@ dcl_uipda2(obj, u, v, mx, nx, ny)
     i_v = dcl_obj2crealary(v);
 
 
-    uipda2_(i_u, i_v, &i_mx, &i_nx, &i_ny);
+    uipda2__(i_u, i_v, &i_mx, &i_nx, &i_ny);
 
     dcl_freecrealary(i_u);
     dcl_freecrealary(i_v);
@@ -204,7 +207,7 @@ dcl_uipda3(obj, u, v, w, mx, nx, ny)
     i_w = dcl_obj2crealary(w);
 
 
-    uipda3_(i_u, i_v, i_w, &i_mx, &i_nx, &i_ny);
+    uipda3__(i_u, i_v, i_w, &i_mx, &i_nx, &i_ny);
 
     dcl_freecrealary(i_u);
     dcl_freecrealary(i_v);
@@ -232,7 +235,7 @@ dcl_uiscrg(obj, zmin, zmax)
     i_zmax = (real)NUM2DBL(zmax);
 
 
-    uiscrg_(&i_zmin, &i_zmax);
+    uiscrg__(&i_zmin, &i_zmax);
 
     return Qnil;
 
@@ -256,7 +259,7 @@ dcl_uismrg(obj, zmin, zmax)
     i_zmax = (real)NUM2DBL(zmax);
 
 
-    uismrg_(&i_zmin, &i_zmax);
+    uismrg__(&i_zmin, &i_zmax);
 
     return Qnil;
 
@@ -293,7 +296,7 @@ dcl_uiscsq(obj, clrlvl, icolor, n)
     i_icolor = dcl_obj2cintegerary(icolor);
 
 
-    uiscsq_(i_clrlvl, i_icolor, &i_n);
+    uiscsq__(i_clrlvl, i_icolor, &i_n);
 
     dcl_freecrealary(i_clrlvl);
     dcl_freecintegerary(i_icolor);
@@ -315,7 +318,7 @@ dcl_uiscfl(obj, cdsn)
     i_cdsn = StringValuePtr(cdsn);
 
 
-    uiscfl_(i_cdsn, (ftnlen)strlen(i_cdsn));
+    uiscfl__(i_cdsn, (ftnlen)strlen(i_cdsn));
 
     return Qnil;
 
@@ -352,7 +355,7 @@ dcl_uismsq(obj, shdlvl, shade, n)
     i_shade = dcl_obj2cintegerary(shade);
 
 
-    uismsq_(i_shdlvl, i_shade, &i_n);
+    uismsq__(i_shdlvl, i_shade, &i_n);
 
     dcl_freecrealary(i_shdlvl);
     dcl_freecintegerary(i_shade);
@@ -374,7 +377,7 @@ dcl_uismfl(obj, cdsn)
     i_cdsn = StringValuePtr(cdsn);
 
 
-    uismfl_(i_cdsn, (ftnlen)strlen(i_cdsn));
+    uismfl__(i_cdsn, (ftnlen)strlen(i_cdsn));
 
     return Qnil;
 
@@ -423,7 +426,7 @@ dcl_uixbar(obj, xmin, xmax, ymin, ymax, zmin, zmax, cpos)
     i_cpos = StringValuePtr(cpos);
 
 
-    uixbar_(&i_xmin, &i_xmax, &i_ymin, &i_ymax, &i_zmin, &i_zmax, i_cpos, (ftnlen)strlen(i_cpos));
+    uixbar__(&i_xmin, &i_xmax, &i_ymin, &i_ymax, &i_zmin, &i_zmax, i_cpos, (ftnlen)strlen(i_cpos));
 
     return Qnil;
 
@@ -472,7 +475,7 @@ dcl_uiybar(obj, xmin, xmax, ymin, ymax, zmin, zmax, cpos)
     i_cpos = StringValuePtr(cpos);
 
 
-    uiybar_(&i_xmin, &i_xmax, &i_ymin, &i_ymax, &i_zmin, &i_zmax, i_cpos, (ftnlen)strlen(i_cpos));
+    uiybar__(&i_xmin, &i_xmax, &i_ymin, &i_ymax, &i_zmin, &i_zmax, i_cpos, (ftnlen)strlen(i_cpos));
 
     return Qnil;
 
@@ -506,7 +509,7 @@ dcl_uiscr2(obj, umin, umax, vmin, vmax)
     i_vmax = (real)NUM2DBL(vmax);
 
 
-    uiscr2_(&i_umin, &i_umax, &i_vmin, &i_vmax);
+    uiscr2__(&i_umin, &i_umax, &i_vmin, &i_vmax);
 
     return Qnil;
 
@@ -525,7 +528,7 @@ dcl_uiqcr2(obj)
     VALUE vmin;
     VALUE vmax;
 
-    uiqcr2_(&o_umin, &o_umax, &o_vmin, &o_vmax);
+    uiqcr2__(&o_umin, &o_umax, &o_vmin, &o_vmax);
 
     umin = rb_float_new((double)o_umin);
     umax = rb_float_new((double)o_umax);
@@ -565,7 +568,7 @@ dcl_uiscmp(obj, irgb1, irgb2, irgb3, irgb4)
     i_irgb4 = NUM2INT(irgb4);
 
 
-    uiscmp_(&i_irgb1, &i_irgb2, &i_irgb3, &i_irgb4);
+    uiscmp__(&i_irgb1, &i_irgb2, &i_irgb3, &i_irgb4);
 
     return Qnil;
 
@@ -604,7 +607,7 @@ dcl_uipcmp(obj, xmin, xmax, ymin, ymax, cpos)
     i_cpos = StringValuePtr(cpos);
 
 
-    uipcmp_(&i_xmin, &i_xmax, &i_ymin, &i_ymax, i_cpos, (ftnlen)strlen(i_cpos));
+    uipcmp__(&i_xmin, &i_xmax, &i_ymin, &i_ymax, i_cpos, (ftnlen)strlen(i_cpos));
 
     return Qnil;
 
@@ -635,7 +638,7 @@ dcl_uifpac(obj, ir, ig, ib)
     i_ib = NUM2INT(ib);
 
 
-    uifpac_(&i_ir, &i_ig, &i_ib, &o_irgb);
+    uifpac__(&i_ir, &i_ig, &i_ib, &o_irgb);
 
     irgb = INT2NUM(o_irgb);
 
@@ -663,7 +666,7 @@ dcl_uiipac(obj, irgb)
     i_irgb = NUM2INT(irgb);
 
 
-    uiipac_(&i_irgb, &o_ir, &o_ig, &o_ib);
+    uiipac__(&i_irgb, &o_ir, &o_ig, &o_ib);
 
     ir = INT2NUM(o_ir);
     ig = INT2NUM(o_ig);
@@ -689,7 +692,7 @@ dcl_uiiget(obj, cp)
     i_cp = StringValuePtr(cp);
 
 
-    uiiget_(i_cp, &o_ipara, (ftnlen)strlen(i_cp));
+    uiiget__(i_cp, &o_ipara, (ftnlen)strlen(i_cp));
 
     ipara = INT2NUM(o_ipara);
 
@@ -716,7 +719,7 @@ dcl_uiiset(obj, cp, ipara)
     i_ipara = NUM2INT(ipara);
 
 
-    uiiset_(i_cp, &i_ipara, (ftnlen)strlen(i_cp));
+    uiiset__(i_cp, &i_ipara, (ftnlen)strlen(i_cp));
 
     return Qnil;
 
@@ -740,7 +743,7 @@ dcl_uiistx(obj, cp, ipara)
     i_ipara = NUM2INT(ipara);
 
 
-    uiistx_(i_cp, &i_ipara, (ftnlen)strlen(i_cp));
+    uiistx__(i_cp, &i_ipara, (ftnlen)strlen(i_cp));
 
     return Qnil;
 
@@ -753,7 +756,7 @@ dcl_uiiqnp(obj)
     integer o_ncp;
     VALUE ncp;
 
-    uiiqnp_(&o_ncp);
+    uiiqnp__(&o_ncp);
 
     ncp = INT2NUM(o_ncp);
 
@@ -777,7 +780,7 @@ dcl_uiiqid(obj, cp)
     i_cp = StringValuePtr(cp);
 
 
-    uiiqid_(i_cp, &o_idx, (ftnlen)strlen(i_cp));
+    uiiqid__(i_cp, &o_idx, (ftnlen)strlen(i_cp));
 
     idx = INT2NUM(o_idx);
 
@@ -803,7 +806,7 @@ dcl_uiiqcp(obj, idx)
     o_cp= ALLOCA_N(char, (DFLT_SIZE+1));
     memset(o_cp, '\0', DFLT_SIZE+1);
 
-    uiiqcp_(&i_idx, o_cp, (ftnlen)DFLT_SIZE);
+    uiiqcp__(&i_idx, o_cp, (ftnlen)DFLT_SIZE);
 
     cp = rb_str_new2(o_cp);
 
@@ -829,7 +832,7 @@ dcl_uiiqcl(obj, idx)
     o_cp= ALLOCA_N(char, (DFLT_SIZE+1));
     memset(o_cp, '\0', DFLT_SIZE+1);
 
-    uiiqcl_(&i_idx, o_cp, (ftnlen)DFLT_SIZE);
+    uiiqcl__(&i_idx, o_cp, (ftnlen)DFLT_SIZE);
 
     cp = rb_str_new2(o_cp);
 
@@ -853,7 +856,7 @@ dcl_uiiqvl(obj, idx)
     i_idx = NUM2INT(idx);
 
 
-    uiiqvl_(&i_idx, &o_ipara);
+    uiiqvl__(&i_idx, &o_ipara);
 
     ipara = INT2NUM(o_ipara);
 
@@ -880,7 +883,7 @@ dcl_uiisvl(obj, idx, ipara)
     i_ipara = NUM2INT(ipara);
 
 
-    uiisvl_(&i_idx, &i_ipara);
+    uiisvl__(&i_idx, &i_ipara);
 
     return Qnil;
 
@@ -901,7 +904,7 @@ dcl_uiiqin(obj, cp)
     i_cp = StringValuePtr(cp);
 
 
-    uiiqin_(i_cp, &o_in, (ftnlen)strlen(i_cp));
+    uiiqin__(i_cp, &o_in, (ftnlen)strlen(i_cp));
 
     in = INT2NUM(o_in);
 
@@ -925,7 +928,7 @@ dcl_uilget(obj, cp)
     i_cp = StringValuePtr(cp);
 
 
-    uilget_(i_cp, &o_lpara, (ftnlen)strlen(i_cp));
+    uilget__(i_cp, &o_lpara, (ftnlen)strlen(i_cp));
 
     lpara = (o_lpara == FALSE_) ? Qfalse : Qtrue;
 
@@ -949,7 +952,7 @@ dcl_uilset(obj, cp, lpara)
     i_lpara = ((lpara == Qnil)||(lpara == Qfalse)) ? FALSE_ : TRUE_;
 
 
-    uilset_(i_cp, &i_lpara, (ftnlen)strlen(i_cp));
+    uilset__(i_cp, &i_lpara, (ftnlen)strlen(i_cp));
 
     return Qnil;
 
@@ -970,7 +973,7 @@ dcl_uilstx(obj, cp, lpara)
     i_lpara = ((lpara == Qnil)||(lpara == Qfalse)) ? FALSE_ : TRUE_;
 
 
-    uilstx_(i_cp, &i_lpara, (ftnlen)strlen(i_cp));
+    uilstx__(i_cp, &i_lpara, (ftnlen)strlen(i_cp));
 
     return Qnil;
 
@@ -983,7 +986,7 @@ dcl_uilqnp(obj)
     integer o_ncp;
     VALUE ncp;
 
-    uilqnp_(&o_ncp);
+    uilqnp__(&o_ncp);
 
     ncp = INT2NUM(o_ncp);
 
@@ -1007,7 +1010,7 @@ dcl_uilqid(obj, cp)
     i_cp = StringValuePtr(cp);
 
 
-    uilqid_(i_cp, &o_idx, (ftnlen)strlen(i_cp));
+    uilqid__(i_cp, &o_idx, (ftnlen)strlen(i_cp));
 
     idx = INT2NUM(o_idx);
 
@@ -1033,7 +1036,7 @@ dcl_uilqcp(obj, idx)
     o_cp= ALLOCA_N(char, (DFLT_SIZE+1));
     memset(o_cp, '\0', DFLT_SIZE+1);
 
-    uilqcp_(&i_idx, o_cp, (ftnlen)DFLT_SIZE);
+    uilqcp__(&i_idx, o_cp, (ftnlen)DFLT_SIZE);
 
     cp = rb_str_new2(o_cp);
 
@@ -1059,7 +1062,7 @@ dcl_uilqcl(obj, idx)
     o_cp= ALLOCA_N(char, (DFLT_SIZE+1));
     memset(o_cp, '\0', DFLT_SIZE+1);
 
-    uilqcl_(&i_idx, o_cp, (ftnlen)DFLT_SIZE);
+    uilqcl__(&i_idx, o_cp, (ftnlen)DFLT_SIZE);
 
     cp = rb_str_new2(o_cp);
 
@@ -1083,7 +1086,7 @@ dcl_uilqvl(obj, idx)
     i_idx = NUM2INT(idx);
 
 
-    uilqvl_(&i_idx, &o_lpara);
+    uilqvl__(&i_idx, &o_lpara);
 
     lpara = (o_lpara == FALSE_) ? Qfalse : Qtrue;
 
@@ -1107,7 +1110,7 @@ dcl_uilsvl(obj, idx, lpara)
     i_lpara = ((lpara == Qnil)||(lpara == Qfalse)) ? FALSE_ : TRUE_;
 
 
-    uilsvl_(&i_idx, &i_lpara);
+    uilsvl__(&i_idx, &i_lpara);
 
     return Qnil;
 
@@ -1128,7 +1131,7 @@ dcl_uilqin(obj, cp)
     i_cp = StringValuePtr(cp);
 
 
-    uilqin_(i_cp, &o_in, (ftnlen)strlen(i_cp));
+    uilqin__(i_cp, &o_in, (ftnlen)strlen(i_cp));
 
     in = INT2NUM(o_in);
 
@@ -1152,7 +1155,7 @@ dcl_uirget(obj, cp)
     i_cp = StringValuePtr(cp);
 
 
-    uirget_(i_cp, &o_rpara, (ftnlen)strlen(i_cp));
+    uirget__(i_cp, &o_rpara, (ftnlen)strlen(i_cp));
 
     rpara = rb_float_new((double)o_rpara);
 
@@ -1179,7 +1182,7 @@ dcl_uirset(obj, cp, rpara)
     i_rpara = (real)NUM2DBL(rpara);
 
 
-    uirset_(i_cp, &i_rpara, (ftnlen)strlen(i_cp));
+    uirset__(i_cp, &i_rpara, (ftnlen)strlen(i_cp));
 
     return Qnil;
 
@@ -1203,7 +1206,7 @@ dcl_uirstx(obj, cp, rpara)
     i_rpara = (real)NUM2DBL(rpara);
 
 
-    uirstx_(i_cp, &i_rpara, (ftnlen)strlen(i_cp));
+    uirstx__(i_cp, &i_rpara, (ftnlen)strlen(i_cp));
 
     return Qnil;
 
@@ -1216,7 +1219,7 @@ dcl_uirqnp(obj)
     integer o_ncp;
     VALUE ncp;
 
-    uirqnp_(&o_ncp);
+    uirqnp__(&o_ncp);
 
     ncp = INT2NUM(o_ncp);
 
@@ -1240,7 +1243,7 @@ dcl_uirqid(obj, cp)
     i_cp = StringValuePtr(cp);
 
 
-    uirqid_(i_cp, &o_idx, (ftnlen)strlen(i_cp));
+    uirqid__(i_cp, &o_idx, (ftnlen)strlen(i_cp));
 
     idx = INT2NUM(o_idx);
 
@@ -1266,7 +1269,7 @@ dcl_uirqcp(obj, idx)
     o_cp= ALLOCA_N(char, (DFLT_SIZE+1));
     memset(o_cp, '\0', DFLT_SIZE+1);
 
-    uirqcp_(&i_idx, o_cp, (ftnlen)DFLT_SIZE);
+    uirqcp__(&i_idx, o_cp, (ftnlen)DFLT_SIZE);
 
     cp = rb_str_new2(o_cp);
 
@@ -1292,7 +1295,7 @@ dcl_uirqcl(obj, idx)
     o_cp= ALLOCA_N(char, (DFLT_SIZE+1));
     memset(o_cp, '\0', DFLT_SIZE+1);
 
-    uirqcl_(&i_idx, o_cp, (ftnlen)DFLT_SIZE);
+    uirqcl__(&i_idx, o_cp, (ftnlen)DFLT_SIZE);
 
     cp = rb_str_new2(o_cp);
 
@@ -1316,7 +1319,7 @@ dcl_uirqvl(obj, idx)
     i_idx = NUM2INT(idx);
 
 
-    uirqvl_(&i_idx, &o_rpara);
+    uirqvl__(&i_idx, &o_rpara);
 
     rpara = rb_float_new((double)o_rpara);
 
@@ -1343,7 +1346,7 @@ dcl_uirsvl(obj, idx, rpara)
     i_rpara = (real)NUM2DBL(rpara);
 
 
-    uirsvl_(&i_idx, &i_rpara);
+    uirsvl__(&i_idx, &i_rpara);
 
     return Qnil;
 
@@ -1364,7 +1367,7 @@ dcl_uirqin(obj, cp)
     i_cp = StringValuePtr(cp);
 
 
-    uirqin_(i_cp, &o_in, (ftnlen)strlen(i_cp));
+    uirqin__(i_cp, &o_in, (ftnlen)strlen(i_cp));
 
     in = INT2NUM(o_in);
 
@@ -1390,7 +1393,7 @@ dcl_uiqfnm(obj, cpara)
     o_cfname= ALLOCA_N(char, (DFLT_SIZE+1));
     memset(o_cfname, '\0', DFLT_SIZE+1);
 
-    uiqfnm_(i_cpara, o_cfname, (ftnlen)strlen(i_cpara), (ftnlen)DFLT_SIZE);
+    uiqfnm__(i_cpara, o_cfname, (ftnlen)strlen(i_cpara), (ftnlen)DFLT_SIZE);
 
     cfname = rb_str_new2(o_cfname);