*
*
* IDENTIFICATION
- * $Header: /cvsroot/pgsql/src/backend/utils/adt/datetime.c,v 1.43 2000/03/14 23:06:36 thomas Exp $
+ * $Header: /cvsroot/pgsql/src/backend/utils/adt/datetime.c,v 1.44 2000/03/16 14:36:51 thomas Exp $
*
*-------------------------------------------------------------------------
*/
#define USE_DATE_CACHE 1
#define ROUND_ALL 0
+static int DecodePosixTimezone(char *str, int *val);
+
int day_tab[2][13] = {
{31, 28, 31, 30, 31, 30, 31, 31, 30, 31, 30, 31, 0},
{31, 29, 31, 30, 31, 30, 31, 31, 30, 31, 30, 31, 0}};
"Thursday", "Friday", "Saturday", NULL};
-#if 0
-
-
-static void GetEpochTime(struct tm * tm);
-
-
-#endif
-
-
#define UTIME_MINYEAR (1901)
#define UTIME_MINMONTH (12)
#define UTIME_MINDAY (14)
} /* j2day() */
-#if 0
-
-
-static double
-time2t(const int hour, const int min, const double sec)
-{
- return (((hour * 60) + min) * 60) + sec;
-} /* time2t() */
-
-static void
-dt2time(Timestamp jd, int *hour, int *min, double *sec)
-{
- double time;
-
- time = jd;
-
- *hour = (time / 3600);
- time -= ((*hour) * 3600);
- *min = (time / 60);
- time -= ((*min) * 60);
- *sec = JROUND(time);
-
- return;
-} /* dt2time() */
-
-
-#endif
-
-
/*
* parse and convert date in timestr (the normal interface)
*
while (isalpha(*cp))
*lp++ = tolower(*cp++);
- /* full date string with leading text month? */
+ /* Full date string with leading text month?
+ * Could also be a POSIX time zone...
+ */
if ((*cp == '-') || (*cp == '/') || (*cp == '.'))
{
+#if 0
/*
* special case of Posix timezone "GMT-0800"
* Note that other sign (e.g. "GMT+0800"
*cp = '+';
continue;
}
+#endif
ftype[nf] = DTK_DATE;
while (isdigit(*cp) || (*cp == '-') || (*cp == '/') || (*cp == '.'))
switch (ftype[i])
{
case DTK_DATE:
- if (DecodeDate(field[i], fmask, &tmask, tm) != 0)
+ /* Already have a date?
+ * Then this might be a POSIX time zone
+ * with an embedded dash (e.g. "PST-3" == "EST")
+ * - thomas 2000-03-15
+ */
+ if ((fmask & DTK_DATE_M) == DTK_DATE_M)
+ {
+ if ((tzp == NULL)
+ || (DecodePosixTimezone(field[i], tzp) != 0))
+ return -1;
+
+ ftype[i] = DTK_TZ;
+ tmask = DTK_M(TZ);
+ }
+ else if (DecodeDate(field[i], fmask, &tmask, tm) != 0)
return -1;
break;
case DTK_TZ:
if (tzp == NULL)
return -1;
- if (DecodeTimezone(field[i], tzp) != 0)
- return -1;
- tmask = DTK_M(TZ);
+
+ {
+ int tz;
+
+ if (DecodeTimezone(field[i], &tz) != 0)
+ return -1;
+
+ /* Already have a time zone?
+ * Then maybe this is the second field of a POSIX time:
+ * EST+3 (equivalent to PST)
+ */
+ if ((i > 0) && ((fmask & DTK_M(TZ)) != 0)
+ && (ftype[i-1] == DTK_TZ) && (isalpha(*field[i-1])))
+ {
+ *tzp -= tz;
+ tmask = 0;
+ }
+ else
+ {
+ *tzp = tz;
+ tmask = DTK_M(TZ);
+ }
+ }
break;
case DTK_NUMBER:
if (tzp == NULL)
return -1;
*tzp = val * 60;
+ ftype[i] = DTK_TZ;
break;
case TZ:
if (tzp == NULL)
return -1;
*tzp = val * 60;
-
- /* Swallow an immediately succeeding timezone if this is GMT
- * This handles the odd case in FreeBSD of "GMT+0800"
- * but note that we need to flip the sign on this too.
- * Claims to be some sort of POSIX standard format :(
- * - thomas 2000-01-20
- */
- if ((i < (nf-1)) && (ftype[i+1] == DTK_TZ)
- && (strcmp(field[i], "gmt") == 0))
- {
- i++;
- if (DecodeTimezone(field[i], tzp) != 0)
- return -1;
-
- /* flip the sign per POSIX standard */
- *tzp = -(*tzp);
- }
-
-
+ ftype[i] = DTK_TZ;
break;
case IGNORE:
{
switch (ftype[i])
{
+ case DTK_DATE:
+ /* This might be a POSIX time zone
+ * with an embedded dash (e.g. "PST-3" == "EST")
+ * - thomas 2000-03-15
+ */
+ if ((tzp == NULL)
+ || (DecodePosixTimezone(field[i], tzp) != 0))
+ return -1;
+
+ ftype[i] = DTK_TZ;
+ tmask = DTK_M(TZ);
+ break;
+
case DTK_TIME:
if (DecodeTime(field[i], fmask, &tmask, tm, fsec) != 0)
return -1;
case DTK_TZ:
if (tzp == NULL)
return -1;
- if (DecodeTimezone(field[i], tzp) != 0)
- return -1;
- tmask = DTK_M(TZ);
+
+ {
+ int tz;
+
+ if (DecodeTimezone(field[i], &tz) != 0)
+ return -1;
+
+ /* Already have a time zone?
+ * Then maybe this is the second field of a POSIX time:
+ * EST+3 (equivalent to PST)
+ */
+ if ((i > 0) && ((fmask & DTK_M(TZ)) != 0)
+ && (ftype[i-1] == DTK_TZ) && (isalpha(*field[i-1])))
+ {
+ *tzp -= tz;
+ tmask = 0;
+ }
+ else
+ {
+ *tzp = tz;
+ tmask = DTK_M(TZ);
+ }
+ }
break;
case DTK_NUMBER:
break;
+ case DTZMOD:
+
+ /*
+ * daylight savings time modifier (solves "MET
+ * DST" syntax)
+ */
+ tmask |= DTK_M(DTZ);
+ tm->tm_isdst = 1;
+ if (tzp == NULL)
+ return -1;
+ *tzp += val * 60;
+ break;
+
+ case DTZ:
+
+ /*
+ * set mask for TZ here _or_ check for DTZ later
+ * when getting default timezone
+ */
+ tmask |= DTK_M(TZ);
+ tm->tm_isdst = 1;
+ if (tzp == NULL)
+ return -1;
+ *tzp = val * 60;
+ ftype[i] = DTK_TZ;
+ break;
+
+ case TZ:
+ tm->tm_isdst = 0;
+ if (tzp == NULL)
+ return -1;
+ *tzp = val * 60;
+ ftype[i] = DTK_TZ;
+ break;
+
case IGNORE:
break;
} /* DecodeTimezone() */
+/* DecodePosixTimezone()
+ * Interpret string as a POSIX-compatible timezone:
+ * PST-hh:mm
+ * PST+h
+ * - thomas 2000-03-15
+ */
+static int
+DecodePosixTimezone(char *str, int *tzp)
+{
+ int val, tz;
+ int type;
+ char *cp;
+ char delim;
+
+ cp = str;
+ while ((*cp != '\0') && isalpha(*cp))
+ cp++;
+
+ if (DecodeTimezone(cp, &tz) != 0)
+ return -1;
+
+ delim = *cp;
+ *cp = '\0';
+ type = DecodeSpecial(MAXDATEFIELDS-1, str, &val);
+ *cp = delim;
+
+ switch(type)
+ {
+ case DTZ:
+ case TZ:
+ *tzp = (val * 60) - tz;
+ break;
+
+ default:
+ return -1;
+ }
+
+ return 0;
+} /* DecodePosixTimezone() */
+
+
/* DecodeSpecial()
* Decode text string using lookup table.
* Implement a cache lookup since it is likely that dates
WHERE d1 BETWEEN '13-jun-1957' AND '1-jan-1997'
OR d1 BETWEEN '1-jan-1999' AND '1-jan-2010';
-SELECT '' AS "11", f1 AS timestamp
+SELECT '' AS "15", f1 AS timestamp
FROM TEMP_TIMESTAMP
ORDER BY timestamp;
-SELECT '' AS "110", d.f1 AS timestamp, t.f1 AS interval, d.f1 + t.f1 AS plus
+SELECT '' AS "150", d.f1 AS timestamp, t.f1 AS interval, d.f1 + t.f1 AS plus
FROM TEMP_TIMESTAMP d, INTERVAL_TBL t
ORDER BY plus, timestamp, interval;
-SELECT '' AS "110", d.f1 AS timestamp, t.f1 AS interval, d.f1 - t.f1 AS minus
+SELECT '' AS "150", d.f1 AS timestamp, t.f1 AS interval, d.f1 - t.f1 AS minus
FROM TEMP_TIMESTAMP d, INTERVAL_TBL t
WHERE isfinite(d.f1)
ORDER BY minus, timestamp, interval;
-SELECT '' AS "11", d.f1 AS timestamp, timestamp '1980-01-06 00:00 GMT' AS gpstime_zero,
+SELECT '' AS "15", d.f1 AS timestamp, timestamp '1980-01-06 00:00 GMT' AS gpstime_zero,
d.f1 - timestamp '1980-01-06 00:00 GMT' AS difference
FROM TEMP_TIMESTAMP d
ORDER BY difference;
-SELECT '' AS "121", d1.f1 AS timestamp1, d2.f1 AS timestamp2, d1.f1 - d2.f1 AS difference
+SELECT '' AS "225", d1.f1 AS timestamp1, d2.f1 AS timestamp2, d1.f1 - d2.f1 AS difference
FROM TEMP_TIMESTAMP d1, TEMP_TIMESTAMP d2
ORDER BY timestamp1, timestamp2, difference;
-SELECT '' as fifty, d1 as timestamp,
+SELECT '' as "54", d1 as timestamp,
date_part('year', d1) AS year, date_part('month', d1) AS month,
date_part('day',d1) AS day, date_part('hour', d1) AS hour,
date_part('minute', d1) AS minute, date_part('second', d1) AS second
-- Conversions
--
-SELECT '' AS "11", f1 AS timestamp, date( f1) AS date
+SELECT '' AS "15", f1 AS timestamp, date( f1) AS date
FROM TEMP_TIMESTAMP
WHERE f1 <> timestamp 'current'
ORDER BY date;
-SELECT '' AS "11", f1 AS timestamp, abstime( f1) AS abstime
+SELECT '' AS "15", f1 AS timestamp, abstime( f1) AS abstime
FROM TEMP_TIMESTAMP
ORDER BY abstime;
SHOW DateStyle;
-SELECT '' AS sixty_two, d1 AS us_postgres FROM TIMESTAMP_TBL;
+SELECT '' AS "66", d1 AS us_postgres FROM TIMESTAMP_TBL;
SELECT '' AS eight, f1 AS us_postgres FROM ABSTIME_TBL;
SET DateStyle TO 'US,ISO';
-SELECT '' AS sixty_two, d1 AS us_iso FROM TIMESTAMP_TBL;
+SELECT '' AS "66", d1 AS us_iso FROM TIMESTAMP_TBL;
SELECT '' AS eight, f1 AS us_iso FROM ABSTIME_TBL;
SHOW DateStyle;
-SELECT '' AS sixty_two, d1 AS us_sql FROM TIMESTAMP_TBL;
+SELECT '' AS "66", d1 AS us_sql FROM TIMESTAMP_TBL;
SELECT '' AS eight, f1 AS us_sql FROM ABSTIME_TBL;
SELECT count(*) as one FROM TIMESTAMP_TBL WHERE d1 = 'Jun 13 1957';
-SELECT '' AS sixty_three, d1 AS european_postgres FROM TIMESTAMP_TBL;
+SELECT '' AS "67", d1 AS european_postgres FROM TIMESTAMP_TBL;
SELECT '' AS eight, f1 AS european_postgres FROM ABSTIME_TBL;
SHOW DateStyle;
-SELECT '' AS sixty_three, d1 AS european_iso FROM TIMESTAMP_TBL;
+SELECT '' AS "67", d1 AS european_iso FROM TIMESTAMP_TBL;
SELECT '' AS eight, f1 AS european_iso FROM ABSTIME_TBL;
SHOW DateStyle;
-SELECT '' AS sixty_three, d1 AS european_sql FROM TIMESTAMP_TBL;
+SELECT '' AS "67", d1 AS european_sql FROM TIMESTAMP_TBL;
SELECT '' AS eight, f1 AS european_sql FROM ABSTIME_TBL;
INSERT INTO TIMESTAMP_TBL VALUES ('1997-06-10 17:32:01 -07:00');
-- POSIX format
-INSERT INTO TIMESTAMP_TBL VALUES ('2000-02-15 23:14:30 GMT+8');
-INSERT INTO TIMESTAMP_TBL VALUES ('2000-02-15 23:14:30 EST+3');
+INSERT INTO TIMESTAMP_TBL VALUES ('2000-03-15 08:14:01 GMT+8');
+INSERT INTO TIMESTAMP_TBL VALUES ('2000-03-15 13:14:02 GMT-1');
+INSERT INTO TIMESTAMP_TBL VALUES ('2000-03-15 12:14:03 GMT -2');
+INSERT INTO TIMESTAMP_TBL VALUES ('2000-03-15 03:14:04 EST+3');
+INSERT INTO TIMESTAMP_TBL VALUES ('2000-03-15 02:14:05 EST +2:00');
-- Variations for acceptable input formats
INSERT INTO TIMESTAMP_TBL VALUES ('Feb 10 17:32:01 1997 -0800');
INSERT INTO TIMESTAMP_TBL VALUES ('Feb 16 17:32:01 -0097');
INSERT INTO TIMESTAMP_TBL VALUES ('Feb 16 17:32:01 5097 BC');
-SELECT '' AS sixtythree, d1 FROM TIMESTAMP_TBL;
+SELECT '' AS "66", d1 FROM TIMESTAMP_TBL;
-- Demonstrate functions and operators
-SELECT '' AS fortythree, d1 FROM TIMESTAMP_TBL
+SELECT '' AS "47", d1 FROM TIMESTAMP_TBL
WHERE d1 > timestamp '1997-01-02' and d1 != timestamp 'current';
-SELECT '' AS fifteen, d1 FROM TIMESTAMP_TBL
+SELECT '' AS "15", d1 FROM TIMESTAMP_TBL
WHERE d1 < timestamp '1997-01-02' and d1 != timestamp 'current';
SELECT '' AS one, d1 FROM TIMESTAMP_TBL
WHERE d1 = timestamp '1997-01-02' and d1 != timestamp 'current';
-SELECT '' AS fiftyeight, d1 FROM TIMESTAMP_TBL
+SELECT '' AS "62", d1 FROM TIMESTAMP_TBL
WHERE d1 != timestamp '1997-01-02' and d1 != timestamp 'current';
-SELECT '' AS sixteen, d1 FROM TIMESTAMP_TBL
+SELECT '' AS "16", d1 FROM TIMESTAMP_TBL
WHERE d1 <= timestamp '1997-01-02' and d1 != timestamp 'current';
-SELECT '' AS fortyfour, d1 FROM TIMESTAMP_TBL
+SELECT '' AS "48", d1 FROM TIMESTAMP_TBL
WHERE d1 >= timestamp '1997-01-02' and d1 != timestamp 'current';
-SELECT '' AS sixtythree, d1 + interval '1 year' AS one_year FROM TIMESTAMP_TBL;
+SELECT '' AS "66", d1 + interval '1 year' AS one_year FROM TIMESTAMP_TBL;
-SELECT '' AS sixtythree, d1 - interval '1 year' AS one_year FROM TIMESTAMP_TBL;
+SELECT '' AS "66", d1 - interval '1 year' AS one_year FROM TIMESTAMP_TBL;
--- Casting within a BETWEEN qualifier should probably be allowed by the parser. - tgl 97/04/26
---SELECT '' AS fifty, d1 - timestamp '1997-01-02' AS diff
--- FROM TIMESTAMP_TBL WHERE d1 BETWEEN timestamp '1902-01-01' AND timestamp '2038-01-01';
-SELECT '' AS fifty, d1 - timestamp '1997-01-02' AS diff
+SELECT '' AS "53", d1 - timestamp '1997-01-02' AS diff
FROM TIMESTAMP_TBL WHERE d1 BETWEEN '1902-01-01' AND '2038-01-01';
-SELECT '' AS fortynine, date_part( 'year', d1) AS year, date_part( 'month', d1) AS month,
+-- Test casting within a BETWEEN qualifier
+SELECT '' AS "53", d1 - timestamp '1997-01-02' AS diff
+ FROM TIMESTAMP_TBL
+ WHERE d1 BETWEEN timestamp '1902-01-01' AND timestamp '2038-01-01';
+
+SELECT '' AS "53", date_part( 'year', d1) AS year, date_part( 'month', d1) AS month,
date_part( 'day', d1) AS day, date_part( 'hour', d1) AS hour,
date_part( 'minute', d1) AS minute, date_part( 'second', d1) AS second
FROM TIMESTAMP_TBL WHERE d1 BETWEEN '1902-01-01' AND '2038-01-01';
-SELECT '' AS fortynine, date_part( 'quarter', d1) AS quarter, date_part( 'msec', d1) AS msec,
+SELECT '' AS "53", date_part( 'quarter', d1) AS quarter, date_part( 'msec', d1) AS msec,
date_part( 'usec', d1) AS usec
FROM TIMESTAMP_TBL WHERE d1 BETWEEN '1902-01-01' AND '2038-01-01';