Add .gitattributes file.

[sod] / module-output.lisp

diff --git a/module-output.lisp b/module-output.lisp
index 3ec6aee017e94df8a271b74705ce1955e4938668..dedbe97c02599e4274f4f207385beb23327771d0 100644 (file)
--- a/module-output.lisp
+++ b/module-output.lisp
@@ -123,4 +123,31 @@ (defmethod add-output-hooks progn
     ((:includes :end)
      (terpri stream))))
 
+;;;--------------------------------------------------------------------------
+;;; Source output.
+
+(defmethod add-output-hooks progn
+    ((module module) (reason (eql :c)) sequencer)
+  (sequence-output (stream sequencer)
+    :constraint (:prologue
+                (:includes :start) :includes (:includes :end)
+                (:classes :start) (:classes :end)
+                :epilogue)
+
+    (:prologue
+     (format stream "~
+/* -*-c-*-
+ *
+ * Implementation file generated by SOD for ~A
+ */~2%"
+            (namestring (module-name module))))
+
+    (:epilogue
+     (banner "That's all, folks" stream :blank-line-p nil))
+
+    ((:includes :start)
+     (banner "External header files" stream))
+    ((:includes :end)
+     (terpri stream))))
+
 ;;;----- That's all, folks --------------------------------------------------