source: rtems/c/src/ada/rtems-semaphore.ads @ 4778c6e0

4.115
Last change on this file since 4778c6e0 was 1987020, checked in by Joel Sherrill <joel.sherrill@…>, on 02/16/11 at 15:52:29

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: 1.6 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
24with RTEMS.Tasks;
25
26package RTEMS.Semaphore is
27
28   --
29   --  Semaphore Manager
30   --
31
32   procedure Create (
33      Name             : in     RTEMS.Name;
34      Count            : in     RTEMS.Unsigned32;
35      Attribute_Set    : in     RTEMS.Attribute;
36      Priority_Ceiling : in     RTEMS.Tasks.Priority;
37      ID               :    out RTEMS.ID;
38      Result           :    out RTEMS.Status_Codes
39   );
40
41   procedure Delete (
42      ID     : in     RTEMS.ID;
43      Result :    out RTEMS.Status_Codes
44   );
45
46   procedure Ident (
47      Name   : in     RTEMS.Name;
48      Node   : in     RTEMS.Unsigned32;
49      ID     :    out RTEMS.ID;
50      Result :    out RTEMS.Status_Codes
51   );
52
53   procedure Obtain (
54      ID         : in     RTEMS.ID;
55      Option_Set : in     RTEMS.Option;
56      Timeout    : in     RTEMS.Interval;
57      Result     :    out RTEMS.Status_Codes
58   );
59
60   procedure Release (
61      ID     : in     RTEMS.ID;
62      Result :    out RTEMS.Status_Codes
63   );
64
65   procedure Flush (
66      ID     : in     RTEMS.ID;
67      Result :    out RTEMS.Status_Codes
68   );
69
70end RTEMS.Semaphore;
71
Note: See TracBrowser for help on using the repository browser.