Function: ccl-embed-string

ccl-embed-string is a byte-compiled function defined in ccl.el.gz.

Signature

(ccl-embed-string LEN STR)

Documentation

Embed string STR of length LEN in ccl-program-vector at ccl-current-ic.

Source Code

;; Defined in /usr/src/emacs/lisp/international/ccl.el.gz
(defun ccl-embed-string (len str)
  "Embed string STR of length LEN in `ccl-program-vector' at `ccl-current-ic'."
  (if (> len #xFFFFF)
      (error "CCL: String too long: %d" len))
  (if (> (string-bytes str) len)
      (dotimes (i len)
	(ccl-embed-data (logior #x1000000 (aref str i))))
    (let ((i 0))
      (while (< i len)
	(ccl-embed-data (logior (ash (aref str i) 16)
				(if (< (1+ i) len)
				    (ash (aref str (1+ i)) 8)
				  0)
				(if (< (+ i 2) len)
				    (aref str (+ i 2))
				  0)))
	(setq i (+ i 3))))))