-- -- RTEMS / Body -- -- DESCRIPTION: -- -- This package provides the interface to the RTEMS API. -- -- -- DEPENDENCIES: -- -- -- -- COPYRIGHT (c) 1997-2011. -- On-Line Applications Research Corporation (OAR). -- -- The license and distribution terms for this file may in -- the file LICENSE in this distribution or at -- http://www.rtems.org/license/LICENSE. -- package body RTEMS.Rate_Monotonic is -- -- Rate Monotonic Manager -- procedure Create (Name : in RTEMS.Name; ID : out RTEMS.ID; Result : out RTEMS.Status_Codes) is function Create_Base (Name : RTEMS.Name; ID : access RTEMS.ID) return RTEMS.Status_Codes; pragma Import (C, Create_Base, "rtems_rate_monotonic_create"); ID_Base : aliased RTEMS.ID; begin Result := Create_Base (Name, ID_Base'Access); ID := ID_Base; end Create; procedure Ident (Name : in RTEMS.Name; ID : out RTEMS.ID; Result : out RTEMS.Status_Codes) is function Ident_Base (Name : RTEMS.Name; ID : access RTEMS.ID) return RTEMS.Status_Codes; pragma Import (C, Ident_Base, "rtems_rate_monotonic_ident"); ID_Base : aliased RTEMS.ID; begin Result := Ident_Base (Name, ID_Base'Access); ID := ID_Base; end Ident; procedure Delete (ID : in RTEMS.ID; Result : out RTEMS.Status_Codes) is function Delete_Base (ID : RTEMS.ID) return RTEMS.Status_Codes; pragma Import (C, Delete_Base, "rtems_rate_monotonic_delete"); begin Result := Delete_Base (ID); end Delete; procedure Cancel (ID : in RTEMS.ID; Result : out RTEMS.Status_Codes) is function Cancel_Base (ID : RTEMS.ID) return RTEMS.Status_Codes; pragma Import (C, Cancel_Base, "rtems_rate_monotonic_cancel"); begin Result := Cancel_Base (ID); end Cancel; procedure Period (ID : in RTEMS.ID; Length : in RTEMS.Interval; Result : out RTEMS.Status_Codes) is function Period_Base (ID : RTEMS.ID; Length : RTEMS.Interval) return RTEMS.Status_Codes; pragma Import (C, Period_Base, "rtems_rate_monotonic_period"); begin Result := Period_Base (ID, Length); end Period; procedure Get_Status (ID : in RTEMS.ID; Status : out RTEMS.Rate_Monotonic.Period_Status; Result : out RTEMS.Status_Codes) is function Get_Status_Base (ID : RTEMS.ID; Status : access RTEMS.Rate_Monotonic.Period_Status) return RTEMS.Status_Codes; pragma Import (C, Get_Status_Base, "rtems_rate_monotonic_get_status"); Status_Base : aliased RTEMS.Rate_Monotonic.Period_Status; begin Result := Get_Status_Base (ID, Status_Base'Access); Status := Status_Base; end Get_Status; procedure Reset_Statistics (ID : in RTEMS.ID; Result : out RTEMS.Status_Codes) is function Reset_Statistics_Base (ID : RTEMS.ID) return RTEMS.Status_Codes; pragma Import (C, Reset_Statistics_Base, "rtems_rate_monotonic_reset_statistics"); begin Result := Reset_Statistics_Base (ID); end Reset_Statistics; end RTEMS.Rate_Monotonic;