X-Git-Url: https://www.chiark.greenend.org.uk/ucgi/~mdw/git/sod/blobdiff_plain/ddee4bb174ad62e6a9d7ecb49d69867fb2b4742c..71ecc48e20c8651175b16f37ee66ca08a36cc1c6:/module-output.lisp

diff --git a/module-output.lisp b/module-output.lisp
index 3ec6aee..dedbe97 100644
--- 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 --------------------------------------------------