Function: srecode-dump-code-list

srecode-dump-code-list is a byte-compiled function defined in compile.el.gz.

Signature

(srecode-dump-code-list CODE INDENT)

Documentation

Dump the CODE from a template code list to standard output.

Argument INDENT specifies the indentation level for the list.

Source Code

;; Defined in /usr/src/emacs/lisp/cedet/srecode/compile.el.gz
(defun srecode-dump-code-list (code indent)
  "Dump the CODE from a template code list to standard output.
Argument INDENT specifies the indentation level for the list."
  (let ((i 1))
    (while code
      (princ indent)
      (prin1 i)
      (princ ") ")
      (cond ((stringp (car code))
	     (prin1 (car code)))
	    ((cl-typep (car code) 'srecode-template-inserter)
	     (srecode-dump (car code) indent))
	    (t
	     (princ "Unknown Code: ")
	     (prin1 (car code))))
      (setq code (cdr code)
	    i (1+ i))
      (when code
	(princ "\n"))))
  )