ruby-dcl 1.7.1 → 1.8.2

data/ext/numru/grph2_ulpack.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 *);
@@ -85,7 +88,7 @@ dcl_ulxlog(obj, cside, nlbl, nticks)
     i_nticks = NUM2INT(nticks);
 
 
-    ulxlog_(i_cside, &i_nlbl, &i_nticks, (ftnlen)strlen(i_cside));
+    ulxlog__(i_cside, &i_nlbl, &i_nticks, (ftnlen)strlen(i_cside));
 
     return Qnil;
 
@@ -114,7 +117,7 @@ dcl_ulylog(obj, cside, nlbl, nticks)
     i_nticks = NUM2INT(nticks);
 
 
-    ulylog_(i_cside, &i_nlbl, &i_nticks, (ftnlen)strlen(i_cside));
+    ulylog__(i_cside, &i_nlbl, &i_nticks, (ftnlen)strlen(i_cside));
 
     return Qnil;
 
@@ -138,7 +141,7 @@ dcl_ulxlbl(obj, inum)
 
     o_bl= ALLOCA_N(real, (o_nbl));
 
-    ulxlbl_(o_bl, &o_nbl, &i_inum);
+    ulxlbl__(o_bl, &o_nbl, &i_inum);
 
     {int array_shape[1] = {o_nbl};
      bl = dcl_crealary2obj(o_bl, (o_nbl), 1, array_shape);
@@ -172,7 +175,7 @@ dcl_ulsxbl(obj, bl, nbl)
     i_bl = dcl_obj2crealary(bl);
 
 
-    ulsxbl_(i_bl, &i_nbl);
+    ulsxbl__(i_bl, &i_nbl);
 
     dcl_freecrealary(i_bl);
 
@@ -191,7 +194,7 @@ dcl_ulqxbl(obj)
 
     o_bl= ALLOCA_N(real, (o_nbl));
 
-    ulqxbl_(o_bl, &o_nbl);
+    ulqxbl__(o_bl, &o_nbl);
 
     {int array_shape[1] = {o_nbl};
      bl = dcl_crealary2obj(o_bl, (o_nbl), 1, array_shape);
@@ -221,7 +224,7 @@ dcl_ulylbl(obj, inum)
 
     o_bl= ALLOCA_N(real, (o_nbl));
 
-    ulylbl_(o_bl, &o_nbl, &i_inum);
+    ulylbl__(o_bl, &o_nbl, &i_inum);
 
     {int array_shape[1] = {o_nbl};
      bl = dcl_crealary2obj(o_bl, (o_nbl), 1, array_shape);
@@ -255,7 +258,7 @@ dcl_ulsybl(obj, bl, nbl)
     i_bl = dcl_obj2crealary(bl);
 
 
-    ulsybl_(i_bl, &i_nbl);
+    ulsybl__(i_bl, &i_nbl);
 
     dcl_freecrealary(i_bl);
 
@@ -274,7 +277,7 @@ dcl_ulqybl(obj)
 
     o_bl= ALLOCA_N(real, (o_nbl));
 
-    ulqybl_(o_bl, &o_nbl);
+    ulqybl__(o_bl, &o_nbl);
 
     {int array_shape[1] = {o_nbl};
      bl = dcl_crealary2obj(o_bl, (o_nbl), 1, array_shape);
@@ -293,7 +296,7 @@ dcl_ulpqnp(obj)
     integer o_ncp;
     VALUE ncp;
 
-    ulpqnp_(&o_ncp);
+    ulpqnp__(&o_ncp);
 
     ncp = INT2NUM(o_ncp);
 
@@ -317,7 +320,7 @@ dcl_ulpqid(obj, cp)
     i_cp = StringValuePtr(cp);
 
 
-    ulpqid_(i_cp, &o_idx, (ftnlen)strlen(i_cp));
+    ulpqid__(i_cp, &o_idx, (ftnlen)strlen(i_cp));
 
     idx = INT2NUM(o_idx);
 
@@ -343,7 +346,7 @@ dcl_ulpqcp(obj, idx)
     o_cp= ALLOCA_N(char, (DFLT_SIZE+1));
     memset(o_cp, '\0', DFLT_SIZE+1);
 
-    ulpqcp_(&i_idx, o_cp, (ftnlen)DFLT_SIZE);
+    ulpqcp__(&i_idx, o_cp, (ftnlen)DFLT_SIZE);
 
     cp = rb_str_new2(o_cp);
 
@@ -369,7 +372,7 @@ dcl_ulpqcl(obj, idx)
     o_cp= ALLOCA_N(char, (DFLT_SIZE+1));
     memset(o_cp, '\0', DFLT_SIZE+1);
 
-    ulpqcl_(&i_idx, o_cp, (ftnlen)DFLT_SIZE);
+    ulpqcl__(&i_idx, o_cp, (ftnlen)DFLT_SIZE);
 
     cp = rb_str_new2(o_cp);
 
@@ -393,7 +396,7 @@ dcl_ulpqit(obj, idx)
     i_idx = NUM2INT(idx);
 
 
-    ulpqit_(&i_idx, &o_itp);
+    ulpqit__(&i_idx, &o_itp);
 
     itp = INT2NUM(o_itp);
 
@@ -417,7 +420,7 @@ dcl_ulpqvl(obj, idx)
     i_idx = NUM2INT(idx);
 
 
-    ulpqvl_(&i_idx, &o_ipara);
+    ulpqvl__(&i_idx, &o_ipara);
 
     ipara = INT2NUM(o_ipara);
 
@@ -444,7 +447,7 @@ dcl_ulpsvl(obj, idx, ipara)
     i_ipara = NUM2INT(ipara);
 
 
-    ulpsvl_(&i_idx, &i_ipara);
+    ulpsvl__(&i_idx, &i_ipara);
 
     return Qnil;
 
@@ -465,7 +468,7 @@ dcl_ulpqin(obj, cp)
     i_cp = StringValuePtr(cp);
 
 
-    ulpqin_(i_cp, &o_in, (ftnlen)strlen(i_cp));
+    ulpqin__(i_cp, &o_in, (ftnlen)strlen(i_cp));
 
     in = INT2NUM(o_in);
 
@@ -489,7 +492,7 @@ dcl_uliget(obj, cp)
     i_cp = StringValuePtr(cp);
 
 
-    uliget_(i_cp, &o_ipara, (ftnlen)strlen(i_cp));
+    uliget__(i_cp, &o_ipara, (ftnlen)strlen(i_cp));
 
     ipara = INT2NUM(o_ipara);
 
@@ -516,7 +519,7 @@ dcl_uliset(obj, cp, ipara)
     i_ipara = NUM2INT(ipara);
 
 
-    uliset_(i_cp, &i_ipara, (ftnlen)strlen(i_cp));
+    uliset__(i_cp, &i_ipara, (ftnlen)strlen(i_cp));
 
     return Qnil;
 
@@ -540,7 +543,7 @@ dcl_ulistx(obj, cp, ipara)
     i_ipara = NUM2INT(ipara);
 
 
-    ulistx_(i_cp, &i_ipara, (ftnlen)strlen(i_cp));
+    ulistx__(i_cp, &i_ipara, (ftnlen)strlen(i_cp));
 
     return Qnil;
 
@@ -553,7 +556,7 @@ dcl_uliqnp(obj)
     integer o_ncp;
     VALUE ncp;
 
-    uliqnp_(&o_ncp);
+    uliqnp__(&o_ncp);
 
     ncp = INT2NUM(o_ncp);
 
@@ -577,7 +580,7 @@ dcl_uliqid(obj, cp)
     i_cp = StringValuePtr(cp);
 
 
-    uliqid_(i_cp, &o_idx, (ftnlen)strlen(i_cp));
+    uliqid__(i_cp, &o_idx, (ftnlen)strlen(i_cp));
 
     idx = INT2NUM(o_idx);
 
@@ -603,7 +606,7 @@ dcl_uliqcp(obj, idx)
     o_cp= ALLOCA_N(char, (DFLT_SIZE+1));
     memset(o_cp, '\0', DFLT_SIZE+1);
 
-    uliqcp_(&i_idx, o_cp, (ftnlen)DFLT_SIZE);
+    uliqcp__(&i_idx, o_cp, (ftnlen)DFLT_SIZE);
 
     cp = rb_str_new2(o_cp);
 
@@ -629,7 +632,7 @@ dcl_uliqcl(obj, idx)
     o_cp= ALLOCA_N(char, (DFLT_SIZE+1));
     memset(o_cp, '\0', DFLT_SIZE+1);
 
-    uliqcl_(&i_idx, o_cp, (ftnlen)DFLT_SIZE);
+    uliqcl__(&i_idx, o_cp, (ftnlen)DFLT_SIZE);
 
     cp = rb_str_new2(o_cp);
 
@@ -653,7 +656,7 @@ dcl_uliqvl(obj, idx)
     i_idx = NUM2INT(idx);
 
 
-    uliqvl_(&i_idx, &o_ipara);
+    uliqvl__(&i_idx, &o_ipara);
 
     ipara = INT2NUM(o_ipara);
 
@@ -680,7 +683,7 @@ dcl_ulisvl(obj, idx, ipara)
     i_ipara = NUM2INT(ipara);
 
 
-    ulisvl_(&i_idx, &i_ipara);
+    ulisvl__(&i_idx, &i_ipara);
 
     return Qnil;
 
@@ -701,7 +704,7 @@ dcl_uliqin(obj, cp)
     i_cp = StringValuePtr(cp);
 
 
-    uliqin_(i_cp, &o_in, (ftnlen)strlen(i_cp));
+    uliqin__(i_cp, &o_in, (ftnlen)strlen(i_cp));
 
     in = INT2NUM(o_in);
 
@@ -725,7 +728,7 @@ dcl_ullget(obj, cp)
     i_cp = StringValuePtr(cp);
 
 
-    ullget_(i_cp, &o_lpara, (ftnlen)strlen(i_cp));
+    ullget__(i_cp, &o_lpara, (ftnlen)strlen(i_cp));
 
     lpara = (o_lpara == FALSE_) ? Qfalse : Qtrue;
 
@@ -749,7 +752,7 @@ dcl_ullset(obj, cp, lpara)
     i_lpara = ((lpara == Qnil)||(lpara == Qfalse)) ? FALSE_ : TRUE_;
 
 
-    ullset_(i_cp, &i_lpara, (ftnlen)strlen(i_cp));
+    ullset__(i_cp, &i_lpara, (ftnlen)strlen(i_cp));
 
     return Qnil;
 
@@ -770,7 +773,7 @@ dcl_ullstx(obj, cp, lpara)
     i_lpara = ((lpara == Qnil)||(lpara == Qfalse)) ? FALSE_ : TRUE_;
 
 
-    ullstx_(i_cp, &i_lpara, (ftnlen)strlen(i_cp));
+    ullstx__(i_cp, &i_lpara, (ftnlen)strlen(i_cp));
 
     return Qnil;
 
@@ -783,7 +786,7 @@ dcl_ullqnp(obj)
     integer o_ncp;
     VALUE ncp;
 
-    ullqnp_(&o_ncp);
+    ullqnp__(&o_ncp);
 
     ncp = INT2NUM(o_ncp);
 
@@ -807,7 +810,7 @@ dcl_ullqid(obj, cp)
     i_cp = StringValuePtr(cp);
 
 
-    ullqid_(i_cp, &o_idx, (ftnlen)strlen(i_cp));
+    ullqid__(i_cp, &o_idx, (ftnlen)strlen(i_cp));
 
     idx = INT2NUM(o_idx);
 
@@ -833,7 +836,7 @@ dcl_ullqcp(obj, idx)
     o_cp= ALLOCA_N(char, (DFLT_SIZE+1));
     memset(o_cp, '\0', DFLT_SIZE+1);
 
-    ullqcp_(&i_idx, o_cp, (ftnlen)DFLT_SIZE);
+    ullqcp__(&i_idx, o_cp, (ftnlen)DFLT_SIZE);
 
     cp = rb_str_new2(o_cp);
 
@@ -859,7 +862,7 @@ dcl_ullqcl(obj, idx)
     o_cp= ALLOCA_N(char, (DFLT_SIZE+1));
     memset(o_cp, '\0', DFLT_SIZE+1);
 
-    ullqcl_(&i_idx, o_cp, (ftnlen)DFLT_SIZE);
+    ullqcl__(&i_idx, o_cp, (ftnlen)DFLT_SIZE);
 
     cp = rb_str_new2(o_cp);
 
@@ -883,7 +886,7 @@ dcl_ullqvl(obj, idx)
     i_idx = NUM2INT(idx);
 
 
-    ullqvl_(&i_idx, &o_lpara);
+    ullqvl__(&i_idx, &o_lpara);
 
     lpara = (o_lpara == FALSE_) ? Qfalse : Qtrue;
 
@@ -907,7 +910,7 @@ dcl_ullsvl(obj, idx, lpara)
     i_lpara = ((lpara == Qnil)||(lpara == Qfalse)) ? FALSE_ : TRUE_;
 
 
-    ullsvl_(&i_idx, &i_lpara);
+    ullsvl__(&i_idx, &i_lpara);
 
     return Qnil;
 
@@ -928,7 +931,7 @@ dcl_ullqin(obj, cp)
     i_cp = StringValuePtr(cp);
 
 
-    ullqin_(i_cp, &o_in, (ftnlen)strlen(i_cp));
+    ullqin__(i_cp, &o_in, (ftnlen)strlen(i_cp));
 
     in = INT2NUM(o_in);
 
@@ -952,7 +955,7 @@ dcl_ulrget(obj, cp)
     i_cp = StringValuePtr(cp);
 
 
-    ulrget_(i_cp, &o_rpara, (ftnlen)strlen(i_cp));
+    ulrget__(i_cp, &o_rpara, (ftnlen)strlen(i_cp));
 
     rpara = rb_float_new((double)o_rpara);
 
@@ -979,7 +982,7 @@ dcl_ulrset(obj, cp, rpara)
     i_rpara = (real)NUM2DBL(rpara);
 
 
-    ulrset_(i_cp, &i_rpara, (ftnlen)strlen(i_cp));
+    ulrset__(i_cp, &i_rpara, (ftnlen)strlen(i_cp));
 
     return Qnil;
 
@@ -1003,7 +1006,7 @@ dcl_ulrstx(obj, cp, rpara)
     i_rpara = (real)NUM2DBL(rpara);
 
 
-    ulrstx_(i_cp, &i_rpara, (ftnlen)strlen(i_cp));
+    ulrstx__(i_cp, &i_rpara, (ftnlen)strlen(i_cp));
 
     return Qnil;
 
@@ -1016,7 +1019,7 @@ dcl_ulrqnp(obj)
     integer o_ncp;
     VALUE ncp;
 
-    ulrqnp_(&o_ncp);
+    ulrqnp__(&o_ncp);
 
     ncp = INT2NUM(o_ncp);
 
@@ -1040,7 +1043,7 @@ dcl_ulrqid(obj, cp)
     i_cp = StringValuePtr(cp);
 
 
-    ulrqid_(i_cp, &o_idx, (ftnlen)strlen(i_cp));
+    ulrqid__(i_cp, &o_idx, (ftnlen)strlen(i_cp));
 
     idx = INT2NUM(o_idx);
 
@@ -1066,7 +1069,7 @@ dcl_ulrqcp(obj, idx)
     o_cp= ALLOCA_N(char, (DFLT_SIZE+1));
     memset(o_cp, '\0', DFLT_SIZE+1);
 
-    ulrqcp_(&i_idx, o_cp, (ftnlen)DFLT_SIZE);
+    ulrqcp__(&i_idx, o_cp, (ftnlen)DFLT_SIZE);
 
     cp = rb_str_new2(o_cp);
 
@@ -1092,7 +1095,7 @@ dcl_ulrqcl(obj, idx)
     o_cp= ALLOCA_N(char, (DFLT_SIZE+1));
     memset(o_cp, '\0', DFLT_SIZE+1);
 
-    ulrqcl_(&i_idx, o_cp, (ftnlen)DFLT_SIZE);
+    ulrqcl__(&i_idx, o_cp, (ftnlen)DFLT_SIZE);
 
     cp = rb_str_new2(o_cp);
 
@@ -1116,7 +1119,7 @@ dcl_ulrqvl(obj, idx)
     i_idx = NUM2INT(idx);
 
 
-    ulrqvl_(&i_idx, &o_rpara);
+    ulrqvl__(&i_idx, &o_rpara);
 
     rpara = rb_float_new((double)o_rpara);
 
@@ -1143,7 +1146,7 @@ dcl_ulrsvl(obj, idx, rpara)
     i_rpara = (real)NUM2DBL(rpara);
 
 
-    ulrsvl_(&i_idx, &i_rpara);
+    ulrsvl__(&i_idx, &i_rpara);
 
     return Qnil;
 
@@ -1164,7 +1167,7 @@ dcl_ulrqin(obj, cp)
     i_cp = StringValuePtr(cp);
 
 
-    ulrqin_(i_cp, &o_in, (ftnlen)strlen(i_cp));
+    ulrqin__(i_cp, &o_in, (ftnlen)strlen(i_cp));
 
     in = INT2NUM(o_in);
 
@@ -1186,7 +1189,7 @@ dcl_ulxsfm(obj, cxfmt)
     i_cxfmt = StringValuePtr(cxfmt);
 
 
-    ulxsfm_(i_cxfmt, (ftnlen)strlen(i_cxfmt));
+    ulxsfm__(i_cxfmt, (ftnlen)strlen(i_cxfmt));
 
     return Qnil;
 
@@ -1202,7 +1205,7 @@ dcl_ulxqfm(obj)
     o_cxfmt= ALLOCA_N(char, (DFLT_SIZE+1));
     memset(o_cxfmt, '\0', DFLT_SIZE+1);
 
-    ulxqfm_(o_cxfmt, (ftnlen)DFLT_SIZE);
+    ulxqfm__(o_cxfmt, (ftnlen)DFLT_SIZE);
 
     cxfmt = rb_str_new2(o_cxfmt);
 
@@ -1224,7 +1227,7 @@ dcl_ulysfm(obj, cyfmt)
     i_cyfmt = StringValuePtr(cyfmt);
 
 
-    ulysfm_(i_cyfmt, (ftnlen)strlen(i_cyfmt));
+    ulysfm__(i_cyfmt, (ftnlen)strlen(i_cyfmt));
 
     return Qnil;
 
@@ -1240,7 +1243,7 @@ dcl_ulyqfm(obj)
     o_cyfmt= ALLOCA_N(char, (DFLT_SIZE+1));
     memset(o_cyfmt, '\0', DFLT_SIZE+1);
 
-    ulyqfm_(o_cyfmt, (ftnlen)DFLT_SIZE);
+    ulyqfm__(o_cyfmt, (ftnlen)DFLT_SIZE);
 
     cyfmt = rb_str_new2(o_cyfmt);