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

Keep case in interface names

parent ca620c5b
......@@ -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"
......
......@@ -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"
......
......@@ -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"
......
......@@ -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;
}
......
......@@ -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@@
......@@ -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@@
```
......
......@@ -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_@;
......@@ -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"
......
......@@ -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
......
......@@ -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@@
......
......@@ -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;
......
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