namazu-ml(avocado)

[kenzo-@xxxxxxxxxx (Ken-ichi Hirose)]

<199802180839.RAA09576@xxxxxxxxxxxxxxxxxx>の記事において
ccsatoru@xxxxxxxxxxxxxxxxxxさんは書きました。

広瀬です。

>> <URL:http://saturn.aichi-u.ac.jp/%7Eccsatoru/Namazu/proto/namazu-112-proto-2.tar.gz>
>> に試作版を置いておきます。まだ試作の試作といった段階ですから、その
>> ように扱ってください。もう数日すればある程度リファインできるかと思

に対する拡張で mknmz の NMZファイル郡を規定のディレクトリに出力できる
ようにして見ました。

NMZ.* を一つしか使わない人向けでいきなり /usr/local/namazu/index に
作ることが出来ます。

よかったらマージして頂けませんか？ ＞ 高林さん


*** mknmz.112	Wed Feb 18 17:07:12 1998
--- mknmz.pl	Sun Mar  1 22:11:13 1998
***************
*** 1055,1061 ****
  # コマンドラインの引数の処理
  sub commandlineopt ()
  {
!     my ($current_dir, $target_dir);
  
      &usage if (@ARGV == 0);
      while ($ARGV[0] =~ /^-/) {
--- 1055,1061 ----
  # コマンドラインの引数の処理
  sub commandlineopt ()
  {
!     my ($current_dir, $target_dir,$output_dir);
  
      &usage if (@ARGV == 0);
      while ($ARGV[0] =~ /^-/) {
***************
*** 1071,1076 ****
--- 1071,1081 ----
  	$NoMHonArcOpt  = 1 if $ARGV[0] =~ /M/;
  	$DebugOpt    = 1 if $ARGV[0] =~ /d/;
  	$NoHeadAbstOpt  = 1 if $ARGV[0] =~ /x/;
+ 	if ($ARGV[0] =~ /O$/) {
+ 	    shift @ARGV;
+ 	    $output_dir = $ARGV[0];
+ 	    print "Database output directory: $ARGV[0]\n";
+ 	}
  	if ($ARGV[0] =~ /I$/) {
  	    shift @ARGV;
  	    require $ARGV[0];
***************
*** 1085,1093 ****
  	$PROTOCOL = $ARGV[0];
  	shift @ARGV;
      }
!     
      $target_dir = $ARGV[0];
!     $current_dir = cwd();
  
      ($current_dir, $target_dir);
  }
--- 1090,1104 ----
  	$PROTOCOL = $ARGV[0];
  	shift @ARGV;
      }
! 
!     die "ERROR: Please input target directory \n" if ($ARGV[0] eq "");
      $target_dir = $ARGV[0];
!     if ($output_dir eq "") {
!         $current_dir = cwd();
!     } else {
!         $output_dir =~ s|/$||;
!         $current_dir = $output_dir;
!     }
  
      ($current_dir, $target_dir);
  }




  Best regards,
--
Ken-ichi Hirose (^^)k!      FreeBSD+PAO(Libretto50)
e-mail: kenzo-@xxxxxxxxxx (or) EHC25612@xxxxxxxxxxx