OpenPGP support ?

[Daiki Ueno]

>>>>> In [emacs-mime-ja : No.00026] 
>>>>>	Katsumi Yamaoka <yamaoka ＠ jpl.org> wrote:

山岡> Mule 2.3 ＠ 19.34 で make したときに以下のようなエラーが出ます。

山岡> While compiling toplevel forms in file pgg-parse.el:
山岡>   !! error (("CCL: Invalid number of arguments: (write r1 r2 r3)"))

すみません。古い Emacsen のことを全然考えていなかったりします...

該当部分は PGP armor の checksum を計算する部分なので、CCL の出力を
用いずに、`ccl-execute-on-string' 後の status register の値をそのまま
使うことにしました。

;; そもそも、こんなことに CCL を使わなければ良いのですが...

ところで、pccl.el にこんなのはいかがでしょう?
`ccl-compile-write' に advice してしまって良いのか判りませんが...

(check-broken-facility ccl-cascading-read)

(when-broken ccl-cascading-read
  (defadvice ccl-compile-write
    (around accept-cascading-write activate)
    (let ((cmd (ad-get-arg 0)))
      (cond
       ((and (> (length cmd) 2)
	     (symbolp (nth 1 cmd)) 
	     (not (vectorp (nth 2 cmd))))
	(setq ad-return-value
	      (ccl-compile-1
	       (mapcar (function (lambda (arg) (list 'write arg)))
		       (cdr cmd)))))
       ((characterp (nth 1 cmd))
	(setq ad-return-value
	      (ccl-compile-1 (list 'write (nth 1 cmd)))))
       (t ad-do-it)))))

;; `write-byte' とかも、こんな感じでいいんでしょうか? > akr さん
;; 何か完全に勘違いしているような気もしますが...


;; 関係ないですが、XEmacs で以下の式を評価すると.....

;; (progn
;;   (require 'pccl)
;;   (define-ccl-program tst '(1 ("\xa1")))
;;   (ccl-execute-on-string tst (make-vector 9 nil) ""))

;; 見なかったことに...
-- 
Daiki Ueno (ueno ＠ ueda.info.waseda.ac.jp)