Commit b17ba45c authored by yoogx's avatar yoogx
Browse files

* Extended output when in verbose mode

parent 978ea608
...@@ -107,6 +107,7 @@ package body Ocarina.Backends.PO_HI_C is ...@@ -107,6 +107,7 @@ package body Ocarina.Backends.PO_HI_C is
Do_Regression_Test : Boolean := False; Do_Regression_Test : Boolean := False;
Do_Coverage_Test : Boolean := False; Do_Coverage_Test : Boolean := False;
Generated_Sources_Directory : Name_Id := No_Name; Generated_Sources_Directory : Name_Id := No_Name;
Verbose_Mode : Boolean := False;
procedure Visit_Architecture_Instance (E : Node_Id); procedure Visit_Architecture_Instance (E : Node_Id);
-- Most top level visitor routine. E is the root of the AADL -- Most top level visitor routine. E is the root of the AADL
...@@ -548,6 +549,13 @@ package body Ocarina.Backends.PO_HI_C is ...@@ -548,6 +549,13 @@ package body Ocarina.Backends.PO_HI_C is
-- Enter the output directory -- Enter the output directory
Enter_Directory (Generated_Sources_Directory); Enter_Directory (Generated_Sources_Directory);
if Verbose_Mode then
Set_Standard_Error;
Write_Str ("Generating code in directory: ");
Write_Name (Generated_Sources_Directory);
Write_Eol;
Set_Standard_Output;
end if;
if Remove_Generated_Sources then if Remove_Generated_Sources then
Build_Utils.Makefiles.Clean (Instance_Root); Build_Utils.Makefiles.Clean (Instance_Root);
...@@ -642,7 +650,7 @@ package body Ocarina.Backends.PO_HI_C is ...@@ -642,7 +650,7 @@ package body Ocarina.Backends.PO_HI_C is
Generated_Sources_Directory := Get_String_Name ("."); Generated_Sources_Directory := Get_String_Name (".");
Initialize_Option_Scan; Initialize_Option_Scan;
loop loop
case Getopt ("* b z ec er o: perf asn1") is case Getopt ("* b z ec er o: perf asn1 v") is
when ASCII.NUL => when ASCII.NUL =>
exit; exit;
...@@ -654,6 +662,9 @@ package body Ocarina.Backends.PO_HI_C is ...@@ -654,6 +662,9 @@ package body Ocarina.Backends.PO_HI_C is
when 'b' => when 'b' =>
Compile_Generated_Sources := True; Compile_Generated_Sources := True;
when 'v' =>
Verbose_Mode := True;
when 'z' => when 'z' =>
Remove_Generated_Sources := True; Remove_Generated_Sources := True;
......
...@@ -1407,8 +1407,10 @@ begin ...@@ -1407,8 +1407,10 @@ begin
AADL_Root := Instantiate_Model (AADL_Root); AADL_Root := Instantiate_Model (AADL_Root);
Exit_On_Error (No (AADL_Root), "Cannot instantiate AADL models"); Exit_On_Error (No (AADL_Root), "Cannot instantiate AADL models");
if Verbose_Mode then if Verbose_Mode then
Set_Standard_Error;
Write_Line ("Model instantiation: completed"); Write_Line ("Model instantiation: completed");
Write_Eol; Write_Eol;
Set_Standard_Output;
end if; end if;
when Generate_Code => when Generate_Code =>
...@@ -1423,8 +1425,10 @@ begin ...@@ -1423,8 +1425,10 @@ begin
end if; end if;
Generate_Code (AADL_Root); Generate_Code (AADL_Root);
if Verbose_Mode then if Verbose_Mode then
Set_Standard_Error;
Write_Line ("Code generation: completed"); Write_Line ("Code generation: completed");
Write_Eol; Write_Eol;
Set_Standard_Output;
end if; end if;
when Analyze_With_Cheddar => when Analyze_With_Cheddar =>
......
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