Skip to content
GitLab
Projects
Groups
Snippets
/
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Sign in
Toggle navigation
Menu
Open sidebar
TASTE
Ocarina
Commits
bd56a3d6
Commit
bd56a3d6
authored
Jan 17, 2014
by
yoogx
Browse files
* Add some information in verbose mode
parent
b50be7eb
Changes
1
Hide whitespace changes
Inline
Side-by-side
src/main/ocarina_cmd.adb
View file @
bd56a3d6
...
...
@@ -1330,6 +1330,11 @@ begin
Ocarina
.
Configuration
.
Init_Modules
;
if
Verbose_Mode
then
Set_Standard_Error
;
Version
;
end
if
;
case
Get_Current_Action
is
when
Show_Version
=>
Version
;
...
...
@@ -1386,6 +1391,12 @@ begin
Success
:=
Analyze
(
Language
,
AADL_Root
);
Exit_On_Error
(
not
Success
,
"Cannot analyze AADL specifications"
);
if
Verbose_Mode
then
Write_Line
(
"Model parsing: completed"
);
Write_Eol
;
end
if
;
end
if
;
case
Get_Current_Action
is
...
...
@@ -1395,6 +1406,10 @@ begin
when
Instantiate_Model
=>
AADL_Root
:=
Instantiate_Model
(
AADL_Root
);
Exit_On_Error
(
No
(
AADL_Root
),
"Cannot instantiate AADL models"
);
if
Verbose_Mode
then
Write_Line
(
"Model instantiation: completed"
);
Write_Eol
;
end
if
;
when
Generate_Code
=>
if
Get_Current_Backend_Name
=
Get_String_Name
(
"real_theorem"
)
...
...
@@ -1407,6 +1422,10 @@ begin
Exit_On_Error
(
not
Success
,
"Cannot analyze REAL specifications"
);
end
if
;
Generate_Code
(
AADL_Root
);
if
Verbose_Mode
then
Write_Line
(
"Code generation: completed"
);
Write_Eol
;
end
if
;
when
Analyze_With_Cheddar
=>
declare
...
...
Write
Preview
Supports
Markdown
0%
Try again
or
attach a new 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