1996-09-27 06:29:02 -04:00
|
|
|
|
/*
|
|
|
|
|
* tclUnixTime.c --
|
|
|
|
|
*
|
|
|
|
|
* Contains Unix specific versions of Tcl functions that
|
|
|
|
|
* obtain time values from the operating system.
|
|
|
|
|
*
|
|
|
|
|
* Copyright (c) 1995 Sun Microsystems, Inc.
|
|
|
|
|
*
|
|
|
|
|
* See the file "license.terms" for information on usage and redistribution
|
|
|
|
|
* of this file, and for a DISCLAIMER OF ALL WARRANTIES.
|
|
|
|
|
*
|
1998-09-30 07:11:02 -04:00
|
|
|
|
* SCCS: @(#) tclUnixTime.c 1.13 97/10/31 15:04:58
|
1996-09-27 06:29:02 -04:00
|
|
|
|
*/
|
|
|
|
|
|
|
|
|
|
#include "tclInt.h"
|
|
|
|
|
#include "tclPort.h"
|
|
|
|
|
|
|
|
|
|
/*
|
|
|
|
|
*-----------------------------------------------------------------------------
|
|
|
|
|
*
|
1998-04-10 06:59:06 -04:00
|
|
|
|
* TclpGetSeconds --
|
1996-09-27 06:29:02 -04:00
|
|
|
|
*
|
|
|
|
|
* This procedure returns the number of seconds from the epoch. On
|
|
|
|
|
* most Unix systems the epoch is Midnight Jan 1, 1970 GMT.
|
|
|
|
|
*
|
|
|
|
|
* Results:
|
|
|
|
|
* Number of seconds from the epoch.
|
|
|
|
|
*
|
|
|
|
|
* Side effects:
|
|
|
|
|
* None.
|
|
|
|
|
*
|
|
|
|
|
*-----------------------------------------------------------------------------
|
|
|
|
|
*/
|
|
|
|
|
|
|
|
|
|
unsigned long
|
1998-04-10 06:59:06 -04:00
|
|
|
|
TclpGetSeconds()
|
1996-09-27 06:29:02 -04:00
|
|
|
|
{
|
|
|
|
|
return time((time_t *) NULL);
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
/*
|
|
|
|
|
*-----------------------------------------------------------------------------
|
|
|
|
|
*
|
1998-04-10 06:59:06 -04:00
|
|
|
|
* TclpGetClicks --
|
1996-09-27 06:29:02 -04:00
|
|
|
|
*
|
|
|
|
|
* This procedure returns a value that represents the highest resolution
|
|
|
|
|
* clock available on the system. There are no garantees on what the
|
|
|
|
|
* resolution will be. In Tcl we will call this value a "click". The
|
|
|
|
|
* start time is also system dependant.
|
|
|
|
|
*
|
|
|
|
|
* Results:
|
|
|
|
|
* Number of clicks from some start time.
|
|
|
|
|
*
|
|
|
|
|
* Side effects:
|
|
|
|
|
* None.
|
|
|
|
|
*
|
|
|
|
|
*-----------------------------------------------------------------------------
|
|
|
|
|
*/
|
|
|
|
|
|
|
|
|
|
unsigned long
|
1998-04-10 06:59:06 -04:00
|
|
|
|
TclpGetClicks()
|
1996-09-27 06:29:02 -04:00
|
|
|
|
{
|
|
|
|
|
unsigned long now;
|
|
|
|
|
#ifdef NO_GETTOD
|
|
|
|
|
struct tms dummy;
|
|
|
|
|
#else
|
|
|
|
|
struct timeval date;
|
|
|
|
|
struct timezone tz;
|
|
|
|
|
#endif
|
|
|
|
|
|
|
|
|
|
#ifdef NO_GETTOD
|
|
|
|
|
now = (unsigned long) times(&dummy);
|
|
|
|
|
#else
|
|
|
|
|
gettimeofday(&date, &tz);
|
|
|
|
|
now = date.tv_sec*1000000 + date.tv_usec;
|
|
|
|
|
#endif
|
|
|
|
|
|
|
|
|
|
return now;
|
|
|
|
|
}
|
|
|
|
|
|
1999-09-05 07:16:41 -04:00
|
|
|
|
#ifndef SCM_CODE
|
1996-09-27 06:29:02 -04:00
|
|
|
|
/*
|
|
|
|
|
*----------------------------------------------------------------------
|
|
|
|
|
*
|
1998-04-10 06:59:06 -04:00
|
|
|
|
* TclpGetTimeZone --
|
1996-09-27 06:29:02 -04:00
|
|
|
|
*
|
|
|
|
|
* Determines the current timezone. The method varies wildly
|
|
|
|
|
* between different platform implementations, so its hidden in
|
|
|
|
|
* this function.
|
|
|
|
|
*
|
|
|
|
|
* Results:
|
1998-04-10 06:59:06 -04:00
|
|
|
|
* The return value is the local time zone, measured in
|
|
|
|
|
* minutes away from GMT (-ve for east, +ve for west).
|
1996-09-27 06:29:02 -04:00
|
|
|
|
*
|
|
|
|
|
* Side effects:
|
|
|
|
|
* None.
|
|
|
|
|
*
|
|
|
|
|
*----------------------------------------------------------------------
|
|
|
|
|
*/
|
|
|
|
|
|
|
|
|
|
int
|
1998-04-10 06:59:06 -04:00
|
|
|
|
TclpGetTimeZone (currentTime)
|
1996-09-27 06:29:02 -04:00
|
|
|
|
unsigned long currentTime;
|
|
|
|
|
{
|
|
|
|
|
/*
|
|
|
|
|
* Determine how a timezone is obtained from "struct tm". If there is no
|
|
|
|
|
* time zone in this struct (very lame) then use the timezone variable.
|
|
|
|
|
* This is done in a way to make the timezone variable the method of last
|
|
|
|
|
* resort, as some systems have it in addition to a field in "struct tm".
|
|
|
|
|
* The gettimeofday system call can also be used to determine the time
|
|
|
|
|
* zone.
|
|
|
|
|
*/
|
|
|
|
|
|
|
|
|
|
#if defined(HAVE_TM_TZADJ)
|
|
|
|
|
# define TCL_GOT_TIMEZONE
|
|
|
|
|
time_t curTime = (time_t) currentTime;
|
|
|
|
|
struct tm *timeDataPtr = localtime(&curTime);
|
|
|
|
|
int timeZone;
|
|
|
|
|
|
|
|
|
|
timeZone = timeDataPtr->tm_tzadj / 60;
|
|
|
|
|
if (timeDataPtr->tm_isdst) {
|
|
|
|
|
timeZone += 60;
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
return timeZone;
|
|
|
|
|
#endif
|
|
|
|
|
|
|
|
|
|
#if defined(HAVE_TM_GMTOFF) && !defined (TCL_GOT_TIMEZONE)
|
|
|
|
|
# define TCL_GOT_TIMEZONE
|
|
|
|
|
time_t curTime = (time_t) currentTime;
|
1998-09-30 07:11:02 -04:00
|
|
|
|
struct tm *timeDataPtr = localtime(&curTime);
|
1996-09-27 06:29:02 -04:00
|
|
|
|
int timeZone;
|
|
|
|
|
|
|
|
|
|
timeZone = -(timeDataPtr->tm_gmtoff / 60);
|
|
|
|
|
if (timeDataPtr->tm_isdst) {
|
|
|
|
|
timeZone += 60;
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
return timeZone;
|
|
|
|
|
#endif
|
|
|
|
|
|
1998-04-10 06:59:06 -04:00
|
|
|
|
#if defined(USE_DELTA_FOR_TZ)
|
|
|
|
|
#define TCL_GOT_TIMEZONE 1
|
|
|
|
|
/*
|
|
|
|
|
* This hack replaces using global var timezone or gettimeofday
|
|
|
|
|
* in situations where they are buggy such as on AIX when libbsd.a
|
|
|
|
|
* is linked in.
|
|
|
|
|
*/
|
|
|
|
|
|
|
|
|
|
int timeZone;
|
|
|
|
|
time_t tt;
|
|
|
|
|
struct tm *stm;
|
|
|
|
|
tt = 849268800L; /* 1996-11-29 12:00:00 GMT */
|
|
|
|
|
stm = localtime(&tt); /* eg 1996-11-29 6:00:00 CST6CDT */
|
|
|
|
|
/* The calculation below assumes a max of +12 or -12 hours from GMT */
|
|
|
|
|
timeZone = (12 - stm->tm_hour)*60 + (0 - stm->tm_min);
|
|
|
|
|
return timeZone; /* eg +360 for CST6CDT */
|
|
|
|
|
#endif
|
|
|
|
|
|
1996-09-27 06:29:02 -04:00
|
|
|
|
/*
|
|
|
|
|
* Must prefer timezone variable over gettimeofday, as gettimeofday does
|
|
|
|
|
* not return timezone information on many systems that have moved this
|
|
|
|
|
* information outside of the kernel.
|
|
|
|
|
*/
|
|
|
|
|
|
|
|
|
|
#if defined(HAVE_TIMEZONE_VAR) && !defined (TCL_GOT_TIMEZONE)
|
|
|
|
|
# define TCL_GOT_TIMEZONE
|
|
|
|
|
static int setTZ = 0;
|
|
|
|
|
int timeZone;
|
|
|
|
|
|
|
|
|
|
if (!setTZ) {
|
|
|
|
|
tzset();
|
|
|
|
|
setTZ = 1;
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
/*
|
|
|
|
|
* Note: this is not a typo in "timezone" below! See tzset
|
|
|
|
|
* documentation for details.
|
|
|
|
|
*/
|
|
|
|
|
|
|
|
|
|
timeZone = timezone / 60;
|
|
|
|
|
|
|
|
|
|
return timeZone;
|
|
|
|
|
#endif
|
|
|
|
|
|
1998-04-10 06:59:06 -04:00
|
|
|
|
#if !defined(NO_GETTOD) && !defined (TCL_GOT_TIMEZONE)
|
1996-09-27 06:29:02 -04:00
|
|
|
|
# define TCL_GOT_TIMEZONE
|
|
|
|
|
struct timeval tv;
|
|
|
|
|
struct timezone tz;
|
|
|
|
|
int timeZone;
|
|
|
|
|
|
|
|
|
|
gettimeofday(&tv, &tz);
|
|
|
|
|
timeZone = tz.tz_minuteswest;
|
|
|
|
|
if (tz.tz_dsttime) {
|
|
|
|
|
timeZone += 60;
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
return timeZone;
|
|
|
|
|
#endif
|
|
|
|
|
|
|
|
|
|
#ifndef TCL_GOT_TIMEZONE
|
|
|
|
|
/*
|
|
|
|
|
* Cause compile error, we don't know how to get timezone.
|
|
|
|
|
*/
|
|
|
|
|
error: autoconf did not figure out how to determine the timezone.
|
|
|
|
|
#endif
|
|
|
|
|
|
|
|
|
|
}
|
1998-09-30 07:11:02 -04:00
|
|
|
|
#endif
|
1996-09-27 06:29:02 -04:00
|
|
|
|
|
|
|
|
|
/*
|
|
|
|
|
*----------------------------------------------------------------------
|
|
|
|
|
*
|
1998-04-10 06:59:06 -04:00
|
|
|
|
* TclpGetTime --
|
1996-09-27 06:29:02 -04:00
|
|
|
|
*
|
|
|
|
|
* Gets the current system time in seconds and microseconds
|
|
|
|
|
* since the beginning of the epoch: 00:00 UCT, January 1, 1970.
|
|
|
|
|
*
|
|
|
|
|
* Results:
|
|
|
|
|
* Returns the current time in timePtr.
|
|
|
|
|
*
|
|
|
|
|
* Side effects:
|
|
|
|
|
* None.
|
|
|
|
|
*
|
|
|
|
|
*----------------------------------------------------------------------
|
|
|
|
|
*/
|
|
|
|
|
|
|
|
|
|
void
|
1998-04-10 06:59:06 -04:00
|
|
|
|
TclpGetTime(timePtr)
|
1996-09-27 06:29:02 -04:00
|
|
|
|
Tcl_Time *timePtr; /* Location to store time information. */
|
|
|
|
|
{
|
|
|
|
|
struct timeval tv;
|
|
|
|
|
struct timezone tz;
|
|
|
|
|
|
|
|
|
|
(void) gettimeofday(&tv, &tz);
|
|
|
|
|
timePtr->sec = tv.tv_sec;
|
|
|
|
|
timePtr->usec = tv.tv_usec;
|
|
|
|
|
}
|