Teach the groveler to print cstruct types which are lists of symbols.

This means that forms such as the following are allowed:

(cstruct foo "struct foo"
  (mybar "mybar" :type (:struct bar)))

diff --git a/grovel/grovel.lisp b/grovel/grovel.lisp
index 4c2da1a..4f3599f 100644 (file)
--- a/grovel/grovel.lisp
+++ b/grovel/grovel.lisp
@@ -505,7 +505,13 @@ int main(int argc, char**argv) {
           ((and symbol (not null))
            (c-print-symbol out type))
           (string
-           (c-format out "~A" type)))
+           (c-format out "~A" type))
+          (cons
+           (c-format out "(")
+           (dolist (sym type)
+             (c-print-symbol out sym)
+             (c-format out " "))
+           (c-format out ")")))
         (etypecase count
           (null t)
           (integer