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

* 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
Lustre,
Lustre5, -- alias for Lustre
Lustre6, -- alias for Lustre
RTDS, -- SDL
RTDS, -- alias for SDL_RTDS
SDL_RTDS,
RTSJ, -- Real Time Specification for Java
SCADE6, -- alias for Lustre
SDL,
SDL, -- alias for SDL_ObjectGeode
SDL_ObjectGeode,
Simulink,
Simulink_6_5,
System_C,
......
......@@ -96,10 +96,12 @@ property set AADL_Project is
Lustre,
Lustre5, -- alias for Lustre
Lustre6, -- alias for Lustre
RTDS, -- SDL
RTDS, -- alias for SDL_RTDS
SDL_RTDS,
RTSJ, -- Real Time Specification for Java
SCADE6, -- alias for Lustre
SDL,
SDL, -- alias for SDL_ObjectGeode
SDL_ObjectGeode,
Scade,
Simulink,
Simulink_6_5,
......
......@@ -257,6 +257,8 @@ package body Ocarina.Backends.Properties is
Language_Scade_Name : Name_Id;
Language_SCADE6_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_System_C_Name : Name_Id;
Language_VHDL_Name : Name_Id;
......@@ -1309,11 +1311,15 @@ package body Ocarina.Backends.Properties is
elsif Source_L = Language_Esterel_Name then
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;
elsif Source_L = Language_RTDS_Name then
return Language_RTDS;
elsif Source_L = Language_RTDS_Name
or else Source_L = Language_SDL_RTDS_Name
then
return Language_SDL_RTDS;
elsif Source_L = Language_C_Name then
return Language_C;
......@@ -1430,7 +1436,7 @@ package body Ocarina.Backends.Properties is
return Subprogram_Unknown;
when Language_SDL
| Language_RTDS
| Language_SDL_RTDS
| Language_System_C
| Language_VHDL =>
-- A subprogram having this language as implementation
......@@ -2863,7 +2869,9 @@ package body Ocarina.Backends.Properties is
Language_Rhapsody_Name := Get_String_Name ("rhapsody");
Language_SCADE6_Name := Get_String_Name ("scade6");
Language_SDL_Name := Get_String_Name ("sdl");
Language_SDL_ObjectGeode_Name := Get_String_Name ("sdl_objectgeode");
Language_RTDS_Name := Get_String_Name ("rtds");
Language_SDL_RTDS_Name := Get_String_Name ("sdl_rtds");
Language_VHDL_Name := Get_String_Name ("vhdl");
Language_System_C_Name := Get_String_Name ("system_c");
......
......@@ -67,7 +67,7 @@ package Ocarina.Backends.Properties is
Language_Gui,
Language_Lustre,
Language_Rhapsody,
Language_RTDS,
Language_SDL_RTDS,
Language_RTSJ,
Language_Scade,
Language_SDL,
......
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