src/module-output.lisp, test/chimaera.sod: Add output items for user code.

It seems likely that many modules will want to add plain C code to the
implementation output, and declarations to the header, so provide
standard output items `early_user' and `user' for this purpose.

diff --git a/src/module-output.lisp b/src/module-output.lisp
index 42044e3ed51f0cd6c6938eb8037e009838711462..8632a029d5a8882756524da1629e3d9677b1f20e 100644 (file)
--- a/src/module-output.lisp
+++ b/src/module-output.lisp
@@ -113,7 +113,9 @@ (defmethod hook-output progn ((module module) (reason (eql :h)) sequencer)
      (:guard :start)
      (:typedefs :start) :typedefs (:typedefs :end)
      (:includes :start) :includes (:includes :end)
+     (:early-user :start) :early-user (:early-user :end)
      (:classes :start) (:classes :end)
+     (:user :start) :user (:user :end)
      (:guard :end)
      :epilogue)
 
@@ -161,7 +163,9 @@ (defmethod hook-output progn ((module module) (reason (eql :c)) sequencer)
     :constraint
     (:prologue
      (:includes :start) :includes (:includes :end)
+     (:early-user :start) :early-user (:early-user :end)
      (:classes :start) (:classes :end)
+     (:user :start) :user (:user :end)
      :epilogue)
 
     (:prologue

diff --git a/test/chimaera.sod b/test/chimaera.sod
index e9b9077adb5bf107a3c68750bc66efc3b9d5beba..193d5ec260dce772afc7c33cb5eaeb8269af5dd3 100644 (file)
--- a/test/chimaera.sod
+++ b/test/chimaera.sod
@@ -46,7 +46,7 @@ class Serpent : Animal {
 class Chimaera : Lion, Goat, Serpent {
 }
 
-code c : user [classes end, user, epilogue] {
+code c : user {
 /*----- Main driver code --------------------------------------------------*/
 
 static void tickle_animal(Animal *a)