class freight_station_t
{
	factory  = null // factory_x
	road_depot  = null // tile_x
	road_unload = null // tile_x
	ship_depot  = null // tile_x
	rail_depot  = null // tile_x
	rail_unload = null // tile_x

	constructor(f)
	{
		factory = f
	}

	function _save()
	{
		return ::saveinstance("freight_station_t", this)
	}
}



class freight_station_manager_t extends node_t
{
	freight_station_list = null
	use_raw_names = 0 /// repair old savegames: use untranslated factory name as key

	constructor(urn)
	{
		base.constructor("freight_station_manager_t")
		freight_station_list = {}
		::station_manager = this
		use_raw_names = urn
	}

	/// Generate unique key from link data
	static function key(factory)
	{
		return (factory.get_raw_name() + coord_to_string(factory)).toalnum()
	}

	/**
	 * Access freight_station_t data, create node if not existent.
	 */
	function access_freight_station(factory)
	{
		local k = key(factory)
		local res
		try {
			res = freight_station_list[k]
		}
		catch(ev) {
			local fs = freight_station_t(factory)
			freight_station_list[k] <- fs
			res = fs
		}
		return res
	}

	/// Repair list: use untranslated factory names
	function repair_keys()
	{
		if (use_raw_names == 1) {
			return
		}
		local fsl = {}
		foreach(val in freight_station_list) {
			local rkey = key(val.factory)
			fsl[rkey] <- val
		}
		freight_station_list = fsl
		use_raw_names = 1
	}
}
