; generate declarations for classes

(in-package "VERRAZANO")

; for classes, generate a proxy class plus member functions
(generate-for ((par node) (edge defines) (tgt class-type) bst)
  (let ((cname (named-name tgt)))
    (define-symbol cname "class" (list par edge tgt) bst)
    `("cffi:defcstruct" ,cname ("data" ":char" ":count"
				,(bits-to-bytes (concrete-type-size tgt))))))