Work on the skeletons

src/taste-backend-skeletons.adb

@@ -21,9 +21,10 @@ package body TASTE.Backend.Skeletons is
             Path      : constant String := Prefix & To_Lower (Language) & "/";
             Hdr_Tmpl  : constant Translate_Set := +Assoc ("Name", Each.Name);
          begin
-            Put ("Generating ");
+            Put ("***  Generating ");
             Put_Line (Parse (Path & "header-filename.tmplt", Hdr_Tmpl));
-            Put ("Generating ");
+
+            Put ("***  Generating ");
             Put_Line (Parse (Path & "body-filename.tmplt", Hdr_Tmpl));
          exception
             when others =>

templates/skeletons/c/body.tmplt

@@ -17,14 +17,14 @@ void @_LOWER:Name_@_startup()
 }
 
 @@TABLE@@
-void @_Provided_Interfaces_@
+void @_LOWER:Name_@_PI_@_Provided_Interfaces_@
 {
    /* Write your code here */
 }
 @@END_TABLE@@
 
 @@TABLE@@
-void @_Timers_@
+void @_LOWER:Name_@_PI_@_Timers_@
 {
    /* This function is called when the timer expires */
 }

templates/skeletons/c/c-body.tmplt

-/* Body file for function @_Name_@
- * Generated by TASTE on @_Now_@
- * You can edit this file, it will not be overwritten
- */
-
-#include "@_LOWER:Name_@.h"
-
-@@IF@@ @_Has_Context_@
-/* Include Context Parameters (constants defined in the Interface View) */
-#include "Context-@_REPLACE((_)/(-)):LOWER:Name_@.h"
-@@END_IF@@
-
-void @_LOWER:Name_@_startup()
-{
-   // Write your initialisation code, but DO NOT CALL REQUIRED INTERFACES
-   // puts ("[@_Name_@] Startup");
-}
-
-@@TABLE@@
-void @_LOWER:Name_@_PI_@_Provided_Interfaces_@
-{
-   /* Write your code here */
-}
-@@END_TABLE@@
-
-@@TABLE@@
-void @_LOWER:Name_@_PI_@_Timers_@
-{
-   /* This function is called when the timer expires */
-}
-@@END_TABLE@@

templates/skeletons/c/c-header.tmplt

-/* Header file for function @_Name_@
- * Generated by TASTE on @_Now_@
- * DO NOT EDIT THIS FILE, IT WILL BE OVERWRITTEN DURING THE BUILD
- */
-
-#ifndef __USER_CODE_H_@_UPPER:Name_@
-#define __USER_CODE_H_@_UPPER:Name_@
-
-#include "C_ASN1_Types.h"
-
-#ifdef __cplusplus
-extern "C" {
-#endif
-
-void @_LOWER:Name_@_startup();
-
-@@TABLE@@
-void @_LOWER:Name_@_PI_@_Provided_Interfaces_@;
-@@END_TABLE@@
-
-@@TABLE@@
-void @_LOWER:Name_@_RI_@_Required_Interfaces_@;
-@@END_TABLE@@
-
-@@TABLE@@
-@_Timers_@
-@@END_TABLE@@
-
-#ifdef __cplusplus
-extern "C" {
-#endif
-
-#endif  /* __USER_CODE_H_@_UPPER:Name_@

templates/skeletons/c/c-interface-body-in-parameter.tmplt

-const asn1Scc@_Type_@ *IN_@_LOWER:Name_@

templates/skeletons/c/c-interface-header.tmplt

-@_LOWER:Name_@(@@TABLE['TERSE]@@
-@_Parameters_@, 
-@@END_TABLE@@

templates/skeletons/c/header.tmplt

@@ -15,11 +15,11 @@ extern "C" {
 void @_LOWER:Name_@_startup();
 
 @@TABLE@@
-void @_Provided_Interfaces_@;
+void @_LOWER:Name_@_PI_@_Provided_Interfaces_@;
 @@END_TABLE@@
 
 @@TABLE@@
-void @_Required_Interfaces_@;
+void @_LOWER:Name_@_RI_@_Required_Interfaces_@;
 @@END_TABLE@@
 
 @@TABLE@@

templates/skeletons/c/interface-body-in-parameter.tmplt

-const asn1Scc@_Type_@ *@_LOWER:Name_@
+const asn1Scc@_Type_@ *IN_@_LOWER:Name_@