#pragma once

#include "i18n.qh"

// ===============================================
//  Time processing and counting functions/macros
// ===============================================

#define count_years_decs(time, decs) sprintf(CTX(_("CI_DEC^%s years")), ftos_decimals(time, decs))
#define count_years(time) \
	count_fill(time, \
	_("CI_ZER^%d years"), /* zeroth */ \
	_("CI_FIR^%d year"),  /* first */ \
	_("CI_SEC^%d years"), /* year */ \
	_("CI_THI^%d years"), /* third */ \
	_("CI_MUL^%d years")) /* multi */

#define count_weeks_decs(time, decs) sprintf(CTX(_("CI_DEC^%s weeks")), ftos_decimals(time, decs))
#define count_weeks(time) \
	count_fill(time, \
	_("CI_ZER^%d weeks"), /* zeroth */ \
	_("CI_FIR^%d week"),  /* first */ \
	_("CI_SEC^%d weeks"), /* week */ \
	_("CI_THI^%d weeks"), /* third */ \
	_("CI_MUL^%d weeks")) /* multi */

#define count_days_decs(time, decs) sprintf(CTX(_("CI_DEC^%s days")), ftos_decimals(time, decs))
#define count_days(time) \
	count_fill(time, \
	_("CI_ZER^%d days"), /* zeroth */ \
	_("CI_FIR^%d day"),  /* first */ \
	_("CI_SEC^%d days"), /* day */ \
	_("CI_THI^%d days"), /* third */ \
	_("CI_MUL^%d days")) /* multi */

#define count_hours_decs(time, decs) sprintf(CTX(_("CI_DEC^%s hours")), ftos_decimals(time, decs))
#define count_hours(time) \
	count_fill(time, \
	_("CI_ZER^%d hours"), /* zeroth */ \
	_("CI_FIR^%d hour"),  /* first */ \
	_("CI_SEC^%d hours"), /* hour */ \
	_("CI_THI^%d hours"), /* third */ \
	_("CI_MUL^%d hours")) /* multi */


#define count_minutes_decs(time, decs) sprintf(CTX(_("CI_DEC^%s minutes")), ftos_decimals(time, decs))
#define count_minutes(time) \
	count_fill(time, \
	_("CI_ZER^%d minutes"), /* zeroth */ \
	_("CI_FIR^%d minute"),  /* first */ \
	_("CI_SEC^%d minutes"), /* minute */ \
	_("CI_THI^%d minutes"), /* third */ \
	_("CI_MUL^%d minutes")) /* multi */

#define count_seconds_decs(time, decs) sprintf(CTX(_("CI_DEC^%s seconds")), ftos_decimals(time, decs))
#define count_seconds(time) \
	count_fill(time, \
	_("CI_ZER^%d seconds"), /* zeroth */ \
	_("CI_FIR^%d second"),  /* first */ \
	_("CI_SEC^%d seconds"), /* second */ \
	_("CI_THI^%d seconds"), /* third */ \
	_("CI_MUL^%d seconds")) /* multi */

string count_ordinal(int interval)
{
	// This function is designed primarily for the English language, it's impossible
	// to accomodate all languages unless we do a specific function for each one...
	// and since that's not technically feasible/practical, this is all we've got folks.

	// Basically, it just allows you to represent a number or count in different ways
	// depending on the number... like, with count_ordinal you can provide integers
	// and retrieve 1st, 2nd, 3rd, nth ordinal numbers in a clean and simple way.
	if (floor((interval % 100) / 10) * 10 != 10)  // examples: 12th, 111th, 213th will not execute this block
	{
		// otherwise, check normally for 1st,2nd,3rd insertions
		switch (interval % 10)
		{
			case 1: return sprintf(_("%dst"), interval);
			case 2: return sprintf(_("%dnd"), interval);
			case 3: return sprintf(_("%drd"), interval);
			default: return sprintf(_("%dth"), interval);
		}
	}
	else { return sprintf(_("%dth"), interval); }

	return "";
}

string count_fill(float interval, string zeroth, string first, string second, string third, string multi)
{
	// This function is designed primarily for the English language, it's impossible
	// to accomodate all languages unless we do a specific function for each one...
	// and since that's not technically feasible/practical, this is all we've got folks.

	// Here you can insert specific strings based on the interval number, so you could do
	// i.e. count_seconds which outputs like this:
	//   0 seconds
	//   1 second
	//   2 seconds
	//   3 seconds
	//   etc... minutes, hours, days, etc.

	switch (floor(interval))
	{
		case 0: return sprintf(CTX(zeroth), interval);
		case 1:
		{
			if (interval == 1)  // EXACTLY value of 1
				return sprintf(CTX(first), interval);
			else return sprintf(CTX(multi), interval);
		}
		case 2: return sprintf(CTX(second), interval);
		case 3: return sprintf(CTX(third), interval);
		default: return sprintf(CTX(multi), interval);
	}
	return "";
}

string process_time(float outputtype, float seconds)
{
	float tmp_hours = 0, tmp_minutes = 0, tmp_seconds = 0;
	float tmp_years = 0, tmp_weeks = 0, tmp_days = 0;

	tmp_seconds = floor(seconds);

	if (tmp_seconds)
	{
		tmp_minutes = floor(tmp_seconds / 60);

		if (tmp_minutes)
		{
			tmp_seconds -= (tmp_minutes * 60);
			tmp_hours = floor(tmp_minutes / 60);

			if (tmp_hours)
			{
				tmp_minutes -= (tmp_hours * 60);
				tmp_days = floor(tmp_hours / 24);

				if (tmp_days)
				{
					tmp_hours -= (tmp_days * 24);
					tmp_weeks = floor(tmp_days / 7);

					if (tmp_weeks)
					{
						tmp_days -= (tmp_weeks * 7);
						tmp_years = floor(tmp_weeks / 52);
					}
				}
			}
		}
	}

	switch (outputtype)
	{
		case 1: return sprintf("%02d:%02d:%02d", tmp_hours, tmp_minutes, tmp_seconds);
		case 2:
		{
			string output = "";

			output = count_seconds(tmp_seconds);

			if (tmp_minutes)
			{
				output = sprintf(
					"%s%s",
					count_minutes(tmp_minutes),
					((output != "") ? sprintf(", %s", output) : ""));
			}

			if (tmp_hours)
			{
				output = sprintf(
					"%s%s",
					count_hours(tmp_hours),
					((output != "") ? sprintf(", %s", output) : ""));
			}

			if (tmp_days)
			{
				output = sprintf(
					"%s%s",
					count_days(tmp_days),
					((output != "") ? sprintf(", %s", output) : ""));
			}

			if (tmp_weeks)
			{
				output = sprintf(
					"%s%s",
					count_weeks(tmp_weeks),
					((output != "") ? sprintf(", %s", output) : ""));
			}

			if (tmp_years)
			{
				output = sprintf(
					"%s%s",
					count_years(tmp_years),
					((output != "") ? sprintf(", %s", output) : ""));
			}

			return output;
		}
		case 3:
		{
			string output = "";

			output = count_hours(tmp_hours);

			if (tmp_weeks) tmp_days += (tmp_weeks * 7);
			if (tmp_years) tmp_days += (tmp_years * 365);
			if (tmp_days)
			{
				output = sprintf(
					"%s%s",
					count_days(tmp_days),
					((output != "") ? sprintf(", %s", output) : ""));
			}

			return output;
		}
	}
	return "";
}