Porting/timecheck.c

   1 #include <sys/types.h>
   2 #include <stdio.h>
   3 #include <time.h>
   4 #include <errno.h>
   5 #include <values.h>
   6
   7 int opt_v = 0;
   8 int i;
   9 struct tm *tmp;
  10 time_t pt, pt_max, pt_min;
  11
  12 static char hexbuf[80];
  13 char *hex (time_t t)
  14 {
  15     if ((long long)t < 0)
  16         sprintf (hexbuf, " -0x%016lx", -t);
  17     else
  18         sprintf (hexbuf, "  0x%016lx",  t);
  19     return (hexbuf);
  20     } /* hex */
  21
  22 void gm_check (time_t t, int min_year, int max_year)
  23 {
  24     tmp = gmtime (&t);
  25     if ( tmp == NULL ||
  26         /* Check tm_year overflow */
  27          tmp->tm_year < min_year || tmp->tm_year > max_year) {
  28         if (opt_v)
  29             fprintf (stderr, "gmtime (%ld) failed with errno %d\n", t, errno);
  30         }
  31     else {
  32         if (opt_v)
  33             fprintf (stderr, "%3d:%s: %12ld-%02d-%02d %02d:%02d:%02d\n",
  34                 i, hex (t),
  35                 tmp->tm_year + 1900, tmp->tm_mon + 1, tmp->tm_mday,
  36                 tmp->tm_hour, tmp->tm_min, tmp->tm_sec);
  37         pt = t;
  38         }
  39     } /* gm_check */
  40
  41 int check_gm_max ()
  42 {
  43     tmp = NULL;
  44     pt  = 0;
  45     if (tmp == NULL || tmp->tm_year < 0) {
  46         for (i = 63; i >= 0; i--) {
  47             time_t x = pt | ((time_t)1 << i);
  48             if (x < 0 || x < pt) continue;
  49             gm_check (x, 69, 0x7fffffff);
  50             }
  51         }
  52     pt_max = pt;
  53     return (0);
  54     } /* check_gm_max */
  55
  56 int check_gm_min ()
  57 {
  58     tmp = NULL;
  59     pt  = 0;
  60     if (tmp == NULL) {
  61         for (i = 36; i >= 0; i--) {
  62             time_t x = pt - ((time_t)1 << i);
  63             if (x > 0) continue;
  64             gm_check (x, -1900, 70);
  65             }
  66         }
  67     pt_min = pt;
  68     return (0);
  69     } /* check_gm_min */
  70
  71 void lt_check (time_t t, int min_year, int max_year)
  72 {
  73     if (sizeof (time_t) > 4 && t > 0x7ffffffffffff000LL)
  74         tmp = NULL;
  75     else
  76         tmp = localtime (&t);
  77     if ( tmp == NULL ||
  78         /* Check tm_year overflow */
  79          tmp->tm_year < min_year || tmp->tm_year > max_year) {
  80         if (opt_v)
  81             fprintf (stderr, "localtime (%ld) failed with errno %d\n", t, errno);
  82         }
  83     else {
  84         if (opt_v)
  85             fprintf (stderr, "%3d:%s: %12ld-%02d-%02d %02d:%02d:%02d\n",
  86                 i, hex (t),
  87                 tmp->tm_year + 1900, tmp->tm_mon + 1, tmp->tm_mday,
  88                 tmp->tm_hour, tmp->tm_min, tmp->tm_sec);
  89         pt = t;
  90         }
  91     } /* lt_check */
  92
  93 int check_lt_max ()
  94 {
  95     tmp = NULL;
  96     pt  = 0;
  97     if (tmp == NULL || tmp->tm_year < 0) {
  98         for (i = 63; i >= 0; i--) {
  99             time_t x = pt | ((time_t)1 << i);
 100             if (x < 0 || x < pt) continue;
 101             lt_check (x, 69, 0x7fffffff);
 102             }
 103         }
 104     pt_max = pt;
 105     return (0);
 106     } /* check_lt_max */
 107
 108 int check_lt_min ()
 109 {
 110     tmp = NULL;
 111     pt  = 0;
 112     if (tmp == NULL) {
 113         for (i = 36; i >= 0; i--) {
 114             time_t x = pt - ((time_t)1 << i);
 115             if (x > 0) continue;
 116             lt_check (x, -1900, 70);
 117             }
 118         }
 119     pt_min = pt;
 120     return (0);
 121     } /* check_lt_min */
 122
 123 int main (int argc, char *argv[])
 124 {
 125     time_t gm_max, gm_min, lt_max, lt_min;
 126     if (argc > 1 && strcmp (argv[1], "-v") == 0) opt_v++;
 127
 128     check_gm_max (); gm_max = pt_max;
 129     check_gm_min (); gm_min = pt_min;
 130     check_lt_max (); lt_max = pt_max;
 131     check_lt_min (); lt_min = pt_min;
 132
 133     opt_v++;
 134     printf ("======================\n");
 135     printf ("Sizeof time_t = %ld\n", (i = sizeof (time_t)));
 136     printf ("gmtime () boundaries:\n");
 137     gm_check (gm_max,    69, 0x7fffffff);
 138     gm_check (gm_min, -1900,         70);
 139     printf ("localtime () boundaries:\n");
 140     lt_check (lt_max,    69, 0x7fffffff);
 141     lt_check (lt_min, -1900,         70);
 142     printf ("Configure variables:\n");
 143     printf ("sGMTIME_max='%ld'\n",    gm_max);
 144     printf ("sGMTIME_min='%ld'\n",    gm_min);
 145     printf ("sLOCALTIME_max='%ld'\n", lt_max);
 146     printf ("sLOCALTIME_min='%ld'\n", lt_min);
 147     return (0);
 148     } /* main */