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
a1a922f7
Commit
a1a922f7
authored
Dec 16, 2019
by
yoogx
Browse files
* Added function to manage TASTE-specific property sets
parent
28f890e5
Changes
2
Hide whitespace changes
Inline
Side-by-side
src/core/tree/ocarina-property_sets.adb
View file @
a1a922f7
...
...
@@ -81,6 +81,8 @@ package body Ocarina.Property_Sets is
Standard_Property_Set_Mask
:
constant
Byte
:=
2
**
2
;
Ocarina_Property_Set_Mask
:
constant
Byte
:=
2
**
3
;
Use_Taste_Properties
:
Boolean
:=
False
;
function
Internal_Name
(
N
:
Name_Id
)
return
Name_Id
;
function
Internal_Name
(
S
:
String
)
return
Name_Id
;
...
...
@@ -230,7 +232,12 @@ package body Ocarina.Property_Sets is
function
Ocarina_Property_Sets
return
Ocarina_Property_Set_Array_Type
is
begin
return
Ocarina_Property_Sets_Table
(
AADL_Version
).
all
;
if
Use_Taste_Properties
then
return
Ocarina_Property_Sets_Table
(
AADL_Version
).
all
&
O_Taste_Properties
;
else
return
Ocarina_Property_Sets_Table
(
AADL_Version
).
all
;
end
if
;
end
Ocarina_Property_Sets
;
-------------------------
...
...
@@ -246,4 +253,13 @@ package body Ocarina.Property_Sets is
Set_Name_Table_Byte
(
N
,
B
or
User_Defined_Mask
);
end
Set_As_User_Defined
;
-------------------------------
-- Activate_Taste_Properties --
-------------------------------
procedure
Activate_Taste_Properties
is
begin
Use_Taste_Properties
:=
True
;
end
Activate_Taste_Properties
;
end
Ocarina
.
Property_Sets
;
src/core/tree/ocarina-property_sets.ads
View file @
a1a922f7
...
...
@@ -96,4 +96,8 @@ package Ocarina.Property_Sets is
function
Ocarina_Property_Sets
return
Ocarina_Property_Set_Array_Type
;
procedure
Activate_Taste_Properties
;
-- Special case to activate TASTE property sets as additional
-- Ocarina property set
end
Ocarina
.
Property_Sets
;
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