namazu-ml(ring)

[Rei FURUKAWA <furukawa@xxxxxxxxxxxxxxxx>]

古川です。

>> On Thu, 25 Feb 1999 16:28:01 +0900, takehi-s@xxxxxxxxxxx (SHIOZAKI Takehiko) said:
  > [On Feb 25, Rei FURUKAWA <furukawa@xxxxxxxxxxxxxxxx> writes:]
  >> gcnmz を pack 'w' 対応してみました。いちおう、
  > package nmztxt;
  > ってのが抜けてませんか?

そうでした！


  > ========================================================================
  > # ここから下は、nmztxt.pl から cut & paste したものである。
  > # 詳細は、nmztxt.pl を参照のこと
  > ========================================================================
  > の下に足せばよいのでしょうか?

そうです。

それと、以前御指摘を受けた、

>> On Mon, 21 Dec 1998 10:58:16 +0900, SHIOZAKI Takehiko <takehi-s@xxxxxxxxxxx>
  > gcnmzはこれをしてはいますが、.lock2がすでにあるときも作業を進めてしまいます。
  > &nmztxt::init()の戻り値を見ていませんね。

も直していませんでしたね。すみませんでした。


--- gcnmz.pl.orig	Thu Feb 25 11:53:49 1999
+++ gcnmz.pl	Thu Feb 25 16:32:13 1999
@@ -26,7 +26,7 @@
 $TMP_O = "TMP_O.tmp.$$";
 
 for (@ARGV){
-    &nmztxt::init($_);
+    if (&nmztxt::init($_)){
 
     # 現在無効になっているファイル番号を調べる
     print STDERR "checking NMZ.t\n" if !$Quiet;
@@ -80,6 +80,7 @@
     }
     &nmztxt::end;
 }
+}
 
 unlink($TMP_I);
 unlink($TMP_O);
@@ -129,6 +130,8 @@
 
 # ここから下は、nmztxt.pl から cut & paste したものである。
 # 詳細は、nmztxt.pl を参照のこと
+
+package nmztxt;
 
 sub init{
     local(*FH);

-- 

                                        ヤマハ(株)ピアノプレーヤ設計課
                                                              古川 令
                                             furukawa@xxxxxxxxxxxxxxxx