; generate declarations for enumerations

(in-package "VERRAZANO-CFFI")

; for enumerations, output defcenum declaration
(generate-for ((par namespace-type) (edg defines) (tgt enum-type))
  (let ((enum-name (named-name tgt)))
    (define-symbol enum-name "enum")
	(defcenum-declaration enum-name tgt)))

; for enumeration values, output tuple
(generate-for ((par enum-type) (edg allocates) (tgt constant-type))
  `(,(concatenate 'string ":" (named-name edg))
     ,(allocates-edge-value edg)))