namazu-ml(avocado)
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
Re: -F (filelist with drive letter)
- From: Ken-ichi Hirose <hirose@xxxxxxxxxxxxxxxxxxxx>
- Date: Thu, 19 Nov 1998 14:44:33 +0900
- X-ml-name: namazu
- X-mail-count: 01629
広瀬と申します。
遅いフォローですが。。。
<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