namazu-ml(avocado)
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
Re: namazu-mode on emacs
Date: Wed, 28 Jan 1998 23:34:21 JST
From: Hajime BABA <baba@xxxxxxxxxxxxxxxxxxxxxx>
Subject: [namazu:00035] Re: namazu-mode on emacs
> > あと jka-compr ってのも使っていますが
> > こちらについてはどうでしょうか?
> 試していません。gzipped なファイルをインデックスしてないです。
試してみました。ちゃんと動いているようです。
やったことは、とりあえず動けば良いという事で、最後につけたような変
更を mknmz にしてみました。これで、やまださんが書いてたみたいな
あ> 0) Debian の /usr/doc 配下は gzipped である
あ> 1) いったん /usr/doc 配下を別の場所にコピーし
あ> ungzip してインデックスを作った
あ> 2) しかし /usr/doc 配下は以前 gzipped (当たり前)
あ> 3) namazu.el では /usr/doc 配下を見た方がうれしい
の 1) のような面倒な事はせずに済みます。
Plagiaware の /usr/doc 以下も gzipped なので、これをインデックスし
て mknmz -a /usr/doc/ /usr/doc/ (実際にはその一部だけで実験)という
事をしてインデックスを作成しました。そして、このインデックスを指定
して検索してみると、
| 1. README.recjis.gz (Text File) (score: 1)
| README of Recover jis coding system. ○ はじめにこれは MSB 落
| ちや ESC 落ちなどによって読めなくなってしまった記事を復元する
| プログラム集です。例えばニュースで初心者が EUC や shiftjis で
| 書いたファイルをそ
| /usr/doc/00READMES/README.recjis.gz size (1,098 bytes)
のようになって、この gzipped なファイルを選択したら、ちゃんと
jka-compr が働いて View-mode になってくれました。jka-compr のおか
げで non-gzipped file と gzipped file とがシームレスになるのですね。
うーん、これはアットー的に便利です。(^_^)
感想として、ドキュメント数が多いとインデックス生成にはやっぱし結構
時間がかかるので、インデックスはパッケージにあらかじめ最初から含め
ておいて、インストール時に選択できるようになっているのが良いですね。
Plagiaware にはNamazu は既に入っているのですが、Namazuの次のバージョ
ンが出て namazu.el がcontribされたら、そのようにこじまさんに提案し
てみます。
＃ Debian あたりはお願いします。＞やまださん
--
馬場 肇 ( Hajime BABA ) E-mail: baba@xxxxxxxxxxxxxxxxxxxxxx
京都大学理学部宇宙物理学教室 博士課程一回生
--
$TARGET_FILE_TYPE は、もっと適切になるようにいじってください。他に
も zcat とかベタ書きしていたりして邪悪だし、古川さんがおっしゃって
いたようなエラーチェックも皆無ですので、その辺修正をお願いです。
＞高林さん
--- mknmz.orig Fri Jan 30 13:49:14 1998
+++ mknmz Fri Jan 30 13:50:02 1998
@@ -182,7 +182,8 @@
## インデックシング処理の対象とするファイルの正規表現
## 大文字小文字の区別はしません。
-$TARGET_FILE_TYPE = '^.*\.html?$|^.*\.txt$|^.*_default$';
+#$TARGET_FILE_TYPE = '^.*\.html?$|^.*\.txt$|^.*_default$';
+$TARGET_FILE_TYPE = '^.*\.html?$|^.*\.txt$|^.*_default$|^.*\.(gz|Z)$';
# $TARGET_FILE_TYPE = '^.*\.html?$|^.*\.txt$|^.*_default$';
# _default はディレクトリ指定の URL のファイル。 httpdown の仕様
@@ -371,7 +372,11 @@
$size = -s $cfile;
return ($size, $ctrl) if $size > $FILE_SIZE_LIMIT;
- open(CFILE, "$NKF -emZ1 \"$cfile\" |") || die "Can't open $cfile.\n";
+ if ($cfile =~ /.*\.(gz|Z)$/) {
+ open(CFILE, "zcat \"$cfile\" | $NKF -emZ1 |") || die "Can't open $cfile.\n";
+ } else {
+ open(CFILE, "$NKF -emZ1 \"$cfile\" |") || die "Can't open $cfile.\n";
+ }
@tmp = <CFILE>;
$$contents = join("", @tmp);