39 lines
632 B
Plaintext
39 lines
632 B
Plaintext
|
note
|
||
|
|
description: "[
|
||
|
|
|
||
|
|
]"
|
||
|
|
author: "Jimmy J. Johnson"
|
||
|
|
date: "11/11/21"
|
||
|
|
copyright: "Copyright (c) 2021, Jimmy J. Johnson"
|
||
|
|
license: "Eiffel Forum v2 (http://www.eiffel.com/licensing/forum.txt)"
|
||
|
|
|
||
|
|
deferred class
|
||
|
|
CONCURRENT_STEP
|
||
|
|
|
||
|
|
inherit
|
||
|
|
|
||
|
|
GAME_STEP
|
||
|
|
redefine
|
||
|
|
is_completed
|
||
|
|
end
|
||
|
|
|
||
|
|
feature {NONE} -- Initalization
|
||
|
|
|
||
|
|
feature -- Status report
|
||
|
|
|
||
|
|
is_completed: BOOLEAN
|
||
|
|
-- Are all actions to be accomplished in this
|
||
|
|
-- state finished, allowing `advance' to the
|
||
|
|
-- next state?
|
||
|
|
do
|
||
|
|
from steps.start
|
||
|
|
until steps.after
|
||
|
|
loop
|
||
|
|
Result := steps.item.is_completed
|
||
|
|
steps.forth
|
||
|
|
end
|
||
|
|
ensure then
|
||
|
|
end
|
||
|
|
|
||
|
|
end
|