ruby-dcl 1.7.1 → 1.8.2

data/ruby-dcl.gemspec

@@ -3,7 +3,17 @@ require "rubygems" unless defined?(Gem)
 
 lib = File.expand_path('../lib', __FILE__)
 $LOAD_PATH.unshift(lib) unless $LOAD_PATH.include?(lib)
-require "numru/dcl"
+require 'numru/dcl/version'
+
+#old# filelist = `git ls-files | egrep -v '^GenWrapper|^.git|^ToDo'`.split("\n")
+#old# filelist.concat(Dir::glob('ext/**/*.c'))
+#old# filelist.concat(Dir::glob('lib/**/*.rb'))
+
+filelist = %w!ChangeLog Gemfile LICENSE.txt Rakefile ruby-dcl.gemspec!
+filelist.concat( Dir::glob(["ext/**/*.c","ext/**/*.rb","ext/**/*.default"]) )
+filelist.concat( Dir::glob('lib/**/*.rb') )
+filelist.concat( Dir::glob(["demo/**/*.rb","demo/**/*.dat"]) )
+filelist.uniq!
 
 Gem::Specification.new do |spec|
   spec.name          = "ruby-dcl"
@@ -12,18 +22,12 @@ Gem::Specification.new do |spec|
     ,"S. Nishizawa", "T. Koshiro",'GFD Dennou Club']
   spec.email       = ["eriko@gfd-dennou.org"]
 
-  #if spec.respond_to?(:metadata)
-  #  spec.metadata['allowed_push_host'] = "TODO: Set to 'http://mygemserver.com' to prevent pushes to rubygems.org, or delete to allow pushes to any server."
-  #end
-
   spec.summary     = %q{one-to-one interface to the DCL graphic library}
   spec.description = %q{RubyDCL is a ruby interface to the scientific graphic library DCL. It supports all the subroutines and functions in DCL on a one-to-one basis. }
   spec.homepage    = 'http://www.gfd-dennou.org/arch/ruby/products/ruby-dcl/' 
-  spec.licenses       = ["GFD Dennou Club"]
+  spec.licenses       = ["BSD-2-Clause"]
 
-  spec.files         = `git ls-files -z`.split("\x0")
-  #spec.bindir        = "exe"
-  #spec.executables   = spec.files.grep(%r{^exe/}) { |f| File.basename(f) }
+  spec.files         = filelist
   spec.test_files    = spec.files.grep(%r{^demo/})
   spec.require_paths = ["ext","lib"]
   spec.extensions << "ext/numru/extconf.rb"

metadata

@@ -1,7 +1,7 @@
 --- !ruby/object:Gem::Specification
 name: ruby-dcl
 version: !ruby/object:Gem::Version
-  version: 1.7.1
+  version: 1.8.2
 platform: ruby
 authors:
 - T. Horinouchi
@@ -13,48 +13,48 @@ authors:
 autorequire: 
 bindir: bin
 cert_chain: []
-date: 2015-03-18 00:00:00.000000000 Z
+date: 2022-03-20 00:00:00.000000000 Z
 dependencies:
 - !ruby/object:Gem::Dependency
   name: narray
   requirement: !ruby/object:Gem::Requirement
     requirements:
-    - - '>='
+    - - ">="
       - !ruby/object:Gem::Version
         version: 0.5.5
   type: :runtime
   prerelease: false
   version_requirements: !ruby/object:Gem::Requirement
     requirements:
-    - - '>='
+    - - ">="
       - !ruby/object:Gem::Version
         version: 0.5.5
 - !ruby/object:Gem::Dependency
   name: narray_miss
   requirement: !ruby/object:Gem::Requirement
     requirements:
-    - - '>='
+    - - ">="
       - !ruby/object:Gem::Version
         version: '0'
   type: :runtime
   prerelease: false
   version_requirements: !ruby/object:Gem::Requirement
     requirements:
-    - - '>='
+    - - ">="
       - !ruby/object:Gem::Version
         version: '0'
 - !ruby/object:Gem::Dependency
   name: gtk2
   requirement: !ruby/object:Gem::Requirement
     requirements:
-    - - '>='
+    - - ">="
       - !ruby/object:Gem::Version
         version: '0'
   type: :development
   prerelease: false
   version_requirements: !ruby/object:Gem::Requirement
     requirements:
-    - - '>='
+    - - ">="
       - !ruby/object:Gem::Version
         version: '0'
 description: 'RubyDCL is a ruby interface to the scientific graphic library DCL. It
@@ -66,91 +66,10 @@ extensions:
 - ext/numru/extconf.rb
 extra_rdoc_files: []
 files:
-- .gitignore
-- .rspec
-- .travis.yml
 - ChangeLog
 - Gemfile
-- GenWrapper/Makefile
-- GenWrapper/cproto2init.rb
-- GenWrapper/dcl_narrayed_funcs.rb
-- GenWrapper/dcl_rb_footing
-- GenWrapper/dcl_rb_heading
-- GenWrapper/def.rb
-- GenWrapper/elim_ary_size.rb
-- GenWrapper/etc/p_header
-- GenWrapper/pparse.rb
-- GenWrapper/proto/Makefile
-- GenWrapper/proto/grph1_00
-- GenWrapper/proto/grph1_csgi.fp
-- GenWrapper/proto/grph1_scpack.fp
-- GenWrapper/proto/grph1_sgpack.fp
-- GenWrapper/proto/grph1_slpack.fp
-- GenWrapper/proto/grph1_stpack.fp
-- GenWrapper/proto/grph1_swpack.fp
-- GenWrapper/proto/grph2_00
-- GenWrapper/proto/grph2_grpack.fp
-- GenWrapper/proto/grph2_ucpack.fp
-- GenWrapper/proto/grph2_udpack.fp
-- GenWrapper/proto/grph2_uepack.fp
-- GenWrapper/proto/grph2_ugpack.fp
-- GenWrapper/proto/grph2_uhpack.fp
-- GenWrapper/proto/grph2_uipack.fp
-- GenWrapper/proto/grph2_ulpack.fp
-- GenWrapper/proto/grph2_umpack.fp
-- GenWrapper/proto/grph2_uspack.fp
-- GenWrapper/proto/grph2_uupack.fp
-- GenWrapper/proto/grph2_uvpack.fp
-- GenWrapper/proto/grph2_uwpack.fp
-- GenWrapper/proto/grph2_uxpack.fp
-- GenWrapper/proto/grph2_uypack.fp
-- GenWrapper/proto/grph2_uzpack.fp
-- GenWrapper/proto/math1_00
-- GenWrapper/proto/math1_blklib.fp
-- GenWrapper/proto/math1_chrlib.fp
-- GenWrapper/proto/math1_clsplib.fp
-- GenWrapper/proto/math1_fnclib.fp
-- GenWrapper/proto/math1_gnmlib.fp
-- GenWrapper/proto/math1_gt2dlib.fp
-- GenWrapper/proto/math1_ifalib.fp
-- GenWrapper/proto/math1_indxlib.fp
-- GenWrapper/proto/math1_intlib.fp
-- GenWrapper/proto/math1_lrllib.fp
-- GenWrapper/proto/math1_maplib.fp
-- GenWrapper/proto/math1_oslib.fp
-- GenWrapper/proto/math1_rfalib.fp
-- GenWrapper/proto/math1_rfblib.fp
-- GenWrapper/proto/math1_sublib.fp
-- GenWrapper/proto/math1_syslib.fp
-- GenWrapper/proto/math1_vialib.fp
-- GenWrapper/proto/math1_viblib.fp
-- GenWrapper/proto/math1_vralib.fp
-- GenWrapper/proto/math1_vrblib.fp
-- GenWrapper/proto/math1_xfclib.fp
-- GenWrapper/proto/math2_00
-- GenWrapper/proto/math2_fftlib.fp
-- GenWrapper/proto/math2_intrlib.fp
-- GenWrapper/proto/math2_odelib.fp_notused
-- GenWrapper/proto/math2_rnmlib.fp
-- GenWrapper/proto/math2_shtlib.fp
-- GenWrapper/proto/math2_vstlib.fp
-- GenWrapper/proto/misc1_00
-- GenWrapper/proto/misc1_chnlib.fp
-- GenWrapper/proto/misc1_datelib.fp
-- GenWrapper/proto/misc1_fmtlib.fp
-- GenWrapper/proto/misc1_misclib.fp
-- GenWrapper/proto/misc1_randlib.fp
-- GenWrapper/proto/misc1_timelib.fp
-- GenWrapper/proto2c.rb
-- GenWrapper/prototype.rb
-- GenWrapper/util.rb
-- GenWrapper/variable.rb
 - LICENSE.txt
-- README
 - Rakefile
-- ToDo
-- bin/console
-- bin/setup
 - demo/gokuraku/hop/hop.rb
 - demo/gokuraku/jump/jump1.rb
 - demo/gokuraku/jump/jump2.rb
@@ -215,6 +134,7 @@ files:
 - demo/grph2/udegpk/u2df09f.rb
 - demo/grph2/uipack/uipk01.rb
 - demo/grph2/uipack/uipk02.rb
+- demo/grph2/uipack/uipk03.rb
 - demo/grph2/ulpack/ulpk01.rb
 - demo/grph2/ulpack/ulpk01n.rb
 - demo/grph2/ulpack/ulpk02.rb
@@ -225,6 +145,7 @@ files:
 - demo/grph2/umpack/test03.rb
 - demo/grph2/umpack/test04.rb
 - demo/grph2/umpack/test05.rb
+- demo/grph2/umpack/test05r.rb
 - demo/grph2/umpack/test06.rb
 - demo/grph2/umpack/test07.rb
 - demo/grph2/umpack/test08.rb
@@ -265,7 +186,6 @@ files:
 - demo/grph2/uxyzpk/uxyz08.rb
 - demo/grph2/uxyzpk/uxyz09.rb
 - demo/grph2/uxyzpk/uxyz10.rb
-- demo/grph2/ximage/MEMO
 - demo/grph2/ximage/tomsclm.dat
 - demo/grph2/ximage/ximg01.rb
 - demo/math1/clsplib/cslb01.rb
@@ -276,6 +196,9 @@ files:
 - demo/math2/rnmlib/rnml01.rb
 - demo/math2/vstlib/vstl01.rb
 - demo/math2/vstlib/vstl02.rb
+- demo/misc2/tmpack/tmpk01.rb
+- demo/misc2/tmpack/tmpk02.rb
+- demo/misc2/tmpack/tmpk03.rb
 - demo/rakuraku/color/color1.rb
 - demo/rakuraku/color/color2.rb
 - demo/rakuraku/color/color3.rb
@@ -388,14 +311,14 @@ files:
 - ext/numru/misc1_misclib.c
 - ext/numru/misc1_randlib.c
 - ext/numru/misc1_timelib.c
+- ext/numru/misc2_tmpack.c
 - lib/numru/dcl.rb
-- obsolete/README
-- obsolete/dcl_ext.html
-- obsolete/dcl_ext.rb
+- lib/numru/dcl/dcl.rb
+- lib/numru/dcl/version.rb
 - ruby-dcl.gemspec
 homepage: http://www.gfd-dennou.org/arch/ruby/products/ruby-dcl/
 licenses:
-- GFD Dennou Club
+- BSD-2-Clause
 metadata: {}
 post_install_message: 
 rdoc_options: []
@@ -404,17 +327,16 @@ require_paths:
 - lib
 required_ruby_version: !ruby/object:Gem::Requirement
   requirements:
-  - - '>='
+  - - ">="
     - !ruby/object:Gem::Version
       version: '1.6'
 required_rubygems_version: !ruby/object:Gem::Requirement
   requirements:
-  - - '>='
+  - - ">="
     - !ruby/object:Gem::Version
       version: '0'
 requirements: []
-rubyforge_project: 
-rubygems_version: 2.4.6
+rubygems_version: 3.2.5
 signing_key: 
 specification_version: 4
 summary: one-to-one interface to the DCL graphic library
@@ -483,6 +405,7 @@ test_files:
 - demo/grph2/udegpk/u2df09f.rb
 - demo/grph2/uipack/uipk01.rb
 - demo/grph2/uipack/uipk02.rb
+- demo/grph2/uipack/uipk03.rb
 - demo/grph2/ulpack/ulpk01.rb
 - demo/grph2/ulpack/ulpk01n.rb
 - demo/grph2/ulpack/ulpk02.rb
@@ -493,6 +416,7 @@ test_files:
 - demo/grph2/umpack/test03.rb
 - demo/grph2/umpack/test04.rb
 - demo/grph2/umpack/test05.rb
+- demo/grph2/umpack/test05r.rb
 - demo/grph2/umpack/test06.rb
 - demo/grph2/umpack/test07.rb
 - demo/grph2/umpack/test08.rb
@@ -533,7 +457,6 @@ test_files:
 - demo/grph2/uxyzpk/uxyz08.rb
 - demo/grph2/uxyzpk/uxyz09.rb
 - demo/grph2/uxyzpk/uxyz10.rb
-- demo/grph2/ximage/MEMO
 - demo/grph2/ximage/tomsclm.dat
 - demo/grph2/ximage/ximg01.rb
 - demo/math1/clsplib/cslb01.rb
@@ -544,6 +467,9 @@ test_files:
 - demo/math2/rnmlib/rnml01.rb
 - demo/math2/vstlib/vstl01.rb
 - demo/math2/vstlib/vstl02.rb
+- demo/misc2/tmpack/tmpk01.rb
+- demo/misc2/tmpack/tmpk02.rb
+- demo/misc2/tmpack/tmpk03.rb
 - demo/rakuraku/color/color1.rb
 - demo/rakuraku/color/color2.rb
 - demo/rakuraku/color/color3.rb

data/.gitignore

@@ -1,13 +0,0 @@
-*.[oa]
-*~
-*.so
-*.log
-Makefile
-/.bundle/
-/.yardoc
-/Gemfile.lock
-/_yardoc/
-/coverage/
-/pkg/
-/spec/reports/
-/tmp/

data/.rspec

@@ -1,2 +0,0 @@
---format documentation
---color

data/.travis.yml

@@ -1,3 +0,0 @@
-language: ruby
-rvm:
-  - 2.0.0

data/GenWrapper/Makefile

@@ -1,15 +0,0 @@
-all: source dcl_rb
-
-source:
-	cd proto ; \
-	$(MAKE) ; \
-	cd ../
-	ruby dcl_narrayed_funcs.rb
-
-dcl_rb:
-	ruby elim_ary_size.rb proto/*.fp
-
-clean: clean.local
-
-clean.local:
-	$(RM) *~

data/GenWrapper/cproto2init.rb

@@ -1,41 +0,0 @@
-# Program: cproto2init.rb
-#          2000/11/20 Takeshi Horinouchi
-# Usage:
-#
-#     % ruby cproto2init.rb cprotofile
-#
-#  Here, cprotofile is the name of the C program obtained by,
-#  for example,
-#
-#     ruby proto2c.rb grph2_grpack.fp > grph2_grpack.c
-#
-#  The package name is determined from the file name such as
-#  'grph2_grpack'.
-
-package =  $*[0].gsub(/.*\//,'').sub(/\..*/,'')    # remove directory name
-                                                  # and suffix
-print("void\n","init_",package,"(mDCL)\n","VALUE mDCL;\n","{\n")
-
-macro_dclver = false 
-
-while (line=gets)
-  case line
-  when /^static VALUE/
-    funcdef = gets.chop
-    func = funcdef.sub(/\(.*$/,'')
-    nargs = funcdef.delete('^,').length
-    method = func.sub(/dcl_/,'')
-    print('    rb_define_module_function(mDCL, "',method,
-	   '", ',func,", ",nargs,");\n")
-  when  /^#if *DCLVER/
-    macro_dclver = true
-    print line
-  when /^#endif/
-    if macro_dclver
-      print line
-      macro_dclver = false
-    end
-  end
-end
-
-print "}\n"

data/GenWrapper/dcl_narrayed_funcs.rb

@@ -1,181 +0,0 @@
-# -*- C -*-
-# USAGE: ruby dcl_narray_funcs.rb
-# --> creates ../dcl_narray_funcs.c
-
-require "erb"
-
-erbsrc = <<EOS
-<% rr2rr_funcs = %w[ stftrf stitrf stfpr2 stipr2 mpfcyl mpicyl mpfmer mpimer mpfmwd mpimwd mpfmwl mpimwl mpfhmr mpihmr mpfek6 mpiek6 mpfktd mpiktd mpfcon mpicon mpfcoa mpicoa mpfcoc mpicoc mpfbon mpibon mpfotg mpiotg mpfpst mpipst mpfazm mpiazm mpfaza mpiaza ct2pc ct2cp ct2ec ct2bc ct2hc ct2ch ]
-%>
-/*
- * Original methods of Ruby-DCL
- *
- * Alert: DO NOT EDIT THIS FILE!!!
- *   This file was automatically generated by GenWrapper/dcl_narray_funcs.rb 
- */
-
-#include <stdio.h>
-#include "ruby.h"
-#include "libtinyf2c.h"
-#include "narray.h"
-
-/* for compatibility with ruby 1.6 */
-#ifndef RARRAY_LEN
-#define RARRAY_LEN(a) (RARRAY(a)->len)
-#endif
-
-#define DFLT_SIZE 32
-
-extern char    *dcl_obj2ccharary(VALUE, int, int);
-extern integer *dcl_obj2cintegerary(VALUE);
-extern real    *dcl_obj2crealary(VALUE);
-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 void dcl_freeccharary(char *);
-extern void dcl_freecintegerary(integer *);
-extern void dcl_freecrealary(real *);
-extern void dcl_freeccomplexary(complex *);
-extern void dcl_freeclogicalary(logical *);
-
-/* for functions which return real */
-/* fnclib */
-extern real rd2r_(real *);
-extern real rr2d_(real *);
-extern real rexp_(real *, integer *, integer *);
-extern real rfpi_(void);
-extern real rmod_(real *, real *);
-/* gnmlib */
-extern real rgnlt_(real *);
-extern real rgnle_(real *);
-extern real rgngt_(real *);
-extern real rgnge_(real *);
-/* rfalib */
-extern real rmax_(real *, integer *, integer *);
-extern real rmin_(real *, integer *, integer *);
-extern real rsum_(real *, integer *, integer *);
-extern real rave_(real *, integer *, integer *);
-extern real rvar_(real *, integer *, integer *);
-extern real rstd_(real *, integer *, integer *);
-extern real rrms_(real *, integer *, integer *);
-extern real ramp_(real *, integer *, integer *);
-/* rfblib */
-extern real rprd_(real *, real *, integer *, integer *, integer *);
-extern real rcov_(real *, real *, integer *, integer *, integer *);
-extern real rcor_(real *, real *, integer *, integer *, integer *);
-
-<% rr2rr_funcs.each do |func| %>
-extern int <%= func%>_(real*,real*,real*,real*);
-<% end %>
-
-extern VALUE mDCL;
-
-/* driver of real*2->real*2 functions such as STFTRF
- */
-static VALUE
-dcl_rr2rr_num(obj, ux, uy, func)
-    VALUE obj, ux, uy;
-    int (*func)(real*,real*,real*,real*);
-{
-    real i_ux;
-    real i_uy;
-    real o_vx;
-    real o_vy;
-    VALUE vx;
-    VALUE vy;
-
-    if (TYPE(ux) != T_FLOAT) {
-      ux = rb_funcall(ux, rb_intern("to_f"), 0);
-    }
-    if (TYPE(uy) != T_FLOAT) {
-      uy = rb_funcall(uy, rb_intern("to_f"), 0);
-    }
-
-    i_ux = (real)NUM2DBL(ux);
-    i_uy = (real)NUM2DBL(uy);
-
-
-    (*func)(&i_ux, &i_uy, &o_vx, &o_vy);
-
-    vx = rb_float_new((double)o_vx);
-    vy = rb_float_new((double)o_vy);
-
-
-    return rb_ary_new3(2, vx, vy);
-
-}
-
-/* driver of real*2->real*2 functions such as STFTRF
- */
-static VALUE
-dcl_rr2rr_na(obj, p, q, func)
-    VALUE obj, p, q;
-    int (*func)(real*,real*,real*,real*);
-{
-    VALUE r, s;  // return value
-    real *i_p, *i_q;
-    real *i_r, *i_s;
-    size_t len,j,lenq;
-
-    i_p = dcl_obj2crealary(p);
-    i_q = dcl_obj2crealary(q);
-    len  = (TYPE(p)==T_ARRAY) ? RARRAY_LEN(p) : NA_TOTAL(p) ;
-    lenq = (TYPE(q)==T_ARRAY) ? RARRAY_LEN(q) : NA_TOTAL(q) ;
-    if (len != lenq) {
-         rb_raise(rb_eArgError, "lengths of the 1st & 2nd args do not agree");
-    }
-
-    r = na_make_object(NA_SFLOAT, 1, &len, cNArray);
-    s = na_make_object(NA_SFLOAT, 1, &len, cNArray);
-    i_r = NA_PTR_TYPE(r,real*);
-    i_s = NA_PTR_TYPE(s,real*);
-
-    for(j=0; j<len; j++){
-	(*func)(i_p+j, i_q+j, i_r+j, i_s+j);
-    }
-
-    return rb_ary_new3(2, r, s);
-}
-
-static VALUE
-dcl_rr2rr(obj, p, q, func)
-    VALUE obj, p, q;
-    int (*func)(real*,real*,real*,real*);
-{
-    switch (TYPE(p)){
-    case T_DATA:
-    case T_ARRAY:
-	return( dcl_rr2rr_na(obj, p, q, func) );
-    default:
-	return( dcl_rr2rr_num(obj, p, q, func) );
-    }
-}
-
-
-<% rr2rr_funcs.each do |func| %>
-static VALUE
-dcl_<%= func%>(obj, p, q)
-    VALUE obj, p, q;
-{   return( dcl_rr2rr(obj, p, q, &<%= func%>_) );  }
-<% end %>
-
-void
-init_narrayed_funcs(mDCL)
-VALUE mDCL;
-{
-<% rr2rr_funcs.each do |func| %>
-    rb_define_module_function(mDCL, "<%= func%>", dcl_<%= func%>, 2);
-<% end %>
-}
-
-EOS
-
-File.open('../dcl_narrayed_funcs.c','w'){|f| f.print(ERB.new(erbsrc).result)}
-
-

data/GenWrapper/dcl_rb_footing

@@ -1,29 +0,0 @@
-      # //// Ruby-DCL original extention methods ////
-
-      alias __uemrkz uemrkz 
-      def uemrkz( upx,upy,z,itype,index,rsize )
-
-        #< extract array size(s) (which was(were) formerly an argument(s)) >
-        if ! ( upx == nil || upx.is_a?(Float) && lreq( upx, glrget("RUNDEF") ) )
-          len_upx_0 = upx.length
-          n = len_upx_0
-        else
-          upx = glrget("RUNDEF") if ( upx == nil )
-          len_upy_0 = upy.length
-          n = len_upy_0
-        end
-
-        #< check array size(s) >
-        raise "Invalid array length: upx.length != n" if \
-            upx!=nil && !( upx.is_a?(Float) && lreq(upx,glrget("RUNDEF")) ) && upx.length != (n)
-        raise "Invalid array length: upy.length != n" if \
-            upy!=nil && !( upy.is_a?(Float) && lreq(upy,glrget("RUNDEF")) ) && upy.length != (n)
-        raise "Invalid array length: z.length != n" if \
-            z!=nil && !( z.is_a?(Float) && lreq(z,glrget("RUNDEF")) ) && z.length != (n)
-
-        #< call the original method >
-        __uemrkz( n,upx,upy,z,itype,index,rsize )
-      end
-      module_function :uemrkz, :__uemrkz 
-      private_class_method :__uemrkz
-