cdf_time.c 4.3 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179180181182183184185186187188189190191192193194195196197
  1. /*-
  2. * Copyright (c) 2008 Christos Zoulas
  3. * All rights reserved.
  4. *
  5. * Redistribution and use in source and binary forms, with or without
  6. * modification, are permitted provided that the following conditions
  7. * are met:
  8. * 1. Redistributions of source code must retain the above copyright
  9. * notice, this list of conditions and the following disclaimer.
  10. * 2. Redistributions in binary form must reproduce the above copyright
  11. * notice, this list of conditions and the following disclaimer in the
  12. * documentation and/or other materials provided with the distribution.
  13. *
  14. * THIS SOFTWARE IS PROVIDED BY THE NETBSD FOUNDATION, INC. AND CONTRIBUTORS
  15. * ``AS IS'' AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED
  16. * TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR
  17. * PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL THE FOUNDATION OR CONTRIBUTORS
  18. * BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR
  19. * CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF
  20. * SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS
  21. * INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN
  22. * CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE)
  23. * ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE
  24. * POSSIBILITY OF SUCH DAMAGE.
  25. */
  26. #include "file.h"
  27. #ifndef lint
  28. FILE_RCSID("@(#)$File: cdf_time.c,v 1.13 2014/02/25 20:52:02 christos Exp $")
  29. #endif
  30. #include <time.h>
  31. #ifdef TEST
  32. #include <err.h>
  33. #endif
  34. #include <string.h>
  35. #include "cdf.h"
  36. #define isleap(y) ((((y) % 4) == 0) && \
  37. ((((y) % 100) != 0) || (((y) % 400) == 0)))
  38. static const int mdays[] = {
  39. 31, 28, 31, 30, 31, 30, 31, 31, 30, 31, 30, 31
  40. };
  41. /*
  42. * Return the number of days between jan 01 1601 and jan 01 of year.
  43. */
  44. static int
  45. cdf_getdays(int year)
  46. {
  47. int days = 0;
  48. int y;
  49. for (y = CDF_BASE_YEAR; y < year; y++)
  50. days += isleap(y) + 365;
  51. return days;
  52. }
  53. /*
  54. * Return the day within the month
  55. */
  56. static int
  57. cdf_getday(int year, int days)
  58. {
  59. size_t m;
  60. for (m = 0; m < sizeof(mdays) / sizeof(mdays[0]); m++) {
  61. int sub = mdays[m] + (m == 1 && isleap(year));
  62. if (days < sub)
  63. return days;
  64. days -= sub;
  65. }
  66. return days;
  67. }
  68. /*
  69. * Return the 0...11 month number.
  70. */
  71. static int
  72. cdf_getmonth(int year, int days)
  73. {
  74. size_t m;
  75. for (m = 0; m < sizeof(mdays) / sizeof(mdays[0]); m++) {
  76. days -= mdays[m];
  77. if (m == 1 && isleap(year))
  78. days--;
  79. if (days <= 0)
  80. return (int)m;
  81. }
  82. return (int)m;
  83. }
  84. int
  85. cdf_timestamp_to_timespec(struct timespec *ts, cdf_timestamp_t t)
  86. {
  87. struct tm tm;
  88. #ifdef HAVE_STRUCT_TM_TM_ZONE
  89. static char UTC[] = "UTC";
  90. #endif
  91. int rdays;
  92. /* Unit is 100's of nanoseconds */
  93. ts->tv_nsec = (t % CDF_TIME_PREC) * 100;
  94. t /= CDF_TIME_PREC;
  95. tm.tm_sec = (int)(t % 60);
  96. t /= 60;
  97. tm.tm_min = (int)(t % 60);
  98. t /= 60;
  99. tm.tm_hour = (int)(t % 24);
  100. t /= 24;
  101. // XXX: Approx
  102. tm.tm_year = (int)(CDF_BASE_YEAR + (t / 365));
  103. rdays = cdf_getdays(tm.tm_year);
  104. t -= rdays - 1;
  105. tm.tm_mday = cdf_getday(tm.tm_year, (int)t);
  106. tm.tm_mon = cdf_getmonth(tm.tm_year, (int)t);
  107. tm.tm_wday = 0;
  108. tm.tm_yday = 0;
  109. tm.tm_isdst = 0;
  110. #ifdef HAVE_STRUCT_TM_TM_GMTOFF
  111. tm.tm_gmtoff = 0;
  112. #endif
  113. #ifdef HAVE_STRUCT_TM_TM_ZONE
  114. tm.tm_zone = UTC;
  115. #endif
  116. tm.tm_year -= 1900;
  117. ts->tv_sec = mktime(&tm);
  118. if (ts->tv_sec == -1) {
  119. errno = EINVAL;
  120. return -1;
  121. }
  122. return 0;
  123. }
  124. int
  125. /*ARGSUSED*/
  126. cdf_timespec_to_timestamp(cdf_timestamp_t *t, const struct timespec *ts)
  127. {
  128. #ifndef __lint__
  129. (void)&t;
  130. (void)&ts;
  131. #endif
  132. #ifdef notyet
  133. struct tm tm;
  134. if (gmtime_r(&ts->ts_sec, &tm) == NULL) {
  135. errno = EINVAL;
  136. return -1;
  137. }
  138. *t = (ts->ts_nsec / 100) * CDF_TIME_PREC;
  139. *t = tm.tm_sec;
  140. *t += tm.tm_min * 60;
  141. *t += tm.tm_hour * 60 * 60;
  142. *t += tm.tm_mday * 60 * 60 * 24;
  143. #endif
  144. return 0;
  145. }
  146. char *
  147. cdf_ctime(const time_t *sec, char *buf)
  148. {
  149. char *ptr = ctime_r(sec, buf);
  150. if (ptr != NULL)
  151. return buf;
  152. (void)snprintf(buf, 26, "*Bad* 0x%16.16llx\n", (long long)*sec);
  153. return buf;
  154. }
  155. #ifdef TEST_TIME
  156. int
  157. main(int argc, char *argv[])
  158. {
  159. struct timespec ts;
  160. char buf[25];
  161. static const cdf_timestamp_t tst = 0x01A5E403C2D59C00ULL;
  162. static const char *ref = "Sat Apr 23 01:30:00 1977";
  163. char *p, *q;
  164. cdf_timestamp_to_timespec(&ts, tst);
  165. p = cdf_ctime(&ts.tv_sec, buf);
  166. if ((q = strchr(p, '\n')) != NULL)
  167. *q = '\0';
  168. if (strcmp(ref, p) != 0)
  169. errx(1, "Error date %s != %s\n", ref, p);
  170. return 0;
  171. }
  172. #endif