File: /home/oboss/Users/gec/sources/PUS_Services/Event_Action/event_action-service-tc_handler.ads
1 --% Compilation Unit: Event_Action.Service.TC_Handler
2 --
3 --% Category: Generic 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-service-tc_handler.ads,v $
13 -- Revision 1.2 2003/10/09 11:05:21 jhl
14 -- Added Service 13 And 19
15 --
16 -- Revision 1.1.2.2 2003/10/06 12:17:15 jhl
17 -- Event Action Post Review first update
18 --
19 -- Revision 1.1.2.1 2003/10/01 11:54:30 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 with PUS;
52 with Event_Action.Service.TC_Parser;
53 private generic package Event_Action.Service.TC_Handler is
54
55
56 --% Library Package:
57 -- Interpreter (parsing and execution) of TC PUS Packets for the event
58 --+ action service.
59 --
60 -- Execution of a TC PUS Packet consists of execution of the event acion
61 --+ service request contained in the TC.
62 --% Active Tasks:
63 --> None
64 --% Passive Tasks:
65 --> None
66
67 --% Subprogram:
68 -- Handles a TC PUS Packet by interpreting it.
69 --
70 -- Execution of a TC PUS Packet consists of execution of the event acion
71 --+ service request containd in the TC.
72 --% Parameter Constraints:
73 --> TC - Must be a TC PUS Packet
74 --% Exceptions Raised:
75 --> None
76
77 procedure Handle_TC
78 (TC : in PUS.PUS_Packet);
79
80 private
81
82 -- Child packages of event action are instantiated in the private spec to avoid
83 --+ elaboration circularities in a static elaboration model.
84
85 --% Library Package:
86 -- Instantiation of the TC parser and interpreter
87
88 package The_TC_Parser is new Event_Action.Service.TC_Parser;
89
90 end Event_Action.service.tc_Handler;
91
92 --~-----------------------------------------------------------------------------
93