ruby-dcl 1.7.1 → 1.8.0

data/GenWrapper/etc/p_header

@@ -1,64 +0,0 @@
-/*
- * $Id: p_header,v 1.3 2015/03/18 03:27:42 horinout Exp $
- */
-
-#include <stdio.h>
-#include "ruby.h"
-#include "libtinyf2c.h"
-#include "narray.h"
-#include "cdcl.h"
-
-/* for compatibility with ruby 1.6 */
-#ifndef StringValuePtr
-#define StringValuePtr(s) STR2CSTR(s)
-#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 *);
-
-
-extern VALUE mDCL;
-

data/GenWrapper/pparse.rb

@@ -1,137 +0,0 @@
-# pparse.rb
-#   $Id: pparse.rb,v 1.1.1.1 2011/02/23 07:21:28 horinout Exp $
-
-
-require "./prototype"
-
-class PrototypeParser
-  def parse(&block)
-    @cpp.each_line do |line|
-      case line
-      when /^\s*$/
-	next
-      when /^#/
-        macro(line, &block)   # retain as macros
-      when /(\S+)\s+FUNCTION\s+(\w+)\s*\(/
-	func($1, $2)
-      when /SUBROUTINE\s+(\w+)\s*\(/
-	subr($1)
-      when /^\s*\)\s*$/
-	close(&block)
-      else
-	line.gsub!(/(^\s+)|(\s+$)/, "")
-	line.chomp!
-	var(line)
-      end
-    end
-  end
-
-  private
-
-  def delete_comment(src) # [ruby-list:32030] [ruby-list:32049]
-    src.gsub(%r@ ([\'\"])(\\.|.)*?\1
-               | (/\*.*?\*/)      
-               | (//)[^\n]*$      
-               @mx) {
-      if $3
-	s = $3.delete("^\n")
-	s = ' ' if s.empty?
-	s
-      elsif $4
-	''
-      else
-	$&
-      end
-    }
-  end
-
-  def initialize(file)
-    input = if file.is_a? IO
-	      file
-	    else
-	      File::open(file)
-	    end
-
-    @cpp = delete_comment(input.read)
-  end
-
-  def func(type, name)
-    @type, @name = type, name.downcase
-    @var = []
-    @rtn = []
-
-    if (/(\d+)|\*\((.*)\)/ =~ type)
-      charlen = ($1||$2).downcase   # may be charcter length
-      @type = type.scan(/\w+/)[0]
-    else
-      charlen = nil
-    end
-    @rtn.push Variable("rtn_val", @type, "o", false, charlen)
-
-    p [:func, type, name] if $DEBUG
-  end
-
-  def subr(name)
-    @type, @name = nil, name.downcase
-    @var = []
-    @rtn = []
-
-    p [:subr, name] if $DEBUG
-  end
-
-  def var(decl)
-    name, *tmp = decl.split.reverse
-    tmp.reverse!
-    attr = (tmp[-1] =~ /^[a-z]+$/ ? tmp.pop : "i")
-    ary =  (tmp[-1] =~ /^\((.*)\)/ ? (tmp.pop; $1.downcase) : false)
-    vtype = tmp.pop
-    if (/(\d+)|\*\((.*)\)/ =~ vtype)
-      charlen = ($1||$2).downcase   # may be charcter length
-      vtype = vtype.scan(/\w+/)[0]
-    else
-      charlen = nil
-    end
-    attr0 = attr.scan(/./).sort.uniq.join
-    r = (attr =~ /i/ ? (attr.delete!("i"); true) : false)
-    w = (attr =~ /o/ ? (attr.delete!("o"); true) : false)
-    t = (attr =~ /t/ ? (attr.delete!("t"); true) : false)
-    raise "unexpected decl `#{decl.inspect}'" unless tmp.empty?
-    raise "unexpected read/write attr `#{decl.inspect}'" unless attr.empty?
-    v = Variable(name.downcase, vtype, attr0, ary, charlen)
-    @var.push v
-    @rtn.push v if (!@type && w)
-
-    p decl if $DEBUG
-    p v if $DEBUG
-    
-  end
-
-  def close
-    val = Prototype.new(@type, @name, @var, @rtn)
-    p val if $DEBUG
-    @var = nil
-    @rtn = nil
-    # puts if $DEBUG
-    if block_given?
-      yield(val)
-    else
-      val
-    end
-  end
-
-  def macro(line)
-    if block_given?
-      yield(line)
-    else
-      line
-    end
-  end
-
-  def method_missing(m, *a, &b)
-    p [m, a.join(" ")]
-  end
-
-#  Var = Struct.new("Var", 
-#		   "vtype", "ary?", "attr", "r?", "w?", "t?", "name",
-#		   "ignore?").freeze
-end

data/GenWrapper/proto/grph1_00

@@ -1,17 +0,0 @@
-/*
- * grph1_00
- *   log to split grph1.f77proto into grph1_csgi.fp and grph1_xxpack.fp
- *
- * $Id: grph1_00,v 1.1.1.1 2011/02/23 07:21:28 horinout Exp $
- */
------
-/*
- * grph1.f77proto
- * #Id: grph1.f77proto,v 1.2 2000/11/05 14:39:33 keiko Exp $
- */
-
-/*
- * Packages deleted (by horinout):
- *   szpack
- */
-

data/GenWrapper/proto/grph1_csgi.fp

@@ -1,27 +0,0 @@
-/*
- * grph1_csgi.fp
- *
- * $Id: grph1_csgi.fp,v 1.1.1.1 2011/02/23 07:21:28 horinout Exp $
- */
-
-/*****************************************************
- * grph1/csgi/csgi.f.other
- ****************************************************/
-/* 
- *      CHARACTER*1 FUNCTION CSGI(IC)
- */
-      CHARACTER*1 FUNCTION CSGI(
-          INTEGER IC
-      )
-
-/*****************************************************
- * grph1/csgi/isgc.f.other
- ****************************************************/
-/* 
- *      INTEGER FUNCTION ISGC(CH)
- *      CHARACTER CH*1
- */
-      INTEGER FUNCTION ISGC(
-          CHARACTER*1 CH
-      )
-

data/GenWrapper/proto/grph1_scpack.fp

@@ -1,442 +0,0 @@
-/*
- * grph1_scpack.fp
- *
- * $Id: grph1_scpack.fp,v 1.1.1.1 2011/02/23 07:21:28 horinout Exp $
- */
-
-/*****************************************************
- * grph1/scpack/scsobj.f
- ****************************************************/
-/* 
- *      SUBROUTINE SCSOBJ(XOBJ3, YOBJ3, ZOBJ3)
- */
-      SUBROUTINE SCSOBJ(
-          REAL XOBJ3
-          REAL YOBJ3
-          REAL ZOBJ3
-      )
-
-/* 
- *      ENTRY SCQOBJ(XOBJ3, YOBJ3, ZOBJ3)
- */
-      SUBROUTINE SCQOBJ(
-          REAL o XOBJ3
-          REAL o YOBJ3
-          REAL o ZOBJ3
-      )
-
-/*****************************************************
- * grph1/scpack/scseye.f
- ****************************************************/
-/* 
- *      SUBROUTINE SCSEYE(XEYE3, YEYE3, ZEYE3)
- */
-      SUBROUTINE SCSEYE(
-          REAL XEYE3
-          REAL YEYE3
-          REAL ZEYE3
-      )
-
-/* 
- *      ENTRY SCQEYE(XEYE3, YEYE3, ZEYE3)
- */
-      SUBROUTINE SCQEYE(
-          REAL o XEYE3
-          REAL o YEYE3
-          REAL o ZEYE3
-      )
-
-/*****************************************************
- * grph1/scpack/scspln.f
- ****************************************************/
-/* 
- *      SUBROUTINE SCSPLN(IXAX, IYAX, SECT)
- */
-      SUBROUTINE SCSPLN(
-          INTEGER IXAX
-          INTEGER IYAX
-          REAL SECT
-      )
-
-/* 
- *      ENTRY SCQPLN(IXAX, IYAX, SECT)
- */
-      SUBROUTINE SCQPLN(
-          INTEGER o IXAX
-          INTEGER o IYAX
-          REAL o SECT
-      )
-
-/*****************************************************
- * grph1/scpack/scsprj.f
- ****************************************************/
-/* 
- *      SUBROUTINE SCSPRJ
- */
-      SUBROUTINE SCSPRJ(
-      )
-
-/*****************************************************
- * grph1/scpack/scsvpt.f
- ****************************************************/
-/* 
- *      SUBROUTINE SCSVPT(VXMIN, VXMAX, VYMIN, VYMAX, VZMIN, VZMAX)
- */
-      SUBROUTINE SCSVPT(
-          REAL VXMIN
-          REAL VXMAX
-          REAL VYMIN
-          REAL VYMAX
-          REAL VZMIN
-          REAL VZMAX
-      )
-
-/* 
- *      ENTRY SCQVPT(VXMIN, VXMAX, VYMIN, VYMAX, VZMIN, VZMAX)
- */
-      SUBROUTINE SCQVPT(
-          REAL o VXMIN
-          REAL o VXMAX
-          REAL o VYMIN
-          REAL o VYMAX
-          REAL o VZMIN
-          REAL o VZMAX
-      )
-
-/*****************************************************
- * grph1/scpack/scswnd.f
- ****************************************************/
-/* 
- *      SUBROUTINE SCSWND(UXMIN, UXMAX, UYMIN, UYMAX, UZMIN, UZMAX)
- */
-      SUBROUTINE SCSWND(
-          REAL UXMIN
-          REAL UXMAX
-          REAL UYMIN
-          REAL UYMAX
-          REAL UZMIN
-          REAL UZMAX
-      )
-
-/* 
- *      ENTRY SCQWND(UXMIN, UXMAX, UYMIN, UYMAX, UZMIN, UZMAX)
- */
-      SUBROUTINE SCQWND(
-          REAL o UXMIN
-          REAL o UXMAX
-          REAL o UYMIN
-          REAL o UYMAX
-          REAL o UZMIN
-          REAL o UZMAX
-      )
-
-/*****************************************************
- * grph1/scpack/scslog.f
- ****************************************************/
-/* 
- *      SUBROUTINE SCSLOG(LXLOG3, LYLOG3, LZLOG3)
- *      LOGICAL LXLOG3, LYLOG3, LZLOG3
- */
-      SUBROUTINE SCSLOG(
-          LOGICAL LXLOG3
-          LOGICAL LYLOG3
-          LOGICAL LZLOG3
-      )
-
-/* 
- *      ENTRY SCQLOG(LXLOG3, LYLOG3, LZLOG3)
- *      LOGICAL LXLOG3, LYLOG3, LZLOG3
- */
-      SUBROUTINE SCQLOG(
-          LOGICAL o LXLOG3
-          LOGICAL o LYLOG3
-          LOGICAL o LZLOG3
-      )
-
-/*****************************************************
- * grph1/scpack/scsorg.f
- ****************************************************/
-/* 
- *      SUBROUTINE SCSORG(SIMFAC, VXORG3, VYORG3, VZORG3)
- */
-      SUBROUTINE SCSORG(
-          REAL SIMFAC
-          REAL VXORG3
-          REAL VYORG3
-          REAL VZORG3
-      )
-
-/* 
- *      ENTRY SCQORG(SIMFAC, VXORG3, VYORG3, VZORG3)
- */
-      SUBROUTINE SCQORG(
-          REAL o SIMFAC
-          REAL o VXORG3
-          REAL o VYORG3
-          REAL o VZORG3
-      )
-
-/*****************************************************
- * grph1/scpack/scstrn.f
- ****************************************************/
-/* 
- *      SUBROUTINE SCSTRN(ITR3)
- */
-      SUBROUTINE SCSTRN(
-          INTEGER ITR3
-      )
-
-/* 
- *      ENTRY SCQTRN(ITR3)
- */
-      SUBROUTINE SCQTRN(
-          INTEGER o ITR3
-      )
-
-/*****************************************************
- * grph1/scpack/scstrf.f
- ****************************************************/
-/* 
- *      SUBROUTINE SCSTRF
- */
-      SUBROUTINE SCSTRF(
-      )
-
-/*****************************************************
- * grph1/scpack/scplu.f
- ****************************************************/
-/* 
- *      SUBROUTINE SCPLU(N,UPX,UPY,UPZ)
- *      REAL      UPX(*),UPY(*),UPZ(*),VPX(*),VPY(*),VPZ(*)
- */
-      SUBROUTINE SCPLU(
-          INTEGER N
-          REAL (N) UPX
-          REAL (N) UPY
-          REAL (N) UPZ
-      )
-
-/* 
- *      ENTRY SCPLV(N,VPX,VPY,VPZ)
- *      REAL      UPX(*),UPY(*),UPZ(*),VPX(*),VPY(*),VPZ(*)
- */
-      SUBROUTINE SCPLV(
-          INTEGER N
-          REAL (N) VPX
-          REAL (N) VPY
-          REAL (N) VPZ
-      )
-
-/* 
- *      ENTRY SCSPLI(INDEX)
- */
-      SUBROUTINE SCSPLI(
-          INTEGER INDEX
-      )
-
-/* 
- *      ENTRY SCQPLI(INDEX)
- */
-      SUBROUTINE SCQPLI(
-          INTEGER o INDEX
-      )
-
-/*****************************************************
- * grph1/scpack/scplzu.f
- ****************************************************/
-/* 
- *      SUBROUTINE SCPLZU(N,UPX,UPY,UPZ,INDEX)
- *      REAL      UPX(*),UPY(*),UPZ(*)
- */
-      SUBROUTINE SCPLZU(
-          INTEGER N
-          REAL (N) UPX
-          REAL (N) UPY
-          REAL (N) UPZ
-          INTEGER INDEX
-      )
-
-/*****************************************************
- * grph1/scpack/scplzv.f
- ****************************************************/
-/* 
- *      SUBROUTINE SCPLZV(N,VPX,VPY,VPZ,INDEX)
- *      REAL      VPX(*),VPY(*),VPZ(*)
- */
-      SUBROUTINE SCPLZV(
-          INTEGER N
-          REAL (N) VPX
-          REAL (N) VPY
-          REAL (N) VPZ
-          INTEGER INDEX
-      )
-
-/*****************************************************
- * grph1/scpack/scpmu.f
- ****************************************************/
-/* 
- *      SUBROUTINE SCPMU(N,UPX,UPY,UPZ)
- *      REAL      UPX(*),UPY(*),UPZ(*),VPX(*),VPY(*),VPZ(*)
- */
-      SUBROUTINE SCPMU(
-          INTEGER N
-          REAL (N) UPX
-          REAL (N) UPY
-          REAL (N) UPZ
-      )
-
-/* 
- *      ENTRY SCPMV(N,VPX,VPY,VPZ)
- *      REAL      UPX(*),UPY(*),UPZ(*),VPX(*),VPY(*),VPZ(*)
- */
-      SUBROUTINE SCPMV(
-          INTEGER N
-          REAL (N) VPX
-          REAL (N) VPY
-          REAL (N) VPZ
-      )
-
-/* 
- *      ENTRY SCSPMT(ITYPE)
- */
-      SUBROUTINE SCSPMT(
-          INTEGER ITYPE
-      )
-
-/* 
- *      ENTRY SCQPMT(ITYPE)
- */
-      SUBROUTINE SCQPMT(
-          INTEGER o ITYPE
-      )
-
-/* 
- *      ENTRY SCSPMI(INDEX)
- */
-      SUBROUTINE SCSPMI(
-          INTEGER INDEX
-      )
-
-/* 
- *      ENTRY SCQPMI(INDEX)
- */
-      SUBROUTINE SCQPMI(
-          INTEGER o INDEX
-      )
-
-/* 
- *      ENTRY SCSPMS(RSIZE)
- */
-      SUBROUTINE SCSPMS(
-          REAL RSIZE
-      )
-
-/* 
- *      ENTRY SCQPMS(RSIZE)
- */
-      SUBROUTINE SCQPMS(
-          REAL o RSIZE
-      )
-
-/*****************************************************
- * grph1/scpack/scpmzu.f
- ****************************************************/
-/* 
- *      SUBROUTINE SCPMZU(N,UPX,UPY,UPZ,ITYPE,INDEX,RSIZE)
- *      REAL      UPX(*),UPY(*),UPZ(*)
- */
-      SUBROUTINE SCPMZU(
-          INTEGER N
-          REAL (N) UPX
-          REAL (N) UPY
-          REAL (N) UPZ
-          INTEGER ITYPE
-          INTEGER INDEX
-          REAL RSIZE
-      )
-
-/*****************************************************
- * grph1/scpack/scpmzv.f
- ****************************************************/
-/* 
- *      SUBROUTINE SCPMZV(N,VPX,VPY,VPZ,ITYPE,INDEX,RSIZE)
- *      REAL      VPX(*),VPY(*),VPZ(*)
- */
-      SUBROUTINE SCPMZV(
-          INTEGER N
-          REAL (N) VPX
-          REAL (N) VPY
-          REAL (N) VPZ
-          INTEGER ITYPE
-          INTEGER INDEX
-          REAL RSIZE
-      )
-
-/*****************************************************
- * grph1/scpack/sctnu.f
- ****************************************************/
-/* 
- *      SUBROUTINE SCTNU(UPX,UPY,UPZ)
- *      REAL      UPX(*),UPY(*),UPZ(*),VPX(*),VPY(*),VPZ(*)
- */
-      SUBROUTINE SCTNU(
-          REAL (3) UPX
-          REAL (3) UPY
-          REAL (3) UPZ
-      )
-
-/* 
- *      ENTRY SCTNV(VPX,VPY,VPZ)
- *      REAL      UPX(*),UPY(*),UPZ(*),VPX(*),VPY(*),VPZ(*)
- */
-      SUBROUTINE SCTNV(
-          REAL (3) VPX
-          REAL (3) VPY
-          REAL (3) VPZ
-      )
-
-/* 
- *      ENTRY SCSTNP(ITPAT1, ITPAT2)
- */
-      SUBROUTINE SCSTNP(
-          INTEGER ITPAT1
-          INTEGER ITPAT2
-      )
-
-/* 
- *      ENTRY SCQTNP(ITPAT1, ITPAT2)
- */
-      SUBROUTINE SCQTNP(
-          INTEGER o ITPAT1
-          INTEGER o ITPAT2
-      )
-
-/*****************************************************
- * grph1/scpack/sctnzu.f
- ****************************************************/
-/* 
- *      SUBROUTINE SCTNZU(UPX,UPY,UPZ,ITPAT1,ITPAT2)
- *      REAL      UPX(*),UPY(*),UPZ(*)
- */
-      SUBROUTINE SCTNZU(
-          REAL (3) UPX
-          REAL (3) UPY
-          REAL (3) UPZ
-          INTEGER ITPAT1
-          INTEGER ITPAT2
-      )
-
-/*****************************************************
- * grph1/scpack/sctnzv.f
- ****************************************************/
-/* 
- *      SUBROUTINE SCTNZV(VPX,VPY,VPZ,ITPAT1,ITPAT2)
- *      REAL      VPX(*),VPY(*),VPZ(*)
- */
-      SUBROUTINE SCTNZV(
-          REAL (3) VPX
-          REAL (3) VPY
-          REAL (3) VPZ
-          INTEGER ITPAT1
-          INTEGER ITPAT2
-      )