File: /home/oboss/Users/gec/sources/PUS_Services/Event_Action/event_action-service-interpreter.ads
1 --% Compilation Unit: Event_Action.Service.Interpreter
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-interpreter.ads,v $
13 -- Revision 1.2 2003/10/09 11:05:20 jhl
14 -- Added Service 13 And 19
15 --
16 -- Revision 1.1.2.2 2003/10/06 12:17:19 jhl
17 -- Event Action Post Review first update
18 --
19 -- Revision 1.1.2.1 2003/10/01 11:54:28 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 Event_Action.Service.TC_Handler;
53 with Event_Action.Service.TM_Handler;
54 private generic package Event_Action.Service.Interpreter is
55
56 --% Library Package:
57 -- The interpreter for the event action service. Interprets (parsses and
58 --+ interprets/executes) TC and TM PUS Packets.
59 --% Active Tasks:
60 --> None
61 --% Passive Tasks:
62 --> None
63
64 --% Subprogram:
65 -- Splits the handling of PUS packets between TC and TM handlers.
66 --% Parameter Constraints:
67 --> None
68 --% Exceptions Raised:
69 --> None
70
71 procedure Interpret
72 (PUS_Packet : in PUS.PUS_Packet);
73
74 private
75
76 -- Child packages of event action are instantiated in the private spec to avoid
77 --+ elaboration circularities in a static elaboration model.
78
79 --% Library Package:
80 -- Instantiation of the TC handler implementing interpretation of TC PUS
81 --+ Packets.
82
83 package The_TC_Handler is new Event_Action.Service.TC_Handler;
84
85 --% Library Package:
86 -- Instantiation of the TM handler implementing interpretation of TM PUS
87 --+ Packets.
88
89 package The_TM_Handler is new Event_Action.Service.TM_Handler;
90
91 end Event_Action.service.interpreter;
92
93 --~-----------------------------------------------------------------------------
94