summaryrefslogtreecommitdiffstats
path: root/mac/tclMacTime.c
diff options
context:
space:
mode:
authordas <das>2004-03-17 18:14:11 (GMT)
committerdas <das>2004-03-17 18:14:11 (GMT)
commit0205867a3dad7204c57477b6c38c52b981af36e1 (patch)
treeb40c5ed765d71e7cb68ba178c3f3a098638c9987 /mac/tclMacTime.c
parentb07cf17d9c57bb355e84b17470235902854c7d40 (diff)
downloadtcl-0205867a3dad7204c57477b6c38c52b981af36e1.zip
tcl-0205867a3dad7204c57477b6c38c52b981af36e1.tar.gz
tcl-0205867a3dad7204c57477b6c38c52b981af36e1.tar.bz2
Removed support for Mac OS Classic platform [Patch 918142]
Diffstat (limited to 'mac/tclMacTime.c')
-rw-r--r--mac/tclMacTime.c436
1 files changed, 0 insertions, 436 deletions
diff --git a/mac/tclMacTime.c b/mac/tclMacTime.c
deleted file mode 100644
index d585ee7..0000000
--- a/mac/tclMacTime.c
+++ /dev/null
@@ -1,436 +0,0 @@
-/*
- * tclMacTime.c --
- *
- * Contains Macintosh specific versions of Tcl functions that
- * obtain time values from the operating system.
- *
- * Copyright (c) 1995-1997 Sun Microsystems, Inc.
- *
- * See the file "license.terms" for information on usage and redistribution
- * of this file, and for a DISCLAIMER OF ALL WARRANTIES.
- *
- * RCS: @(#) $Id: tclMacTime.c,v 1.8 2003/05/18 19:48:26 kennykb Exp $
- */
-
-#include "tclInt.h"
-#include "tclPort.h"
-#include "tclMacInt.h"
-#include <OSUtils.h>
-#include <Timer.h>
-#include <time.h>
-
-/*
- * Static variables used by the Tcl_GetTime function.
- */
-
-static int initalized = false;
-static unsigned long baseSeconds;
-static UnsignedWide microOffset;
-
-static int gmt_initialized = false;
-static long gmt_offset;
-static int gmt_isdst;
-TCL_DECLARE_MUTEX(gmtMutex)
-
-static int gmt_lastGetDateUseGMT = 0;
-
-typedef struct _TABLE {
- char *name;
- int type;
- time_t value;
-} TABLE;
-
-
-#define HOUR(x) ((time_t) (3600 * x))
-
-#define tZONE 0
-#define tDAYZONE 1
-
-
-/*
- * inverse timezone table, adapted from tclDate.c by removing duplicates and
- * adding some made up names for unusual daylight savings
- */
-static TABLE invTimezoneTable[] = {
- { "Z", -1, HOUR( 36) }, /* Unknown */
- { "GMT", tZONE, HOUR( 0) }, /* Greenwich Mean */
- { "BST", tDAYZONE, HOUR( 0) }, /* British Summer */
- { "WAT", tZONE, HOUR( 1) }, /* West Africa */
- { "WADST", tDAYZONE, HOUR( 1) }, /* West Africa Daylight*/
- { "AT", tZONE, HOUR( 2) }, /* Azores Daylight*/
- { "ADST", tDAYZONE, HOUR( 2) }, /* Azores */
- { "NFT", tZONE, HOUR( 7/2) }, /* Newfoundland */
- { "NDT", tDAYZONE, HOUR( 7/2) }, /* Newfoundland Daylight */
- { "AST", tZONE, HOUR( 4) }, /* Atlantic Standard */
- { "ADT", tDAYZONE, HOUR( 4) }, /* Atlantic Daylight */
- { "EST", tZONE, HOUR( 5) }, /* Eastern Standard */
- { "EDT", tDAYZONE, HOUR( 5) }, /* Eastern Daylight */
- { "CST", tZONE, HOUR( 6) }, /* Central Standard */
- { "CDT", tDAYZONE, HOUR( 6) }, /* Central Daylight */
- { "MST", tZONE, HOUR( 7) }, /* Mountain Standard */
- { "MDT", tDAYZONE, HOUR( 7) }, /* Mountain Daylight */
- { "PST", tZONE, HOUR( 8) }, /* Pacific Standard */
- { "PDT", tDAYZONE, HOUR( 8) }, /* Pacific Daylight */
- { "YST", tZONE, HOUR( 9) }, /* Yukon Standard */
- { "YDT", tDAYZONE, HOUR( 9) }, /* Yukon Daylight */
- { "HST", tZONE, HOUR(10) }, /* Hawaii Standard */
- { "HDT", tDAYZONE, HOUR(10) }, /* Hawaii Daylight */
- { "NT", tZONE, HOUR(11) }, /* Nome */
- { "NST", tDAYZONE, HOUR(11) }, /* Nome Daylight*/
- { "IDLW", tZONE, HOUR(12) }, /* International Date Line West */
- { "CET", tZONE, -HOUR( 1) }, /* Central European */
- { "CEST", tDAYZONE, -HOUR( 1) }, /* Central European Summer */
- { "EET", tZONE, -HOUR( 2) }, /* Eastern Europe, USSR Zone 1 */
- { "EEST", tDAYZONE, -HOUR( 2) }, /* Eastern Europe, USSR Zone 1 Daylight*/
- { "BT", tZONE, -HOUR( 3) }, /* Baghdad, USSR Zone 2 */
- { "BDST", tDAYZONE, -HOUR( 3) }, /* Baghdad, USSR Zone 2 Daylight*/
- { "IT", tZONE, -HOUR( 7/2) }, /* Iran */
- { "IDST", tDAYZONE, -HOUR( 7/2) }, /* Iran Daylight*/
- { "ZP4", tZONE, -HOUR( 4) }, /* USSR Zone 3 */
- { "ZP4S", tDAYZONE, -HOUR( 4) }, /* USSR Zone 3 */
- { "ZP5", tZONE, -HOUR( 5) }, /* USSR Zone 4 */
- { "ZP5S", tDAYZONE, -HOUR( 5) }, /* USSR Zone 4 */
- { "IST", tZONE, -HOUR(11/2) }, /* Indian Standard */
- { "ISDST", tDAYZONE, -HOUR(11/2) }, /* Indian Standard */
- { "ZP6", tZONE, -HOUR( 6) }, /* USSR Zone 5 */
- { "ZP6S", tDAYZONE, -HOUR( 6) }, /* USSR Zone 5 */
- { "WAST", tZONE, -HOUR( 7) }, /* West Australian Standard */
- { "WADT", tDAYZONE, -HOUR( 7) }, /* West Australian Daylight */
- { "JT", tZONE, -HOUR(15/2) }, /* Java (3pm in Cronusland!) */
- { "JDST", tDAYZONE, -HOUR(15/2) }, /* Java (3pm in Cronusland!) */
- { "CCT", tZONE, -HOUR( 8) }, /* China Coast, USSR Zone 7 */
- { "CCST", tDAYZONE, -HOUR( 8) }, /* China Coast, USSR Zone 7 */
- { "JST", tZONE, -HOUR( 9) }, /* Japan Standard, USSR Zone 8 */
- { "JSDST", tDAYZONE, -HOUR( 9) }, /* Japan Standard, USSR Zone 8 */
- { "CAST", tZONE, -HOUR(19/2) }, /* Central Australian Standard */
- { "CADT", tDAYZONE, -HOUR(19/2) }, /* Central Australian Daylight */
- { "EAST", tZONE, -HOUR(10) }, /* Eastern Australian Standard */
- { "EADT", tDAYZONE, -HOUR(10) }, /* Eastern Australian Daylight */
- { "NZT", tZONE, -HOUR(12) }, /* New Zealand */
- { "NZDT", tDAYZONE, -HOUR(12) }, /* New Zealand Daylight */
- { NULL }
-};
-
-/*
- * Prototypes for procedures that are private to this file:
- */
-
-static void SubtractUnsignedWide _ANSI_ARGS_((UnsignedWide *x,
- UnsignedWide *y, UnsignedWide *result));
-
-/*
- *-----------------------------------------------------------------------------
- *
- * TclpGetGMTOffset --
- *
- * This procedure gets the offset seconds that needs to be _added_ to tcl time
- * in seconds (i.e. GMT time) to get local time needed as input to various
- * Mac OS APIs, to convert Mac OS API output to tcl time, _subtract_ this value.
- *
- * Results:
- * Number of seconds separating GMT time and mac.
- *
- * Side effects:
- * None.
- *
- *-----------------------------------------------------------------------------
- */
-
-long
-TclpGetGMTOffset()
-{
- if (gmt_initialized == false) {
- MachineLocation loc;
-
- Tcl_MutexLock(&gmtMutex);
- ReadLocation(&loc);
- gmt_offset = loc.u.gmtDelta & 0x00ffffff;
- if (gmt_offset & 0x00800000) {
- gmt_offset = gmt_offset | 0xff000000;
- }
- gmt_isdst=(loc.u.dlsDelta < 0);
- gmt_initialized = true;
- Tcl_MutexUnlock(&gmtMutex);
- }
- return (gmt_offset);
-}
-
-/*
- *-----------------------------------------------------------------------------
- *
- * TclpGetSeconds --
- *
- * This procedure returns the number of seconds from the epoch. On
- * the Macintosh the epoch is Midnight Jan 1, 1904. Unfortunatly,
- * the Macintosh doesn't tie the epoch to a particular time zone. For
- * Tcl we tie the epoch to GMT. This makes the time zone date parsing
- * code work. The epoch for Mac-Tcl is: Midnight Jan 1, 1904 GMT.
- *
- * Results:
- * Number of seconds from the epoch in GMT.
- *
- * Side effects:
- * None.
- *
- *-----------------------------------------------------------------------------
- */
-
-unsigned long
-TclpGetSeconds()
-{
- unsigned long seconds;
-
- GetDateTime(&seconds);
- return (seconds - TclpGetGMTOffset() + tcl_mac_epoch_offset);
-}
-
-/*
- *-----------------------------------------------------------------------------
- *
- * TclpGetClicks --
- *
- * 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
-TclpGetClicks()
-{
- UnsignedWide micros;
-
- Microseconds(&micros);
- return micros.lo;
-}
-
-/*
- *----------------------------------------------------------------------
- *
- * TclpGetTimeZone --
- *
- * Get the current time zone.
- *
- * Results:
- * The return value is the local time zone, measured in
- * minutes away from GMT (-ve for east, +ve for west).
- *
- * Side effects:
- * None.
- *
- *----------------------------------------------------------------------
- */
-
-int
-TclpGetTimeZone (
- unsigned long currentTime) /* Ignored on Mac. */
-{
- long offset;
-
- /*
- * Convert the Mac offset from seconds to minutes and
- * add an hour if we have daylight savings time.
- */
- offset = -TclpGetGMTOffset();
- offset /= 60;
- if (gmt_isdst) {
- offset += 60;
- }
-
- return offset;
-}
-
-/*
- *----------------------------------------------------------------------
- *
- * Tcl_GetTime --
- *
- * 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 the local timezone) in timePtr.
- *
- * Side effects:
- * None.
- *
- *----------------------------------------------------------------------
- */
-
-void
-Tcl_GetTime(
- Tcl_Time *timePtr) /* Location to store time information. */
-{
- UnsignedWide micro;
-#ifndef NO_LONG_LONG
- long long *microPtr;
-#endif
-
- if (initalized == false) {
- GetDateTime(&baseSeconds);
- /*
- * Remove the local offset that ReadDateTime() adds.
- */
- baseSeconds -= TclpGetGMTOffset() - tcl_mac_epoch_offset;
- Microseconds(&microOffset);
- initalized = true;
- }
-
- Microseconds(&micro);
-
-#ifndef NO_LONG_LONG
- microPtr = (long long *) &micro;
- *microPtr -= *((long long *) &microOffset);
- timePtr->sec = baseSeconds + (*microPtr / 1000000);
- timePtr->usec = *microPtr % 1000000;
-#else
- SubtractUnsignedWide(&micro, &microOffset, &micro);
-
- /*
- * This lovely computation is equal to: base + (micro / 1000000)
- * For the .hi part the ratio of 0x100000000 / 1000000 has been
- * reduced to avoid overflow. This computation certainly has
- * problems as the .hi part gets large. However, your application
- * would have to run for a long time to make that happen.
- */
-
- timePtr->sec = baseSeconds + (micro.lo / 1000000) +
- (long) (micro.hi * ((double) 33554432.0 / 15625.0));
- timePtr->usec = micro.lo % 1000000;
-#endif
-}
-
-/*
- *----------------------------------------------------------------------
- *
- * TclpGetDate --
- *
- * Converts raw seconds to a struct tm data structure. The
- * returned time will be for Greenwich Mean Time if the useGMT flag
- * is set. Otherwise, the returned time will be for the local
- * time zone. This function is meant to be used as a replacement
- * for localtime and gmtime which is broken on most ANSI libs
- * on the Macintosh.
- *
- * Results:
- * None.
- *
- * Side effects:
- * The passed in struct tm data structure is modified.
- *
- *----------------------------------------------------------------------
- */
-
-struct tm *
-TclpGetDate(
- TclpTime_t time, /* Time struct to fill. */
- int useGMT) /* True if date should reflect GNT time. */
-{
- const time_t *tp = (const time_t *)time;
- DateTimeRec dtr;
- unsigned long offset=0L;
- static struct tm statictime;
- static const short monthday[12] =
- {0, 31, 59, 90, 120, 151, 181, 212, 243, 273, 304, 334};
-
- if(useGMT)
- SecondsToDate(*tp - tcl_mac_epoch_offset, &dtr);
- else
- SecondsToDate(*tp + TclpGetGMTOffset() - tcl_mac_epoch_offset, &dtr);
-
- statictime.tm_sec = dtr.second;
- statictime.tm_min = dtr.minute;
- statictime.tm_hour = dtr.hour;
- statictime.tm_mday = dtr.day;
- statictime.tm_mon = dtr.month - 1;
- statictime.tm_year = dtr.year - 1900;
- statictime.tm_wday = dtr.dayOfWeek - 1;
- statictime.tm_yday = monthday[statictime.tm_mon]
- + statictime.tm_mday - 1;
- if (1 < statictime.tm_mon && !(statictime.tm_year & 3)) {
- ++statictime.tm_yday;
- }
- if(useGMT)
- statictime.tm_isdst = 0;
- else
- statictime.tm_isdst = gmt_isdst;
- gmt_lastGetDateUseGMT=useGMT; /* hack to make TclpGetTZName below work */
- return(&statictime);
-}
-
-/*
- *----------------------------------------------------------------------
- *
- * TclpGetTZName --
- *
- * Gets the current timezone string.
- *
- * Results:
- * Returns a pointer to a static string, or NULL on failure.
- * The static string is in UTF-8 encoding.
- *
- * Side effects:
- * None.
- *
- *----------------------------------------------------------------------
- */
-
-char *
-TclpGetTZName(int dst)
-{
- register TABLE *tp;
- long zonevalue=-TclpGetGMTOffset();
-
- if (gmt_isdst)
- zonevalue += HOUR(1);
-
- if(gmt_lastGetDateUseGMT) /* hack: if last TclpGetDate was called */
- zonevalue=0; /* with useGMT==1 then we're using GMT */
-
- for (tp = invTimezoneTable; tp->name; tp++) {
- if ((tp->value == zonevalue) && (tp->type == dst)) break;
- }
- if(!tp->name)
- tp = invTimezoneTable; /* default to unknown */
-
- return tp->name;
-}
-
-#ifdef NO_LONG_LONG
-/*
- *----------------------------------------------------------------------
- *
- * SubtractUnsignedWide --
- *
- * Subtracts one UnsignedWide value from another.
- *
- * Results:
- * The subtracted value.
- *
- * Side effects:
- * None.
- *
- *----------------------------------------------------------------------
- */
-
-static void
-SubtractUnsignedWide(
- UnsignedWide *x, /* Ptr to wide int. */
- UnsignedWide *y, /* Ptr to wide int. */
- UnsignedWide *result) /* Ptr to result. */
-{
- result->hi = x->hi - y->hi;
- if (x->lo < y->lo) {
- result->hi--;
- }
- result->lo = x->lo - y->lo;
-}
-#endif