Function: ccl-dump-binary

ccl-dump-binary is a byte-compiled function defined in ccl.el.gz.

Signature

(ccl-dump-binary CODE)

Source Code

;; Defined in /usr/src/emacs/lisp/international/ccl.el.gz
(defun ccl-dump-binary (code)
  (let* ((ccl-code code)
         (len (length ccl-code))
         (i 2))
    (while (< i len)
      (let ((code (aref ccl-code i))
	    (j 27))
	(while (>= j 0)
	  (insert (if (= (logand code (ash 1 j)) 0) ?0 ?1))
	  (setq j (1- j)))
	(setq code (logand code 31))
	(if (< code (length ccl-code-table))
	    (insert (format ":%s" (aref ccl-code-table code))))
	(insert "\n"))
      (setq i (1+ i)))))