source: rtems/c/src/ada/rtems-object.ads @ 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: 2.8 KB
Line 
1--
2--  RTEMS / Specification
3--
4--  DESCRIPTION:
5--
6--  This package provides the interface to the RTEMS API.
7--
8--  DEPENDENCIES:
9--
10--  NOTES:
11--    RTEMS initialization and configuration are called from
12--    the BSP side, therefore should never be called from ADA.
13--
14--  COPYRIGHT (c) 1997-2011.
15--  On-Line Applications Research Corporation (OAR).
16--
17--  The license and distribution terms for this file may in
18--  the file LICENSE in this distribution or at
19--  http://www.rtems.org/license/LICENSE.
20--
21
22package RTEMS.Object is
23
24   --
25   --  Object Services
26   --
27
28   function Build_Name (
29      C1 : in     Character;
30      C2 : in     Character;
31      C3 : in     Character;
32      C4 : in     Character
33   ) return RTEMS.Name;
34
35   procedure Get_Classic_Name(
36      ID     : in     RTEMS.ID;
37      Name   :    out RTEMS.Name;
38      Result :    out RTEMS.Status_Codes
39   );
40
41   procedure Get_Name(
42      ID     : in     RTEMS.ID;
43      Name   :    out String;
44      Result :    out RTEMS.Address
45   );
46
47   procedure Set_Name(
48      ID     : in     RTEMS.ID;
49      Name   : in     String;
50      Result :    out RTEMS.Status_Codes
51   );
52
53   procedure Id_Get_API(
54      ID  : in     RTEMS.ID;
55      API :    out RTEMS.Unsigned32
56   );
57
58   procedure Id_Get_Class(
59      ID        : in     RTEMS.ID;
60      The_Class :    out RTEMS.Unsigned32
61   );
62
63   procedure Id_Get_Node(
64      ID   : in     RTEMS.ID;
65      Node :    out RTEMS.Unsigned32
66   );
67
68   procedure Id_Get_Index(
69      ID    : in     RTEMS.ID;
70      Index :    out RTEMS.Unsigned32
71   );
72
73   function Build_Id(
74      The_API   : in     RTEMS.Unsigned32;
75      The_Class : in     RTEMS.Unsigned32;
76      The_Node  : in     RTEMS.Unsigned32;
77      The_Index : in     RTEMS.Unsigned32
78   ) return RTEMS.Id;
79
80   function Id_API_Minimum return RTEMS.Unsigned32;
81
82   function Id_API_Maximum return RTEMS.Unsigned32;
83
84   procedure API_Minimum_Class(
85      API     : in     RTEMS.Unsigned32;
86      Minimum :    out RTEMS.Unsigned32
87   );
88
89   procedure API_Maximum_Class(
90      API     : in     RTEMS.Unsigned32;
91      Maximum :    out RTEMS.Unsigned32
92   );
93
94   procedure Get_API_Name(
95      API  : in     RTEMS.Unsigned32;
96      Name :    out String
97   );
98
99   procedure Get_API_Class_Name(
100      The_API   : in     RTEMS.Unsigned32;
101      The_Class : in     RTEMS.Unsigned32;
102      Name      :    out String
103   );
104
105   type API_Class_Information is
106     record
107        Minimum_Id    : RTEMS.Id;
108        Maximum_Id    : RTEMS.Id;
109        Maximum       : RTEMS.Unsigned32;
110        AutoExtend    : RTEMS.Boolean;
111        Unallocated   : RTEMS.Unsigned32;
112     end record;
113
114   procedure Get_Class_Information(
115      The_API   : in     RTEMS.Unsigned32;
116      The_Class : in     RTEMS.Unsigned32;
117      Info      :    out API_Class_Information;
118      Result    :    out RTEMS.Status_Codes
119   );
120
121end RTEMS.Object;
Note: See TracBrowser for help on using the repository browser.