Skip to content
GitLab
Menu
Projects
Groups
Snippets
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Sign in
Toggle navigation
Menu
Open sidebar
TASTE
Ocarina
Commits
b17ba45c
Commit
b17ba45c
authored
Jan 26, 2014
by
yoogx
Browse files
* Extended output when in verbose mode
parent
978ea608
Changes
2
Hide whitespace changes
Inline
Side-by-side
src/backends/ocarina-backends-po_hi_c.adb
View file @
b17ba45c
...
...
@@ -107,6 +107,7 @@ package body Ocarina.Backends.PO_HI_C is
Do_Regression_Test
:
Boolean
:=
False
;
Do_Coverage_Test
:
Boolean
:=
False
;
Generated_Sources_Directory
:
Name_Id
:=
No_Name
;
Verbose_Mode
:
Boolean
:=
False
;
procedure
Visit_Architecture_Instance
(
E
:
Node_Id
);
-- Most top level visitor routine. E is the root of the AADL
...
...
@@ -548,6 +549,13 @@ package body Ocarina.Backends.PO_HI_C is
-- Enter the output 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
Build_Utils
.
Makefiles
.
Clean
(
Instance_Root
);
...
...
@@ -642,7 +650,7 @@ package body Ocarina.Backends.PO_HI_C is
Generated_Sources_Directory
:=
Get_String_Name
(
"."
);
Initialize_Option_Scan
;
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
=>
exit
;
...
...
@@ -654,6 +662,9 @@ package body Ocarina.Backends.PO_HI_C is
when
'b'
=>
Compile_Generated_Sources
:=
True
;
when
'v'
=>
Verbose_Mode
:=
True
;
when
'z'
=>
Remove_Generated_Sources
:=
True
;
...
...
src/main/ocarina_cmd.adb
View file @
b17ba45c
...
...
@@ -1407,8 +1407,10 @@ begin
AADL_Root
:=
Instantiate_Model
(
AADL_Root
);
Exit_On_Error
(
No
(
AADL_Root
),
"Cannot instantiate AADL models"
);
if
Verbose_Mode
then
Set_Standard_Error
;
Write_Line
(
"Model instantiation: completed"
);
Write_Eol
;
Set_Standard_Output
;
end
if
;
when
Generate_Code
=>
...
...
@@ -1423,8 +1425,10 @@ begin
end
if
;
Generate_Code
(
AADL_Root
);
if
Verbose_Mode
then
Set_Standard_Error
;
Write_Line
(
"Code generation: completed"
);
Write_Eol
;
Set_Standard_Output
;
end
if
;
when
Analyze_With_Cheddar
=>
...
...
Write
Preview
Supports
Markdown
0%
Try again
or
attach a new file
.
Attach a file
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment