xyzzy + xdoc2txt.l ＋ Hyper Estraier ＋ HE-grep.l

Hyper Estraier で抽出したファイルに対してgrep

準備

xdoc2txt

• xdoc2txt.exe（2008-02-05 現在 ver.1.27）
• zlib.dll（xdoc2txt に同梱）
• cryptlib.dll

xdoc2txt.l

(require "xdoc2txt")

Hyper Estraier

estcmd.exe
estraier.dll
estxfilt.bat
libiconv-2.dll
mgwz.dll
pthreadGC2.dll
qdbm.dll
regex.dll

HE-grep.l

;HE-grep をロード
(require "HE-grep")

;検索結果表示を別フレームにしない
(setq *use-frame-HE-grep* nil)

;検索対象をリスト形式で指定
(setq *HE-command-list*
'(
  (
   "pdf(&P)"           ;ポップアップメニューに表示する名前
   "E:/pdf/casket"     ;インデックスを保存してあるディレクトリ
   "estcmd search -sf -ic CP932 -vh -max -1"
                       ;estcmd search コマンドをオプション付きで指定
   "E:/pdf"            ;インデックス作成対象のディレクトリ
  )
  (
   "doc(&D)"
   "C:/Documents and Settings/user/My Documents/casket"
   "estcmd search -sf -ic CP932 -vh -max -1"
   "C:/Documents and Settings/user/My Documents"
  )
  (
   "html(&H)"
   "E:/HTML/casket"
   "estcmd search -sf -ic CP932 -vh -max -1"
   "E:/HTML"
   )
))

;インデックスを作成
(setq *HE-make-index-command-list*
'(
 ;インデックス化(gather)、存在しない文書情報の削除(purge)、
 ;最適化(optimize)を実行する（PDFの例）
 (
   "E:/pdf/casket"      ;インデックスを保存するディレクトリ
   "E:/pdf"             ;検索対象ディレクトリ
   "estcmd gather -cl -fx .pdf T@estxfilt -fz ^ -ic CP932 -pc CP932 -sd -cm"
                        ;estcmd gather コマンドをオプション付きで指定
   "estcmd purge -cl"   ;estcmd purge コマンドをオプション付きで指定
                        ;行わない場合nil
   "estcmd optimize"    ;estcmd optimize コマンドをオプション付きで指定
                        ;行わない場合nil
   "gather-pdf(&P)"     ;ポップアップメニューに表示する名前
 )

 ;purge と optimize を行わない場合（Office文書の例）
 (
   "C:/Documents and Settings/user/My Documents/casket"
   "C:/Documents and Settings/user/My Documents"
   "estcmd gather -cl -fx .rtf,.doc,.xls,.ppt T@estxfilt -fz
     ^ -ic CP932 -pc CP932 -sd -cm"
   nil
   nil
   "gather-doc(&D)"
 )

;登録したディレクトリのインデックスをまとめて作成
(setq *HE-make-index-all-command-list*
'(
  (
  "E:/casket"
  "E:/DiaryData"
  "estcmd gather -pc CP932 -ic CP932 -fh -sd -cm"
  "estcmd purge"
  "estcmd optimize"
  )
))

estcmd optimize [-onp] [-ond] db
              ：インデックスを最適化して、不要な領域を削除
              
estcmd search [-ic enc] [-vu|-va|-vf|-vs|-vh|-vx|-dd] [-kn num] [-um] [-ec rn]
              [-gs|-gf|-ga] [-cd] [-ni] [-sf] [-hs] [-attr expr] [-ord expr]
              [-max num] [-sk num] [-sim id] db [phrase]
              ：インデックスに登録された文書を検索
              
estcmd gather [-cl] [-no] [-fe|-ft|-fh|-fm] [-fx sufs cmd] [-fz] [-fo]
              [-rm sufs] [-ic enc] [-il lang] [-bc] [-pc enc] [-px name]
              [-apn|-acc] [-xl|-xh] [-sd] [-cm] [-cs num] [-kn num] [-um] db
              [file|dir]
              ：ファイルシステムを探索して文書を登録
              
estcmd purge [-cl] [-no] [-fc] [-pc enc] [-attr expr] db [prefix]
              ：インデックス内にあってファイルシステム上にない文書情報を削除

  -sf：検索式を簡便形式で
  -vh：VIEW HUMAN　表示方法の設定
  -max：最大表示件数。負数にすると無制限
  -cl：上書きされた文書の領域を整理
  
  -fx：ファイル（カンマ区切りで列挙）に関連づけた外部コマンドを指定
  T@estxfilt：Hyper Estraierからxdoc2txtを呼び出し(estxfilt.bat)、
              外部コマンドによる出力をプレーンテキストとして解析(T@)
  -fz：-fxの条件に当てはまらないファイルを無視
  -fh：処理対象をHTMLとして扱う
  -fm：処理対象をMIME（メール）として扱う
  ^：エスケープシーケンス
  -ic；対象文書の文字コードを指定　CP932 はestxfiltの出力の文字コード
  -pc：ファイルのパスの文字コードを指定
  -il：文字コードの判定で優先される言語を指定
  -sd：ファイルの更新日時を文書の属性として追加
  -cm：文書の属性の更新日時がファイルの更新日時より古い場合にのみ登録

M-x HE-make-index

M-x HE-make-index-all

M-x HE-grep

C-u M-x HE-grep
：検索対象インデックスをポップアップメニューから選択して検索

regrep.l

• M-x regrep して検索語入力。
• M-x regrep-open-file ：Grep関連バッファでカーソル下のファイルを開く。

HE-grep の検索結果にも regrep

70行目あたりに　 (string= "*HE-grep*" bufname)
130行目あたりに　(string= bufname "*HE-grep*")
160行目あたりに　(string= "*HE-grep*" bufname)

grep 結果のクリックでジャンプ

• *regrep*バッファの検索結果上でも、 Enter or クリックでファイルを開いて