smyalygames/checklist-tester
1
0
Fork 0
mirror of https://github.com/smyalygames/checklist-tester.git synced 2025-09-13 12:22:19 +02:00
Code Issues Actions Packages Projects Releases Wiki Activity

fix(formal): add checks if item already in position

Browse Source
This commit is contained in:
Anthony 2024-03-12 15:02:29 +00:00
parent efd5588085
commit 273e53738d
1 changed files with 24 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

30
formal/checklist.vdmsl
View File

@ -141,8 +141,12 @@ functions
--@doc Completes an Item in the procedure on the Aircraft
do_proc_item: ChecklistItem * Aircraft -> Aircraft
do_proc_item(p, a) ==
let itemIndex = index_of_item(p.procedure, a) in
a ++ {itemIndex |-> move_item(a(itemIndex), p.check)}
let itemIndex = index_of_item(p.procedure, a), item = a(itemIndex), objective = p.check in
-- Checks if the item is in the objective desired by the checklist
if check_item_in_position(item, objective) then
a
else
a ++ {itemIndex |-> move_item(a(itemIndex), objective)}
pre
p.checked = false;
@ -180,10 +184,8 @@ functions
-- if is_Switch(i) then (implement later)
mk_Item(i.name, i.type, move_switch(i.object, s))
pre
(is_Switch(i.object) and is_SwitchState(s))
--TODO check that the item has not already been completed before moving item
--TODO add other types of Items
;
wf_item_itemstate(i, s) and
not check_item_in_position(i, s);
--@doc Moves a specific switch in the aircraft
move_switch: Switch * SwitchState -> Switch
@ -210,5 +212,21 @@ functions
let position = s.position in
position = <OFF> or position = <ON>;
--@doc Checks if the item is already in position for the desired state for that item
check_item_in_position: Item * ItemState -> bool
check_item_in_position(i, s) ==
-- if is_Switch(i) then (implement later)
i.object.position = s
pre
wf_item_itemstate(i,s);
--@doc Checks if the Item.object is the same type for the ItemState
wf_item_itemstate: Item * ItemState -> bool
wf_item_itemstate(i, s) ==
(is_Switch(i.object) and is_SwitchState(s))
--TODO check that the item has not already been completed before moving item
--TODO add other types of Items
;
end Checklist