/**
 * @file rtc_helper.cpp
 * @brief Real Time Clock helper
 *
 * @date Feb 5, 2014
 * @author Andrey Belomutskiy, (c) 2012-2020
 */

#include "pch.h"

#include <string.h> 
#include <time.h>

#include "rtc_helper.h"
#include <sys/time.h>

void date_set_tm(tm *timp) {
	(void)timp;
#if EFI_RTC
	RTCDateTime timespec;
	rtcConvertStructTmToDateTime(timp, 0, &timespec);
	rtcSetTime(&RTCD1, &timespec);
#endif /* EFI_RTC */
}

void date_get_tm(tm *timp) {
	(void)timp;
#if EFI_RTC
	RTCDateTime timespec;
	rtcGetTime(&RTCD1, &timespec);
	rtcConvertDateTimeToStructTm(&timespec, timp, NULL);
#endif /* EFI_RTC */
}

#if EFI_PROD_CODE
// Lua needs this function, but we don't necessarily have to implement it
extern "C" int _gettimeofday(timeval* tv, void* tzvp) {
	(void)tv; (void)tzvp;
	return 0;
}
#endif

#if EFI_RTC
static time_t GetTimeUnixSec() {
	tm tim;
	RTCDateTime timespec;

	rtcGetTime(&RTCD1, &timespec);
	rtcConvertDateTimeToStructTm(&timespec, &tim, NULL);
	time_t result = mktime(&tim);

	return result;
}

static void SetTimeUnixSec(time_t unix_time) {
	tm tim;

#if defined __GNUC__
	tm *canary;
	/* If the conversion is successful the function returns a pointer
		to the object the result was written into.*/
	canary = localtime_r(&unix_time, &tim);
	osalDbgCheck(&tim == canary);
#else
	tm *t = localtime(&unix_time);
	memcpy(&tim, t, sizeof(tm));
#endif

	RTCDateTime timespec;
	rtcConvertStructTmToDateTime(&tim, 0, &timespec);
	rtcSetTime(&RTCD1, &timespec);
}

static void put2(int offset, char *lcd_str, int value) {
	static char buff[_MAX_FILLER];
	efiAssertVoid(CUSTOM_ERR_6666, value >=0 && value <100, "value");
	itoa10(buff, value);
	if (value < 10) {
		lcd_str[offset] = '0';
		lcd_str[offset + 1] = buff[0];
	} else {
		lcd_str[offset] = buff[0];
		lcd_str[offset + 1] = buff[1];
	}
}

/**
 * @return true if we seem to know current date, false if no valid RTC state
 */
bool dateToStringShort(char *lcd_str) {
	strcpy(lcd_str, "000000_000000\0");
	tm timp;
	date_get_tm(&timp);
	if (timp.tm_year < 116 || timp.tm_year > 130) {
		// 2016 to 2030 is the valid range
		lcd_str[0] = 0;
		return false;
	}

	put2(0, lcd_str, timp.tm_year % 100);	// Years since 1900 - format as just the last two digits
	put2(2, lcd_str, timp.tm_mon + 1);		// months since January	0-11
	put2(4, lcd_str, timp.tm_mday);			// day of the month	1-31

	put2(7, lcd_str, timp.tm_hour);			// hours since midnight	0-23
	put2(9, lcd_str, timp.tm_min);			// Minutes
	put2(11, lcd_str, timp.tm_sec);			// seconds

	return true;
}

void dateToString(char *lcd_str) {
	// todo:
	// re-implement this along the lines of 	chvprintf("%04u-%02u-%02u %02u:%02u:%02u\r\n", timp.tm_year + 1900, timp.tm_mon + 1, timp.tm_mday, timp.tm_hour,
	// timp.tm_min, timp.tm_sec);
	// this would require a temporary mem stream - see datalogging and other existing usages

	strcpy(lcd_str, "00/00 00:00:00\0");
	tm timp;
	date_get_tm(&timp);			// get RTC date/time
	
	put2(0, lcd_str, timp.tm_mon + 1);
	put2(3, lcd_str, timp.tm_mday);
	put2(6, lcd_str, timp.tm_hour);
	put2(9, lcd_str, timp.tm_min);
	put2(12, lcd_str, timp.tm_sec);
}

static const char* const months[] = { "Jan", "Feb", "Mar", "Apr", "May", "Jun", "Jul", "Aug", "Sep", "Oct", "Nov", "Dec" };

void printDateTime() {
	tm timp;

	time_t unix_time = GetTimeUnixSec();
	if (unix_time == -1) {
		efiPrintf("invalid time in RTC cell");
	} else {
		efiPrintf("Current Unix time: %d", unix_time);
		date_get_tm(&timp);

		auto month = months[timp.tm_mon];

		// Prints something like "19 Sep 2022 21:19:55"
		efiPrintf("Current RTC time is: %02u %s %04u %02u:%02u:%02u", timp.tm_mday, month, timp.tm_year + 1900, timp.tm_hour, timp.tm_min, timp.tm_sec);
	}
}

void setDateTime(const char *strDate) {
	if (strlen(strDate) > 0) {
		time_t unix_time = atoi(strDate);
		if (unix_time > 0) {
			SetTimeUnixSec(unix_time);
			printDateTime();
			return;
		}
	}
	efiPrintf("date_set Date parameter %s is wrong", strDate);
}

#else /* EFI_RTC */

bool dateToStringShort(char *lcd_str) {
	lcd_str[0] = 0;
	return false;
}

void dateToString(char *lcd_str) {
	lcd_str[0] = 0;
}

#endif

void initRtc() {
#if EFI_RTC
	GetTimeUnixSec(); // this would test RTC, see 'rtcWorks' variable, see #311
	efiPrintf("initRtc()");

	printDateTime();
#endif /* EFI_RTC */
}