ruby-dcl 1.7.1 → 1.8.2

data/ext/numru/grph2_uupack.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 *);
@@ -93,7 +96,7 @@ dcl_uulin(obj, n, upx, upy)
     i_upy = dcl_obj2crealary(upy);
 
 
-    uulin_(&i_n, i_upx, i_upy);
+    uulin__(&i_n, i_upx, i_upy);
 
     dcl_freecrealary(i_upx);
     dcl_freecrealary(i_upy);
@@ -143,7 +146,7 @@ dcl_uulinz(obj, n, upx, upy, itype, index)
     i_upy = dcl_obj2crealary(upy);
 
 
-    uulinz_(&i_n, i_upx, i_upy, &i_itype, &i_index);
+    uulinz__(&i_n, i_upx, i_upy, &i_itype, &i_index);
 
     dcl_freecrealary(i_upx);
     dcl_freecrealary(i_upy);
@@ -183,7 +186,7 @@ dcl_uumrk(obj, n, upx, upy)
     i_upy = dcl_obj2crealary(upy);
 
 
-    uumrk_(&i_n, i_upx, i_upy);
+    uumrk__(&i_n, i_upx, i_upy);
 
     dcl_freecrealary(i_upx);
     dcl_freecrealary(i_upy);
@@ -238,7 +241,7 @@ dcl_uumrkz(obj, n, upx, upy, itype, index, rsize)
     i_upy = dcl_obj2crealary(upy);
 
 
-    uumrkz_(&i_n, i_upx, i_upy, &i_itype, &i_index, &i_rsize);
+    uumrkz__(&i_n, i_upx, i_upy, &i_itype, &i_index, &i_rsize);
 
     dcl_freecrealary(i_upx);
     dcl_freecrealary(i_upy);
@@ -254,7 +257,7 @@ dcl_uupqnp(obj)
     integer o_ncp;
     VALUE ncp;
 
-    uupqnp_(&o_ncp);
+    uupqnp__(&o_ncp);
 
     ncp = INT2NUM(o_ncp);
 
@@ -278,7 +281,7 @@ dcl_uupqid(obj, cp)
     i_cp = StringValuePtr(cp);
 
 
-    uupqid_(i_cp, &o_idx, (ftnlen)strlen(i_cp));
+    uupqid__(i_cp, &o_idx, (ftnlen)strlen(i_cp));
 
     idx = INT2NUM(o_idx);
 
@@ -304,7 +307,7 @@ dcl_uupqcp(obj, idx)
     o_cp= ALLOCA_N(char, (DFLT_SIZE+1));
     memset(o_cp, '\0', DFLT_SIZE+1);
 
-    uupqcp_(&i_idx, o_cp, (ftnlen)DFLT_SIZE);
+    uupqcp__(&i_idx, o_cp, (ftnlen)DFLT_SIZE);
 
     cp = rb_str_new2(o_cp);
 
@@ -330,7 +333,7 @@ dcl_uupqcl(obj, idx)
     o_cp= ALLOCA_N(char, (DFLT_SIZE+1));
     memset(o_cp, '\0', DFLT_SIZE+1);
 
-    uupqcl_(&i_idx, o_cp, (ftnlen)DFLT_SIZE);
+    uupqcl__(&i_idx, o_cp, (ftnlen)DFLT_SIZE);
 
     cp = rb_str_new2(o_cp);
 
@@ -354,7 +357,7 @@ dcl_uupqit(obj, idx)
     i_idx = NUM2INT(idx);
 
 
-    uupqit_(&i_idx, &o_itp);
+    uupqit__(&i_idx, &o_itp);
 
     itp = INT2NUM(o_itp);
 
@@ -378,7 +381,7 @@ dcl_uupqvl(obj, idx)
     i_idx = NUM2INT(idx);
 
 
-    uupqvl_(&i_idx, &o_ipara);
+    uupqvl__(&i_idx, &o_ipara);
 
     ipara = INT2NUM(o_ipara);
 
@@ -405,7 +408,7 @@ dcl_uupsvl(obj, idx, ipara)
     i_ipara = NUM2INT(ipara);
 
 
-    uupsvl_(&i_idx, &i_ipara);
+    uupsvl__(&i_idx, &i_ipara);
 
     return Qnil;
 
@@ -426,7 +429,7 @@ dcl_uupqin(obj, cp)
     i_cp = StringValuePtr(cp);
 
 
-    uupqin_(i_cp, &o_in, (ftnlen)strlen(i_cp));
+    uupqin__(i_cp, &o_in, (ftnlen)strlen(i_cp));
 
     in = INT2NUM(o_in);
 
@@ -439,7 +442,7 @@ static VALUE
 dcl_uuinit(obj)
     VALUE obj;
 {
-    uuinit_();
+    uuinit__();
 
     return Qnil;
 
@@ -458,7 +461,7 @@ dcl_uuslnt(obj, itype)
     i_itype = NUM2INT(itype);
 
 
-    uuslnt_(&i_itype);
+    uuslnt__(&i_itype);
 
     return Qnil;
 
@@ -471,7 +474,7 @@ dcl_uuqlnt(obj)
     integer o_itype;
     VALUE itype;
 
-    uuqlnt_(&o_itype);
+    uuqlnt__(&o_itype);
 
     itype = INT2NUM(o_itype);
 
@@ -493,7 +496,7 @@ dcl_uuslni(obj, index)
     i_index = NUM2INT(index);
 
 
-    uuslni_(&i_index);
+    uuslni__(&i_index);
 
     return Qnil;
 
@@ -506,7 +509,7 @@ dcl_uuqlni(obj)
     integer o_index;
     VALUE index;
 
-    uuqlni_(&o_index);
+    uuqlni__(&o_index);
 
     index = INT2NUM(o_index);
 
@@ -528,7 +531,7 @@ dcl_uusmkt(obj, itype)
     i_itype = NUM2INT(itype);
 
 
-    uusmkt_(&i_itype);
+    uusmkt__(&i_itype);
 
     return Qnil;
 
@@ -541,7 +544,7 @@ dcl_uuqmkt(obj)
     integer o_itype;
     VALUE itype;
 
-    uuqmkt_(&o_itype);
+    uuqmkt__(&o_itype);
 
     itype = INT2NUM(o_itype);
 
@@ -563,7 +566,7 @@ dcl_uusmki(obj, index)
     i_index = NUM2INT(index);
 
 
-    uusmki_(&i_index);
+    uusmki__(&i_index);
 
     return Qnil;
 
@@ -576,7 +579,7 @@ dcl_uuqmki(obj)
     integer o_index;
     VALUE index;
 
-    uuqmki_(&o_index);
+    uuqmki__(&o_index);
 
     index = INT2NUM(o_index);
 
@@ -598,7 +601,7 @@ dcl_uusmks(obj, rsize)
     i_rsize = (real)NUM2DBL(rsize);
 
 
-    uusmks_(&i_rsize);
+    uusmks__(&i_rsize);
 
     return Qnil;
 
@@ -611,7 +614,7 @@ dcl_uuqmks(obj)
     real o_rsize;
     VALUE rsize;
 
-    uuqmks_(&o_rsize);
+    uuqmks__(&o_rsize);
 
     rsize = rb_float_new((double)o_rsize);
 
@@ -633,7 +636,7 @@ dcl_uusebt(obj, itype)
     i_itype = NUM2INT(itype);
 
 
-    uusebt_(&i_itype);
+    uusebt__(&i_itype);
 
     return Qnil;
 
@@ -646,7 +649,7 @@ dcl_uuqebt(obj)
     integer o_itype;
     VALUE itype;
 
-    uuqebt_(&o_itype);
+    uuqebt__(&o_itype);
 
     itype = INT2NUM(o_itype);
 
@@ -668,7 +671,7 @@ dcl_uusebi(obj, index)
     i_index = NUM2INT(index);
 
 
-    uusebi_(&i_index);
+    uusebi__(&i_index);
 
     return Qnil;
 
@@ -681,7 +684,7 @@ dcl_uuqebi(obj)
     integer o_index;
     VALUE index;
 
-    uuqebi_(&o_index);
+    uuqebi__(&o_index);
 
     index = INT2NUM(o_index);
 
@@ -703,7 +706,7 @@ dcl_uusebs(obj, rsize)
     i_rsize = (real)NUM2DBL(rsize);
 
 
-    uusebs_(&i_rsize);
+    uusebs__(&i_rsize);
 
     return Qnil;
 
@@ -716,7 +719,7 @@ dcl_uuqebs(obj)
     real o_rsize;
     VALUE rsize;
 
-    uuqebs_(&o_rsize);
+    uuqebs__(&o_rsize);
 
     rsize = rb_float_new((double)o_rsize);
 
@@ -738,7 +741,7 @@ dcl_uusbrs(obj, rsize)
     i_rsize = (real)NUM2DBL(rsize);
 
 
-    uusbrs_(&i_rsize);
+    uusbrs__(&i_rsize);
 
     return Qnil;
 
@@ -751,7 +754,7 @@ dcl_uuqbrs(obj)
     real o_rsize;
     VALUE rsize;
 
-    uuqbrs_(&o_rsize);
+    uuqbrs__(&o_rsize);
 
     rsize = rb_float_new((double)o_rsize);
 
@@ -773,7 +776,7 @@ dcl_uusfrt(obj, itype)
     i_itype = NUM2INT(itype);
 
 
-    uusfrt_(&i_itype);
+    uusfrt__(&i_itype);
 
     return Qnil;
 
@@ -786,7 +789,7 @@ dcl_uuqfrt(obj)
     integer o_itype;
     VALUE itype;
 
-    uuqfrt_(&o_itype);
+    uuqfrt__(&o_itype);
 
     itype = INT2NUM(o_itype);
 
@@ -808,7 +811,7 @@ dcl_uusfri(obj, index)
     i_index = NUM2INT(index);
 
 
-    uusfri_(&i_index);
+    uusfri__(&i_index);
 
     return Qnil;
 
@@ -821,7 +824,7 @@ dcl_uuqfri(obj)
     integer o_index;
     VALUE index;
 
-    uuqfri_(&o_index);
+    uuqfri__(&o_index);
 
     index = INT2NUM(o_index);
 
@@ -848,7 +851,7 @@ dcl_uusarp(obj, itpt1, itpt2)
     i_itpt2 = NUM2INT(itpt2);
 
 
-    uusarp_(&i_itpt1, &i_itpt2);
+    uusarp__(&i_itpt1, &i_itpt2);
 
     return Qnil;
 
@@ -863,7 +866,7 @@ dcl_uuqarp(obj)
     VALUE itpt1;
     VALUE itpt2;
 
-    uuqarp_(&o_itpt1, &o_itpt2);
+    uuqarp__(&o_itpt1, &o_itpt2);
 
     itpt1 = INT2NUM(o_itpt1);
     itpt2 = INT2NUM(o_itpt2);
@@ -891,7 +894,7 @@ dcl_uusidv(obj, umin, umax)
     i_umax = (real)NUM2DBL(umax);
 
 
-    uusidv_(&i_umin, &i_umax);
+    uusidv__(&i_umin, &i_umax);
 
     return Qnil;
 
@@ -906,7 +909,7 @@ dcl_uuqidv(obj)
     VALUE umin;
     VALUE umax;
 
-    uuqidv_(&o_umin, &o_umax);
+    uuqidv__(&o_umin, &o_umax);
 
     umin = rb_float_new((double)o_umin);
     umax = rb_float_new((double)o_umax);
@@ -931,7 +934,7 @@ dcl_uuiget(obj, cp)
     i_cp = StringValuePtr(cp);
 
 
-    uuiget_(i_cp, &o_ipara, (ftnlen)strlen(i_cp));
+    uuiget__(i_cp, &o_ipara, (ftnlen)strlen(i_cp));
 
     ipara = INT2NUM(o_ipara);
 
@@ -958,7 +961,7 @@ dcl_uuiset(obj, cp, ipara)
     i_ipara = NUM2INT(ipara);
 
 
-    uuiset_(i_cp, &i_ipara, (ftnlen)strlen(i_cp));
+    uuiset__(i_cp, &i_ipara, (ftnlen)strlen(i_cp));
 
     return Qnil;
 
@@ -982,7 +985,7 @@ dcl_uuistx(obj, cp, ipara)
     i_ipara = NUM2INT(ipara);
 
 
-    uuistx_(i_cp, &i_ipara, (ftnlen)strlen(i_cp));
+    uuistx__(i_cp, &i_ipara, (ftnlen)strlen(i_cp));
 
     return Qnil;
 
@@ -995,7 +998,7 @@ dcl_uuiqnp(obj)
     integer o_ncp;
     VALUE ncp;
 
-    uuiqnp_(&o_ncp);
+    uuiqnp__(&o_ncp);
 
     ncp = INT2NUM(o_ncp);
 
@@ -1019,7 +1022,7 @@ dcl_uuiqid(obj, cp)
     i_cp = StringValuePtr(cp);
 
 
-    uuiqid_(i_cp, &o_idx, (ftnlen)strlen(i_cp));
+    uuiqid__(i_cp, &o_idx, (ftnlen)strlen(i_cp));
 
     idx = INT2NUM(o_idx);
 
@@ -1045,7 +1048,7 @@ dcl_uuiqcp(obj, idx)
     o_cp= ALLOCA_N(char, (DFLT_SIZE+1));
     memset(o_cp, '\0', DFLT_SIZE+1);
 
-    uuiqcp_(&i_idx, o_cp, (ftnlen)DFLT_SIZE);
+    uuiqcp__(&i_idx, o_cp, (ftnlen)DFLT_SIZE);
 
     cp = rb_str_new2(o_cp);
 
@@ -1071,7 +1074,7 @@ dcl_uuiqcl(obj, idx)
     o_cp= ALLOCA_N(char, (DFLT_SIZE+1));
     memset(o_cp, '\0', DFLT_SIZE+1);
 
-    uuiqcl_(&i_idx, o_cp, (ftnlen)DFLT_SIZE);
+    uuiqcl__(&i_idx, o_cp, (ftnlen)DFLT_SIZE);
 
     cp = rb_str_new2(o_cp);
 
@@ -1095,7 +1098,7 @@ dcl_uuiqvl(obj, idx)
     i_idx = NUM2INT(idx);
 
 
-    uuiqvl_(&i_idx, &o_ipara);
+    uuiqvl__(&i_idx, &o_ipara);
 
     ipara = INT2NUM(o_ipara);
 
@@ -1122,7 +1125,7 @@ dcl_uuisvl(obj, idx, ipara)
     i_ipara = NUM2INT(ipara);
 
 
-    uuisvl_(&i_idx, &i_ipara);
+    uuisvl__(&i_idx, &i_ipara);
 
     return Qnil;
 
@@ -1143,7 +1146,7 @@ dcl_uuiqin(obj, cp)
     i_cp = StringValuePtr(cp);
 
 
-    uuiqin_(i_cp, &o_in, (ftnlen)strlen(i_cp));
+    uuiqin__(i_cp, &o_in, (ftnlen)strlen(i_cp));
 
     in = INT2NUM(o_in);
 
@@ -1167,7 +1170,7 @@ dcl_uulget(obj, cp)
     i_cp = StringValuePtr(cp);
 
 
-    uulget_(i_cp, &o_lpara, (ftnlen)strlen(i_cp));
+    uulget__(i_cp, &o_lpara, (ftnlen)strlen(i_cp));
 
     lpara = (o_lpara == FALSE_) ? Qfalse : Qtrue;
 
@@ -1191,7 +1194,7 @@ dcl_uulset(obj, cp, lpara)
     i_lpara = ((lpara == Qnil)||(lpara == Qfalse)) ? FALSE_ : TRUE_;
 
 
-    uulset_(i_cp, &i_lpara, (ftnlen)strlen(i_cp));
+    uulset__(i_cp, &i_lpara, (ftnlen)strlen(i_cp));
 
     return Qnil;
 
@@ -1212,7 +1215,7 @@ dcl_uulstx(obj, cp, lpara)
     i_lpara = ((lpara == Qnil)||(lpara == Qfalse)) ? FALSE_ : TRUE_;
 
 
-    uulstx_(i_cp, &i_lpara, (ftnlen)strlen(i_cp));
+    uulstx__(i_cp, &i_lpara, (ftnlen)strlen(i_cp));
 
     return Qnil;
 
@@ -1225,7 +1228,7 @@ dcl_uulqnp(obj)
     integer o_ncp;
     VALUE ncp;
 
-    uulqnp_(&o_ncp);
+    uulqnp__(&o_ncp);
 
     ncp = INT2NUM(o_ncp);
 
@@ -1249,7 +1252,7 @@ dcl_uulqid(obj, cp)
     i_cp = StringValuePtr(cp);
 
 
-    uulqid_(i_cp, &o_idx, (ftnlen)strlen(i_cp));
+    uulqid__(i_cp, &o_idx, (ftnlen)strlen(i_cp));
 
     idx = INT2NUM(o_idx);
 
@@ -1275,7 +1278,7 @@ dcl_uulqcp(obj, idx)
     o_cp= ALLOCA_N(char, (DFLT_SIZE+1));
     memset(o_cp, '\0', DFLT_SIZE+1);
 
-    uulqcp_(&i_idx, o_cp, (ftnlen)DFLT_SIZE);
+    uulqcp__(&i_idx, o_cp, (ftnlen)DFLT_SIZE);
 
     cp = rb_str_new2(o_cp);
 
@@ -1301,7 +1304,7 @@ dcl_uulqcl(obj, idx)
     o_cp= ALLOCA_N(char, (DFLT_SIZE+1));
     memset(o_cp, '\0', DFLT_SIZE+1);
 
-    uulqcl_(&i_idx, o_cp, (ftnlen)DFLT_SIZE);
+    uulqcl__(&i_idx, o_cp, (ftnlen)DFLT_SIZE);
 
     cp = rb_str_new2(o_cp);
 
@@ -1325,7 +1328,7 @@ dcl_uulqvl(obj, idx)
     i_idx = NUM2INT(idx);
 
 
-    uulqvl_(&i_idx, &o_lpara);
+    uulqvl__(&i_idx, &o_lpara);
 
     lpara = (o_lpara == FALSE_) ? Qfalse : Qtrue;
 
@@ -1349,7 +1352,7 @@ dcl_uulsvl(obj, idx, lpara)
     i_lpara = ((lpara == Qnil)||(lpara == Qfalse)) ? FALSE_ : TRUE_;
 
 
-    uulsvl_(&i_idx, &i_lpara);
+    uulsvl__(&i_idx, &i_lpara);
 
     return Qnil;
 
@@ -1370,7 +1373,7 @@ dcl_uulqin(obj, cp)
     i_cp = StringValuePtr(cp);
 
 
-    uulqin_(i_cp, &o_in, (ftnlen)strlen(i_cp));
+    uulqin__(i_cp, &o_in, (ftnlen)strlen(i_cp));
 
     in = INT2NUM(o_in);
 
@@ -1394,7 +1397,7 @@ dcl_uurget(obj, cp)
     i_cp = StringValuePtr(cp);
 
 
-    uurget_(i_cp, &o_rpara, (ftnlen)strlen(i_cp));
+    uurget__(i_cp, &o_rpara, (ftnlen)strlen(i_cp));
 
     rpara = rb_float_new((double)o_rpara);
 
@@ -1421,7 +1424,7 @@ dcl_uurset(obj, cp, rpara)
     i_rpara = (real)NUM2DBL(rpara);
 
 
-    uurset_(i_cp, &i_rpara, (ftnlen)strlen(i_cp));
+    uurset__(i_cp, &i_rpara, (ftnlen)strlen(i_cp));
 
     return Qnil;
 
@@ -1445,7 +1448,7 @@ dcl_uurstx(obj, cp, rpara)
     i_rpara = (real)NUM2DBL(rpara);
 
 
-    uurstx_(i_cp, &i_rpara, (ftnlen)strlen(i_cp));
+    uurstx__(i_cp, &i_rpara, (ftnlen)strlen(i_cp));
 
     return Qnil;
 
@@ -1458,7 +1461,7 @@ dcl_uurqnp(obj)
     integer o_ncp;
     VALUE ncp;
 
-    uurqnp_(&o_ncp);
+    uurqnp__(&o_ncp);
 
     ncp = INT2NUM(o_ncp);
 
@@ -1482,7 +1485,7 @@ dcl_uurqid(obj, cp)
     i_cp = StringValuePtr(cp);
 
 
-    uurqid_(i_cp, &o_idx, (ftnlen)strlen(i_cp));
+    uurqid__(i_cp, &o_idx, (ftnlen)strlen(i_cp));
 
     idx = INT2NUM(o_idx);
 
@@ -1508,7 +1511,7 @@ dcl_uurqcp(obj, idx)
     o_cp= ALLOCA_N(char, (DFLT_SIZE+1));
     memset(o_cp, '\0', DFLT_SIZE+1);
 
-    uurqcp_(&i_idx, o_cp, (ftnlen)DFLT_SIZE);
+    uurqcp__(&i_idx, o_cp, (ftnlen)DFLT_SIZE);
 
     cp = rb_str_new2(o_cp);
 
@@ -1534,7 +1537,7 @@ dcl_uurqcl(obj, idx)
     o_cp= ALLOCA_N(char, (DFLT_SIZE+1));
     memset(o_cp, '\0', DFLT_SIZE+1);
 
-    uurqcl_(&i_idx, o_cp, (ftnlen)DFLT_SIZE);
+    uurqcl__(&i_idx, o_cp, (ftnlen)DFLT_SIZE);
 
     cp = rb_str_new2(o_cp);
 
@@ -1558,7 +1561,7 @@ dcl_uurqvl(obj, idx)
     i_idx = NUM2INT(idx);
 
 
-    uurqvl_(&i_idx, &o_rpara);
+    uurqvl__(&i_idx, &o_rpara);
 
     rpara = rb_float_new((double)o_rpara);
 
@@ -1585,7 +1588,7 @@ dcl_uursvl(obj, idx, rpara)
     i_rpara = (real)NUM2DBL(rpara);
 
 
-    uursvl_(&i_idx, &i_rpara);
+    uursvl__(&i_idx, &i_rpara);
 
     return Qnil;
 
@@ -1606,7 +1609,7 @@ dcl_uurqin(obj, cp)
     i_cp = StringValuePtr(cp);
 
 
-    uurqin_(i_cp, &o_in, (ftnlen)strlen(i_cp));
+    uurqin__(i_cp, &o_in, (ftnlen)strlen(i_cp));
 
     in = INT2NUM(o_in);