Function: ccl-execute-with-args

ccl-execute-with-args is an autoloaded and byte-compiled function defined in ccl.el.gz.

Signature

(ccl-execute-with-args CCL-PROG &rest ARGS)

Documentation

Execute CCL-PROGRAM with registers initialized by the remaining args.

The return value is a vector of resulting CCL registers.

See the documentation of define-ccl-program for the detail of CCL program.

Source Code

;; Defined in /usr/src/emacs/lisp/international/ccl.el.gz
;;;###autoload
(defun ccl-execute-with-args (ccl-prog &rest args)
  "Execute CCL-PROGRAM with registers initialized by the remaining args.
The return value is a vector of resulting CCL registers.

See the documentation of `define-ccl-program' for the detail of CCL program."
  (let ((reg (make-vector 8 0))
	(i 0))
    (while (and args (< i 8))
      (if (not (integerp (car args)))
	  (error "Arguments should be integer"))
      (aset reg i (car args))
      (setq args (cdr args) i (1+ i)))
    (ccl-execute ccl-prog reg)
    reg))