File: /home/oboss/Users/gec/sources/CDH_Structure/Up_Down_Link_Bus/ground_if.ads
1 --% Compilation Unit: Ground_IF
2 --
3 --% Category: Package Declaration
4 --
5 --% Release: $Name: $
6 --
7 --% Version: $Revision: 2.0 $
8 --
9 --% Author: $Author: gec $
10 --
11 --% Revision Log:
12 -- $Log: ground_if.ads,v $
13 -- Revision 2.0 2003/04/04 08:50:24 gec
14 -- Initial release of source files serving as baseline for OBOSS-III project.
15 --
16 -- Revision 1.1.1.1 2003/04/04 08:13:10 gec
17 -- Imported using TkCVS
18 --
19 --
20 --
21 --% Project: OBOSS
22 --
23 --% Copyright (C) 2003 by Terma A/S
24 -- Proprietary and intellectual rights of Terma A/S, Denmark,
25 -- are involved in the subject-matter of this material and
26 -- all manufacturing, reproduction, use, disclosure, and
27 -- sales rights pertaining to such subject-matter are
28 -- expressly reserved. This material is submitted for a
29 -- specific purpose as agreed, and the recipient by
30 -- accepting this material agrees that this material will
31 -- not be used, copied, or reproduced in whole or in part
32 -- nor its contents revealed in any manner or to any person,
33 -- except to meet the purpose for which it was submitted and
34 -- subject to the terms of the agreement.
35 --
36 --% Target Dependencies:
37 -- None
38 --% Compiler Dependencies:
39 -- None
40
41 --~-----------------------------------------------------------------------------
42
43 with PUS;
44 with Basic_Types;
45 package Ground_IF is
46
47 --% Library Package:
48 -- Implements the TC uplink and TM downlink from/to ground including sync
49 --+ protocol and packet parsing/unparsing.
50 --% Active Tasks:
51 -->
52 --+ The_Ground_IF.Application_Process_Dispatcher.The_Dispatcher.The_Sporadic_Task
53 --+ - Sporadic task, The_Ground_IF.The_Receiver.The_Sporadic_Task -
54 --+ Sporadic task, Serial_Bus_Simulator.The_Receiver_Task - (IT)
55 --+ Sporadic task
56 --% Passive Tasks:
57 --> The_Ground_IF.The_ICU_Circular_Buffer.Buffer_Task - Critical region
58 --+ for updating buffer
59 --+ The_Ground_IF.Application_Process_Dispatcher.The_Dispatcher.+
60 --+ Event_Buffer.Queue_Task - Queue task
61 --+ The_Ground_IF.The_Receiver.Event_Buffer.Queue_Task - Queue task
62
63 procedure Initialize;
64
65 --% Subprogram:
66 -- Called be Packet_Router
67 --% Parameter Constraints:
68 --> Packet - Must be TC PUS Packet
69 --% Exceptions Raised:
70 --> TBD: exception_name - Conditions
71 procedure Forward_Packet
72 (Packet : in PUS.PUS_Packet);
73
74 --% Subprogram:
75 -- Called by lower level (serial bus) protocol
76 --% Parameter Constraints:
77 --> None
78 --% Exceptions Raised:
79 --> None
80 procedure Receive
81 (Data : in Basic_Types.Byte_Array);
82
83 end Ground_IF;
84
85 --~-----------------------------------------------------------------------------
86