Initial revision
[kopensolaris-gnu/glibc.git] / time / mktime.c
1 /* Copyright (C) 1991 Free Software Foundation, Inc.
2 This file is part of the GNU C Library.
3
4 The GNU C Library is free software; you can redistribute it and/or
5 modify it under the terms of the GNU Library General Public License as
6 published by the Free Software Foundation; either version 2 of the
7 License, or (at your option) any later version.
8
9 The GNU C Library is distributed in the hope that it will be useful,
10 but WITHOUT ANY WARRANTY; without even the implied warranty of
11 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
12 Library General Public License for more details.
13
14 You should have received a copy of the GNU Library General Public
15 License along with the GNU C Library; see the file COPYING.LIB.  If
16 not, write to the Free Software Foundation, Inc., 675 Mass Ave,
17 Cambridge, MA 02139, USA.  */
18
19 #include <ansidecl.h>
20 #include <errno.h>
21 #include <limits.h>
22 #include <time.h>
23
24
25 /* Defined in offtime.c.  */
26 extern CONST unsigned short int __mon_lengths[2][12];
27
28
29 #define invalid()       return (time_t) -1
30
31 /* Return the `time_t' representation of TP and normalizes TP.
32    Return (time_t) -1 if TP is not representable as a `time_t'.
33    Note that 31 Dec 1969 23:59:59 is not representable
34    because it is represented as (time_t) -1.  */
35 time_t
36 DEFUN(mktime, (tp), register struct tm *tp)
37 {
38   static struct tm min, max;
39   static char init = 0;
40
41   register time_t result;
42   register time_t t;
43   register int i;
44   register CONST unsigned short *l;
45   register struct tm *new;
46   time_t end;
47
48   if (tp == NULL)
49     {
50       errno = EINVAL;
51       invalid();
52     }
53
54   if (!init)
55     {
56       init = 1;
57       end = (time_t) LONG_MIN;
58       new = gmtime(&end);
59       if (new != NULL)
60         min = *new;
61       else
62         min.tm_sec = min.tm_min = min.tm_hour =
63           min.tm_mday = min.tm_mon = min.tm_year = INT_MIN;
64
65       end = (time_t) LONG_MAX;
66       new = gmtime(&end);
67       if (new != NULL)
68         max = *new;
69       else
70         max.tm_sec = max.tm_min = max.tm_hour =
71           max.tm_mday = max.tm_mon = max.tm_year = INT_MAX;
72     }
73
74   while (tp->tm_mon < 0)
75     {
76       --tp->tm_year;
77       tp->tm_mon += 12;
78     }
79   while (tp->tm_mon > 11)
80     {
81       ++tp->tm_year;
82       tp->tm_mon -= 12;
83     }
84
85   /* Check for out-of-range values.  */
86 #define lowhigh(field, minmax, cmp)     (tp->field cmp minmax.field)
87 #define low(field)                      lowhigh(field, min, <)
88 #define high(field)                     lowhigh(field, max, >)
89 #define oor(field)                      (low(field) || high(field))
90 #define lowbound(field)                 (tp->field == min.field)
91 #define highbound(field)                (tp->field == max.field)
92   if (oor(tm_year))
93     invalid();
94   else if (lowbound(tm_year))
95     {
96       if (low(tm_mon))
97         invalid();
98       else if (lowbound(tm_mon))
99         {
100           if (low(tm_mday))
101             invalid();
102           else if (lowbound(tm_mday))
103             {
104               if (low(tm_hour))
105                 invalid();
106               else if (lowbound(tm_hour))
107                 {
108                   if (low(tm_min))
109                     invalid();
110                   else if (lowbound(tm_min))
111                     {
112                       if (low(tm_sec))
113                         invalid();
114                     }
115                 }
116             }
117         }
118     }
119   else if (highbound(tm_year))
120     {
121       if (high(tm_mon))
122         invalid();
123       else if (highbound(tm_mon))
124         {
125           if (high(tm_mday))
126             invalid();
127           else if (highbound(tm_mday))
128             {
129               if (high(tm_hour))
130                 invalid();
131               else if (highbound(tm_hour))
132                 {
133                   if (high(tm_min))
134                     invalid();
135                   else if (highbound(tm_min))
136                     {
137                       if (high(tm_sec))
138                         invalid();
139                     }
140                 }
141             }
142         }
143     }
144
145   t = 0;
146   for (i = 1970; i > 1900 + tp->tm_year; --i)
147     t -= __isleap(i) ? 366 : 365;
148   for (i = 1970; i < 1900 + tp->tm_year; ++i)
149     t += __isleap(i) ? 366 : 365;
150   l = __mon_lengths[__isleap(1900 + tp->tm_year)];
151   for (i = 0; i < tp->tm_mon; ++i)
152     t += l[i];
153   t += tp->tm_mday - 1;
154   result = ((t * 60 * 60 * 24) +
155             (tp->tm_hour * 60 * 60) +
156             (tp->tm_min * 60) +
157             tp->tm_sec);
158
159   end = result;
160   if (tp->tm_isdst < 0)
161     new = localtime(&end);
162   else
163     new = gmtime(&end);
164   if (new == NULL)
165     invalid();
166   new->tm_isdst = tp->tm_isdst;
167   *tp = *new;
168
169   return result;
170 }