source: rtems/c/src/ada/rtems-object.ads @ 1987020

4.115
Last change on this file since 1987020 was 1987020, checked in by Joel Sherrill <joel.sherrill@…>, on Feb 16, 2011 at 3:52:29 PM

2011-02-16 Joel Sherrill <joel.sherrill@…>

  • ada/Makefile.am, ada/preinstall.am, ada/rtems.adb, ada/rtems.ads: Split RTEMS Ada95 binding into a master package and a child package per Manager. This is better Ada style.
  • ada/rtems-barrier.adb, ada/rtems-barrier.ads, ada/rtems-clock.adb, ada/rtems-clock.ads, ada/rtems-cpu_usage.ads, ada/rtems-debug.adb, ada/rtems-debug.ads, ada/rtems-event.adb, ada/rtems-event.ads, ada/rtems-extension.adb, ada/rtems-extension.ads, ada/rtems-fatal.adb, ada/rtems-fatal.ads, ada/rtems-interrupt.ads, ada/rtems-io.adb, ada/rtems-io.ads, ada/rtems-message_queue.adb, ada/rtems-message_queue.ads, ada/rtems-object.adb, ada/rtems-object.ads, ada/rtems-partition.adb, ada/rtems-partition.ads, ada/rtems-port.adb, ada/rtems-port.ads, ada/rtems-rate_monotonic.adb, ada/rtems-rate_monotonic.ads, ada/rtems-region.adb, ada/rtems-region.ads, ada/rtems-semaphore.adb, ada/rtems-semaphore.ads, ada/rtems-signal.adb, ada/rtems-signal.ads, ada/rtems-stack_checker.ads, ada/rtems-tasks.adb, ada/rtems-tasks.ads, ada/rtems-timer.adb, ada/rtems-timer.ads: New files.
  • 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.com/license/LICENSE.
20--
21--  $Id$
22--
23
24package RTEMS.Object is
25
26   --
27   --  Object Services
28   --
29
30   function Build_Name (
31      C1 : in     Character;
32      C2 : in     Character;
33      C3 : in     Character;
34      C4 : in     Character
35   ) return RTEMS.Name;
36
37   procedure Get_Classic_Name(
38      ID     : in     RTEMS.ID;
39      Name   :    out RTEMS.Name;
40      Result :    out RTEMS.Status_Codes
41   );
42
43   procedure Get_Name(
44      ID     : in     RTEMS.ID;
45      Name   :    out String;
46      Result :    out RTEMS.Address
47   );
48
49   procedure Set_Name(
50      ID     : in     RTEMS.ID;
51      Name   : in     String;
52      Result :    out RTEMS.Status_Codes
53   );
54
55   procedure Id_Get_API(
56      ID  : in     RTEMS.ID;
57      API :    out RTEMS.Unsigned32
58   );
59
60   procedure Id_Get_Class(
61      ID        : in     RTEMS.ID;
62      The_Class :    out RTEMS.Unsigned32
63   );
64
65   procedure Id_Get_Node(
66      ID   : in     RTEMS.ID;
67      Node :    out RTEMS.Unsigned32
68   );
69
70   procedure Id_Get_Index(
71      ID    : in     RTEMS.ID;
72      Index :    out RTEMS.Unsigned32
73   );
74
75   function Build_Id(
76      The_API   : in     RTEMS.Unsigned32;
77      The_Class : in     RTEMS.Unsigned32;
78      The_Node  : in     RTEMS.Unsigned32;
79      The_Index : in     RTEMS.Unsigned32
80   ) return RTEMS.Id;
81
82   function Id_API_Minimum return RTEMS.Unsigned32;
83
84   function Id_API_Maximum return RTEMS.Unsigned32;
85
86   procedure API_Minimum_Class(
87      API     : in     RTEMS.Unsigned32;
88      Minimum :    out RTEMS.Unsigned32
89   );
90
91   procedure API_Maximum_Class(
92      API     : in     RTEMS.Unsigned32;
93      Maximum :    out RTEMS.Unsigned32
94   );
95
96   procedure Get_API_Name(
97      API  : in     RTEMS.Unsigned32;
98      Name :    out String
99   );
100
101   procedure Get_API_Class_Name(
102      The_API   : in     RTEMS.Unsigned32;
103      The_Class : in     RTEMS.Unsigned32;
104      Name      :    out String
105   );
106
107   type API_Class_Information is
108     record
109        Minimum_Id    : RTEMS.Id;
110        Maximum_Id    : RTEMS.Id;
111        Maximum       : RTEMS.Unsigned32;
112        AutoExtend    : RTEMS.Boolean;
113        Unallocated   : RTEMS.Unsigned32;
114     end record;
115
116   procedure Get_Class_Information(
117      The_API   : in     RTEMS.Unsigned32;
118      The_Class : in     RTEMS.Unsigned32;
119      Info      :    out API_Class_Information;
120      Result    :    out RTEMS.Status_Codes
121   );
122
123end RTEMS.Object;
Note: See TracBrowser for help on using the repository browser.