Almost there

src/taste-backend-skeletons.adb

@@ -8,7 +8,7 @@ use Ada.Characters.Handling;
 
 package body TASTE.Backend.Skeletons is
    procedure Generate (Model : TASTE_Model) is
-      dummy_Template : constant IV_As_Template :=
+      Template : constant IV_As_Template :=
         Interface_View_Template (Model.Interface_View);
       Prefix : constant String := Model.Configuration.Binary_Path.all
         & "templates/skeletons/";
@@ -20,10 +20,29 @@ package body TASTE.Backend.Skeletons is
             Language  : constant String := Language_Spelling (Each);
             Path      : constant String := Prefix & To_Lower (Language) & "/";
             Hdr_Tmpl  : constant Translate_Set := +Assoc ("Name", Each.Name);
+            Func_Tmpl : constant Func_As_Template :=
+              Template.Funcs.Element (To_String (Each.Name));
          begin
             Put ("***  Generating ");
             Put_Line (Parse (Path & "header-filename.tmplt", Hdr_Tmpl));
-
+            for PI of Func_Tmpl.Provided loop
+               declare
+                  Header : Translate_Set := PI.Header;
+                  Params : Tag;
+               begin
+                  for Param of PI.Params loop
+                     declare
+                        P : constant String :=
+                          Parse (Path & "header-parameter.tmplt", Param);
+                     begin
+                        Params := Params & P;
+                     end;
+                  end loop;
+                  Header := Header & Assoc ("Parameters", Params);
+                  Put_Line (Parse
+                            (Path & "interface-signature.tmplt", Header));
+               end;
+            end loop;
             Put ("***  Generating ");
             Put_Line (Parse (Path & "body-filename.tmplt", Hdr_Tmpl));
          exception

src/taste-parser_version.ads

 package TASTE.Parser_Version is
    Parser_Release : constant String :=
-      "6e3fa96 ; Commit Date:   Fri Jan 19 17:21:22 2018 ";
+      "cfdf0bc ; Commit Date:   Sun Jan 21 20:36:35 2018 ";
    Ocarina_Version : constant String :=
       "Ocarina 2017.x (Working Copy from r0b92ed3)";
 end TASTE.Parser_Version;
\ No newline at end of file

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

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

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

-asn1Scc@_Type_@ *OUT_

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

+@@IF@@ @_Direction_@ = "PARAM_IN"
+const
+@@END_IF@@
+ asn1Scc@_Type_@ *IN_@_LOWER:Name_@

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

-const asn1Scc@_Type_@ *

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

-asn1Scc@_Type_@ *

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

+@@IF@@ @_Direction_@ = "PARAM_IN"
+const
+@@END_IF@@
+ asn1Scc@_Type_@ *

templates/skeletons/c/interface-signature.tmplt

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