init

jj_vitp/Implementation/classes/other_locations/aleutians.e

@@ -0,0 +1,22 @@
+note
+	description: "[
+		Describes this particular {LAND} area.
+		]"
+	author: "Jimmy J. Johnson"
+
+class
+	ALEUTIANS
+
+inherit
+
+	LAND
+
+create
+	make
+
+feature -- Access
+
+	name: STRING_8 = "Aleutians"
+			-- This name of this item.
+
+end

jj_vitp/Implementation/classes/other_locations/allied_order_of_appearance_chart.e

@@ -0,0 +1,52 @@
+note
+	description: "[
+		Describes this chart as a location, so units can be moved to it.
+		]"
+	author: "Jimmy J. Johnson"
+
+class
+	ALLIED_ORDER_OF_APPEARANCE_CHART
+
+inherit
+
+	LOCATION
+		redefine
+			make
+		end
+
+create
+	make
+
+feature {NONE} -- Initialization
+
+	make (a_game: like game)
+			-- Set up Current
+		do
+			Precursor (a_game)
+			nationality := {NATIONALITY_CONSTANTS}.us
+			defining_position := [0, 0]
+		end
+
+feature -- Access
+
+	name: STRING_8 = "Allied Order of Appearance Chart"
+			-- This name of this item.
+
+	defining_position: TUPLE [x, y: INTEGER_32]
+			-- The x- and y-coordinate (in millimeters) of Current's
+			-- position relative to the top-left corner of the board.
+
+feature {NONE} -- Inapplicable
+
+	adjacent_sea_areas: LINEAR [SEA_AREA]
+			-- A list of all sea areas that touch this location
+		do
+				-- satisfy void safety
+			Result := (create {LINKED_SET [SEA_AREA]}.make).linear_representation
+			check
+				do_not_call: False
+					-- Because not applicable
+			end
+		end
+
+end

jj_vitp/Implementation/classes/other_locations/allied_starting_forces_chart.e

@@ -0,0 +1,52 @@
+note
+	description: "[
+		Describes this chart as a location, so units can be moved to it.
+		]"
+	author: "Jimmy J. Johnson"
+
+class
+	ALLIED_STARTING_FORCES_CHART
+
+inherit
+
+	LOCATION
+		redefine
+			make
+		end
+
+create
+	make
+
+feature {NONE} -- Initialization
+
+	make (a_game: like game)
+			-- Set up Current
+		do
+			Precursor (a_game)
+			nationality := {NATIONALITY_CONSTANTS}.us
+			defining_position := [0, 0]
+		end
+
+feature -- Access
+
+	name: STRING_8 = "Allied Starting Forces Chart"
+			-- This name of this item.
+
+	defining_position: TUPLE [x, y: INTEGER_32]
+			-- The x- and y-coordinate (in millimeters) of Current's
+			-- position relative to the top-left corner of the board.
+
+feature {NONE} -- Inapplicable
+
+	adjacent_sea_areas: LINEAR [SEA_AREA]
+			-- A list of all sea areas that touch this location
+		do
+				-- satisfy void safety
+			Result := (create {LINKED_SET [SEA_AREA]}.make).linear_representation
+			check
+				do_not_call: False
+					-- Because not applicable
+			end
+		end
+
+end

jj_vitp/Implementation/classes/other_locations/allied_uncommitted_location.e

@@ -0,0 +1,39 @@
+note
+	description: "[
+		Describes this particular {LAND} area.
+		]"
+	author: "Jimmy J. Johnson"
+
+class
+	ALLIED_UNCOMMITTED_LOCATION
+
+inherit
+
+	LOCATION_UNCOMMITTED
+		redefine
+			make
+		end
+
+create
+	make
+
+feature {NONE} -- Initialization
+
+	make (a_game: like game)
+			-- Set up Current
+		do
+			Precursor (a_game)
+			nationality := {NATIONALITY_CONSTANTS}.us
+			defining_position := [0, 0]
+		end
+
+feature -- Access
+
+	name: STRING_8 = "Allied uncommited location"
+			-- The name of this unit.
+
+	defining_position: TUPLE [x, y: INTEGER_32]
+			-- The x- and y-coordinate (in millimeters) of Current's
+			-- position relative to the top-left corner of the board.
+
+end

jj_vitp/Implementation/classes/other_locations/asia.e

@@ -0,0 +1,22 @@
+note
+	description: "[
+		Describes this particular {LAND} area.
+		]"
+	author: "Jimmy J. Johnson"
+
+class
+	ASIA
+
+inherit
+
+	LAND
+
+create
+	make
+
+feature -- Access
+
+	name: STRING_8 = "Asia"
+			-- This name of this item.
+
+end

jj_vitp/Implementation/classes/other_locations/japanese_order_of_appearance_chart.e

@@ -0,0 +1,53 @@
+note
+	description: "[
+		Represents the Order of Appearance chart for VITP.
+		The attack units begin the game here and enter during play.
+		]"
+	author:		"Jimmy J. Johnson"
+
+class
+	JAPANESE_ORDER_OF_APPEARANCE_CHART
+
+inherit
+
+	LOCATION
+		redefine
+			make
+		end
+
+create
+	make
+
+feature {NONE} -- Initialization
+
+	make (a_game: like game)
+			-- Set up Current
+		do
+			Precursor (a_game)
+			nationality := {NATIONALITY_CONSTANTS}.japanese
+			defining_position := [0, 0]
+		end
+
+feature -- Access
+
+	name: STRING_8 = "Japanese Order of Appearance Chart"
+			-- This name of this item.
+
+	defining_position: TUPLE [x, y: INTEGER_32]
+			-- The x- and y-coordinate (in millimeters) of Current's
+			-- position relative to the top-left corner of the board.
+
+feature {NONE} -- Inapplicable
+
+	adjacent_sea_areas: LINEAR [SEA_AREA]
+			-- A list of all sea areas that touch this location
+		do
+				-- satisfy void safety
+			Result := (create {LINKED_SET [SEA_AREA]}.make).linear_representation
+			check
+				do_not_call: False
+					-- Because not applicable
+			end
+		end
+
+end

jj_vitp/Implementation/classes/other_locations/japanese_uncommitted_location.e

@@ -0,0 +1,39 @@
+note
+	description: "Summary description for {JAPANESE_UNCOMMITED_POSITION}."
+	author: ""
+	date: "$Date$"
+	revision: "$Revision$"
+
+class
+	JAPANESE_UNCOMMITTED_LOCATION
+
+inherit
+
+	LOCATION_UNCOMMITTED
+		redefine
+			make
+		end
+
+create
+	make
+
+feature {NONE} -- Initialization
+
+	make (a_game: like game)
+			-- Initialize attributes of Current
+		do
+			PRECURSOR {LOCATION_UNCOMMITTED} (a_game)
+			nationality := {NATIONALITY_CONSTANTS}.japanese
+			defining_position := [0, 0]
+		end
+
+feature -- Access
+
+	name: STRING_8 = "Akagi"
+			-- The name of this unit.
+
+	defining_position: TUPLE [x, y: INTEGER_32]
+			-- The x- and y-coordinate (in millimeters) of Current's
+			-- position relative to the top-left corner of the board.
+
+end

jj_vitp/Implementation/classes/other_locations/kamchatka.e

@@ -0,0 +1,22 @@
+note
+	description: "[
+		Describes this particular {LAND} area.
+		]"
+	author: "Jimmy J. Johnson"
+
+class
+	KAMCHATKA
+
+inherit
+
+	LAND
+
+create
+	make
+
+feature -- Access
+
+	name: STRING_8 = "Kamchatka"
+			-- This name of this item.
+
+end

jj_vitp/Implementation/classes/other_locations/location_uncertain.e

@@ -0,0 +1,52 @@
+note
+	description: "[
+		Describes this chart as a location, so units can be moved to it.
+		]"
+	author: "Jimmy J. Johnson"
+
+class
+	LOCATION_UNCERTAIN
+
+inherit
+
+	LOCATION
+		redefine
+			make
+		end
+
+create
+	make
+
+feature {NONE} -- Initialization
+
+	make (a_game: like game)
+			-- Set up Current
+		do
+			Precursor (a_game)
+			nationality := game.nobody
+			defining_position := [0, 0]
+		end
+
+feature -- Access
+
+	name: STRING_8 = "Location Uncertain"
+			-- This name of this item.
+
+	defining_position: TUPLE [x, y: INTEGER_32]
+			-- The x- and y-coordinate (in millimeters) of Current's
+			-- position relative to the top-left corner of the board.
+
+feature {NONE} -- Inapplicable
+
+	adjacent_sea_areas: LINEAR [SEA_AREA]
+			-- A list of all sea areas that touch this location
+		do
+				-- satisfy void safety
+			Result := (create {LINKED_SET [SEA_AREA]}.make).linear_representation
+			check
+				do_not_call: False
+					-- Because not applicable
+			end
+		end
+
+end

jj_vitp/Implementation/classes/other_locations/location_uncommitted.e

@@ -0,0 +1,39 @@
+note
+	description: "[
+		Describes this location, so units can be moved to it.
+		]"
+	author: "Jimmy J. Johnson"
+
+deferred class
+	LOCATION_UNCOMMITTED
+
+inherit
+
+	LOCATION
+		redefine
+			make
+		end
+
+feature {NONE} -- Initialization
+
+	make (a_game: like game)
+			-- Set up Current
+		do
+			Precursor (a_game)
+			nationality := {NATIONALITY_CONSTANTS}.nobody
+		end
+
+feature {NONE} -- Inapplicable
+
+	adjacent_sea_areas: LINEAR [SEA_AREA]
+			-- A list of all sea areas that touch this location
+		do
+				-- satisfy void safety
+			Result := (create {LINKED_SET [SEA_AREA]}.make).linear_representation
+			check
+				do_not_call: False
+					-- Because not applicable
+			end
+		end
+
+end

jj_vitp/Implementation/classes/other_locations/marshalls_north.e

@@ -0,0 +1,22 @@
+note
+	description: "[
+		Describes this particular {LAND} area.
+		]"
+	author: "Jimmy J. Johnson"
+
+class
+	MARSHALLS_NORTH
+
+inherit
+
+	LAND
+
+create
+	make
+
+feature -- Access
+
+	name: STRING_8 = "Marshalls North"
+			-- This name of this item.
+
+end

jj_vitp/Implementation/classes/other_locations/marshalls_south.e

@@ -0,0 +1,22 @@
+note
+	description: "[
+		Describes this particular {LAND} area.
+		]"
+	author: "Jimmy J. Johnson"
+
+class
+	MARSHALLS_SOUTH
+
+inherit
+
+	LAND
+
+create
+	make
+
+feature -- Access
+
+	name: STRING_8 = "Marshalls South"
+			-- This name of this item.
+
+end

jj_vitp/Implementation/classes/other_locations/solomans.e

@@ -0,0 +1,22 @@
+note
+	description: "[
+		Describes this particular {LAND} area.
+		]"
+	author: "Jimmy J. Johnson"
+
+class
+	SOLOMANS
+
+inherit
+
+	LAND
+
+create
+	make
+
+feature -- Access
+
+	name: STRING_8 = "Solomans"
+			-- This name of this item.
+
+end

jj_vitp/Implementation/classes/other_locations/still_in_box.e

@@ -0,0 +1,54 @@
+note
+	description: "[
+		Describes this chart as a location, so units can be moved to it.
+		]"
+	author: "Jimmy J. Johnson"
+	date: "$Date: 2012-07-01 01:25:45 -0400 (Sun, 01 Jul 2012) $"
+	revision: "$Revision: 31 $"
+
+class
+	STILL_IN_BOX
+
+inherit
+
+	LOCATION
+		redefine
+			make
+		end
+
+create
+	make
+
+feature {NONE} -- Initialization
+
+	make (a_game: like game)
+			-- Set up Current
+		do
+			Precursor (a_game)
+			nationality := {NATIONALITY_CONSTANTS}.nobody
+			defining_position := [0, 0]
+		end
+
+feature -- Access
+
+	name: STRING_8 = "Still in Box"
+			-- This name of this item.
+
+	defining_position: TUPLE [x, y: INTEGER_32]
+			-- The x- and y-coordinate (in millimeters) of Current's
+			-- position relative to the top-left corner of the board.
+
+feature {NONE} -- Inapplicable
+
+	adjacent_sea_areas: LINEAR [SEA_AREA]
+			-- A list of all sea areas that touch this location
+		do
+				-- satisfy void safety
+			Result := (create {LINKED_SET [SEA_AREA]}.make).linear_representation
+			check
+				do_not_call: False
+					-- Because not applicable
+			end
+		end
+
+end