m4/mktime.m4

   1 #serial 1000
   2
   3 dnl Just like mktime.m4 from automake-1.3b, but with an additional test.
   4 dnl Renamed to have jm_ prefix and to use jm_ prefix on cache variable names.
   5
   6 AC_DEFUN(jm_AM_FUNC_MKTIME,
   7 [AC_REQUIRE([AC_HEADER_TIME])dnl
   8  AC_CHECK_HEADERS(sys/time.h unistd.h)
   9  AC_CHECK_FUNCS(alarm)
  10  AC_CACHE_CHECK([for working mktime], jm_am_cv_func_working_mktime,
  11   [AC_TRY_RUN(
  12 changequote(<<, >>)dnl
  13 <</* Test program from Paul Eggert (eggert@twinsun.com)
  14    and Tony Leneis (tony@plaza.ds.adp.com).  */
  15 #if TIME_WITH_SYS_TIME
  16 # include <sys/time.h>
  17 # include <time.h>
  18 #else
  19 # if HAVE_SYS_TIME_H
  20 #  include <sys/time.h>
  21 # else
  22 #  include <time.h>
  23 # endif
  24 #endif
  25
  26 #if HAVE_UNISTD_H
  27 # include <unistd.h>
  28 #endif
  29
  30 #if !HAVE_ALARM
  31 # define alarm(X) /* empty */
  32 #endif
  33
  34 /* Work around redefinition to rpl_putenv by other config tests.  */
  35 #undef putenv
  36
  37 static time_t time_t_max;
  38
  39 /* Values we'll use to set the TZ environment variable.  */
  40 static const char *const tz_strings[] = {
  41   (const char *) 0, "TZ=GMT0", "TZ=JST-9",
  42   "TZ=EST+3EDT+2,M10.1.0/00:00:00,M2.3.0/00:00:00"
  43 };
  44 #define N_STRINGS (sizeof (tz_strings) / sizeof (tz_strings[0]))
  45
  46 /* Fail if mktime fails to convert a date in the spring-forward gap.
  47    Based on a problem report from Andreas Jaeger.  */
  48 static void
  49 spring_forward_gap ()
  50 {
  51   /* glibc (up to about 1998-10-07) failed this test) */
  52   struct tm tm;
  53
  54   /* Use the portable POSIX.1 specification "TZ=PST8PDT,M4.1.0,M10.5.0"
  55      instead of "TZ=America/Vancouver" in order to detect the bug even
  56      on systems that don't support the Olson extension, or don't have the
  57      full zoneinfo tables installed.  */
  58   putenv ("TZ=PST8PDT,M4.1.0,M10.5.0");
  59   tm.tm_year = 98;
  60   tm.tm_mon = 3;
  61   tm.tm_mday = 5;
  62   tm.tm_hour = 2;
  63   tm.tm_min = 0;
  64   tm.tm_sec = 0;
  65   tm.tm_isdst = -1;
  66   if (mktime (&tm) == (time_t)-1)
  67     exit (1);
  68 }
  69
  70 static void
  71 mktime_test (now)
  72      time_t now;
  73 {
  74   struct tm *lt;
  75   if ((lt = localtime (&now)) && mktime (lt) != now)
  76     exit (1);
  77   now = time_t_max - now;
  78   if ((lt = localtime (&now)) && mktime (lt) != now)
  79     exit (1);
  80 }
  81
  82 static void
  83 irix_6_4_bug ()
  84 {
  85   /* Based on code from Ariel Faigon.  */
  86   struct tm tm;
  87   tm.tm_year = 96;
  88   tm.tm_mon = 3;
  89   tm.tm_mday = 0;
  90   tm.tm_hour = 0;
  91   tm.tm_min = 0;
  92   tm.tm_sec = 0;
  93   tm.tm_isdst = -1;
  94   mktime (&tm);
  95   if (tm.tm_mon != 2 || tm.tm_mday != 31)
  96     exit (1);
  97 }
  98
  99 static void
 100 bigtime_test (j)
 101      int j;
 102 {
 103   struct tm tm;
 104   time_t now;
 105   tm.tm_year = tm.tm_mon = tm.tm_mday = tm.tm_hour = tm.tm_min = tm.tm_sec = j;
 106   /* This test makes some buggy mktime implementations loop.
 107      Give up after 10 seconds.  */
 108   alarm (10);
 109   now = mktime (&tm);
 110   alarm (0);
 111   if (now != (time_t) -1)
 112     {
 113       struct tm *lt = localtime (&now);
 114       if (! (lt
 115              && lt->tm_year == tm.tm_year
 116              && lt->tm_mon == tm.tm_mon
 117              && lt->tm_mday == tm.tm_mday
 118              && lt->tm_hour == tm.tm_hour
 119              && lt->tm_min == tm.tm_min
 120              && lt->tm_sec == tm.tm_sec
 121              && lt->tm_yday == tm.tm_yday
 122              && lt->tm_wday == tm.tm_wday
 123              && ((lt->tm_isdst < 0 ? -1 : 0 < lt->tm_isdst)
 124                   == (tm.tm_isdst < 0 ? -1 : 0 < tm.tm_isdst))))
 125         exit (1);
 126     }
 127 }
 128
 129 int
 130 main ()
 131 {
 132   time_t t, delta;
 133   int i, j;
 134
 135   for (time_t_max = 1; 0 < time_t_max; time_t_max *= 2)
 136     continue;
 137   time_t_max--;
 138   delta = time_t_max / 997; /* a suitable prime number */
 139   for (i = 0; i < N_STRINGS; i++)
 140     {
 141       if (tz_strings[i])
 142         putenv (tz_strings[i]);
 143
 144       for (t = 0; t <= time_t_max - delta; t += delta)
 145         mktime_test (t);
 146       mktime_test ((time_t) 60 * 60);
 147       mktime_test ((time_t) 60 * 60 * 24);
 148
 149       for (j = 1; 0 < j; j *= 2)
 150         bigtime_test (j);
 151       bigtime_test (j - 1);
 152     }
 153   irix_6_4_bug ();
 154   spring_forward_gap ();
 155   exit (0);
 156 }
 157               >>,
 158 changequote([, ])dnl
 159              jm_am_cv_func_working_mktime=yes, jm_am_cv_func_working_mktime=no,
 160              dnl When crosscompiling, assume mktime is missing or broken.
 161              jm_am_cv_func_working_mktime=no)
 162   ])
 163   if test $jm_am_cv_func_working_mktime = no; then
 164     LIBOBJS="$LIBOBJS mktime.o"
 165   fi
 166 ])