#include "ResourceGatheringOperation.hpp"

#include <vector>

#include "openvic-simulation/economy/production/Employee.hpp"
#include "openvic-simulation/economy/production/ProductionType.hpp"
#include "openvic-simulation/map/ProvinceInstance.hpp"
#include "openvic-simulation/map/State.hpp"
#include "openvic-simulation/modifier/ModifierEffectCache.hpp"
#include "openvic-simulation/pop/Pop.hpp"
#include "openvic-simulation/types/fixed_point/FixedPoint.hpp"
#include "openvic-simulation/utility/Logger.hpp"

using namespace OpenVic;

ResourceGatheringOperation::ResourceGatheringOperation(
	ProductionType const* new_production_type_nullable,
	fixed_point_t new_size_multiplier,
	fixed_point_t new_revenue_yesterday,
	fixed_point_t new_output_quantity_yesterday,
	fixed_point_t new_unsold_quantity_yesterday,
	std::vector<Employee>&& new_employees,
	decltype(employee_count_per_type_cache)::keys_t const& pop_type_keys
) : production_type_nullable { new_production_type_nullable },
	revenue_yesterday { new_revenue_yesterday },
	output_quantity_yesterday { new_output_quantity_yesterday },
	unsold_quantity_yesterday { new_unsold_quantity_yesterday },
	size_multiplier { new_size_multiplier },
	employees { std::move(new_employees) },
	max_employee_count_cache { 0 },
	total_employees_count_cache { 0 },
	total_paid_employees_count_cache { 0 },
	total_owner_income_cache { },
	total_employee_income_cache { },
	employee_count_per_type_cache { &pop_type_keys }
{ }

ResourceGatheringOperation::ResourceGatheringOperation(decltype(employee_count_per_type_cache)::keys_t const& pop_type_keys) : ResourceGatheringOperation {
	nullptr, fixed_point_t::_0(),
	fixed_point_t::_0(), fixed_point_t::_0(),
	fixed_point_t::_0(), {}, pop_type_keys
} {}

void ResourceGatheringOperation::initialise_for_new_game(ProvinceInstance& location, ModifierEffectCache const& modifier_effect_cache) {
	if (production_type_nullable == nullptr) {
		output_quantity_yesterday = 0;
		revenue_yesterday = 0;
		return;
	}

	ProductionType const& production_type = *production_type_nullable;
	const fixed_point_t size_modifier = calculate_size_modifier(location, modifier_effect_cache);
	const Pop::pop_size_t total_worker_count_in_province = update_size_and_return_total_worker_count(location, modifier_effect_cache, size_modifier);
	hire(location, total_worker_count_in_province);
	Pop::pop_size_t total_owner_count_in_state_cache = 0;
	std::vector<Pop*> owner_pops_cache {};
	output_quantity_yesterday = produce(location, owner_pops_cache, total_owner_count_in_state_cache, modifier_effect_cache, size_modifier);
	revenue_yesterday = output_quantity_yesterday * production_type.get_output_good().get_base_price(); //TODO sell on market
	pay_employees(location, revenue_yesterday, total_worker_count_in_province, owner_pops_cache, total_owner_count_in_state_cache);	
}

Pop::pop_size_t ResourceGatheringOperation::update_size_and_return_total_worker_count(
	ProvinceInstance& location,
	ModifierEffectCache const& modifier_effect_cache,
	const fixed_point_t size_modifier
) {
	if (production_type_nullable == nullptr) {
		size_multiplier = fixed_point_t::_0();
		max_employee_count_cache = fixed_point_t::_0();
		return fixed_point_t::_0();
	}
	
	Pop::pop_size_t total_worker_count_in_province = 0; //not counting equivalents
	ProductionType const& production_type = *production_type_nullable;
	std::vector<Job> const& jobs = production_type.get_jobs();
	//can't use pop_type_distribution as it is not filled correctly yet (possibly due to equivalent pop type conversion)
	for (Pop const& pop : location.get_pops()){
		PopType const* pop_type = pop.get_type();
		for(Job const& job : jobs) {
			if (job.get_pop_type() == pop_type) {
				total_worker_count_in_province += pop.get_size();
				break;
			}
		}
	}

	const fixed_point_t base_workforce_size = production_type.get_base_workforce_size();
	if (size_modifier == fixed_point_t::_0()) {
		size_multiplier = 0;
	} else {
		size_multiplier = ((total_worker_count_in_province / (size_modifier * base_workforce_size)).ceil() * fixed_point_t::_1_50()).floor();
	}
	max_employee_count_cache = (size_modifier * size_multiplier * base_workforce_size).floor();
	return total_worker_count_in_province;
}

fixed_point_t ResourceGatheringOperation::calculate_size_modifier(ProvinceInstance const& location, ModifierEffectCache const& modifier_effect_cache) const {
	if (production_type_nullable == nullptr) {
		return fixed_point_t::_1();
	}
	
	ProductionType const& production_type = *production_type_nullable;

	fixed_point_t size_modifier = fixed_point_t::_1();
	if (production_type.is_farm()) {
		size_modifier += location.get_modifier_effect_value_nullcheck(modifier_effect_cache.get_farm_rgo_size_global())
			+ location.get_modifier_effect_value_nullcheck(modifier_effect_cache.get_farm_rgo_size_local());
	}
	if (production_type.is_mine()) {
		size_modifier += location.get_modifier_effect_value_nullcheck(modifier_effect_cache.get_mine_rgo_size_global())
			+ location.get_modifier_effect_value_nullcheck(modifier_effect_cache.get_mine_rgo_size_local());
	}
	auto const& good_effects = modifier_effect_cache.get_good_effects()[production_type.get_output_good()];
	size_modifier += location.get_modifier_effect_value_nullcheck(good_effects.get_rgo_size());
	return size_modifier > fixed_point_t::_0() ? size_modifier : fixed_point_t::_0();
}

void ResourceGatheringOperation::hire(ProvinceInstance& location, Pop::pop_size_t available_worker_count) {
	total_employees_count_cache = 0;
	total_paid_employees_count_cache=0;
	if (production_type_nullable == nullptr) {
		employees.clear();
		employee_count_per_type_cache.fill(fixed_point_t::_0());
		return;
	}

	ProductionType const& production_type = *production_type_nullable;
	if (max_employee_count_cache <= 0) { return; }
	if (available_worker_count <= 0) { return; }

	fixed_point_t proportion_to_hire;
	if (max_employee_count_cache >= available_worker_count) {
		//hire everyone
		proportion_to_hire = fixed_point_t::_1();
	} else {
		//hire all pops proportionally
		const fixed_point_t max_worker_count_real = max_employee_count_cache, available_worker_count_real = available_worker_count;
		proportion_to_hire = max_worker_count_real / available_worker_count_real;
	}
	
	std::vector<Job> const& jobs = production_type.get_jobs();
	for (Pop& pop : location.get_mutable_pops()){
		PopType const& pop_type = *pop.get_type();
		for(Job const& job : jobs) {
			if (job.get_pop_type() == &pop_type) {
				const Pop::pop_size_t pop_size_to_hire = static_cast<Pop::pop_size_t>((proportion_to_hire * pop.get_size()).floor());
				employee_count_per_type_cache[pop_type] += pop_size_to_hire;
				employees.emplace_back(pop, pop_size_to_hire);
				total_employees_count_cache += pop_size_to_hire;
				if (!pop_type.get_is_slave()) {
					total_paid_employees_count_cache += pop_size_to_hire;
				}
				break;
			}
		}
	}
}

fixed_point_t ResourceGatheringOperation::produce(
	ProvinceInstance& location,
	std::vector<Pop*>& owner_pops_cache,
	Pop::pop_size_t& total_owner_count_in_state_cache,
	ModifierEffectCache const& modifier_effect_cache,
	const fixed_point_t size_modifier
) {
	if (size_modifier == fixed_point_t::_0()){
		return fixed_point_t::_0();
	}

	total_owner_count_in_state_cache = 0;
	owner_pops_cache = {};
	if (production_type_nullable == nullptr || max_employee_count_cache <= 0) {
		return fixed_point_t::_0();
	}
	
	ProductionType const& production_type = *production_type_nullable;
	fixed_point_t throughput_multiplier = fixed_point_t::_1();
	fixed_point_t output_multilpier = fixed_point_t::_1();

	std::optional<Job> const& owner = production_type.get_owner();
	if (owner.has_value()) {
		Job const& owner_job = owner.value();
		PopType const* owner_job_pop_type_nullable = owner_job.get_pop_type();
		if (owner_job_pop_type_nullable == nullptr) {
			Logger::error("Owner job for ", production_type.get_identifier(), " has nullptr as pop_type.");
			return fixed_point_t::_0();
		}
		PopType const& owner_pop_type = *owner_job_pop_type_nullable;
		State const* state_nullable = location.get_state();
		if (state_nullable == nullptr) {
			Logger::error("Province ", location.get_identifier(), " has no state.");
			return fixed_point_t::_0();
		}
		State const& state = *state_nullable;
		Pop::pop_size_t state_population = 0; //state.get_total_population() is not filled yet
		std::vector<ProvinceInstance*> const& provinces_in_state = state.get_provinces();
		for (ProvinceInstance* const province_nullable : provinces_in_state) {
			if (province_nullable == nullptr) {
				Logger::error("State ", state.get_identifier(), " has nullptr in provinces.");
				return fixed_point_t::_0();
			}
			ProvinceInstance& province = *province_nullable;
			for (Pop& pop : province.get_mutable_pops()){
				state_population += pop.get_size();
				if (&owner_pop_type == pop.get_type()) {
					owner_pops_cache.push_back(&pop);
					total_owner_count_in_state_cache += pop.get_size();
				}
			}
		}

		if (total_owner_count_in_state_cache > 0) {
			switch (owner_job.get_effect_type()) {
				case Job::effect_t::OUTPUT:
					output_multilpier += owner_job.get_effect_multiplier() * total_owner_count_in_state_cache / state_population;
					break;
				case Job::effect_t::THROUGHPUT:
					throughput_multiplier += owner_job.get_effect_multiplier() * total_owner_count_in_state_cache / state_population;
					break;
				default:
					Logger::error("Invalid job effect in RGO ",production_type.get_identifier());
					break;
			}
		}
	}

	throughput_multiplier += location.get_modifier_effect_value_nullcheck(modifier_effect_cache.get_rgo_throughput())
		+location.get_modifier_effect_value_nullcheck(modifier_effect_cache.get_local_rgo_throughput());
	output_multilpier += location.get_modifier_effect_value_nullcheck(modifier_effect_cache.get_rgo_output())
		+location.get_modifier_effect_value_nullcheck(modifier_effect_cache.get_local_rgo_output());

	if (production_type.is_farm()) {
		throughput_multiplier += location.get_modifier_effect_value_nullcheck(modifier_effect_cache.get_farm_rgo_throughput_global());
		output_multilpier += location.get_modifier_effect_value_nullcheck(modifier_effect_cache.get_farm_rgo_output_global())
			+ location.get_modifier_effect_value_nullcheck(modifier_effect_cache.get_farm_rgo_output_local());
	}
	if (production_type.is_mine()) {
		throughput_multiplier += location.get_modifier_effect_value_nullcheck(modifier_effect_cache.get_mine_rgo_throughput_global());
		output_multilpier += location.get_modifier_effect_value_nullcheck(modifier_effect_cache.get_mine_rgo_output_global())
			+ location.get_modifier_effect_value_nullcheck(modifier_effect_cache.get_mine_rgo_output_local());
	}
	auto const& good_effects = modifier_effect_cache.get_good_effects()[production_type.get_output_good()];
	throughput_multiplier += location.get_modifier_effect_value_nullcheck(good_effects.get_rgo_goods_throughput());
	output_multilpier += location.get_modifier_effect_value_nullcheck(good_effects.get_rgo_goods_output());

	fixed_point_t throughput_from_workers = fixed_point_t::_0();
	fixed_point_t output_from_workers = fixed_point_t::_1();
	for (PopType const& pop_type : *employee_count_per_type_cache.get_keys()) {
		const Pop::pop_size_t employees_of_type = employee_count_per_type_cache[pop_type];
		
		for(Job const& job : production_type.get_jobs()) {
			if (job.get_pop_type() != &pop_type) {
				continue;
			}

			fixed_point_t const effect_multiplier = job.get_effect_multiplier();
			fixed_point_t relative_to_workforce = fixed_point_t::parse(employees_of_type) / fixed_point_t::parse(max_employee_count_cache);
			fixed_point_t const amount = job.get_amount();
			if (effect_multiplier != fixed_point_t::_1() && relative_to_workforce > amount) {
				relative_to_workforce = amount;
			}
			switch (job.get_effect_type()) {
				case Job::effect_t::OUTPUT:
					output_from_workers += effect_multiplier * relative_to_workforce;
					break;
				case Job::effect_t::THROUGHPUT:
					throughput_from_workers += effect_multiplier * relative_to_workforce;
					break;
				default:
					Logger::error("Invalid job effect in RGO ",production_type.get_identifier());
					break;
			}
		}
	}
	
	//if province is overseas multiply by (1 + overseas penalty)

	return production_type.get_base_output_quantity()
		* size_modifier * size_multiplier
		* throughput_multiplier * throughput_from_workers
		* output_multilpier * output_from_workers;
}

void ResourceGatheringOperation::pay_employees(
	ProvinceInstance& location,
	const fixed_point_t revenue,
	const Pop::pop_size_t total_worker_count_in_province,
	std::vector<Pop*>& owner_pops_cache,
	const Pop::pop_size_t total_owner_count_in_state_cache
) {
	total_owner_income_cache = 0;
	total_employee_income_cache = 0;
	if (production_type_nullable == nullptr || revenue <= 0 || total_worker_count_in_province <= 0) {
		if (revenue < 0) { Logger::error("Negative revenue for province ", location.get_identifier()); }
		if (total_worker_count_in_province < 0) { Logger::error("Negative total worker count for province ", location.get_identifier()); }
		return;
	}
	
	ProductionType const& production_type = *production_type_nullable;

	fixed_point_t revenue_left = revenue;
	if (total_owner_count_in_state_cache > 0) {
		Job const& owner_job = production_type.get_owner().value();
		PopType const* owner_job_pop_type_nullable = owner_job.get_pop_type();
		
		fixed_point_t owner_share = (fixed_point_t::_2() * total_owner_count_in_state_cache / total_worker_count_in_province);
		constexpr fixed_point_t upper_limit = fixed_point_t::_0_50();
		if (owner_share > upper_limit) {
			owner_share = upper_limit;
		}

		for(Pop* owner_pop_nullable : owner_pops_cache) {
			Pop& owner_pop = *owner_pop_nullable;
			const fixed_point_t income_for_this_pop = revenue_left * owner_share * owner_pop.get_size() / total_owner_count_in_state_cache;
			owner_pop.add_rgo_owner_income(income_for_this_pop);
			total_owner_income_cache += income_for_this_pop;
		}
		revenue_left *= (fixed_point_t::_1() - owner_share);
	}

	if (total_paid_employees_count_cache > 0) {
		for (Employee& employee : employees) {
			Pop& employee_pop = employee.pop;
			PopType const* employee_pop_type_nullable = employee_pop.get_type();
			if (employee_pop_type_nullable == nullptr) {
				Logger::error("employee has nullptr pop_type.");
				return;
			}
			PopType const& employee_pop_type = *employee_pop_type_nullable;
			if (employee_pop_type.get_is_slave()) {
				continue;
			}

			const Pop::pop_size_t employee_size = employee.get_size();
			const fixed_point_t income_for_this_pop = revenue_left * employee_size / total_paid_employees_count_cache;
			employee_pop.add_rgo_worker_income(income_for_this_pop);
			total_employee_income_cache += income_for_this_pop;
		}
	} else {
		//scenario slaves only
		//Money is removed from system in Victoria 2.
	}
}