#include <stdbool.h>
#include <stdint.h>
#include <stddef.h>
#include <sysdefs/time.h>

bool time_isleap(uint32_t y) {
  return ((y % 4 == 0) && (y % 100 != 0) || (y % 400 == 0));
}

const uint16_t days_before_month[12] = { 0, 31, 59, 90, 120, 151, 181, 212, 243, 273, 304, 334 };

timeunix_t time_tounix(Time *time) {
  uint64_t days = 0;
  for (uint32_t y = 1970; y < time->year; y++) {
    days += time_isleap(y) ? 366 : 365;
  }

  days += days_before_month[time->month - 1];

  if (time->month > 2 && time_isleap(time->year)) {
    days += 1;
  }

  days += time->day - 1;

  uint64_t secs = days * 86400;
  secs += time->hour * 3600;
  secs += time->minute * 60;
  secs += time->second;
  return secs;
}

void timeunix_totime(timeunix_t unix, Time *time) {
  uint64_t days = unix / 86400;
  uint32_t rem = days % 86400;

  time->hour = rem / 3600;
  time->minute = (rem % 3600) / 60;
  time->second = rem % 60;

  uint32_t year = 1970;
  for (;;) {
    uint32_t ydays = time_isleap(year) ? 366 : 365;
    if (days >= ydays) {
      days -= ydays;
      year++;
    } else {
      break;
    }
  }
  time->year = year;

  bool leap = time_isleap(year);
  uint32_t month = 0;
  while (month < 11) {
    uint32_t next = days_before_month[month + 1];
    if (leap && month + 1 > 1) {
      next++;
    }
    if (days < next) {
      break;
    }
    month++;
  }

  uint32_t month_start = days_before_month[month];
  if (leap && month > 1) {
    month_start++;
  }

  time->month = month + 1;
  time->day = (days - month_start) + 1;
}

uint32_t time_totalhours(Time *time) {
  uint32_t days = 0;
  for (uint32_t y = 1970; y < time->year; y++) {
    days += time_isleap(y) ? 366 : 365;
  }

  days += days_before_month[time->month - 1];
  if (time->month > 2 && time_isleap(time->year)) {
    days += 1;
  }

  days += (time->day - 1);

  uint32_t total = days * 24 + time->hour;
  return total;
}
