File: /home/oboss/Users/gec/sources/Basic_Services/Control_Structures/interrupt_sporadic_task.ads
1 --% Compilation Unit: Interrupt_Sporadic_Task
2 --
3 --% Category: Generic Package Declaration
4 --
5 --% Release: $Name: $
6 --
7 --% Version: $Revision: 2.0 $
8 --
9 --% Author: $Author: gec $
10 --
11 --% Revision Log:
12 -- $Log: interrupt_sporadic_task.ads,v $
13 -- Revision 2.0 2003/04/04 08:49:59 gec
14 -- Initial release of source files serving as baseline for OBOSS-III project.
15 --
16 -- Revision 1.1.1.1 2003/04/04 08:13:01 gec
17 -- Imported using TkCVS
18 --
19 --
20 --
21 --% Project: OBOSS
22 --
23 --% Copyright (C) 2003 by Terma A/S
24 -- Proprietary and intellectual rights of Terma A/S, Denmark,
25 -- are involved in the subject-matter of this material and
26 -- all manufacturing, reproduction, use, disclosure, and
27 -- sales rights pertaining to such subject-matter are
28 -- expressly reserved. This material is submitted for a
29 -- specific purpose as agreed, and the recipient by
30 -- accepting this material agrees that this material will
31 -- not be used, copied, or reproduced in whole or in part
32 -- nor its contents revealed in any manner or to any person,
33 -- except to meet the purpose for which it was submitted and
34 -- subject to the terms of the agreement.
35 --
36 --% Target Dependencies:
37 -- None
38 --% Compiler Dependencies:
39 -- None
40 with Task_Priority_Control;
41 with Mission_Parameters;
42
43 with Ada.Interrupts;
44
45 generic
46
47 My_Application_ID : in Mission_Parameters.APID;
48
49 -- Priority of protected object implementing interrupt queue
50 Interrupt_Queue_Priority : in Task_Priority_Control.Interrupt_Task_Priority;
51
52 -- Interrupt level of interrupt queue
53 Interrupt_Level : in Ada.Interrupts.Interrupt_ID;
54
55 -- Priority and stack size of Sporadic object performing Sporadic_Operation
56 Interrupt_Sporadic_Task_Priority : in
57 Task_Priority_Control.Active_Task_Priority;
58
59 Interrupt_Sporadic_Task_Stack_Size : in Natural;
60
61 with procedure Interrupt_Sporadic_Operation;
62
63 package Interrupt_Sporadic_Task is
64
65 --~--------------------------------------------------------------------------
66
67 -- fake operation to persuade GNAT that we need a body for this package
68 procedure Foo;
69
70 --~--------------------------------------------------------------------------
71
72 end Interrupt_Sporadic_Task;
73
74