From 72572076a671d8b11bd6631432aef4c040ceceae Mon Sep 17 00:00:00 2001 From: akr Date: Tue, 25 Aug 1998 17:54:13 +0000 Subject: [PATCH] * ew-bq.el (ew-ccl-decode-b): Eliminate `>8=' before `write'. --- ChangeLog | 4 ++++ ew-bq.el | 26 ++++++++++++++++---------- 2 files changed, 20 insertions(+), 10 deletions(-) diff --git a/ChangeLog b/ChangeLog index c28e7a9..6fc0f56 100644 --- a/ChangeLog +++ b/ChangeLog @@ -1,5 +1,9 @@ 1998-08-25 Tanaka Akira + * ew-bq.el (ew-ccl-decode-b): Eliminate `>8=' before `write'. + +1998-08-25 Tanaka Akira + * ew-bq.el (ew-ccl-decode-b-0-table): Use `if' instead of `cond' (ew-ccl-decode-b-1-table): Ditto. (ew-ccl-decode-b-2-table): Ditto. diff --git a/ew-bq.el b/ew-bq.el index 467e9d2..3bd4a79 100644 --- a/ew-bq.el +++ b/ew-bq.el @@ -375,30 +375,25 @@ (write r7) (r4 >8= 0) (write r7) - (r4 >8= 0) - (write-repeat r7)) + (write-repeat r4)) ;; error: BB=B - ((r4 >8= 0) - (write r7) + ((write r4) (end)) ;; BBB= ((r5 = r2 ,ew-ccl-decode-b-2-table) (r4 |= r5) (r4 >8= 0) (write r7) - (r4 >8= 0) - (write r7) + (write r4) (end)) ;; BB== - ((r4 >8= 0) - (write r7) + ((write r4) (end)))) ((r4 >8= 0) (write r7) (r4 >8= 0) (write r7) - (r4 >8= 0) - (write-repeat r7)))))) + (write-repeat r4)))))) ;; ew-ccl-encode-b works only 20.3 or later because CCL_EOF_BLOCK ;; is not executed on 20.2 (or former?). @@ -1006,5 +1001,16 @@ (setq b (current-time)) (elp-elapsed-time a b)) +(let ((i 100000) (status (make-vector 9 nil)) a b) + (setq a (current-time)) + (while (< 0 i) + (setq i (1- i)) + (ccl-execute-on-string + ew-ccl-decode-b ; or ew-ccl-decode-b-2 or -3 + status + "AB8gISIjJCUmJygpKissLS4vMDk6Ozw9Pj9AQVpbXF1eX2Bhent8fX5/gP8=")) + (setq b (current-time)) + (elp-elapsed-time a b)) + ) -- 1.7.10.4