File: /home/oboss/Users/gec/sources/Demonstrator/Data_Handling_System/data_handling_system-event_action_manager.ads
1 --% Compilation Unit: Data_Handling_System.Event_Action_Manager
2 --
3 --% Category: Package Declaration
4 --
5 --% Release: $Name: $
6 --
7 --% Version: $Revision: 2.1 $
8 --
9 --% Author: $Author: gec $
10 --
11 --% Revision Log:
12 -- $Log: data_handling_system-event_action_manager.ads,v $
13 -- Revision 2.1 2004/02/13 16:16:30 gec
14 -- Merged results of Demonstrator development on to main OBOSS trunk.
15 --
16 -- Revision 1.1.2.2 2004/02/04 15:43:42 gec
17 -- Temporary implementation of event/action instantiation. Required due to an error in GNAT.
18 --
19 -- Revision 1.1.2.1 2003/12/12 12:10:47 gec
20 -- Updated Data Handling System application process according to 'OBOSS-III
21 --+ Demonstrator Test Case Specification'.
22 --
23 --
24 --% Project: OBOSS
25 --
26 --% Copyright (C) 2003 by Terma A/S
27 -- Proprietary and intellectual rights of Terma A/S, Denmark,
28 -- are involved in the subject-matter of this material and
29 -- all manufacturing, reproduction, use, disclosure, and
30 -- sales rights pertaining to such subject-matter are
31 -- expressly reserved. This material is submitted for a
32 -- specific purpose as agreed, and the recipient by
33 -- accepting this material agrees that this material will
34 -- not be used, copied, or reproduced in whole or in part
35 -- nor its contents revealed in any manner or to any person,
36 -- except to meet the purpose for which it was submitted and
37 -- subject to the terms of the agreement.
38 --
39 --% Target Dependencies:
40 -- None
41 --% Compiler Dependencies:
42 -- None
43
44 --~-----------------------------------------------------------------------------
45
46 with Data_Handling_System.Parameters;
47 with Data_Handling_System.Router;
48 with Event_Action.Service;
49 package Data_Handling_System.Event_Action_Manager is
50
51 --% Library Package:
52 -- Temporary "wrapper" due to an error in the GNAT compiler
53
54 package The_Event_Action_Manager is new Event_Action.Service
55 (Application_Process_ID =>
56 Standard.Data_Handling_System.Parameters.Application_ID,
57 Max_Detection_List_Length =>
58 Standard.Data_Handling_System.Parameters.Event_Action.
59 Max_Detection_List_Length,
60 Max_Add_Events =>
61 Standard.Data_Handling_System.Parameters.Event_Action.
62 Max_Add_Events,
63 Max_Delete_Events =>
64 Standard.Data_Handling_System.Parameters.Event_Action.
65 Max_Delete_Events,
66 Max_Action_Controls =>
67 Standard.Data_Handling_System.Parameters.Event_Action.
68 Max_Action_Controls,
69 Optional_Deposit =>
70 Standard.Data_Handling_System.Router.Optional_Deposit,
71 PUS_Handler_Buffer_Priority =>
72 Standard.Data_Handling_System.Parameters.TC_Interpreters.
73 Telecommand_Buffer_Priority,
74 PUS_Handler_Buffer_Size =>
75 Standard.Data_Handling_System.Parameters.TC_Interpreters.
76 Telecommand_Buffer_Size,
77 PUS_Handler_Interpreter_Priority =>
78 Standard.Data_Handling_System.Parameters.TC_Interpreters.
79 Telecommand_Interpreter_Priority,
80 PUS_Handler_Interpreter_Stack_Size =>
81 Standard.Data_Handling_System.Parameters.Event_Action.
82 Interpreter_Stack_Size,
83 Detection_List_Priority =>
84 Standard.Data_Handling_System.Parameters.Event_Action.
85 Detection_List_Priority);
86
87 procedure Initialize renames The_Event_Action_Manager.Initialize;
88 procedure Handle_PUS_Packet
89 (PUS_Packet : in PUS.PUS_Packet)
90 renames The_Event_Action_Manager.Handle_PUS_Packet;
91
92 end Data_Handling_System.event_Action_Manager;
93
94 --~-----------------------------------------------------------------------------
95