You can not select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
56 lines
1.6 KiB
56 lines
1.6 KiB
8 years ago
|
with Types; use Types;
|
||
|
with External;
|
||
|
|
||
8 years ago
|
package MMS.Input is
|
||
|
|
||
|
------------------------------------------------------
|
||
|
-- Ground-based Mission Preparation and Supervision --
|
||
|
------------------------------------------------------
|
||
|
|
||
8 years ago
|
function Navigation_Parameters return Navigation_Parameters_Type_Option
|
||
8 years ago
|
renames External.Navigation_Parameters;
|
||
8 years ago
|
|
||
8 years ago
|
function Navigation_Mode return Navigation_Mode_Type_Option
|
||
8 years ago
|
renames External.Navigation_Mode;
|
||
8 years ago
|
|
||
8 years ago
|
function Navigation_Option return Navigation_Option_Type_Option
|
||
8 years ago
|
renames External.Navigation_Option;
|
||
8 years ago
|
|
||
8 years ago
|
function Go return Boolean renames External.Go;
|
||
8 years ago
|
|
||
8 years ago
|
function Emergency_Landing return Boolean renames External.Emergency_Landing;
|
||
8 years ago
|
|
||
|
--------------------------------------------------
|
||
|
-- AV-based Mission Preparation (Control Panel) --
|
||
|
--------------------------------------------------
|
||
|
|
||
8 years ago
|
function On_OFF_Push_Button return Boolean
|
||
|
renames External.On_OFF_Push_Button;
|
||
8 years ago
|
|
||
8 years ago
|
function Start_Push_Button return Boolean
|
||
|
renames External.Start_Push_Button;
|
||
8 years ago
|
|
||
8 years ago
|
function Mode_Switch return Navigation_Mode_Type
|
||
|
renames External.Mode_Switch;
|
||
8 years ago
|
|
||
8 years ago
|
function Bay_Switch return Bay_Switch_Type
|
||
|
renames External.Bay_Switch;
|
||
8 years ago
|
|
||
8 years ago
|
function Payload_Mass return Payload_Mass_Type
|
||
|
renames External.Payload_Mass;
|
||
8 years ago
|
|
||
8 years ago
|
function USB_Key return USB_Key_Type_Option
|
||
8 years ago
|
renames External.USB_Key;
|
||
8 years ago
|
|
||
8 years ago
|
-------------------------
|
||
|
-- Physical Parameters --
|
||
|
-------------------------
|
||
|
|
||
8 years ago
|
function P return Distance_Type renames External.P;
|
||
8 years ago
|
|
||
8 years ago
|
function P_Dot return Speed_Type renames External.P_Dot;
|
||
8 years ago
|
|
||
8 years ago
|
function Q return Angle_Type renames External.Q;
|
||
8 years ago
|
|
||
|
end MMS.Input;
|