ruby-dcl 1.8.1 → 1.8.2

data/ext/numru/grph2_uupack.c

@@ -4,7 +4,6 @@
 
 #include <stdio.h>
 #include "ruby.h"
-#include "libtinyf2c.h"
 #include "narray.h"
 #include "cdcl.h"
 
@@ -97,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);
@@ -147,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);
@@ -187,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);
@@ -242,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);
@@ -258,7 +257,7 @@ dcl_uupqnp(obj)
     integer o_ncp;
     VALUE ncp;
 
-    uupqnp_(&o_ncp);
+    uupqnp__(&o_ncp);
 
     ncp = INT2NUM(o_ncp);
 
@@ -282,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);
 
@@ -308,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);
 
@@ -334,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);
 
@@ -358,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);
 
@@ -382,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);
 
@@ -409,7 +408,7 @@ dcl_uupsvl(obj, idx, ipara)
     i_ipara = NUM2INT(ipara);
 
 
-    uupsvl_(&i_idx, &i_ipara);
+    uupsvl__(&i_idx, &i_ipara);
 
     return Qnil;
 
@@ -430,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);
 
@@ -443,7 +442,7 @@ static VALUE
 dcl_uuinit(obj)
     VALUE obj;
 {
-    uuinit_();
+    uuinit__();
 
     return Qnil;
 
@@ -462,7 +461,7 @@ dcl_uuslnt(obj, itype)
     i_itype = NUM2INT(itype);
 
 
-    uuslnt_(&i_itype);
+    uuslnt__(&i_itype);
 
     return Qnil;
 
@@ -475,7 +474,7 @@ dcl_uuqlnt(obj)
     integer o_itype;
     VALUE itype;
 
-    uuqlnt_(&o_itype);
+    uuqlnt__(&o_itype);
 
     itype = INT2NUM(o_itype);
 
@@ -497,7 +496,7 @@ dcl_uuslni(obj, index)
     i_index = NUM2INT(index);
 
 
-    uuslni_(&i_index);
+    uuslni__(&i_index);
 
     return Qnil;
 
@@ -510,7 +509,7 @@ dcl_uuqlni(obj)
     integer o_index;
     VALUE index;
 
-    uuqlni_(&o_index);
+    uuqlni__(&o_index);
 
     index = INT2NUM(o_index);
 
@@ -532,7 +531,7 @@ dcl_uusmkt(obj, itype)
     i_itype = NUM2INT(itype);
 
 
-    uusmkt_(&i_itype);
+    uusmkt__(&i_itype);
 
     return Qnil;
 
@@ -545,7 +544,7 @@ dcl_uuqmkt(obj)
     integer o_itype;
     VALUE itype;
 
-    uuqmkt_(&o_itype);
+    uuqmkt__(&o_itype);
 
     itype = INT2NUM(o_itype);
 
@@ -567,7 +566,7 @@ dcl_uusmki(obj, index)
     i_index = NUM2INT(index);
 
 
-    uusmki_(&i_index);
+    uusmki__(&i_index);
 
     return Qnil;
 
@@ -580,7 +579,7 @@ dcl_uuqmki(obj)
     integer o_index;
     VALUE index;
 
-    uuqmki_(&o_index);
+    uuqmki__(&o_index);
 
     index = INT2NUM(o_index);
 
@@ -602,7 +601,7 @@ dcl_uusmks(obj, rsize)
     i_rsize = (real)NUM2DBL(rsize);
 
 
-    uusmks_(&i_rsize);
+    uusmks__(&i_rsize);
 
     return Qnil;
 
@@ -615,7 +614,7 @@ dcl_uuqmks(obj)
     real o_rsize;
     VALUE rsize;
 
-    uuqmks_(&o_rsize);
+    uuqmks__(&o_rsize);
 
     rsize = rb_float_new((double)o_rsize);
 
@@ -637,7 +636,7 @@ dcl_uusebt(obj, itype)
     i_itype = NUM2INT(itype);
 
 
-    uusebt_(&i_itype);
+    uusebt__(&i_itype);
 
     return Qnil;
 
@@ -650,7 +649,7 @@ dcl_uuqebt(obj)
     integer o_itype;
     VALUE itype;
 
-    uuqebt_(&o_itype);
+    uuqebt__(&o_itype);
 
     itype = INT2NUM(o_itype);
 
@@ -672,7 +671,7 @@ dcl_uusebi(obj, index)
     i_index = NUM2INT(index);
 
 
-    uusebi_(&i_index);
+    uusebi__(&i_index);
 
     return Qnil;
 
@@ -685,7 +684,7 @@ dcl_uuqebi(obj)
     integer o_index;
     VALUE index;
 
-    uuqebi_(&o_index);
+    uuqebi__(&o_index);
 
     index = INT2NUM(o_index);
 
@@ -707,7 +706,7 @@ dcl_uusebs(obj, rsize)
     i_rsize = (real)NUM2DBL(rsize);
 
 
-    uusebs_(&i_rsize);
+    uusebs__(&i_rsize);
 
     return Qnil;
 
@@ -720,7 +719,7 @@ dcl_uuqebs(obj)
     real o_rsize;
     VALUE rsize;
 
-    uuqebs_(&o_rsize);
+    uuqebs__(&o_rsize);
 
     rsize = rb_float_new((double)o_rsize);
 
@@ -742,7 +741,7 @@ dcl_uusbrs(obj, rsize)
     i_rsize = (real)NUM2DBL(rsize);
 
 
-    uusbrs_(&i_rsize);
+    uusbrs__(&i_rsize);
 
     return Qnil;
 
@@ -755,7 +754,7 @@ dcl_uuqbrs(obj)
     real o_rsize;
     VALUE rsize;
 
-    uuqbrs_(&o_rsize);
+    uuqbrs__(&o_rsize);
 
     rsize = rb_float_new((double)o_rsize);
 
@@ -777,7 +776,7 @@ dcl_uusfrt(obj, itype)
     i_itype = NUM2INT(itype);
 
 
-    uusfrt_(&i_itype);
+    uusfrt__(&i_itype);
 
     return Qnil;
 
@@ -790,7 +789,7 @@ dcl_uuqfrt(obj)
     integer o_itype;
     VALUE itype;
 
-    uuqfrt_(&o_itype);
+    uuqfrt__(&o_itype);
 
     itype = INT2NUM(o_itype);
 
@@ -812,7 +811,7 @@ dcl_uusfri(obj, index)
     i_index = NUM2INT(index);
 
 
-    uusfri_(&i_index);
+    uusfri__(&i_index);
 
     return Qnil;
 
@@ -825,7 +824,7 @@ dcl_uuqfri(obj)
     integer o_index;
     VALUE index;
 
-    uuqfri_(&o_index);
+    uuqfri__(&o_index);
 
     index = INT2NUM(o_index);
 
@@ -852,7 +851,7 @@ dcl_uusarp(obj, itpt1, itpt2)
     i_itpt2 = NUM2INT(itpt2);
 
 
-    uusarp_(&i_itpt1, &i_itpt2);
+    uusarp__(&i_itpt1, &i_itpt2);
 
     return Qnil;
 
@@ -867,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);
@@ -895,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;
 
@@ -910,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);
@@ -935,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);
 
@@ -962,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;
 
@@ -986,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;
 
@@ -999,7 +998,7 @@ dcl_uuiqnp(obj)
     integer o_ncp;
     VALUE ncp;
 
-    uuiqnp_(&o_ncp);
+    uuiqnp__(&o_ncp);
 
     ncp = INT2NUM(o_ncp);
 
@@ -1023,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);
 
@@ -1049,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);
 
@@ -1075,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);
 
@@ -1099,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);
 
@@ -1126,7 +1125,7 @@ dcl_uuisvl(obj, idx, ipara)
     i_ipara = NUM2INT(ipara);
 
 
-    uuisvl_(&i_idx, &i_ipara);
+    uuisvl__(&i_idx, &i_ipara);
 
     return Qnil;
 
@@ -1147,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);
 
@@ -1171,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;
 
@@ -1195,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;
 
@@ -1216,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;
 
@@ -1229,7 +1228,7 @@ dcl_uulqnp(obj)
     integer o_ncp;
     VALUE ncp;
 
-    uulqnp_(&o_ncp);
+    uulqnp__(&o_ncp);
 
     ncp = INT2NUM(o_ncp);
 
@@ -1253,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);
 
@@ -1279,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);
 
@@ -1305,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);
 
@@ -1329,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;
 
@@ -1353,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;
 
@@ -1374,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);
 
@@ -1398,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);
 
@@ -1425,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;
 
@@ -1449,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;
 
@@ -1462,7 +1461,7 @@ dcl_uurqnp(obj)
     integer o_ncp;
     VALUE ncp;
 
-    uurqnp_(&o_ncp);
+    uurqnp__(&o_ncp);
 
     ncp = INT2NUM(o_ncp);
 
@@ -1486,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);
 
@@ -1512,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);
 
@@ -1538,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);
 
@@ -1562,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);
 
@@ -1589,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;
 
@@ -1610,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);