File: /home/oboss/Users/gec/sources/PUS_Services/Event_Action/event_action.ads
1 --% Compilation Unit: Event_Action
2 --
3 --% Category: Package Declaration
4 --
5 --% Release: $Name: $
6 --
7 --% Version: $Revision: 1.2 $
8 --
9 --% Author: $Author: jhl $
10 --
11 --% Revision Log:
12 -- $Log: event_action.ads,v $
13 -- Revision 1.2 2003/10/09 11:05:25 jhl
14 -- Added Service 13 And 19
15 --
16 -- Revision 1.1.2.2 2003/10/06 12:17:14 jhl
17 -- Event Action Post Review first update
18 --
19 -- Revision 1.1.2.1 2003/10/01 11:54:36 jhl
20 -- Initial version of service 13 Event Action, and 19 Large Data Transfer.
21 --
22 -- Revision 2.0 2003/04/04 10:08:58 gec
23 -- Initial release serving as baseline for OBOSS-III project.
24 --
25 -- Revision 1.1.1.1 2003/04/04 07:19:20 gec
26 -- Imported using TkCVS
27 --
28 --
29 --
30 --% Project: OBOSS
31 --
32 --% Copyright (C) 2003 by Terma A/S
33 -- Proprietary and intellectual rights of Terma A/S, Denmark,
34 -- are involved in the subject-matter of this material and
35 -- all manufacturing, reproduction, use, disclosure, and
36 -- sales rights pertaining to such subject-matter are
37 -- expressly reserved. This material is submitted for a
38 -- specific purpose as agreed, and the recipient by
39 -- accepting this material agrees that this material will
40 -- not be used, copied, or reproduced in whole or in part
41 -- nor its contents revealed in any manner or to any person,
42 -- except to meet the purpose for which it was submitted and
43 -- subject to the terms of the agreement.
44 --
45 --% Target Dependencies:
46 -- None
47 --% Compiler Dependencies:
48 -- None
49
50 --~-----------------------------------------------------------------------------
51
52 with Mission_Parameters;
53 with Event_Reporting_Types;
54 with PUS;
55 with PUS_Data_Types;
56 with External_PUS_Data_Types;
57 package Event_Action is
58
59 --% Library Package:
60 -- Common data types for the event action PUS service.
61 --
62 -- The serivce itself is an instantiation of the generic child package
63 --+ Event_Action.Service
64 --
65 -- These are public to be available to specs of the children of this,
66 --+ e.g. detection_list.
67 --
68 --% Active Tasks:
69 --> None
70 --% Passive Tasks:
71 --> None
72
73
74 -- Event Action service type constant
75 Event_Action_Service :
76 constant PUS_Data_Types.Service_Type := PUS_Data_Types.Event_Action;
77
78 -- Event Action Supported service subtypes
79 type Event_Action_Service_Subtype is
80 (Add_Events,
81 Delete_Events,
82 Clear_Detection_List,
83 Enable_Actions,
84 Disable_Actions,
85 Report_Detection_List,
86 Detection_List_Report);
87
88 -- Report ID type
89 type Report_ID is new Event_Reporting_Types.Report_ID;
90
91 -- Application ID type
92 type Application_ID is new Mission_Parameters.APID;
93
94 -- Event type (combination of Application ID and Report ID)
95
96 type Event_Type is
97 record
98 APID : Application_ID;
99 RID : Report_ID;
100 end record;
101
102 -- Action status type (either Disabled or Enabled)
103 type Action_Status_Type is
104 (Disabled,
105 Enabled);
106
107 -- Action type (combination of status and an action TC (PUS Packet));
108
109 type Action_Type is
110 record
111 Status : Action_Status_Type;
112 TC : PUS.PUS_Packet;
113 end record;
114
115 -- Initial state of an added event action TC
116 Initial_Action_Status : constant Action_Status_Type := Disabled;
117
118 -- Receiver of Report TM Packets
119 Report_Receiver_APID : constant Mission_Parameters.APID := Mission_Parameters.Ground;
120
121 -- Event report: Telemetry packet error, when receiving an non event
122 --+ report for detection of event.
123 -- Report ID:
124 Telemetry_Packet_Error_Report_ID : constant Event_Reporting_Types.Report_ID :=
125 Event_Reporting_Types.Unsupported_Telemetry_Packet;
126 -- Report service name (type and subtype):
127 Telemetry_Packet_Error_Service_Name : constant PUS_Data_Types.Service_Name :=
128 PUS_Data_Types.Service_Name'
129 (Service_Type_Val => PUS_Data_Types.Event_Reporting,
130 Service_Subtype_Val => External_PUS_Data_Types.Event_Low_Severity);
131
132 end Event_Action;
133
134 --~-----------------------------------------------------------------------------
135