Subversion Repositories openrisc_me

------------------------------------------------------------------------------

--                                                                          --

--                         GNAT RUN-TIME COMPONENTS                         --

--                                                                          --

--      A D A . E X E C U T I O N _ T I M E . G R O U P _ B U D G E T S     --

--                                                                          --

--                                 S p e c                                  --

--                                                                          --

-- This specification is derived from the Ada Reference Manual for use with --

-- GNAT.  In accordance with the copyright of that document, you can freely --

-- copy and modify this specification,  provided that if you redistribute a --

-- modified version,  any changes that you have made are clearly indicated. --

--                                                                          --

------------------------------------------------------------------------------

--  This unit is not implemented in typical GNAT implementations that lie on

--  top of operating systems, because it is infeasible to implement in such

--  environments.

--  If a target environment provides appropriate support for this package,

--  then the Unimplemented_Unit pragma should be removed from this spec and

--  an appropriate body provided.

with System;

package Ada.Execution_Time.Group_Budgets is

   pragma Preelaborate;

   pragma Unimplemented_Unit;

   type Group_Budget is tagged limited private;

   type Group_Budget_Handler is access

      protected procedure (GB : in out Group_Budget);

   type Task_Array is

      array (Positive range <>) of Ada.Task_Identification.Task_Id;

   Min_Handler_Ceiling : constant System.Any_Priority :=

                           System.Any_Priority'First;

   --  Initial value is an arbitrary choice ???

   procedure Add_Task

     (GB : in out Group_Budget;

      T  : Ada.Task_Identification.Task_Id);

   procedure Remove_Task

     (GB : in out Group_Budget;

      T  : Ada.Task_Identification.Task_Id);

   function Is_Member

     (GB : Group_Budget;

      T  : Ada.Task_Identification.Task_Id) return Boolean;

   function Is_A_Group_Member

     (T : Ada.Task_Identification.Task_Id) return Boolean;

   function Members (GB : Group_Budget) return Task_Array;

   procedure Replenish

     (GB : in out Group_Budget;

      To : Ada.Real_Time.Time_Span);

   procedure Add

     (GB       : in out Group_Budget;

      Interval : Ada.Real_Time.Time_Span);

   function Budget_Has_Expired (GB : Group_Budget) return Boolean;

   function Budget_Remaining

     (GB : Group_Budget) return Ada.Real_Time.Time_Span;

   procedure Set_Handler

     (GB      : in out Group_Budget;

      Handler : Group_Budget_Handler);

   function Current_Handler (GB : Group_Budget) return Group_Budget_Handler;

   procedure Cancel_Handler

     (GB        : in out Group_Budget;

      Cancelled : out Boolean);

   Group_Budget_Error : exception;

private

   type Group_Budget is tagged limited null record;

end Ada.Execution_Time.Group_Budgets;