X-Git-Url: http://git.chise.org/gitweb/?a=blobdiff_plain;f=ew-bq.el;h=467e9d2107e04002978b522aa40a97d10bbbd920;hb=5fb11b58b6a6c8ebabf0cee2c30b92293b056a23;hp=945603a376e52be8006545d1749b2ae82f01ed30;hpb=56e5158b6736b10f1dc239fd6edf508343d9470b;p=elisp%2Fflim.git

diff --git a/ew-bq.el b/ew-bq.el
index 945603a..467e9d2 100644
--- a/ew-bq.el
+++ b/ew-bq.el
@@ -3,6 +3,40 @@
 
 (provide 'ew-bq)
 
+;;;
+
+(defvar ew-ccl-use-symbol
+  (eval-when-compile
+    (define-ccl-program ew-ccl-identity
+      '(1 ((read r0) (loop (write-read-repeat r0)))))
+    (condition-case nil
+	(progn
+	  (make-coding-system
+	   'ew-ccl-identity 4 ?I
+	   "Identity coding system for byte-compile time checking"
+	   '(ew-ccl-identity . ew-ccl-identity))
+	  t)
+      (error nil))))
+
+(defvar ew-ccl-untrusted-eof-block
+  (eval-when-compile
+    (let ((status (make-vector 9 nil)))
+      (ccl-execute-on-string
+       (ccl-compile
+        '(0 (read r0) (r0 = 1)))
+       status
+       "")
+      (= (aref status 0) 0))))
+
+(defun ew-make-ccl-coding-system (coding-system mnemonic doc-string decoder encoder)
+  (make-coding-system
+   coding-system 4 mnemonic doc-string
+   (if ew-ccl-use-symbol
+       (cons decoder encoder)
+     (cons (symbol-value decoder) (symbol-value encoder)))))
+
+;;;
+
 (eval-when-compile
 
 (defconst ew-ccl-4-table
@@ -69,47 +103,46 @@
     ew-ccl-256-table)))
 
 (defconst ew-ccl-u-raw
-  (append "!@#$%&'()*+,-./0123456789:;<>@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\\]^`abcdefghijklmnopqrstuvwxyz{|}~" ()))
+  (append
+   "0123456789"
+   "ABCDEFGHIJKLMNOPQRSTUVWXYZ"
+   "abcdefghijklmnopqrstuvwxyz"
+   "!@#$%&'()*+,-./:;<>@[\\]^`{|}~"
+   ()))
 
 (defconst ew-ccl-c-raw
-  (append "!@#$%&'*+,-./0123456789:;<>@ABCDEFGHIJKLMNOPQRSTUVWXYZ[]^`abcdefghijklmnopqrstuvwxyz{|}~" ()))
+  (append
+   "0123456789"
+   "ABCDEFGHIJKLMNOPQRSTUVWXYZ"
+   "abcdefghijklmnopqrstuvwxyz"
+   "!@#$%&'*+,-./:;<>@[]^`{|}~"
+   ()))
 
 (defconst ew-ccl-p-raw
-  (append "!*+-/0123456789ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz" ()))
+  (append
+   "0123456789"
+   "ABCDEFGHIJKLMNOPQRSTUVWXYZ"
+   "abcdefghijklmnopqrstuvwxyz"
+   "!*+-/"
+   ()))
 
 (defconst ew-ccl-256-to-64-table
-  '(nil  nil  nil  nil  nil  nil  nil  nil
-    nil  nil  nil  nil  nil  nil  nil  nil
-    nil  nil  nil  nil  nil  nil  nil  nil
-    nil  nil  nil  nil  nil  nil  nil  nil
-    nil  nil  nil  nil  nil  nil  nil  nil
-    nil  nil  nil   62  nil  nil  nil   63
-     52   53   54   55   56   57   58   59
-     60   61  nil  nil  nil    t  nil  nil
-    nil    0    1    2    3    4    5    6
-      7    8    9   10   11   12   13   14
-     15   16   17   18   19   20   21   22
-     23   24   25  nil  nil  nil  nil  nil
-    nil   26   27   28   29   30   31   32
-     33   34   35   36   37   38   39   40
-     41   42   43   44   45   46   47   48
-     49   50   51  nil  nil  nil  nil  nil
-    nil  nil  nil  nil  nil  nil  nil  nil
-    nil  nil  nil  nil  nil  nil  nil  nil
-    nil  nil  nil  nil  nil  nil  nil  nil
-    nil  nil  nil  nil  nil  nil  nil  nil
-    nil  nil  nil  nil  nil  nil  nil  nil
-    nil  nil  nil  nil  nil  nil  nil  nil
-    nil  nil  nil  nil  nil  nil  nil  nil
-    nil  nil  nil  nil  nil  nil  nil  nil
-    nil  nil  nil  nil  nil  nil  nil  nil
-    nil  nil  nil  nil  nil  nil  nil  nil
-    nil  nil  nil  nil  nil  nil  nil  nil
-    nil  nil  nil  nil  nil  nil  nil  nil
-    nil  nil  nil  nil  nil  nil  nil  nil
-    nil  nil  nil  nil  nil  nil  nil  nil
-    nil  nil  nil  nil  nil  nil  nil  nil
-    nil  nil  nil  nil  nil  nil  nil  nil))
+  '(nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil
+    nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil
+    nil nil nil nil nil nil nil nil nil nil nil  62 nil nil nil  63
+     52  53  54  55  56  57  58  59  60  61 nil nil nil   t nil nil
+    nil   0   1   2   3   4   5   6   7   8   9  10  11  12  13  14
+     15  16  17  18  19  20  21  22  23  24  25 nil nil nil nil nil
+    nil  26  27  28  29  30  31  32  33  34  35  36  37  38  39  40
+     41  42  43  44  45  46  47  48  49  50  51 nil nil nil nil nil
+    nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil
+    nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil
+    nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil
+    nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil
+    nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil
+    nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil
+    nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil
+    nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil))
 
 (defconst ew-ccl-64-to-256-table
   '(?A ?B ?C ?D ?E ?F ?G ?H ?I ?J ?K ?L ?M ?N ?O ?P
@@ -117,6 +150,24 @@
     ?g ?h ?i ?j ?k ?l ?m ?n ?o ?p ?q ?r ?s ?t ?u ?v
     ?w ?x ?y ?z ?0 ?1 ?2 ?3 ?4 ?5 ?6 ?7 ?8 ?9 ?+ ?/))
 
+(defconst ew-ccl-qp-table
+  [enc enc enc enc enc enc enc enc enc wsp enc enc enc cr  enc enc
+   enc enc enc enc enc enc enc enc enc enc enc enc enc enc enc enc
+   wsp raw raw raw raw raw raw raw raw raw raw raw raw raw raw raw
+   raw raw raw raw raw raw raw raw raw raw raw raw raw enc raw raw
+   raw raw raw raw raw raw raw raw raw raw raw raw raw raw raw raw
+   raw raw raw raw raw raw raw raw raw raw raw raw raw raw raw raw
+   raw raw raw raw raw raw raw raw raw raw raw raw raw raw raw raw
+   raw raw raw raw raw raw raw raw raw raw raw raw raw raw raw enc
+   enc enc enc enc enc enc enc enc enc enc enc enc enc enc enc enc
+   enc enc enc enc enc enc enc enc enc enc enc enc enc enc enc enc
+   enc enc enc enc enc enc enc enc enc enc enc enc enc enc enc enc
+   enc enc enc enc enc enc enc enc enc enc enc enc enc enc enc enc
+   enc enc enc enc enc enc enc enc enc enc enc enc enc enc enc enc
+   enc enc enc enc enc enc enc enc enc enc enc enc enc enc enc enc
+   enc enc enc enc enc enc enc enc enc enc enc enc enc enc enc enc
+   enc enc enc enc enc enc enc enc enc enc enc enc enc enc enc enc])
+
 )
 
 (define-ccl-program ew-ccl-decode-q
@@ -161,7 +212,7 @@
 
 (define-ccl-program ew-ccl-encode-uq
   (eval-when-compile
-    `(1
+    `(3
       (loop
        (loop
 	(read-branch
@@ -180,7 +231,7 @@
 
 (define-ccl-program ew-ccl-encode-cq
   (eval-when-compile
-    `(1
+    `(3
       (loop
        (loop
 	(read-branch
@@ -199,7 +250,7 @@
 
 (define-ccl-program ew-ccl-encode-pq
   (eval-when-compile
-    `(1
+    `(3
       (loop
        (loop
 	(read-branch
@@ -216,53 +267,138 @@
        (write r0 ,ew-ccl-low-table)
        (repeat)))))
 
-(define-ccl-program ew-ccl-decode-b
-  (eval-when-compile
-    `(1
-      (loop
-       (loop
-	(read-branch
-	 r1
-	 ,@(mapcar
-	    (lambda (v)
-	      (cond
-	       ((or (eq v nil) (eq v t)) '(repeat))
-	       (t `((r0 = ,(lsh v 2)) (break)))))
-	    ew-ccl-256-to-64-table)))
-       (loop
-	(read-branch
-	 r1
-	 ,@(mapcar
-	    (lambda (v)
-	      (cond
-	       ((or (eq v nil) (eq v t)) '(repeat))
-	       ((= (lsh v -4) 0) `((write r0) (r0 = ,(lsh (logand v 15) 4)) (break)))
-	       (t `((write (r0 | ,(lsh v -4))) (r0 = ,(lsh (logand v 15) 4)) (break)))))
-	    ew-ccl-256-to-64-table)))
-       (loop
-	(read-branch
-	 r1
-	 ,@(mapcar
-	    (lambda (v)
-	      (cond
-	       ((eq v nil) '(repeat))
-	       ((eq v t) '(end))
-	       ((= (lsh v -2) 0) `((write r0) (r0 = ,(lsh (logand v 3) 6)) (break)))
-	       (t `((write (r0 | ,(lsh v -2))) (r0 = ,(lsh (logand v 3) 6)) (break)))))
-	    ew-ccl-256-to-64-table)))
-       (loop
-	(read-branch
-	 r1
-	 ,@(mapcar
-	    (lambda (v)
-	      (cond
-	       ((eq v nil) '(repeat))
-	       ((eq v t) '(end))
-	       (t `((write (r0 | ,v)) (break)))))
-	    ew-ccl-256-to-64-table)))
-       (repeat)))))
+(eval-when-compile
+(defun ew-ccl-decode-b-bit-ex (v)
+  (logior
+   (lsh (logand v (lsh 255 16)) -16)
+   (logand v (lsh 255 8))
+   (lsh (logand v 255) 16)))
+
+(defconst ew-ccl-decode-b-0-table
+  (vconcat
+   (mapcar
+    (lambda (v)
+      (if (integerp v)
+	  (ew-ccl-decode-b-bit-ex (lsh v 18))
+	(lsh 1 24)))
+    ew-ccl-256-to-64-table)))
 
-(eval-and-compile
+(defconst ew-ccl-decode-b-1-table
+  (vconcat
+   (mapcar
+    (lambda (v)
+      (if (integerp v)
+	  (ew-ccl-decode-b-bit-ex (lsh v 12))
+	(lsh 1 25)))
+    ew-ccl-256-to-64-table)))
+
+(defconst ew-ccl-decode-b-2-table
+  (vconcat
+   (mapcar
+    (lambda (v)
+      (if (integerp v)
+	  (ew-ccl-decode-b-bit-ex (lsh v 6))
+	(lsh 1 26)))
+    ew-ccl-256-to-64-table)))
+
+(defconst ew-ccl-decode-b-3-table
+  (vconcat
+   (mapcar
+    (lambda (v)
+      (if (integerp v)
+	  (ew-ccl-decode-b-bit-ex v)
+	(lsh 1 27)))
+    ew-ccl-256-to-64-table)))
+
+)
+
+(define-ccl-program ew-ccl-decode-b
+  `(1
+    (loop
+     (read r0 r1 r2 r3)
+     (r4 = r0 ,ew-ccl-decode-b-0-table)
+     (r5 = r1 ,ew-ccl-decode-b-1-table)
+     (r4 |= r5)
+     (r5 = r2 ,ew-ccl-decode-b-2-table)
+     (r4 |= r5)
+     (r5 = r3 ,ew-ccl-decode-b-3-table)
+     (r4 |= r5)
+     (if (r4 & ,(lognot (1- (lsh 1 24))))
+	 ((loop
+	   (if (r4 & ,(lsh 1 24))
+	       ((r0 = r1) (r1 = r2) (r2 = r3) (read r3)
+		(r4 >>= 1) (r4 &= ,(logior (lsh 7 24)))
+		(r5 = r3 ,ew-ccl-decode-b-3-table)
+		(r4 |= r5)
+		(repeat))
+	     (break)))
+	  (loop
+	   (if (r4 & ,(lsh 1 25))
+	       ((r1 = r2) (r2 = r3) (read r3)
+		(r4 >>= 1) (r4 &= ,(logior (lsh 7 24)))
+		(r5 = r3 ,ew-ccl-decode-b-3-table)
+		(r4 |= r5)
+		(repeat))
+	     (break)))
+	  (loop
+	   (if (r2 != ?=)
+	       (if (r4 & ,(lsh 1 26))
+		   ((r2 = r3) (read r3)
+		    (r4 >>= 1) (r4 &= ,(logior (lsh 7 24)))
+		    (r5 = r3 ,ew-ccl-decode-b-3-table)
+		    (r4 |= r5)
+		    (repeat))
+		 ((r6 = 0)
+		  (break)))
+	     ((r6 = 1)
+	      (break))))
+	  (loop
+	   (if (r3 != ?=)
+	       (if (r4 & ,(lsh 1 27))
+		   ((read r3)
+		    (r4 = r3 ,ew-ccl-decode-b-3-table)
+		    (repeat))
+		 (break))
+	     ((r6 |= 2)
+	      (break))))
+	  (r4 = r0 ,ew-ccl-decode-b-0-table)
+	  (r5 = r1 ,ew-ccl-decode-b-1-table)
+	  (r4 |= r5)
+	  (branch
+	   r6
+	   ;; BBBB
+	   ((r5 = r2 ,ew-ccl-decode-b-2-table)
+	    (r4 |= r5)
+	    (r5 = r3 ,ew-ccl-decode-b-3-table)
+	    (r4 |= r5)
+	    (r4 >8= 0)
+	    (write r7)
+	    (r4 >8= 0)
+	    (write r7)
+	    (r4 >8= 0)
+	    (write-repeat r7))
+	   ;; error: BB=B 
+	   ((r4 >8= 0)
+	    (write r7)
+	    (end))
+	   ;; BBB=
+	   ((r5 = r2 ,ew-ccl-decode-b-2-table)
+	    (r4 |= r5)
+	    (r4 >8= 0)
+	    (write r7)
+	    (r4 >8= 0)
+	    (write r7)
+	    (end))
+	   ;; BB==
+	   ((r4 >8= 0)
+	    (write r7)
+	    (end))))
+       ((r4 >8= 0)
+	(write r7)
+	(r4 >8= 0)
+	(write r7)
+	(r4 >8= 0)
+	(write-repeat r7))))))
 
 ;; ew-ccl-encode-b works only 20.3 or later because CCL_EOF_BLOCK
 ;; is not executed on 20.2 (or former?).
@@ -329,33 +465,455 @@
 	(write ?=)))
       )))
 
-)
-
 ;;;
 
-(make-coding-system 'ew-ccl-uq 4 ?Q "Q-encoding in unstructured field"
-		    (cons ew-ccl-decode-q ew-ccl-encode-uq))
-
-(make-coding-system 'ew-ccl-cq 4 ?Q "Q-encoding in comment"
-		    (cons ew-ccl-decode-q ew-ccl-encode-cq))
+;; ew-ccl-encode-base64 does not works on 20.2 by same reason of ew-ccl-encode-b
+(define-ccl-program ew-ccl-encode-base64
+  (eval-when-compile
+    `(2
+      ((r3 = 0)
+       (loop
+	(r2 = 0)
+	(read-branch
+	 r1
+	 ,@(mapcar
+	    (lambda (r1)
+	      `((write ,(nth (lsh r1 -2) ew-ccl-64-to-256-table))
+		(r0 = ,(logand r1 3))))
+	    ew-ccl-256-table))
+	(r2 = 1)
+	(read-branch
+	 r1
+	 ,@(mapcar
+	    (lambda (r1)
+	      `((write r0 ,(vconcat
+			    (mapcar
+			     (lambda (r0)
+			       (nth (logior (lsh r0 4)
+					    (lsh r1 -4))
+				    ew-ccl-64-to-256-table))
+			     ew-ccl-4-table)))
+		(r0 = ,(logand r1 15))))
+	    ew-ccl-256-table))
+	(r2 = 2)
+	(read-branch
+	 r1
+	 ,@(mapcar
+	    (lambda (r1)
+	      `((write r0 ,(vconcat
+			    (mapcar
+			     (lambda (r0)
+			       (nth (logior (lsh r0 2)
+					    (lsh r1 -6))
+				    ew-ccl-64-to-256-table))
+			     ew-ccl-16-table)))))
+	    ew-ccl-256-table))
+	(r1 &= 63)
+	(write r1 ,(vconcat
+		    (mapcar
+		     (lambda (r1)
+		       (nth r1 ew-ccl-64-to-256-table))
+		     ew-ccl-64-table)))
+	(r3 += 1)
+	(if (r3 == 19) ; 4 * 19 = 76 --> line break.
+	    ((write "\r\n")
+	     (r3 = 0)))
+	(repeat)))
+      (branch
+       r2
+       (if (r0 > 0) (write "\r\n"))
+       ((write r0 ,(vconcat
+		    (mapcar
+		     (lambda (r0)
+		       (nth (lsh r0 4) ew-ccl-64-to-256-table))
+		     ew-ccl-4-table)))
+	(write "==\r\n"))
+       ((write r0 ,(vconcat
+		    (mapcar
+		     (lambda (r0)
+		       (nth (lsh r0 2) ew-ccl-64-to-256-table))
+		     ew-ccl-16-table)))
+	(write "=\r\n")))
+      )))
 
-(make-coding-system 'ew-ccl-pq 4 ?Q "Q-encoding in phrase"
-		    (cons ew-ccl-decode-q ew-ccl-encode-pq))
+;; ew-ccl-encode-quoted-printable does not works on 20.2 by same reason of ew-ccl-encode-b
+(define-ccl-program ew-ccl-encode-quoted-printable
+  (eval-when-compile
+    `(4
+      ((r6 = 0) ; column
+       (r5 = 0) ; previous character is white space
+       (r4 = 0)
+       (read r0)
+       (loop ; r6 <= 75
+	(loop
+	 (loop
+	  (branch
+	   r0
+	   ,@(mapcar
+	      (lambda (r0)
+		(let ((tmp (aref ew-ccl-qp-table r0)))
+		  (cond
+		   ((eq tmp 'raw) '((r3 = 0) (break))) ; RAW
+		   ((eq tmp 'enc) '((r3 = 1) (break))) ; ENC
+		   ((eq tmp 'wsp) '((r3 = 2) (break))) ; WSP
+		   ((eq tmp 'cr) '((r3 = 3) (break))) ; CR
+		   )))
+	      ew-ccl-256-table)))
+	 (branch
+	  r3
+	  ;; r0:r3=RAW
+	  (if (r6 < 75)
+	      ((r6 += 1)
+	       (r5 = 0)
+	       (r4 = 1)
+	       (write-read-repeat r0))
+	    (break))
+	  ;; r0:r3=ENC
+	  ((r5 = 0)
+	   (if (r6 < 73)
+	       ((r6 += 3)
+		(write "=")
+		(write r0 ,ew-ccl-high-table)
+		(r4 = 2)
+		(write-read-repeat r0 ,ew-ccl-low-table))
+	     (if (r6 > 73)
+		 ((r6 = 3)
+		  (write "=\r\n=")
+		  (write r0 ,ew-ccl-high-table)
+		  (r4 = 3)
+		  (write-read-repeat r0 ,ew-ccl-low-table))
+	       (break))))
+	  ;; r0:r3=WSP
+	  ((r5 = 1)
+	   (if (r6 < 75)
+	       ((r6 += 1)
+		(r4 = 4)
+		(write-read-repeat r0))
+	     ((r6 = 1)
+	      (write "=\r\n")
+	      (r4 = 5)
+	      (write-read-repeat r0))))
+	  ;; r0:r3=CR
+	  ((if ((r6 > 73) & r5)
+	       ((r6 = 0)
+		(r5 = 0)
+		(write "=\r\n")))
+	   (break))))
+	;; r0:r3={RAW,ENC,CR}
+	(loop
+	 (if (r0 == ?\r)
+	     ;; r0=\r:r3=CR
+	     ((r4 = 6)
+	      (read r0)
+	      ;; CR:r3=CR r0
+	      (if (r0 == ?\n)
+		  ;; CR:r3=CR r0=LF
+		  (if r5
+		      ;; r5=WSP ; CR:r3=CR r0=LF
+		      ((r6 = 0)
+		       (r5 = 0)
+		       (write "=\r\n\r\n")
+		       (r4 = 7)
+		       (read r0)
+		       (break))
+		    ;; r5=noWSP ; CR:r3=CR r0=LF
+		    ((r6 = 0)
+		     (r5 = 0)
+		     (write "\r\n")
+		     (r4 = 8)
+		     (read r0)
+		     (break)))
+		;; CR:r3=CR r0=noLF
+		(if (r6 < 73)
+		    ((r6 += 3)
+		     (r5 = 0)
+		     (write "=0D")
+		     (break))
+		  (if (r6 == 73)
+                      (if (r0 == ?\r)
+                          ;; CR:r3=CR r0=CR
+                          ((r4 = 9)
+                           (read r0)
+                           ;; CR:r3=CR CR r0
+                           (if (r0 == ?\n)
+                               ;; CR:r3=CR CR LF
+                               ((r6 = 0)
+                                (r5 = 0)
+                                (write "=0D\r\n")
+                                (r4 = 10)
+                                (read r0)
+                                (break))
+                             ;; CR:r3=CR CR noLF
+                             ((r6 = 6)
+                              (r5 = 0)
+                              (write "=\r\n=0D=0D")
+                              (break))))
+                        ;; CR:r3=CR r0=noLFnorCR
+                        ((r6 = 3)
+                         (r5 = 0)
+                         (write "=\r\n=0D")
+                         (break)))
+		    ((r6 = 3)
+		     (r5 = 0)
+		     (write "=\r\n=0D")
+		     (break))))))
+	   ;; r0:r3={RAW,ENC}
+	   ((r4 = 11)
+	    (read r1)
+	    ;; r0:r3={RAW,ENC} r1
+	    (if (r1 == ?\r)
+		;; r0:r3={RAW,ENC} r1=CR
+		((r4 = 12)
+		 (read r1)
+		 ;; r0:r3={RAW,ENC} CR r1
+		 (if (r1 == ?\n)
+		     ;; r0:r3={RAW,ENC} CR r1=LF
+		     ((r6 = 0)
+		      (r5 = 0)
+		      (branch
+		       r3
+		       ;; r0:r3=RAW CR r1=LF
+		       ((write r0)
+			(write "\r\n")
+			(r4 = 13)
+			(read r0)
+			(break))
+		       ;; r0:r3=ENC CR r1=LF
+		       ((write ?=)
+			(write r0 ,ew-ccl-high-table)
+			(write r0 ,ew-ccl-low-table)
+			(write "\r\n")
+			(r4 = 14)
+			(read r0)
+			(break))))
+		   ;; r0:r3={RAW,ENC} CR r1=noLF
+		   ((branch
+		     r3
+		     ;; r0:r3=RAW CR r1:noLF
+		     ((r6 = 4)
+		      (r5 = 0)
+		      (write "=\r\n")
+		      (write r0)
+		      (write "=0D")
+		      (r0 = r1)
+		      (break))
+		     ;; r0:r3=ENC CR r1:noLF
+		     ((r6 = 6)
+		      (r5 = 0)
+		      (write "=\r\n=")
+		      (write r0 ,ew-ccl-high-table)
+		      (write r0 ,ew-ccl-low-table)
+		      (write "=0D")
+		      (r0 = r1)
+		      (break))))
+		   ))
+	      ;; r0:r3={RAW,ENC} r1:noCR
+	      ((branch
+		r3
+		;; r0:r3=RAW r1:noCR
+		((r6 = 1)
+		 (r5 = 0)
+		 (write "=\r\n")
+		 (write r0)
+		 (r0 = r1)
+		 (break))
+		;; r0:r3=ENC r1:noCR
+		((r6 = 3)
+		 (r5 = 0)
+		 (write "=\r\n=")
+		 (write r0 ,ew-ccl-high-table)
+		 (write r0 ,ew-ccl-low-table)
+		 (r0 = r1)
+		 (break))))))))
+	(repeat)))
+      (;(write "[EOF:") (write r4 ,ew-ccl-high-table) (write r4 ,ew-ccl-low-table) (write "]")
+       (branch
+	r4
+	;; 0: (start) ;
+	(end)
+	;; 1: RAW ;
+	(end)
+	;; 2: r0:r3=ENC ;
+	(end)
+	;; 3: SOFTBREAK r0:r3=ENC ;
+	(end)
+	;; 4: r0:r3=WSP ;
+	((write "=\r\n") (end))
+	;; 5: SOFTBREAK r0:r3=WSP ;
+	((write "=\r\n") (end))
+	;; 6: ; r0=\r:r3=CR
+	(if (r6 <= 73)
+	    ((write "=0D") (end))
+	   ((write "=\r\n=0D") (end)))
+	;; 7: r5=WSP SOFTBREAK CR:r3=CR r0=LF ;
+	(end)
+	;; 8: r5=noWSP CR:r3=CR r0=LF ;
+	(end)
+	;; 9: (r6=73) ; CR:r3=CR r0=CR
+        ((write "=\r\n=0D=0D") (end))
+	;; 10: (r6=73) CR:r3=CR CR LF ;
+        (end)
+	;; 11: ; r0:r3={RAW,ENC}
+	(branch
+	 r3
+	 ((write r0) (end))
+	 ((write "=")
+	  (write r0 ,ew-ccl-high-table)
+	  (write r0 ,ew-ccl-low-table)
+	  (end)))
+	;; 12: ; r0:r3={RAW,ENC} r1=CR
+	(branch
+	 r3
+	 ((write "=\r\n")
+	  (write r0)
+	  (write "=0D")
+	  (end))
+	 ((write "=\r\n=")
+	  (write r0 ,ew-ccl-high-table)
+	  (write r0 ,ew-ccl-low-table)
+	  (write "=0D")
+	  (end)))
+	;; 13: r0:r3=RAW CR LF ;
+	(end)
+	;; 14: r0:r3=ENC CR LF ;
+	(end)
+	))
+      )))
 
-(make-coding-system 'ew-ccl-b 4 ?B "B-encoding"
-		    (cons ew-ccl-decode-b ew-ccl-encode-b))
+(define-ccl-program ew-ccl-decode-quoted-printable
+  (eval-when-compile
+    `(1
+      ((read r0)
+       (loop
+	(branch
+	 r0
+	 ,@(mapcar
+	    (lambda (r0)
+	      (let ((tmp (aref ew-ccl-qp-table r0)))
+		(cond
+		 ((or (eq tmp 'raw) (eq tmp 'wsp)) `(write-read-repeat r0))
+		 ((eq r0 ?=)
+		  ;; r0='='
+		  `((read r0)
+		    ;; '=' r0
+		    (r1 = (r0 == ?\t))
+		    (if ((r0 == ? ) | r1)
+			;; '=' r0:[\t ]
+			;; Skip transport-padding.
+			;; It should check CR LF after
+			;; transport-padding.
+			(loop
+			 (read-if (r0 == ?\t)
+				  (repeat)
+				  (if (r0 == ? )
+				      (repeat)
+				    (break)))))
+		    ;; '=' [\t ]* r0:[^\t ]
+		    (branch
+		     r0
+		     ,@(mapcar
+			(lambda (r0)
+			  (cond
+			   ((eq r0 ?\r)
+			    ;; '=' [\t ]* r0='\r'
+			    `((read r0)
+			      ;; '=' [\t ]* '\r' r0
+			      (if (r0 == ?\n)
+				  ;; '=' [\t ]* '\r' r0='\n'
+				  ;; soft line break found.
+				  ((read r0)
+				   (repeat))
+				;; '=' [\t ]* '\r' r0:[^\n]
+				;; invalid input ->
+				;; output "=\r" and rescan from r0.
+				((write "=\r")
+				 (repeat)))))
+			   ((setq tmp (nth r0 ew-ccl-256-to-16-table))
+			    ;; '=' [\t ]* r0:[0-9A-F]
+			    `(r0 = ,tmp))
+			   (t
+			    ;; '=' [\t ]* r0:[^\r0-9A-F]
+			    ;; invalid input ->
+			    ;; output "=" and rescan from r0.
+			    `((write ?=)
+			      (repeat)))))
+			ew-ccl-256-table))
+		    ;; '=' [\t ]* r0:[0-9A-F]
+		    (read-branch
+		     r1
+		     ,@(mapcar
+			(lambda (r1)
+			  (if (setq tmp (nth r1 ew-ccl-256-to-16-table))
+			      ;; '=' [\t ]* [0-9A-F] r1:[0-9A-F]
+			      `(write-read-repeat
+				r0
+				,(vconcat
+				  (mapcar
+				   (lambda (r0)
+				     (logior (lsh r0 4) tmp))
+				   ew-ccl-16-table)))
+			    ;; '=' [\t ]* [0-9A-F] r1:[^0-9A-F]
+			    ;; invalid input
+			    `(r2 = 0)	; nop
+			    ))
+			ew-ccl-256-table))
+                    ;; '=' [\t ]* [0-9A-F] r1:[^0-9A-F]
+                    ;; invalid input
+		    (write ?=)
+		    (write r0 ,(vconcat ew-ccl-16-to-256-table))
+		    (write r1)
+		    (read r0)
+		    (repeat)))
+		 ((eq tmp 'cr)
+		  ;; r0='\r'
+		  `((read r0)
+		    ;; '\r' r0
+		    (if (r0 == ?\n)
+			;; '\r' r0='\n'
+			;; hard line break found.
+			((write ?\r)
+			 (write-read-repeat r0))
+		      ;; '\r' r0:[^\n]
+		      ;; invalid control character (bare CR) found.
+		      ;; -> ignore it and rescan from r0.
+		      (repeat))))
+		 (t
+		  ;; r0:[^\t\r -~]
+		  ;; invalid character found.
+		  ;; -> ignore.
+		  `((read r0)
+		    (repeat))))))
+	    ew-ccl-256-table)))))))
 
 ;;;
 
-(eval-and-compile
+(ew-make-ccl-coding-system
+ 'ew-ccl-uq ?Q "MIME Q-encoding in unstructured field"
+ 'ew-ccl-decode-q 'ew-ccl-encode-uq)
 
-(defconst ew-ccl-encode-b-is-broken
-  (eval-when-compile
-    (not (string= (ccl-execute-on-string ew-ccl-encode-b (make-vector 9 nil) "a")
-		  "YQ=="))))
-)
+(ew-make-ccl-coding-system
+ 'ew-ccl-cq ?Q "MIME Q-encoding in comment"
+ 'ew-ccl-decode-q 'ew-ccl-encode-cq)
+
+(ew-make-ccl-coding-system
+ 'ew-ccl-pq ?Q "MIME Q-encoding in phrase"
+ 'ew-ccl-decode-q 'ew-ccl-encode-pq)
+
+(ew-make-ccl-coding-system
+ 'ew-ccl-b ?B "MIME B-encoding"
+ 'ew-ccl-decode-b 'ew-ccl-encode-b)
+
+(ew-make-ccl-coding-system
+ 'ew-ccl-quoted-printable ?Q "MIME Quoted-Printable-encoding"
+ 'ew-ccl-decode-quoted-printable 'ew-ccl-encode-quoted-printable)
+
+(ew-make-ccl-coding-system
+ 'ew-ccl-base64 ?B "MIME Base64-encoding"
+ 'ew-ccl-decode-b 'ew-ccl-encode-base64)
 
 ;;;
+(require 'mel)
+(defvar ew-bq-use-mel nil)
 
 (defun ew-encode-uq (str)
   (encode-coding-string (string-as-unibyte str) 'ew-ccl-uq))
@@ -366,16 +924,17 @@
 (defun ew-encode-pq (str)
   (encode-coding-string (string-as-unibyte str) 'ew-ccl-pq))
 
-(defun ew-decode-q (str)
-  (string-as-unibyte (decode-coding-string str 'ew-ccl-uq)))
+(if ew-bq-use-mel
+    (defalias 'ew-decode-q 'q-encoding-decode-string)
+  (defun ew-decode-q (str)
+    (string-as-unibyte (decode-coding-string str 'ew-ccl-uq))))
 
-(require 'mel)
-(if (or base64-dl-module ew-ccl-encode-b-is-broken)
+(if (or ew-bq-use-mel base64-dl-module ew-ccl-untrusted-eof-block)
     (defalias 'ew-encode-b 'base64-encode-string)
   (defun ew-encode-b (str)
     (encode-coding-string (string-as-unibyte str) 'ew-ccl-b)))
 
-(if base64-dl-module
+(if (or ew-bq-use-mel base64-dl-module)
     (defalias 'ew-decode-b 'base64-decode-string)
   (defun ew-decode-b (str)
     (string-as-unibyte (decode-coding-string str 'ew-ccl-b))))
@@ -416,4 +975,36 @@
     (setq i (1- i))
     (q-encoding-decode-string
      "=00=1F_!=22#$%&'=28=29*+,-./09:;<=3D>=3F@AZ[=5C]^=5F`az{|}~=7F=80=FF")))
+
+(let (a b) ; CCL
+  (setq a (current-time))
+  (let ((i 1000))
+    (while (< 0 i)
+      (setq i (1- i))
+      (ew-decode-b
+       "AB8gISIjJCUmJygpKissLS4vMDk6Ozw9Pj9AQVpbXF1eX2Bhent8fX5/gP8=")))
+  (setq b (current-time))
+  (elp-elapsed-time a b))
+
+(let (a b) ; Emacs Lisp
+  (setq a (current-time))
+  (let ((i 1000))
+    (while (< 0 i)
+      (setq i (1- i))
+      (base64-decode-string
+       "AB8gISIjJCUmJygpKissLS4vMDk6Ozw9Pj9AQVpbXF1eX2Bhent8fX5/gP8=")))
+  (setq b (current-time))
+  (elp-elapsed-time a b))
+
+(let (a b) ; DL
+  (setq a (current-time))
+  (let ((i 1000))
+    (while (< 0 i)
+      (setq i (1- i))
+      (decode-base64-string
+       "AB8gISIjJCUmJygpKissLS4vMDk6Ozw9Pj9AQVpbXF1eX2Bhent8fX5/gP8=")))
+  (setq b (current-time))
+  (elp-elapsed-time a b))
+
+
 )