/* * Copyright (c) 2011 Petr Koupy * Copyright (c) 2011 Jiri Zarevucky * All rights reserved. * * Redistribution and use in source and binary forms, with or without * modification, are permitted provided that the following conditions * are met: * * - Redistributions of source code must retain the above copyright * notice, this list of conditions and the following disclaimer. * - Redistributions in binary form must reproduce the above copyright * notice, this list of conditions and the following disclaimer in the * documentation and/or other materials provided with the distribution. * - The name of the author may not be used to endorse or promote products * derived from this software without specific prior written permission. * * THIS SOFTWARE IS PROVIDED BY THE AUTHOR ``AS IS'' AND ANY EXPRESS OR * IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED WARRANTIES * OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE ARE DISCLAIMED. * IN NO EVENT SHALL THE AUTHOR BE LIABLE FOR ANY DIRECT, INDIRECT, * INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT * NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, * DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY * THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT * (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF * THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE. */ /** @addtogroup libposix * @{ */ /** @file Time measurement support. */ #define LIBPOSIX_INTERNAL /* Must be first. */ #include "stdbool.h" #include "internal/common.h" #include "time.h" #include "ctype.h" #include "errno.h" #include "signal.h" #include "assert.h" #include "libc/malloc.h" #include "libc/task.h" #include "libc/stats.h" #include "libc/sys/time.h" // TODO: test everything in this file /* In some places in this file, phrase "normalized broken-down time" is used. * This means time broken down to components (year, month, day, hour, min, sec), * in which every component is in its proper bounds. Non-normalized time could * e.g. be 2011-54-5 29:13:-5, which would semantically mean start of year 2011 * + 53 months + 4 days + 29 hours + 13 minutes - 5 seconds. */ /* Helper functions ***********************************************************/ #define HOURS_PER_DAY (24) #define MINS_PER_HOUR (60) #define SECS_PER_MIN (60) #define MINS_PER_DAY (MINS_PER_HOUR * HOURS_PER_DAY) #define SECS_PER_HOUR (SECS_PER_MIN * MINS_PER_HOUR) #define SECS_PER_DAY (SECS_PER_HOUR * HOURS_PER_DAY) /** * Checks whether the year is a leap year. * * @param year Year since 1900 (e.g. for 1970, the value is 70). * @return true if year is a leap year, false otherwise */ static bool _is_leap_year(time_t year) { year += 1900; if (year % 400 == 0) return true; if (year % 100 == 0) return false; if (year % 4 == 0) return true; return false; } /** * Returns how many days there are in the given month of the given year. * Note that year is only taken into account if month is February. * * @param year Year since 1900 (can be negative). * @param mon Month of the year. 0 for January, 11 for December. * @return Number of days in the specified month. */ static int _days_in_month(time_t year, time_t mon) { assert(mon >= 0 && mon <= 11); static int month_days[] = { 31, 0, 31, 30, 31, 30, 31, 31, 30, 31, 30, 31 }; if (mon == 1) { year += 1900; /* february */ return _is_leap_year(year) ? 29 : 28; } else { return month_days[mon]; } } /** * For specified year, month and day of month, returns which day of that year * it is. * * For example, given date 2011-01-03, the corresponding expression is: * _day_of_year(111, 0, 3) == 2 * * @param year Year (year 1900 = 0, can be negative). * @param mon Month (January = 0). * @param mday Day of month (First day is 1). * @return Day of year (First day is 0). */ static int _day_of_year(time_t year, time_t mon, time_t mday) { static int mdays[] = { 0, 31, 59, 90, 120, 151, 181, 212, 243, 273, 304, 334 }; static int leap_mdays[] = { 0, 31, 60, 91, 121, 152, 182, 213, 244, 274, 305, 335 }; return (_is_leap_year(year) ? leap_mdays[mon] : mdays[mon]) + mday - 1; } /** * Integer division that rounds to negative infinity. * Used by some functions in this file. * * @param op1 Divident. * @param op2 Divisor. * @return Rounded quotient. */ static time_t _floor_div(time_t op1, time_t op2) { if (op1 >= 0 || op1 % op2 == 0) { return op1 / op2; } else { return op1 / op2 - 1; } } /** * Modulo that rounds to negative infinity. * Used by some functions in this file. * * @param op1 Divident. * @param op2 Divisor. * @return Remainder. */ static time_t _floor_mod(time_t op1, time_t op2) { int div = _floor_div(op1, op2); /* (a / b) * b + a % b == a */ /* thus, a % b == a - (a / b) * b */ int result = op1 - div * op2; /* Some paranoid checking to ensure I didn't make a mistake here. */ assert(result >= 0); assert(result < op2); assert(div * op2 + result == op1); return result; } /** * Number of days since the Epoch. * Epoch is 1970-01-01, which is also equal to day 0. * * @param year Year (year 1900 = 0, may be negative). * @param mon Month (January = 0). * @param mday Day of month (first day = 1). * @return Number of days since the Epoch. */ static time_t _days_since_epoch(time_t year, time_t mon, time_t mday) { return (year - 70) * 365 + _floor_div(year - 69, 4) - _floor_div(year - 1, 100) + _floor_div(year + 299, 400) + _day_of_year(year, mon, mday); } /** * Seconds since the Epoch. see also _days_since_epoch(). * * @param tm Normalized broken-down time. * @return Number of seconds since the epoch, not counting leap seconds. */ static time_t _secs_since_epoch(const struct posix_tm *tm) { return _days_since_epoch(tm->tm_year, tm->tm_mon, tm->tm_mday) * SECS_PER_DAY + tm->tm_hour * SECS_PER_HOUR + tm->tm_min * SECS_PER_MIN + tm->tm_sec; } /** * Which day of week the specified date is. * * @param year Year (year 1900 = 0). * @param mon Month (January = 0). * @param mday Day of month (first = 1). * @return Day of week (Sunday = 0). */ static int _day_of_week(time_t year, time_t mon, time_t mday) { /* 1970-01-01 is Thursday */ return _floor_mod((_days_since_epoch(year, mon, mday) + 4), 7); } /** * Normalizes the broken-down time and optionally adds specified amount of * seconds. * * @param tm Broken-down time to normalize. * @param sec_add Seconds to add. * @return 0 on success, -1 on overflow */ static int _normalize_time(struct posix_tm *tm, time_t sec_add) { // TODO: DST correction /* Set initial values. */ time_t sec = tm->tm_sec + sec_add; time_t min = tm->tm_min; time_t hour = tm->tm_hour; time_t day = tm->tm_mday - 1; time_t mon = tm->tm_mon; time_t year = tm->tm_year; /* Adjust time. */ min += _floor_div(sec, SECS_PER_MIN); sec = _floor_mod(sec, SECS_PER_MIN); hour += _floor_div(min, MINS_PER_HOUR); min = _floor_mod(min, MINS_PER_HOUR); day += _floor_div(hour, HOURS_PER_DAY); hour = _floor_mod(hour, HOURS_PER_DAY); /* Adjust month. */ year += _floor_div(mon, 12); mon = _floor_mod(mon, 12); /* Now the difficult part - days of month. */ /* First, deal with whole cycles of 400 years = 146097 days. */ year += _floor_div(day, 146097) * 400; day = _floor_mod(day, 146097); /* Then, go in one year steps. */ if (mon <= 1) { /* January and February. */ while (day > 365) { day -= _is_leap_year(year) ? 366 : 365; year++; } } else { /* Rest of the year. */ while (day > 365) { day -= _is_leap_year(year + 1) ? 366 : 365; year++; } } /* Finally, finish it off month per month. */ while (day >= _days_in_month(year, mon)) { day -= _days_in_month(year, mon); mon++; if (mon >= 12) { mon -= 12; year++; } } /* Calculate the remaining two fields. */ tm->tm_yday = _day_of_year(year, mon, day + 1); tm->tm_wday = _day_of_week(year, mon, day + 1); /* And put the values back to the struct. */ tm->tm_sec = (int) sec; tm->tm_min = (int) min; tm->tm_hour = (int) hour; tm->tm_mday = (int) day + 1; tm->tm_mon = (int) mon; /* Casts to work around libc brain-damage. */ if (year > ((int)INT_MAX) || year < ((int)INT_MIN)) { tm->tm_year = (year < 0) ? ((int)INT_MIN) : ((int)INT_MAX); return -1; } tm->tm_year = (int) year; return 0; } /** * Which day the week-based year starts on, relative to the first calendar day. * E.g. if the year starts on December 31st, the return value is -1. * * @param Year since 1900. * @return Offset of week-based year relative to calendar year. */ static int _wbyear_offset(int year) { int start_wday = _day_of_week(year, 0, 1); return _floor_mod(4 - start_wday, 7) - 3; } /** * Returns week-based year of the specified time. * * @param tm Normalized broken-down time. * @return Week-based year. */ static int _wbyear(const struct posix_tm *tm) { int day = tm->tm_yday - _wbyear_offset(tm->tm_year); if (day < 0) { /* Last week of previous year. */ return tm->tm_year - 1; } if (day > 364 + _is_leap_year(tm->tm_year)) { /* First week of next year. */ return tm->tm_year + 1; } /* All the other days are in the calendar year. */ return tm->tm_year; } /** * Week number of the year, assuming weeks start on sunday. * The first Sunday of January is the first day of week 1; * days in the new year before this are in week 0. * * @param tm Normalized broken-down time. * @return The week number (0 - 53). */ static int _sun_week_number(const struct posix_tm *tm) { int first_day = (7 - _day_of_week(tm->tm_year, 0, 1)) % 7; return (tm->tm_yday - first_day + 7) / 7; } /** * Week number of the year, assuming weeks start on monday. * If the week containing January 1st has four or more days in the new year, * then it is considered week 1. Otherwise, it is the last week of the previous * year, and the next week is week 1. Both January 4th and the first Thursday * of January are always in week 1. * * @param tm Normalized broken-down time. * @return The week number (1 - 53). */ static int _iso_week_number(const struct posix_tm *tm) { int day = tm->tm_yday - _wbyear_offset(tm->tm_year); if (day < 0) { /* Last week of previous year. */ return 53; } if (day > 364 + _is_leap_year(tm->tm_year)) { /* First week of next year. */ return 1; } /* All the other days give correct answer. */ return (day / 7 + 1); } /** * Week number of the year, assuming weeks start on monday. * The first Monday of January is the first day of week 1; * days in the new year before this are in week 0. * * @param tm Normalized broken-down time. * @return The week number (0 - 53). */ static int _mon_week_number(const struct posix_tm *tm) { int first_day = (1 - _day_of_week(tm->tm_year, 0, 1)) % 7; return (tm->tm_yday - first_day + 7) / 7; } /******************************************************************************/ int posix_daylight; long posix_timezone; char *posix_tzname[2]; /** * Set timezone conversion information. */ void posix_tzset(void) { // TODO: read environment posix_tzname[0] = (char *) "GMT"; posix_tzname[1] = (char *) "GMT"; posix_daylight = 0; posix_timezone = 0; } /** * Calculate the difference between two times, in seconds. * * @param time1 First time. * @param time0 Second time. * @return Time in seconds. */ double posix_difftime(time_t time1, time_t time0) { return (double) (time1 - time0); } /** * This function first normalizes the provided broken-down time * (moves all values to their proper bounds) and then tries to * calculate the appropriate time_t representation. * * @param tm Broken-down time. * @return time_t representation of the time, undefined value on overflow. */ time_t posix_mktime(struct posix_tm *tm) { // TODO: take DST flag into account // TODO: detect overflow _normalize_time(tm, 0); return _secs_since_epoch(tm); } /** * Converts a time value to a broken-down UTC time. * * @param timer Time to convert. * @return Normalized broken-down time in UTC, NULL on overflow. */ struct posix_tm *posix_gmtime(const time_t *timer) { assert(timer != NULL); static struct posix_tm result; return posix_gmtime_r(timer, &result); } /** * Converts a time value to a broken-down UTC time. * * @param timer Time to convert. * @param result Structure to store the result to. * @return Value of result on success, NULL on overflow. */ struct posix_tm *posix_gmtime_r(const time_t *restrict timer, struct posix_tm *restrict result) { assert(timer != NULL); assert(result != NULL); /* Set result to epoch. */ result->tm_sec = 0; result->tm_min = 0; result->tm_hour = 0; result->tm_mday = 1; result->tm_mon = 0; result->tm_year = 70; /* 1970 */ if (_normalize_time(result, *timer) == -1) { errno = EOVERFLOW; return NULL; } return result; } /** * Converts a time value to a broken-down local time. * * @param timer Time to convert. * @return Normalized broken-down time in local timezone, NULL on overflow. */ struct posix_tm *posix_localtime(const time_t *timer) { static struct posix_tm result; return posix_localtime_r(timer, &result); } /** * Converts a time value to a broken-down local time. * * @param timer Time to convert. * @param result Structure to store the result to. * @return Value of result on success, NULL on overflow. */ struct posix_tm *posix_localtime_r(const time_t *restrict timer, struct posix_tm *restrict result) { // TODO: deal with timezone // currently assumes system and all times are in GMT return posix_gmtime_r(timer, result); } /** * Converts broken-down time to a string in format * "Sun Jan 1 00:00:00 1970\n". (Obsolete) * * @param timeptr Broken-down time structure. * @return Pointer to a statically allocated string. */ char *posix_asctime(const struct posix_tm *timeptr) { static char buf[ASCTIME_BUF_LEN]; return posix_asctime_r(timeptr, buf); } /** * Converts broken-down time to a string in format * "Sun Jan 1 00:00:00 1970\n". (Obsolete) * * @param timeptr Broken-down time structure. * @param buf Buffer to store string to, must be at least ASCTIME_BUF_LEN * bytes long. * @return Value of buf. */ char *posix_asctime_r(const struct posix_tm *restrict timeptr, char *restrict buf) { assert(timeptr != NULL); assert(buf != NULL); static const char *wday[] = { "Sun", "Mon", "Tue", "Wed", "Thu", "Fri", "Sat" }; static const char *mon[] = { "Jan", "Feb", "Mar", "Apr", "May", "Jun", "Jul", "Aug", "Sep", "Oct", "Nov", "Dec" }; snprintf(buf, ASCTIME_BUF_LEN, "%s %s %2d %02d:%02d:%02d %d\n", wday[timeptr->tm_wday], mon[timeptr->tm_mon], timeptr->tm_mday, timeptr->tm_hour, timeptr->tm_min, timeptr->tm_sec, 1900 + timeptr->tm_year); return buf; } /** * Equivalent to asctime(localtime(clock)). * * @param timer Time to convert. * @return Pointer to a statically allocated string holding the date. */ char *posix_ctime(const time_t *timer) { struct posix_tm *loctime = posix_localtime(timer); if (loctime == NULL) { return NULL; } return posix_asctime(loctime); } /** * Reentrant variant of ctime(). * * @param timer Time to convert. * @param buf Buffer to store string to. Must be at least ASCTIME_BUF_LEN * bytes long. * @return Pointer to buf on success, NULL on falure. */ char *posix_ctime_r(const time_t *timer, char *buf) { struct posix_tm loctime; if (posix_localtime_r(timer, &loctime) == NULL) { return NULL; } return posix_asctime_r(&loctime, buf); } /** * Convert time and date to a string, based on a specified format and * current locale. * * @param s Buffer to write string to. * @param maxsize Size of the buffer. * @param format Format of the output. * @param tm Broken-down time to format. * @return Number of bytes written. */ size_t posix_strftime(char *restrict s, size_t maxsize, const char *restrict format, const struct posix_tm *restrict tm) { assert(s != NULL); assert(format != NULL); assert(tm != NULL); // TODO: use locale static const char *wday_abbr[] = { "Sun", "Mon", "Tue", "Wed", "Thu", "Fri", "Sat" }; static const char *wday[] = { "Sunday", "Monday", "Tuesday", "Wednesday", "Thursday", "Friday", "Saturday" }; static const char *mon_abbr[] = { "Jan", "Feb", "Mar", "Apr", "May", "Jun", "Jul", "Aug", "Sep", "Oct", "Nov", "Dec" }; static const char *mon[] = { "January", "February", "March", "April", "May", "June", "July", "August", "September", "October", "November", "December" }; if (maxsize < 1) { return 0; } char *ptr = s; size_t consumed; size_t remaining = maxsize; #define append(...) { \ /* FIXME: this requires POSIX-correct snprintf */ \ /* otherwise it won't work with non-ascii chars */ \ consumed = snprintf(ptr, remaining, __VA_ARGS__); \ if (consumed >= remaining) { \ return 0; \ } \ ptr += consumed; \ remaining -= consumed; \ } #define recurse(fmt) { \ consumed = posix_strftime(ptr, remaining, fmt, tm); \ if (consumed == 0) { \ return 0; \ } \ ptr += consumed; \ remaining -= consumed; \ } #define TO_12H(hour) (((hour) > 12) ? ((hour) - 12) : \ (((hour) == 0) ? 12 : (hour))) while (*format != '\0') { if (*format != '%') { append("%c", *format); format++; continue; } format++; if (*format == '0' || *format == '+') { // TODO: padding format++; } while (isdigit(*format)) { // TODO: padding format++; } if (*format == 'O' || *format == 'E') { // TODO: locale's alternative format format++; } switch (*format) { case 'a': append("%s", wday_abbr[tm->tm_wday]); break; case 'A': append("%s", wday[tm->tm_wday]); break; case 'b': append("%s", mon_abbr[tm->tm_mon]); break; case 'B': append("%s", mon[tm->tm_mon]); break; case 'c': // TODO: locale-specific datetime format recurse("%Y-%m-%d %H:%M:%S"); break; case 'C': append("%02d", (1900 + tm->tm_year) / 100); break; case 'd': append("%02d", tm->tm_mday); break; case 'D': recurse("%m/%d/%y"); break; case 'e': append("%2d", tm->tm_mday); break; case 'F': recurse("%+4Y-%m-%d"); break; case 'g': append("%02d", _wbyear(tm) % 100); break; case 'G': append("%d", _wbyear(tm)); break; case 'h': recurse("%b"); break; case 'H': append("%02d", tm->tm_hour); break; case 'I': append("%02d", TO_12H(tm->tm_hour)); break; case 'j': append("%03d", tm->tm_yday); break; case 'k': append("%2d", tm->tm_hour); break; case 'l': append("%2d", TO_12H(tm->tm_hour)); break; case 'm': append("%02d", tm->tm_mon); break; case 'M': append("%02d", tm->tm_min); break; case 'n': append("\n"); break; case 'p': append("%s", tm->tm_hour < 12 ? "AM" : "PM"); break; case 'P': append("%s", tm->tm_hour < 12 ? "am" : "PM"); break; case 'r': recurse("%I:%M:%S %p"); break; case 'R': recurse("%H:%M"); break; case 's': append("%ld", _secs_since_epoch(tm)); break; case 'S': append("%02d", tm->tm_sec); break; case 't': append("\t"); break; case 'T': recurse("%H:%M:%S"); break; case 'u': append("%d", (tm->tm_wday == 0) ? 7 : tm->tm_wday); break; case 'U': append("%02d", _sun_week_number(tm)); break; case 'V': append("%02d", _iso_week_number(tm)); break; case 'w': append("%d", tm->tm_wday); break; case 'W': append("%02d", _mon_week_number(tm)); break; case 'x': // TODO: locale-specific date format recurse("%Y-%m-%d"); break; case 'X': // TODO: locale-specific time format recurse("%H:%M:%S"); break; case 'y': append("%02d", tm->tm_year % 100); break; case 'Y': append("%d", 1900 + tm->tm_year); break; case 'z': // TODO: timezone break; case 'Z': // TODO: timezone break; case '%': append("%%"); break; default: /* Invalid specifier, print verbatim. */ while (*format != '%') { format--; } append("%%"); break; } format++; } #undef append #undef recurse return maxsize - remaining; } /** * Get clock resolution. Only CLOCK_REALTIME is supported. * * @param clock_id Clock ID. * @param res Pointer to the variable where the resolution is to be written. * @return 0 on success, -1 with errno set on failure. */ int posix_clock_getres(posix_clockid_t clock_id, struct posix_timespec *res) { assert(res != NULL); switch (clock_id) { case CLOCK_REALTIME: res->tv_sec = 0; res->tv_nsec = 1000; /* Microsecond resolution. */ return 0; default: errno = EINVAL; return -1; } } /** * Get time. Only CLOCK_REALTIME is supported. * * @param clock_id ID of the clock to query. * @param tp Pointer to the variable where the time is to be written. * @return 0 on success, -1 with errno on failure. */ int posix_clock_gettime(posix_clockid_t clock_id, struct posix_timespec *tp) { assert(tp != NULL); switch (clock_id) { case CLOCK_REALTIME: ; struct timeval tv; gettimeofday(&tv, NULL); tp->tv_sec = tv.tv_sec; tp->tv_nsec = tv.tv_usec * 1000; return 0; default: errno = EINVAL; return -1; } } /** * Set time on a specified clock. As HelenOS doesn't support this yet, * this function always fails. * * @param clock_id ID of the clock to set. * @param tp Time to set. * @return 0 on success, -1 with errno on failure. */ int posix_clock_settime(posix_clockid_t clock_id, const struct posix_timespec *tp) { assert(tp != NULL); switch (clock_id) { case CLOCK_REALTIME: // TODO: setting clock // FIXME: HelenOS doesn't actually support hardware // clock yet errno = EPERM; return -1; default: errno = EINVAL; return -1; } } /** * Sleep on a specified clock. * * @param clock_id ID of the clock to sleep on (only CLOCK_REALTIME supported). * @param flags Flags (none supported). * @param rqtp Sleep time. * @param rmtp Remaining time is written here if sleep is interrupted. * @return 0 on success, -1 with errno set on failure. */ int posix_clock_nanosleep(posix_clockid_t clock_id, int flags, const struct posix_timespec *rqtp, struct posix_timespec *rmtp) { assert(rqtp != NULL); assert(rmtp != NULL); switch (clock_id) { case CLOCK_REALTIME: // TODO: interruptible sleep if (rqtp->tv_sec != 0) { sleep(rqtp->tv_sec); } if (rqtp->tv_nsec != 0) { usleep(rqtp->tv_nsec / 1000); } return 0; default: errno = EINVAL; return -1; } } /** * Get CPU time used since the process invocation. * * @return Consumed CPU cycles by this process or -1 if not available. */ posix_clock_t posix_clock(void) { posix_clock_t total_cycles = -1; stats_task_t *task_stats = stats_get_task(task_get_id()); if (task_stats) { total_cycles = (posix_clock_t) (task_stats->kcycles + task_stats->ucycles); free(task_stats); task_stats = 0; } return total_cycles; } /** @} */