; generate declarations for variables

(in-package "VERRAZANO")

; only handle constant integers at this time
(generate-for ((par namespace-type) (edg allocates) (tgt cpp-type) bst)
  (when (not (get-note edg 'artificial))
    (cond
      ((constant-integer? tgt) 
       (constant-integer-declaration edg (list par edg tgt) bst)))))

; emit a declaration for a constant integer
(defun constant-integer-declaration (edg frag bst)
  (let ((name (named-name edg))
	(val (allocates-edge-value edg)))
    (define-symbol name "constant" frag bst)
    `("cl:defparameter" ,name ,val)))