バッファを1行ずつ処理するマクロ

まあ、置換とかは replace-buffer とかで一発なんだが、もちょっと凝ったことをしたいときがある。

今まではバッファを1行づつ処理するときは、

(while (null (eobp))
(let* ((beg (save-excursion (goto-bol) (point)))
(end (save-excursion (goto-eol) (point)))
(s (buffer-substring beg end)))
(dbg-msgbox s)                            ; やりたい処理
(forward-line)))

とかやっていた。

すごく冗長に感じていたし、カーソルを動かしたりするのがやるせなかった。行頭と行末のポイントが欲しいだけなのに、save-excursion するのとか、不必要に let* 使うのもちょっと変だと思っていた。まあ、いろいろキモかった。

もうちょっと読みやすいのを考えてみた。今回はマクロで。

;;; バッファを1行ずつ処理する
;;; e.g. (loop-at-buffer (line)
;;;        (dbg-msgbox line))
(defmacro loop-at-buffer ((var &optional buffer) &body body)
(let ((gbuf (gensym))
(gstream (gensym)))
`(let* ((,gbuf (cond ((null ,buffer) (selected-buffer))
((bufferp ,buffer) ,buffer)
(t (find-buffer ,buffer))))
(,gstream (if ,gbuf (make-buffer-stream ,gbuf)
(error "\"~A\"という名前のバッファが見つかりません" ,buffer))))
(loop
(let ((,var (read-line ,gstream nil)))
(unless ,var (return nil))
,@body)))))

これを使うと、上の例は↓こう書けるようになる。

(loop-at-buffer (line)
(dbg-msgbox line))

わりといい感じになった。

パラメータは下記の2つ。

• 第1パラメータは、バッファの1行を取り出した文字列を入れる変数を指定する。省略不可。


• 第2パラメータは、回すバッファを指定する。省略時は現在のバッファになる。

ちなみに、マクロ内で使ってる make-buffer-stream は xyzzy の関数なんだが、引数に nil を渡すと適当になんかのバッファ(selected-buffer か?)に紐づいたストリームを返すみたいで、具合が悪い。その対策を入れてある。

･･･とここまでやっておいて、実は with-input-from-buffer があったことに気づく。

また車輪やってしまった。