From fc6df9e067afc53bb5ed8d965227173a6b6ee78c Mon Sep 17 00:00:00 2001
From: ueno <ueno>
Date: Fri, 20 Aug 1999 00:40:19 +0000
Subject: [PATCH] * mel-b-ccl.el (mel-ccl-decode-b): Use <(` ...)>, <(, ...)>
 and <(,@ ...)> instead of <`...>, <,...> and <,@...> unless
 `ccl-cascading-read' is broken.

---
 mel-b-ccl.el |   86 +++++++++++++++++++++++++++++++++++++++++++++++++++++++++-
 1 file changed, 85 insertions(+), 1 deletion(-)

diff --git a/mel-b-ccl.el b/mel-b-ccl.el
index 90484b3..32bd8c8 100644
--- a/mel-b-ccl.el
+++ b/mel-b-ccl.el
@@ -208,7 +208,91 @@ abcdefghijklmnopqrstuvwxyz\
 		     (t (` ((r0 |= (, v)) (write r0) (break))))))
 		  mel-ccl-256-to-64-table))))
 	   (repeat)))))
-    )
+  (define-ccl-program mel-ccl-decode-b
+    (` (1
+	(loop
+	 (read r0 r1 r2 r3)
+	 (r4 = r0 (, mel-ccl-decode-b-0-table))
+	 (r5 = r1 (, mel-ccl-decode-b-1-table))
+	 (r4 |= r5)
+	 (r5 = r2 (, mel-ccl-decode-b-2-table))
+	 (r4 |= r5)
+	 (r5 = r3 (, mel-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 (, mel-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 (, mel-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 (, mel-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 (, mel-ccl-decode-b-3-table))
+			(repeat))
+		     (break))
+		 ((r6 |= 2)
+		  (break))))
+	      (r4 = r0 (, mel-ccl-decode-b-0-table))
+	      (r5 = r1 (, mel-ccl-decode-b-1-table))
+	      (r4 |= r5)
+	      (branch
+	       r6
+	       ;; BBBB
+	       ((r5 = r2 (, mel-ccl-decode-b-2-table))
+		(r4 |= r5)
+		(r5 = r3 (, mel-ccl-decode-b-3-table))
+		(r4 |= r5)
+		(r4 >8= 0)
+		(write r7)
+		(r4 >8= 0)
+		(write r7)
+		(write-repeat r4))
+	       ;; error: BB=B 
+	       ((write (r4 & 255))
+		(end))
+	       ;; BBB=
+	       ((r5 = r2 (, mel-ccl-decode-b-2-table))
+		(r4 |= r5)
+		(r4 >8= 0)
+		(write r7)
+		(write (r4 & 255))
+		(end)			; Excessive (end) is workaround for XEmacs 21.0.
+					; Without this, "AAA=" is converted to "^@^@^@".
+		(end))
+	       ;; BB==
+	       ((write (r4 & 255))
+		(end))))
+	   ((r4 >8= 0)
+	    (write r7)
+	    (r4 >8= 0)
+	    (write r7)
+	    (write-repeat r4)))))))
+  )
 
 (eval-when-compile
 
-- 
1.7.10.4