开通博客赚积分
发布资源赚积分
分类

源码开发语言/平台
当前位置：首页 > 源码/资料 > 数据库系统 > 查看源码
nabstime.c
资源名称：postgresql-6.5.2.tar.gz　[点击查看]
上传用户：blenddy
上传日期：2007-01-07
资源大小：6495k
文件大小：12k
源码类别：

数据库系统

开发平台：

Unix_Linux

nabstime.c：源码内容
  1. /*
  2.  * nabstime.c
  3.  *   parse almost any absolute date getdate(3) can (& some it can't)
  4.  *
  5.  * Copyright (c) 1994, Regents of the University of California
  6.  *
  7.  *   $Id: nabstime.c,v 1.55.2.1 1999/08/02 05:24:54 scrappy Exp $
  8.  *
  9.  */
  10. #include <ctype.h>
  11. #include <sys/types.h>
  13. #include "postgres.h"
  14. #ifdef HAVE_FLOAT_H
  15. #include <float.h>
  16. #endif
  17. #ifdef HAVE_LIMITS_H
  18. #include <limits.h>
  19. #endif
  20. #ifndef USE_POSIX_TIME
  21. #include <sys/timeb.h>
  22. #endif
  24. #include "access/xact.h"
  25. #include "miscadmin.h"
  26. #include "utils/builtins.h"
  28. static AbsoluteTime tm2abstime(struct tm * tm, int tz);
  30. #define MIN_DAYNUM -24856 /* December 13, 1901 */
  31. #define MAX_DAYNUM 24854 /* January 18, 2038 */
  34. /* GetCurrentAbsoluteTime()
  35.  * Get the current system time. Set timezone parameters if not specified elsewhere.
  36.  * Define HasTZSet to allow clients to specify the default timezone.
  37.  *
  38.  * Returns the number of seconds since epoch (January 1 1970 GMT)
  39.  */
  40. AbsoluteTime
  41. GetCurrentAbsoluteTime(void)
  42. {
  43. time_t now;
  45. #ifdef USE_POSIX_TIME
  46. struct tm  *tm;
  48. now = time(NULL);
  49. #else /* ! USE_POSIX_TIME */
  50. struct timeb tb; /* the old V7-ism */
  52. ftime(&tb);
  53. now = tb.time;
  54. #endif
  56. if (!HasCTZSet)
  57. {
  58. #ifdef USE_POSIX_TIME
  59. #if defined(HAVE_TM_ZONE)
  60. tm = localtime(&now);
  62. CTimeZone = -tm->tm_gmtoff; /* tm_gmtoff is Sun/DEC-ism */
  63. CDayLight = (tm->tm_isdst > 0);
  65. #ifdef NOT_USED
  67. /*
  68.  * XXX is there a better way to get local timezone string w/o
  69.  * tzname? - tgl 97/03/18
  70.  */
  71. strftime(CTZName, MAXTZLEN, "%Z", tm);
  72. #endif
  74. /*
  75.  * XXX FreeBSD man pages indicate that this should work - thomas
  76.  * 1998-12-12
  77.  */
  78. strcpy(CTZName, tm->tm_zone);
  80. #elif defined(HAVE_INT_TIMEZONE)
  81. tm = localtime(&now);
  83. CDayLight = tm->tm_isdst;
  84. CTimeZone =
  85. #ifdef __CYGWIN32__
  86. (tm->tm_isdst ? (_timezone - 3600) : _timezone);
  87. #else
  88. (tm->tm_isdst ? (timezone - 3600) : timezone);
  89. #endif
  90. strcpy(CTZName, tzname[tm->tm_isdst]);
  91. #else
  92. #error USE_POSIX_TIME defined but no time zone available
  93. #endif
  94. #else /* ! USE_POSIX_TIME */
  95. CTimeZone = tb.timezone * 60;
  96. CDayLight = (tb.dstflag != 0);
  98. /*
  99.  * XXX does this work to get the local timezone string in V7? -
  100.  * tgl 97/03/18
  101.  */
  102. strftime(CTZName, MAXTZLEN, "%Z", localtime(&now));
  103. #endif
  104. };
  106. #ifdef DATEDEBUG
  107. printf("GetCurrentAbsoluteTime- timezone is %s -> %d seconds from UTCn",
  108.    CTZName, CTimeZone);
  109. #endif
  111. return (AbsoluteTime) now;
  112. } /* GetCurrentAbsoluteTime() */
  115. void
  116. GetCurrentTime(struct tm * tm)
  117. {
  118. int tz;
  120. abstime2tm(GetCurrentTransactionStartTime(), &tz, tm, NULL);
  122. return;
  123. } /* GetCurrentTime() */
  126. void
  127. abstime2tm(AbsoluteTime time, int *tzp, struct tm * tm, char *tzn)
  128. {
  129. #ifdef USE_POSIX_TIME
  130. struct tm  *tx;
  132. #else /* ! USE_POSIX_TIME */
  133. struct timeb tb; /* the old V7-ism */
  135. ftime(&tb);
  136. #endif
  138. #ifdef USE_POSIX_TIME
  139. if (tzp != NULL)
  140. tx = localtime((time_t *) &time);
  141. else
  142. {
  143. tx = gmtime((time_t *) &time);
  144. };
  145. #endif
  147. #if defined(DATEDEBUG)
  148. #if defined(HAVE_TM_ZONE)
  149. printf("datetime2tm- (localtime) %d.%02d.%02d %02d:%02d:%02d %s dst=%dn",
  150.    tx->tm_year, tx->tm_mon, tx->tm_mday, tx->tm_hour, tx->tm_min, tx->tm_sec,
  151.    tx->tm_zone, tx->tm_isdst);
  152. #elif defined(HAVE_INT_TIMEZONE)
  153. printf("datetime2tm- (localtime) %d.%02d.%02d %02d:%02d:%02d %s %s dst=%dn",
  154.    tx->tm_year, tx->tm_mon, tx->tm_mday, tx->tm_hour, tx->tm_min, tx->tm_sec,
  155.    tzname[0], tzname[1], tx->tm_isdst);
  156. #endif
  157. #endif
  159. #ifdef USE_POSIX_TIME
  161. tm->tm_year = tx->tm_year + 1900;
  162. tm->tm_mon = tx->tm_mon + 1;
  163. tm->tm_mday = tx->tm_mday;
  164. tm->tm_hour = tx->tm_hour;
  165. tm->tm_min = tx->tm_min;
  166. tm->tm_sec = tx->tm_sec;
  167. tm->tm_isdst = tx->tm_isdst;
  169. #if defined(HAVE_TM_ZONE)
  170. tm->tm_gmtoff = tx->tm_gmtoff;
  171. tm->tm_zone = tx->tm_zone;
  173. if (tzp != NULL)
  174. *tzp = -tm->tm_gmtoff; /* tm_gmtoff is Sun/DEC-ism */
  175. /* XXX FreeBSD man pages indicate that this should work - tgl 97/04/23 */
  176. if (tzn != NULL)
  177. strcpy(tzn, tm->tm_zone);
  178. #elif defined(HAVE_INT_TIMEZONE)
  179. if (tzp != NULL)
  180. #ifdef __CYGWIN__
  181. *tzp = (tm->tm_isdst ? (_timezone - 3600) : _timezone);
  182. #else
  183. *tzp = (tm->tm_isdst ? (timezone - 3600) : timezone);
  184. #endif
  185. if (tzn != NULL)
  186. strcpy(tzn, tzname[tm->tm_isdst]);
  187. #else
  188. #error POSIX time support is broken
  189. #endif
  190. #else /* ! USE_POSIX_TIME */
  191. if (tzp != NULL)
  192. *tzp = tb.timezone * 60;
  194. /*
  195.  * XXX does this work to get the local timezone string in V7? - tgl
  196.  * 97/03/18
  197.  */
  198. if (tzn != NULL)
  199. strftime(tzn, MAXTZLEN, "%Z", localtime(&now));
  200. #endif
  202. return;
  203. } /* abstime2tm() */
  206. /* tm2abstime()
  207.  * Convert a tm structure to abstime.
  208.  * Note that tm has full year (not 1900-based) and 1-based month.
  209.  */
  210. static AbsoluteTime
  211. tm2abstime(struct tm * tm, int tz)
  212. {
  213. int day,
  214. sec;
  216. /* validate, before going out of range on some members */
  217. if (tm->tm_year < 1901 || tm->tm_year > 2038
  218. || tm->tm_mon < 1 || tm->tm_mon > 12
  219. || tm->tm_mday < 1 || tm->tm_mday > 31
  220. || tm->tm_hour < 0 || tm->tm_hour >= 24
  221. || tm->tm_min < 0 || tm->tm_min > 59
  222. || tm->tm_sec < 0 || tm->tm_sec > 59)
  223. return INVALID_ABSTIME;
  225. day = (date2j(tm->tm_year, tm->tm_mon, tm->tm_mday) - date2j(1970, 1, 1));
  227. /* check for time out of range */
  228. if ((day < MIN_DAYNUM) || (day > MAX_DAYNUM))
  229. return INVALID_ABSTIME;
  231. /* convert to seconds */
  232. sec = tm->tm_sec + tz + (tm->tm_min + (day * 24 + tm->tm_hour) * 60) * 60;
  234. /* check for overflow */
  235. if ((day == MAX_DAYNUM && sec < 0) ||
  236. (day == MIN_DAYNUM && sec > 0))
  237. return INVALID_ABSTIME;
  239. /* check for reserved values (e.g. "current" on edge of usual range */
  240. if (!AbsoluteTimeIsReal(sec))
  241. return INVALID_ABSTIME;
  243. return sec;
  244. } /* tm2abstime() */
  247. /* nabstimein()
  248.  * Decode date/time string and return abstime.
  249.  */
  250. AbsoluteTime
  251. nabstimein(char *str)
  252. {
  253. AbsoluteTime result;
  255. double fsec;
  256. int tz = 0;
  257. struct tm date,
  258.    *tm = &date;
  260. char    *field[MAXDATEFIELDS];
  261. char lowstr[MAXDATELEN + 1];
  262. int dtype;
  263. int nf,
  264. ftype[MAXDATEFIELDS];
  266. if (!PointerIsValid(str))
  267. elog(ERROR, "Bad (null) abstime external representation", NULL);
  269. if (strlen(str) > MAXDATELEN)
  270. elog(ERROR, "Bad (length) abstime external representation '%s'", str);
  272. if ((ParseDateTime(str, lowstr, field, ftype, MAXDATEFIELDS, &nf) != 0)
  273.   || (DecodeDateTime(field, ftype, nf, &dtype, tm, &fsec, &tz) != 0))
  274. elog(ERROR, "Bad abstime external representation '%s'", str);
  276. #ifdef DATEDEBUG
  277. printf("nabstimein- %d fields are type %d (DTK_DATE=%d)n", nf, dtype, DTK_DATE);
  278. #endif
  280. switch (dtype)
  281. {
  282. case DTK_DATE:
  283. result = tm2abstime(tm, tz);
  284. break;
  286. case DTK_EPOCH:
  287. result = EPOCH_ABSTIME;
  288. break;
  290. case DTK_CURRENT:
  291. result = CURRENT_ABSTIME;
  292. break;
  294. case DTK_LATE:
  295. result = NOEND_ABSTIME;
  296. break;
  298. case DTK_EARLY:
  299. result = NOSTART_ABSTIME;
  300. break;
  302. case DTK_INVALID:
  303. result = INVALID_ABSTIME;
  304. break;
  306. default:
  307. elog(ERROR, "Bad abstime (internal coding error) '%s'", str);
  308. result = INVALID_ABSTIME;
  309. break;
  310. };
  312. return result;
  313. } /* nabstimein() */
  316. /* nabstimeout()
  317.  * Given an AbsoluteTime return the English text version of the date
  318.  */
  319. char *
  320. nabstimeout(AbsoluteTime time)
  321. {
  322. char    *result;
  323. int tz;
  324. double fsec = 0;
  325. struct tm tt,
  326.    *tm = &tt;
  327. char buf[MAXDATELEN + 1];
  328. char zone[MAXDATELEN + 1],
  329.    *tzn = zone;
  331. switch (time)
  332. {
  333. case EPOCH_ABSTIME:
  334. strcpy(buf, EPOCH);
  335. break;
  336. case INVALID_ABSTIME:
  337. strcpy(buf, INVALID);
  338. break;
  339. case CURRENT_ABSTIME:
  340. strcpy(buf, DCURRENT);
  341. break;
  342. case NOEND_ABSTIME:
  343. strcpy(buf, LATE);
  344. break;
  345. case NOSTART_ABSTIME:
  346. strcpy(buf, EARLY);
  347. break;
  348. default:
  349. abstime2tm(time, &tz, tm, tzn);
  350. EncodeDateTime(tm, fsec, &tz, &tzn, DateStyle, buf);
  351. break;
  352. }
  354. result = palloc(strlen(buf) + 1);
  355. strcpy(result, buf);
  357. return result;
  358. } /* nabstimeout() */
  361. /*
  362.  * AbsoluteTimeIsBefore -- true iff time1 is before time2.
  363.  * AbsoluteTimeIsBefore -- true iff time1 is after time2.
  364.  */
  365. bool
  366. AbsoluteTimeIsBefore(AbsoluteTime time1, AbsoluteTime time2)
  367. {
  368. Assert(AbsoluteTimeIsValid(time1));
  369. Assert(AbsoluteTimeIsValid(time2));
  371. if (time1 == CURRENT_ABSTIME)
  372. time1 = GetCurrentTransactionStartTime();
  374. if (time2 == CURRENT_ABSTIME)
  375. time2 = GetCurrentTransactionStartTime();
  377. return time1 < time2;
  378. }
  380. #ifdef NOT_USED
  381. bool
  382. AbsoluteTimeIsAfter(AbsoluteTime time1, AbsoluteTime time2)
  383. {
  384. Assert(AbsoluteTimeIsValid(time1));
  385. Assert(AbsoluteTimeIsValid(time2));
  387. if (time1 == CURRENT_ABSTIME)
  388. time1 = GetCurrentTransactionStartTime();
  390. if (time2 == CURRENT_ABSTIME)
  391. time2 = GetCurrentTransactionStartTime();
  393. return time1 > time2;
  394. }
  396. #endif
  398. /* abstime_finite()
  399.  */
  400. bool
  401. abstime_finite(AbsoluteTime abstime)
  402. {
  403. return ((abstime != INVALID_ABSTIME)
  404.   && (abstime != NOSTART_ABSTIME) && (abstime != NOEND_ABSTIME));
  405. } /* abstime_finite() */
  408. /*
  409.  * abstimeeq - returns 1, iff arguments are equal
  410.  * abstimene - returns 1, iff arguments are not equal
  411.  * abstimelt - returns 1, iff t1 less than t2
  412.  * abstimegt - returns 1, iff t1 greater than t2
  413.  * abstimele - returns 1, iff t1 less than or equal to t2
  414.  * abstimege - returns 1, iff t1 greater than or equal to t2
  415.  */
  416. bool
  417. abstimeeq(AbsoluteTime t1, AbsoluteTime t2)
  418. {
  419. if (t1 == INVALID_ABSTIME || t2 == INVALID_ABSTIME)
  420. return FALSE;
  421. if (t1 == CURRENT_ABSTIME)
  422. t1 = GetCurrentTransactionStartTime();
  423. if (t2 == CURRENT_ABSTIME)
  424. t2 = GetCurrentTransactionStartTime();
  426. return t1 == t2;
  427. }
  429. bool
  430. abstimene(AbsoluteTime t1, AbsoluteTime t2)
  431. {
  432. if (t1 == INVALID_ABSTIME || t2 == INVALID_ABSTIME)
  433. return FALSE;
  434. if (t1 == CURRENT_ABSTIME)
  435. t1 = GetCurrentTransactionStartTime();
  436. if (t2 == CURRENT_ABSTIME)
  437. t2 = GetCurrentTransactionStartTime();
  439. return t1 != t2;
  440. }
  442. bool
  443. abstimelt(AbsoluteTime t1, AbsoluteTime t2)
  444. {
  445. if (t1 == INVALID_ABSTIME || t2 == INVALID_ABSTIME)
  446. return FALSE;
  447. if (t1 == CURRENT_ABSTIME)
  448. t1 = GetCurrentTransactionStartTime();
  449. if (t2 == CURRENT_ABSTIME)
  450. t2 = GetCurrentTransactionStartTime();
  452. return t1 < t2;
  453. }
  455. bool
  456. abstimegt(AbsoluteTime t1, AbsoluteTime t2)
  457. {
  458. if (t1 == INVALID_ABSTIME || t2 == INVALID_ABSTIME)
  459. return FALSE;
  460. if (t1 == CURRENT_ABSTIME)
  461. t1 = GetCurrentTransactionStartTime();
  462. if (t2 == CURRENT_ABSTIME)
  463. t2 = GetCurrentTransactionStartTime();
  465. return t1 > t2;
  466. }
  468. bool
  469. abstimele(AbsoluteTime t1, AbsoluteTime t2)
  470. {
  471. if (t1 == INVALID_ABSTIME || t2 == INVALID_ABSTIME)
  472. return FALSE;
  473. if (t1 == CURRENT_ABSTIME)
  474. t1 = GetCurrentTransactionStartTime();
  475. if (t2 == CURRENT_ABSTIME)
  476. t2 = GetCurrentTransactionStartTime();
  478. return t1 <= t2;
  479. }
  481. bool
  482. abstimege(AbsoluteTime t1, AbsoluteTime t2)
  483. {
  484. if (t1 == INVALID_ABSTIME || t2 == INVALID_ABSTIME)
  485. return FALSE;
  486. if (t1 == CURRENT_ABSTIME)
  487. t1 = GetCurrentTransactionStartTime();
  488. if (t2 == CURRENT_ABSTIME)
  489. t2 = GetCurrentTransactionStartTime();
  491. return t1 >= t2;
  492. }
  495. /* datetime_abstime()
  496.  * Convert datetime to abstime.
  497.  */
  498. AbsoluteTime
  499. datetime_abstime(DateTime *datetime)
  500. {
  501. AbsoluteTime result;
  503. double fsec;
  504. struct tm tt,
  505.    *tm = &tt;
  507. if (!PointerIsValid(datetime))
  508. {
  509. result = INVALID_ABSTIME;
  511. }
  512. else if (DATETIME_IS_INVALID(*datetime))
  513. {
  514. result = INVALID_ABSTIME;
  516. }
  517. else if (DATETIME_IS_NOBEGIN(*datetime))
  518. {
  519. result = NOSTART_ABSTIME;
  521. }
  522. else if (DATETIME_IS_NOEND(*datetime))
  523. {
  524. result = NOEND_ABSTIME;
  526. }
  527. else
  528. {
  529. if (DATETIME_IS_RELATIVE(*datetime))
  530. {
  531. datetime2tm(SetDateTime(*datetime), NULL, tm, &fsec, NULL);
  532. result = tm2abstime(tm, 0);
  534. }
  535. else if (datetime2tm(*datetime, NULL, tm, &fsec, NULL) == 0)
  536. {
  537. result = tm2abstime(tm, 0);
  539. }
  540. else
  541. {
  542. result = INVALID_ABSTIME;
  543. };
  544. };
  546. return result;
  547. } /* datetime_abstime() */
  549. /* abstime_datetime()
  550.  * Convert abstime to datetime.
  551.  */
  552. DateTime   *
  553. abstime_datetime(AbsoluteTime abstime)
  554. {
  555. DateTime   *result;
  557. if (!PointerIsValid(result = palloc(sizeof(DateTime))))
  558. elog(ERROR, "Unable to allocate space to convert abstime to datetime", NULL);
  560. switch (abstime)
  561. {
  562. case INVALID_ABSTIME:
  563. DATETIME_INVALID(*result);
  564. break;
  566. case NOSTART_ABSTIME:
  567. DATETIME_NOBEGIN(*result);
  568. break;
  570. case NOEND_ABSTIME:
  571. DATETIME_NOEND(*result);
  572. break;
  574. case EPOCH_ABSTIME:
  575. DATETIME_EPOCH(*result);
  576. break;
  578. case CURRENT_ABSTIME:
  579. DATETIME_CURRENT(*result);
  580. break;
  582. default:
  583. *result = abstime + ((date2j(1970, 1, 1) - date2j(2000, 1, 1)) * 86400);
  584. break;
  585. };
  587. return result;
  588. } /* abstime_datetime() */