RubyGems - ruby-dcl - Versions diffs - 1.6.3.1 → 1.7.0 - Mend

ruby-dcl 1.6.3.1 → 1.7.0

Files changed (43) hide show

data/.gitignore +17 -0
data/ChangeLog +57 -1
data/Gemfile +4 -0
data/GenWrapper/Makefile +1 -0
data/GenWrapper/dcl_rb_heading +2 -8
data/GenWrapper/elim_ary_size.rb +1 -1
data/GenWrapper/proto/Makefile +17 -16
data/GenWrapper/proto/grph1_sgpack.fp +367 -1
data/GenWrapper/proto/grph1_stpack.fp +45 -1
data/GenWrapper/proto/grph1_swpack.fp +70 -1
data/GenWrapper/proto/grph2_uipack.fp +508 -0
data/GenWrapper/proto/math1_clsplib.fp +74 -0
data/GenWrapper/proto/misc1_randlib.fp +15 -1
data/README.md +29 -0
data/Rakefile +18 -38
data/dcl_narrayed_funcs.c +23 -22
data/dcl_rubydcloriginal.c +21 -21
data/demo/grph2/uipack/uipk01.rb +38 -0
data/demo/grph2/uipack/uipk02.rb +48 -0
data/demo/grph2/umpack/test09_2.rb +89 -0
data/demo/math1/clsplib/cslb01.rb +55 -0
data/extconf.rb +16 -48
data/grph1_sgpack.c +1166 -0
data/grph1_stpack.c +141 -0
data/grph1_swpack.c +182 -0
data/grph2_uipack.c +1456 -0
data/init.c.default +8 -0
data/lib/.keepme +0 -0
data/lib/dcl/dcl.rb +5578 -0
data/lib/dcl/version.rb +3 -0
data/lib/dcl.rb +2 -5084
data/math1_clsplib.c +329 -0
data/misc1_randlib.c +37 -0
data/ruby-dcl.gemspec +30 -0
metadata +343 -352
data/GenWrapper/etc/Mk_proto +0 -375
data/GenWrapper/etc/dcl_gen +0 -13
data/GenWrapper/etc/p_init +0 -410
data/GenWrapper/proto/math2_shtlib.fp_old +0 -1294
data/README_old +0 -79
data/dummy.c +0 -9
data/grph1_zgpack.c.org +0 -141
data/init.c.gtk +0 -189

data/GenWrapper/proto/grph1_swpack.fp CHANGED Viewed

@@ -1,7 +1,7 @@
 /*
  * grph1_swpack.fp
  *
- * $Id: grph1_swpack.fp,v 1.1.1.1 2011-02-23 07:21:28 horinout Exp $
+ * $Id: grph1_swpack.fp,v 1.2 2012-03-02 17:18:53 koshiro Exp $
  */
 /*****************************************************
@@ -19,6 +19,26 @@
       SUBROUTINE SWDCLS(
       )
+/*
+ *      ENTRY SWQFCC(LFCATR)
+ *      LOGICAL   LFCATR
+ */
+#if DCLVER >= 544
+      SUBROUTINE SWQFCC(
+          LOGICAL o LFCATR
+      )
+#endif
+/*
+ *      ENTRY SWSFCM(LFCMOD)
+ *      LOGICAL   LFCMOD
+ */
+#if DCLVER >= 544
+      SUBROUTINE SWSFCM(
+          LOGICAL o LFCMOD
+      )
+#endif
 /*
  *      ENTRY SWPOPN
  */
@@ -55,12 +75,33 @@
           INTEGER IWDIDX
       )
+#if DCLVER >= 544
+/*
+ *      ENTRY SWSCLI(ICLIDX,LFCATR)
+ *      LOGICAL   LFCATR
+ */
+      SUBROUTINE SWSCLI(
+          INTEGER ICLIDX
+          LOGICAL LFCATR
+      )
+#else
 /*
  *      ENTRY SWSCLI(ICLIDX)
  */
       SUBROUTINE SWSCLI(
           INTEGER ICLIDX
       )
+#endif
+/*
+ *      ENTRY SWSLCL(ICOLOR)
+ */
+#if DCLVER >= 544
+      SUBROUTINE SWSLCL(
+          INTEGER ICOLOR
+      )
+#endif
 /*
  *      ENTRY SWGOPN
@@ -90,6 +131,15 @@
       SUBROUTINE SWGCLS(
       )
+/*
+ *      ENTRY SWSTCL(ICOLOR)
+ */
+#if DCLVER >= 544
+      SUBROUTINE SWSTCL(
+          INTEGER ICOLOR
+      )
+#endif
 /*
  *      ENTRY SWGTON(NP,WPX,WPY,ITPAT)
  *      REAL      WPX(*), WPY(*)
@@ -120,6 +170,17 @@
           INTEGER NLEN
       )
+/*
+ *      ENTRY SWICLR(IMAGE, NLEN)
+ *      INTEGER   IMAGE(*)
+ */
+#if DCLVER >= 544
+      SUBROUTINE SWICLR(
+          INTEGER (NLEN) IMAGE
+          INTEGER NLEN
+      )
+#endif
 /*
  *      ENTRY SWICLS
  */
@@ -213,6 +274,14 @@
           INTEGER IWTROT
       )
+/*
+ *      ENTRY SWCLCH()
+ */
+#if DCLVER >= 544
+      SUBROUTINE SWCLCH(
+      )
+#endif
 /*****************************************************
  * grph1/swpack/swpqnp.f
  ****************************************************/

data/GenWrapper/proto/grph2_uipack.fp ADDED Viewed

@@ -0,0 +1,508 @@
+/*
+ * grph2_uipack.fp
+ *
+ * $Id: grph2_uipack.fp,v 1.3 2012-03-08 05:16:17 koshiro Exp $
+ */
+#if DCLVER >= 544
+/*****************************************************
+ * grph2/uipack/uipdat.f
+ ****************************************************/
+/*
+ *      SUBROUTINE UIPDAT(Z, MX, NX, NY)
+ *      REAL      Z(MX,*)
+ */
+      SUBROUTINE UIPDAT(
+          REAL (MX,NY) Z
+          INTEGER MX
+          INTEGER NX
+          INTEGER NY
+      )
+/*****************************************************
+ * grph2/uipack/uipda2.f
+ ****************************************************/
+/*
+ *      SUBROUTINE UIPDA2(U, V, MX, NX, NY)
+ *      REAL      U(MX, *), V(MX, *)
+ */
+      SUBROUTINE UIPDA2(
+          REAL (MX,NY) U
+          REAL (MX,NY) V
+          INTEGER MX
+          INTEGER NX
+          INTEGER NY
+      )
+/*****************************************************
+ * grph2/uipack/uipda3.f
+ ****************************************************/
+/*
+ *      SUBROUTINE UIPDA3(U, V, W, MX, NX, NY)
+ *      REAL      U(MX, *), V(MX, *), W(MX, *)
+ */
+      SUBROUTINE UIPDA3(
+          REAL (MX,NY) U
+          REAL (MX,NY) V
+          REAL (MX,NY) W
+          INTEGER MX
+          INTEGER NX
+          INTEGER NY
+      )
+/*****************************************************
+ * grph2/uipack/uicrgb.f
+ ****************************************************/
+/*
+ *      ENTRY UISCRG(ZMIN, ZMAX)
+ */
+      SUBROUTINE UISCRG(
+          REAL ZMIN
+          REAL ZMAX
+      )
+/*
+ *      ENTRY UISMRG(ZMIN, ZMAX)
+ */
+      SUBROUTINE UISMRG(
+          REAL ZMIN
+          REAL ZMAX
+      )
+/*
+ *      ENTRY UISCSQ(CLRLVL, ICOLOR, N)
+ *      DIMENSION ICOLOR(*), CLRLVL(*)
+ */
+      SUBROUTINE UISCSQ(
+          REAL (N) CLRLVL
+          INTEGER (N) ICOLOR
+          INTEGER N
+      )
+/*
+ *      ENTRY UISCFL(CDSN)
+ *      CHARACTER CDSN*(*)
+ */
+      SUBROUTINE UISCFL(
+          CHARACTER*(*) CDSN
+      )
+/*
+ *      ENTRY UISMSQ(SHDLVL, SHADE, N)
+ *      DIMENSION SHADE(*), SHDLVL(*)
+ */
+      SUBROUTINE UISMSQ(
+          REAL (N) SHDLVL
+          INTEGER (N) SHADE
+          INTEGER N
+      )
+/*
+ *      ENTRY UISMFL(CDSN)
+ *      CHARACTER CDSN*(*)
+ */
+      SUBROUTINE UISMFL(
+          CHARACTER*(*) CDSN
+      )
+/*****************************************************
+ * grph2/uipack/uixbar.f
+ ****************************************************/
+/*
+ *      SUBROUTINE UIXBAR(XMIN,XMAX,YMIN,YMAX,ZMIN,ZMAX,CPOS)
+ *      CHARACTER CPOS*(*)
+ */
+      SUBROUTINE UIXBAR(
+          REAL XMIN
+          REAL XMAX
+          REAL YMIN
+          REAL YMAX
+          REAL ZMIN
+          REAL ZMAX
+          CHARACTER*(*) CPOS
+      )
+/*****************************************************
+ * grph2/uipack/uiybar.f
+ ****************************************************/
+/*
+ *      SUBROUTINE UIYBAR(XMIN,XMAX,YMIN,YMAX,ZMIN,ZMAX,CPOS)
+ *      CHARACTER CPOS*(*)
+ */
+      SUBROUTINE UIYBAR(
+          REAL XMIN
+          REAL XMAX
+          REAL YMIN
+          REAL YMAX
+          REAL ZMIN
+          REAL ZMAX
+          CHARACTER*(*) CPOS
+      )
+/*****************************************************
+ * grph2/uipack/uic2d.f
+ ****************************************************/
+/*
+ *      ENTRY UISCR2(UMIN, UMAX, VMIN, VMAX)
+ */
+      SUBROUTINE UISCR2(
+          REAL UMIN
+          REAL UMAX
+          REAL VMIN
+          REAL VMAX
+      )
+/*
+ *      ENTRY UIQCR2(UMIN, UMAX, VMIN, VMAX)
+ */
+      SUBROUTINE UIQCR2(
+          REAL o UMIN
+          REAL o UMAX
+          REAL o VMIN
+          REAL o VMAX
+      )
+/*
+ *      ENTRY UISCMP(IRGB1, IRGB2, IRGB3, IRGB4)
+ */
+      SUBROUTINE UISCMP(
+          INTEGER IRGB1
+          INTEGER IRGB2
+          INTEGER IRGB3
+          INTEGER IRGB4
+      )
+/*****************************************************
+ * grph2/uipack/uipcmp.f
+ ****************************************************/
+/*
+ *      SUBROUTINE UIPCMP(XMIN,XMAX,YMIN,YMAX,CPOS)
+ *      CHARACTER*(*) CPOS
+ */
+      SUBROUTINE UIPCMP(
+          REAL XMIN
+          REAL XMAX
+          REAL YMIN
+          REAL YMAX
+          CHARACTER*(*) CPOS
+      )
+/*****************************************************
+ * grph2/uipack/uifpac.f
+ ****************************************************/
+/*
+ *      SUBROUTINE UIFPAC(IR, IG, IB, IRGB)
+ */
+      SUBROUTINE UIFPAC(
+          INTEGER IR
+          INTEGER IG
+          INTEGER IB
+          INTEGER o IRGB
+      )
+/*
+ *      ENTRY UIIPAC(IRGB, IR, IG, IB)
+ */
+      SUBROUTINE UIIPAC(
+          INTEGER IRGB
+          INTEGER o IR
+          INTEGER o IG
+          INTEGER o IB
+      )
+/*****************************************************
+ * grph2/uipack/uiiget.f
+ ****************************************************/
+/*
+ *      SUBROUTINE UIIGET(CP, IPARA)
+ *      CHARACTER CP*(*)
+ */
+      SUBROUTINE UIIGET(
+          CHARACTER*(*) CP
+          INTEGER o IPARA
+      )
+/*
+ *      ENTRY UIISET(CP, IPARA)
+ *      CHARACTER CP*(*)
+ */
+      SUBROUTINE UIISET(
+          CHARACTER*(*) CP
+          INTEGER IPARA
+      )
+/*
+ *      ENTRY UIISTX(CP, IPARA)
+ *      CHARACTER CP*(*)
+ */
+      SUBROUTINE UIISTX(
+          CHARACTER*(*) CP
+          INTEGER IPARA
+      )
+/*****************************************************
+ * grph2/uipack/uiiqnp.f
+ ****************************************************/
+/*
+ *      SUBROUTINE UIIQNP(NCP)
+ */
+      SUBROUTINE UIIQNP(
+          INTEGER o NCP
+      )
+/*
+ *      ENTRY UIIQID(CP, IDX)
+ *      CHARACTER CP*(*)
+ */
+      SUBROUTINE UIIQID(
+          CHARACTER*(*) CP
+          INTEGER o IDX
+      )
+/*
+ *      ENTRY UIIQCP(IDX, CP)
+ *      CHARACTER CP*(*)
+ */
+      SUBROUTINE UIIQCP(
+          INTEGER IDX
+          CHARACTER*(*) o CP
+      )
+/*
+ *      ENTRY UIIQCL(IDX, CP)
+ *      CHARACTER CP*(*)
+ */
+      SUBROUTINE UIIQCL(
+          INTEGER IDX
+          CHARACTER*(*) o CP
+      )
+/*
+ *      ENTRY UIIQVL(IDX, IPARA)
+ */
+      SUBROUTINE UIIQVL(
+          INTEGER IDX
+          INTEGER o IPARA
+      )
+/*
+ *      ENTRY UIISVL(IDX, IPARA)
+ */
+      SUBROUTINE UIISVL(
+          INTEGER IDX
+          INTEGER IPARA
+      )
+/*
+ *      ENTRY UIIQIN(CP, IN)
+ *      CHARACTER CP*(*)
+ */
+      SUBROUTINE UIIQIN(
+          CHARACTER*(*) CP
+          INTEGER o IN
+      )
+/*****************************************************
+ * grph2/uipack/uilget.f
+ ****************************************************/
+/*
+ *      SUBROUTINE UILGET(CP, LPARA)
+ *      CHARACTER CP*(*)
+ *      LOGICAL   LPARA
+ */
+      SUBROUTINE UILGET(
+          CHARACTER*(*) CP
+          LOGICAL o LPARA
+      )
+/*
+ *      ENTRY UILSET(CP, LPARA)
+ *      CHARACTER CP*(*)
+ *      LOGICAL   LPARA
+ */
+      SUBROUTINE UILSET(
+          CHARACTER*(*) CP
+          LOGICAL LPARA
+      )
+/*
+ *      ENTRY UILSTX(CP, LPARA)
+ *      CHARACTER CP*(*)
+ *      LOGICAL   LPARA
+ */
+      SUBROUTINE UILSTX(
+          CHARACTER*(*) CP
+          LOGICAL LPARA
+      )
+/*****************************************************
+ * grph2/uipack/uilqnp.f
+ ****************************************************/
+/*
+ *      SUBROUTINE UILQNP(NCP)
+ */
+      SUBROUTINE UILQNP(
+          INTEGER o NCP
+      )
+/*
+ *      ENTRY UILQID(CP, IDX)
+ *      CHARACTER CP*(*)
+ */
+      SUBROUTINE UILQID(
+          CHARACTER*(*) CP
+          INTEGER o IDX
+      )
+/*
+ *      ENTRY UILQCP(IDX, CP)
+ *      CHARACTER CP*(*)
+ */
+      SUBROUTINE UILQCP(
+          INTEGER IDX
+          CHARACTER*(*) o CP
+      )
+/*
+ *      ENTRY UILQCL(IDX, CP)
+ *      CHARACTER CP*(*)
+ */
+      SUBROUTINE UILQCL(
+          INTEGER IDX
+          CHARACTER*(*) o CP
+      )
+/*
+ *      ENTRY UILQVL(IDX, LPARA)
+ *      LOGICAL   LPARA
+ */
+      SUBROUTINE UILQVL(
+          INTEGER IDX
+          LOGICAL o LPARA
+      )
+/*
+ *      ENTRY UILSVL(IDX, LPARA)
+ *      LOGICAL   LPARA
+ */
+      SUBROUTINE UILSVL(
+          INTEGER IDX
+          LOGICAL LPARA
+      )
+/*
+ *      ENTRY UILQIN(CP, IN)
+ *      CHARACTER CP*(*)
+ */
+      SUBROUTINE UILQIN(
+          CHARACTER*(*) CP
+          INTEGER o IN
+      )
+/*****************************************************
+ * grph2/uipack/uirget.f
+ ****************************************************/
+/*
+ *      SUBROUTINE UIRGET(CP, RPARA)
+ *      CHARACTER CP*(*)
+ */
+      SUBROUTINE UIRGET(
+          CHARACTER*(*) CP
+          REAL o RPARA
+      )
+/*
+ *      ENTRY UIRSET(CP, RPARA)
+ *      CHARACTER CP*(*)
+ */
+      SUBROUTINE UIRSET(
+          CHARACTER*(*) CP
+          REAL RPARA
+      )
+/*
+ *      ENTRY UIRSTX(CP, RPARA)
+ *      CHARACTER CP*(*)
+ */
+      SUBROUTINE UIRSTX(
+          CHARACTER*(*) CP
+          REAL RPARA
+      )
+/*****************************************************
+ * grph2/uipack/uirqnp.f
+ ****************************************************/
+/*
+ *      SUBROUTINE UIRQNP(NCP)
+ */
+      SUBROUTINE UIRQNP(
+          INTEGER o NCP
+      )
+/*
+ *      ENTRY UIRQID(CP, IDX)
+ *      CHARACTER CP*(*)
+ */
+      SUBROUTINE UIRQID(
+          CHARACTER*(*) CP
+          INTEGER o IDX
+      )
+/*
+ *      ENTRY UIRQCP(IDX, CP)
+ *      CHARACTER CP*(*)
+ */
+      SUBROUTINE UIRQCP(
+          INTEGER IDX
+          CHARACTER*(*) o CP
+      )
+/*
+ *      ENTRY UIRQCL(IDX, CP)
+ *      CHARACTER CP*(*)
+ */
+      SUBROUTINE UIRQCL(
+          INTEGER IDX
+          CHARACTER*(*) o CP
+      )
+/*
+ *      ENTRY UIRQVL(IDX, RPARA)
+ */
+      SUBROUTINE UIRQVL(
+          INTEGER IDX
+          REAL o RPARA
+      )
+/*
+ *      ENTRY UIRSVL(IDX, RPARA)
+ */
+      SUBROUTINE UIRSVL(
+          INTEGER IDX
+          REAL RPARA
+      )
+/*
+ *      ENTRY UIRQIN(CP, IN)
+ *      CHARACTER CP*(*)
+ */
+      SUBROUTINE UIRQIN(
+          CHARACTER*(*) CP
+          INTEGER o IN
+      )
+/*****************************************************
+ * grph2/uipack/uiqfnm.f
+ ****************************************************/
+/*
+ *      SUBROUTINE UIQFNM(CPARA,CFNAME)
+ *      CHARACTER CPARA*(*),CFNAME*(*)
+ */
+      SUBROUTINE UIQFNM(CPARA,CFNAME)
+          CHARACTER*(*) CPARA
+          CHARACTER*(*) o CFNAME
+      )
+#endif

data/GenWrapper/proto/math1_clsplib.fp ADDED Viewed

@@ -0,0 +1,74 @@
+/*
+ * math1_clsplib.fp
+ *
+ * $Id: math1_clsplib.fp,v 1.3 2012-03-08 05:16:17 koshiro Exp $
+ */
+#if DCLVER >= 544
+/*****************************************************
+ * math1/clsplib/clrgsv.f
+ ****************************************************/
+/*
+ *      SUBROUTINE CLRGSV(R,G,B,H,S,V,N,M)
+ */
+      SUBROUTINE CLRGSV(
+        INTEGER (N,M) R
+        INTEGER (N,M) G
+        INTEGER (N,M) B
+        REAL (N,M) o H
+        REAL (N,M) o S
+        REAL (N,M) o V
+        INTEGER N
+        INTEGER M
+      )
+/*****************************************************
+ * math1/clsplib/clsvrg.f
+ ****************************************************/
+/*
+ *      SUBROUTINE CLSVRG(H,S,V,R,G,B,N,M)
+ */
+      SUBROUTINE CLSVRG(
+        REAL (N,M) H
+        REAL (N,M) S
+        REAL (N,M) V
+        INTEGER (N,M) o R
+        INTEGER (N,M) o G
+        INTEGER (N,M) o B
+        INTEGER N
+        INTEGER M
+      )
+/*****************************************************
+ * math1/clsplib/inorml.f
+ ****************************************************/
+/*
+ *      SUBROUTINE INORML(V,W,N,M,X,Y)
+ */
+      SUBROUTINE INORML(
+        INTEGER (N,M) V
+        REAL (N,M) o W
+        INTEGER N
+        INTEGER M
+        REAL X
+        REAL Y
+      )
+/*****************************************************
+ * math1/clsplib/rnorml.f
+ ****************************************************/
+/*
+ *      SUBROUTINE RNORML(V,W,N,M,X,Y)
+ */
+      SUBROUTINE RNORML(
+        REAL (N,M) V
+        REAL (N,M) o W
+        INTEGER N
+        INTEGER M
+        REAL X
+        REAL Y
+      )
+#endif

data/GenWrapper/proto/misc1_randlib.fp CHANGED Viewed

@@ -1,9 +1,21 @@
 /*
  * misc1_randlib.fp
  *
- * $Id: misc1_randlib.fp,v 1.1.1.1 2011-02-23 07:21:28 horinout Exp $
+ * $Id: misc1_randlib.fp,v 1.2 2012-03-02 17:18:54 koshiro Exp $
  */
+/*****************************************************
+ * misc1/randlib/rngu0.c
+ ****************************************************/
+/*
+ *      REAL FUNCTION RNGU0(ISEED)
+ */
+#if DCLVER >= 544
+      REAL FUNCTION RNGU0(
+          INTEGER io ISEED
+      )
+#endif
 /*****************************************************
  * misc1/randlib/rngu1.f
  ****************************************************/
@@ -30,7 +42,9 @@
 /*
  *      REAL FUNCTION RNGU3(ISEED)
  */
+#if DCLVER < 544
       REAL FUNCTION RNGU3(
           INTEGER io ISEED
       )
+#endif