Commit 9635a03a authored by Maxime Perrotin's avatar Maxime Perrotin

Keep case in interface names

parent ca620c5b
...@@ -13,9 +13,9 @@ ...@@ -13,9 +13,9 @@
@@-- @_Calling_Threads_@ : Calling threads of the containing block @@-- @_Calling_Threads_@ : Calling threads of the containing block
@@IF@@ @_Kind_@ = PROTECTED_OPERATION @@IF@@ @_Kind_@ = PROTECTED_OPERATION
@@IF@@ @_Param_Names'Length_@ = 0 @@-- zero param @@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) @@ELSE@@ @@-- contains param(s)
void pro_@_LOWER:Parent_Function_@_@_LOWER:Name_@ void pro_@_LOWER:Parent_Function_@_@_Name_@
@@INLINE( \()(,\n )(\)\n)@@ @@INLINE( \()(,\n )(\)\n)@@
@@TABLE@@ @@TABLE@@
@@IF@@ @_Param_Directions_@ = "PARAM_IN" @@IF@@ @_Param_Directions_@ = "PARAM_IN"
......
...@@ -56,9 +56,12 @@ size_IN_buf_@_LOWER:Param_Names_@; ...@@ -56,9 +56,12 @@ size_IN_buf_@_LOWER:Param_Names_@;
@@END_TABLE@@ @@END_TABLE@@
// calling threads: @_Calling_Threads_@ partition: @_Partition_Name_@ // calling threads: @_Calling_Threads_@ partition: @_Partition_Name_@
@@ELSIF@@ @_Kind_@ = UNPROTECTED_OPERATION @@ELSIF@@ @_Kind_@ = UNPROTECTED_OPERATION
@@IF@@ @_Param_Names'Length_@ = 0
@@SET@@ No_Param=True
@@END_IF@@
// Unprotected call // Unprotected call
@@TABLE@@ @@TABLE@@
@@IF@@ not @_EXIST:Param_Names_@ @@IF@@ @_No_Param_@
@_LOWER:Remote_Function_Names_@_@_LOWER:Remote_Interface_Names_@(); @_LOWER:Remote_Function_Names_@_@_LOWER:Remote_Interface_Names_@();
@@ELSE@@ @@ELSE@@
@_LOWER:Remote_Function_Names_@_@_LOWER:Remote_Interface_Names_@ @_LOWER:Remote_Function_Names_@_@_LOWER:Remote_Interface_Names_@
...@@ -76,7 +79,7 @@ size_IN_buf_@_LOWER:Param_Names_@; ...@@ -76,7 +79,7 @@ size_IN_buf_@_LOWER:Param_Names_@;
@@ELSE@@ @@-- Protected call @@ELSE@@ @@-- Protected call
// puts("[TASTE] Protected call of @_Name_@"); // puts("[TASTE] Protected call of @_Name_@");
@@TABLE@@ @@TABLE@@
pro_@_LOWER:Remote_Function_Names_@_@_LOWER:Remote_Interface_Names_@ pro_@_LOWER:Remote_Function_Names_@_@_Remote_Interface_Names_@
@@INLINE( \()(,\n )(\);\n)@@ @@INLINE( \()(,\n )(\);\n)@@
@@TABLE@@ @@TABLE@@
@@IF@@ @_Param_Directions_@ = "PARAM_IN" @@IF@@ @_Param_Directions_@ = "PARAM_IN"
......
...@@ -13,9 +13,9 @@ ...@@ -13,9 +13,9 @@
@@-- @_Calling_Threads_@ : Calling threads of the containing block @@-- @_Calling_Threads_@ : Calling threads of the containing block
@@IF@@ @_Kind_@ = PROTECTED_OPERATION @@IF@@ @_Kind_@ = PROTECTED_OPERATION
@@IF@@ @_Param_Names'Length_@ = 0 @@-- zero param @@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) @@ELSE@@ @@-- contains param(s)
void pro_@_LOWER:Parent_Function_@_@_LOWER:Name_@ void pro_@_LOWER:Parent_Function_@_@_Name_@
@@INLINE( \()(,\n )(\);)@@ @@INLINE( \()(,\n )(\);)@@
@@TABLE@@ @@TABLE@@
@@IF@@ @_Param_Directions_@ = "PARAM_IN" @@IF@@ @_Param_Directions_@ = "PARAM_IN"
......
...@@ -15,7 +15,7 @@ ...@@ -15,7 +15,7 @@
@@-- @_Remote_Interface_Names_@ : |_ Corresponding interface name @@-- @_Remote_Interface_Names_@ : |_ Corresponding interface name
@@-- note, there are more tags, see in taste-interface_view.adb, in To_Template(Taste_Interface) @@-- note, there are more tags, see in taste-interface_view.adb, in To_Template(Taste_Interface)
@@IF@@ @_EXIST:Param_Names_@ @@IF@@ @_EXIST:Param_Names_@
void @_LOWER:Parent_Function_@_RI_@_LOWER:Name_@ void @_LOWER:Parent_Function_@_RI_@_Name_@
@@INLINE( \()(,\n )(\)\n)@@ @@INLINE( \()(,\n )(\)\n)@@
@@TABLE@@ @@TABLE@@
@@IF@@ @_Param_Directions_@ = "PARAM_IN" @@IF@@ @_Param_Directions_@ = "PARAM_IN"
...@@ -26,7 +26,7 @@ void @_LOWER:Parent_Function_@_RI_@_LOWER:Name_@ ...@@ -26,7 +26,7 @@ void @_LOWER:Parent_Function_@_RI_@_LOWER:Name_@
@@END_TABLE@@ @@END_TABLE@@
@@END_INLINE@@ @@END_INLINE@@
@@ELSE@@ @@ELSE@@
void @_LOWER:Parent_Function_@_RI_@_LOWER:Name_@(void) void @_LOWER:Parent_Function_@_RI_@_Name_@(void)
@@END_IF@@ @@END_IF@@
{ {
#ifdef __unix__ #ifdef __unix__
...@@ -60,7 +60,7 @@ void @_LOWER:Parent_Function_@_RI_@_LOWER:Name_@(void) ...@@ -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_@); (IN_buf_@_LOWER:Param_Names_@, sizeof(asn1Scc@_REPLACE_ALL(-/_):Param_Types_@), IN_@_LOWER:Param_Names_@);
if (-1 == size_IN_buf_@_LOWER:Param_Names_@) { if (-1 == size_IN_buf_@_LOWER:Param_Names_@) {
#ifdef __unix__ #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 #endif
/* Crash the application due to message loss */ /* Crash the application due to message loss */
extern void abort (void); extern void abort (void);
...@@ -110,7 +110,7 @@ void @_LOWER:Parent_Function_@_RI_@_LOWER:Name_@(void) ...@@ -110,7 +110,7 @@ void @_LOWER:Parent_Function_@_RI_@_LOWER:Name_@(void)
if (0 != Decode_@_Param_Encodings_@_@_REPLACE_ALL(-/_):Param_Types_@ if (0 != Decode_@_Param_Encodings_@_@_REPLACE_ALL(-/_):Param_Types_@
(OUT_@_LOWER:Param_Names_@, OUT_buf_@_LOWER:Param_Names_@, size_OUT_buf_@_LOWER:Param_Names_@)) { (OUT_@_LOWER:Param_Names_@, OUT_buf_@_LOWER:Param_Names_@, size_OUT_buf_@_LOWER:Param_Names_@)) {
#ifdef __unix__ #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 #endif
return; return;
} }
......
...@@ -48,7 +48,7 @@ void @_LOWER:Parent_Function_@_@_LOWER:Name_@ ...@@ -48,7 +48,7 @@ void @_LOWER:Parent_Function_@_@_LOWER:Name_@
@@END_TABLE@@ @@END_TABLE@@
// Declare user code function as external (it may not have a .h if it is in Ada) // 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)@@ @@INLINE( \()(,\n )(\);\n)@@
@@TABLE@@ @@TABLE@@
@@IF@@ @_Param_Directions_@ = "PARAM_IN" @@IF@@ @_Param_Directions_@ = "PARAM_IN"
...@@ -60,7 +60,7 @@ void @_LOWER:Parent_Function_@_@_LOWER:Name_@ ...@@ -60,7 +60,7 @@ void @_LOWER:Parent_Function_@_@_LOWER:Name_@
@@END_INLINE@@ @@END_INLINE@@
// Call user code // Call user code
@_LOWER:Parent_Function_@_PI_@_LOWER:Name_@ @_LOWER:Parent_Function_@_PI_@_Name_@
@@INLINE( \()(,\n )(\);\n)@@ @@INLINE( \()(,\n )(\);\n)@@
@@TABLE@@ @@TABLE@@
@@IF@@ @_Param_Directions_@ = "PARAM_IN" @@IF@@ @_Param_Directions_@ = "PARAM_IN"
...@@ -82,8 +82,8 @@ void @_LOWER:Parent_Function_@_@_LOWER:Name_@() ...@@ -82,8 +82,8 @@ void @_LOWER:Parent_Function_@_@_LOWER:Name_@()
{ {
// Directly call user code, no parameters to pass // Directly call user code, no parameters to pass
// This could be done directly from the concurrency glue... // This could be done directly from the concurrency glue...
extern void @_LOWER:Parent_Function_@_PI_@_LOWER:Name_@(void); extern void @_LOWER:Parent_Function_@_PI_@_Name_@(void);
@_LOWER:Parent_Function_@_PI_@_LOWER:Name_@(); @_LOWER:Parent_Function_@_PI_@_Name_@();
// puts ("@_LOWER:Parent_Function_@_@_LOWER:Name_@ called"); // puts ("@_LOWER:Parent_Function_@_@_LOWER:Name_@ called");
} }
@@END_IF@@ @@END_IF@@
...@@ -143,7 +143,7 @@ This is an extract of `interface.tmplt`: ...@@ -143,7 +143,7 @@ This is an extract of `interface.tmplt`:
@@IF@@ @_Direction_@ = "PI" @@IF@@ @_Direction_@ = "PI"
void @_LOWER:Parent_Function_@_PI_@_LOWER:Name_@( void @_LOWER:Parent_Function_@_PI_@_LOWER:Name_@(
@@ELSE@@ @@ELSE@@
extern void @_LOWER:Parent_Function_@_RI_@_LOWER:Name_@( extern void @_LOWER:Parent_Function_@_RI_@_Name_@(
@@END_IF@@ @@END_IF@@
``` ```
......
...@@ -24,7 +24,7 @@ procedure @_CAPITALIZE:Name_@ ...@@ -24,7 +24,7 @@ procedure @_CAPITALIZE:Name_@
procedure @_CAPITALIZE:Name_@ procedure @_CAPITALIZE:Name_@
@@END_IF@@ @@END_IF@@
@@IF@@ @_Direction_@ = "PI" @@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@@ @@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_@; @@-- procedure RIÜ@_CAPITALIZE:Name_@ renames @_CAPITALIZE:Name_@;
...@@ -11,7 +11,7 @@ ...@@ -11,7 +11,7 @@
@@-- @_Period_@, @_WCET_@, @_Queue_Size_@ : Properties of the interface @@-- @_Period_@, @_WCET_@, @_Queue_Size_@ : Properties of the interface
@@-- @_IF_Property_Names_@, _Values_@ : User-defined properties (vector tag) @@-- @_IF_Property_Names_@, _Values_@ : User-defined properties (vector tag)
@@IF@@ @_EXIST:Param_Names_@ @@IF@@ @_EXIST:Param_Names_@
void @_LOWER:Parent_Function_@_PI_@_LOWER:Name_@ void @_LOWER:Parent_Function_@_PI_@_Name_@
@@INLINE( \()(,\n )(\)\n)@@ @@INLINE( \()(,\n )(\)\n)@@
@@TABLE@@ @@TABLE@@
@@IF@@ @_Param_Directions_@ = "PARAM_IN" @@IF@@ @_Param_Directions_@ = "PARAM_IN"
......
...@@ -12,9 +12,9 @@ ...@@ -12,9 +12,9 @@
@@-- @_IF_Property_Names_@, _Values_@ : User-defined properties (vector tag) @@-- @_IF_Property_Names_@, _Values_@ : User-defined properties (vector tag)
@@INLINE@@ @@INLINE@@
@@IF@@ @_Direction_@ = "PI" @@IF@@ @_Direction_@ = "PI"
void @_LOWER:Parent_Function_@_PI_@_LOWER:Name_@( void @_LOWER:Parent_Function_@_PI_@_Name_@(
@@ELSE@@ @@ELSE@@
extern void @_LOWER:Parent_Function_@_RI_@_LOWER:Name_@( extern void @_LOWER:Parent_Function_@_RI_@_Name_@(
@@END_IF@@ @@END_IF@@
@@IF@@ @_Param_Names'Length_@ = 0 @@IF@@ @_Param_Names'Length_@ = 0
void void
......
...@@ -9,9 +9,9 @@ ...@@ -9,9 +9,9 @@
@@-- @_Param_Directions_@ : |_ Corresponding direction @@-- @_Param_Directions_@ : |_ Corresponding direction
@@INLINE@@ @@INLINE@@
@@IF@@ @_Direction_@ = "PI" @@IF@@ @_Direction_@ = "PI"
void @_LOWER:Parent_Function_@_PI_@_LOWER:Name_@( void @_LOWER:Parent_Function_@_PI_@_Name_@(
@@ELSE@@ @@ELSE@@
extern void @_LOWER:Parent_Function_@_RI_@_LOWER:Name_@( extern void @_LOWER:Parent_Function_@_RI_@_Name_@(
@@END_IF@@ @@END_IF@@
@@INLINE(, )@@ @@INLINE(, )@@
@@TABLE@@ @@TABLE@@
......
...@@ -127,7 +127,7 @@ void @_LOWER:Name_@_startup(void) ...@@ -127,7 +127,7 @@ void @_LOWER:Name_@_startup(void)
} }
// Function polling the message queue for incoming message from the user // 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; struct mq_attr msgq_attr;
char* msgcontent = NULL; char* msgcontent = NULL;
...@@ -148,7 +148,7 @@ void @_LOWER:Name_@_PI_poll(void) ...@@ -148,7 +148,7 @@ void @_LOWER:Name_@_PI_poll(void)
switch(message_received_type) { switch(message_received_type) {
@@TABLE@@ @@TABLE@@
case i_@_List_Of_ASync_RIs_@: 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; break;
@@END_TABLE@@ @@END_TABLE@@
default : break; default : break;
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment