ruby-dcl 1.7.1 → 1.8.0

data/ext/numru/grph2_uipack.c

@@ -1,5 +1,5 @@
 /*
- * $Id: p_header,v 1.3 2015/03/18 03:27:42 horinout Exp $
+ * $Id$
  */
 
 #include <stdio.h>
@@ -15,6 +15,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 +26,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 *);

data/ext/numru/grph2_ulpack.c

@@ -1,5 +1,5 @@
 /*
- * $Id: p_header,v 1.3 2015/03/18 03:27:42 horinout Exp $
+ * $Id$
  */
 
 #include <stdio.h>
@@ -15,6 +15,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 +26,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 *);

data/ext/numru/grph2_umpack.c

@@ -1,5 +1,5 @@
 /*
- * $Id: p_header,v 1.3 2015/03/18 03:27:42 horinout Exp $
+ * $Id$
  */
 
 #include <stdio.h>
@@ -15,6 +15,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 +26,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 *);

data/ext/numru/grph2_uspack.c

@@ -1,5 +1,5 @@
 /*
- * $Id: p_header,v 1.3 2015/03/18 03:27:42 horinout Exp $
+ * $Id$
  */
 
 #include <stdio.h>
@@ -15,6 +15,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 +26,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 *);

data/ext/numru/grph2_uupack.c

@@ -1,5 +1,5 @@
 /*
- * $Id: p_header,v 1.3 2015/03/18 03:27:42 horinout Exp $
+ * $Id$
  */
 
 #include <stdio.h>
@@ -15,6 +15,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 +26,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 *);

data/ext/numru/grph2_uvpack.c

@@ -1,5 +1,5 @@
 /*
- * $Id: p_header,v 1.3 2015/03/18 03:27:42 horinout Exp $
+ * $Id$
  */
 
 #include <stdio.h>
@@ -15,6 +15,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 +26,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 *);

data/ext/numru/grph2_uwpack.c

@@ -1,5 +1,5 @@
 /*
- * $Id: p_header,v 1.3 2015/03/18 03:27:42 horinout Exp $
+ * $Id$
  */
 
 #include <stdio.h>
@@ -15,6 +15,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 +26,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 *);

data/ext/numru/grph2_uxpack.c

@@ -1,5 +1,5 @@
 /*
- * $Id: p_header,v 1.3 2015/03/18 03:27:42 horinout Exp $
+ * $Id$
  */
 
 #include <stdio.h>
@@ -15,6 +15,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 +26,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 *);

data/ext/numru/grph2_uypack.c

@@ -1,5 +1,5 @@
 /*
- * $Id: p_header,v 1.3 2015/03/18 03:27:42 horinout Exp $
+ * $Id$
  */
 
 #include <stdio.h>
@@ -15,6 +15,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 +26,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 *);

data/ext/numru/grph2_uzpack.c

@@ -1,5 +1,5 @@
 /*
- * $Id: p_header,v 1.3 2015/03/18 03:27:42 horinout Exp $
+ * $Id$
  */
 
 #include <stdio.h>
@@ -15,6 +15,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 +26,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 *);

data/ext/numru/init.c

@@ -0,0 +1,202 @@
+#include <stdio.h>
+#include "ruby.h"
+#include "libtinyf2c.h"
+#include "narray.h"
+
+/* for compatibility with ruby 1.6 */
+#ifndef RARRAY_PTR
+#define RARRAY_PTR(a) (RARRAY(a)->ptr)
+#endif
+#ifndef RARRAY_LEN
+#define RARRAY_LEN(a) (RARRAY(a)->len)
+#endif
+#ifndef StringValuePtr
+#define StringValuePtr(s) STR2CSTR(s)
+#endif
+
+VALUE mDCL;
+static VALUE mNumRu;
+
+void init_grph1_csgi(VALUE mDCL);
+void init_grph1_scpack(VALUE mDCL);
+void init_grph1_sgpack(VALUE mDCL);
+void init_grph1_slpack(VALUE mDCL);
+void init_grph1_stpack(VALUE mDCL);
+void init_grph1_swpack(VALUE mDCL);
+void init_grph2_grpack(VALUE mDCL);
+void init_grph2_ucpack(VALUE mDCL);
+void init_grph2_udpack(VALUE mDCL);
+void init_grph2_uepack(VALUE mDCL);
+void init_grph2_ugpack(VALUE mDCL);
+void init_grph2_uhpack(VALUE mDCL);
+void init_grph2_uipack(VALUE mDCL);
+void init_grph2_ulpack(VALUE mDCL);
+void init_grph2_umpack(VALUE mDCL);
+void init_grph2_uspack(VALUE mDCL);
+void init_grph2_uupack(VALUE mDCL);
+void init_grph2_uvpack(VALUE mDCL);
+void init_grph2_uwpack(VALUE mDCL);
+void init_grph2_uxpack(VALUE mDCL);
+void init_grph2_uypack(VALUE mDCL);
+void init_grph2_uzpack(VALUE mDCL);
+void init_math1_blklib(VALUE mDCL);
+void init_math1_chrlib(VALUE mDCL);
+void init_math1_clsplib(VALUE mDCL);
+void init_math1_fnclib(VALUE mDCL);
+void init_math1_gt2dlib(VALUE mDCL);
+void init_math1_gnmlib(VALUE mDCL);
+void init_math1_ifalib(VALUE mDCL);
+void init_math1_indxlib(VALUE mDCL);
+void init_math1_intlib(VALUE mDCL);
+void init_math1_lrllib(VALUE mDCL);
+void init_math1_oslib(VALUE mDCL);
+void init_math1_rfalib(VALUE mDCL);
+void init_math1_rfblib(VALUE mDCL);
+void init_math1_sublib(VALUE mDCL);
+void init_math1_syslib(VALUE mDCL);
+void init_math1_vialib(VALUE mDCL);
+void init_math1_viblib(VALUE mDCL);
+void init_math1_vralib(VALUE mDCL);
+void init_math1_vrblib(VALUE mDCL);
+void init_math1_xfclib(VALUE mDCL);
+void init_math2_fftlib(VALUE mDCL);
+void init_math2_intrlib(VALUE mDCL);
+/*
+void init_math2_odelib(VALUE mDCL);
+*/
+void init_math2_rnmlib(VALUE mDCL);
+void init_math2_shtlib(VALUE mDCL);
+void init_math2_vstlib(VALUE mDCL);
+void init_misc1_chnlib(VALUE mDCL);
+void init_misc1_datelib(VALUE mDCL);
+void init_misc1_fmtlib(VALUE mDCL);
+void init_misc1_misclib(VALUE mDCL);
+void init_misc1_randlib(VALUE mDCL);
+void init_misc1_timelib(VALUE mDCL);
+
+
+static int ruby_msgdmp_err_func(char *csub, char *cmsg, 
+			      int csub_len, int cmsg_len)
+{
+    int lmsg, lsub, i;
+    char msg[300];
+    lsub = lenc_(csub, csub_len);
+    if (lsub > 32) {lsub=32;}
+    lmsg = lenc_(cmsg, cmsg_len);
+    if (lmsg > 200) {lmsg=200;}
+    msg[0]='[';
+    strncpy(msg+1,csub,lsub);
+    msg[lsub+1]=']';
+    msg[lsub+2]=' ';
+    strncpy(msg+lsub+3,cmsg,lmsg);
+    for(i=lsub+3+lmsg;i<300;i++){msg[i]='\0';}
+    rb_raise(rb_eRuntimeError, "%s", msg);
+    return(0);
+}
+
+#if DCLVER >= 532
+static VALUE
+dcl_init_arg(obj, name, ary)
+	VALUE obj, name, ary;
+{
+    integer argc;
+    char **argv;
+    VALUE *ptr;
+    integer i;
+
+    Check_Type(ary,T_ARRAY);
+    argc = RARRAY_LEN(ary);
+    ptr = RARRAY_PTR(ary);
+    argv = ALLOC_N(char*,argc+1);
+    argv[0] = StringValuePtr(name);
+    for (i=0;i<argc;i++)
+       argv[i+1] = StringValuePtr(ptr[i]);
+    init_arg_(argc+1, argv);
+
+    return Qnil;
+}
+#endif
+
+void
+Init_dcl_raw()
+{
+    set_msgdmp_err_func(ruby_msgdmp_err_func);
+    mNumRu = rb_define_module("NumRu");
+    mDCL = rb_define_module_under(mNumRu, "DCL");
+    rb_define_const(mDCL, "DCLVERSION", rb_str_new2("5.4.8"));
+
+#ifdef NARRAY_BIGMEM
+    rb_define_const(mDCL, "SUPPORT_BIGMEM", Qtrue);
+#else
+    rb_define_const(mDCL, "SUPPORT_BIGMEM", Qfalse);
+#endif
+
+    init_grph1_csgi(mDCL);
+    init_grph1_scpack(mDCL);
+    init_grph1_sgpack(mDCL);
+    init_grph1_slpack(mDCL);
+    init_grph1_stpack(mDCL);
+    init_grph1_swpack(mDCL);
+    init_grph2_grpack(mDCL);
+    init_grph2_ucpack(mDCL);
+    init_grph2_udpack(mDCL);
+    init_grph2_uepack(mDCL);
+    init_grph2_ugpack(mDCL);
+    init_grph2_uhpack(mDCL);
+#if DCLVER >= 544
+    init_grph2_uipack(mDCL);
+#endif
+    init_grph2_ulpack(mDCL);
+    init_grph2_umpack(mDCL);
+    init_grph2_uspack(mDCL);
+    init_grph2_uupack(mDCL);
+    init_grph2_uvpack(mDCL);
+    init_grph2_uwpack(mDCL);
+    init_grph2_uxpack(mDCL);
+    init_grph2_uypack(mDCL);
+    init_grph2_uzpack(mDCL);
+    init_math1_blklib(mDCL);
+    init_math1_chrlib(mDCL);
+#if DCLVER >= 544
+    init_math1_clsplib(mDCL);
+#endif
+    init_math1_fnclib(mDCL);
+#if DCLVER >= 530
+    init_math1_gt2dlib(mDCL);
+#endif
+    init_math1_gnmlib(mDCL);
+    init_math1_ifalib(mDCL);
+    init_math1_indxlib(mDCL);
+    init_math1_intlib(mDCL);
+    init_math1_lrllib(mDCL);
+    init_math1_oslib(mDCL);
+    init_math1_rfalib(mDCL);
+    init_math1_rfblib(mDCL);
+    init_math1_sublib(mDCL);
+    init_math1_syslib(mDCL);
+    init_math1_vialib(mDCL);
+    init_math1_viblib(mDCL);
+    init_math1_vralib(mDCL);
+    init_math1_vrblib(mDCL);
+    init_math1_xfclib(mDCL);
+    init_math2_fftlib(mDCL);
+    init_math2_intrlib(mDCL);
+/*
+    init_math2_odelib(mDCL);
+*/
+    init_math2_rnmlib(mDCL);
+    init_math2_shtlib(mDCL);
+    init_math2_vstlib(mDCL);
+    init_misc1_chnlib(mDCL);
+    init_misc1_datelib(mDCL);
+    init_misc1_fmtlib(mDCL);
+    init_misc1_misclib(mDCL);
+    init_misc1_randlib(mDCL);
+    init_misc1_timelib(mDCL);
+#if DCLVER >= 532
+    rb_define_module_function(mDCL, "init_arg", dcl_init_arg, 2);
+#endif
+
+    init_rubydcloriginal(mDCL);
+    init_narrayed_funcs(mDCL);
+}