ruby-dcl 1.8.1 → 1.8.2

data/ext/numru/grph1_swpack.c

@@ -4,7 +4,6 @@
 
 #include <stdio.h>
 #include "ruby.h"
-#include "libtinyf2c.h"
 #include "narray.h"
 #include "cdcl.h"
 
@@ -70,7 +69,7 @@ static VALUE
 dcl_swdopn(obj)
     VALUE obj;
 {
-    swdopn_();
+    swdopn__();
 
     return Qnil;
 
@@ -80,7 +79,7 @@ static VALUE
 dcl_swdcls(obj)
     VALUE obj;
 {
-    swdcls_();
+    swdcls__();
 
     return Qnil;
 
@@ -95,7 +94,7 @@ dcl_swqfcc(obj)
     logical o_lfcatr;
     VALUE lfcatr;
 
-    swqfcc_(&o_lfcatr);
+    swqfcc__(&o_lfcatr);
 
     lfcatr = (o_lfcatr == FALSE_) ? Qfalse : Qtrue;
 
@@ -115,7 +114,7 @@ dcl_swsfcm(obj)
     logical o_lfcmod;
     VALUE lfcmod;
 
-    swsfcm_(&o_lfcmod);
+    swsfcm__(&o_lfcmod);
 
     lfcmod = (o_lfcmod == FALSE_) ? Qfalse : Qtrue;
 
@@ -130,7 +129,7 @@ static VALUE
 dcl_swpopn(obj)
     VALUE obj;
 {
-    swpopn_();
+    swpopn__();
 
     return Qnil;
 
@@ -140,7 +139,7 @@ static VALUE
 dcl_swpcls(obj)
     VALUE obj;
 {
-    swpcls_();
+    swpcls__();
 
     return Qnil;
 
@@ -164,7 +163,7 @@ dcl_swoopn(obj, cobj, comm)
     i_comm = StringValuePtr(comm);
 
 
-    swoopn_(i_cobj, i_comm, (ftnlen)strlen(i_cobj), (ftnlen)strlen(i_comm));
+    swoopn__(i_cobj, i_comm, (ftnlen)strlen(i_cobj), (ftnlen)strlen(i_comm));
 
     return Qnil;
 
@@ -183,7 +182,7 @@ dcl_swocls(obj, cobj)
     i_cobj = StringValuePtr(cobj);
 
 
-    swocls_(i_cobj, (ftnlen)strlen(i_cobj));
+    swocls__(i_cobj, (ftnlen)strlen(i_cobj));
 
     return Qnil;
 
@@ -202,7 +201,7 @@ dcl_swswdi(obj, iwdidx)
     i_iwdidx = NUM2INT(iwdidx);
 
 
-    swswdi_(&i_iwdidx);
+    swswdi__(&i_iwdidx);
 
     return Qnil;
 
@@ -225,7 +224,7 @@ dcl_swscli(obj, iclidx, lfcatr)
     i_lfcatr = ((lfcatr == Qnil)||(lfcatr == Qfalse)) ? FALSE_ : TRUE_;
 
 
-    swscli_(&i_iclidx, &i_lfcatr);
+    swscli__(&i_iclidx, &i_lfcatr);
 
     return Qnil;
 
@@ -246,7 +245,7 @@ dcl_swscli(obj, iclidx)
     i_iclidx = NUM2INT(iclidx);
 
 
-    swscli_(&i_iclidx);
+    swscli__(&i_iclidx);
 
     return Qnil;
 
@@ -269,7 +268,7 @@ dcl_swslcl(obj, icolor)
     i_icolor = NUM2INT(icolor);
 
 
-    swslcl_(&i_icolor);
+    swslcl__(&i_icolor);
 
     return Qnil;
 
@@ -281,7 +280,7 @@ static VALUE
 dcl_swgopn(obj)
     VALUE obj;
 {
-    swgopn_();
+    swgopn__();
 
     return Qnil;
 
@@ -305,7 +304,7 @@ dcl_swgmov(obj, wx, wy)
     i_wy = (real)NUM2DBL(wy);
 
 
-    swgmov_(&i_wx, &i_wy);
+    swgmov__(&i_wx, &i_wy);
 
     return Qnil;
 
@@ -329,7 +328,7 @@ dcl_swgplt(obj, wx, wy)
     i_wy = (real)NUM2DBL(wy);
 
 
-    swgplt_(&i_wx, &i_wy);
+    swgplt__(&i_wx, &i_wy);
 
     return Qnil;
 
@@ -339,7 +338,7 @@ static VALUE
 dcl_swgcls(obj)
     VALUE obj;
 {
-    swgcls_();
+    swgcls__();
 
     return Qnil;
 
@@ -360,7 +359,7 @@ dcl_swstcl(obj, icolor)
     i_icolor = NUM2INT(icolor);
 
 
-    swstcl_(&i_icolor);
+    swstcl__(&i_icolor);
 
     return Qnil;
 
@@ -404,7 +403,7 @@ dcl_swgton(obj, np, wpx, wpy, itpat)
     i_wpy = dcl_obj2crealary(wpy);
 
 
-    swgton_(&i_np, i_wpx, i_wpy, &i_itpat);
+    swgton__(&i_np, i_wpx, i_wpy, &i_itpat);
 
     dcl_freecrealary(i_wpx);
     dcl_freecrealary(i_wpy);
@@ -481,7 +480,7 @@ dcl_swiopn(obj, iwx, iwy, imw, imh, wx1, wy1, wx2, wy2, wx3, wy3, wx4, wy4)
     i_wy4 = (real)NUM2DBL(wy4);
 
 
-    swiopn_(&i_iwx, &i_iwy, &i_imw, &i_imh, &i_wx1, &i_wy1, &i_wx2, &i_wy2, &i_wx3, &i_wy3, &i_wx4, &i_wy4);
+    swiopn__(&i_iwx, &i_iwy, &i_imw, &i_imh, &i_wx1, &i_wy1, &i_wx2, &i_wy2, &i_wx3, &i_wy3, &i_wx4, &i_wy4);
 
     return Qnil;
 
@@ -509,7 +508,7 @@ dcl_swidat(obj, image, nlen)
     i_image = dcl_obj2cintegerary(image);
 
 
-    swidat_(i_image, &i_nlen);
+    swidat__(i_image, &i_nlen);
 
     dcl_freecintegerary(i_image);
 
@@ -541,7 +540,7 @@ dcl_swiclr(obj, image, nlen)
     i_image = dcl_obj2cintegerary(image);
 
 
-    swiclr_(i_image, &i_nlen);
+    swiclr__(i_image, &i_nlen);
 
     dcl_freecintegerary(i_image);
 
@@ -555,7 +554,7 @@ static VALUE
 dcl_swicls(obj)
     VALUE obj;
 {
-    swicls_();
+    swicls__();
 
     return Qnil;
 
@@ -572,7 +571,7 @@ dcl_swqpnt(obj)
     VALUE wy;
     VALUE mb;
 
-    swqpnt_(&o_wx, &o_wy, &o_mb);
+    swqpnt__(&o_wx, &o_wy, &o_mb);
 
     wx = rb_float_new((double)o_wx);
     wy = rb_float_new((double)o_wy);
@@ -605,7 +604,7 @@ dcl_swfint(obj, wx, wy)
     i_wy = (real)NUM2DBL(wy);
 
 
-    swfint_(&i_wx, &i_wy, &o_iwx, &o_iwy);
+    swfint__(&i_wx, &i_wy, &o_iwx, &o_iwy);
 
     iwx = INT2NUM(o_iwx);
     iwy = INT2NUM(o_iwy);
@@ -637,7 +636,7 @@ dcl_swiint(obj, iwx, iwy)
     i_iwy = NUM2INT(iwy);
 
 
-    swiint_(&i_iwx, &i_iwy, &o_wx, &o_wy);
+    swiint__(&i_iwx, &i_iwy, &o_wx, &o_wy);
 
     wx = rb_float_new((double)o_wx);
     wy = rb_float_new((double)o_wy);
@@ -654,7 +653,7 @@ dcl_swqwdc(obj)
     logical o_lwdatr;
     VALUE lwdatr;
 
-    swqwdc_(&o_lwdatr);
+    swqwdc__(&o_lwdatr);
 
     lwdatr = (o_lwdatr == FALSE_) ? Qfalse : Qtrue;
 
@@ -670,7 +669,7 @@ dcl_swqclc(obj)
     logical o_lclatr;
     VALUE lclatr;
 
-    swqclc_(&o_lclatr);
+    swqclc__(&o_lclatr);
 
     lclatr = (o_lclatr == FALSE_) ? Qfalse : Qtrue;
 
@@ -686,7 +685,7 @@ dcl_swqtnc(obj)
     logical o_ltnatr;
     VALUE ltnatr;
 
-    swqtnc_(&o_ltnatr);
+    swqtnc__(&o_ltnatr);
 
     ltnatr = (o_ltnatr == FALSE_) ? Qfalse : Qtrue;
 
@@ -702,7 +701,7 @@ dcl_swqimc(obj)
     logical o_limatr;
     VALUE limatr;
 
-    swqimc_(&o_limatr);
+    swqimc__(&o_limatr);
 
     limatr = (o_limatr == FALSE_) ? Qfalse : Qtrue;
 
@@ -718,7 +717,7 @@ dcl_swqptc(obj)
     logical o_lptatr;
     VALUE lptatr;
 
-    swqptc_(&o_lptatr);
+    swqptc__(&o_lptatr);
 
     lptatr = (o_lptatr == FALSE_) ? Qfalse : Qtrue;
 
@@ -742,7 +741,7 @@ dcl_swqrct(obj)
     VALUE wsymx;
     VALUE fact;
 
-    swqrct_(&o_wsxmn, &o_wsxmx, &o_wsymn, &o_wsymx, &o_fact);
+    swqrct__(&o_wsxmn, &o_wsxmx, &o_wsymn, &o_wsymx, &o_fact);
 
     wsxmn = rb_float_new((double)o_wsxmn);
     wsxmx = rb_float_new((double)o_wsxmx);
@@ -768,7 +767,7 @@ dcl_swsrot(obj, iwtrot)
     i_iwtrot = NUM2INT(iwtrot);
 
 
-    swsrot_(&i_iwtrot);
+    swsrot__(&i_iwtrot);
 
     return Qnil;
 
@@ -780,7 +779,7 @@ static VALUE
 dcl_swclch(obj)
     VALUE obj;
 {
-    swclch_();
+    swclch__();
 
     return Qnil;
 
@@ -800,7 +799,7 @@ dcl_swslft(obj)
     o_fontname= ALLOCA_N(char, (DFLT_SIZE+1));
     memset(o_fontname, '\0', DFLT_SIZE+1);
 
-    swslft_(o_fontname, (ftnlen)DFLT_SIZE);
+    swslft__(o_fontname, (ftnlen)DFLT_SIZE);
 
     fontname = rb_str_new2(o_fontname);
 
@@ -817,7 +816,7 @@ static VALUE
 dcl_swlsft(obj)
     VALUE obj;
 {
-    swlsft_();
+    swlsft__();
 
     return Qnil;
 
@@ -831,7 +830,7 @@ static VALUE
 dcl_swflsh(obj)
     VALUE obj;
 {
-    swflsh_();
+    swflsh__();
 
     return Qnil;
 
@@ -846,7 +845,7 @@ dcl_swpqnp(obj)
     integer o_ncp;
     VALUE ncp;
 
-    swpqnp_(&o_ncp);
+    swpqnp__(&o_ncp);
 
     ncp = INT2NUM(o_ncp);
 
@@ -870,7 +869,7 @@ dcl_swpqid(obj, cp)
     i_cp = StringValuePtr(cp);
 
 
-    swpqid_(i_cp, &o_idx, (ftnlen)strlen(i_cp));
+    swpqid__(i_cp, &o_idx, (ftnlen)strlen(i_cp));
 
     idx = INT2NUM(o_idx);
 
@@ -896,7 +895,7 @@ dcl_swpqcp(obj, idx)
     o_cp= ALLOCA_N(char, (DFLT_SIZE+1));
     memset(o_cp, '\0', DFLT_SIZE+1);
 
-    swpqcp_(&i_idx, o_cp, (ftnlen)DFLT_SIZE);
+    swpqcp__(&i_idx, o_cp, (ftnlen)DFLT_SIZE);
 
     cp = rb_str_new2(o_cp);
 
@@ -922,7 +921,7 @@ dcl_swpqcl(obj, idx)
     o_cp= ALLOCA_N(char, (DFLT_SIZE+1));
     memset(o_cp, '\0', DFLT_SIZE+1);
 
-    swpqcl_(&i_idx, o_cp, (ftnlen)DFLT_SIZE);
+    swpqcl__(&i_idx, o_cp, (ftnlen)DFLT_SIZE);
 
     cp = rb_str_new2(o_cp);
 
@@ -946,7 +945,7 @@ dcl_swpqit(obj, idx)
     i_idx = NUM2INT(idx);
 
 
-    swpqit_(&i_idx, &o_itp);
+    swpqit__(&i_idx, &o_itp);
 
     itp = INT2NUM(o_itp);
 
@@ -970,7 +969,7 @@ dcl_swpqvl(obj, idx)
     i_idx = NUM2INT(idx);
 
 
-    swpqvl_(&i_idx, &o_ipara);
+    swpqvl__(&i_idx, &o_ipara);
 
     ipara = INT2NUM(o_ipara);
 
@@ -997,7 +996,7 @@ dcl_swpsvl(obj, idx, ipara)
     i_ipara = NUM2INT(ipara);
 
 
-    swpsvl_(&i_idx, &i_ipara);
+    swpsvl__(&i_idx, &i_ipara);
 
     return Qnil;
 
@@ -1018,7 +1017,7 @@ dcl_swpqin(obj, cp)
     i_cp = StringValuePtr(cp);
 
 
-    swpqin_(i_cp, &o_in, (ftnlen)strlen(i_cp));
+    swpqin__(i_cp, &o_in, (ftnlen)strlen(i_cp));
 
     in = INT2NUM(o_in);
 
@@ -1044,7 +1043,7 @@ dcl_swcget(obj, cp)
     o_cpara= ALLOCA_N(char, (DFLT_SIZE+1));
     memset(o_cpara, '\0', DFLT_SIZE+1);
 
-    swcget_(i_cp, o_cpara, (ftnlen)strlen(i_cp), (ftnlen)DFLT_SIZE);
+    swcget__(i_cp, o_cpara, (ftnlen)strlen(i_cp), (ftnlen)DFLT_SIZE);
 
     cpara = rb_str_new2(o_cpara);
 
@@ -1071,7 +1070,7 @@ dcl_swcset(obj, cp, cpara)
     i_cpara = StringValuePtr(cpara);
 
 
-    swcset_(i_cp, i_cpara, (ftnlen)strlen(i_cp), (ftnlen)strlen(i_cpara));
+    swcset__(i_cp, i_cpara, (ftnlen)strlen(i_cp), (ftnlen)strlen(i_cpara));
 
     return Qnil;
 
@@ -1095,7 +1094,7 @@ dcl_swcstx(obj, cp, cpara)
     i_cpara = StringValuePtr(cpara);
 
 
-    swcstx_(i_cp, i_cpara, (ftnlen)strlen(i_cp), (ftnlen)strlen(i_cpara));
+    swcstx__(i_cp, i_cpara, (ftnlen)strlen(i_cp), (ftnlen)strlen(i_cpara));
 
     return Qnil;
 
@@ -1118,7 +1117,7 @@ dcl_swqfnm(obj, cpara)
     o_cfname= ALLOCA_N(char, (DFLT_SIZE+1));
     memset(o_cfname, '\0', DFLT_SIZE+1);
 
-    swqfnm_(i_cpara, o_cfname, (ftnlen)strlen(i_cpara), (ftnlen)DFLT_SIZE);
+    swqfnm__(i_cpara, o_cfname, (ftnlen)strlen(i_cpara), (ftnlen)DFLT_SIZE);
 
     cfname = rb_str_new2(o_cfname);
 
@@ -1134,7 +1133,7 @@ dcl_swcqnp(obj)
     integer o_ncp;
     VALUE ncp;
 
-    swcqnp_(&o_ncp);
+    swcqnp__(&o_ncp);
 
     ncp = INT2NUM(o_ncp);
 
@@ -1158,7 +1157,7 @@ dcl_swcqid(obj, cp)
     i_cp = StringValuePtr(cp);
 
 
-    swcqid_(i_cp, &o_idx, (ftnlen)strlen(i_cp));
+    swcqid__(i_cp, &o_idx, (ftnlen)strlen(i_cp));
 
     idx = INT2NUM(o_idx);
 
@@ -1184,7 +1183,7 @@ dcl_swcqcp(obj, idx)
     o_cp= ALLOCA_N(char, (DFLT_SIZE+1));
     memset(o_cp, '\0', DFLT_SIZE+1);
 
-    swcqcp_(&i_idx, o_cp, (ftnlen)DFLT_SIZE);
+    swcqcp__(&i_idx, o_cp, (ftnlen)DFLT_SIZE);
 
     cp = rb_str_new2(o_cp);
 
@@ -1210,7 +1209,7 @@ dcl_swcqcl(obj, idx)
     o_cp= ALLOCA_N(char, (DFLT_SIZE+1));
     memset(o_cp, '\0', DFLT_SIZE+1);
 
-    swcqcl_(&i_idx, o_cp, (ftnlen)DFLT_SIZE);
+    swcqcl__(&i_idx, o_cp, (ftnlen)DFLT_SIZE);
 
     cp = rb_str_new2(o_cp);
 
@@ -1236,7 +1235,7 @@ dcl_swcqvl(obj, idx)
     o_cval= ALLOCA_N(char, (DFLT_SIZE+1));
     memset(o_cval, '\0', DFLT_SIZE+1);
 
-    swcqvl_(&i_idx, o_cval, (ftnlen)DFLT_SIZE);
+    swcqvl__(&i_idx, o_cval, (ftnlen)DFLT_SIZE);
 
     cval = rb_str_new2(o_cval);
 
@@ -1263,7 +1262,7 @@ dcl_swcsvl(obj, idx, cval)
     i_cval = StringValuePtr(cval);
 
 
-    swcsvl_(&i_idx, i_cval, (ftnlen)strlen(i_cval));
+    swcsvl__(&i_idx, i_cval, (ftnlen)strlen(i_cval));
 
     return Qnil;
 
@@ -1284,7 +1283,7 @@ dcl_swcqin(obj, cp)
     i_cp = StringValuePtr(cp);
 
 
-    swcqin_(i_cp, &o_in, (ftnlen)strlen(i_cp));
+    swcqin__(i_cp, &o_in, (ftnlen)strlen(i_cp));
 
     in = INT2NUM(o_in);
 
@@ -1308,7 +1307,7 @@ dcl_swiget(obj, cp)
     i_cp = StringValuePtr(cp);
 
 
-    swiget_(i_cp, &o_ipara, (ftnlen)strlen(i_cp));
+    swiget__(i_cp, &o_ipara, (ftnlen)strlen(i_cp));
 
     ipara = INT2NUM(o_ipara);
 
@@ -1335,7 +1334,7 @@ dcl_swiset(obj, cp, ipara)
     i_ipara = NUM2INT(ipara);
 
 
-    swiset_(i_cp, &i_ipara, (ftnlen)strlen(i_cp));
+    swiset__(i_cp, &i_ipara, (ftnlen)strlen(i_cp));
 
     return Qnil;
 
@@ -1359,7 +1358,7 @@ dcl_swistx(obj, cp, ipara)
     i_ipara = NUM2INT(ipara);
 
 
-    swistx_(i_cp, &i_ipara, (ftnlen)strlen(i_cp));
+    swistx__(i_cp, &i_ipara, (ftnlen)strlen(i_cp));
 
     return Qnil;
 
@@ -1372,7 +1371,7 @@ dcl_swiqnp(obj)
     integer o_ncp;
     VALUE ncp;
 
-    swiqnp_(&o_ncp);
+    swiqnp__(&o_ncp);
 
     ncp = INT2NUM(o_ncp);
 
@@ -1396,7 +1395,7 @@ dcl_swiqid(obj, cp)
     i_cp = StringValuePtr(cp);
 
 
-    swiqid_(i_cp, &o_idx, (ftnlen)strlen(i_cp));
+    swiqid__(i_cp, &o_idx, (ftnlen)strlen(i_cp));
 
     idx = INT2NUM(o_idx);
 
@@ -1422,7 +1421,7 @@ dcl_swiqcp(obj, idx)
     o_cp= ALLOCA_N(char, (DFLT_SIZE+1));
     memset(o_cp, '\0', DFLT_SIZE+1);
 
-    swiqcp_(&i_idx, o_cp, (ftnlen)DFLT_SIZE);
+    swiqcp__(&i_idx, o_cp, (ftnlen)DFLT_SIZE);
 
     cp = rb_str_new2(o_cp);
 
@@ -1448,7 +1447,7 @@ dcl_swiqcl(obj, idx)
     o_cp= ALLOCA_N(char, (DFLT_SIZE+1));
     memset(o_cp, '\0', DFLT_SIZE+1);
 
-    swiqcl_(&i_idx, o_cp, (ftnlen)DFLT_SIZE);
+    swiqcl__(&i_idx, o_cp, (ftnlen)DFLT_SIZE);
 
     cp = rb_str_new2(o_cp);
 
@@ -1472,7 +1471,7 @@ dcl_swiqvl(obj, idx)
     i_idx = NUM2INT(idx);
 
 
-    swiqvl_(&i_idx, &o_ipara);
+    swiqvl__(&i_idx, &o_ipara);
 
     ipara = INT2NUM(o_ipara);
 
@@ -1499,7 +1498,7 @@ dcl_swisvl(obj, idx, ipara)
     i_ipara = NUM2INT(ipara);
 
 
-    swisvl_(&i_idx, &i_ipara);
+    swisvl__(&i_idx, &i_ipara);
 
     return Qnil;
 
@@ -1520,7 +1519,7 @@ dcl_swiqin(obj, cp)
     i_cp = StringValuePtr(cp);
 
 
-    swiqin_(i_cp, &o_in, (ftnlen)strlen(i_cp));
+    swiqin__(i_cp, &o_in, (ftnlen)strlen(i_cp));
 
     in = INT2NUM(o_in);
 
@@ -1544,7 +1543,7 @@ dcl_swlget(obj, cp)
     i_cp = StringValuePtr(cp);
 
 
-    swlget_(i_cp, &o_lpara, (ftnlen)strlen(i_cp));
+    swlget__(i_cp, &o_lpara, (ftnlen)strlen(i_cp));
 
     lpara = (o_lpara == FALSE_) ? Qfalse : Qtrue;
 
@@ -1568,7 +1567,7 @@ dcl_swlset(obj, cp, lpara)
     i_lpara = ((lpara == Qnil)||(lpara == Qfalse)) ? FALSE_ : TRUE_;
 
 
-    swlset_(i_cp, &i_lpara, (ftnlen)strlen(i_cp));
+    swlset__(i_cp, &i_lpara, (ftnlen)strlen(i_cp));
 
     return Qnil;
 
@@ -1589,7 +1588,7 @@ dcl_swlstx(obj, cp, lpara)
     i_lpara = ((lpara == Qnil)||(lpara == Qfalse)) ? FALSE_ : TRUE_;
 
 
-    swlstx_(i_cp, &i_lpara, (ftnlen)strlen(i_cp));
+    swlstx__(i_cp, &i_lpara, (ftnlen)strlen(i_cp));
 
     return Qnil;
 
@@ -1602,7 +1601,7 @@ dcl_swlqnp(obj)
     integer o_ncp;
     VALUE ncp;
 
-    swlqnp_(&o_ncp);
+    swlqnp__(&o_ncp);
 
     ncp = INT2NUM(o_ncp);
 
@@ -1626,7 +1625,7 @@ dcl_swlqid(obj, cp)
     i_cp = StringValuePtr(cp);
 
 
-    swlqid_(i_cp, &o_idx, (ftnlen)strlen(i_cp));
+    swlqid__(i_cp, &o_idx, (ftnlen)strlen(i_cp));
 
     idx = INT2NUM(o_idx);
 
@@ -1652,7 +1651,7 @@ dcl_swlqcp(obj, idx)
     o_cp= ALLOCA_N(char, (DFLT_SIZE+1));
     memset(o_cp, '\0', DFLT_SIZE+1);
 
-    swlqcp_(&i_idx, o_cp, (ftnlen)DFLT_SIZE);
+    swlqcp__(&i_idx, o_cp, (ftnlen)DFLT_SIZE);
 
     cp = rb_str_new2(o_cp);
 
@@ -1678,7 +1677,7 @@ dcl_swlqcl(obj, idx)
     o_cp= ALLOCA_N(char, (DFLT_SIZE+1));
     memset(o_cp, '\0', DFLT_SIZE+1);
 
-    swlqcl_(&i_idx, o_cp, (ftnlen)DFLT_SIZE);
+    swlqcl__(&i_idx, o_cp, (ftnlen)DFLT_SIZE);
 
     cp = rb_str_new2(o_cp);
 
@@ -1702,7 +1701,7 @@ dcl_swlqvl(obj, idx)
     i_idx = NUM2INT(idx);
 
 
-    swlqvl_(&i_idx, &o_lpara);
+    swlqvl__(&i_idx, &o_lpara);
 
     lpara = (o_lpara == FALSE_) ? Qfalse : Qtrue;
 
@@ -1726,7 +1725,7 @@ dcl_swlsvl(obj, idx, lpara)
     i_lpara = ((lpara == Qnil)||(lpara == Qfalse)) ? FALSE_ : TRUE_;
 
 
-    swlsvl_(&i_idx, &i_lpara);
+    swlsvl__(&i_idx, &i_lpara);
 
     return Qnil;
 
@@ -1747,7 +1746,7 @@ dcl_swlqin(obj, cp)
     i_cp = StringValuePtr(cp);
 
 
-    swlqin_(i_cp, &o_in, (ftnlen)strlen(i_cp));
+    swlqin__(i_cp, &o_in, (ftnlen)strlen(i_cp));
 
     in = INT2NUM(o_in);
 
@@ -1771,7 +1770,7 @@ dcl_swrget(obj, cp)
     i_cp = StringValuePtr(cp);
 
 
-    swrget_(i_cp, &o_rpara, (ftnlen)strlen(i_cp));
+    swrget__(i_cp, &o_rpara, (ftnlen)strlen(i_cp));
 
     rpara = rb_float_new((double)o_rpara);
 
@@ -1798,7 +1797,7 @@ dcl_swrset(obj, cp, rpara)
     i_rpara = (real)NUM2DBL(rpara);
 
 
-    swrset_(i_cp, &i_rpara, (ftnlen)strlen(i_cp));
+    swrset__(i_cp, &i_rpara, (ftnlen)strlen(i_cp));
 
     return Qnil;
 
@@ -1822,7 +1821,7 @@ dcl_swrstx(obj, cp, rpara)
     i_rpara = (real)NUM2DBL(rpara);
 
 
-    swrstx_(i_cp, &i_rpara, (ftnlen)strlen(i_cp));
+    swrstx__(i_cp, &i_rpara, (ftnlen)strlen(i_cp));
 
     return Qnil;
 
@@ -1835,7 +1834,7 @@ dcl_swrqnp(obj)
     integer o_ncp;
     VALUE ncp;
 
-    swrqnp_(&o_ncp);
+    swrqnp__(&o_ncp);
 
     ncp = INT2NUM(o_ncp);
 
@@ -1859,7 +1858,7 @@ dcl_swrqid(obj, cp)
     i_cp = StringValuePtr(cp);
 
 
-    swrqid_(i_cp, &o_idx, (ftnlen)strlen(i_cp));
+    swrqid__(i_cp, &o_idx, (ftnlen)strlen(i_cp));
 
     idx = INT2NUM(o_idx);
 
@@ -1885,7 +1884,7 @@ dcl_swrqcp(obj, idx)
     o_cp= ALLOCA_N(char, (DFLT_SIZE+1));
     memset(o_cp, '\0', DFLT_SIZE+1);
 
-    swrqcp_(&i_idx, o_cp, (ftnlen)DFLT_SIZE);
+    swrqcp__(&i_idx, o_cp, (ftnlen)DFLT_SIZE);
 
     cp = rb_str_new2(o_cp);
 
@@ -1911,7 +1910,7 @@ dcl_swrqcl(obj, idx)
     o_cp= ALLOCA_N(char, (DFLT_SIZE+1));
     memset(o_cp, '\0', DFLT_SIZE+1);
 
-    swrqcl_(&i_idx, o_cp, (ftnlen)DFLT_SIZE);
+    swrqcl__(&i_idx, o_cp, (ftnlen)DFLT_SIZE);
 
     cp = rb_str_new2(o_cp);
 
@@ -1935,7 +1934,7 @@ dcl_swrqvl(obj, idx)
     i_idx = NUM2INT(idx);
 
 
-    swrqvl_(&i_idx, &o_rpara);
+    swrqvl__(&i_idx, &o_rpara);
 
     rpara = rb_float_new((double)o_rpara);
 
@@ -1962,7 +1961,7 @@ dcl_swrsvl(obj, idx, rpara)
     i_rpara = (real)NUM2DBL(rpara);
 
 
-    swrsvl_(&i_idx, &i_rpara);
+    swrsvl__(&i_idx, &i_rpara);
 
     return Qnil;
 
@@ -1983,7 +1982,7 @@ dcl_swrqin(obj, cp)
     i_cp = StringValuePtr(cp);
 
 
-    swrqin_(i_cp, &o_in, (ftnlen)strlen(i_cp));
+    swrqin__(i_cp, &o_in, (ftnlen)strlen(i_cp));
 
     in = INT2NUM(o_in);
 
@@ -1998,7 +1997,7 @@ static VALUE
 dcl_swcmll(obj)
     VALUE obj;
 {
-    swcmll_();
+    swcmll__();
 
     return Qnil;
 
@@ -2015,7 +2014,7 @@ dcl_swqcmn(obj)
     integer o_nn;
     VALUE nn;
 
-    swqcmn_(&o_nn);
+    swqcmn__(&o_nn);
 
     nn = INT2NUM(o_nn);
 
@@ -2045,7 +2044,7 @@ dcl_swqcmf(obj, ntx)
     o_ctf= ALLOCA_N(char, (DFLT_SIZE+1));
     memset(o_ctf, '\0', DFLT_SIZE+1);
 
-    swqcmf_(&i_ntx, o_ctf, (ftnlen)DFLT_SIZE);
+    swqcmf__(&i_ntx, o_ctf, (ftnlen)DFLT_SIZE);
 
     ctf = rb_str_new2(o_ctf);
 
@@ -2075,7 +2074,7 @@ dcl_swqcmd(obj, ntx)
     o_ctd= ALLOCA_N(char, (DFLT_SIZE+1));
     memset(o_ctd, '\0', DFLT_SIZE+1);
 
-    swqcmd_(&i_ntx, o_ctd, (ftnlen)DFLT_SIZE);
+    swqcmd__(&i_ntx, o_ctd, (ftnlen)DFLT_SIZE);
 
     ctd = rb_str_new2(o_ctd);