#include "usql.h"
#include "exception.h"
#include "ml_date.h"
#include "ml_string.h"

#include <algorithm>

namespace usql {

std::unique_ptr<ValueNode> USql::to_char_function(const std::vector<std::unique_ptr<ValueNode>> &evaluatedPars) {
	if (evaluatedPars[0]->node_type == NodeType::int_value && evaluatedPars.size()==2) {		// TODO when propper date is introduced
		long date = evaluatedPars[0]->getDateValue();
		std::string format = evaluatedPars[1]->getStringValue();
		std::string formatted_date = date_to_string(date, format);
	
		return std::make_unique<StringValueNode>(formatted_date);
	} else {
		return std::make_unique<StringValueNode>(evaluatedPars[0]->getStringValue());
	}
}

std::unique_ptr<ValueNode> USql::to_int_function(const std::vector<std::unique_ptr<ValueNode>> &evaluatedPars) {
	return std::make_unique<IntValueNode>(evaluatedPars[0]->getIntegerValue());
}

std::unique_ptr<ValueNode> USql::to_float_function(const std::vector<std::unique_ptr<ValueNode>> &evaluatedPars) {
	return std::make_unique<DoubleValueNode>(evaluatedPars[0]->getDoubleValue());
}

std::unique_ptr<ValueNode> USql::to_date_function(const std::vector<std::unique_ptr<ValueNode>> &evaluatedPars) {
	std::string date = evaluatedPars[0]->getStringValue();
	std::string format = evaluatedPars[1]->getStringValue();
	long epoch_time = string_to_date(date, format);
	
	return std::make_unique<IntValueNode>(epoch_time);        // No DateValueNode for now
}

std::unique_ptr<ValueNode> USql::date_add_function(const std::vector<std::unique_ptr<ValueNode>> &evaluatedPars) {
	long datetime = evaluatedPars[0]->getDateValue();
	long quantity = evaluatedPars[1]->getIntegerValue();
	std::string part = evaluatedPars[2]->getStringValue();

	long new_date = add_to_date(datetime, quantity, part);
	
	return std::make_unique<IntValueNode>(new_date);        // No DateValueNode for now
}


std::unique_ptr<ValueNode> USql::lower_function(const std::vector<std::unique_ptr<ValueNode>> &evaluatedPars) {
	std::string str = evaluatedPars[0]->getStringValue();
	std::transform(str.begin(), str.end(), str.begin(), [](unsigned char c) -> unsigned char { return tolower(c); });
	
	return std::make_unique<StringValueNode>(str);
}

std::unique_ptr<ValueNode> USql::upper_function(const std::vector<std::unique_ptr<ValueNode>> &evaluatedPars) {
	std::string str = evaluatedPars[0]->getStringValue();
	std::transform(str.begin(), str.end(), str.begin(), [](unsigned char c) -> unsigned char { return toupper(c); });
	
	return std::make_unique<StringValueNode>(str);
}

std::unique_ptr<ValueNode> USql::coalesce_function(const std::vector<std::unique_ptr<ValueNode>> &evaluatedPars) {
	for(const auto & par : evaluatedPars) {
		if (!par->isNull()) {
			// TODO implement rest and take it out as a function
		 	if (par->node_type == NodeType::int_value)
				return std::make_unique<IntValueNode>(par->getIntegerValue());
		 	if (par->node_type == NodeType::float_value)
				return std::make_unique<DoubleValueNode>(par->getDoubleValue());
			if (par->node_type == NodeType::string_value)
				return std::make_unique<StringValueNode>(par->getStringValue());
			if (par->node_type == NodeType::bool_value)
				return std::make_unique<BooleanValueNode>(par->getBooleanValue());
		}
	}
	return std::make_unique<NullValueNode>();
}

std::unique_ptr<ValueNode> USql::pp_function(const std::vector<std::unique_ptr<ValueNode>> &evaluatedPars) {
	constexpr auto k_num_format_rpad = 10;
	constexpr auto k_num_format_maxlen = 20;

	auto &parsed_value = evaluatedPars[0];

	if (parsed_value->node_type == NodeType::int_value || parsed_value->node_type == NodeType::float_value) {
		std::string format = evaluatedPars.size() > 1 ? evaluatedPars[1]->getStringValue() : "";
		char buf[k_num_format_maxlen] {0};
		double value = parsed_value->getDoubleValue();

		if (format == "100%")
			std::snprintf(buf, k_num_format_maxlen, "%.2f%%", value);
		else if (format == "%.2f")
			std::snprintf(buf, k_num_format_maxlen, "%.2f", value);
		else if (value >= 1000000000000)
			std::snprintf(buf, k_num_format_maxlen, "%7.2fT", value/1000000000000);
		else if (value >= 1000000000)
			std::snprintf(buf, k_num_format_maxlen, "%7.2fB", value/1000000000);
		else if (value >= 1000000)
			std::snprintf(buf, k_num_format_maxlen, "%7.2fM", value/1000000);
		else if (value >= 100000)
			std::snprintf(buf, k_num_format_maxlen, "%7.2fM", value/100000);	// 0.12M
		else if (value <= -1000000000000)
			std::snprintf(buf, k_num_format_maxlen, "%7.2fT", value/1000000000000);
		else if (value <= -1000000000)
			std::snprintf(buf, k_num_format_maxlen, "%7.2fB", value/1000000000);
		else if (value <= -1000000)
			std::snprintf(buf, k_num_format_maxlen, "%7.2fM", value/1000000);
		else if (value <= -100000)
			std::snprintf(buf, k_num_format_maxlen, "%7.2fM", value/100000);	// 0.12M
		else if (value == 0)
			buf[0]='0';
		else
			return std::make_unique<StringValueNode>(parsed_value->getStringValue().substr(0, k_num_format_rpad));

		std::string s {buf};
		return std::make_unique<StringValueNode>(string_padd(s.erase(s.find_last_not_of(' ') + 1), k_num_format_rpad, ' ', false));
	}

	return std::make_unique<StringValueNode>(parsed_value->getStringValue());
}

std::unique_ptr<ValueNode> USql::max_function(const std::vector<std::unique_ptr<ValueNode>> &evaluatedPars, const ColDefNode *col_def_node, ColValue *agg_func_value) {
	if (col_def_node->type == ColumnType::integer_type || col_def_node->type == ColumnType::date_type) {
		if (!evaluatedPars[0]->isNull()) {
			auto val = evaluatedPars[0]->getIntegerValue();
			if (agg_func_value->isNull())
				return std::make_unique<IntValueNode>(val);
			else
				return std::make_unique<IntValueNode>(std::max(val, agg_func_value->getIntegerValue()));
		} else {
			return std::make_unique<IntValueNode>(agg_func_value->getIntegerValue());
		}
	} else if (col_def_node->type == ColumnType::float_type) {
		if (!evaluatedPars[0]->isNull()) {
			auto val = evaluatedPars[0]->getDoubleValue();
			if (agg_func_value->isNull())
				return std::make_unique<DoubleValueNode>(val);
			else
				return std::make_unique<DoubleValueNode>(std::max(val, agg_func_value->getDoubleValue()));
		} else {
			return std::make_unique<DoubleValueNode>(agg_func_value->getDoubleValue());
		}
	} else if (col_def_node->type == ColumnType::varchar_type) {
		if (!evaluatedPars[0]->isNull()) {
			auto val = evaluatedPars[0]->getStringValue();
			if (agg_func_value->isNull())
				return std::make_unique<StringValueNode>(val);
			else
				return std::make_unique<StringValueNode>(std::max(val, agg_func_value->getStringValue()));
		} else {
			return std::make_unique<StringValueNode>(agg_func_value->getStringValue());
		}
	}

	throw Exception("unsupported data type for max function");
}

std::unique_ptr<ValueNode> USql::min_function(const std::vector<std::unique_ptr<ValueNode>> &evaluatedPars, const ColDefNode *col_def_node,
		   ColValue *agg_func_value) {
	if (col_def_node->type == ColumnType::integer_type || col_def_node->type == ColumnType::date_type) {
		if (!evaluatedPars[0]->isNull()) {
			long val = evaluatedPars[0]->getIntegerValue();
			if (agg_func_value->isNull())
				return std::make_unique<IntValueNode>(val);
			else
				return std::make_unique<IntValueNode>(std::min(val, agg_func_value->getIntegerValue()));
		} else {
			return std::make_unique<IntValueNode>(agg_func_value->getIntegerValue());
		}
	} else if (col_def_node->type == ColumnType::float_type) {
		if (!evaluatedPars[0]->isNull()) {
			double val = evaluatedPars[0]->getDoubleValue();
			if (agg_func_value->isNull())
				return std::make_unique<DoubleValueNode>(val);
			else
				return std::make_unique<DoubleValueNode>(std::min(val, agg_func_value->getDoubleValue()));
		} else {
			return std::make_unique<DoubleValueNode>(agg_func_value->getDoubleValue());
		}
	} else if (col_def_node->type == ColumnType::varchar_type) {
		if (!evaluatedPars[0]->isNull()) {
			auto val = evaluatedPars[0]->getStringValue();
			if (agg_func_value->isNull())
				return std::make_unique<StringValueNode>(val);
			else
				return std::make_unique<StringValueNode>(std::min(val, agg_func_value->getStringValue()));
		} else {
			return std::make_unique<StringValueNode>(agg_func_value->getStringValue());
		}
	}

	throw Exception("unsupported data type for min function");
}

std::unique_ptr<ValueNode> USql::count_function(ColValue *agg_func_value, const std::vector<std::unique_ptr<ValueNode>> &evaluatedPars) {
	long c = 1;
	if (!agg_func_value->isNull()) {
		c = agg_func_value->getIntegerValue() + 1;
	}
	return std::make_unique<IntValueNode>(c);
}

}	// namespace