Commit 60f1b574 authored by hugues.jerome's avatar hugues.jerome
Browse files

* Add alias SDL_RTDS alias for RTDS, SDL_ObjectGeode for SDL


git-svn-id: https://tecsw.estec.esa.int/svn/taste/trunk/ocarina@729 129961e7-ef38-4bb5-a8f7-c9a525a55882
parent 499208ed
...@@ -90,10 +90,12 @@ property set AADL_Project is ...@@ -90,10 +90,12 @@ property set AADL_Project is
Lustre, Lustre,
Lustre5, -- alias for Lustre Lustre5, -- alias for Lustre
Lustre6, -- alias for Lustre Lustre6, -- alias for Lustre
RTDS, -- SDL RTDS, -- alias for SDL_RTDS
SDL_RTDS,
RTSJ, -- Real Time Specification for Java RTSJ, -- Real Time Specification for Java
SCADE6, -- alias for Lustre SCADE6, -- alias for Lustre
SDL, SDL, -- alias for SDL_ObjectGeode
SDL_ObjectGeode,
Simulink, Simulink,
Simulink_6_5, Simulink_6_5,
System_C, System_C,
......
...@@ -96,10 +96,12 @@ property set AADL_Project is ...@@ -96,10 +96,12 @@ property set AADL_Project is
Lustre, Lustre,
Lustre5, -- alias for Lustre Lustre5, -- alias for Lustre
Lustre6, -- alias for Lustre Lustre6, -- alias for Lustre
RTDS, -- SDL RTDS, -- alias for SDL_RTDS
SDL_RTDS,
RTSJ, -- Real Time Specification for Java RTSJ, -- Real Time Specification for Java
SCADE6, -- alias for Lustre SCADE6, -- alias for Lustre
SDL, SDL, -- alias for SDL_ObjectGeode
SDL_ObjectGeode,
Scade, Scade,
Simulink, Simulink,
Simulink_6_5, Simulink_6_5,
......
...@@ -257,6 +257,8 @@ package body Ocarina.Backends.Properties is ...@@ -257,6 +257,8 @@ package body Ocarina.Backends.Properties is
Language_Scade_Name : Name_Id; Language_Scade_Name : Name_Id;
Language_SCADE6_Name : Name_Id; Language_SCADE6_Name : Name_Id;
Language_SDL_Name : Name_Id; Language_SDL_Name : Name_Id;
Language_SDL_ObjectGeode_Name : Name_Id;
Language_SDL_RTDS_Name : Name_Id;
Language_Simulink_Name : Name_Id; Language_Simulink_Name : Name_Id;
Language_System_C_Name : Name_Id; Language_System_C_Name : Name_Id;
Language_VHDL_Name : Name_Id; Language_VHDL_Name : Name_Id;
...@@ -1309,11 +1311,15 @@ package body Ocarina.Backends.Properties is ...@@ -1309,11 +1311,15 @@ package body Ocarina.Backends.Properties is
elsif Source_L = Language_Esterel_Name then elsif Source_L = Language_Esterel_Name then
return Language_Esterel; return Language_Esterel;
elsif Source_L = Language_SDL_Name then elsif Source_L = Language_SDL_Name
or else Source_L = Language_SDL_ObjectGeode_Name
then
return Language_SDL; return Language_SDL;
elsif Source_L = Language_RTDS_Name then elsif Source_L = Language_RTDS_Name
return Language_RTDS; or else Source_L = Language_SDL_RTDS_Name
then
return Language_SDL_RTDS;
elsif Source_L = Language_C_Name then elsif Source_L = Language_C_Name then
return Language_C; return Language_C;
...@@ -1430,7 +1436,7 @@ package body Ocarina.Backends.Properties is ...@@ -1430,7 +1436,7 @@ package body Ocarina.Backends.Properties is
return Subprogram_Unknown; return Subprogram_Unknown;
when Language_SDL when Language_SDL
| Language_RTDS | Language_SDL_RTDS
| Language_System_C | Language_System_C
| Language_VHDL => | Language_VHDL =>
-- A subprogram having this language as implementation -- A subprogram having this language as implementation
...@@ -2863,7 +2869,9 @@ package body Ocarina.Backends.Properties is ...@@ -2863,7 +2869,9 @@ package body Ocarina.Backends.Properties is
Language_Rhapsody_Name := Get_String_Name ("rhapsody"); Language_Rhapsody_Name := Get_String_Name ("rhapsody");
Language_SCADE6_Name := Get_String_Name ("scade6"); Language_SCADE6_Name := Get_String_Name ("scade6");
Language_SDL_Name := Get_String_Name ("sdl"); Language_SDL_Name := Get_String_Name ("sdl");
Language_SDL_ObjectGeode_Name := Get_String_Name ("sdl_objectgeode");
Language_RTDS_Name := Get_String_Name ("rtds"); Language_RTDS_Name := Get_String_Name ("rtds");
Language_SDL_RTDS_Name := Get_String_Name ("sdl_rtds");
Language_VHDL_Name := Get_String_Name ("vhdl"); Language_VHDL_Name := Get_String_Name ("vhdl");
Language_System_C_Name := Get_String_Name ("system_c"); Language_System_C_Name := Get_String_Name ("system_c");
......
...@@ -67,7 +67,7 @@ package Ocarina.Backends.Properties is ...@@ -67,7 +67,7 @@ package Ocarina.Backends.Properties is
Language_Gui, Language_Gui,
Language_Lustre, Language_Lustre,
Language_Rhapsody, Language_Rhapsody,
Language_RTDS, Language_SDL_RTDS,
Language_RTSJ, Language_RTSJ,
Language_Scade, Language_Scade,
Language_SDL, Language_SDL,
......
Supports Markdown
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