Keep case in interface names

templates/concurrency_view/pohic_wrappers_body/pi.tmplt

@@ -13,9 +13,9 @@
 @@-- @_Calling_Threads_@        : Calling threads of the containing block
 @@IF@@ @_Kind_@ = PROTECTED_OPERATION
    @@IF@@ @_Param_Names'Length_@ = 0    @@-- zero param
-void pro_@_LOWER:Parent_Function_@_@_LOWER:Name_@(void)
+void pro_@_LOWER:Parent_Function_@_@_Name_@(void)
    @@ELSE@@   @@-- contains param(s)
-void pro_@_LOWER:Parent_Function_@_@_LOWER:Name_@
+void pro_@_LOWER:Parent_Function_@_@_Name_@
    @@INLINE(      \()(,\n       )(\)\n)@@
       @@TABLE@@
       @@IF@@ @_Param_Directions_@ = "PARAM_IN"

templates/concurrency_view/pohic_wrappers_body/ri.tmplt

@@ -56,9 +56,12 @@ size_IN_buf_@_LOWER:Param_Names_@;
 @@END_TABLE@@
    // calling threads: @_Calling_Threads_@ partition: @_Partition_Name_@
 @@ELSIF@@ @_Kind_@ = UNPROTECTED_OPERATION
+@@IF@@ @_Param_Names'Length_@ = 0
+   @@SET@@ No_Param=True
+@@END_IF@@
    // Unprotected call
 @@TABLE@@
-@@IF@@ not @_EXIST:Param_Names_@
+@@IF@@ @_No_Param_@
    @_LOWER:Remote_Function_Names_@_@_LOWER:Remote_Interface_Names_@();
 @@ELSE@@
    @_LOWER:Remote_Function_Names_@_@_LOWER:Remote_Interface_Names_@
@@ -76,7 +79,7 @@ size_IN_buf_@_LOWER:Param_Names_@;
 @@ELSE@@ @@-- Protected call
    // puts("[TASTE] Protected call of @_Name_@");
 @@TABLE@@
-   pro_@_LOWER:Remote_Function_Names_@_@_LOWER:Remote_Interface_Names_@
+   pro_@_LOWER:Remote_Function_Names_@_@_Remote_Interface_Names_@
 @@INLINE(        \()(,\n         )(\);\n)@@
    @@TABLE@@
       @@IF@@ @_Param_Directions_@ = "PARAM_IN"

templates/concurrency_view/pohic_wrappers_header/pi.tmplt

@@ -13,9 +13,9 @@
 @@-- @_Calling_Threads_@        : Calling threads of the containing block
 @@IF@@ @_Kind_@ = PROTECTED_OPERATION
    @@IF@@ @_Param_Names'Length_@ = 0    @@-- zero param
-   void pro_@_LOWER:Parent_Function_@_@_LOWER:Name_@(void);
+   void pro_@_LOWER:Parent_Function_@_@_Name_@(void);
    @@ELSE@@   @@-- contains param(s)
-   void pro_@_LOWER:Parent_Function_@_@_LOWER:Name_@
+   void pro_@_LOWER:Parent_Function_@_@_Name_@
    @@INLINE(      \()(,\n       )(\);)@@
       @@TABLE@@
       @@IF@@ @_Param_Directions_@ = "PARAM_IN"

templates/glue/language_wrappers/invoke_ri-body/interface.tmplt

@@ -15,7 +15,7 @@
 @@-- @_Remote_Interface_Names_@ :   |_ Corresponding interface name
 @@-- note, there are more tags, see in taste-interface_view.adb, in To_Template(Taste_Interface)
 @@IF@@ @_EXIST:Param_Names_@
-void @_LOWER:Parent_Function_@_RI_@_LOWER:Name_@
+void @_LOWER:Parent_Function_@_RI_@_Name_@
 @@INLINE(      \()(,\n       )(\)\n)@@
    @@TABLE@@
       @@IF@@ @_Param_Directions_@ = "PARAM_IN"
@@ -26,7 +26,7 @@ void @_LOWER:Parent_Function_@_RI_@_LOWER:Name_@
    @@END_TABLE@@
 @@END_INLINE@@
 @@ELSE@@
-void @_LOWER:Parent_Function_@_RI_@_LOWER:Name_@(void)
+void @_LOWER:Parent_Function_@_RI_@_Name_@(void)
 @@END_IF@@
 {
    #ifdef __unix__
@@ -60,7 +60,7 @@ void @_LOWER:Parent_Function_@_RI_@_LOWER:Name_@(void)
         (IN_buf_@_LOWER:Param_Names_@, sizeof(asn1Scc@_REPLACE_ALL(-/_):Param_Types_@), IN_@_LOWER:Param_Names_@);
    if (-1 == size_IN_buf_@_LOWER:Param_Names_@) {
       #ifdef __unix__
-         puts ("[ERROR] ASN.1 Encoding failed in @_LOWER:Parent_Function_@_RI_@_LOWER:Name_@, parameter @_Param_Names_@");
+         puts ("[ERROR] ASN.1 Encoding failed in @_LOWER:Parent_Function_@_RI_@_Name_@, parameter @_Param_Names_@");
       #endif
         /* Crash the application due to message loss */
         extern void abort (void);
@@ -110,7 +110,7 @@ void @_LOWER:Parent_Function_@_RI_@_LOWER:Name_@(void)
    if (0 != Decode_@_Param_Encodings_@_@_REPLACE_ALL(-/_):Param_Types_@
               (OUT_@_LOWER:Param_Names_@, OUT_buf_@_LOWER:Param_Names_@, size_OUT_buf_@_LOWER:Param_Names_@)) {
 #ifdef __unix__
-      puts ("[ERROR] ASN.1 Decoding failed in @_LOWER:Parent_Function_@_RI_@_LOWER:Name_@, parameter @_Param_Names_@");
+      puts ("[ERROR] ASN.1 Decoding failed in @_LOWER:Parent_Function_@_RI_@_Name_@, parameter @_Param_Names_@");
 #endif
       return;
   }

templates/glue/language_wrappers/vm_if-body/interface.tmplt

@@ -48,7 +48,7 @@ void @_LOWER:Parent_Function_@_@_LOWER:Name_@
 @@END_TABLE@@
 
    //  Declare user code function as external (it may not have a .h if it is in Ada)
-   extern void @_LOWER:Parent_Function_@_PI_@_LOWER:Name_@
+   extern void @_LOWER:Parent_Function_@_PI_@_Name_@
 @@INLINE(      \()(,\n       )(\);\n)@@
    @@TABLE@@
       @@IF@@ @_Param_Directions_@ = "PARAM_IN"
@@ -60,7 +60,7 @@ void @_LOWER:Parent_Function_@_@_LOWER:Name_@
 @@END_INLINE@@
 
    // Call user code
-   @_LOWER:Parent_Function_@_PI_@_LOWER:Name_@
+   @_LOWER:Parent_Function_@_PI_@_Name_@
 @@INLINE(      \()(,\n       )(\);\n)@@
    @@TABLE@@
       @@IF@@ @_Param_Directions_@ = "PARAM_IN"
@@ -82,8 +82,8 @@ void @_LOWER:Parent_Function_@_@_LOWER:Name_@()
 {
    //  Directly call user code, no parameters to pass
    //  This could be done directly from the concurrency glue...
-   extern void @_LOWER:Parent_Function_@_PI_@_LOWER:Name_@(void);
-   @_LOWER:Parent_Function_@_PI_@_LOWER:Name_@();
+   extern void @_LOWER:Parent_Function_@_PI_@_Name_@(void);
+   @_LOWER:Parent_Function_@_PI_@_Name_@();
    // puts ("@_LOWER:Parent_Function_@_@_LOWER:Name_@ called");
 }
 @@END_IF@@

templates/skeletons/README.md

@@ -143,7 +143,7 @@ This is an extract of `interface.tmplt`:
 @@IF@@ @_Direction_@ = "PI"
 void @_LOWER:Parent_Function_@_PI_@_LOWER:Name_@(
 @@ELSE@@
-extern void @_LOWER:Parent_Function_@_RI_@_LOWER:Name_@(
+extern void @_LOWER:Parent_Function_@_RI_@_Name_@(
 @@END_IF@@
 ```
 

templates/skeletons/ada-source/interface.tmplt

@@ -24,7 +24,7 @@ procedure @_CAPITALIZE:Name_@
 procedure @_CAPITALIZE:Name_@
 @@END_IF@@
 @@IF@@ @_Direction_@ = "PI"
-      with Export, Convention => C, Link_Name => "@_LOWER:Parent_Function_@_PI_@_LOWER:Name_@";
+      with Export, Convention => C, Link_Name => "@_LOWER:Parent_Function_@_PI_@_Name_@";
 @@ELSE@@
-      with Import, Convention => C, Link_Name => "@_LOWER:Parent_Function_@_RI_@_LOWER:Name_@";
+      with Import, Convention => C, Link_Name => "@_LOWER:Parent_Function_@_RI_@_Name_@";
 @@--   procedure RIÜ@_CAPITALIZE:Name_@ renames @_CAPITALIZE:Name_@;

templates/skeletons/c-body/interface.tmplt

@@ -11,7 +11,7 @@
 @@-- @_Period_@, @_WCET_@, @_Queue_Size_@ : Properties of the interface
 @@-- @_IF_Property_Names_@, _Values_@ : User-defined properties (vector tag)
 @@IF@@ @_EXIST:Param_Names_@
-void @_LOWER:Parent_Function_@_PI_@_LOWER:Name_@
+void @_LOWER:Parent_Function_@_PI_@_Name_@
 @@INLINE(      \()(,\n       )(\)\n)@@
 @@TABLE@@
 @@IF@@ @_Param_Directions_@ = "PARAM_IN"

templates/skeletons/c-header/interface.tmplt

@@ -12,9 +12,9 @@
 @@-- @_IF_Property_Names_@, _Values_@ : User-defined properties (vector tag)
 @@INLINE@@
 @@IF@@ @_Direction_@ = "PI"
-void @_LOWER:Parent_Function_@_PI_@_LOWER:Name_@(
+void @_LOWER:Parent_Function_@_PI_@_Name_@(
 @@ELSE@@
-extern void @_LOWER:Parent_Function_@_RI_@_LOWER:Name_@(
+extern void @_LOWER:Parent_Function_@_RI_@_Name_@(
 @@END_IF@@
 @@IF@@ @_Param_Names'Length_@ = 0
 void

templates/skeletons/cpp-header/interface.tmplt

@@ -9,9 +9,9 @@
 @@-- @_Param_Directions_@    :   |_ Corresponding direction
 @@INLINE@@
 @@IF@@ @_Direction_@ = "PI"
-void @_LOWER:Parent_Function_@_PI_@_LOWER:Name_@(
+void @_LOWER:Parent_Function_@_PI_@_Name_@(
 @@ELSE@@
-extern void @_LOWER:Parent_Function_@_RI_@_LOWER:Name_@(
+extern void @_LOWER:Parent_Function_@_RI_@_Name_@(
 @@END_IF@@
 @@INLINE(, )@@
 @@TABLE@@

templates/skeletons/gui-body/function.tmplt

@@ -127,7 +127,7 @@ void @_LOWER:Name_@_startup(void)
 }
 
 //  Function polling the message queue for incoming message from the user
-void @_LOWER:Name_@_PI_poll(void)
+void @_LOWER:Name_@_PI_Poll(void)
 {
    struct mq_attr msgq_attr;
    char* msgcontent = NULL;
@@ -148,7 +148,7 @@ void @_LOWER:Name_@_PI_poll(void)
       switch(message_received_type) {
 @@TABLE@@
          case i_@_List_Of_ASync_RIs_@:
-            @_LOWER:Name_@_RI_@_LOWER:List_Of_ASync_RIs_@((asn1Scc@_REPLACE_ALL(-/_):ASync_RI_Param_Type_@ *)msgcontent);
+            @_LOWER:Name_@_RI_@_List_Of_ASync_RIs_@((asn1Scc@_REPLACE_ALL(-/_):ASync_RI_Param_Type_@ *)msgcontent);
             break;
 @@END_TABLE@@
        default : break;