ruby-dcl 1.7.1 → 1.8.2

data/ext/numru/grph1_swpack.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 *);
@@ -66,7 +69,7 @@ static VALUE
 dcl_swdopn(obj)
     VALUE obj;
 {
-    swdopn_();
+    swdopn__();
 
     return Qnil;
 
@@ -76,7 +79,7 @@ static VALUE
 dcl_swdcls(obj)
     VALUE obj;
 {
-    swdcls_();
+    swdcls__();
 
     return Qnil;
 
@@ -91,7 +94,7 @@ dcl_swqfcc(obj)
     logical o_lfcatr;
     VALUE lfcatr;
 
-    swqfcc_(&o_lfcatr);
+    swqfcc__(&o_lfcatr);
 
     lfcatr = (o_lfcatr == FALSE_) ? Qfalse : Qtrue;
 
@@ -111,7 +114,7 @@ dcl_swsfcm(obj)
     logical o_lfcmod;
     VALUE lfcmod;
 
-    swsfcm_(&o_lfcmod);
+    swsfcm__(&o_lfcmod);
 
     lfcmod = (o_lfcmod == FALSE_) ? Qfalse : Qtrue;
 
@@ -126,7 +129,7 @@ static VALUE
 dcl_swpopn(obj)
     VALUE obj;
 {
-    swpopn_();
+    swpopn__();
 
     return Qnil;
 
@@ -136,7 +139,7 @@ static VALUE
 dcl_swpcls(obj)
     VALUE obj;
 {
-    swpcls_();
+    swpcls__();
 
     return Qnil;
 
@@ -160,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;
 
@@ -179,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;
 
@@ -198,7 +201,7 @@ dcl_swswdi(obj, iwdidx)
     i_iwdidx = NUM2INT(iwdidx);
 
 
-    swswdi_(&i_iwdidx);
+    swswdi__(&i_iwdidx);
 
     return Qnil;
 
@@ -221,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;
 
@@ -242,7 +245,7 @@ dcl_swscli(obj, iclidx)
     i_iclidx = NUM2INT(iclidx);
 
 
-    swscli_(&i_iclidx);
+    swscli__(&i_iclidx);
 
     return Qnil;
 
@@ -265,7 +268,7 @@ dcl_swslcl(obj, icolor)
     i_icolor = NUM2INT(icolor);
 
 
-    swslcl_(&i_icolor);
+    swslcl__(&i_icolor);
 
     return Qnil;
 
@@ -277,7 +280,7 @@ static VALUE
 dcl_swgopn(obj)
     VALUE obj;
 {
-    swgopn_();
+    swgopn__();
 
     return Qnil;
 
@@ -301,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;
 
@@ -325,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;
 
@@ -335,7 +338,7 @@ static VALUE
 dcl_swgcls(obj)
     VALUE obj;
 {
-    swgcls_();
+    swgcls__();
 
     return Qnil;
 
@@ -356,7 +359,7 @@ dcl_swstcl(obj, icolor)
     i_icolor = NUM2INT(icolor);
 
 
-    swstcl_(&i_icolor);
+    swstcl__(&i_icolor);
 
     return Qnil;
 
@@ -400,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);
@@ -477,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;
 
@@ -505,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);
 
@@ -537,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);
 
@@ -551,7 +554,7 @@ static VALUE
 dcl_swicls(obj)
     VALUE obj;
 {
-    swicls_();
+    swicls__();
 
     return Qnil;
 
@@ -568,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);
@@ -601,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);
@@ -633,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);
@@ -650,7 +653,7 @@ dcl_swqwdc(obj)
     logical o_lwdatr;
     VALUE lwdatr;
 
-    swqwdc_(&o_lwdatr);
+    swqwdc__(&o_lwdatr);
 
     lwdatr = (o_lwdatr == FALSE_) ? Qfalse : Qtrue;
 
@@ -666,7 +669,7 @@ dcl_swqclc(obj)
     logical o_lclatr;
     VALUE lclatr;
 
-    swqclc_(&o_lclatr);
+    swqclc__(&o_lclatr);
 
     lclatr = (o_lclatr == FALSE_) ? Qfalse : Qtrue;
 
@@ -682,7 +685,7 @@ dcl_swqtnc(obj)
     logical o_ltnatr;
     VALUE ltnatr;
 
-    swqtnc_(&o_ltnatr);
+    swqtnc__(&o_ltnatr);
 
     ltnatr = (o_ltnatr == FALSE_) ? Qfalse : Qtrue;
 
@@ -698,7 +701,7 @@ dcl_swqimc(obj)
     logical o_limatr;
     VALUE limatr;
 
-    swqimc_(&o_limatr);
+    swqimc__(&o_limatr);
 
     limatr = (o_limatr == FALSE_) ? Qfalse : Qtrue;
 
@@ -714,7 +717,7 @@ dcl_swqptc(obj)
     logical o_lptatr;
     VALUE lptatr;
 
-    swqptc_(&o_lptatr);
+    swqptc__(&o_lptatr);
 
     lptatr = (o_lptatr == FALSE_) ? Qfalse : Qtrue;
 
@@ -738,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);
@@ -764,7 +767,7 @@ dcl_swsrot(obj, iwtrot)
     i_iwtrot = NUM2INT(iwtrot);
 
 
-    swsrot_(&i_iwtrot);
+    swsrot__(&i_iwtrot);
 
     return Qnil;
 
@@ -776,7 +779,58 @@ static VALUE
 dcl_swclch(obj)
     VALUE obj;
 {
-    swclch_();
+    swclch__();
+
+    return Qnil;
+
+}
+
+#endif
+
+#if DCLVER >= 700
+
+static VALUE
+dcl_swslft(obj)
+    VALUE obj;
+{
+    char *o_fontname;
+    VALUE fontname;
+
+    o_fontname= ALLOCA_N(char, (DFLT_SIZE+1));
+    memset(o_fontname, '\0', DFLT_SIZE+1);
+
+    swslft__(o_fontname, (ftnlen)DFLT_SIZE);
+
+    fontname = rb_str_new2(o_fontname);
+
+
+    return fontname;
+
+}
+
+#endif
+
+#if DCLVER >= 700
+
+static VALUE
+dcl_swlsft(obj)
+    VALUE obj;
+{
+    swlsft__();
+
+    return Qnil;
+
+}
+
+#endif
+
+#if DCLVER >= 700
+
+static VALUE
+dcl_swflsh(obj)
+    VALUE obj;
+{
+    swflsh__();
 
     return Qnil;
 
@@ -791,7 +845,7 @@ dcl_swpqnp(obj)
     integer o_ncp;
     VALUE ncp;
 
-    swpqnp_(&o_ncp);
+    swpqnp__(&o_ncp);
 
     ncp = INT2NUM(o_ncp);
 
@@ -815,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);
 
@@ -841,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);
 
@@ -867,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);
 
@@ -891,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);
 
@@ -915,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);
 
@@ -942,7 +996,7 @@ dcl_swpsvl(obj, idx, ipara)
     i_ipara = NUM2INT(ipara);
 
 
-    swpsvl_(&i_idx, &i_ipara);
+    swpsvl__(&i_idx, &i_ipara);
 
     return Qnil;
 
@@ -963,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);
 
@@ -989,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);
 
@@ -1016,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;
 
@@ -1040,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;
 
@@ -1063,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);
 
@@ -1079,7 +1133,7 @@ dcl_swcqnp(obj)
     integer o_ncp;
     VALUE ncp;
 
-    swcqnp_(&o_ncp);
+    swcqnp__(&o_ncp);
 
     ncp = INT2NUM(o_ncp);
 
@@ -1103,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);
 
@@ -1129,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);
 
@@ -1155,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);
 
@@ -1181,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);
 
@@ -1208,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;
 
@@ -1229,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);
 
@@ -1253,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);
 
@@ -1280,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;
 
@@ -1304,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;
 
@@ -1317,7 +1371,7 @@ dcl_swiqnp(obj)
     integer o_ncp;
     VALUE ncp;
 
-    swiqnp_(&o_ncp);
+    swiqnp__(&o_ncp);
 
     ncp = INT2NUM(o_ncp);
 
@@ -1341,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);
 
@@ -1367,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);
 
@@ -1393,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);
 
@@ -1417,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);
 
@@ -1444,7 +1498,7 @@ dcl_swisvl(obj, idx, ipara)
     i_ipara = NUM2INT(ipara);
 
 
-    swisvl_(&i_idx, &i_ipara);
+    swisvl__(&i_idx, &i_ipara);
 
     return Qnil;
 
@@ -1465,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);
 
@@ -1489,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;
 
@@ -1513,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;
 
@@ -1534,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;
 
@@ -1547,7 +1601,7 @@ dcl_swlqnp(obj)
     integer o_ncp;
     VALUE ncp;
 
-    swlqnp_(&o_ncp);
+    swlqnp__(&o_ncp);
 
     ncp = INT2NUM(o_ncp);
 
@@ -1571,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);
 
@@ -1597,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);
 
@@ -1623,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);
 
@@ -1647,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;
 
@@ -1671,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;
 
@@ -1692,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);
 
@@ -1716,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);
 
@@ -1743,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;
 
@@ -1767,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;
 
@@ -1780,7 +1834,7 @@ dcl_swrqnp(obj)
     integer o_ncp;
     VALUE ncp;
 
-    swrqnp_(&o_ncp);
+    swrqnp__(&o_ncp);
 
     ncp = INT2NUM(o_ncp);
 
@@ -1804,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);
 
@@ -1830,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);
 
@@ -1856,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);
 
@@ -1880,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);
 
@@ -1907,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;
 
@@ -1928,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);
 
@@ -1943,7 +1997,7 @@ static VALUE
 dcl_swcmll(obj)
     VALUE obj;
 {
-    swcmll_();
+    swcmll__();
 
     return Qnil;
 
@@ -1960,7 +2014,7 @@ dcl_swqcmn(obj)
     integer o_nn;
     VALUE nn;
 
-    swqcmn_(&o_nn);
+    swqcmn__(&o_nn);
 
     nn = INT2NUM(o_nn);
 
@@ -1990,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);
 
@@ -2020,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);
 
@@ -2080,6 +2134,15 @@ VALUE mDCL;
     rb_define_module_function(mDCL, "swsrot", dcl_swsrot, 1);
 #if DCLVER >= 544
     rb_define_module_function(mDCL, "swclch", dcl_swclch, 0);
+#endif
+#if DCLVER >= 700
+    rb_define_module_function(mDCL, "swslft", dcl_swslft, 0);
+#endif
+#if DCLVER >= 700
+    rb_define_module_function(mDCL, "swlsft", dcl_swlsft, 0);
+#endif
+#if DCLVER >= 700
+    rb_define_module_function(mDCL, "swflsh", dcl_swflsh, 0);
 #endif
     rb_define_module_function(mDCL, "swpqnp", dcl_swpqnp, 0);
     rb_define_module_function(mDCL, "swpqid", dcl_swpqid, 1);