Function: ccl-dump-write-const-string

ccl-dump-write-const-string is a byte-compiled function defined in ccl.el.gz.

Signature

(ccl-dump-write-const-string RRR CC)

Source Code

;; Defined in /usr/src/emacs/lisp/international/ccl.el.gz
(defun ccl-dump-write-const-string (rrr cc)
  (if (= rrr 0)
      (progn
	(insert "write char")
	(ccl-dump-insert-char cc)
	(newline))
    (let ((len cc)
	  (i 0))
      (insert "write \"")
      (while (< i len)
	(let ((code (ccl-get-next-code)))
	  (if (/= (logand code #x1000000) 0)
	      (progn
		(insert (logand code #xFFFFFF))
		(setq i (1+ i)))
	    (insert (format "%c" (ash code -16)))
	    (if (< (1+ i) len)
		(insert (format "%c" (logand (ash code -8) 255))))
	    (if (< (+ i 2) len)
		(insert (format "%c" (logand code 255))))
	    (setq i (+ i 3)))))
      (insert "\"\n"))))