From 4231789b71bb42c4ab04e125f98fe5eb3cf030b6 Mon Sep 17 00:00:00 2001 From: Bruce Hill Date: Sun, 17 Nov 2024 14:49:03 -0500 Subject: Rename datetime -> moment --- stdlib/datatypes.h | 4 +- stdlib/datetime.c | 317 ----------------------------------------------------- stdlib/datetime.h | 43 -------- stdlib/moments.c | 317 +++++++++++++++++++++++++++++++++++++++++++++++++++++ stdlib/moments.h | 43 ++++++++ stdlib/optionals.c | 6 +- stdlib/optionals.h | 2 +- stdlib/paths.c | 18 +-- stdlib/paths.h | 6 +- stdlib/tomo.h | 2 +- 10 files changed, 379 insertions(+), 379 deletions(-) delete mode 100644 stdlib/datetime.c delete mode 100644 stdlib/datetime.h create mode 100644 stdlib/moments.c create mode 100644 stdlib/moments.h (limited to 'stdlib') diff --git a/stdlib/datatypes.h b/stdlib/datatypes.h index f033a21a..5dddaa0f 100644 --- a/stdlib/datatypes.h +++ b/stdlib/datatypes.h @@ -90,8 +90,8 @@ typedef struct Text_s { #define Pattern_t Text_t #define OptionalPattern_t Text_t -typedef struct timeval DateTime_t; -#define OptionalDateTime_t DateTime_t +typedef struct timeval Moment_t; +#define OptionalMoment_t Moment_t typedef struct RNGState_t* RNG_t; diff --git a/stdlib/datetime.c b/stdlib/datetime.c deleted file mode 100644 index b73c583e..00000000 --- a/stdlib/datetime.c +++ /dev/null @@ -1,317 +0,0 @@ -// DateTime methods/type info -#include -#include -#include -#include -#include -#include - -#include "datatypes.h" -#include "datetime.h" -#include "optionals.h" -#include "patterns.h" -#include "stdlib.h" -#include "text.h" -#include "util.h" - -static OptionalText_t _local_timezone = NULL_TEXT; - -#define WITH_TIMEZONE(tz, body) ({ if (tz.length >= 0) { \ - OptionalText_t old_timezone = _local_timezone; \ - DateTime$set_local_timezone(tz); \ - body; \ - DateTime$set_local_timezone(old_timezone); \ - } else { \ - body; \ - }}) - -public Text_t DateTime$as_text(const DateTime_t *dt, bool colorize, const TypeInfo_t *type) -{ - (void)type; - if (!dt) - return Text("DateTime"); - - struct tm info; - struct tm *final_info = localtime_r(&dt->tv_sec, &info); - static char buf[256]; - size_t len = strftime(buf, sizeof(buf), "%c %Z", final_info); - Text_t text = Text$format("%.*s", (int)len, buf); - if (colorize) - text = Text$concat(Text("\x1b[36m"), text, Text("\x1b[m")); - return text; -} - -PUREFUNC public int32_t DateTime$compare(const DateTime_t *a, const DateTime_t *b, const TypeInfo_t *type) -{ - (void)type; - if (a->tv_sec != b->tv_sec) - return (a->tv_sec > b->tv_sec) - (a->tv_sec < b->tv_sec); - return (a->tv_usec > b->tv_usec) - (a->tv_usec < b->tv_usec); -} - -public DateTime_t DateTime$now(void) -{ - struct timespec ts; - if (clock_gettime(CLOCK_REALTIME, &ts) != 0) - fail("Couldn't get the time!"); - return (DateTime_t){.tv_sec=ts.tv_sec, .tv_usec=ts.tv_nsec}; -} - -public DateTime_t DateTime$new(Int_t year, Int_t month, Int_t day, Int_t hour, Int_t minute, double second, OptionalText_t timezone) -{ - struct tm info = { - .tm_min=Int_to_Int32(minute, false), - .tm_hour=Int_to_Int32(hour, false), - .tm_mday=Int_to_Int32(day, false), - .tm_mon=Int_to_Int32(month, false) - 1, - .tm_year=Int_to_Int32(year, false) - 1900, - .tm_isdst=-1, - }; - - time_t t; - WITH_TIMEZONE(timezone, t = mktime(&info)); - return (DateTime_t){.tv_sec=t + (time_t)second, .tv_usec=(suseconds_t)(fmod(second, 1.0) * 1e9)}; -} - -public DateTime_t DateTime$after(DateTime_t dt, double seconds, double minutes, double hours, Int_t days, Int_t weeks, Int_t months, Int_t years, OptionalText_t timezone) -{ - double offset = seconds + 60.*minutes + 3600.*hours; - dt.tv_sec += (time_t)offset; - - struct tm info = {}; - WITH_TIMEZONE(timezone, localtime_r(&dt.tv_sec, &info)); - - info.tm_mday += Int_to_Int32(days, false) + 7*Int_to_Int32(weeks, false); - info.tm_mon += Int_to_Int32(months, false); - info.tm_year += Int_to_Int32(years, false); - - time_t t = mktime(&info); - return (DateTime_t){ - .tv_sec=t, - .tv_usec=dt.tv_usec + (suseconds_t)(fmod(offset, 1.0) * 1e9), - }; -} - -CONSTFUNC public double DateTime$seconds_till(DateTime_t now, DateTime_t then) -{ - return (double)(then.tv_sec - now.tv_sec) + 1e-9*(double)(then.tv_usec - now.tv_usec); -} - -CONSTFUNC public double DateTime$minutes_till(DateTime_t now, DateTime_t then) -{ - return DateTime$seconds_till(now, then)/60.; -} - -CONSTFUNC public double DateTime$hours_till(DateTime_t now, DateTime_t then) -{ - return DateTime$seconds_till(now, then)/3600.; -} - -public void DateTime$get( - DateTime_t dt, Int_t *year, Int_t *month, Int_t *day, Int_t *hour, Int_t *minute, Int_t *second, - Int_t *nanosecond, Int_t *weekday, OptionalText_t timezone) -{ - struct tm info = {}; - WITH_TIMEZONE(timezone, localtime_r(&dt.tv_sec, &info)); - - if (year) *year = I(info.tm_year + 1900); - if (month) *month = I(info.tm_mon + 1); - if (day) *day = I(info.tm_mday); - if (hour) *hour = I(info.tm_hour); - if (minute) *minute = I(info.tm_min); - if (second) *second = I(info.tm_sec); - if (nanosecond) *nanosecond = I(dt.tv_usec); - if (weekday) *weekday = I(info.tm_wday + 1); -} - -public Int_t DateTime$year(DateTime_t dt, OptionalText_t timezone) -{ - struct tm info = {}; - WITH_TIMEZONE(timezone, localtime_r(&dt.tv_sec, &info)); - return I(info.tm_year + 1900); -} - -public Int_t DateTime$month(DateTime_t dt, OptionalText_t timezone) -{ - struct tm info = {}; - WITH_TIMEZONE(timezone, localtime_r(&dt.tv_sec, &info)); - return I(info.tm_mon + 1); -} - -public Int_t DateTime$day_of_week(DateTime_t dt, OptionalText_t timezone) -{ - struct tm info = {}; - WITH_TIMEZONE(timezone, localtime_r(&dt.tv_sec, &info)); - return I(info.tm_wday + 1); -} - -public Int_t DateTime$day_of_month(DateTime_t dt, OptionalText_t timezone) -{ - struct tm info = {}; - WITH_TIMEZONE(timezone, localtime_r(&dt.tv_sec, &info)); - return I(info.tm_mday); -} - -public Int_t DateTime$day_of_year(DateTime_t dt, OptionalText_t timezone) -{ - struct tm info = {}; - WITH_TIMEZONE(timezone, localtime_r(&dt.tv_sec, &info)); - return I(info.tm_yday); -} - -public Int_t DateTime$hour(DateTime_t dt, OptionalText_t timezone) -{ - struct tm info = {}; - WITH_TIMEZONE(timezone, localtime_r(&dt.tv_sec, &info)); - return I(info.tm_hour); -} - -public Int_t DateTime$minute(DateTime_t dt, OptionalText_t timezone) -{ - struct tm info = {}; - WITH_TIMEZONE(timezone, localtime_r(&dt.tv_sec, &info)); - return I(info.tm_min); -} - -public Int_t DateTime$second(DateTime_t dt, OptionalText_t timezone) -{ - struct tm info = {}; - WITH_TIMEZONE(timezone, localtime_r(&dt.tv_sec, &info)); - return I(info.tm_sec); -} - -public Int_t DateTime$nanosecond(DateTime_t dt, OptionalText_t timezone) -{ - (void)timezone; - return I(dt.tv_usec); -} - -public Text_t DateTime$format(DateTime_t dt, Text_t fmt, OptionalText_t timezone) -{ - struct tm info; - WITH_TIMEZONE(timezone, localtime_r(&dt.tv_sec, &info)); - static char buf[256]; - size_t len = strftime(buf, sizeof(buf), Text$as_c_string(fmt), &info); - return Text$format("%.*s", (int)len, buf); -} - -public Text_t DateTime$date(DateTime_t dt, OptionalText_t timezone) -{ - return DateTime$format(dt, Text("%F"), timezone); -} - -public Text_t DateTime$time(DateTime_t dt, bool seconds, bool am_pm, OptionalText_t timezone) -{ - Text_t text; - if (seconds) - text = DateTime$format(dt, am_pm ? Text("%l:%M:%S%P") : Text("%T"), timezone); - else - text = DateTime$format(dt, am_pm ? Text("%l:%M%P") : Text("%H:%M"), timezone); - return Text$trim(text, Pattern(" "), true, true); -} - -public OptionalDateTime_t DateTime$parse(Text_t text, Text_t format) -{ - struct tm info = {.tm_isdst=-1}; - const char *str = Text$as_c_string(text); - const char *fmt = Text$as_c_string(format); - if (strstr(fmt, "%Z")) - fail("The %%Z specifier is not supported for time parsing!"); - - char *invalid = strptime(str, fmt, &info); - if (!invalid || invalid[0] != '\0') - return NULL_DATETIME; - - long offset = info.tm_gmtoff; // Need to cache this because mktime() mutates it to local timezone >:( - time_t t = mktime(&info); - return (DateTime_t){.tv_sec=t + offset - info.tm_gmtoff}; -} - -static INLINE Text_t num_format(long n, const char *unit) -{ - if (n == 0) - return Text("now"); - return Text$format((n == 1 || n == -1) ? "%ld %s %s" : "%ld %ss %s", n < 0 ? -n : n, unit, n < 0 ? "ago" : "later"); -} - -public Text_t DateTime$relative(DateTime_t dt, DateTime_t relative_to, OptionalText_t timezone) -{ - struct tm info = {}; - struct tm relative_info = {}; - WITH_TIMEZONE(timezone, { - localtime_r(&dt.tv_sec, &info); - localtime_r(&relative_to.tv_sec, &relative_info); - }); - - double second_diff = DateTime$seconds_till(relative_to, dt); - if (info.tm_year != relative_info.tm_year && fabs(second_diff) > 365.*24.*60.*60.) - return num_format((long)info.tm_year - (long)relative_info.tm_year, "year"); - else if (info.tm_mon != relative_info.tm_mon && fabs(second_diff) > 31.*24.*60.*60.) - return num_format(12*((long)info.tm_year - (long)relative_info.tm_year) + (long)info.tm_mon - (long)relative_info.tm_mon, "month"); - else if (info.tm_yday != relative_info.tm_yday && fabs(second_diff) > 24.*60.*60.) - return num_format(round(second_diff/(24.*60.*60.)), "day"); - else if (info.tm_hour != relative_info.tm_hour && fabs(second_diff) > 60.*60.) - return num_format(round(second_diff/(60.*60.)), "hour"); - else if (info.tm_min != relative_info.tm_min && fabs(second_diff) > 60.) - return num_format(round(second_diff/(60.)), "minute"); - else { - if (fabs(second_diff) < 1e-6) - return num_format((long)(second_diff*1e9), "nanosecond"); - else if (fabs(second_diff) < 1e-3) - return num_format((long)(second_diff*1e6), "microsecond"); - else if (fabs(second_diff) < 1.0) - return num_format((long)(second_diff*1e3), "millisecond"); - else - return num_format((long)(second_diff), "second"); - } -} - -CONSTFUNC public Int64_t DateTime$unix_timestamp(DateTime_t dt) -{ - return (Int64_t)dt.tv_sec; -} - -CONSTFUNC public DateTime_t DateTime$from_unix_timestamp(Int64_t timestamp) -{ - return (DateTime_t){.tv_sec=(time_t)timestamp}; -} - -public void DateTime$set_local_timezone(OptionalText_t timezone) -{ - if (timezone.length >= 0) { - setenv("TZ", Text$as_c_string(timezone), 1); - } else { - unsetenv("TZ"); - } - _local_timezone = timezone; - tzset(); -} - -public Text_t DateTime$get_local_timezone(void) -{ - if (_local_timezone.length < 0) { - static char buf[PATH_MAX]; - ssize_t len = readlink("/etc/localtime", buf, sizeof(buf)); - if (len < 0) - fail("Could not get local timezone!"); - - char *zoneinfo = strstr(buf, "/zoneinfo/"); - if (zoneinfo) - _local_timezone = Text$from_str(zoneinfo + strlen("/zoneinfo/")); - else - fail("Could not resolve local timezone!"); - } - return _local_timezone; -} - -public const TypeInfo_t DateTime$info = { - .size=sizeof(DateTime_t), - .align=__alignof__(DateTime_t), - .tag=CustomInfo, - .CustomInfo={ - .as_text=(void*)DateTime$as_text, - .compare=(void*)DateTime$compare, - }, -}; - -// vim: ts=4 sw=0 et cino=L2,l1,(0,W4,m1,\:0 diff --git a/stdlib/datetime.h b/stdlib/datetime.h deleted file mode 100644 index ccbc5190..00000000 --- a/stdlib/datetime.h +++ /dev/null @@ -1,43 +0,0 @@ -#pragma once - -// DateTime objects - -#include - -#include "datatypes.h" -#include "integers.h" -#include "optionals.h" -#include "types.h" -#include "util.h" - -Text_t DateTime$as_text(const DateTime_t *dt, bool colorize, const TypeInfo_t *type); -PUREFUNC int32_t DateTime$compare(const DateTime_t *a, const DateTime_t *b, const TypeInfo_t *type); -DateTime_t DateTime$now(void); -DateTime_t DateTime$new(Int_t year, Int_t month, Int_t day, Int_t hour, Int_t minute, double second, OptionalText_t timezone); -DateTime_t DateTime$after(DateTime_t dt, double seconds, double minutes, double hours, Int_t days, Int_t weeks, Int_t months, Int_t years, OptionalText_t timezone); -CONSTFUNC double DateTime$seconds_till(DateTime_t now, DateTime_t then); -CONSTFUNC double DateTime$minutes_till(DateTime_t now, DateTime_t then); -CONSTFUNC double DateTime$hours_till(DateTime_t now, DateTime_t then); -Int_t DateTime$year(DateTime_t dt, OptionalText_t timezone); -Int_t DateTime$month(DateTime_t dt, OptionalText_t timezone); -Int_t DateTime$day_of_week(DateTime_t dt, OptionalText_t timezone); -Int_t DateTime$day_of_month(DateTime_t dt, OptionalText_t timezone); -Int_t DateTime$day_of_year(DateTime_t dt, OptionalText_t timezone); -Int_t DateTime$hour(DateTime_t dt, OptionalText_t timezone); -Int_t DateTime$minute(DateTime_t dt, OptionalText_t timezone); -Int_t DateTime$second(DateTime_t dt, OptionalText_t timezone); -Int_t DateTime$nanosecond(DateTime_t dt, OptionalText_t timezone); -Text_t DateTime$format(DateTime_t dt, Text_t fmt, OptionalText_t timezone); -Text_t DateTime$date(DateTime_t dt, OptionalText_t timezone); -Text_t DateTime$time(DateTime_t dt, bool seconds, bool am_pm, OptionalText_t timezone); -OptionalDateTime_t DateTime$parse(Text_t text, Text_t format); -Text_t DateTime$relative(DateTime_t dt, DateTime_t relative_to, OptionalText_t timezone); -CONSTFUNC Int64_t DateTime$unix_timestamp(DateTime_t dt); -CONSTFUNC DateTime_t DateTime$from_unix_timestamp(Int64_t timestamp); -void DateTime$set_local_timezone(OptionalText_t timezone); -Text_t DateTime$get_local_timezone(void); - -extern const TypeInfo_t DateTime$info; - -// vim: ts=4 sw=0 et cino=L2,l1,(0,W4,m1,\:0 - diff --git a/stdlib/moments.c b/stdlib/moments.c new file mode 100644 index 00000000..955d5e93 --- /dev/null +++ b/stdlib/moments.c @@ -0,0 +1,317 @@ +// Moment methods/type info +#include +#include +#include +#include +#include +#include + +#include "datatypes.h" +#include "moments.h" +#include "optionals.h" +#include "patterns.h" +#include "stdlib.h" +#include "text.h" +#include "util.h" + +static OptionalText_t _local_timezone = NULL_TEXT; + +#define WITH_TIMEZONE(tz, body) ({ if (tz.length >= 0) { \ + OptionalText_t old_timezone = _local_timezone; \ + Moment$set_local_timezone(tz); \ + body; \ + Moment$set_local_timezone(old_timezone); \ + } else { \ + body; \ + }}) + +public Text_t Moment$as_text(const Moment_t *moment, bool colorize, const TypeInfo_t *type) +{ + (void)type; + if (!moment) + return Text("Moment"); + + struct tm info; + struct tm *final_info = localtime_r(&moment->tv_sec, &info); + static char buf[256]; + size_t len = strftime(buf, sizeof(buf), "%c %Z", final_info); + Text_t text = Text$format("%.*s", (int)len, buf); + if (colorize) + text = Text$concat(Text("\x1b[36m"), text, Text("\x1b[m")); + return text; +} + +PUREFUNC public int32_t Moment$compare(const Moment_t *a, const Moment_t *b, const TypeInfo_t *type) +{ + (void)type; + if (a->tv_sec != b->tv_sec) + return (a->tv_sec > b->tv_sec) - (a->tv_sec < b->tv_sec); + return (a->tv_usec > b->tv_usec) - (a->tv_usec < b->tv_usec); +} + +public Moment_t Moment$now(void) +{ + struct timespec ts; + if (clock_gettime(CLOCK_REALTIME, &ts) != 0) + fail("Couldn't get the time!"); + return (Moment_t){.tv_sec=ts.tv_sec, .tv_usec=ts.tv_nsec}; +} + +public Moment_t Moment$new(Int_t year, Int_t month, Int_t day, Int_t hour, Int_t minute, double second, OptionalText_t timezone) +{ + struct tm info = { + .tm_min=Int_to_Int32(minute, false), + .tm_hour=Int_to_Int32(hour, false), + .tm_mday=Int_to_Int32(day, false), + .tm_mon=Int_to_Int32(month, false) - 1, + .tm_year=Int_to_Int32(year, false) - 1900, + .tm_isdst=-1, + }; + + time_t t; + WITH_TIMEZONE(timezone, t = mktime(&info)); + return (Moment_t){.tv_sec=t + (time_t)second, .tv_usec=(suseconds_t)(fmod(second, 1.0) * 1e9)}; +} + +public Moment_t Moment$after(Moment_t moment, double seconds, double minutes, double hours, Int_t days, Int_t weeks, Int_t months, Int_t years, OptionalText_t timezone) +{ + double offset = seconds + 60.*minutes + 3600.*hours; + moment.tv_sec += (time_t)offset; + + struct tm info = {}; + WITH_TIMEZONE(timezone, localtime_r(&moment.tv_sec, &info)); + + info.tm_mday += Int_to_Int32(days, false) + 7*Int_to_Int32(weeks, false); + info.tm_mon += Int_to_Int32(months, false); + info.tm_year += Int_to_Int32(years, false); + + time_t t = mktime(&info); + return (Moment_t){ + .tv_sec=t, + .tv_usec=moment.tv_usec + (suseconds_t)(fmod(offset, 1.0) * 1e9), + }; +} + +CONSTFUNC public double Moment$seconds_till(Moment_t now, Moment_t then) +{ + return (double)(then.tv_sec - now.tv_sec) + 1e-9*(double)(then.tv_usec - now.tv_usec); +} + +CONSTFUNC public double Moment$minutes_till(Moment_t now, Moment_t then) +{ + return Moment$seconds_till(now, then)/60.; +} + +CONSTFUNC public double Moment$hours_till(Moment_t now, Moment_t then) +{ + return Moment$seconds_till(now, then)/3600.; +} + +public void Moment$get( + Moment_t moment, Int_t *year, Int_t *month, Int_t *day, Int_t *hour, Int_t *minute, Int_t *second, + Int_t *nanosecond, Int_t *weekday, OptionalText_t timezone) +{ + struct tm info = {}; + WITH_TIMEZONE(timezone, localtime_r(&moment.tv_sec, &info)); + + if (year) *year = I(info.tm_year + 1900); + if (month) *month = I(info.tm_mon + 1); + if (day) *day = I(info.tm_mday); + if (hour) *hour = I(info.tm_hour); + if (minute) *minute = I(info.tm_min); + if (second) *second = I(info.tm_sec); + if (nanosecond) *nanosecond = I(moment.tv_usec); + if (weekday) *weekday = I(info.tm_wday + 1); +} + +public Int_t Moment$year(Moment_t moment, OptionalText_t timezone) +{ + struct tm info = {}; + WITH_TIMEZONE(timezone, localtime_r(&moment.tv_sec, &info)); + return I(info.tm_year + 1900); +} + +public Int_t Moment$month(Moment_t moment, OptionalText_t timezone) +{ + struct tm info = {}; + WITH_TIMEZONE(timezone, localtime_r(&moment.tv_sec, &info)); + return I(info.tm_mon + 1); +} + +public Int_t Moment$day_of_week(Moment_t moment, OptionalText_t timezone) +{ + struct tm info = {}; + WITH_TIMEZONE(timezone, localtime_r(&moment.tv_sec, &info)); + return I(info.tm_wday + 1); +} + +public Int_t Moment$day_of_month(Moment_t moment, OptionalText_t timezone) +{ + struct tm info = {}; + WITH_TIMEZONE(timezone, localtime_r(&moment.tv_sec, &info)); + return I(info.tm_mday); +} + +public Int_t Moment$day_of_year(Moment_t moment, OptionalText_t timezone) +{ + struct tm info = {}; + WITH_TIMEZONE(timezone, localtime_r(&moment.tv_sec, &info)); + return I(info.tm_yday); +} + +public Int_t Moment$hour(Moment_t moment, OptionalText_t timezone) +{ + struct tm info = {}; + WITH_TIMEZONE(timezone, localtime_r(&moment.tv_sec, &info)); + return I(info.tm_hour); +} + +public Int_t Moment$minute(Moment_t moment, OptionalText_t timezone) +{ + struct tm info = {}; + WITH_TIMEZONE(timezone, localtime_r(&moment.tv_sec, &info)); + return I(info.tm_min); +} + +public Int_t Moment$second(Moment_t moment, OptionalText_t timezone) +{ + struct tm info = {}; + WITH_TIMEZONE(timezone, localtime_r(&moment.tv_sec, &info)); + return I(info.tm_sec); +} + +public Int_t Moment$nanosecond(Moment_t moment, OptionalText_t timezone) +{ + (void)timezone; + return I(moment.tv_usec); +} + +public Text_t Moment$format(Moment_t moment, Text_t fmt, OptionalText_t timezone) +{ + struct tm info; + WITH_TIMEZONE(timezone, localtime_r(&moment.tv_sec, &info)); + static char buf[256]; + size_t len = strftime(buf, sizeof(buf), Text$as_c_string(fmt), &info); + return Text$format("%.*s", (int)len, buf); +} + +public Text_t Moment$date(Moment_t moment, OptionalText_t timezone) +{ + return Moment$format(moment, Text("%F"), timezone); +} + +public Text_t Moment$time(Moment_t moment, bool seconds, bool am_pm, OptionalText_t timezone) +{ + Text_t text; + if (seconds) + text = Moment$format(moment, am_pm ? Text("%l:%M:%S%P") : Text("%T"), timezone); + else + text = Moment$format(moment, am_pm ? Text("%l:%M%P") : Text("%H:%M"), timezone); + return Text$trim(text, Pattern(" "), true, true); +} + +public OptionalMoment_t Moment$parse(Text_t text, Text_t format) +{ + struct tm info = {.tm_isdst=-1}; + const char *str = Text$as_c_string(text); + const char *fmt = Text$as_c_string(format); + if (strstr(fmt, "%Z")) + fail("The %%Z specifier is not supported for time parsing!"); + + char *invalid = strptime(str, fmt, &info); + if (!invalid || invalid[0] != '\0') + return NULL_MOMENT; + + long offset = info.tm_gmtoff; // Need to cache this because mktime() mutates it to local timezone >:( + time_t t = mktime(&info); + return (Moment_t){.tv_sec=t + offset - info.tm_gmtoff}; +} + +static INLINE Text_t num_format(long n, const char *unit) +{ + if (n == 0) + return Text("now"); + return Text$format((n == 1 || n == -1) ? "%ld %s %s" : "%ld %ss %s", n < 0 ? -n : n, unit, n < 0 ? "ago" : "later"); +} + +public Text_t Moment$relative(Moment_t moment, Moment_t relative_to, OptionalText_t timezone) +{ + struct tm info = {}; + struct tm relative_info = {}; + WITH_TIMEZONE(timezone, { + localtime_r(&moment.tv_sec, &info); + localtime_r(&relative_to.tv_sec, &relative_info); + }); + + double second_diff = Moment$seconds_till(relative_to, moment); + if (info.tm_year != relative_info.tm_year && fabs(second_diff) > 365.*24.*60.*60.) + return num_format((long)info.tm_year - (long)relative_info.tm_year, "year"); + else if (info.tm_mon != relative_info.tm_mon && fabs(second_diff) > 31.*24.*60.*60.) + return num_format(12*((long)info.tm_year - (long)relative_info.tm_year) + (long)info.tm_mon - (long)relative_info.tm_mon, "month"); + else if (info.tm_yday != relative_info.tm_yday && fabs(second_diff) > 24.*60.*60.) + return num_format(round(second_diff/(24.*60.*60.)), "day"); + else if (info.tm_hour != relative_info.tm_hour && fabs(second_diff) > 60.*60.) + return num_format(round(second_diff/(60.*60.)), "hour"); + else if (info.tm_min != relative_info.tm_min && fabs(second_diff) > 60.) + return num_format(round(second_diff/(60.)), "minute"); + else { + if (fabs(second_diff) < 1e-6) + return num_format((long)(second_diff*1e9), "nanosecond"); + else if (fabs(second_diff) < 1e-3) + return num_format((long)(second_diff*1e6), "microsecond"); + else if (fabs(second_diff) < 1.0) + return num_format((long)(second_diff*1e3), "millisecond"); + else + return num_format((long)(second_diff), "second"); + } +} + +CONSTFUNC public Int64_t Moment$unix_timestamp(Moment_t moment) +{ + return (Int64_t)moment.tv_sec; +} + +CONSTFUNC public Moment_t Moment$from_unix_timestamp(Int64_t timestamp) +{ + return (Moment_t){.tv_sec=(time_t)timestamp}; +} + +public void Moment$set_local_timezone(OptionalText_t timezone) +{ + if (timezone.length >= 0) { + setenv("TZ", Text$as_c_string(timezone), 1); + } else { + unsetenv("TZ"); + } + _local_timezone = timezone; + tzset(); +} + +public Text_t Moment$get_local_timezone(void) +{ + if (_local_timezone.length < 0) { + static char buf[PATH_MAX]; + ssize_t len = readlink("/etc/localtime", buf, sizeof(buf)); + if (len < 0) + fail("Could not get local timezone!"); + + char *zoneinfo = strstr(buf, "/zoneinfo/"); + if (zoneinfo) + _local_timezone = Text$from_str(zoneinfo + strlen("/zoneinfo/")); + else + fail("Could not resolve local timezone!"); + } + return _local_timezone; +} + +public const TypeInfo_t Moment$info = { + .size=sizeof(Moment_t), + .align=__alignof__(Moment_t), + .tag=CustomInfo, + .CustomInfo={ + .as_text=(void*)Moment$as_text, + .compare=(void*)Moment$compare, + }, +}; + +// vim: ts=4 sw=0 et cino=L2,l1,(0,W4,m1,\:0 diff --git a/stdlib/moments.h b/stdlib/moments.h new file mode 100644 index 00000000..8e423124 --- /dev/null +++ b/stdlib/moments.h @@ -0,0 +1,43 @@ +#pragma once + +// Moment objects + +#include + +#include "datatypes.h" +#include "integers.h" +#include "optionals.h" +#include "types.h" +#include "util.h" + +Text_t Moment$as_text(const Moment_t *moment, bool colorize, const TypeInfo_t *type); +PUREFUNC int32_t Moment$compare(const Moment_t *a, const Moment_t *b, const TypeInfo_t *type); +Moment_t Moment$now(void); +Moment_t Moment$new(Int_t year, Int_t month, Int_t day, Int_t hour, Int_t minute, double second, OptionalText_t timezone); +Moment_t Moment$after(Moment_t moment, double seconds, double minutes, double hours, Int_t days, Int_t weeks, Int_t months, Int_t years, OptionalText_t timezone); +CONSTFUNC double Moment$seconds_till(Moment_t now, Moment_t then); +CONSTFUNC double Moment$minutes_till(Moment_t now, Moment_t then); +CONSTFUNC double Moment$hours_till(Moment_t now, Moment_t then); +Int_t Moment$year(Moment_t moment, OptionalText_t timezone); +Int_t Moment$month(Moment_t moment, OptionalText_t timezone); +Int_t Moment$day_of_week(Moment_t moment, OptionalText_t timezone); +Int_t Moment$day_of_month(Moment_t moment, OptionalText_t timezone); +Int_t Moment$day_of_year(Moment_t moment, OptionalText_t timezone); +Int_t Moment$hour(Moment_t moment, OptionalText_t timezone); +Int_t Moment$minute(Moment_t moment, OptionalText_t timezone); +Int_t Moment$second(Moment_t moment, OptionalText_t timezone); +Int_t Moment$nanosecond(Moment_t moment, OptionalText_t timezone); +Text_t Moment$format(Moment_t moment, Text_t fmt, OptionalText_t timezone); +Text_t Moment$date(Moment_t moment, OptionalText_t timezone); +Text_t Moment$time(Moment_t moment, bool seconds, bool am_pm, OptionalText_t timezone); +OptionalMoment_t Moment$parse(Text_t text, Text_t format); +Text_t Moment$relative(Moment_t moment, Moment_t relative_to, OptionalText_t timezone); +CONSTFUNC Int64_t Moment$unix_timestamp(Moment_t moment); +CONSTFUNC Moment_t Moment$from_unix_timestamp(Int64_t timestamp); +void Moment$set_local_timezone(OptionalText_t timezone); +Text_t Moment$get_local_timezone(void); + +extern const TypeInfo_t Moment$info; + +// vim: ts=4 sw=0 et cino=L2,l1,(0,W4,m1,\:0 + diff --git a/stdlib/optionals.c b/stdlib/optionals.c index 7224c421..34f14f4b 100644 --- a/stdlib/optionals.c +++ b/stdlib/optionals.c @@ -5,9 +5,9 @@ #include "bools.h" #include "bytes.h" #include "datatypes.h" -#include "datetime.h" #include "integers.h" #include "metamethods.h" +#include "moments.h" #include "patterns.h" #include "text.h" #include "threads.h" @@ -33,8 +33,8 @@ public PUREFUNC bool is_null(const void *obj, const TypeInfo_t *non_optional_typ return ((OptionalByte_t*)obj)->is_null; else if (non_optional_type == &Thread$info) return *(pthread_t**)obj == NULL; - else if (non_optional_type == &DateTime$info) - return ((OptionalDateTime_t*)obj)->tv_usec < 0; + else if (non_optional_type == &Moment$info) + return ((OptionalMoment_t*)obj)->tv_usec < 0; else if (non_optional_type == &Match$info) return ((OptionalMatch_t*)obj)->index.small == 0; diff --git a/stdlib/optionals.h b/stdlib/optionals.h index 2db8bdea..b5326479 100644 --- a/stdlib/optionals.h +++ b/stdlib/optionals.h @@ -22,7 +22,7 @@ #define NULL_TABLE ((OptionalTable_t){.entries.length=-1}) #define NULL_CLOSURE ((OptionalClosure_t){.fn=NULL}) #define NULL_TEXT ((OptionalText_t){.length=-1}) -#define NULL_DATETIME ((OptionalDateTime_t){.tv_usec=-1}) +#define NULL_MOMENT ((OptionalMoment_t){.tv_usec=-1}) PUREFUNC bool is_null(const void *obj, const TypeInfo_t *non_optional_type); Text_t Optional$as_text(const void *obj, bool colorize, const TypeInfo_t *type); diff --git a/stdlib/paths.c b/stdlib/paths.c index 6e138b57..56492718 100644 --- a/stdlib/paths.c +++ b/stdlib/paths.c @@ -205,28 +205,28 @@ public bool Path$is_symlink(Path_t path) return (sb.st_mode & S_IFMT) == S_IFLNK; } -public OptionalDateTime_t Path$modified(Path_t path, bool follow_symlinks) +public OptionalMoment_t Path$modified(Path_t path, bool follow_symlinks) { struct stat sb; int status = path_stat(path, follow_symlinks, &sb); - if (status != 0) return NULL_DATETIME; - return (DateTime_t){.tv_sec=sb.st_mtime}; + if (status != 0) return NULL_MOMENT; + return (Moment_t){.tv_sec=sb.st_mtime}; } -public OptionalDateTime_t Path$accessed(Path_t path, bool follow_symlinks) +public OptionalMoment_t Path$accessed(Path_t path, bool follow_symlinks) { struct stat sb; int status = path_stat(path, follow_symlinks, &sb); - if (status != 0) return NULL_DATETIME; - return (DateTime_t){.tv_sec=sb.st_atime}; + if (status != 0) return NULL_MOMENT; + return (Moment_t){.tv_sec=sb.st_atime}; } -public OptionalDateTime_t Path$changed(Path_t path, bool follow_symlinks) +public OptionalMoment_t Path$changed(Path_t path, bool follow_symlinks) { struct stat sb; int status = path_stat(path, follow_symlinks, &sb); - if (status != 0) return NULL_DATETIME; - return (DateTime_t){.tv_sec=sb.st_ctime}; + if (status != 0) return NULL_MOMENT; + return (Moment_t){.tv_sec=sb.st_ctime}; } static void _write(Path_t path, Array_t bytes, int mode, int permissions) diff --git a/stdlib/paths.h b/stdlib/paths.h index 989e5d84..bc263957 100644 --- a/stdlib/paths.h +++ b/stdlib/paths.h @@ -27,9 +27,9 @@ bool Path$is_directory(Path_t path, bool follow_symlinks); bool Path$is_pipe(Path_t path, bool follow_symlinks); bool Path$is_socket(Path_t path, bool follow_symlinks); bool Path$is_symlink(Path_t path); -OptionalDateTime_t Path$modified(Path_t path, bool follow_symlinks); -OptionalDateTime_t Path$accessed(Path_t path, bool follow_symlinks); -OptionalDateTime_t Path$changed(Path_t path, bool follow_symlinks); +OptionalMoment_t Path$modified(Path_t path, bool follow_symlinks); +OptionalMoment_t Path$accessed(Path_t path, bool follow_symlinks); +OptionalMoment_t Path$changed(Path_t path, bool follow_symlinks); void Path$write(Path_t path, Text_t text, int permissions); void Path$write_bytes(Path_t path, Array_t bytes, int permissions); void Path$append(Path_t path, Text_t text, int permissions); diff --git a/stdlib/tomo.h b/stdlib/tomo.h index 8b378c0a..159b6426 100644 --- a/stdlib/tomo.h +++ b/stdlib/tomo.h @@ -13,11 +13,11 @@ #include "c_strings.h" #include "channels.h" #include "datatypes.h" -#include "datetime.h" #include "functiontype.h" #include "integers.h" #include "memory.h" #include "metamethods.h" +#include "moments.h" #include "nums.h" #include "optionals.h" #include "paths.h" -- cgit v1.2.3