source: rtems/c/src/ada/rtems-extension.adb @ c499856

4.115
Last change on this file since c499856 was c499856, checked in by Chris Johns <chrisj@…>, on Mar 20, 2014 at 9:10:47 PM

Change all references of rtems.com to rtems.org.

  • Property mode set to 100644
File size: 1.7 KB
Line 
1--
2--  RTEMS / Body
3--
4--  DESCRIPTION:
5--
6--  This package provides the interface to the RTEMS API.
7--
8--
9--  DEPENDENCIES:
10--
11--
12--
13--  COPYRIGHT (c) 1997-2011.
14--  On-Line Applications Research Corporation (OAR).
15--
16--  The license and distribution terms for this file may in
17--  the file LICENSE in this distribution or at
18--  http://www.rtems.org/license/LICENSE.
19--
20
21package body RTEMS.Extension is
22
23   --
24   -- Extension Manager
25   --
26
27   procedure Create
28     (Name   : in RTEMS.Name;
29      Table  : in RTEMS.Extensions_Table_Pointer;
30      ID     : out RTEMS.ID;
31      Result : out RTEMS.Status_Codes)
32   is
33      function Create_Base
34        (Name  : RTEMS.Name;
35         Table : RTEMS.Extensions_Table_Pointer;
36         ID    : access RTEMS.ID)
37         return  RTEMS.Status_Codes;
38      pragma Import (C, Create_Base, "rtems_extension_create");
39      ID_Base : aliased RTEMS.ID;
40   begin
41
42      Result := Create_Base (Name, Table, ID_Base'Access);
43      ID     := ID_Base;
44
45   end Create;
46
47   procedure Ident
48     (Name   : in RTEMS.Name;
49      ID     : out RTEMS.ID;
50      Result : out RTEMS.Status_Codes)
51   is
52      function Ident_Base
53        (Name : RTEMS.Name;
54         ID   : access RTEMS.ID)
55         return RTEMS.Status_Codes;
56      pragma Import (C, Ident_Base, "rtems_extension_ident");
57      ID_Base : aliased RTEMS.ID;
58   begin
59
60      Result := Ident_Base (Name, ID_Base'Access);
61      ID     := ID_Base;
62
63   end Ident;
64
65   procedure Delete
66     (ID     : in RTEMS.ID;
67      Result : out RTEMS.Status_Codes)
68   is
69      function Delete_Base
70        (ID   : RTEMS.ID)
71         return RTEMS.Status_Codes;
72      pragma Import (C, Delete_Base, "rtems_extension_delete");
73   begin
74
75      Result := Delete_Base (ID);
76
77   end Delete;
78
79end RTEMS.Extension;
Note: See TracBrowser for help on using the repository browser.