SXMLから、ある属性を持つ要素をSXPathを使って取り出したい。たとえば英語と日本語の文章からなるこんなデータから、lang属性が"ja"の要素を取り出したい。

(define e
  '(*TOP*
    (p (|@| (lang "ja"))
       "こんにちはこんにちは"
       (emph "日本語です"))
    (p (|@| (lang "en"))
       "hellohello"
       (emph "I got english"))
    (m (p (|@| (lang "ja"))
          "あしたは休み")
       (p (|@| (lang "en"))
          "I can't work any more"))))

どうやらSXPathで遊ぶときは、「真偽を返す関数」をsxml:xxxみたいな名前の関数に渡してコンバータを作り、それを要素に適用するというのが常套っぽい。いまは属性をもとに評価したいので、「真偽を返す関数」としては「lang属性の値が"ja"かどうかテストするプロシージャ」になるんだろうな。そして木全体をめぐりたいので、sxml:descendantで作ったコンバータをルートノードに適用すればよさそうだ。

(use sxml.sxpath)
(use sxml.tools)

(define (f r n v)
  ((sxml:descendant
    (lambda (e) (equal? "ja" (sxml:attr e 'lang))))
   r))

(define q (sxpath `(,f)))

実行結果

gosh> (q e)
((p (|@| (lang "ja")) "こんにちはこんにちは" (emph "日本語です")) 
 (p (|@| (lang "ja")) "あしたは休み"))