[xyzzy:08323] Re: 文字コードを使用して文字テーブル（？）

[YAMAMOTO Taizo <ymtz@xxxxxxxxxxxxxxx>]

やまもとです。

>Lispで文字コードを使用して文字テーブル（というのか？）
>をつくるには、どのように記述していけばいいでしょうか？

バッファ中の文字列の集合を別の文字列の集合にマッピング
したいのでしょうか。具体的な機能とI/O（＋例）が
分からないので、適当に想像して書いてみました。

(defun cnvstr ()
  (let* ((lst '(("1" . "2")
		("2" . "3")
		("3" . "4")
		("4" . "5")))
	 (rlst  (mapcar #'(lambda (x) (regexp-quote (car x))) lst))
	 (rex (format nil "~A~{\\|~A~}" (car rlst) (cdr rlst)))
	 str)
    (while (scan-buffer rex :regexp t :tail t)
      (setq str (cdr (assoc (match-string 0) lst :test 'string=)))
      (delete-region (match-beginning 0) (match-end 0))
      (insert str))))

-- 
    YAMAMOTO Taizo / 山本 泰三
        mailto:ymtz@xxxxxxxxxxxxxxx
        mailto:yamamoto@xxxxxxxxx
        http://www1.odn.ne.jp/ymtz/