Namazu-win32-users-ja(旧)


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

oleichitaro[45678].pl



竹迫です。

<baba@xxxxxxxxxxxxxxxxxxxxxx> said:
>上のURLをご覧になればわかりますが、CVSリポジトリ内には、竹迫さんが 
>namazu-users-ja 907 でおっしゃっていた olertf.pl も追加してあります。

olertf.pl の件、どうもありがとうございました。
それに年末年始にかけてたくさんの作業お疲れさまでした。>馬場さん

>それに、olertf.pl の類推から、oleichitaro[45678].pl というのを
>作ってテストスイートのファイル(*)をインデックスしてみたところ、
>JSTXT 無しでも一太郎4,5,6,7,8 はインデックスできるようです。
>(*) http://cvs.namazu.org/namazu/tests/data/ 以下。

こちらでも oleichitaro[45678].pl を確めてみました。
Windows95 OSR2.1, ActivePerl-5.6.0.620, Office 97, namazu-2.0.4
という馬場さんと似たような環境ですが、結果うまく動きました。

Ver 4 では、インデックスの際に「一太郎 Ver. 4/dash 文書コンバータ」
という確認ウィンドウが毎回出てきますが、Ver5,6は、「次回からはこの
ウィンドウを表示しない」というチェックボックスをチェックすると、
それ以降は表示されることはありませんでした。

あと、一つ気になったのは、
oleichitaro[45678].pl のファイルが5つあるのは少し気持ち悪いので、
フィルタのファイル名を oletaro.pl の一つに統一するなどして、

package oletaro;

sub mediatype() {
    return ( 
        'application/ichitaro4', 'application/ichitaro5',
        'application/ichitaro6', 'application/ichitaro7',
        'application/x-js-taro'
    );
}

sub add_magic ($) {
    my ($magic) = @_;
    $magic->addFileExts('\\.jsw$', 'application/ichitaro4');
    $magic->addFileExts('\\.jaw$|\\.jtw$', 'application/ichitaro5');
    $magic->addFileExts('\\.jbw$|\\.juw$', 'application/ichitaro6');
    $magic->addFileExts('\\.jfw$|\\.jvw$', 'application/ichitaro7');
    $magic->addFileExts('\\.jtd$|\\.jtt$', 'application/x-js-taro');
    return;
}

みたいな書き方をして、filter()関数の中で

    util::vprint("Processing ichitaro file ...\n");

と表示してみると少しスッキリするかもしれません。

# 本当は、olemsword.pl 一つで統合すべきものなのかも... (^^;

--
   広島市立大学 情報科学部 情報機械システム工学科
     竹迫 良範 <takesako@xxxxxxxxx>