source: rtems/c/src/ada/rtems-timer.ads @ 15c1978c

4.115
Last change on this file since 15c1978c 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: 2.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-2008.
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.Timer is
27
28   --
29   --  The following type define a pointer to a watchdog/timer service routine.
30   --
31
32   type Service_Routine is access procedure (
33      ID          : in     RTEMS.ID;
34      User_Data   : in     RTEMS.Address
35   );
36   pragma Convention (C, Service_Routine);
37
38   --
39   --  Timer Manager
40   --
41
42   procedure Create (
43      Name   : in     RTEMS.Name;
44      ID     :    out RTEMS.ID;
45      Result :    out RTEMS.Status_Codes
46   );
47
48   procedure Ident (
49      Name   : in     RTEMS.Name;
50      ID     :    out RTEMS.ID;
51      Result :    out RTEMS.Status_Codes
52   );
53
54   procedure Delete (
55      ID     : in     RTEMS.ID;
56      Result :    out RTEMS.Status_Codes
57   );
58
59   procedure Fire_After (
60      ID        : in     RTEMS.ID;
61      Ticks     : in     RTEMS.Interval;
62      Routine   : in     RTEMS.Timer.Service_Routine;
63      User_Data : in     RTEMS.Address;
64      Result    :    out RTEMS.Status_Codes
65   );
66
67   procedure Server_Fire_After (
68      ID        : in     RTEMS.ID;
69      Ticks     : in     RTEMS.Interval;
70      Routine   : in     RTEMS.Timer.Service_Routine;
71      User_Data : in     RTEMS.Address;
72      Result    :    out RTEMS.Status_Codes
73   );
74
75   procedure Fire_When (
76      ID        : in     RTEMS.ID;
77      Wall_Time : in     RTEMS.Time_Of_Day;
78      Routine   : in     RTEMS.Timer.Service_Routine;
79      User_Data : in     RTEMS.Address;
80      Result    :    out RTEMS.Status_Codes
81   );
82
83   procedure Server_Fire_When (
84      ID        : in     RTEMS.ID;
85      Wall_Time : in     RTEMS.Time_Of_Day;
86      Routine   : in     RTEMS.Timer.Service_Routine;
87      User_Data : in     RTEMS.Address;
88      Result    :    out RTEMS.Status_Codes
89   );
90
91   procedure Reset (
92      ID     : in     RTEMS.ID;
93      Result :    out RTEMS.Status_Codes
94   );
95
96   procedure Cancel (
97      ID     : in     RTEMS.ID;
98      Result :    out RTEMS.Status_Codes
99   );
100
101   procedure Initiate_Server (
102      Server_Priority : in     RTEMS.Tasks.Priority;
103      Stack_Size      : in     Unsigned32;
104      Attribute_Set   : in     RTEMS.Attribute;
105      Result          :    out RTEMS.Status_Codes
106   );
107
108end RTEMS.Timer;
Note: See TracBrowser for help on using the repository browser.