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
2c7ec13f
Commit
2c7ec13f
authored
Jul 04, 2016
by
Bechir Zalila
Browse files
Options
Browse Files
Download
Email Patches
Plain Diff
* (ocarina-options.ad?): Document annextion actions. Restore
Unset_Annex_Action
parent
7873c374
Changes
2
Hide whitespace changes
Inline
Side-by-side
Showing
2 changed files
with
24 additions
and
0 deletions
+24
-0
src/core/mgmt/ocarina-options.adb
src/core/mgmt/ocarina-options.adb
+9
-0
src/core/mgmt/ocarina-options.ads
src/core/mgmt/ocarina-options.ads
+15
-0
No files found.
src/core/mgmt/ocarina-options.adb
View file @
2c7ec13f
...
...
@@ -114,6 +114,15 @@ package body Ocarina.Options is
Current_Annex_Action
(
Action
)
:=
1
;
end
Set_Annex_Action
;
------------------------
-- Unset_Annex_Action --
------------------------
procedure
Unset_Annex_Action
(
Action
:
Annex_Action_Kind
)
is
begin
Current_Annex_Action
(
Action
)
:=
0
;
end
Unset_Annex_Action
;
----------------------
-- Get_Annex_Action --
----------------------
...
...
src/core/mgmt/ocarina-options.ads
View file @
2c7ec13f
...
...
@@ -90,10 +90,25 @@ package Ocarina.Options is
type
Annex_Action
is
array
(
Annex_Action_Kind
)
of
Byte
;
procedure
Set_Annex_Action
(
Action
:
Annex_Action_Kind
);
-- Mark the given annex to be handled by its corresponding parses
-- during parsing.
procedure
Unset_Annex_Action
(
Action
:
Annex_Action_Kind
);
-- Unmark the given annex to be ignored during parsing
function
Get_Annex_Action
(
Action
:
Annex_Action_Kind
)
return
Byte
;
-- Return 1 if the given annex has been set and 1 if it has been
-- unset.
procedure
Reset_Annex_Action
;
-- Unset all annexes
procedure
Process_Annex_Action
(
Parameters
:
String
);
-- Analyse the command line --disable-annexes=... part
function
Perform_Annex_Action
(
Language
:
Name_Id
)
return
Boolean
;
-- Returns true iff the given language has a corresponding annex
-- action.
private
...
...
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