File: /home/oboss/Users/gec/sources/Demonstrator/Power_Conditioning_System/power_conditioning_system-interfaces-pcu_simulator.ads
1 --~-----------------------------------------------------------------------------
2
3 with Parameter_Structure_Descriptions.Power_Conditioning_System;
4 with Basic_Types;
5 with Power_Conditioning_System.Interfaces;
6 package Power_Conditioning_System.Interfaces.PCU_Simulator is
7
8 --% Library Package:
9 -- Simple simulation of power conditioning unit
10 --% Active Tasks:
11 --> None
12 --% Passive Tasks:
13 --> Power_Conditioning_Unit - Manages simulated state
14
15 -- Definition of system parameters and their associated values
16 subtype System_Parameter_ID is
17 Parameter_Structure_Descriptions.Power_Conditioning_System.
18 System_Parameter_IDs;
19 subtype System_Parameter_Value is Basic_Types.Byte;
20
21 -- Set of supported system parameters
22 System_Parameter_1 : constant System_Parameter_ID := 140;
23 System_Parameter_2 : constant System_Parameter_ID := 141;
24 System_Parameter_3 : constant System_Parameter_ID := 142;
25 System_Parameter_4 : constant System_Parameter_ID := 143;
26
27 -- Definition of temperature parameters and their associated values
28 subtype Temperature_Parameter_ID is
29 Parameter_Structure_Descriptions.Power_Conditioning_System.
30 Temperature_Parameter_IDs;
31
32 -- Representation of data items read from analogue status interfaces
33 subtype Temperature_Reading is
34 Power_Conditioning_System.Interfaces.Analogue_Status_Data;
35
36 --% Subprogram:
37 -- Assign Value to system parameter identified by Parameter
38 --% Parameter Constraints:
39 --> None
40 --% Exceptions Raised:
41 --> None
42 procedure Set_System_Parameter
43 (Parameter : in System_Parameter_ID;
44 Value : in System_Parameter_Value);
45
46 --% Subprogram:
47 -- Acquire current value associated to system parameter identified by
48 --+ Parameter
49 --% Parameter Constraints:
50 --> None
51 --% Exceptions Raised:
52 --> None
53 function Get_System_Parameter
54 (Parameter : System_Parameter_ID)
55 return System_Parameter_Value;
56
57 --% Subprogram:
58 -- Acquire current value associated to temperature parameter identified
59 --+ by Parameter
60 --% Parameter Constraints:
61 --> None
62 --% Exceptions Raised:
63 --> None
64 function Get_Temperature_Reading
65 (Parameter : Temperature_Parameter_ID)
66 return Temperature_Reading;
67
68 end Power_Conditioning_System.interfaces.pcu_Simulator;
69
70 --~-----------------------------------------------------------------------------
71