Commit 2c7ec13f authored by Bechir Zalila's avatar Bechir Zalila

* (ocarina-options.ad?): Document annextion actions. Restore

	Unset_Annex_Action
parent 7873c374
......@@ -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 --
----------------------
......
......@@ -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
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment