36 lines
709 B
Plaintext
36 lines
709 B
Plaintext
|
note
|
||
|
|
description: "[
|
||
|
|
An {SHIP} that belongs to the Allies.
|
||
|
|
]"
|
||
|
|
author: "Jimmy J. Johnson"
|
||
|
|
date: "5/12/24"
|
||
|
|
copyright: "Copyright (c) 2024, Jimmy J. Johnson"
|
||
|
|
license: "Eiffel Forum v2 (http://www.eiffel.com/licensing/forum.txt)"
|
||
|
|
|
||
|
|
deferred class
|
||
|
|
ALLIED_SHIP
|
||
|
|
|
||
|
|
inherit
|
||
|
|
|
||
|
|
ALLIED_UNIT
|
||
|
|
undefine
|
||
|
|
reinforceable_ports,
|
||
|
|
internal_is_movable,
|
||
|
|
is_bottomed
|
||
|
|
end
|
||
|
|
|
||
|
|
SHIP
|
||
|
|
undefine
|
||
|
|
make -- make from {ALLIED_UNIT} calls {SHIP}.make
|
||
|
|
-- reinforceable_ports
|
||
|
|
end
|
||
|
|
|
||
|
|
invariant
|
||
|
|
|
||
|
|
is_allied: nationality = {NATIONALITY_CONSTANTS}.us or
|
||
|
|
nationality = {NATIONALITY_CONSTANTS}.british or
|
||
|
|
nationality = {NATIONALITY_CONSTANTS}.australian or
|
||
|
|
nationality = {NATIONALITY_CONSTANTS}.dutch
|
||
|
|
|
||
|
|
end
|