diff options
Diffstat (limited to 'unix/tclUnixTime.c')
-rw-r--r-- | unix/tclUnixTime.c | 71 |
1 files changed, 0 insertions, 71 deletions
diff --git a/unix/tclUnixTime.c b/unix/tclUnixTime.c index 1d8b351..6a73ac2 100644 --- a/unix/tclUnixTime.c +++ b/unix/tclUnixTime.c @@ -87,32 +87,6 @@ TclpGetSeconds(void) /* *---------------------------------------------------------------------- * - * TclpGetMicroseconds -- - * - * This procedure returns the number of microseconds from the epoch. - * On most Unix systems the epoch is Midnight Jan 1, 1970 GMT. - * - * Results: - * Number of microseconds from the epoch. - * - * Side effects: - * None. - * - *---------------------------------------------------------------------- - */ - -Tcl_WideInt -TclpGetMicroseconds(void) -{ - Tcl_Time time; - - tclGetTimeProcPtr(&time, tclTimeClientData); - return ((Tcl_WideInt)time.sec)*1000000 + time.usec; -} - -/* - *---------------------------------------------------------------------- - * * TclpGetClicks -- * * This procedure returns a value that represents the highest resolution @@ -245,51 +219,6 @@ TclpWideClicksToNanoseconds( return nsec; } - -/* - *---------------------------------------------------------------------- - * - * TclpWideClickInMicrosec -- - * - * This procedure return scale to convert click values from the - * TclpGetWideClicks native resolution to microsecond resolution - * and back. - * - * Results: - * 1 click in microseconds as double. - * - * Side effects: - * None. - * - *---------------------------------------------------------------------- - */ - -double -TclpWideClickInMicrosec(void) -{ - if (tclGetTimeProcPtr != NativeGetTime) { - return 1.0; - } else { -#ifdef MAC_OSX_TCL - static int initialized = 0; - static double scale = 0.0; - - if (initialized) { - return scale; - } else { - mach_timebase_info_data_t tb; - - mach_timebase_info(&tb); - /* value of tb.numer / tb.denom = 1 click in nanoseconds */ - scale = ((double)tb.numer) / tb.denom / 1000; - initialized = 1; - return scale; - } -#else -#error Wide high-resolution clicks not implemented on this platform -#endif - } -} #endif /* TCL_WIDE_CLICKS */ /* |