ruby-dcl 1.6.3.1 → 1.7.0

data/README_old

@@ -1,79 +0,0 @@
-
-	     RubyDCL -- a ruby interface to DCL library
-
-	 by K. Goto, K. Kuroi, N. Kawanabe, and T. Horinouchi
-
-Last Updated: Aug 27, 2001
-
-
-* WHAT IS THIS?
-
-  This is a one-to-one wrapper to a scientific graphic library DCL
-  (http://www.gfd-dennou.org/arch/dcl/).
-  It was originally developed with DCL-5.1 but is currently tested
-  for use with the ver.5.2. 
-
-* INSTALLATION
-
-  To install this library, the following must have been installed. 
-
-   * The C version of dcl: dcl-5.2C_011213 or later
-     (ftp://www.gfd-dennou.org/arch/dcl/dcl-5.2-C_011213.tar.gz).
-     Note that dcl-5.2-C.tar.gz in the directory, which is older than 
-     dcl-5.2-C_011213.tar.gz will NOT WORK with ruby-dcl-1.0.0
-     or a later version of RubyDCL. The reason for that is as follows:
-     In the later versions of RubyDCL, exception handing was made
-     compliant to that in Ruby, i.e., to call the "raise" predefined
-     function. In order to do that, the msgdmp_ function in the C
-     version of DCL had to be modified.
-
-   * Ruby version 1.6 or later (http://www.ruby-lang.org/).
-
-   * NArray (http://www.ruby-lang.org/en/raa-list.rhtml?name=NArray)
-     which is a numeric multi-dimensional array class.
-
-     NOTE: By default, the two headers narray.h and narray_config.h
-     in the narraypackage are assumed to have been copied to
-     $(sitearchdir), which is normally 
-     /usr/local/lib/ruby/site_ruby/1.6/$(arch)/ if you are using Unix,
-     where $(arch) is something like sparc-solaris2.6, a combination of
-     CPU and OS. You can specify the directory that contains these files
-     explicitly by using an environmental variable WITH_NARRAY_INCLUDE
-     like this:
-
-     % setenv WITH_NARRAY_INCLUDE '--with-narray-include=/narraydir/include'
-     or, if you are using bash,
-     % export WITH_NARRAY_INCLUDE='--with-narray-include=/narraydir/include'
-
-     This cause src/extconf.rb run with its value as:
-     cd src; ruby extconf.rb --with-narray-include=/narraydir/include;
-
-  If you are using a UNIX operating system, you only need to execute
-  the following command at the current directly ("%" is a "prompt". Do
-  not type it): 
-
-     % make
-
-  (Development of a Windows version is hoped but has not been done so
-  far.)
-
-  The command does two things:
-
-    (1) To create source code for the C-interface from a prototype
-        definition of DCL in the "proto" directory. 
-	(Equivalent to % make prt)
-        The source code creation is done with ruby.
-
-	The definition is in a format specific to this interface and
-        is made partly by hand. This is because of a necessity to
-        distinguish input, output, in-out, work arguments. Therefore,
-        to catch up future development of DCL, it has to be updated
-        by hand again.
-
-
-    (2) To compile the source code.
-	(Equivalent to % make lib)
-
-        Unlike (1), commands used for this process are platform
-	dependent. Auto-configuration is done by src/extconf.rb,
-	so the user does not have to care platform dependence.

data/dummy.c

@@ -1,9 +0,0 @@
-/*
- * $Id: dummy.c,v 1.1.1.1 2011-02-23 07:21:26 horinout Exp $
- */
-
-MAIN__(void)
-{
-  return;
-}
-

data/grph1_zgpack.c.org

@@ -1,141 +0,0 @@
-#include <gtk/gtk.h>
-#include <gdk/gdk.h>
-#include "ruby.h"
-
-#if GTK_MAJOR_VERSION == 1
-#define RVAL2GTKWIDGET(obj)  (get_widget(obj))
-#define RVAL2GDKPIXMAP(obj)  (get_gdkpixmap(obj))
-
-
-static GtkObject*
-get_gobject(obj)
-    VALUE obj;
-{
-    struct RData *data;
-    GtkObject *gtkp;
-
-    if (NIL_P(obj)) { 
-        rb_raise(rb_eTypeError, "wrong argument type nil");
-    }
-
-    Check_Type(obj, T_OBJECT);
-    data = RDATA(rb_ivar_get(obj, rb_intern("gtkdata")));
-    if (NIL_P(data)) {
-        rb_raise(rb_eTypeError, "not a Gtk object");
-    }
-    Data_Get_Struct(data, GtkObject, gtkp);
-    if (!gtkp) {
-        rb_raise(rb_eArgError, "destroyed GtkObject");
-    }
-    if (!GTK_IS_OBJECT(gtkp)) {
-        rb_raise(rb_eTypeError, "not a GtkObject");
-    }
-
-    return gtkp;
-}
-
-static GtkWidget*
-get_widget(obj)
-    VALUE obj;
-{
-    GtkObject *data = get_gobject(obj);
-
-    return GTK_WIDGET(data);
-}
-
-static GdkPixmap*
-get_gdkpixmap(obj)
-    VALUE obj;
-{
-    GdkPixmap *pixmap;
-
-    Data_Get_Struct(obj, GdkPixmap, pixmap);
-
-    return pixmap;
-}
-
-
-#elif GTK_MAJOR_VERSION == 2
-#define CLASS2GTYPE(klass) (rbgobj_lookup_class(klass)->gtype)
-#define RVAL2GOBJ(obj)  (rbgobj_instance_from_ruby_object(obj))
-#define RVAL2GTYPE(obj)    (CLASS2GTYPE(CLASS_OF(obj)))
-#define RVAL2GTKWIDGET(obj)  ((GtkWidget*)RVAL2GOBJ(obj))
-#define RVAL2GDKPIXMAP(obj)  ((GdkPixmap*)RVAL2GOBJ(obj))
-#define GOBJ2RVAL(gobj) (rbgobj_ruby_object_from_instance(gobj))
-#endif
-
-
-static VALUE
-dcl_zgsdrw(self, drawable)
-     VALUE self, drawable;
-{
-  extern zgsdrw_(GtkWidget*);
-
-  zgsdrw_( RVAL2GTKWIDGET(drawable) );
-
-  return Qnil;
-
-}
-
-static VALUE
-dcl_zgspmp(self, pixmap)
-     VALUE self, pixmap;
-{
-  extern zgspmp_(GdkPixmap*);
-
-  zgspmp_( RVAL2GDKPIXMAP(pixmap) );
-
-  return Qnil;
-
-}
-
-#if GTK_MAJOR_VERSION == 2
-static VALUE
-dcl_zgqdrw(self)
-     VALUE self;
-{
-  extern GtkWidget *zgqdrw_();
-
-  return GOBJ2RVAL(zgqdrw_());
-
-}
-
-static VALUE
-dcl_zgqpmp(self)
-     VALUE self;
-{
-  extern GtkPixmap *zgqpmp_();
-
-  return GOBJ2RVAL(zgqpmp_());
-
-}
-#endif
-
-static VALUE
-r_gtk_version(self)
-     VALUE self;
-{
-  return rb_ary_new3(3,
-		     INT2NUM(gtk_major_version),
-		     INT2NUM(gtk_minor_version),
-		     INT2NUM(gtk_micro_version));
-}
-
-
-void
-init_grph1_zgpack(mDCL)
-VALUE mDCL;
-{
-
-  rb_define_module_function(mDCL, "gtk_version", r_gtk_version, 0);
-
-  rb_define_module_function(mDCL, "zgsdrw", dcl_zgsdrw, 1);
-  rb_define_module_function(mDCL, "zgspmp", dcl_zgspmp, 1);
-
-#if GTK_MAJOR_VERSION == 2
-  rb_define_module_function(mDCL, "zgqdrw", dcl_zgqdrw, 0);
-  rb_define_module_function(mDCL, "zgqpmp", dcl_zgqpmp, 0);
-#endif
-
-}
-

data/init.c.gtk

@@ -1,189 +0,0 @@
-#include <stdio.h>
-#include "ruby.h"
-#include "libtinyf2c.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_grph1_zgpack(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_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_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, 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(DCLVersion));
-
-    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_grph1_zgpack(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);
-    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);
-    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);
-}