Skip to content
GitLab
Projects
Groups
Snippets
Help
Loading...
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in
Toggle navigation
O
Ocarina
Project overview
Project overview
Details
Activity
Releases
Repository
Repository
Files
Commits
Branches
Tags
Contributors
Graph
Compare
Issues
2
Issues
2
List
Boards
Labels
Service Desk
Milestones
Merge Requests
0
Merge Requests
0
Operations
Operations
Incidents
Analytics
Analytics
Repository
Value Stream
Wiki
Wiki
Members
Members
Collapse sidebar
Close sidebar
Activity
Graph
Create a new issue
Commits
Issue Boards
Open sidebar
TASTE
Ocarina
Commits
8435bc1f
Commit
8435bc1f
authored
Jan 18, 2016
by
yoogx
Browse files
Options
Browse Files
Download
Email Patches
Plain Diff
* Use Verbose instead of Verbose_Mode
parent
9a94b36b
Changes
1
Hide whitespace changes
Inline
Side-by-side
Showing
1 changed file
with
11 additions
and
3 deletions
+11
-3
src/main/ocarina_cmd.adb
src/main/ocarina_cmd.adb
+11
-3
No files found.
src/main/ocarina_cmd.adb
View file @
8435bc1f
...
...
@@ -613,17 +613,25 @@ begin
Exit_On_Error
((
File_Name
=
No_Name
),
"Cannot read file "
&
Get_Name_String
(
Sources
.
Table
(
F
)));
if
Verbose
then
Write_Line
(
"Loading file "
&
Get_Name_String
(
Sources
.
Table
(
F
)));
end
if
;
AADL_Root
:=
Parse
(
Language
,
AADL_Root
,
Buffer
);
Exit_On_Error
(
No
(
AADL_Root
),
"Cannot parse AADL specifications"
);
exit
when
F
=
Sources
.
Last
;
F
:=
F
+
1
;
end
loop
;
end
;
if
Verbose
then
Write_Line
(
"Loading of all files done"
);
end
if
;
Success
:=
Analyze
(
Language
,
AADL_Root
);
Exit_On_Error
(
not
Success
,
"Cannot analyze AADL specifications"
);
if
Verbose
_Mode
then
if
Verbose
then
Write_Line
(
"Model parsing: completed"
);
Write_Eol
;
end
if
;
...
...
@@ -635,7 +643,7 @@ begin
when
Instantiate_Model
=>
AADL_Root
:=
Instantiate_Model
(
AADL_Root
);
Exit_On_Error
(
No
(
AADL_Root
),
"Cannot instantiate AADL models"
);
if
Verbose
_Mode
then
if
Verbose
then
Set_Standard_Error
;
Write_Line
(
"Model instantiation: completed"
);
Write_Eol
;
...
...
@@ -654,7 +662,7 @@ begin
Exit_On_Error
(
not
Success
,
"Cannot analyze REAL specifications"
);
end
if
;
Generate_Code
(
AADL_Root
);
if
Verbose
_Mode
then
if
Verbose
then
Set_Standard_Error
;
Write_Line
(
"Code generation: completed"
);
Write_Eol
;
...
...
Write
Preview
Markdown
is supported
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