File: /home/oboss/Users/gec/sources/Demonstrator/Payload/payload-function_interpreter.ads
1 --% Compilation Unit: Payload.Function_Interpreter
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: payload-function_interpreter.ads,v $
13 -- Revision 2.1 2004/02/13 16:16:45 gec
14 -- Merged results of Demonstrator development on to main OBOSS trunk.
15 --
16 -- Revision 1.1.2.1 2004/01/26 10:13:55 gec
17 -- Partial update of payload application process according to Demonstrator specification. Applicable for integration testing.
18 --
19 --
20 --% Project: OBOSS
21 --
22 --% Copyright (C) 2004 by Terma A/S
23 -- Proprietary and intellectual rights of Terma A/S, Denmark,
24 -- are involved in the subject-matter of this material and
25 -- all manufacturing, reproduction, use, disclosure, and
26 -- sales rights pertaining to such subject-matter are
27 -- expressly reserved. This material is submitted for a
28 -- specific purpose as agreed, and the recipient by
29 -- accepting this material agrees that this material will
30 -- not be used, copied, or reproduced in whole or in part
31 -- nor its contents revealed in any manner or to any person,
32 -- except to meet the purpose for which it was submitted and
33 -- subject to the terms of the agreement.
34 --
35 --% Target Dependencies:
36 -- None
37 --% Compiler Dependencies:
38 -- None
39
40 --~-----------------------------------------------------------------------------
41
42 with Function_Management_Types;
43 with Verification_Types;
44 with Parameter_Representation;
45 package Payload.Function_Interpreter is
46
47 --% Library Package:
48 -- Function interpreter associated to Electrical Power Subsystem
49 --+ application process.
50 -- Implements functions according to service type 8: Function Management
51 --% Active Tasks:
52 --> None
53 --% Passive Tasks:
54 --> None
55
56 -- List of function IDs associated to Payload
57
58 Stand_By :
59 constant Function_Management_Types.Function_ID :=
60 Function_Management_Types.Derive_Function_ID("Stand By");
61 Moderate_Speed :
62 constant Function_Management_Types.Function_ID :=
63 Function_Management_Types.Derive_Function_ID("Moderate Speed");
64 High_Speed :
65 constant Function_Management_Types.Function_ID :=
66 Function_Management_Types.Derive_Function_ID("High Speed");
67
68 --% Subprogram:
69 -- Activate function identified by Fct_ID, which denotes a collection of
70 --+ units; no parameters are included.
71 -- Corresponds to service type (8,1).
72 -- Returns telecommand verification status indicating success or failure
73 --+ of execution.
74 --% Parameter Constraints:
75 --> None
76 --% Exceptions Raised:
77 --> None
78 function Perform_Function
79 (TC : PUS.PUS_Packet;
80 Fct_ID : in Function_Management_Types.Function_ID;
81 Params : in Function_Management_Types.Parameter_List)
82 return Verification_Types.Verification_Status;
83
84 end Payload.function_Interpreter;
85
86 --~-----------------------------------------------------------------------------
87