Skip to content
Projects
Groups
Snippets
Help
Loading...
Sign in
Toggle navigation
R
RESSAC_Use_Case
Project
Project
Details
Activity
Cycle Analytics
Repository
Repository
Files
Commits
Branches
Tags
Contributors
Graph
Compare
Charts
Issues
0
Issues
0
List
Board
Labels
Milestones
Merge Requests
0
Merge Requests
0
CI / CD
CI / CD
Pipelines
Jobs
Schedules
Charts
Wiki
Wiki
Snippets
Snippets
Members
Members
Collapse sidebar
Close sidebar
Activity
Graph
Charts
Create a new issue
Jobs
Commits
Issue Boards
Open sidebar
RESSAC
RESSAC_Use_Case
Commits
bbcca90a
Commit
bbcca90a
authored
Jun 26, 2017
by
Claire Dross
Browse files
Options
Browse Files
Download
Email Patches
Plain Diff
Layer2_MMS_SW_SPARK add external volatile state for captors
parent
2d57e931
Hide whitespace changes
Inline
Side-by-side
Showing
31 changed files
with
336 additions
and
118 deletions
+336
-118
external.ads
UseCaseDevelopment/Layer2_MMS_SW_SPARK/external.ads
+76
-0
mms-f_el-data.ads
UseCaseDevelopment/Layer2_MMS_SW_SPARK/mms-f_el-data.ads
+2
-0
mms-f_el-input.ads
UseCaseDevelopment/Layer2_MMS_SW_SPARK/mms-f_el-input.ads
+3
-1
mms-f_el-output.ads
UseCaseDevelopment/Layer2_MMS_SW_SPARK/mms-f_el-output.ads
+2
-0
mms-f_el.ads
UseCaseDevelopment/Layer2_MMS_SW_SPARK/mms-f_el.ads
+2
-0
mms-f_pt-f_cm-input.ads
...seDevelopment/Layer2_MMS_SW_SPARK/mms-f_pt-f_cm-input.ads
+2
-6
mms-f_pt-f_cm-output.ads
...eDevelopment/Layer2_MMS_SW_SPARK/mms-f_pt-f_cm-output.ads
+11
-7
mms-f_pt-f_cm.ads
UseCaseDevelopment/Layer2_MMS_SW_SPARK/mms-f_pt-f_cm.ads
+2
-0
mms-f_pt-f_em-data.ads
...aseDevelopment/Layer2_MMS_SW_SPARK/mms-f_pt-f_em-data.ads
+2
-0
mms-f_pt-f_em-input.ads
...seDevelopment/Layer2_MMS_SW_SPARK/mms-f_pt-f_em-input.ads
+3
-1
mms-f_pt-f_em-output.ads
...eDevelopment/Layer2_MMS_SW_SPARK/mms-f_pt-f_em-output.ads
+2
-0
mms-f_pt-f_em.ads
UseCaseDevelopment/Layer2_MMS_SW_SPARK/mms-f_pt-f_em.ads
+2
-0
mms-f_pt-f_fc-behavior.ads
...evelopment/Layer2_MMS_SW_SPARK/mms-f_pt-f_fc-behavior.ads
+2
-0
mms-f_pt-f_fc-data.ads
...aseDevelopment/Layer2_MMS_SW_SPARK/mms-f_pt-f_fc-data.ads
+2
-0
mms-f_pt-f_fc-input.ads
...seDevelopment/Layer2_MMS_SW_SPARK/mms-f_pt-f_fc-input.ads
+3
-1
mms-f_pt-f_fc-output.ads
...eDevelopment/Layer2_MMS_SW_SPARK/mms-f_pt-f_fc-output.ads
+2
-0
mms-f_pt-f_fc.ads
UseCaseDevelopment/Layer2_MMS_SW_SPARK/mms-f_pt-f_fc.ads
+2
-0
mms-f_pt-f_mm-behavior-guarantees.adb
...Layer2_MMS_SW_SPARK/mms-f_pt-f_mm-behavior-guarantees.adb
+2
-0
mms-f_pt-f_mm-behavior-guarantees.ads
...Layer2_MMS_SW_SPARK/mms-f_pt-f_mm-behavior-guarantees.ads
+2
-0
mms-f_pt-f_mm-behavior.ads
...evelopment/Layer2_MMS_SW_SPARK/mms-f_pt-f_mm-behavior.ads
+93
-6
mms-f_pt-f_mm-data.ads
...aseDevelopment/Layer2_MMS_SW_SPARK/mms-f_pt-f_mm-data.ads
+2
-0
mms-f_pt-f_mm-input.ads
...seDevelopment/Layer2_MMS_SW_SPARK/mms-f_pt-f_mm-input.ads
+3
-1
mms-f_pt-f_mm-output.ads
...eDevelopment/Layer2_MMS_SW_SPARK/mms-f_pt-f_mm-output.ads
+15
-10
mms-f_pt-f_mm.ads
UseCaseDevelopment/Layer2_MMS_SW_SPARK/mms-f_pt-f_mm.ads
+2
-0
mms-f_pt-input.ads
UseCaseDevelopment/Layer2_MMS_SW_SPARK/mms-f_pt-input.ads
+2
-6
mms-f_pt-output.ads
UseCaseDevelopment/Layer2_MMS_SW_SPARK/mms-f_pt-output.ads
+2
-0
mms-f_pt.ads
UseCaseDevelopment/Layer2_MMS_SW_SPARK/mms-f_pt.ads
+2
-0
mms-input.ads
UseCaseDevelopment/Layer2_MMS_SW_SPARK/mms-input.ads
+26
-18
mms-output.ads
UseCaseDevelopment/Layer2_MMS_SW_SPARK/mms-output.ads
+2
-0
mms.ads
UseCaseDevelopment/Layer2_MMS_SW_SPARK/mms.ads
+0
-61
types.ads
UseCaseDevelopment/Layer2_MMS_SW_SPARK/types.ads
+63
-0
No files found.
UseCaseDevelopment/Layer2_MMS_SW_SPARK/external.ads
0 → 100644
View file @
bbcca90a
with
Types
;
use
Types
;
package
External
with
Abstract_State
=>
((
From_GS
with
External
=>
Async_Writers
),
(
From_CP
with
External
=>
Async_Writers
),
(
From_P_P
with
External
=>
Async_Writers
))
is
------------------------------------------------------
--
Ground
-
based
Mission
Preparation
and
Supervision
--
------------------------------------------------------
function
Navigation_Parameters
return
Navigation_Parameters_Type
with
Volatile_Function
,
Global
=>
From_GS
;
function
Navigation_Mode
return
Navigation_Mode_Type
with
Volatile_Function
,
Global
=>
From_GS
;
function
Navigation_Option
return
Navigation_Option_Type
with
Volatile_Function
,
Global
=>
From_GS
;
function
Go
return
Boolean
with
Volatile_Function
,
Global
=>
From_GS
;
function
Emergency_Landing
return
Boolean
with
Volatile_Function
,
Global
=>
From_GS
;
--------------------------------------------------
--
AV
-
based
Mission
Preparation
(
Control
Panel
)
--
--------------------------------------------------
function
On_OFF_Push_Button
return
Boolean
with
Volatile_Function
,
Global
=>
From_CP
;
function
Start_Push_Button
return
Boolean
with
Volatile_Function
,
Global
=>
From_CP
;
function
Mode_Switch
return
Navigation_Mode_Type
with
Volatile_Function
,
Global
=>
From_CP
;
function
Bay_Switch
return
Bay_Switch_Type
with
Volatile_Function
,
Global
=>
From_CP
;
function
Payload_Mass
return
Payload_Mass_Type
with
Volatile_Function
,
Global
=>
From_CP
;
function
USB_Key
return
Navigation_Parameters_Type
with
Volatile_Function
,
Global
=>
From_CP
;
-------------------------
--
Physical
Parameters
--
-------------------------
function
P
return
Distance_Type
with
Volatile_Function
,
Global
=>
From_P_P
;
function
P_Dot
return
Speed_Type
with
Volatile_Function
,
Global
=>
From_P_P
;
function
Q
return
Angle_Type
with
Volatile_Function
,
Global
=>
From_P_P
;
end
External
;
UseCaseDevelopment/Layer2_MMS_SW_SPARK/mms-f_el-data.ads
View file @
bbcca90a
with
Types
;
use
Types
;
package
MMS
.
F_EL
.
Data
is
package
MMS
.
F_EL
.
Data
is
---------------
---------------
...
...
UseCaseDevelopment/Layer2_MMS_SW_SPARK/mms-f_el-input.ads
View file @
bbcca90a
with
MMS
.
Input
;
with
MMS
.
Input
;
with
MMS
.
F_PT
.
Output
;
with
MMS
.
F_PT
.
Output
;
with
Types
;
use
Types
;
package
MMS
.
F_EL
.
Input
is
package
MMS
.
F_EL
.
Input
is
--------------
--------------
...
@@ -13,7 +15,7 @@ package MMS.F_EL.Input is
...
@@ -13,7 +15,7 @@ package MMS.F_EL.Input is
function
P_Dot
return
Speed_Type
function
P_Dot
return
Speed_Type
renames
MMS
.
Input
.
P_Dot
;
renames
MMS
.
Input
.
P_Dot
;
function
Q
return
A
ltitud
e_Type
function
Q
return
A
ngl
e_Type
renames
MMS
.
Input
.
Q
;
renames
MMS
.
Input
.
Q
;
---------------
---------------
...
...
UseCaseDevelopment/Layer2_MMS_SW_SPARK/mms-f_el-output.ads
View file @
bbcca90a
with
Types
;
use
Types
;
package
MMS
.
F_EL
.
Output
is
package
MMS
.
F_EL
.
Output
is
------------
------------
...
...
UseCaseDevelopment/Layer2_MMS_SW_SPARK/mms-f_el.ads
View file @
bbcca90a
with
Types
;
use
Types
;
package
MMS
.
F_EL
is
package
MMS
.
F_EL
is
...
...
UseCaseDevelopment/Layer2_MMS_SW_SPARK/mms-f_pt-f_cm-input.ads
View file @
bbcca90a
...
@@ -3,6 +3,8 @@ with MMS.F_PT.F_MM.Output;
...
@@ -3,6 +3,8 @@ with MMS.F_PT.F_MM.Output;
with
MMS
.
F_PT
.
F_FC
.
Output
;
with
MMS
.
F_PT
.
F_FC
.
Output
;
with
MMS
.
F_PT
.
F_EM
.
Output
;
with
MMS
.
F_PT
.
F_EM
.
Output
;
with
Types
;
use
Types
;
package
MMS
.
F_PT
.
F_CM
.
Input
is
package
MMS
.
F_PT
.
F_CM
.
Input
is
---------------
---------------
...
@@ -42,12 +44,6 @@ package MMS.F_PT.F_CM.Input is
...
@@ -42,12 +44,6 @@ package MMS.F_PT.F_CM.Input is
function
USB_Key
return
Navigation_Parameters_Type
function
USB_Key
return
Navigation_Parameters_Type
renames
MMS
.
F_PT
.
Input
.
USB_Key
;
renames
MMS
.
F_PT
.
Input
.
USB_Key
;
function
Rotactor_1
return
Rotactor_Type
renames
MMS
.
F_PT
.
Input
.
Rotactor_1
;
function
Rotactor_2
return
Rotactor_Type
renames
MMS
.
F_PT
.
Input
.
Rotactor_2
;
function
P
return
Distance_Type
function
P
return
Distance_Type
renames
MMS
.
F_PT
.
Input
.
P
;
renames
MMS
.
F_PT
.
Input
.
P
;
...
...
UseCaseDevelopment/Layer2_MMS_SW_SPARK/mms-f_pt-f_cm-output.ads
View file @
bbcca90a
with
MMS
.
F_PT
.
F_CM
.
Input
;
with
MMS
.
F_PT
.
F_CM
.
Input
;
with
Types
;
use
Types
;
package
MMS
.
F_PT
.
F_CM
.
Output
is
package
MMS
.
F_PT
.
F_CM
.
Output
is
-------------
-------------
...
@@ -12,8 +14,11 @@ package MMS.F_PT.F_CM.Output is
...
@@ -12,8 +14,11 @@ package MMS.F_PT.F_CM.Output is
Mode => MMS.F_PT.F_CM.Input.Mode_Switch,
Mode => MMS.F_PT.F_CM.Input.Mode_Switch,
Bay => MMS.F_PT.F_CM.Input.Bay_Switch,
Bay => MMS.F_PT.F_CM.Input.Bay_Switch,
Start => MMS.F_PT.F_CM.Input.Start_Push_Button,
Start => MMS.F_PT.F_CM.Input.Start_Push_Button,
Rotactor_1 => MMS.F_PT.F_CM.Input.Rotactor_1,
Rotactor_1 =>
Rotactor_2 => MMS.F_PT.F_CM.Input.Rotactor_2));
Rotactor_Type (MMS.F_PT.F_CM.Input.Payload_Mass / 10),
Rotactor_2 =>
Rotactor_Type (MMS.F_PT.F_CM.Input.Payload_Mass mod 10)));
-- ??? Rotactors are computed from payload mass, which one is which?
function CP_Displays return CP_Displays_Type is
function CP_Displays return CP_Displays_Type is
(CP_Displays_Type'
(CP_Displays_Type'
...
@@ -83,12 +88,8 @@ package MMS.F_PT.F_CM.Output is
...
@@ -83,12 +88,8 @@ package MMS.F_PT.F_CM.Output is
function USB_Key return Navigation_Parameters_Type
function USB_Key return Navigation_Parameters_Type
renames MMS.F_PT.F_CM.Input.USB_Key;
renames MMS.F_PT.F_CM.Input.USB_Key;
----------------------
-- To F_MM and F_FC --
----------------------
function Payload_Mass return Payload_Mass_Type
function Payload_Mass
_To_F_MM
return Payload_Mass_Type
renames MMS.F_PT.F_CM.Input.Payload_Mass;
renames MMS.F_PT.F_CM.Input.Payload_Mass;
-------------
-------------
...
@@ -100,5 +101,8 @@ package MMS.F_PT.F_CM.Output is
...
@@ -100,5 +101,8 @@ package MMS.F_PT.F_CM.Output is
function P_Dot return Speed_Type renames MMS.F_PT.F_CM.Input.P_Dot;
function P_Dot return Speed_Type renames MMS.F_PT.F_CM.Input.P_Dot;
function Q return Angle_Type renames MMS.F_PT.F_CM.Input.Q;
function Q return Angle_Type renames MMS.F_PT.F_CM.Input.Q;
function Payload_Mass_To_F_FC return Payload_Mass_Type
renames MMS.F_PT.F_CM.Input.Payload_Mass;
end MMS.F_PT.F_CM.Output;
end MMS.F_PT.F_CM.Output;
UseCaseDevelopment/Layer2_MMS_SW_SPARK/mms-f_pt-f_cm.ads
View file @
bbcca90a
with
Types
;
use
Types
;
package
MMS
.
F_PT
.
F_CM
is
package
MMS
.
F_PT
.
F_CM
is
...
...
UseCaseDevelopment/Layer2_MMS_SW_SPARK/mms-f_pt-f_em-data.ads
View file @
bbcca90a
with
Types
;
use
Types
;
package
MMS
.
F_PT
.
F_EM
.
Data
is
package
MMS
.
F_PT
.
F_EM
.
Data
is
---------------
---------------
...
...
UseCaseDevelopment/Layer2_MMS_SW_SPARK/mms-f_pt-f_em-input.ads
View file @
bbcca90a
with
MMS
.
F_PT
.
F_FC
.
Output
;
with
MMS
.
F_PT
.
F_FC
.
Output
;
with
MMS
.
F_PT
.
F_CM
.
Output
;
with
MMS
.
F_PT
.
F_CM
.
Output
;
with
Types
;
use
Types
;
package
MMS
.
F_PT
.
F_EM
.
Input
is
package
MMS
.
F_PT
.
F_EM
.
Input
is
---------------
---------------
...
@@ -17,7 +19,7 @@ package MMS.F_PT.F_EM.Input is
...
@@ -17,7 +19,7 @@ package MMS.F_PT.F_EM.Input is
--
From
F_CM
--
--
From
F_CM
--
---------------
---------------
function
P_Dot
return
Current_
Speed_Type
function
P_Dot
return
Speed_Type
renames
MMS
.
F_PT
.
F_CM
.
Output
.
P_Dot
;
renames
MMS
.
F_PT
.
F_CM
.
Output
.
P_Dot
;
end
MMS
.
F_PT
.
F_EM
.
Input
;
end
MMS
.
F_PT
.
F_EM
.
Input
;
UseCaseDevelopment/Layer2_MMS_SW_SPARK/mms-f_pt-f_em-output.ads
View file @
bbcca90a
with
Types
;
use
Types
;
package
MMS
.
F_PT
.
F_EM
.
Output
is
package
MMS
.
F_PT
.
F_EM
.
Output
is
-------------
-------------
...
...
UseCaseDevelopment/Layer2_MMS_SW_SPARK/mms-f_pt-f_em.ads
View file @
bbcca90a
with
Types
;
use
Types
;
package
MMS
.
F_PT
.
F_EM
is
package
MMS
.
F_PT
.
F_EM
is
...
...
UseCaseDevelopment/Layer2_MMS_SW_SPARK/mms-f_pt-f_fc-behavior.ads
View file @
bbcca90a
with
MMS
.
F_PT
.
F_FC
.
Data
;
with
MMS
.
F_PT
.
F_FC
.
Data
;
with
Types
;
use
Types
;
package
MMS
.
F_PT
.
F_FC
.
Behavior
is
package
MMS
.
F_PT
.
F_FC
.
Behavior
is
------------
------------
...
...
UseCaseDevelopment/Layer2_MMS_SW_SPARK/mms-f_pt-f_fc-data.ads
View file @
bbcca90a
with
MMS
.
F_PT
.
Data
;
with
MMS
.
F_PT
.
Data
;
with
Types
;
use
Types
;
package
MMS
.
F_PT
.
F_FC
.
Data
is
package
MMS
.
F_PT
.
F_FC
.
Data
is
--
???
Types
need
to
be
precisely
defined
.
--
???
Types
need
to
be
precisely
defined
.
...
...
UseCaseDevelopment/Layer2_MMS_SW_SPARK/mms-f_pt-f_fc-input.ads
View file @
bbcca90a
with
MMS
.
F_PT
.
F_CM
.
Output
;
with
MMS
.
F_PT
.
F_CM
.
Output
;
with
MMS
.
F_PT
.
F_MM
.
Output
;
with
MMS
.
F_PT
.
F_MM
.
Output
;
with
Types
;
use
Types
;
package
MMS
.
F_PT
.
F_FC
.
Input
is
package
MMS
.
F_PT
.
F_FC
.
Input
is
---------------
---------------
...
@@ -17,7 +19,7 @@ package MMS.F_PT.F_FC.Input is
...
@@ -17,7 +19,7 @@ package MMS.F_PT.F_FC.Input is
renames
MMS
.
F_PT
.
F_CM
.
Output
.
Q
;
renames
MMS
.
F_PT
.
F_CM
.
Output
.
Q
;
function
Payload_Mass
return
Payload_Mass_Type
function
Payload_Mass
return
Payload_Mass_Type
renames
MMS
.
F_PT
.
F_CM
.
Output
.
Payload_Mass
;
renames
MMS
.
F_PT
.
F_CM
.
Output
.
Payload_Mass
_To_F_FC
;
---------------
---------------
--
From
F_MM
--
--
From
F_MM
--
...
...
UseCaseDevelopment/Layer2_MMS_SW_SPARK/mms-f_pt-f_fc-output.ads
View file @
bbcca90a
with
Types
;
use
Types
;
package
MMS
.
F_PT
.
F_FC
.
Output
is
package
MMS
.
F_PT
.
F_FC
.
Output
is
----------------------
----------------------
...
...
UseCaseDevelopment/Layer2_MMS_SW_SPARK/mms-f_pt-f_fc.ads
View file @
bbcca90a
with
Types
;
use
Types
;
package
MMS
.
F_PT
.
F_FC
is
package
MMS
.
F_PT
.
F_FC
is
type
Flight_Cell_Center_Type
is
record
type
Flight_Cell_Center_Type
is
record
...
...
UseCaseDevelopment/Layer2_MMS_SW_SPARK/mms-f_pt-f_mm-behavior-guarantees.adb
View file @
bbcca90a
with
Types
;
use
Types
;
package
body
MMS
.
F_PT
.
F_MM
.
Behavior
.
Guarantees
with
SPARK_Mode
is
package
body
MMS
.
F_PT
.
F_MM
.
Behavior
.
Guarantees
with
SPARK_Mode
is
procedure
Run
is
procedure
Run
is
...
...
UseCaseDevelopment/Layer2_MMS_SW_SPARK/mms-f_pt-f_mm-behavior-guarantees.ads
View file @
bbcca90a
...
@@ -2,6 +2,8 @@
...
@@ -2,6 +2,8 @@
--
is
used
to
verify
in
SPARK
that
high
level
guarantees
on
F_MM
are
implied
--
is
used
to
verify
in
SPARK
that
high
level
guarantees
on
F_MM
are
implied
--
by
its
behavioural
specification
.
--
by
its
behavioural
specification
.
with
Types
;
use
Types
;
package
MMS
.
F_PT
.
F_MM
.
Behavior
.
Guarantees
with
SPARK_Mode
is
package
MMS
.
F_PT
.
F_MM
.
Behavior
.
Guarantees
with
SPARK_Mode
is
pragma
Unevaluated_Use_Of_Old
(
Allow
);
pragma
Unevaluated_Use_Of_Old
(
Allow
);
...
...
UseCaseDevelopment/Layer2_MMS_SW_SPARK/mms-f_pt-f_mm-behavior.ads
View file @
bbcca90a
...
@@ -8,12 +8,38 @@
...
@@ -8,12 +8,38 @@
--
-
A
single
behaviour
is
specified
for
each
case
in
the
specification
.
--
-
A
single
behaviour
is
specified
for
each
case
in
the
specification
.
--
-
There
is
a
behaviour
is
specified
for
every
case
in
the
specification
.
--
-
There
is
a
behaviour
is
specified
for
every
case
in
the
specification
.
with
Types
;
use
Types
;
with
External
;
with
MMS
.
F_PT
.
F_MM
.
Output
;
package
MMS
.
F_PT
.
F_MM
.
Behavior
with
package
MMS
.
F_PT
.
F_MM
.
Behavior
with
SPARK_Mode
,
SPARK_Mode
,
Abstract_State
=>
State
Abstract_State
=>
State
is
is
pragma
Unevaluated_Use_Of_Old
(
Allow
);
pragma
Unevaluated_Use_Of_Old
(
Allow
);
------------
--
Inputs
--
------------
function
Navigation_Mode_From_CP
return
Navigation_Mode_Type
with
Global
=>
State
;
function
Navigation_Mode_From_GS
return
Navigation_Mode_Type
with
Global
=>
State
;
function
Operating_Point_From_GS_Received
return
Boolean
with
Global
=>
State
;
function
Operating_Point_From_GS
return
Operating_Point_Type
with
Global
=>
State
;
function
USB_Key_Present
return
Boolean
with
Global
=>
State
;
function
Operating_Point_From_USB_Key
return
Operating_Point_Type
with
Global
=>
State
;
-----------------------------------------
-----------------------------------------
--
States
of
the
automaton
in
Figure
3
--
--
States
of
the
automaton
in
Figure
3
--
-----------------------------------------
-----------------------------------------
...
@@ -36,7 +62,10 @@ is
...
@@ -36,7 +62,10 @@ is
Pre
=>
Power_State
=
ON
Pre
=>
Power_State
=
ON
and
then
On_State
=
RUNNING
;
and
then
On_State
=
RUNNING
;
function
Navigation_Mode
return
Navigation_Mode_Type
with
function
Navigation_Mode
return
Navigation_Mode_Type
is
(
if
Navigation_Mode_From_CP
=
A
then
A
else
Navigation_Mode_From_GS
)
with
Global
=>
State
,
Global
=>
State
,
Pre
=>
Power_State
=
ON
Pre
=>
Power_State
=
ON
and
then
On_State
in
INIT
|
RUNNING
;
and
then
On_State
in
INIT
|
RUNNING
;
...
@@ -95,7 +124,7 @@ is
...
@@ -95,7 +124,7 @@ is
and
then
On_State
=
RUNNING
and
then
On_State
=
RUNNING
and
then
Running_State
=
LANDING
;
and
then
Running_State
=
LANDING
;
function
Operating_
Mode
_Changed
return
Boolean
with
function
Operating_
Point
_Changed
return
Boolean
with
Global
=>
State
,
Global
=>
State
,
Pre
=>
Power_State
=
ON
Pre
=>
Power_State
=
ON
and
then
On_State
=
RUNNING
and
then
On_State
=
RUNNING
...
@@ -118,7 +147,11 @@ is
...
@@ -118,7 +147,11 @@ is
and
then
On_State
in
INIT
|
RUNNING
and
then
On_State
in
INIT
|
RUNNING
and
then
(
if
On_State
=
RUNNING
then
Running_State
=
CRUISE
);
and
then
(
if
On_State
=
RUNNING
then
Running_State
=
CRUISE
);
function
Mission_Parameters_Defined
return
Boolean
with
function
Mission_Parameters_Defined
return
Boolean
is
(
USB_Key_Present
or
else
(
Navigation_Mode_From_CP
=
RP
and
then
Operating_Point_From_GS_Received
))
with
Global
=>
State
,
Global
=>
State
,
Pre
=>
Power_State
=
ON
Pre
=>
Power_State
=
ON
and
then
On_State
=
INIT
;
and
then
On_State
=
INIT
;
...
@@ -133,6 +166,10 @@ is
...
@@ -133,6 +166,10 @@ is
Pre
=>
Power_State
=
ON
Pre
=>
Power_State
=
ON
and
then
On_State
=
CANCELLED
;
and
then
On_State
=
CANCELLED
;
-------------
--
Outputs
--
-------------
function
Mission_Cancellation_Signaled
return
Boolean
with
function
Mission_Cancellation_Signaled
return
Boolean
with
Global
=>
State
;
Global
=>
State
;
...
@@ -146,6 +183,14 @@ is
...
@@ -146,6 +183,14 @@ is
--
Behavioural
Specification
of
F_MM
--
--
Behavioural
Specification
of
F_MM
--
---------------------------------------
---------------------------------------
procedure
Read_Inputs
with
Global
=>
(
In_Out
=>
State
,
Input
=>
(
External
.
From_GS
,
External
.
From_CP
));
procedure
Write_Outputs
with
Global
=>
(
Input
=>
State
,
Output
=>
(
Output
.
To_F_CM
,
Output
.
To_F_FC
,
Output
.
To_F_EL
));
procedure
Run
with
procedure
Run
with
Global
=>
(
In_Out
=>
State
),
Global
=>
(
In_Out
=>
State
),
Post
=>
Post
=>
...
@@ -162,7 +207,16 @@ is
...
@@ -162,7 +207,16 @@ is
and
then
and
then
(
if
Navigation_Mode
'Old = A
(
if
Navigation_Mode
'Old = A
then Operating_Point = Operating_Point'
Old
)
--
Freeze
the
operating
mode
once
landing
is
activated
.
and
then
(
if
Power_State
'Old = ON
and then On_State'
Old
=
RUNNING
and
then
Running_State
=
LANDING
then
Operating_Point
=
Operating_Point
'Old),
then
Operating_Point
=
Operating_Point
'Old),
Contract_Cases =>
Contract_Cases =>
(Power_State = OFF
(Power_State = OFF
and then Power_Off
and then Power_Off
...
@@ -273,7 +327,7 @@ is
...
@@ -273,7 +327,7 @@ is
(if Running_State = CRUISE then Energy_Compatible_With_Mission)
(if Running_State = CRUISE then Energy_Compatible_With_Mission)
and then
and then
(if Running_State = DESCENT then not Descent_Over)
(if Running_State = DESCENT then not Descent_Over)
and
then
Operating_
Mode
_Changed
and then Operating_
Point
_Changed
=>
=>
Power_State = ON
Power_State = ON
and then On_State = RUNNING
and then On_State = RUNNING
...
@@ -284,7 +338,7 @@ is
...
@@ -284,7 +338,7 @@ is
and then (Running_State in CLIMB | DESCENT)
and then (Running_State in CLIMB | DESCENT)
and then Power_On
and then Power_On
and then not Mission_Abort_Received
and then not Mission_Abort_Received
and
then
(
if
Navigation_Mode
=
RP
then
not
Operating_
Mode
_Changed
)
and then (if Navigation_Mode = RP then not Operating_
Point
_Changed)
and then (if Running_State = DESCENT then not Descent_Over)
and then (if Running_State = DESCENT then not Descent_Over)
and then Cruise_Altitude_Reached
and then Cruise_Altitude_Reached
=>
=>
...
@@ -299,7 +353,7 @@ is
...
@@ -299,7 +353,7 @@ is
and then not Mission_Abort_Received
and then not Mission_Abort_Received
and then
and then
(if Running_State = CRUISE then Energy_Compatible_With_Mission)
(if Running_State = CRUISE then Energy_Compatible_With_Mission)
and
then
(
if
Navigation_Mode
=
RP
then
not
Operating_
Mode
_Changed
)
and then (if Navigation_Mode = RP then not Operating_
Point
_Changed)
and then
and then
(if Running_State in CLIMB | DESCENT then
(if Running_State in CLIMB | DESCENT then
not Cruise_Altitude_Reached)
not Cruise_Altitude_Reached)
...
@@ -337,4 +391,37 @@ is
...
@@ -337,4 +391,37 @@ is
Power_State
=
ON
Power_State
=
ON
and
then
On_State
=
On_State
'Old);
and
then
On_State
=
On_State
'Old);
private
procedure Mission_Setup_Management with
Global => (In_Out => State),
Post => (if Payload_Bay_Closed
and then Mission_Parameters_Defined
and then Energy_Compatible_With_Mission
then Boarding_Completed);
procedure Operating_Point_Update_Management with
Global => (In_Out => State),
Contract_Cases =>
(Navigation_Mode_From_CP = A
or else not Operating_Point_From_GS_Received
=>
Operating_Point = Operating_Point_From_USB_Key,
Navigation_Mode_From_CP = RP
and then Operating_Point_From_GS_Received
and then Power_State = ON
and then On_State = RUNNING
and then Running_State = LANDING
=>
Operating_Point = Operating_Point'
Old
,
Navigation_Mode_From_CP
=
RP
and
then
Operating_Point_From_GS_Received
and
then
not
(
Power_State
=
ON
and
then
On_State
=
RUNNING
and
then
Running_State
=
LANDING
)
=>
Operating_Point
=
Operating_Point_From_GS
);
end
MMS
.
F_PT
.
F_MM
.
Behavior
;
end
MMS
.
F_PT
.
F_MM
.
Behavior
;
UseCaseDevelopment/Layer2_MMS_SW_SPARK/mms-f_pt-f_mm-data.ads
View file @
bbcca90a
with
MMS
.
F_PT
.
Data
;
with
MMS
.
F_PT
.
Data
;
with
Types
;
use
Types
;
package
MMS
.
F_PT
.
F_MM
.
Data
is
package
MMS
.
F_PT
.
F_MM
.
Data
is
--------------------------
--------------------------
...
...
UseCaseDevelopment/Layer2_MMS_SW_SPARK/mms-f_pt-f_mm-input.ads
View file @
bbcca90a
...
@@ -3,6 +3,8 @@ with MMS.F_PT.F_FC.Output;
...
@@ -3,6 +3,8 @@ with MMS.F_PT.F_FC.Output;
with
MMS
.
F_PT
.
F_EM
.
Output
;
with
MMS
.
F_PT
.
F_EM
.
Output
;
with
MMS
.
F_PT
.
Input
;
with
MMS
.
F_PT
.
Input
;
with
Types
;
use
Types
;
package
MMS
.
F_PT
.
F_MM
.
Input
is
package
MMS
.
F_PT
.
F_MM
.
Input
is
---------------
---------------
...
@@ -34,7 +36,7 @@ package MMS.F_PT.F_MM.Input is
...
@@ -34,7 +36,7 @@ package MMS.F_PT.F_MM.Input is
renames
MMS
.
F_PT
.
F_CM
.
Output
.
Bay_Switch
;
renames
MMS
.
F_PT
.
F_CM
.
Output
.
Bay_Switch
;
function
Payload_Mass
return
Payload_Mass_Type
function
Payload_Mass
return
Payload_Mass_Type
renames
MMS
.
F_PT
.
F_CM
.
Output
.
Payload_Mass
;
renames
MMS
.
F_PT
.
F_CM
.
Output
.
Payload_Mass
_To_F_MM
;
function
USB_Key
return
Navigation_Parameters_Type
function
USB_Key
return
Navigation_Parameters_Type
renames
MMS
.
F_PT
.
F_CM
.
Output
.
USB_Key
;
renames
MMS
.
F_PT
.
F_CM
.
Output
.
USB_Key
;
...
...
UseCaseDevelopment/Layer2_MMS_SW_SPARK/mms-f_pt-f_mm-output.ads
View file @
bbcca90a
package
MMS
.
F_PT
.
F_MM
.
Output
is
with
Types
;
use
Types
;
package
MMS
.
F_PT
.
F_MM
.
Output
with
Abstract_State
=>
(
To_F_CM
,
To_F_EL
,
To_F_FC
)
is
-------------
-------------
--
To
F_CM
--
--
To
F_CM
--
--------------
--------------
function
Mission_Cancelled
return
Boolean
;
function
Mission_Cancelled
return
Boolean
with
Global
=>
To_F_CM
;
function
Mission_Complete
return
Boolean
;
function
Mission_Complete
return
Boolean
with
Global
=>
To_F_CM
;
function
Mission_Aborted
return
Boolean
;
function
Mission_Aborted
return
Boolean
with
Global
=>
To_F_CM
;
-------------
-------------
--
To
F_EL
--
--
To
F_EL
--
--------------
--------------
function
Emergency_Landing
return
Boolean
;
function
Emergency_Landing
return
Boolean
with
Global
=>
To_F_EL
;
-------------
-------------
--
To
F_FC
--
--
To
F_FC
--
-------------
-------------
function
Start_Take_Off
return
Boolean
;
function
Start_Take_Off
return
Boolean
with
Global
=>
To_F_FC
;
function
Start_Landing
return
Boolean
;
function
Start_Landing
return
Boolean
with
Global
=>
To_F_FC
;
function
Operating_Point
return
Operating_Point_Type
;
function
Operating_Point
return
Operating_Point_Type
with
Global
=>
To_F_FC
;
function
Operating_Mode
return
Navigation_Option_Type
;
function
Operating_Mode
return
Navigation_Option_Type
with
Global
=>
To_F_FC
;
function
Mission_Range
return
Current_Range_Type
;
--
???
which
distance
type
function
Mission_Range
return
Current_Range_Type
with
Global
=>
To_F_FC
;
--
???
which
distance
type
end
MMS
.
F_PT
.
F_MM
.
Output
;
end
MMS
.
F_PT
.
F_MM
.
Output
;
UseCaseDevelopment/Layer2_MMS_SW_SPARK/mms-f_pt-f_mm.ads
View file @
bbcca90a
with
Types
;
use
Types
;
package
MMS
.
F_PT
.
F_MM
is
package
MMS
.
F_PT
.
F_MM
is
type
Viability_Cell_Center_Type
is
record
type
Viability_Cell_Center_Type
is
record
...
...
UseCaseDevelopment/Layer2_MMS_SW_SPARK/mms-f_pt-input.ads
View file @
bbcca90a
with
MMS
.
Input
;
with
MMS
.
Input
;
with
MMS
.
F_EL
.
Output
;
with
MMS
.
F_EL
.
Output
;
with
Types
;
use
Types
;
package
MMS
.
F_PT
.
Input
is
package
MMS
.
F_PT
.
Input
is
--------------
--------------
...
@@ -40,12 +42,6 @@ package MMS.F_PT.Input is
...
@@ -40,12 +42,6 @@ package MMS.F_PT.Input is
function
USB_Key
return
Navigation_Parameters_Type
function
USB_Key
return
Navigation_Parameters_Type
renames
MMS
.
Input
.
USB_Key
;
renames
MMS
.
Input
.
USB_Key
;
function
Rotactor_1
return
Rotactor_Type
renames
MMS
.
Input
.
Rotactor_1
;
function
Rotactor_2
return
Rotactor_Type
renames
MMS
.
Input
.
Rotactor_2
;
function
P
return
Distance_Type
function
P
return
Distance_Type
renames
MMS
.
Input
.
P
;
renames
MMS
.
Input
.
P
;
...
...
UseCaseDevelopment/Layer2_MMS_SW_SPARK/mms-f_pt-output.ads
View file @
bbcca90a
with
MMS
.
F_PT
.
F_CM
.
Output
;
with
MMS
.
F_PT
.
F_CM
.
Output
;
with
MMS
.
F_PT
.
F_MM
.
Output
;
with
MMS
.
F_PT
.
F_MM
.
Output
;
with
Types
;
use
Types
;
package
MMS
.
F_PT
.
Output
is
package
MMS
.
F_PT
.
Output
is
-----------
-----------
...
...
UseCaseDevelopment/Layer2_MMS_SW_SPARK/mms-f_pt.ads
View file @
bbcca90a
with
Types
;
use
Types
;
package
MMS
.
F_PT
is
package
MMS
.
F_PT
is
type
Current_Range_Type
is
range
1
..
1
_000_000
;
--
in
meters
type
Current_Range_Type
is
range
1
..
1
_000_000
;
--
in
meters
...
...
UseCaseDevelopment/Layer2_MMS_SW_SPARK/mms-input.ads
View file @
bbcca90a
with
Types
;
use
Types
;
with
External
;
package
MMS
.
Input
is
package
MMS
.
Input
is
------------------------------------------------------
------------------------------------------------------
--
Ground
-
based
Mission
Preparation
and
Supervision
--
--
Ground
-
based
Mission
Preparation
and
Supervision
--
------------------------------------------------------
------------------------------------------------------
function
Navigation_Parameters
return
Navigation_Parameters_Type
;
function
Navigation_Parameters
return
Navigation_Parameters_Type
renames
External
.
Navigation_Parameters
;
function
Navigation_Mode
return
Navigation_Mode_Type
;
function
Navigation_Mode
return
Navigation_Mode_Type
renames
External
.
Navigation_Mode
;
function
Navigation_Option
return
Navigation_Option_Type
;
function
Navigation_Option
return
Navigation_Option_Type
renames
External
.
Navigation_Option
;
function
Go
return
Boolean
;
function
Go
return
Boolean
renames
External
.
Go
;
function
Emergency_Landing
return
Boolean
;
function
Emergency_Landing
return
Boolean
renames
External
.
Emergency_Landing
;
--------------------------------------------------
--------------------------------------------------
--
AV
-
based
Mission
Preparation
(
Control
Panel
)
--
--
AV
-
based
Mission
Preparation
(
Control
Panel
)
--
--------------------------------------------------
--------------------------------------------------
function
On_OFF_Push_Button
return
Boolean
;
function
On_OFF_Push_Button
return
Boolean
renames
External
.
On_OFF_Push_Button
;
function
Start_Push_Button
return
Boolean
;
function
Mode_Switch
return
Navigation_Mode_Type
;
function
Bay_Switch
return
Bay_Switch_Type
;
function
Start_Push_Button
return
Boolean
renames
External
.
Start_Push_Button
;
function
Payload_Mass
return
Payload_Mass_Type
;
function
Mode_Switch
return
Navigation_Mode_Type
renames
External
.
Mode_Switch
;
function
USB_Key
return
Navigation_Parameters_Type
;
function
Bay_Switch
return
Bay_Switch_Type
renames
External
.
Bay_Switch
;
function
Rotactor_1
return
Rotactor_Type
;
function
Payload_Mass
return
Payload_Mass_Type
renames
External
.
Payload_Mass
;
function
Rotactor_2
return
Rotactor_Type
;
function
USB_Key
return
Navigation_Parameters_Type
renames
External
.
USB_Key
;
-------------------------
-------------------------
--
Physical
Parameters
--
--
Physical
Parameters
--
-------------------------
-------------------------
function
P
return
Distance_Type
;
function
P
return
Distance_Type
renames
External
.
P
;
function
P_Dot
return
Speed_Type
;
function
P_Dot
return
Speed_Type
renames
External
.
P_Dot
;
function
Q
return
Angle_Type
;
function
Q
return
Angle_Type
renames
External
.
Q
;
end
MMS
.
Input
;
end
MMS
.
Input
;
UseCaseDevelopment/Layer2_MMS_SW_SPARK/mms-output.ads
View file @
bbcca90a
with
MMS
.
F_PT
.
Output
;
with
MMS
.
F_PT
.
Output
;
with
Types
;
use
Types
;
package
MMS
.
Output
is
package
MMS
.
Output
is
-------------------------------------
-------------------------------------
...
...
UseCaseDevelopment/Layer2_MMS_SW_SPARK/mms.ads
View file @
bbcca90a
...
@@ -16,65 +16,4 @@
...
@@ -16,65 +16,4 @@
--
with
a
header
specifying
to
which
component
(
s
)
they
are
linked
.
--
with
a
header
specifying
to
which
component
(
s
)
they
are
linked
.
package
MMS
is
package
MMS
is
----------------------------------
--
Types
for
inputs
and
outputs
--
----------------------------------
type
Distance_Input_Type
is
range
1
..
100
;
--
in
n
.
m
type
Speed_Input_Type
is
range
1
..
250
;
--
in
k
.
t
type
Altitude_Input_Type
is
range
-
500
..
3000
;
--
in
ft
type
Navigation_Parameters_Type
is
record
Distance
:
Distance_Input_Type
;
Speed
:
Speed_Input_Type
;
Altitude
:
Altitude_Input_Type
;
end
record
;
type
Navigation_Mode_Type
is
(
RP
,
A
);
type
Navigation_Option_Type
is
(
SPEED
,
ALTITUDE
,
ENERGY
);
type
Bay_Switch_Type
is
(
OPEN
,
CLOSED
);
type
Payload_Mass_Type
is
new
Integer
range
0
..
98
;
--
in
kg
type
Distance_Type
is
new
Float
;
--
type
of
P
,
unit
and
bounds
???
type
Speed_Type
is
new
Float
;
--
type
of
P_Dot
,
unit
and
bounds
???
type
Angle_Type
is
new
Float
;
--
type
of
Q
,
unit
and
bounds
???
type
Angular_Speed_Type
is
new
Float
;
--
type
of
Q_Dot
,
unit
and
bounds
???
type
Rotactor_Type
is
range
0
..
9
;
type
CP_Switches_Type
is
record
Power
:
Boolean
;
Mode
:
Navigation_Mode_Type
;
Bay
:
Bay_Switch_Type
;
Start
:
Boolean
;
Rotactor_1
:
Rotactor_Type
;
Rotactor_2
:
Rotactor_Type
;
end
record
;
type
Source_Type
is
range
1
..
100
;
type
CP_Displays_Type
is
record
Ready
:
Boolean
;
Cancelled
:
Boolean
;
Complete
:
Boolean
;
Aborted
:
Boolean
;
--
???
Primary_Source
:
Source_Type
;
Secondary_Source
:
Source_Type
;
end
record
;
type
Propulsion_Energy_Type
is
record
Primary_Source_Capacity
:
Source_Type
;
Secondary_Source_Capacity
:
Source_Type
;
end
record
;
type
Torque_Type
is
delta
0.0001
range
-
10.0E6
..
10.0E6
;
--
???
end
MMS
;
end
MMS
;
UseCaseDevelopment/Layer2_MMS_SW_SPARK/types.ads
0 → 100644
View file @
bbcca90a
package
Types
is
----------------------------------
--
Types
for
inputs
and
outputs
--
----------------------------------
type
Distance_Input_Type
is
range
1
..
100
;
--
in
n
.
m
type
Speed_Input_Type
is
range
1
..
250
;
--
in
k
.
t
type
Altitude_Input_Type
is
range
-
500
..
3000
;
--
in
ft
type
Navigation_Parameters_Type
is
record
Distance
:
Distance_Input_Type
;
Speed
:
Speed_Input_Type
;
Altitude
:
Altitude_Input_Type
;
end
record
;
type
Navigation_Mode_Type
is
(
RP
,
A
);
type
Navigation_Option_Type
is
(
SPEED
,
ALTITUDE
,
ENERGY
);
type
Bay_Switch_Type
is
(
OPEN
,
CLOSED
);
type
Payload_Mass_Type
is
new
Integer
range
0
..
98
;
--
in
kg
type
Distance_Type
is
new
Float
;
--
type
of
P
,
unit
and
bounds
???
type
Speed_Type
is
new
Float
;
--
type
of
P_Dot
,
unit
and
bounds
???
type
Angle_Type
is
new
Float
;
--
type
of
Q
,
unit
and
bounds
???
type
Angular_Speed_Type
is
new
Float
;
--
type
of
Q_Dot
,
unit
and
bounds
???
type
Rotactor_Type
is
range
0
..
9
;
type
CP_Switches_Type
is
record
Power
:
Boolean
;
Mode
:
Navigation_Mode_Type
;
Bay
:
Bay_Switch_Type
;
Start
:
Boolean
;
Rotactor_1
:
Rotactor_Type
;
Rotactor_2
:
Rotactor_Type
;
end
record
;
type
Source_Type
is
range
1
..
100
;
type
CP_Displays_Type
is
record
Ready
:
Boolean
;
Cancelled
:
Boolean
;
Complete
:
Boolean
;
Aborted
:
Boolean
;
--
???
Primary_Source
:
Source_Type
;
Secondary_Source
:
Source_Type
;
end
record
;
type
Propulsion_Energy_Type
is
record
Primary_Source_Capacity
:
Source_Type
;
Secondary_Source_Capacity
:
Source_Type
;
end
record
;
type
Torque_Type
is
delta
0.0001
range
-
10.0E6
..
10.0E6
;
--
???
end
Types
;
Write
Preview
Markdown
is supported
0%
Try again
or
attach a new file
Attach a file
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment