Commit 55d0d1cc authored by Maxime Perrotin's avatar Maxime Perrotin

Add parsing of taste_properties.aadl

Latest version of ocarina does not parse it by default
parent 656067d2
......@@ -1342,6 +1342,14 @@ procedure BuildSupport is
Interface_Root := Ocarina.Parser.Parse
(AADL_Language, Interface_Root, B);
-- Parse taste AADL library and join it to the interface view
Set_Str_To_Name_Buffer ("taste_properties.aadl");
FN := Ocarina.Files.Search_File (Name_Find);
Exit_On_Error (FN = No_Name, "File not found: taste_properties.aadl");
B := Ocarina.Files.Load_File (FN);
Interface_Root := Ocarina.Parser.Parse
(AADL_Language, Interface_Root, B);
if Concurrency_view = 0 and Generate_Glue then
Put_Line ("Fatal error: Missing Deployment view!");
Put_Line ("Use the '-c file.aadl' parameter.");
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