source: rtems/c/src/ada-tests/sptests/sp11/sptest.ads @ 48bfd992

4.104.114.84.95
Last change on this file since 48bfd992 was 7f79b673, checked in by Joel Sherrill <joel.sherrill@…>, on Jun 2, 1997 at 10:37:28 PM

readded body for "main" procedures

  • Property mode set to 100644
File size: 3.6 KB
Line 
1--
2--  SPTEST / SPECIFICATION
3--
4--  DESCRIPTION:
5--
6--  This package is the specification for Test 11 of the RTEMS
7--  Single Processor Test Suite.
8--
9--  DEPENDENCIES:
10--
11-- 
12--
13--  COPYRIGHT (c) 1989-1997.
14--  On-Line Applications Research Corporation (OAR).
15--  Copyright assigned to U.S. Government, 1994.
16--
17--  The license and distribution terms for this file may in
18--  the file LICENSE in this distribution or at
19--  http://www.OARcorp.com/rtems/license.html.
20--
21--  $Id$
22--
23
24with RTEMS;
25
26package SPTEST is
27
28--
29--  These arrays contain the IDs and NAMEs of all RTEMS tasks created
30--  by this test.
31--
32
33   TASK_ID   : array ( RTEMS.UNSIGNED32 range 1 .. 3 ) of RTEMS.ID;
34   TASK_NAME : array ( RTEMS.UNSIGNED32 range 1 .. 3 ) of RTEMS.NAME;
35
36--
37--  These arrays contain the IDs and NAMEs of all RTEMS timers created
38--  by this test.
39--
40
41   TIMER_ID   : array ( RTEMS.UNSIGNED32 range 1 .. 6 ) of RTEMS.ID;
42   TIMER_NAME : array ( RTEMS.UNSIGNED32 range 1 .. 6 ) of RTEMS.NAME;
43
44--
45--  TA1_SEND_18_TO_SELF_5_SECONDS
46--
47--  DESCRIPTION:
48--
49--  This subprogram is scheduled to be fired by a timer after 5 seconds
50--  and to send EVENT_18 to TASK_1.
51--
52
53   procedure TA1_SEND_18_TO_SELF_5_SECONDS (
54      IGNORED_ID      : in     RTEMS.ID; 
55      IGNORED_ADDRESS : in     RTEMS.ADDRESS 
56   ); 
57
58--
59--  TA1_SEND_8_TO_SELF_60_SECONDS
60--
61--  DESCRIPTION:
62--
63--  This subprogram is scheduled to be fired by a timer after 60 seconds
64--  and to send EVENT_8 to TASK_1.
65--
66
67   procedure TA1_SEND_8_TO_SELF_60_SECONDS (
68      IGNORED_ID      : in     RTEMS.ID; 
69      IGNORED_ADDRESS : in     RTEMS.ADDRESS 
70   ); 
71
72--
73--  TA1_SEND_9_TO_SELF_5_SECONDS
74--
75--  DESCRIPTION:
76--
77--  This subprogram is scheduled to be fired by a timer after 60 seconds
78--  and to send EVENT_9 to TASK_1.
79--
80
81   procedure TA1_SEND_9_TO_SELF_60_SECONDS (
82      IGNORED_ID      : in     RTEMS.ID; 
83      IGNORED_ADDRESS : in     RTEMS.ADDRESS 
84   ); 
85
86--
87--  TA1_SEND_10_TO_SELF
88--
89--  DESCRIPTION:
90--
91--  This subprogram is scheduled to be fired by a timer after 60 seconds
92--  and to send EVENT_10 to TASK_1.
93--
94
95   procedure TA1_SEND_10_TO_SELF (
96      IGNORED_ID      : in     RTEMS.ID; 
97      IGNORED_ADDRESS : in     RTEMS.ADDRESS 
98   ); 
99
100--
101--  TA1_SEND_1_TO_SELF_EVERY_SECOND
102--
103--  DESCRIPTION:
104--
105--  This subprogram is scheduled to be fired by a timer every second
106--  and to send EVENT_1 to TASK_1 until the timer is cancelled.
107--
108
109   procedure TA1_SEND_1_TO_SELF_EVERY_SECOND (
110      IGNORED_ID      : in     RTEMS.ID; 
111      IGNORED_ADDRESS : in     RTEMS.ADDRESS 
112   ); 
113
114--
115--  TA1_SEND_11_TO_SELF
116--
117--  DESCRIPTION:
118--
119--  This subprogram is scheduled to be fired by a timer at a
120--  specific time of day and to send EVENT_11 to TASK_1.
121--
122
123   procedure TA1_SEND_11_TO_SELF (
124      IGNORED_ID      : in     RTEMS.ID; 
125      IGNORED_ADDRESS : in     RTEMS.ADDRESS 
126   ); 
127
128--
129--  TA2_SEND_10_TO_SELF
130--
131--  DESCRIPTION:
132--
133--  This subprogram is scheduled to be fired by a timer after 5 seconds
134--  and to send EVENT_10 to TASK_2.
135--
136
137   procedure TA2_SEND_10_TO_SELF (
138      IGNORED_ID      : in     RTEMS.ID; 
139      IGNORED_ADDRESS : in     RTEMS.ADDRESS 
140   ); 
141
142--
143--  INIT
144--
145--  DESCRIPTION:
146--
147--  This RTEMS task initializes the application.
148--
149
150   procedure INIT (
151      ARGUMENT : in     RTEMS.TASK_ARGUMENT
152   );
153
154--
155--  TASK_1
156--
157--  DESCRIPTION:
158--
159--  This RTEMS task tests the Event and Timer Managers.
160--
161
162   procedure TASK_1 (
163      ARGUMENT : in     RTEMS.TASK_ARGUMENT
164   );
165
166--
167--  TASK_2
168--
169--  DESCRIPTION:
170--
171--  This RTEMS task tests the Event and Timer Managers.
172--
173
174   procedure TASK_2 (
175      ARGUMENT : in     RTEMS.TASK_ARGUMENT
176   );
177
178end SPTEST;
Note: See TracBrowser for help on using the repository browser.