[xyzzy:06553] Re: reference 用にでも

[quarto <quarto@xxxxxxxxxxxx>]

HATTORI Masashiさん、こんにちは。

	      From: HATTORI Masashi <hattori@xxxxxxxxxxxxxxxx>
	      Date: Sun, 1 Apr 2001 01:39:05 +0900
	   Subject: [xyzzy:06551] Re: reference 用にでも
	Message-ID: <20010401013901.kamail.aGF0dG9yaQ==@xxxxxxxxxxxxxxxx>

うぅ、亀井さんといい服部さんといい速すぎる。Kamail に巡回ってあ
ったかな。


> Typeは手作業で lisp/ の下を見たり、CLTL2 見たりして調べてます。

CLTL2 は早速落としてきました。なんだか他にもいっぱいありますね。
まぁ項目は増やさずに、これを見ながら分けていくことにします。


> 私も全然知らないのですが、変換に使ってる Perl の XML Parser は、
> &amp; とかにしておかないとエラーになってしまうのでそうしてます。

眠い目をこすりながら、以下のような一括置換のコードを書いてみまし
た。Entity は MS の XML のヘルプを見ながら書いたのですが、Perl 
のは他にもありますか。

(defun addref-encode-entity ()
  (interactive)
  (save-excursion
	(goto-char (point-min))
	(while (scan-buffer "&\\|<\\|>\\|\"\\|'"
						:no-dup t :regexp t)
	  (cond
	   ((looking-for "&")
		(when (not (looking-for
					(or "&amp;" "&lt;" "&gt;" "&apos;" "&quot;")))
		  (forward-char)
		  (insert "amp;")))
	   ((looking-for "<")
		(when (not (dolist (i *addref-tag-list*)
					 (when (looking-for i)
					   (return t))))
		  (delete-char)
		  (insert "&lt;")))
	   ((looking-for ">")
		(when (dolist (i *addref-tag-list*)
				(when (looking-back i)
				  (return t)))
		  (delete-char)
		  (insert "&gt;")))
	   ((looking-for "\"")
		(delete-char)
		(insert "&quot"))
	   ((looking-for "'")
		(delete-char)
		(insert "&apos"))
	   (t ())))))

*addref-tag-list* は <title> とか </section> とかを全部つっこん
だリストです。何とか動いているように見えますが、頭がぼーっとして
いるので見間違いかもしれません。


> 以前は逸見さんに頂いたり自作したりした編集用ツールがあったのですが、
> HDD と共に飛んでしまってそれっきりになってます。(T_T;
> ; というか全然作業してないし・・・

あぁ、それはご愁傷様です。

私の手元にあるので一番新しい物が去年の 1 月の物ですね。1 年です
か。どかっと増えた方が、なんかうれしいと言うこともあるかと思いま
すが。
このプロジェクトは現在、服部さん一人でやってらっしゃるのですか?


**********
quarto <quarto@xxxxxxxxxx>