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
27d419b9
Commit
27d419b9
authored
May 26, 2015
by
yoogx
Browse files
Options
Browse Files
Download
Email Patches
Plain Diff
* Handle case issues when selecting root system
For issue #36
parent
fe56d1cc
Changes
1
Hide whitespace changes
Inline
Side-by-side
Showing
1 changed file
with
13 additions
and
6 deletions
+13
-6
src/core/instance/ocarina-instances.adb
src/core/instance/ocarina-instances.adb
+13
-6
No files found.
src/core/instance/ocarina-instances.adb
View file @
27d419b9
...
...
@@ -33,6 +33,7 @@
with
Errors
;
with
Locations
;
with
Utils
;
with
Ocarina
.
Namet
;
with
Ocarina
.
Output
;
...
...
@@ -55,6 +56,7 @@ package body Ocarina.Instances is
use
Errors
;
use
Locations
;
use
Utils
;
use
Ocarina
.
Namet
;
use
Ocarina
.
Output
;
...
...
@@ -174,10 +176,11 @@ package body Ocarina.Instances is
List_Node
:=
Root_Systems
.
First
;
while
Present
(
List_Node
)
loop
exit
when
(
ATE
.
Get_Name_Of_Entity
(
List_Node
,
False
)
=
Root_System_Name
(
To_Lower
(
ATE
.
Get_Name_Of_Entity
(
List_Node
,
False
))
=
To_Lower
(
Root_System_Name
)
or
else
ATE
.
Get_Name_Of_Entity
(
List_Node
,
False
,
True
)
=
Root_System_Name
);
To_Lower
(
ATE
.
Get_Name_Of_Entity
(
List_Node
,
False
,
True
)
)
=
To_Lower
(
Root_System_Name
)
);
List_Node
:=
ATN
.
Next_Entity
(
List_Node
);
end
loop
;
...
...
@@ -211,11 +214,15 @@ package body Ocarina.Instances is
if
Root_System_Name
/=
No_Name
and
then
ATE
.
Get_Name_Of_Entity
(
Root_System
,
False
)
/=
Root_System_Name
To_Lower
(
ATE
.
Get_Name_Of_Entity
(
Root_System
,
False
))
/=
To_Lower
(
Root_System_Name
)
and
then
To_Lower
(
ATE
.
Get_Name_Of_Entity
(
Root_System
,
False
,
True
))
/=
To_Lower
(
Root_System_Name
)
then
Error_Name
(
1
)
:=
Root_System_Name
;
Error_Name
(
2
)
:=
ATE
.
Get_Name_Of_Entity
(
Root_System
);
Error_Name
(
2
)
:=
ATE
.
Get_Name_Of_Entity
(
Root_System
,
False
,
True
);
DE
(
"system % is not a root system, use %"
);
Root_System
:=
No_Node
;
Exit_On_Error
(
True
,
"Cannot instantiate AADL model"
);
...
...
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