Function: ccl-dump

ccl-dump is an autoloaded and byte-compiled function defined in ccl.el.gz.

Signature

(ccl-dump CODE)

Documentation

Disassemble compiled CCL-code CODE.

Source Code

;; Defined in /usr/src/emacs/lisp/international/ccl.el.gz
;;;###autoload
(defun ccl-dump (code)
  "Disassemble compiled CCL-code CODE."
  (let* ((ccl-code code)
         (len (length ccl-code))
         (buffer-mag (aref ccl-code 0)))
    (cond ((= buffer-mag 0)
	   (insert (substitute-command-keys "Don't output anything.\n")))
	  ((= buffer-mag 1)
	   (insert "Out-buffer must be as large as in-buffer.\n"))
	  (t
	   (insert
	    (format "Out-buffer must be %d times bigger than in-buffer.\n"
		    buffer-mag))))
    (insert "Main-body:\n")
    (setq ccl-current-ic 2)
    (if (> (aref ccl-code 1) 0)
	(progn
	  (while (< ccl-current-ic (aref ccl-code 1))
	    (ccl-dump-1))
	  (insert "At EOF:\n")))
    (while (< ccl-current-ic len)
      (ccl-dump-1))
    ))