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
|