[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

[dennou-ruby:003950] Re: Re: dcl7 対応

乙部です

これで，Ruby-DCLもできると思います．




乙部です．

これ，少しわかった気がします．
DCL-C から作り直す必要があるかもしれません．

ちょっと確認します．
うまくいけばRuby-DCLもパッチを提供します．

少々お待ちを．




乙部です．

grph1_swpack.fp
の swpack.f ブロックの下のほうに

以下を付け加えて
Gen_Wrapper の中でmakeするだけです．
＃と思ったのですが SWSLFT のブロックだけ
＃受け取りの書き方がわからないのでわかる方に書いていただければ

それ以外の2つはうまく動作するようです．



*
 *      ENTRY SWSLFT()
 *      CHARACTER*(*) FONTNAME
 */
#if DCLVER >= 700
      SUBROUTINE SWSLFT(
          CHARACTER*(*) o FONTNAME
          INTEGER o IDX
      )
#endif

/*
 *      ENTRY SWLSFT()
 */
#if DCLVER >= 700
      SUBROUTINE SWLSFT(
      )
#endif

/*
 *      ENTRY SWFLSH()
 */
#if DCLVER >= 700
      SUBROUTINE SWFLSH(
      )
#endif




林です

ruby-dcl の dcl7 対応って, どなたかさくっとできません?

# すっきりしたい.

以下 dcusers から.

From: "OTOBE, Naohito" <otobe@xxxxxxxxxxxxxx>
To: HAYASHI Yoshi-Yuki <shosuke@xxxxxxxxxxxxxx>,
dcusers-ml@xxxxxxxxxxxxxx
Date: Tue, 21 Jun 2016 13:49:19 +0900

乙部です。

動きはすると思いますが、
追加された関数はRubyから使えないのかなと思います。

環境変数は使えると思うので、機能は追加されている状態になるかと。

なので、
システムフォントで表示はできる。
ただし、使えるシステムフォントのリストなどは出せない。
Ruby-DCL用に用意した画面フラッシュ関数は呼べないということに
なると思うので、Ruby-DCLは手を入れていただいた方が幸せかと思います。



林です

ruby-dcl はなんらの変更なくそのまま動くですよね? 為念.

# やってみればわかるんでしょうけど.

From: "OTOBE, Naohito" <otobe@xxxxxxxxxxxxxx>
Subject: DCL-C
Date: Tue, 21 Jun 2016 12:45:04 +0900


乙部です。

DCL7のC版もリリースしました。

ユーザーが使うことはないバージョンかと思いますが
Ruby版の下地になります。

--
==================================================
福岡大学 理学部 地球圏科学教室
Otobe,Naohito (E-Mail:otobe@xxxxxxxxxxxxxx)
==================================================



-----
林  祥介            神戸大学 理学研究科
            惑星学専攻/惑星科学研究センター
Hayashi, Yoshi-Yuki Center for Planetary Science (CPS)/
            Department of Planetology
            Kobe University

















--
==================================================
福岡大学 理学部 地球圏科学教室
Otobe,Naohito (E-Mail:otobe@xxxxxxxxxxxxxx)
==================================================

--- ruby-dcl-1.7.1/GenWrapper/proto/grph1_swpack.fp	2015-03-18 12:27:42.000000000 +0900
+++ ruby-dcl-1.8.0/GenWrapper/proto/grph1_swpack.fp	2016-06-19 23:04:48.117169027 +0900
@@ -293,17 +293,43 @@
       )
 #endif

+/*
+ *      ENTRY SWSLFT(FONTNAME)
+ *      CHARACTER FONTNAME*(*)
+ */
+#if DCLVER >= 700
+      SUBROUTINE SWSLFT(
+          CHARACTER*(*) o FONTNAME
+      )
+#endif
+
+/*
+ *      ENTRY SWLSFT()
+ */
+#if DCLVER >= 700
+      SUBROUTINE SWLSFT(
+      )
+#endif
+
+/*
+ *      ENTRY SWFLSH()
+ */
+#if DCLVER >= 700
+      SUBROUTINE SWFLSH(
+      )
+#endif
+
 /*****************************************************
  * grph1/swpack/swpqnp.f
  ****************************************************/