package Scheduler.Time_Sharing_Based_On_Cpu_Usage is

   type Time_Sharing_Based_On_Cpu_Usage_Scheduler is new Generic_Scheduler
   with private;
   type Time_Sharing_Based_On_Cpu_Usage_Scheduler_Ptr is access all
     Time_Sharing_Based_On_Cpu_Usage_Scheduler'Class;

   procedure Initialize
     (A_Scheduler : in out Time_Sharing_Based_On_Cpu_Usage_Scheduler);

   function Copy
     (A_Scheduler : in Time_Sharing_Based_On_Cpu_Usage_Scheduler)
      return        Generic_Scheduler_Ptr;

   procedure Put
     (My_Scheduler : in Time_Sharing_Based_On_Cpu_Usage_Scheduler);

   procedure Check_Before_Scheduling
     (My_Scheduler   : in Time_Sharing_Based_On_Cpu_Usage_Scheduler;
      My_Tasks       : in Tasks_Set;
      Processor_Name : in Unbounded_String);

   procedure Do_Election
     (My_Scheduler       : in out Time_Sharing_Based_On_Cpu_Usage_Scheduler;
      Si                 : in out Scheduling_Information;
      Result             : in out Scheduling_Sequence_Ptr;
      Msg                : in out Unbounded_String;
      Current_Time       : in Natural;
      Processor_Name     : in Unbounded_String;
      Address_Space_Name : in Unbounded_String;
      My_Dependencies    : in Tasks_Dependencies_Ptr;
      With_Offsets       : in Boolean;
      With_Precedencies  : in Boolean;
      With_Resources     : in Boolean;
      With_jitters     : in Boolean;
      With_minimize_preemption     : in Boolean;
      Event_To_Generate  : in Time_Unit_Event_Type_Boolean_Table;
      Elected            : in out Tasks_Range;
      No_Task            : in out Boolean);

   procedure Specific_Scheduler_Initialization
     (My_Scheduler       : in out Time_Sharing_Based_On_Cpu_Usage_Scheduler;
      Si                 : in out Scheduling_Information;
      Processor_Name     : in Unbounded_String;
      address_space_name : in Unbounded_String;
      My_Tasks           : in out Tasks_Set;
      my_schedulers      : in Scheduler_table;
      My_Resources       : in out Resources_Set;
      My_Buffers         : in out Buffers_Set;
      My_Messages        : in Messages_Set;
      Msg                : in out Unbounded_String);

   procedure Compute_Activation_Time
     (My_Scheduler : in Time_Sharing_Based_On_Cpu_Usage_Scheduler;
      Si           : in out Scheduling_Information;
      Elected      : in Tasks_Range;
      Value        : in out Natural);

private

   type Time_Sharing_Based_On_Cpu_Usage_Scheduler is new Generic_Scheduler
   with null record;

end Scheduler.Time_Sharing_Based_On_Cpu_Usage;