mono/btls/btls-time64.c

   1 /*
   2
   3 Copyright (c) 2007-2008  Michael G Schwern
   4
   5 This software originally derived from Paul Sheer's pivotal_gmtime_r.c.
   6
   7 The MIT License:
   8
   9 Permission is hereby granted, free of charge, to any person obtaining a copy
  10 of this software and associated documentation files (the "Software"), to deal
  11 in the Software without restriction, including without limitation the rights
  12 to use, copy, modify, merge, publish, distribute, sublicense, and/or sell
  13 copies of the Software, and to permit persons to whom the Software is
  14 furnished to do so, subject to the following conditions:
  15
  16 The above copyright notice and this permission notice shall be included in
  17 all copies or substantial portions of the Software.
  18
  19 THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR
  20 IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY,
  21 FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE
  22 AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER
  23 LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM,
  24 OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN
  25 THE SOFTWARE.
  26
  27 */
  28
  29 /* See http://code.google.com/p/y2038 for this code's origin */
  30
  31 #include <assert.h>
  32 #include <stdlib.h>
  33 #include <stdio.h>
  34 #include <string.h>
  35 #include <time.h>
  36 #include <errno.h>
  37
  38 /* Spec says except for stftime() and the _r() functions, these
  39    all return static memory.  Stabbings! */
  40 static struct tm   Static_Return_Date;
  41 static char        Static_Return_String[35];
  42
  43 static const int days_in_month[2][12] = {
  44     {31, 28, 31, 30, 31, 30, 31, 31, 30, 31, 30, 31},
  45     {31, 29, 31, 30, 31, 30, 31, 31, 30, 31, 30, 31},
  46 };
  47
  48 static const int julian_days_by_month[2][12] = {
  49     {0, 31, 59, 90, 120, 151, 181, 212, 243, 273, 304, 334},
  50     {0, 31, 60, 91, 121, 152, 182, 213, 244, 274, 305, 335},
  51 };
  52
  53 static char const wday_name[7][3] = {
  54     "Sun", "Mon", "Tue", "Wed", "Thu", "Fri", "Sat"
  55 };
  56
  57 static char const mon_name[12][3] = {
  58     "Jan", "Feb", "Mar", "Apr", "May", "Jun",
  59     "Jul", "Aug", "Sep", "Oct", "Nov", "Dec"
  60 };
  61
  62 static const int length_of_year[2] = { 365, 366 };
  63
  64 /* Some numbers relating to the gregorian cycle */
  65 static const int64_t     years_in_gregorian_cycle   = 400;
  66 #define               days_in_gregorian_cycle      ((365 * 400) + 100 - 4 + 1)
  67 static const int64_t seconds_in_gregorian_cycle = days_in_gregorian_cycle * 60LL * 60LL * 24LL;
  68
  69 /* Year range we can trust the time funcitons with */
  70 #define MAX_SAFE_YEAR 2037
  71 #define MIN_SAFE_YEAR 1971
  72
  73 /* 28 year Julian calendar cycle */
  74 #define SOLAR_CYCLE_LENGTH 28
  75
  76 /* Year cycle from MAX_SAFE_YEAR down. */
  77 static const int safe_years_high[SOLAR_CYCLE_LENGTH] = {
  78     2016, 2017, 2018, 2019,
  79     2020, 2021, 2022, 2023,
  80     2024, 2025, 2026, 2027,
  81     2028, 2029, 2030, 2031,
  82     2032, 2033, 2034, 2035,
  83     2036, 2037, 2010, 2011,
  84     2012, 2013, 2014, 2015
  85 };
  86
  87 /* Year cycle from MIN_SAFE_YEAR up */
  88 static const int safe_years_low[SOLAR_CYCLE_LENGTH] = {
  89     1996, 1997, 1998, 1971,
  90     1972, 1973, 1974, 1975,
  91     1976, 1977, 1978, 1979,
  92     1980, 1981, 1982, 1983,
  93     1984, 1985, 1986, 1987,
  94     1988, 1989, 1990, 1991,
  95     1992, 1993, 1994, 1995,
  96 };
  97
  98 /* Let's assume people are going to be looking for dates in the future.
  99    Let's provide some cheats so you can skip ahead.
 100    This has a 4x speed boost when near 2008.
 101 */
 102 /* Number of days since epoch on Jan 1st, 2008 GMT */
 103 #define CHEAT_DAYS  (1199145600 / 24 / 60 / 60)
 104 #define CHEAT_YEARS 108
 105
 106 #define IS_LEAP(n)      ((!(((n) + 1900) % 400) || (!(((n) + 1900) % 4) && (((n) + 1900) % 100))) != 0)
 107 #define WRAP(a,b,m)     ((a) = ((a) <  0  ) ? ((b)--, (a) + (m)) : (a))
 108
 109 /* timegm() is not in the C or POSIX spec, but it is such a useful
 110    extension I would be remiss in leaving it out.  Also I need it
 111    for localtime64()
 112 */
 113 int64_t btls_timegm64(const struct tm *date) {
 114     int64_t days    = 0;
 115     int64_t seconds = 0;
 116     int64_t     year;
 117     int64_t     orig_year = (int64_t)date->tm_year;
 118     int      cycles  = 0;
 119
 120     if( orig_year > 100 ) {
 121         cycles = (orig_year - 100) / 400;
 122         orig_year -= cycles * 400;
 123         days      += (int64_t)cycles * days_in_gregorian_cycle;
 124     }
 125     else if( orig_year < -300 ) {
 126         cycles = (orig_year - 100) / 400;
 127         orig_year -= cycles * 400;
 128         days      += (int64_t)cycles * days_in_gregorian_cycle;
 129     }
 130
 131     if( orig_year > 70 ) {
 132         year = 70;
 133         while( year < orig_year ) {
 134             days += length_of_year[IS_LEAP(year)];
 135             year++;
 136         }
 137     }
 138     else if ( orig_year < 70 ) {
 139         year = 69;
 140         do {
 141             days -= length_of_year[IS_LEAP(year)];
 142             year--;
 143         } while( year >= orig_year );
 144     }
 145
 146
 147     days += julian_days_by_month[IS_LEAP(orig_year)][date->tm_mon];
 148     days += date->tm_mday - 1;
 149
 150     seconds = days * 60 * 60 * 24;
 151
 152     seconds += date->tm_hour * 60 * 60;
 153     seconds += date->tm_min * 60;
 154     seconds += date->tm_sec;
 155
 156     return(seconds);
 157 }