source: rtems/c/src/ada/rtems-io.adb @ 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: 4.5 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.com/license/LICENSE.
19--
20--  $Id$
21--
22
23with Ada;
24with Ada.Unchecked_Conversion;
25with Interfaces;               use Interfaces;
26with Interfaces.C;             use Interfaces.C;
27with Interfaces.C.Strings;     use Interfaces.C.Strings;
28
29package body RTEMS.IO is
30
31   --
32   -- Input/Output Manager
33   --
34
35   procedure Register_Name
36     (Name   : in String;
37      Major  : in RTEMS.Device_Major_Number;
38      Minor  : in RTEMS.Device_Minor_Number;
39      Result : out RTEMS.Status_Codes)
40   is
41      function Register_Name_Base
42        (Name  : Interfaces.C.char_array;
43         Major : RTEMS.Device_Major_Number;
44         Minor : RTEMS.Device_Minor_Number)
45         return  RTEMS.Status_Codes;
46      pragma Import (C, Register_Name_Base, "rtems_io_register_name");
47   begin
48
49      Result := Register_Name_Base (Interfaces.C.To_C (Name), Major, Minor);
50
51   end Register_Name;
52
53   procedure Lookup_Name
54     (Name        : in String;
55      Device_Info : out RTEMS.Driver_Name_t;
56      Result      : out RTEMS.Status_Codes)
57   is
58      function Lookup_Name_Base
59        (Name        : Interfaces.C.char_array;
60         Device_Info : access RTEMS.Driver_Name_t)
61         return        RTEMS.Status_Codes;
62      pragma Import (C, Lookup_Name_Base, "rtems_io_lookup_name");
63      Device_Info_Base : aliased RTEMS.Driver_Name_t;
64   begin
65
66      Result      :=
67         Lookup_Name_Base
68           (Interfaces.C.To_C (Name),
69            Device_Info_Base'Unchecked_Access);
70      Device_Info := Device_Info_Base;
71
72   end Lookup_Name;
73
74   procedure Open
75     (Major    : in RTEMS.Device_Major_Number;
76      Minor    : in RTEMS.Device_Minor_Number;
77      Argument : in RTEMS.Address;
78      Result   : out RTEMS.Status_Codes)
79   is
80      function Open_Base
81        (Major    : RTEMS.Device_Major_Number;
82         Minor    : RTEMS.Device_Minor_Number;
83         Argument : RTEMS.Address)
84         return     RTEMS.Status_Codes;
85      pragma Import (C, Open_Base, "rtems_io_open");
86   begin
87
88      Result := Open_Base (Major, Minor, Argument);
89
90   end Open;
91   pragma Inline (Open);
92
93   procedure Close
94     (Major    : in RTEMS.Device_Major_Number;
95      Minor    : in RTEMS.Device_Minor_Number;
96      Argument : in RTEMS.Address;
97      Result   : out RTEMS.Status_Codes)
98   is
99      function Close_Base
100        (Major    : RTEMS.Device_Major_Number;
101         Minor    : RTEMS.Device_Minor_Number;
102         Argument : RTEMS.Address)
103         return     RTEMS.Status_Codes;
104      pragma Import (C, Close_Base, "rtems_io_close");
105   begin
106
107      Result := Close_Base (Major, Minor, Argument);
108
109   end Close;
110   pragma Inline (Close);
111
112   procedure Read
113     (Major    : in RTEMS.Device_Major_Number;
114      Minor    : in RTEMS.Device_Minor_Number;
115      Argument : in RTEMS.Address;
116      Result   : out RTEMS.Status_Codes)
117   is
118      function Read_Base
119        (Major    : RTEMS.Device_Major_Number;
120         Minor    : RTEMS.Device_Minor_Number;
121         Argument : RTEMS.Address)
122         return     RTEMS.Status_Codes;
123      pragma Import (C, Read_Base, "rtems_io_read");
124   begin
125
126      Result := Read_Base (Major, Minor, Argument);
127
128   end Read;
129   pragma Inline (Read);
130
131   procedure Write
132     (Major    : in RTEMS.Device_Major_Number;
133      Minor    : in RTEMS.Device_Minor_Number;
134      Argument : in RTEMS.Address;
135      Result   : out RTEMS.Status_Codes)
136   is
137      function Write_Base
138        (Major    : RTEMS.Device_Major_Number;
139         Minor    : RTEMS.Device_Minor_Number;
140         Argument : RTEMS.Address)
141         return     RTEMS.Status_Codes;
142      pragma Import (C, Write_Base, "rtems_io_write");
143   begin
144
145      Result := Write_Base (Major, Minor, Argument);
146
147   end Write;
148   pragma Inline (Write);
149
150   procedure Control
151     (Major    : in RTEMS.Device_Major_Number;
152      Minor    : in RTEMS.Device_Minor_Number;
153      Argument : in RTEMS.Address;
154      Result   : out RTEMS.Status_Codes)
155   is
156      function Control_Base
157        (Major    : RTEMS.Device_Major_Number;
158         Minor    : RTEMS.Device_Minor_Number;
159         Argument : RTEMS.Address)
160         return     RTEMS.Status_Codes;
161      pragma Import (C, Control_Base, "rtems_io_control");
162   begin
163
164      Result := Control_Base (Major, Minor, Argument);
165
166   end Control;
167   pragma Inline (Control);
168
169end RTEMS.IO;
Note: See TracBrowser for help on using the repository browser.