diff options
| author | Joel Sherrill <joel.sherrill@OARcorp.com> | 2011-02-16 15:52:29 +0000 |
|---|---|---|
| committer | Joel Sherrill <joel.sherrill@OARcorp.com> | 2011-02-16 15:52:29 +0000 |
| commit | 19870208342778aecf570dfe008aa2747c46110e (patch) | |
| tree | 48f0cc573732a4e8dddca3bdf91c3488d0b13649 /c/src/ada/rtems-message_queue.adb | |
| parent | 2011-02-16 Sebastian Huber <sebastian.huber@embedded-brains.de> (diff) | |
| download | rtems-19870208342778aecf570dfe008aa2747c46110e.tar.bz2 | |
2011-02-16 Joel Sherrill <joel.sherrill@oarcorp.com>
* 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.
Diffstat (limited to 'c/src/ada/rtems-message_queue.adb')
| -rw-r--r-- | c/src/ada/rtems-message_queue.adb | 245 |
1 files changed, 245 insertions, 0 deletions
diff --git a/c/src/ada/rtems-message_queue.adb b/c/src/ada/rtems-message_queue.adb new file mode 100644 index 0000000000..8d911ee7da --- /dev/null +++ b/c/src/ada/rtems-message_queue.adb @@ -0,0 +1,245 @@ +--
+-- 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.com/license/LICENSE.
+--
+-- $Id$
+--
+
+package body RTEMS.Message_Queue is
+
+ --
+ -- Message Queue Manager
+ --
+
+ procedure Create
+ (Name : in RTEMS.Name;
+ Count : in RTEMS.Unsigned32;
+ Max_Message_Size : in RTEMS.Unsigned32;
+ Attribute_Set : in RTEMS.Attribute;
+ ID : out RTEMS.ID;
+ Result : out RTEMS.Status_Codes)
+ is
+ -- XXX broken
+ function Create_Base
+ (Name : RTEMS.Name;
+ Count : RTEMS.Unsigned32;
+ Max_Message_Size : RTEMS.Unsigned32;
+ Attribute_Set : RTEMS.Attribute;
+ ID : access RTEMS.ID)
+ return RTEMS.Status_Codes;
+ pragma Import
+ (C,
+ Create_Base,
+ "rtems_message_queue_create");
+ ID_Base : aliased RTEMS.ID;
+ begin
+
+ Result :=
+ Create_Base
+ (Name,
+ Count,
+ Max_Message_Size,
+ Attribute_Set,
+ ID_Base'Access);
+ ID := ID_Base;
+
+ end Create;
+
+ procedure Ident
+ (Name : in RTEMS.Name;
+ Node : in RTEMS.Unsigned32;
+ ID : out RTEMS.ID;
+ Result : out RTEMS.Status_Codes)
+ is
+ function Ident_Base
+ (Name : RTEMS.Name;
+ Node : RTEMS.Unsigned32;
+ ID : access RTEMS.ID)
+ return RTEMS.Status_Codes;
+ pragma Import
+ (C,
+ Ident_Base,
+ "rtems_message_queue_ident");
+ ID_Base : aliased RTEMS.ID;
+ begin
+
+ Result := Ident_Base (Name, Node, 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_message_queue_delete");
+ begin
+
+ Result := Delete_Base (ID);
+
+ end Delete;
+
+ procedure Send
+ (ID : in RTEMS.ID;
+ Buffer : in RTEMS.Address;
+ Size : in RTEMS.Unsigned32;
+ Result : out RTEMS.Status_Codes)
+ is
+ function Send_Base
+ (ID : RTEMS.ID;
+ Buffer : RTEMS.Address;
+ Size : RTEMS.Unsigned32)
+ return RTEMS.Status_Codes;
+ pragma Import (C, Send_Base, "rtems_message_queue_send");
+ begin
+
+ Result := Send_Base (ID, Buffer, Size);
+
+ end Send;
+
+ procedure Urgent
+ (ID : in RTEMS.ID;
+ Buffer : in RTEMS.Address;
+ Size : in RTEMS.Unsigned32;
+ Result : out RTEMS.Status_Codes)
+ is
+ function Urgent_Base
+ (ID : RTEMS.ID;
+ Buffer : RTEMS.Address;
+ Size : RTEMS.Unsigned32)
+ return RTEMS.Status_Codes;
+ pragma Import
+ (C,
+ Urgent_Base,
+ "rtems_message_queue_urgent");
+ begin
+
+ Result := Urgent_Base (ID, Buffer, Size);
+
+ end Urgent;
+
+ procedure Broadcast
+ (ID : in RTEMS.ID;
+ Buffer : in RTEMS.Address;
+ Size : in RTEMS.Unsigned32;
+ Count : out RTEMS.Unsigned32;
+ Result : out RTEMS.Status_Codes)
+ is
+ function Broadcast_Base
+ (ID : RTEMS.ID;
+ Buffer : RTEMS.Address;
+ Size : RTEMS.Unsigned32;
+ Count : access RTEMS.Unsigned32)
+ return RTEMS.Status_Codes;
+ pragma Import
+ (C,
+ Broadcast_Base,
+ "rtems_message_queue_broadcast");
+ Count_Base : aliased RTEMS.Unsigned32;
+ begin
+
+ Result :=
+ Broadcast_Base (ID, Buffer, Size, Count_Base'Access);
+ Count := Count_Base;
+
+ end Broadcast;
+
+ procedure Receive
+ (ID : in RTEMS.ID;
+ Buffer : in RTEMS.Address;
+ Option_Set : in RTEMS.Option;
+ Timeout : in RTEMS.Interval;
+ Size : in out RTEMS.Unsigned32;
+ Result : out RTEMS.Status_Codes)
+ is
+ function Receive_Base
+ (ID : RTEMS.ID;
+ Buffer : RTEMS.Address;
+ Size : access RTEMS.Unsigned32;
+ Option_Set : RTEMS.Option;
+ Timeout : RTEMS.Interval)
+ return RTEMS.Status_Codes;
+ pragma Import
+ (C,
+ Receive_Base,
+ "rtems_message_queue_receive");
+ Size_Base : aliased RTEMS.Unsigned32;
+ begin
+
+ Size_Base := Size;
+
+ Result :=
+ Receive_Base
+ (ID,
+ Buffer,
+ Size_Base'Access,
+ Option_Set,
+ Timeout);
+ Size := Size_Base;
+
+ end Receive;
+
+ procedure Get_Number_Pending
+ (ID : in RTEMS.ID;
+ Count : out RTEMS.Unsigned32;
+ Result : out RTEMS.Status_Codes)
+ is
+ function Get_Number_Pending_Base
+ (ID : RTEMS.ID;
+ Count : access RTEMS.Unsigned32)
+ return RTEMS.Status_Codes;
+ pragma Import
+ (C,
+ Get_Number_Pending_Base,
+ "rtems_message_queue_get_number_pending");
+ COUNT_Base : aliased RTEMS.Unsigned32;
+ begin
+
+ Result := Get_Number_Pending_Base (ID, COUNT_Base'Access);
+ Count := COUNT_Base;
+
+ end Get_Number_Pending;
+
+ procedure Flush
+ (ID : in RTEMS.ID;
+ Count : out RTEMS.Unsigned32;
+ Result : out RTEMS.Status_Codes)
+ is
+ function Flush_Base
+ (ID : RTEMS.ID;
+ Count : access RTEMS.Unsigned32)
+ return RTEMS.Status_Codes;
+ pragma Import
+ (C,
+ Flush_Base,
+ "rtems_message_queue_flush");
+ COUNT_Base : aliased RTEMS.Unsigned32;
+ begin
+
+ Result := Flush_Base (ID, COUNT_Base'Access);
+ Count := COUNT_Base;
+
+ end Flush;
+
+end RTEMS.Message_Queue;
|