Module:Ship

Documentation for this module may be created at Module:Ship/doc

local Ship = {}
local ships = {}

local ShipData

function Ship:_prepareShipData()
	ShipData = ShipData or require('Module:ShipData')
end

function Ship:get(stat, name, model)
	return self:create(name, model)[stat]()
end

function Ship:create(name, model)
	self:_prepareShipData()
	if name == nil then
		return ShipData()
	end
	if model == nil then
		name, model = self:process_ship_key(name)
	end
	if not model then
		model = ""
	end
	--check if we already have it
	if ships[name] and ships[name][model] then
		return ships[name][model]
	else
		local ship = ShipData(self:get_table(name, model))
		if not ships[name] then
			ships[name] = {}
		end
		ships[name][model] = ship
		return ship
	end
end

function Ship:create_from_reference(reference, base)
	name, model = self:process_ship_key(reference)
	if not name then
		name = base:base_name()
	end
	return self(name, model)
end

function Ship:get_table(name, model)
	--Catch a failed require
	local success, ship_table = pcall(function () return require(mw.ustring.format('Module:%s', name)) end)
	--require succeeded
	if success then
		ship_table = ship_table[model]
		if not ship_table then
			--create a ShipData with what we have
			ship_table = {_name = name, _suffix = model}
		elseif type(ship_table) == "string" then
			ship_table = self:get_table(self:process_ship_key(ship_table))
		end
	--require failed
	else
		--create a ShipData with what we have
		ship_table = {_name = name, _suffix = model}
	end
	return ship_table
end

function Ship:process_ship_key(ship_key)
	local split = mw.ustring.find(ship_key, '/')
	local ship_base_name, ship_suffix
	if split == nil then
		ship_base_name = ship_key
	else
		ship_base_name = mw.ustring.sub(ship_key, 1, split - 1)
		ship_suffix = mw.ustring.sub(ship_key, split + 1, -1)
	end
	return ship_base_name, ship_suffix
end

function Ship:get_module(name)
	if name == nil then
		return nil
	end
	return mw.ustring.format('Module:%s', name)
end

Ship.__call = Ship.create
setmetatable(Ship, Ship)

return Ship