namazu-ml(avocado)


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

Re: -F (filelist with drive letter)



広瀬と申します。

遅いフォローですが。。。

 <s_yam@xxxxxxxxxxxx> wrote.
/~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
> たまにmknmzの"-F"オプションについての話題がありますが、Win32やOS/2で(DOSプロンプトや
>OS/2コマンドプロンプトから使う場合)、ドライブ名を含んだ @FList は処理できますでしょう
>か。
>
>c:\public_html\library\type-s.html
>c:\public_html\library\search-s.html
>...
>
>といったファイル(絶対パス・相対パス共使いたい)でちょっとやってみたのですが、

\c:\public_html\library\type-s.html
\c:\public_html\library\search-s.html

とかやるとうまくいくかも知れません。。。

>Loaded: c:\temp\flist.txt
>: No such file or directory
>と怒られてしまってうまくできません。-F はドライブ名には未対応なのでしょうか。

昼休みに patch を作ったのでそれを当ててみてください。_o_
#他に気になった所も修正していますが。。。

一応私の所ではうまくいっています。
ついでに OS2 でも確認して頂けると助かります。 > OS2 ユーザの方

問題無ければ次の release にでも反映してください > 高林さん

---8<------8<------8<------8<------8<------8<------8<------8<------8<------8<--
*** mknmz.pl.org	Thu Nov 19 12:59:34 1998
--- mknmz.pl	Thu Nov 19 14:25:36 1998
***************
*** 1350,1361 ****
   	if ($ARGV[0] =~ /O$/) {
   	    shift @ARGV;
  	    $output_dir = $ARGV[0];
! 	    $output_dir =~ s|/+$||;
   	    print "Index output directory: $ARGV[0]\n" unless $QuietOpt;
   	} elsif ($ARGV[0] =~ /T$/) {
   	    shift @ARGV;
  	    $LIBDIR = $ARGV[0];
! 	    $LIBDIR =~ s|/+$||;
   	} elsif ($ARGV[0] =~ /I$/) {
  	    shift @ARGV;
  	    require $ARGV[0];
--- 1350,1361 ----
   	if ($ARGV[0] =~ /O$/) {
   	    shift @ARGV;
  	    $output_dir = $ARGV[0];
! 	    $output_dir =~ s|\Q$PSC\E*$||;
   	    print "Index output directory: $ARGV[0]\n" unless $QuietOpt;
   	} elsif ($ARGV[0] =~ /T$/) {
   	    shift @ARGV;
  	    $LIBDIR = $ARGV[0];
! 	    $LIBDIR =~ s|\Q$PSC\E*$||;
   	} elsif ($ARGV[0] =~ /I$/) {
  	    shift @ARGV;
  	    require $ARGV[0];
***************
*** 1396,1402 ****
      close(TLIST);
      # convert a relative path into an absolute path
      grep(s/^\.\Q$PSC\E/$cwd$PSC/, @FList); 
!     grep(s/^([^\Q$PSC\E])/$cwd$PSC$1/, @FList); 
      grep(chop, @FList); 
  
      # traverse directories
--- 1396,1406 ----
      close(TLIST);
      # convert a relative path into an absolute path
      grep(s/^\.\Q$PSC\E/$cwd$PSC/, @FList); 
!     if (($SYSTEM eq "MSWin32") || ($SYSTEM eq "os2")) {
!         grep(s/^[A-Z](?!\Q:$PSC\E)/$cwd$PSC$&/i, @FList); 
!     } else {
!         grep(s/^([^\Q$PSC\E])/$cwd$PSC$1/, @FList); 
!     }
      grep(chop, @FList); 
  
      # traverse directories

   Best regards,
--
Ken-ichi Hirose (^^)k!
e-mail: hirose@xxxxxxxxxxxxxxxxxxxx