Commit b42684e3 authored by Maxime Perrotin's avatar Maxime Perrotin
Browse files

Add flag to ignore ocarina_components.aadl

parent 19daf9d1
......@@ -179,6 +179,10 @@ package body TASTE.AADL_Parser is
raise AADL_Parser_Error with "Interface view parsing error";
end;
if not Result.Configuration.No_Stdlib then
AADL_Lib.Append ("ocarina_components.aadl");
end if;
if Deployment_Root /= No_Node
and not Result.Configuration.Deployment_View.Is_Empty
then
......
-- *************************** taste aadl parser *********************** --
-- (c) 2017 European Space Agency - maxime.perrotin@esa.int
-- *************************** taste/kazoo *********************** --
-- (c) 2019 Maxime Perrotin / European Space Agency
-- contact: maxime.perrotin@esa.int
-- LGPL license, see LICENSE file
-- Deployment View parser
......@@ -39,7 +40,6 @@ package TASTE.Deployment_View is
Empty_Vector
& "TASTE_DV_Properties.aadl"
& "TASTE_IV_Properties.aadl"
& "ocarina_components.aadl"
& "aadl_project.aadl"
& "taste_properties.aadl"
& "Cheddar_Properties.aadl"
......
......@@ -109,6 +109,10 @@ package body TASTE.Parser_Utils is
Switch => "-g",
Long_Switch => "--debug",
Help => "Set debug mode");
Define_Switch (Config, Output => Result.No_Stdlib'Access,
Switch => "-s",
Long_Switch => "--no-stdlib",
Help => "Don't use ocarina_components.aadl");
Define_Switch (Config, Output => Version'Access,
Switch => "-v",
Long_Switch => "--version",
......@@ -171,6 +175,7 @@ package body TASTE.Parser_Utils is
& Assoc ("Glue", Config.Glue)
& Assoc ("Use_POHIC", Config.Use_POHIC)
& Assoc ("Debug_Flag", Config.Debug_Flag)
& Assoc ("No_StdLib_Flag", Config.No_Stdlib)
& Assoc ("Timer_Resolution", Config.Timer_Resolution);
for Each of Config.Other_Files loop
Vec := Vec & Each;
......
......@@ -140,6 +140,7 @@ package TASTE.Parser_Utils is
Use_POHIC : aliased Boolean := False;
Timer_Resolution : aliased Integer := 100;
Debug_Flag : aliased Boolean := False;
No_Stdlib : aliased Boolean := False;
Other_Files : String_Vectors.Vector;
end record;
......
......@@ -11,6 +11,7 @@
|Generate skeletons : @_YES_NO:Skeletons_@
|Generate glue : @_YES_NO:Glue_@
|Debug mode : @_YES_NO:Debug_Flag_@
|No stdlib : @_YES_NO:No_Stdlib_Flag_@
|Timer resolution : @_Timer_Resolution_@
|Use PolyORB-HI-C : @_YES_NO:Use_POHIC_@
|
......
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