.
[kopensolaris-gnu/glibc.git] / time / getdate.c
1 /* Convert a string representation of time to a time value.
2    Copyright (C) 1997,1998,1999,2000,2001,2003 Free Software Foundation, Inc.
3    This file is part of the GNU C Library.
4    Contributed by Mark Kettenis <kettenis@phys.uva.nl>, 1997.
5
6    The GNU C Library is free software; you can redistribute it and/or
7    modify it under the terms of the GNU Lesser General Public
8    License as published by the Free Software Foundation; either
9    version 2.1 of the License, or (at your option) any later version.
10
11    The GNU C Library is distributed in the hope that it will be useful,
12    but WITHOUT ANY WARRANTY; without even the implied warranty of
13    MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
14    Lesser General Public License for more details.
15
16    You should have received a copy of the GNU Lesser General Public
17    License along with the GNU C Library; if not, write to the Free
18    Software Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA
19    02111-1307 USA.  */
20
21 #include <limits.h>
22 #include <stdio.h>
23 #include <stdio_ext.h>
24 #include <stdlib.h>
25 #include <string.h>
26 #include <time.h>
27 #include <unistd.h>
28 #include <sys/stat.h>
29
30 #define TM_YEAR_BASE 1900
31
32
33 /* Prototypes for local functions.  */
34 static int first_wday (int year, int mon, int wday);
35 static int check_mday (int year, int mon, int mday);
36
37
38 /* Set to one of the following values to indicate an error.
39      1  the DATEMSK environment variable is null or undefined,
40      2  the template file cannot be opened for reading,
41      3  failed to get file status information,
42      4  the template file is not a regular file,
43      5  an error is encountered while reading the template file,
44      6  memory allication failed (not enough memory available),
45      7  there is no line in the template that matches the input,
46      8  invalid input specification Example: February 31 or a time is
47         specified that can not be represented in a time_t (representing
48         the time in seconds since 00:00:00 UTC, January 1, 1970) */
49 int getdate_err;
50
51
52 /* Returns the first weekday WDAY of month MON in the year YEAR.  */
53 static int
54 first_wday (int year, int mon, int wday)
55 {
56   struct tm tm;
57
58   if (wday == INT_MIN)
59     return 1;
60
61   memset (&tm, 0, sizeof (struct tm));
62   tm.tm_year = year;
63   tm.tm_mon = mon;
64   tm.tm_mday = 1;
65   mktime (&tm);
66
67   return (1 + (wday - tm.tm_wday + 7) % 7);
68 }
69
70
71 /* Returns 1 if MDAY is a valid day of the month in month MON of year
72    YEAR, and 0 if it is not.  */
73 static int
74 check_mday (int year, int mon, int mday)
75 {
76   switch (mon)
77     {
78     case 0:
79     case 2:
80     case 4:
81     case 6:
82     case 7:
83     case 9:
84     case 11:
85       if (mday >= 1 && mday <= 31)
86         return 1;
87       break;
88     case 3:
89     case 5:
90     case 8:
91     case 10:
92       if (mday >= 1 && mday <= 30)
93         return 1;
94       break;
95     case 1:
96       if (mday >= 1 && mday <= (__isleap (year) ? 29 : 28))
97         return 1;
98       break;
99     }
100
101   return 0;
102 }
103
104
105 int
106 __getdate_r (const char *string, struct tm *tp)
107 {
108   FILE *fp;
109   char *line;
110   size_t len;
111   char *datemsk;
112   char *result = NULL;
113   time_t timer;
114   struct tm tm;
115   struct stat64 st;
116   int mday_ok = 0;
117
118   datemsk = getenv ("DATEMSK");
119   if (datemsk == NULL || *datemsk == '\0')
120     return 1;
121
122   if (stat64 (datemsk, &st) < 0)
123     return 3;
124
125   if (!S_ISREG (st.st_mode))
126     return 4;
127
128   if (__access (datemsk, R_OK) < 0)
129     return 2;
130
131   /* Open the template file.  */
132   fp = fopen (datemsk, "rc");
133   if (fp == NULL)
134     return 2;
135
136   /* No threads reading this stream.  */
137   __fsetlocking (fp, FSETLOCKING_BYCALLER);
138
139   line = NULL;
140   len = 0;
141   do
142     {
143       ssize_t n;
144
145       n = __getline (&line, &len, fp);
146       if (n < 0)
147         break;
148       if (line[n - 1] == '\n')
149         line[n - 1] = '\0';
150
151       /* Do the conversion.  */
152       tp->tm_year = tp->tm_mon = tp->tm_mday = tp->tm_wday = INT_MIN;
153       tp->tm_hour = tp->tm_sec = tp->tm_min = INT_MIN;
154       tp->tm_isdst = -1;
155       tp->tm_gmtoff = 0;
156       tp->tm_zone = NULL;
157       result = strptime (string, line, tp);
158       if (result && *result == '\0')
159         break;
160     }
161   while (!feof_unlocked (fp));
162
163   /* Free the buffer.  */
164   free (line);
165
166   /* Check for errors. */
167   if (ferror_unlocked (fp))
168     {
169       fclose (fp);
170       return 5;
171     }
172
173   /* Close template file.  */
174   fclose (fp);
175
176   if (result == NULL || *result != '\0')
177     return 7;
178
179   /* Get current time.  */
180   time (&timer);
181   __localtime_r (&timer, &tm);
182
183   /* If only the weekday is given, today is assumed if the given day
184      is equal to the current day and next week if it is less.  */
185   if (tp->tm_wday >= 0 && tp->tm_wday <= 6 && tp->tm_year == INT_MIN
186       && tp->tm_mon == INT_MIN && tp->tm_mday == INT_MIN)
187     {
188       tp->tm_year = tm.tm_year;
189       tp->tm_mon = tm.tm_mon;
190       tp->tm_mday = tm.tm_mday + (tp->tm_wday - tm.tm_wday + 7) % 7;
191       mday_ok = 1;
192     }
193
194   /* If only the month is given, the current month is assumed if the
195      given month is equal to the current month and next year if it is
196      less and no year is given (the first day of month is assumed if
197      no day is given.  */
198   if (tp->tm_mon >= 0 && tp->tm_mon <= 11 && tp->tm_mday == INT_MIN)
199     {
200       if (tp->tm_year == INT_MIN)
201         tp->tm_year = tm.tm_year + (((tp->tm_mon - tm.tm_mon) < 0) ? 1 : 0);
202       tp->tm_mday = first_wday (tp->tm_year, tp->tm_mon, tp->tm_wday);
203       mday_ok = 1;
204     }
205
206   /* If no hour, minute and second are given the current hour, minute
207      and second are assumed.  */
208   if (tp->tm_hour == INT_MIN && tp->tm_min == INT_MIN && tp->tm_sec == INT_MIN)
209     {
210       tp->tm_hour = tm.tm_hour;
211       tp->tm_min = tm.tm_min;
212       tp->tm_sec = tm.tm_sec;
213     }
214
215   /* Fill in the gaps.  */
216   if (tp->tm_hour == INT_MIN)
217     tp->tm_hour = 0;
218   if (tp->tm_min == INT_MIN)
219     tp->tm_min = 0;
220   if (tp->tm_sec == INT_MIN)
221     tp->tm_sec = 0;
222
223   /* If no date is given, today is assumed if the given hour is
224      greater than the current hour and tomorrow is assumed if
225      it is less.  */
226   if (tp->tm_hour >= 0 && tp->tm_hour <= 23
227       && tp->tm_mon == INT_MIN
228       && tp->tm_mday == INT_MIN && tp->tm_wday == INT_MIN)
229     {
230       tp->tm_mon = tm.tm_mon;
231       tp->tm_mday = tm.tm_mday + ((tp->tm_hour - tm.tm_hour) < 0 ? 1 : 0);
232       mday_ok = 1;
233     }
234
235   /* More fillers.  */
236   if (tp->tm_year == INT_MIN)
237     tp->tm_year = tm.tm_year;
238   if (tp->tm_mon == INT_MIN)
239     tp->tm_mon = tm.tm_mon;
240
241   /* Check if the day of month is within range, and if the time can be
242      represented in a time_t.  We make use of the fact that the mktime
243      call normalizes the struct tm.  */
244   if ((!mday_ok && !check_mday (TM_YEAR_BASE + tp->tm_year, tp->tm_mon,
245                                 tp->tm_mday))
246       || mktime (tp) == (time_t) -1)
247     return 8;
248
249   return 0;
250 }
251 #ifdef weak_alias
252 weak_alias (__getdate_r, getdate_r)
253 #endif
254
255
256 struct tm *
257 getdate (const char *string)
258 {
259   /* Buffer returned by getdate.  */
260   static struct tm tmbuf;
261   int errval = __getdate_r (string, &tmbuf);
262
263   if (errval != 0)
264     {
265       getdate_err = errval;
266       return NULL;
267     }
268
269   return &tmbuf;
270 }