/* times.cc Copyright 1996, 1997, 1998, 1999, 2000, 2001, 2002, 2003, 2004 Red Hat, Inc. This file is part of Cygwin. This software is a copyrighted work licensed under the terms of the Cygwin license. Please consult the file "CYGWIN_LICENSE" for details. */ #include "winsup.h" #include #include #include #include #include #include #include #include "cygerrno.h" #include "security.h" #include "path.h" #include "fhandler.h" #include "pinfo.h" #include "hires.h" #include "cygtls.h" #include "sigproc.h" #include "sync.h" #define FACTOR (0x19db1ded53e8000LL) #define NSPERSEC 10000000LL static void __stdcall timeval_to_filetime (timeval *time, FILETIME *out); /* Cygwin internal */ static unsigned long long __stdcall __to_clock_t (FILETIME * src, int flag) { unsigned long long total = ((unsigned long long) src->dwHighDateTime << 32) + ((unsigned)src->dwLowDateTime); syscall_printf ("dwHighDateTime %u, dwLowDateTime %u", src->dwHighDateTime, src->dwLowDateTime); /* Convert into clock ticks - the total is in 10ths of a usec. */ if (flag) total -= FACTOR; total /= (unsigned long long) (NSPERSEC / CLOCKS_PER_SEC); syscall_printf ("total %08x %08x", (unsigned)(total>>32), (unsigned)(total)); return total; } /* times: POSIX 4.5.2.1 */ extern "C" clock_t times (struct tms *buf) { FILETIME creation_time, exit_time, kernel_time, user_time; if (check_null_invalid_struct_errno (buf)) return ((clock_t) -1); DWORD ticks = GetTickCount (); /* Ticks is in milliseconds, convert to our ticks. Use long long to prevent overflow. */ clock_t tc = (clock_t) ((long long) ticks * CLOCKS_PER_SEC / 1000); if (wincap.has_get_process_times ()) { GetProcessTimes (hMainProc, &creation_time, &exit_time, &kernel_time, &user_time); syscall_printf ("ticks %d, CLOCKS_PER_SEC %d", ticks, CLOCKS_PER_SEC); syscall_printf ("user_time %d, kernel_time %d, creation_time %d, exit_time %d", user_time, kernel_time, creation_time, exit_time); buf->tms_stime = __to_clock_t (&kernel_time, 0); buf->tms_utime = __to_clock_t (&user_time, 0); timeval_to_filetime (&myself->rusage_children.ru_stime, &kernel_time); buf->tms_cstime = __to_clock_t (&kernel_time, 1); timeval_to_filetime (&myself->rusage_children.ru_utime, &user_time); buf->tms_cutime = __to_clock_t (&user_time, 1); } else /* GetProcessTimes() does not work for non-NT versions of Windows. The return values are undefined, so instead just copy the ticks value into utime so that clock() will work properly on these systems */ { buf->tms_utime = tc; buf->tms_stime = 0; buf->tms_cstime = 0; buf->tms_cutime = 0; } return tc; } EXPORT_ALIAS (times, _times) /* settimeofday: BSD */ extern "C" int settimeofday (const struct timeval *tv, const struct timezone *tz) { SYSTEMTIME st; struct tm *ptm; int res; tz = tz; /* silence warning about unused variable */ ptm = gmtime (&tv->tv_sec); st.wYear = ptm->tm_year + 1900; st.wMonth = ptm->tm_mon + 1; st.wDayOfWeek = ptm->tm_wday; st.wDay = ptm->tm_mday; st.wHour = ptm->tm_hour; st.wMinute = ptm->tm_min; st.wSecond = ptm->tm_sec; st.wMilliseconds = tv->tv_usec / 1000; res = !SetSystemTime (&st); syscall_printf ("%d = settimeofday (%x, %x)", res, tv, tz); return res; } /* timezone: standards? */ extern "C" char * timezone () { char *b = _my_tls.locals.timezone_buf; tzset (); __small_sprintf (b,"GMT%+d:%02d", (int) (-_timezone / 3600), (int) (abs (_timezone / 60) % 60)); return b; } /* Cygwin internal */ void __stdcall totimeval (struct timeval *dst, FILETIME *src, int sub, int flag) { long long x = __to_clock_t (src, flag); x *= (int) (1e6) / CLOCKS_PER_SEC; /* Turn x into usecs */ x -= (long long) sub * (int) (1e6); dst->tv_usec = x % (long long) (1e6); /* And split */ dst->tv_sec = x / (long long) (1e6); } hires_ms gtod; UINT NO_COPY hires_ms::minperiod; /* FIXME: Make thread safe */ extern "C" int gettimeofday (struct timeval *tv, struct timezone *tz) { static bool tzflag; LONGLONG now = gtod.usecs (false); if (now == (LONGLONG) -1) return -1; tv->tv_sec = now / 1000000; tv->tv_usec = now % 1000000; if (tz != NULL) { if (!tzflag) { tzset (); tzflag = true; } tz->tz_minuteswest = _timezone / 60; tz->tz_dsttime = _daylight; } return 0; } EXPORT_ALIAS (gettimeofday, _gettimeofday) /* Cygwin internal */ void time_t_to_filetime (time_t time_in, FILETIME *out) { long long x = time_in * NSPERSEC + FACTOR; out->dwHighDateTime = x >> 32; out->dwLowDateTime = x; } /* Cygwin internal */ static void __stdcall timeval_to_filetime (timeval *time_in, FILETIME *out) { long long x = time_in->tv_sec * NSPERSEC + time_in->tv_usec * (NSPERSEC/1000000) + FACTOR; out->dwHighDateTime = x >> 32; out->dwLowDateTime = x; } /* Cygwin internal */ static timeval __stdcall time_t_to_timeval (time_t in) { timeval res; res.tv_sec = in; res.tv_usec = 0; return res; } /* Cygwin internal */ /* Convert a Win32 time to "UNIX" format. */ long __stdcall to_time_t (FILETIME *ptr) { /* A file time is the number of 100ns since jan 1 1601 stuffed into two long words. A time_t is the number of seconds since jan 1 1970. */ long long x = ((long long) ptr->dwHighDateTime << 32) + ((unsigned)ptr->dwLowDateTime); /* pass "no time" as epoch */ if (x == 0) return 0; x -= FACTOR; /* number of 100ns between 1601 and 1970 */ x /= (long long) NSPERSEC; /* number of 100ns in a second */ return x; } /* Cygwin internal */ /* Convert a Win32 time to "UNIX" timestruc_t format. */ void __stdcall to_timestruc_t (FILETIME *ptr, timestruc_t *out) { /* A file time is the number of 100ns since jan 1 1601 stuffed into two long words. A timestruc_t is the number of seconds and microseconds since jan 1 1970 stuffed into a time_t and a long. */ long rem; long long x = ((long long) ptr->dwHighDateTime << 32) + ((unsigned)ptr->dwLowDateTime); /* pass "no time" as epoch */ if (x == 0) { out->tv_sec = 0; out->tv_nsec = 0; return; } x -= FACTOR; /* number of 100ns between 1601 and 1970 */ rem = x % ((long long)NSPERSEC); x /= (long long) NSPERSEC; /* number of 100ns in a second */ out->tv_nsec = rem * 100; /* as tv_nsec is in nanoseconds */ out->tv_sec = x; } /* Cygwin internal */ /* Get the current time as a "UNIX" timestruc_t format. */ void __stdcall time_as_timestruc_t (timestruc_t * out) { SYSTEMTIME systemtime; FILETIME filetime; GetSystemTime (&systemtime); SystemTimeToFileTime (&systemtime, &filetime); to_timestruc_t (&filetime, out); } /* time: POSIX 4.5.1.1, C 4.12.2.4 */ /* Return number of seconds since 00:00 UTC on jan 1, 1970 */ extern "C" time_t time (time_t * ptr) { time_t res; SYSTEMTIME systemtime; FILETIME filetime; GetSystemTime (&systemtime); SystemTimeToFileTime (&systemtime, &filetime); res = to_time_t (&filetime); if (ptr) *ptr = res; syscall_printf ("%d = time (%x)", res, ptr); return res; } /* * localtime_r.c * Original Author: Adapted from tzcode maintained by Arthur David Olson. * * Converts the calendar time pointed to by tim_p into a broken-down time * expressed as local time. Returns a pointer to a structure containing the * broken-down time. */ #define SECSPERMIN 60 #define MINSPERHOUR 60 #define HOURSPERDAY 24 #define SECSPERHOUR (SECSPERMIN * MINSPERHOUR) #define SECSPERDAY (SECSPERHOUR * HOURSPERDAY) #define DAYSPERWEEK 7 #define MONSPERYEAR 12 #define YEAR_BASE 1900 #define EPOCH_YEAR 1970 #define EPOCH_WDAY 4 #define isleap(y) ((((y) % 4) == 0 && ((y) % 100) != 0) || ((y) % 400) == 0) #if 0 /* POSIX_LOCALTIME */ static _CONST int mon_lengths[2][MONSPERYEAR] = { {31, 28, 31, 30, 31, 30, 31, 31, 30, 31, 30, 31}, {31, 29, 31, 30, 31, 30, 31, 31, 30, 31, 30, 31} }; static _CONST int year_lengths[2] = { 365, 366 }; /* * Convert a time_t into a struct tm *. * Does NO timezone conversion. */ /* Cygwin internal */ static struct tm * __stdcall corelocaltime (const time_t * tim_p) { long days, rem; int y; int yleap; _CONST int *ip; struct tm &localtime_buf=_my_tls.locals.localtime_buf; time_t tim = *tim_p; struct tm *res = &localtime_buf; days = ((long) tim) / SECSPERDAY; rem = ((long) tim) % SECSPERDAY; while (rem < 0) { rem += SECSPERDAY; --days; } while (rem >= SECSPERDAY) { rem -= SECSPERDAY; ++days; } /* compute hour, min, and sec */ res->tm_hour = (int) (rem / SECSPERHOUR); rem %= SECSPERHOUR; res->tm_min = (int) (rem / SECSPERMIN); res->tm_sec = (int) (rem % SECSPERMIN); /* compute day of week */ if ((res->tm_wday = ((EPOCH_WDAY + days) % DAYSPERWEEK)) < 0) res->tm_wday += DAYSPERWEEK; /* compute year & day of year */ y = EPOCH_YEAR; if (days >= 0) { for (;;) { yleap = isleap (y); if (days < year_lengths[yleap]) break; y++; days -= year_lengths[yleap]; } } else { do { --y; yleap = isleap (y); days += year_lengths[yleap]; } while (days < 0); } res->tm_year = y - YEAR_BASE; res->tm_yday = days; ip = mon_lengths[yleap]; for (res->tm_mon = 0; days >= ip[res->tm_mon]; ++res->tm_mon) days -= ip[res->tm_mon]; res->tm_mday = days + 1; /* set daylight saving time flag */ res->tm_isdst = -1; syscall_printf ("%d = corelocaltime (%x)", res, tim_p); return (res); } /* localtime: POSIX 8.1.1, C 4.12.3.4 */ /* * localtime takes a time_t (which is in UTC) * and formats it into a struct tm as a local time. */ extern "C" struct tm * localtime (const time_t *tim_p) { time_t tim = *tim_p; struct tm *rtm; tzset (); tim -= _timezone; rtm = corelocaltime (&tim); rtm->tm_isdst = _daylight; syscall_printf ("%x = localtime (%x)", rtm, tim_p); return rtm; } /* gmtime: C 4.12.3.3 */ /* * gmtime takes a time_t (which is already in UTC) * and just puts it into a struct tm. */ extern "C" struct tm * gmtime (const time_t *tim_p) { time_t tim = *tim_p; struct tm *rtm = corelocaltime (&tim); /* UTC has no daylight savings time */ rtm->tm_isdst = 0; syscall_printf ("%x = gmtime (%x)", rtm, tim_p); return rtm; } #endif /* POSIX_LOCALTIME */ /* utimes: standards? */ extern "C" int utimes (const char *path, struct timeval *tvp) { int res = 0; struct timeval tmp[2]; path_conv win32 (path); if (win32.error) { set_errno (win32.error); syscall_printf ("-1 = utimes (%s, %x)", path, tvp); return -1; } /* MSDN suggests using FILE_FLAG_BACKUP_SEMANTICS for accessing the times of directories. */ /* Note: It's not documented in MSDN that FILE_WRITE_ATTRIBUTES is sufficient to change the timestamps... */ HANDLE h = CreateFile (win32, FILE_WRITE_ATTRIBUTES, FILE_SHARE_READ | FILE_SHARE_WRITE, &sec_none_nih, OPEN_EXISTING, FILE_ATTRIBUTE_NORMAL | FILE_FLAG_BACKUP_SEMANTICS, 0); if (h == INVALID_HANDLE_VALUE) { if (win32.isdir ()) { /* What we can do with directories more? */ res = 0; } else { res = -1; __seterrno (); } } else { if (tvp == 0) { gettimeofday (&tmp[0], 0); tmp[1] = tmp[0]; tvp = tmp; } FILETIME lastaccess; FILETIME lastwrite; timeval_to_filetime (tvp + 0, &lastaccess); timeval_to_filetime (tvp + 1, &lastwrite); debug_printf ("incoming lastaccess %08x %08x", tvp->tv_sec, tvp->tv_usec); // dump_filetime (lastaccess); // dump_filetime (lastwrite); /* FIXME: SetFileTime needs a handle with a write lock on the file whose time is being modified. So calls to utime() fail for read only files. */ if (!SetFileTime (h, 0, &lastaccess, &lastwrite)) { __seterrno (); res = -1; } else res = 0; CloseHandle (h); } syscall_printf ("%d = utimes (%s, %x); (h%d)", res, path, tvp, h); return res; } /* utime: POSIX 5.6.6.1 */ extern "C" int utime (const char *path, struct utimbuf *buf) { struct timeval tmp[2]; if (buf == 0) return utimes (path, 0); debug_printf ("incoming utime act %x", buf->actime); tmp[0] = time_t_to_timeval (buf->actime); tmp[1] = time_t_to_timeval (buf->modtime); return utimes (path, tmp); } /* ftime: standards? */ extern "C" int ftime (struct timeb *tp) { struct timeval tv; struct timezone tz; if (gettimeofday (&tv, &tz) < 0) return -1; tp->time = tv.tv_sec; tp->millitm = tv.tv_usec / 1000; tp->timezone = tz.tz_minuteswest; tp->dstflag = tz.tz_dsttime; return 0; } /* obsolete, changed to cygwin_tzset when localtime.c was added - dj */ extern "C" void cygwin_tzset () { } void hires_us::prime () { LARGE_INTEGER ifreq; if (!QueryPerformanceFrequency (&ifreq)) { inited = -1; return; } FILETIME f; int priority = GetThreadPriority (GetCurrentThread ()); SetThreadPriority (GetCurrentThread (), THREAD_PRIORITY_TIME_CRITICAL); if (!QueryPerformanceCounter (&primed_pc)) { SetThreadPriority (GetCurrentThread (), priority); inited = -1; return; } GetSystemTimeAsFileTime (&f); SetThreadPriority (GetCurrentThread (), priority); inited = 1; primed_ft.HighPart = f.dwHighDateTime; primed_ft.LowPart = f.dwLowDateTime; primed_ft.QuadPart -= FACTOR; primed_ft.QuadPart /= 10; freq = (double) ((double) 1000000. / (double) ifreq.QuadPart); return; } LONGLONG hires_us::usecs (bool justdelta) { if (!inited) prime (); if (inited < 0) { set_errno (ENOSYS); return (long long) -1; } LARGE_INTEGER now; if (!QueryPerformanceCounter (&now)) { set_errno (ENOSYS); return -1; } // FIXME: Use round() here? now.QuadPart = (LONGLONG) (freq * (double) (now.QuadPart - primed_pc.QuadPart)); LONGLONG res = justdelta ? now.QuadPart : primed_ft.QuadPart + now.QuadPart; return res; } UINT hires_ms::prime () { TIMECAPS tc; FILETIME f; if (!minperiod) if (timeGetDevCaps (&tc, sizeof (tc)) != TIMERR_NOERROR) minperiod = 1; else { minperiod = min (max (tc.wPeriodMin, 1), tc.wPeriodMax); timeBeginPeriod (minperiod); } if (!inited) { int priority = GetThreadPriority (GetCurrentThread ()); SetThreadPriority (GetCurrentThread (), THREAD_PRIORITY_TIME_CRITICAL); initime_ms = timeGetTime (); GetSystemTimeAsFileTime (&f); SetThreadPriority (GetCurrentThread (), priority); inited = 1; initime_us.HighPart = f.dwHighDateTime; initime_us.LowPart = f.dwLowDateTime; initime_us.QuadPart -= FACTOR; initime_us.QuadPart /= 10; } return minperiod; } LONGLONG hires_ms::usecs (bool justdelta) { if (!minperiod) /* NO_COPY variable */ prime (); DWORD now = timeGetTime (); if (now < initime_ms) { inited = 0; prime (); now = timeGetTime (); } // FIXME: Not sure how this will handle the 49.71 day wrap around LONGLONG res = initime_us.QuadPart + ((LONGLONG) (now - initime_ms) * 1000); return res; } extern "C" int clock_gettime (clockid_t clk_id, struct timespec *tp) { if (clk_id != CLOCK_REALTIME) { set_errno (ENOSYS); return -1; } LONGLONG now = gtod.usecs (false); if (now == (LONGLONG) -1) return -1; tp->tv_sec = now / 1000000; tp->tv_nsec = (now % 1000000) * 1000; return 0; }