ruby-dcl 1.7.1 → 1.8.2

data/ext/numru/math1_syslib.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 *);
@@ -82,7 +85,7 @@ dcl_lchreq(obj, ch1, ch2)
     i_ch2 = StringValuePtr(ch2);
 
 
-    o_rtn_val = lchreq_(i_ch1, i_ch2, (ftnlen)strlen(i_ch1), (ftnlen)strlen(i_ch2));
+    o_rtn_val = lchreq__(i_ch1, i_ch2, (ftnlen)strlen(i_ch1), (ftnlen)strlen(i_ch2));
 
     rtn_val = (o_rtn_val == FALSE_) ? Qfalse : Qtrue;
 
@@ -114,7 +117,7 @@ dcl_msgdmp(obj, clev, csub, cmsg)
     i_cmsg = StringValuePtr(cmsg);
 
 
-    msgdmp_(i_clev, i_csub, i_cmsg, (ftnlen)strlen(i_clev), (ftnlen)strlen(i_csub), (ftnlen)strlen(i_cmsg));
+    msgdmp__(i_clev, i_csub, i_cmsg, (ftnlen)strlen(i_clev), (ftnlen)strlen(i_csub), (ftnlen)strlen(i_cmsg));
 
     return Qnil;
 
@@ -143,7 +146,7 @@ dcl_mszdmp(obj, cmsg, iunit, lnsize)
     i_lnsize = NUM2INT(lnsize);
 
 
-    mszdmp_(i_cmsg, &i_iunit, &i_lnsize, (ftnlen)strlen(i_cmsg));
+    mszdmp__(i_cmsg, &i_iunit, &i_lnsize, (ftnlen)strlen(i_cmsg));
 
     return Qnil;
 
@@ -166,7 +169,7 @@ dcl_glcget(obj, cp)
     o_cpara= ALLOCA_N(char, (DFLT_SIZE+1));
     memset(o_cpara, '\0', DFLT_SIZE+1);
 
-    glcget_(i_cp, o_cpara, (ftnlen)strlen(i_cp), (ftnlen)DFLT_SIZE);
+    glcget__(i_cp, o_cpara, (ftnlen)strlen(i_cp), (ftnlen)DFLT_SIZE);
 
     cpara = rb_str_new2(o_cpara);
 
@@ -193,7 +196,7 @@ dcl_glcset(obj, cp, cpara)
     i_cpara = StringValuePtr(cpara);
 
 
-    glcset_(i_cp, i_cpara, (ftnlen)strlen(i_cp), (ftnlen)strlen(i_cpara));
+    glcset__(i_cp, i_cpara, (ftnlen)strlen(i_cp), (ftnlen)strlen(i_cpara));
 
     return Qnil;
 
@@ -217,7 +220,7 @@ dcl_glcstx(obj, cp, cpara)
     i_cpara = StringValuePtr(cpara);
 
 
-    glcstx_(i_cp, i_cpara, (ftnlen)strlen(i_cp), (ftnlen)strlen(i_cpara));
+    glcstx__(i_cp, i_cpara, (ftnlen)strlen(i_cp), (ftnlen)strlen(i_cpara));
 
     return Qnil;
 
@@ -240,7 +243,7 @@ dcl_glqfnm(obj, cpara)
     o_cfname= ALLOCA_N(char, (DFLT_SIZE+1));
     memset(o_cfname, '\0', DFLT_SIZE+1);
 
-    glqfnm_(i_cpara, o_cfname, (ftnlen)strlen(i_cpara), (ftnlen)DFLT_SIZE);
+    glqfnm__(i_cpara, o_cfname, (ftnlen)strlen(i_cpara), (ftnlen)DFLT_SIZE);
 
     cfname = rb_str_new2(o_cfname);
 
@@ -256,7 +259,7 @@ dcl_iufopn(obj)
     integer o_rtn_val;
     VALUE rtn_val;
 
-    o_rtn_val = iufopn_();
+    o_rtn_val = iufopn__();
 
     rtn_val = INT2NUM(o_rtn_val);
 
@@ -303,7 +306,7 @@ dcl_cfsrch(obj, cplist, np, cflist, nf)
     o_cfname= ALLOCA_N(char, (DFLT_SIZE+1));
     memset(o_cfname, '\0', DFLT_SIZE+1);
 
-    cfsrch_(i_cplist, &i_np, i_cflist, &i_nf, o_cfname, (ftnlen)80, (ftnlen)80, (ftnlen)DFLT_SIZE);
+    cfsrch__(i_cplist, &i_np, i_cflist, &i_nf, o_cfname, (ftnlen)80, (ftnlen)80, (ftnlen)DFLT_SIZE);
 
     cfname = rb_str_new2(o_cfname);
 
@@ -321,7 +324,7 @@ dcl_glpqnp(obj)
     integer o_ncp;
     VALUE ncp;
 
-    glpqnp_(&o_ncp);
+    glpqnp__(&o_ncp);
 
     ncp = INT2NUM(o_ncp);
 
@@ -345,7 +348,7 @@ dcl_glpqid(obj, cp)
     i_cp = StringValuePtr(cp);
 
 
-    glpqid_(i_cp, &o_idx, (ftnlen)strlen(i_cp));
+    glpqid__(i_cp, &o_idx, (ftnlen)strlen(i_cp));
 
     idx = INT2NUM(o_idx);
 
@@ -371,7 +374,7 @@ dcl_glpqcp(obj, idx)
     o_cp= ALLOCA_N(char, (DFLT_SIZE+1));
     memset(o_cp, '\0', DFLT_SIZE+1);
 
-    glpqcp_(&i_idx, o_cp, (ftnlen)DFLT_SIZE);
+    glpqcp__(&i_idx, o_cp, (ftnlen)DFLT_SIZE);
 
     cp = rb_str_new2(o_cp);
 
@@ -397,7 +400,7 @@ dcl_glpqcl(obj, idx)
     o_cp= ALLOCA_N(char, (DFLT_SIZE+1));
     memset(o_cp, '\0', DFLT_SIZE+1);
 
-    glpqcl_(&i_idx, o_cp, (ftnlen)DFLT_SIZE);
+    glpqcl__(&i_idx, o_cp, (ftnlen)DFLT_SIZE);
 
     cp = rb_str_new2(o_cp);
 
@@ -421,7 +424,7 @@ dcl_glpqit(obj, idx)
     i_idx = NUM2INT(idx);
 
 
-    glpqit_(&i_idx, &o_itp);
+    glpqit__(&i_idx, &o_itp);
 
     itp = INT2NUM(o_itp);
 
@@ -445,7 +448,7 @@ dcl_glpqvl(obj, idx)
     i_idx = NUM2INT(idx);
 
 
-    glpqvl_(&i_idx, &o_ipara);
+    glpqvl__(&i_idx, &o_ipara);
 
     ipara = INT2NUM(o_ipara);
 
@@ -472,7 +475,7 @@ dcl_glpsvl(obj, idx, ipara)
     i_ipara = NUM2INT(ipara);
 
 
-    glpsvl_(&i_idx, &i_ipara);
+    glpsvl__(&i_idx, &i_ipara);
 
     return Qnil;
 
@@ -493,7 +496,7 @@ dcl_glpqin(obj, cp)
     i_cp = StringValuePtr(cp);
 
 
-    glpqin_(i_cp, &o_in, (ftnlen)strlen(i_cp));
+    glpqin__(i_cp, &o_in, (ftnlen)strlen(i_cp));
 
     in = INT2NUM(o_in);
 
@@ -517,7 +520,7 @@ dcl_gliget(obj, cp)
     i_cp = StringValuePtr(cp);
 
 
-    gliget_(i_cp, &o_ipara, (ftnlen)strlen(i_cp));
+    gliget__(i_cp, &o_ipara, (ftnlen)strlen(i_cp));
 
     ipara = INT2NUM(o_ipara);
 
@@ -544,7 +547,7 @@ dcl_gliset(obj, cp, ipara)
     i_ipara = NUM2INT(ipara);
 
 
-    gliset_(i_cp, &i_ipara, (ftnlen)strlen(i_cp));
+    gliset__(i_cp, &i_ipara, (ftnlen)strlen(i_cp));
 
     return Qnil;
 
@@ -568,7 +571,7 @@ dcl_glistx(obj, cp, ipara)
     i_ipara = NUM2INT(ipara);
 
 
-    glistx_(i_cp, &i_ipara, (ftnlen)strlen(i_cp));
+    glistx__(i_cp, &i_ipara, (ftnlen)strlen(i_cp));
 
     return Qnil;
 
@@ -589,7 +592,7 @@ dcl_gllget(obj, cp)
     i_cp = StringValuePtr(cp);
 
 
-    gllget_(i_cp, &o_lpara, (ftnlen)strlen(i_cp));
+    gllget__(i_cp, &o_lpara, (ftnlen)strlen(i_cp));
 
     lpara = (o_lpara == FALSE_) ? Qfalse : Qtrue;
 
@@ -613,7 +616,7 @@ dcl_gllset(obj, cp, lpara)
     i_lpara = ((lpara == Qnil)||(lpara == Qfalse)) ? FALSE_ : TRUE_;
 
 
-    gllset_(i_cp, &i_lpara, (ftnlen)strlen(i_cp));
+    gllset__(i_cp, &i_lpara, (ftnlen)strlen(i_cp));
 
     return Qnil;
 
@@ -634,7 +637,7 @@ dcl_gllstx(obj, cp, lpara)
     i_lpara = ((lpara == Qnil)||(lpara == Qfalse)) ? FALSE_ : TRUE_;
 
 
-    gllstx_(i_cp, &i_lpara, (ftnlen)strlen(i_cp));
+    gllstx__(i_cp, &i_lpara, (ftnlen)strlen(i_cp));
 
     return Qnil;
 
@@ -644,7 +647,7 @@ static VALUE
 dcl_rpnenv(obj)
     VALUE obj;
 {
-    rpnenv_();
+    rpnenv__();
 
     return Qnil;
 
@@ -670,7 +673,7 @@ dcl_rtienv(obj, cpfix, cp)
     i_cp = StringValuePtr(cp);
 
 
-    rtienv_(i_cpfix, i_cp, &o_ipara, (ftnlen)strlen(i_cpfix), (ftnlen)strlen(i_cp));
+    rtienv__(i_cpfix, i_cp, &o_ipara, (ftnlen)strlen(i_cpfix), (ftnlen)strlen(i_cp));
 
     ipara = INT2NUM(o_ipara);
 
@@ -699,7 +702,7 @@ dcl_rtlenv(obj, cpfix, cp)
     i_cp = StringValuePtr(cp);
 
 
-    rtlenv_(i_cpfix, i_cp, &o_lpara, (ftnlen)strlen(i_cpfix), (ftnlen)strlen(i_cp));
+    rtlenv__(i_cpfix, i_cp, &o_lpara, (ftnlen)strlen(i_cpfix), (ftnlen)strlen(i_cp));
 
     lpara = (o_lpara == FALSE_) ? Qfalse : Qtrue;
 
@@ -728,7 +731,7 @@ dcl_rtrenv(obj, cpfix, cp)
     i_cp = StringValuePtr(cp);
 
 
-    rtrenv_(i_cpfix, i_cp, &o_rpara, (ftnlen)strlen(i_cpfix), (ftnlen)strlen(i_cp));
+    rtrenv__(i_cpfix, i_cp, &o_rpara, (ftnlen)strlen(i_cpfix), (ftnlen)strlen(i_cp));
 
     rpara = rb_float_new((double)o_rpara);
 
@@ -759,7 +762,7 @@ dcl_rtcenv(obj, cpfix, cp)
     o_cpara= ALLOCA_N(char, (DFLT_SIZE+1));
     memset(o_cpara, '\0', DFLT_SIZE+1);
 
-    rtcenv_(i_cpfix, i_cp, o_cpara, (ftnlen)strlen(i_cpfix), (ftnlen)strlen(i_cp), (ftnlen)DFLT_SIZE);
+    rtcenv__(i_cpfix, i_cp, o_cpara, (ftnlen)strlen(i_cpfix), (ftnlen)strlen(i_cp), (ftnlen)DFLT_SIZE);
 
     cpara = rb_str_new2(o_cpara);
 
@@ -783,7 +786,7 @@ dcl_rlienv(obj, cp)
     i_cp = StringValuePtr(cp);
 
 
-    rlienv_(i_cp, &o_ipara, (ftnlen)strlen(i_cp));
+    rlienv__(i_cp, &o_ipara, (ftnlen)strlen(i_cp));
 
     ipara = INT2NUM(o_ipara);
 
@@ -807,7 +810,7 @@ dcl_rllenv(obj, cp)
     i_cp = StringValuePtr(cp);
 
 
-    rllenv_(i_cp, &o_lpara, (ftnlen)strlen(i_cp));
+    rllenv__(i_cp, &o_lpara, (ftnlen)strlen(i_cp));
 
     lpara = (o_lpara == FALSE_) ? Qfalse : Qtrue;
 
@@ -831,7 +834,7 @@ dcl_rlrenv(obj, cp)
     i_cp = StringValuePtr(cp);
 
 
-    rlrenv_(i_cp, &o_rpara, (ftnlen)strlen(i_cp));
+    rlrenv__(i_cp, &o_rpara, (ftnlen)strlen(i_cp));
 
     rpara = rb_float_new((double)o_rpara);
 
@@ -857,7 +860,7 @@ dcl_rlcenv(obj, cp)
     o_cpara= ALLOCA_N(char, (DFLT_SIZE+1));
     memset(o_cpara, '\0', DFLT_SIZE+1);
 
-    rlcenv_(i_cp, o_cpara, (ftnlen)strlen(i_cp), (ftnlen)DFLT_SIZE);
+    rlcenv__(i_cp, o_cpara, (ftnlen)strlen(i_cp), (ftnlen)DFLT_SIZE);
 
     cpara = rb_str_new2(o_cpara);
 
@@ -881,7 +884,7 @@ dcl_glrget(obj, cp)
     i_cp = StringValuePtr(cp);
 
 
-    glrget_(i_cp, &o_rpara, (ftnlen)strlen(i_cp));
+    glrget__(i_cp, &o_rpara, (ftnlen)strlen(i_cp));
 
     rpara = rb_float_new((double)o_rpara);
 
@@ -908,7 +911,7 @@ dcl_glrset(obj, cp, rpara)
     i_rpara = (real)NUM2DBL(rpara);
 
 
-    glrset_(i_cp, &i_rpara, (ftnlen)strlen(i_cp));
+    glrset__(i_cp, &i_rpara, (ftnlen)strlen(i_cp));
 
     return Qnil;
 
@@ -932,7 +935,7 @@ dcl_glrstx(obj, cp, rpara)
     i_rpara = (real)NUM2DBL(rpara);
 
 
-    glrstx_(i_cp, &i_rpara, (ftnlen)strlen(i_cp));
+    glrstx__(i_cp, &i_rpara, (ftnlen)strlen(i_cp));
 
     return Qnil;
 
@@ -945,7 +948,7 @@ dcl_gllqnp(obj)
     integer o_ncp;
     VALUE ncp;
 
-    gllqnp_(&o_ncp);
+    gllqnp__(&o_ncp);
 
     ncp = INT2NUM(o_ncp);
 
@@ -969,7 +972,7 @@ dcl_gllqid(obj, cp)
     i_cp = StringValuePtr(cp);
 
 
-    gllqid_(i_cp, &o_idx, (ftnlen)strlen(i_cp));
+    gllqid__(i_cp, &o_idx, (ftnlen)strlen(i_cp));
 
     idx = INT2NUM(o_idx);
 
@@ -995,7 +998,7 @@ dcl_gllqcp(obj, idx)
     o_cp= ALLOCA_N(char, (DFLT_SIZE+1));
     memset(o_cp, '\0', DFLT_SIZE+1);
 
-    gllqcp_(&i_idx, o_cp, (ftnlen)DFLT_SIZE);
+    gllqcp__(&i_idx, o_cp, (ftnlen)DFLT_SIZE);
 
     cp = rb_str_new2(o_cp);
 
@@ -1021,7 +1024,7 @@ dcl_gllqcl(obj, idx)
     o_cp= ALLOCA_N(char, (DFLT_SIZE+1));
     memset(o_cp, '\0', DFLT_SIZE+1);
 
-    gllqcl_(&i_idx, o_cp, (ftnlen)DFLT_SIZE);
+    gllqcl__(&i_idx, o_cp, (ftnlen)DFLT_SIZE);
 
     cp = rb_str_new2(o_cp);
 
@@ -1045,7 +1048,7 @@ dcl_gllqvl(obj, idx)
     i_idx = NUM2INT(idx);
 
 
-    gllqvl_(&i_idx, &o_lpara);
+    gllqvl__(&i_idx, &o_lpara);
 
     lpara = (o_lpara == FALSE_) ? Qfalse : Qtrue;
 
@@ -1069,7 +1072,7 @@ dcl_gllsvl(obj, idx, lpara)
     i_lpara = ((lpara == Qnil)||(lpara == Qfalse)) ? FALSE_ : TRUE_;
 
 
-    gllsvl_(&i_idx, &i_lpara);
+    gllsvl__(&i_idx, &i_lpara);
 
     return Qnil;
 
@@ -1090,7 +1093,7 @@ dcl_gllqin(obj, cp)
     i_cp = StringValuePtr(cp);
 
 
-    gllqin_(i_cp, &o_in, (ftnlen)strlen(i_cp));
+    gllqin__(i_cp, &o_in, (ftnlen)strlen(i_cp));
 
     in = INT2NUM(o_in);
 
@@ -1103,7 +1106,7 @@ static VALUE
 dcl_rpnget(obj)
     VALUE obj;
 {
-    rpnget_();
+    rpnget__();
 
     return Qnil;
 
@@ -1138,7 +1141,7 @@ dcl_rtiget(obj, cpfix, cps, max)
 
     o_ipara= ALLOCA_N(integer, (i_max));
 
-    rtiget_(i_cpfix, i_cps, o_ipara, &i_max, (ftnlen)strlen(i_cpfix), (ftnlen)8);
+    rtiget__(i_cpfix, i_cps, o_ipara, &i_max, (ftnlen)strlen(i_cpfix), (ftnlen)8);
 
     {int array_shape[1] = {i_max};
      ipara = dcl_cintegerary2obj(o_ipara, (i_max), 1, array_shape);
@@ -1179,7 +1182,7 @@ dcl_rtlget(obj, cpfix, cps, max)
 
     o_lpara= ALLOCA_N(logical, (i_max));
 
-    rtlget_(i_cpfix, i_cps, o_lpara, &i_max, (ftnlen)strlen(i_cpfix), (ftnlen)8);
+    rtlget__(i_cpfix, i_cps, o_lpara, &i_max, (ftnlen)strlen(i_cpfix), (ftnlen)8);
 
     {int array_shape[1] = {i_max};
      lpara = dcl_clogicalary2obj(o_lpara, (i_max), 1, array_shape);
@@ -1220,7 +1223,7 @@ dcl_rtrget(obj, cpfix, cps, max)
 
     o_rpara= ALLOCA_N(real, (i_max));
 
-    rtrget_(i_cpfix, i_cps, o_rpara, &i_max, (ftnlen)strlen(i_cpfix), (ftnlen)8);
+    rtrget__(i_cpfix, i_cps, o_rpara, &i_max, (ftnlen)strlen(i_cpfix), (ftnlen)8);
 
     {int array_shape[1] = {i_max};
      rpara = dcl_crealary2obj(o_rpara, (i_max), 1, array_shape);
@@ -1262,7 +1265,7 @@ dcl_rtcget(obj, cpfix, cps, max)
     o_cpara= ALLOCA_N(char, (i_max*80));
     memset(o_cpara, '\0', (i_max*80));
 
-    rtcget_(i_cpfix, i_cps, o_cpara, &i_max, (ftnlen)strlen(i_cpfix), (ftnlen)8, (ftnlen)80);
+    rtcget__(i_cpfix, i_cps, o_cpara, &i_max, (ftnlen)strlen(i_cpfix), (ftnlen)8, (ftnlen)80);
 
     cpara = dcl_ccharary2obj(o_cpara, (i_max*80), 80);
 
@@ -1296,7 +1299,7 @@ dcl_rliget(obj, cpl, max)
 
     o_ipara= ALLOCA_N(integer, (i_max));
 
-    rliget_(i_cpl, o_ipara, &i_max, (ftnlen)40);
+    rliget__(i_cpl, o_ipara, &i_max, (ftnlen)40);
 
     {int array_shape[1] = {i_max};
      ipara = dcl_cintegerary2obj(o_ipara, (i_max), 1, array_shape);
@@ -1332,7 +1335,7 @@ dcl_rllget(obj, cpl, max)
 
     o_lpara= ALLOCA_N(logical, (i_max));
 
-    rllget_(i_cpl, o_lpara, &i_max, (ftnlen)40);
+    rllget__(i_cpl, o_lpara, &i_max, (ftnlen)40);
 
     {int array_shape[1] = {i_max};
      lpara = dcl_clogicalary2obj(o_lpara, (i_max), 1, array_shape);
@@ -1368,7 +1371,7 @@ dcl_rlrget(obj, cpl, max)
 
     o_rpara= ALLOCA_N(real, (i_max));
 
-    rlrget_(i_cpl, o_rpara, &i_max, (ftnlen)40);
+    rlrget__(i_cpl, o_rpara, &i_max, (ftnlen)40);
 
     {int array_shape[1] = {i_max};
      rpara = dcl_crealary2obj(o_rpara, (i_max), 1, array_shape);
@@ -1405,7 +1408,7 @@ dcl_rlcget(obj, cpl, max)
     o_cpara= ALLOCA_N(char, (i_max*80));
     memset(o_cpara, '\0', (i_max*80));
 
-    rlcget_(i_cpl, o_cpara, &i_max, (ftnlen)40, (ftnlen)80);
+    rlcget__(i_cpl, o_cpara, &i_max, (ftnlen)40, (ftnlen)80);
 
     cpara = dcl_ccharary2obj(o_cpara, (i_max*80), 80);
 
@@ -1419,7 +1422,7 @@ static VALUE
 dcl_rpnopt(obj)
     VALUE obj;
 {
-    rpnopt_();
+    rpnopt__();
 
     return Qnil;
 
@@ -1445,7 +1448,7 @@ dcl_rtiopt(obj, cpfix, cp)
     i_cp = StringValuePtr(cp);
 
 
-    rtiopt_(i_cpfix, i_cp, &o_ipara, (ftnlen)strlen(i_cpfix), (ftnlen)strlen(i_cp));
+    rtiopt__(i_cpfix, i_cp, &o_ipara, (ftnlen)strlen(i_cpfix), (ftnlen)strlen(i_cp));
 
     ipara = INT2NUM(o_ipara);
 
@@ -1474,7 +1477,7 @@ dcl_rtlopt(obj, cpfix, cp)
     i_cp = StringValuePtr(cp);
 
 
-    rtlopt_(i_cpfix, i_cp, &o_lpara, (ftnlen)strlen(i_cpfix), (ftnlen)strlen(i_cp));
+    rtlopt__(i_cpfix, i_cp, &o_lpara, (ftnlen)strlen(i_cpfix), (ftnlen)strlen(i_cp));
 
     lpara = (o_lpara == FALSE_) ? Qfalse : Qtrue;
 
@@ -1503,7 +1506,7 @@ dcl_rtropt(obj, cpfix, cp)
     i_cp = StringValuePtr(cp);
 
 
-    rtropt_(i_cpfix, i_cp, &o_rpara, (ftnlen)strlen(i_cpfix), (ftnlen)strlen(i_cp));
+    rtropt__(i_cpfix, i_cp, &o_rpara, (ftnlen)strlen(i_cpfix), (ftnlen)strlen(i_cp));
 
     rpara = rb_float_new((double)o_rpara);
 
@@ -1534,7 +1537,7 @@ dcl_rtcopt(obj, cpfix, cp)
     o_cpara= ALLOCA_N(char, (DFLT_SIZE+1));
     memset(o_cpara, '\0', DFLT_SIZE+1);
 
-    rtcopt_(i_cpfix, i_cp, o_cpara, (ftnlen)strlen(i_cpfix), (ftnlen)strlen(i_cp), (ftnlen)DFLT_SIZE);
+    rtcopt__(i_cpfix, i_cp, o_cpara, (ftnlen)strlen(i_cpfix), (ftnlen)strlen(i_cp), (ftnlen)DFLT_SIZE);
 
     cpara = rb_str_new2(o_cpara);
 
@@ -1558,7 +1561,7 @@ dcl_rliopt(obj, cp)
     i_cp = StringValuePtr(cp);
 
 
-    rliopt_(i_cp, &o_ipara, (ftnlen)strlen(i_cp));
+    rliopt__(i_cp, &o_ipara, (ftnlen)strlen(i_cp));
 
     ipara = INT2NUM(o_ipara);
 
@@ -1582,7 +1585,7 @@ dcl_rllopt(obj, cp)
     i_cp = StringValuePtr(cp);
 
 
-    rllopt_(i_cp, &o_lpara, (ftnlen)strlen(i_cp));
+    rllopt__(i_cp, &o_lpara, (ftnlen)strlen(i_cp));
 
     lpara = (o_lpara == FALSE_) ? Qfalse : Qtrue;
 
@@ -1606,7 +1609,7 @@ dcl_rlropt(obj, cp)
     i_cp = StringValuePtr(cp);
 
 
-    rlropt_(i_cp, &o_rpara, (ftnlen)strlen(i_cp));
+    rlropt__(i_cp, &o_rpara, (ftnlen)strlen(i_cp));
 
     rpara = rb_float_new((double)o_rpara);
 
@@ -1632,7 +1635,7 @@ dcl_rlcopt(obj, cp)
     o_cpara= ALLOCA_N(char, (DFLT_SIZE+1));
     memset(o_cpara, '\0', DFLT_SIZE+1);
 
-    rlcopt_(i_cp, o_cpara, (ftnlen)strlen(i_cp), (ftnlen)DFLT_SIZE);
+    rlcopt__(i_cp, o_cpara, (ftnlen)strlen(i_cp), (ftnlen)DFLT_SIZE);
 
     cpara = rb_str_new2(o_cpara);
 
@@ -1645,7 +1648,7 @@ static VALUE
 dcl_rpnxfl(obj)
     VALUE obj;
 {
-    rpnxfl_();
+    rpnxfl__();
 
     return Qnil;
 
@@ -1671,7 +1674,7 @@ dcl_rtixfl(obj, cpfix, cp)
     i_cp = StringValuePtr(cp);
 
 
-    rtixfl_(i_cpfix, i_cp, &o_ipara, (ftnlen)strlen(i_cpfix), (ftnlen)strlen(i_cp));
+    rtixfl__(i_cpfix, i_cp, &o_ipara, (ftnlen)strlen(i_cpfix), (ftnlen)strlen(i_cp));
 
     ipara = INT2NUM(o_ipara);
 
@@ -1700,7 +1703,7 @@ dcl_rtlxfl(obj, cpfix, cp)
     i_cp = StringValuePtr(cp);
 
 
-    rtlxfl_(i_cpfix, i_cp, &o_lpara, (ftnlen)strlen(i_cpfix), (ftnlen)strlen(i_cp));
+    rtlxfl__(i_cpfix, i_cp, &o_lpara, (ftnlen)strlen(i_cpfix), (ftnlen)strlen(i_cp));
 
     lpara = (o_lpara == FALSE_) ? Qfalse : Qtrue;
 
@@ -1729,7 +1732,7 @@ dcl_rtrxfl(obj, cpfix, cp)
     i_cp = StringValuePtr(cp);
 
 
-    rtrxfl_(i_cpfix, i_cp, &o_rpara, (ftnlen)strlen(i_cpfix), (ftnlen)strlen(i_cp));
+    rtrxfl__(i_cpfix, i_cp, &o_rpara, (ftnlen)strlen(i_cpfix), (ftnlen)strlen(i_cp));
 
     rpara = rb_float_new((double)o_rpara);
 
@@ -1760,7 +1763,7 @@ dcl_rtcxfl(obj, cpfix, cp)
     o_cval= ALLOCA_N(char, (DFLT_SIZE+1));
     memset(o_cval, '\0', DFLT_SIZE+1);
 
-    rtcxfl_(i_cpfix, i_cp, o_cval, (ftnlen)strlen(i_cpfix), (ftnlen)strlen(i_cp), (ftnlen)DFLT_SIZE);
+    rtcxfl__(i_cpfix, i_cp, o_cval, (ftnlen)strlen(i_cpfix), (ftnlen)strlen(i_cp), (ftnlen)DFLT_SIZE);
 
     cval = rb_str_new2(o_cval);
 
@@ -1784,7 +1787,7 @@ dcl_rlixfl(obj, cp)
     i_cp = StringValuePtr(cp);
 
 
-    rlixfl_(i_cp, &o_ipara, (ftnlen)strlen(i_cp));
+    rlixfl__(i_cp, &o_ipara, (ftnlen)strlen(i_cp));
 
     ipara = INT2NUM(o_ipara);
 
@@ -1808,7 +1811,7 @@ dcl_rllxfl(obj, cp)
     i_cp = StringValuePtr(cp);
 
 
-    rllxfl_(i_cp, &o_lpara, (ftnlen)strlen(i_cp));
+    rllxfl__(i_cp, &o_lpara, (ftnlen)strlen(i_cp));
 
     lpara = (o_lpara == FALSE_) ? Qfalse : Qtrue;
 
@@ -1832,7 +1835,7 @@ dcl_rlrxfl(obj, cp)
     i_cp = StringValuePtr(cp);
 
 
-    rlrxfl_(i_cp, &o_rpara, (ftnlen)strlen(i_cp));
+    rlrxfl__(i_cp, &o_rpara, (ftnlen)strlen(i_cp));
 
     rpara = rb_float_new((double)o_rpara);
 
@@ -1858,7 +1861,7 @@ dcl_rlcxfl(obj, cp)
     o_cval= ALLOCA_N(char, (DFLT_SIZE+1));
     memset(o_cval, '\0', DFLT_SIZE+1);
 
-    rlcxfl_(i_cp, o_cval, (ftnlen)strlen(i_cp), (ftnlen)DFLT_SIZE);
+    rlcxfl__(i_cp, o_cval, (ftnlen)strlen(i_cp), (ftnlen)DFLT_SIZE);
 
     cval = rb_str_new2(o_cval);
 
@@ -1880,7 +1883,7 @@ dcl_prcopn(obj, cproc)
     i_cproc = StringValuePtr(cproc);
 
 
-    prcopn_(i_cproc, (ftnlen)strlen(i_cproc));
+    prcopn__(i_cproc, (ftnlen)strlen(i_cproc));
 
     return Qnil;
 
@@ -1899,7 +1902,7 @@ dcl_prccls(obj, cproc)
     i_cproc = StringValuePtr(cproc);
 
 
-    prccls_(i_cproc, (ftnlen)strlen(i_cproc));
+    prccls__(i_cproc, (ftnlen)strlen(i_cproc));
 
     return Qnil;
 
@@ -1912,7 +1915,7 @@ dcl_prclvl(obj)
     integer o_nlev;
     VALUE nlev;
 
-    prclvl_(&o_nlev);
+    prclvl__(&o_nlev);
 
     nlev = INT2NUM(o_nlev);
 
@@ -1938,7 +1941,7 @@ dcl_prcnam(obj, nlev)
     o_cproc= ALLOCA_N(char, (DFLT_SIZE+1));
     memset(o_cproc, '\0', DFLT_SIZE+1);
 
-    prcnam_(&i_nlev, o_cproc, (ftnlen)DFLT_SIZE);
+    prcnam__(&i_nlev, o_cproc, (ftnlen)DFLT_SIZE);
 
     cproc = rb_str_new2(o_cproc);