* pccl.el (define-long-ccl-program): New macro.

diff --git a/pccl.el b/pccl.el
index 30e4356..0107a84 100644 (file)
--- a/pccl.el
+++ b/pccl.el
@@ -24,6 +24,7 @@
 
 ;;; Code:
 
+(require 'ccl)
 (require 'broken)
 
 (if (featurep 'mule)
@@ -44,6 +45,23 @@
            (>= emacs-major-version 21)
          t)))
 
+(defmacro define-long-ccl-program (name ccl-program &optional doc)
+  "Define CCL program as define-ccl-program."
+  (setq ccl-program (eval ccl-program))
+  (let ((try-ccl-compile t))
+    (while try-ccl-compile
+      (setq try-ccl-compile nil)
+      (condition-case sig
+         (ccl-compile ccl-program)
+       (args-out-of-range
+        (if (and (eq (car (cdr sig)) ccl-program-vector)
+                 (= (car (cdr (cdr sig))) (length ccl-program-vector)))
+            (setq ccl-program-vector
+                  (make-vector (* 2 (length ccl-program-vector)) 0)
+                  try-ccl-compile t)
+          (signal (car sig) (cdr sig))))))
+    (` (define-ccl-program (, name) '(, ccl-program) (, doc)))))
+
 
 ;;; @ end
 ;;;