Commit b475635c authored by julien.delange's avatar julien.delange

add Language_Device as new implementation language

add acn as new encoding type



git-svn-id: https://tecsw.estec.esa.int/svn/taste/trunk/ocarina@1114 129961e7-ef38-4bb5-a8f7-c9a525a55882
parent e000c26d
......@@ -92,6 +92,7 @@ property set AADL_Project is
Ada05, -- alias for Ada95
ASN1,
C,
Device,
Esterel,
Lustre,
Lustre5, -- alias for Lustre
......
......@@ -207,7 +207,7 @@ dataview : aadlstring applies to (package);
dataviewpath : aadlstring applies to (package);
Encoding_type : type enumeration (native, uper);
Encoding_type : type enumeration (native, uper, acn);
Encoding : Encoding_type applies to (parameter);
......
......@@ -257,6 +257,7 @@ package body Ocarina.Backends.Properties is
Language_Ada_05_Name : Name_Id;
Language_ASN1_Name : Name_Id;
Language_C_Name : Name_Id;
Language_Device_Name : Name_Id;
Language_Esterel_Name : Name_Id;
Language_GUI_Name : Name_Id;
Language_Lustre_Name : Name_Id;
......@@ -1313,6 +1314,9 @@ package body Ocarina.Backends.Properties is
elsif Source_L = Language_ASN1_Name then
return Language_ASN1;
elsif Source_L = Language_Device_Name then
return Language_Device;
elsif Source_L = Language_Lustre_Name
or else Source_L = Language_Lustre5_Name
or else Source_L = Language_Lustre6_Name
......@@ -1447,6 +1451,12 @@ package body Ocarina.Backends.Properties is
return Subprogram_Unknown;
when Language_Device =>
-- A subprogram having Device as implementation
-- language is not supported.
return Subprogram_Unknown;
when Language_SDL
| Language_SDL_RTDS
| Language_System_C
......@@ -2975,6 +2985,7 @@ package body Ocarina.Backends.Properties is
Language_Ada_Name := Get_String_Name ("ada");
Language_Ada_05_Name := Get_String_Name ("ada05");
Language_C_Name := Get_String_Name ("c");
Language_Device_Name := Get_String_Name ("device");
Language_RTSJ_Name := Get_String_Name ("rtsj");
Language_Simulink_Name := Get_String_Name ("simulink");
Language_Scade_Name := Get_String_Name ("scade");
......
......@@ -64,6 +64,7 @@ package Ocarina.Backends.Properties is
Language_ASN1,
Language_C,
Language_Esterel,
Language_Device,
Language_Gui,
Language_Lustre,
Language_Rhapsody,
......
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