1 /* crypto/o_time.c -*- mode:C; c-file-style: "eay" -*- */
2 /* Written by Richard Levitte (richard@levitte.org) for the OpenSSL
5 /* Written by Dr Stephen N Henson (steve@openssl.org) for the OpenSSL
8 /* ====================================================================
9 * Copyright (c) 2001 The OpenSSL Project. All rights reserved.
11 * Redistribution and use in source and binary forms, with or without
12 * modification, are permitted provided that the following conditions
15 * 1. Redistributions of source code must retain the above copyright
16 * notice, this list of conditions and the following disclaimer.
18 * 2. Redistributions in binary form must reproduce the above copyright
19 * notice, this list of conditions and the following disclaimer in
20 * the documentation and/or other materials provided with the
23 * 3. All advertising materials mentioning features or use of this
24 * software must display the following acknowledgment:
25 * "This product includes software developed by the OpenSSL Project
26 * for use in the OpenSSL Toolkit. (http://www.OpenSSL.org/)"
28 * 4. The names "OpenSSL Toolkit" and "OpenSSL Project" must not be used to
29 * endorse or promote products derived from this software without
30 * prior written permission. For written permission, please contact
31 * licensing@OpenSSL.org.
33 * 5. Products derived from this software may not be called "OpenSSL"
34 * nor may "OpenSSL" appear in their names without prior written
35 * permission of the OpenSSL Project.
37 * 6. Redistributions of any form whatsoever must retain the following
39 * "This product includes software developed by the OpenSSL Project
40 * for use in the OpenSSL Toolkit (http://www.OpenSSL.org/)"
42 * THIS SOFTWARE IS PROVIDED BY THE OpenSSL PROJECT ``AS IS'' AND ANY
43 * EXPRESSED OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
44 * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR
45 * PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL THE OpenSSL PROJECT OR
46 * ITS CONTRIBUTORS BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL,
47 * SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT
48 * NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES;
49 * LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)
50 * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT,
51 * STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE)
52 * ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED
53 * OF THE POSSIBILITY OF SUCH DAMAGE.
54 * ====================================================================
56 * This product includes cryptographic software written by Eric Young
57 * (eay@cryptsoft.com). This product includes software written by Tim
58 * Hudson (tjh@cryptsoft.com).
62 #include <openssl/e_os2.h>
66 #ifdef OPENSSL_SYS_VMS
67 # if __CRTL_VER >= 70000000 && \
68 (defined _POSIX_C_SOURCE || !defined _ANSI_C_SOURCE)
69 # define VMS_GMTIME_OK
71 # ifndef VMS_GMTIME_OK
72 # include <libdtdef.h>
73 # include <lib$routines.h>
78 # endif /* ndef VMS_GMTIME_OK */
81 struct tm
*OPENSSL_gmtime(const time_t *timer
, struct tm
*result
)
85 #if defined(OPENSSL_THREADS) && !defined(OPENSSL_SYS_WIN32) && !defined(OPENSSL_SYS_OS2) && (!defined(OPENSSL_SYS_VMS) || defined(gmtime_r)) && !defined(OPENSSL_SYS_MACOSX) && !defined(OPENSSL_SYS_SUNOS)
86 /* should return &data, but doesn't on some systems,
87 so we don't even look at the return value */
88 gmtime_r(timer
,result
);
90 #elif !defined(OPENSSL_SYS_VMS) || defined(VMS_GMTIME_OK)
95 memcpy(result
, ts
, sizeof(struct tm
));
98 #if defined( OPENSSL_SYS_VMS) && !defined( VMS_GMTIME_OK)
101 static $
DESCRIPTOR(tabnam
,"LNM$DCL_LOGICAL");
102 static $
DESCRIPTOR(lognam
,"SYS$TIMEZONE_DIFFERENTIAL");
104 unsigned int reslen
= 0;
109 unsigned int *reslen
;
111 { 0, LNM$_STRING
, 0, 0 },
117 /* Get the value for SYS$TIMEZONE_DIFFERENTIAL */
118 itemlist
[0].buflen
= sizeof(logvalue
);
119 itemlist
[0].bufaddr
= logvalue
;
120 itemlist
[0].reslen
= &reslen
;
121 status
= sys$
trnlnm(0, &tabnam
, &lognam
, 0, itemlist
);
124 logvalue
[reslen
] = '\0';
128 /* The following is extracted from the DEC C header time.h */
130 ** Beginning in OpenVMS Version 7.0 mktime, time, ctime, strftime
131 ** have two implementations. One implementation is provided
132 ** for compatibility and deals with time in terms of local time,
133 ** the other __utc_* deals with time in terms of UTC.
135 /* We use the same conditions as in said time.h to check if we should
136 assume that t contains local time (and should therefore be adjusted)
137 or UTC (and should therefore be left untouched). */
138 #if __CRTL_VER < 70000000 || defined _VMS_V6_SOURCE
139 /* Get the numerical value of the equivalence string */
140 status
= atoi(logvalue
);
142 /* and use it to move time to GMT */
146 /* then convert the result to the time structure */
148 /* Since there was no gmtime_r() to do this stuff for us,
149 we have to do it the hard way. */
151 /* The VMS epoch is the astronomical Smithsonian date,
152 if I remember correctly, which is November 17, 1858.
153 Furthermore, time is measure in thenths of microseconds
154 and stored in quadwords (64 bit integers). unix_epoch
155 below is January 1st 1970 expressed as a VMS time. The
156 following code was used to get this number:
160 #include <lib$routines.h>
165 unsigned long systime[2];
166 unsigned short epoch_values[7] =
167 { 1970, 1, 1, 0, 0, 0, 0 };
169 lib$cvt_vectim(epoch_values, systime);
171 printf("%u %u", systime[0], systime[1]);
174 unsigned long unix_epoch
[2] = { 1273708544, 8164711 };
175 unsigned long deltatime
[2];
176 unsigned long systime
[2];
179 short year
, month
, day
, hour
, minute
, second
,
184 /* Turn the number of seconds since January 1st 1970 to
185 an internal delta time.
186 Note that lib$cvt_to_internal_time() will assume
187 that t is signed, and will therefore break on 32-bit
188 systems some time in 2038.
190 operation
= LIB$K_DELTA_SECONDS
;
191 status
= lib$
cvt_to_internal_time(&operation
,
194 /* Add the delta time with the Unix epoch and we have
195 the current UTC time in internal format */
196 status
= lib$
add_times(unix_epoch
, deltatime
, systime
);
198 /* Turn the internal time into a time vector */
199 status
= sys$
numtim(&time_values
, systime
);
201 /* Fill in the struct tm with the result */
202 result
->tm_sec
= time_values
.second
;
203 result
->tm_min
= time_values
.minute
;
204 result
->tm_hour
= time_values
.hour
;
205 result
->tm_mday
= time_values
.day
;
206 result
->tm_mon
= time_values
.month
- 1;
207 result
->tm_year
= time_values
.year
- 1900;
209 operation
= LIB$K_DAY_OF_WEEK
;
210 status
= lib$
cvt_from_internal_time(&operation
,
211 &result
->tm_wday
, systime
);
212 result
->tm_wday
%= 7;
214 operation
= LIB$K_DAY_OF_YEAR
;
215 status
= lib$
cvt_from_internal_time(&operation
,
216 &result
->tm_yday
, systime
);
219 result
->tm_isdst
= 0; /* There's no way to know... */
228 /* Take a tm structure and add an offset to it. This avoids any OS issues
229 * with restricted date types and overflows which cause the year 2038
233 #define SECS_PER_DAY (24 * 60 * 60)
235 static long date_to_julian(int y
, int m
, int d
);
236 static void julian_to_date(long jd
, int *y
, int *m
, int *d
);
237 static int julian_adj(struct tm
*tm
, int off_day
, long offset_sec
,
238 long *pday
, int *psec
);
240 int OPENSSL_gmtime_adj(struct tm
*tm
, int off_day
, long offset_sec
)
242 int time_sec
, time_year
, time_month
, time_day
;
245 /* Convert time and offset into julian day and seconds */
246 if (!julian_adj(tm
, off_day
, offset_sec
, &time_jd
, &time_sec
))
249 /* Convert Julian day back to date */
251 julian_to_date(time_jd
, &time_year
, &time_month
, &time_day
);
253 if (time_year
< 1900 || time_year
> 9999)
256 /* Update tm structure */
258 tm
->tm_year
= time_year
- 1900;
259 tm
->tm_mon
= time_month
- 1;
260 tm
->tm_mday
= time_day
;
262 tm
->tm_hour
= time_sec
/ 3600;
263 tm
->tm_min
= (time_sec
/ 60) % 60;
264 tm
->tm_sec
= time_sec
% 60;
270 int OPENSSL_gmtime_diff(struct tm
*from
, struct tm
*to
, int *pday
, int *psec
)
272 int from_sec
, to_sec
, diff_sec
;
273 long from_jd
, to_jd
, diff_day
;
274 if (!julian_adj(from
, 0, 0, &from_jd
, &from_sec
))
276 if (!julian_adj(to
, 0, 0, &to_jd
, &to_sec
))
278 diff_day
= to_jd
- from_jd
;
279 diff_sec
= to_sec
- from_sec
;
280 /* Adjust differences so both positive or both negative */
281 if (diff_day
> 0 && diff_sec
< 0)
284 diff_sec
+= SECS_PER_DAY
;
286 if (diff_day
< 0 && diff_sec
> 0)
289 diff_sec
-= SECS_PER_DAY
;
292 *pday
= (int)diff_day
;
300 /* Convert tm structure and offset into julian day and seconds */
301 static int julian_adj(struct tm
*tm
, int off_day
, long offset_sec
,
302 long *pday
, int *psec
)
304 int offset_hms
, offset_day
;
306 int time_year
, time_month
, time_day
;
307 /* split offset into days and day seconds */
308 offset_day
= offset_sec
/ SECS_PER_DAY
;
309 /* Avoid sign issues with % operator */
310 offset_hms
= offset_sec
- (offset_day
* SECS_PER_DAY
);
311 offset_day
+= off_day
;
312 /* Add current time seconds to offset */
313 offset_hms
+= tm
->tm_hour
* 3600 + tm
->tm_min
* 60 + tm
->tm_sec
;
314 /* Adjust day seconds if overflow */
315 if (offset_hms
>= SECS_PER_DAY
)
318 offset_hms
-= SECS_PER_DAY
;
320 else if (offset_hms
< 0)
323 offset_hms
+= SECS_PER_DAY
;
326 /* Convert date of time structure into a Julian day number.
329 time_year
= tm
->tm_year
+ 1900;
330 time_month
= tm
->tm_mon
+ 1;
331 time_day
= tm
->tm_mday
;
333 time_jd
= date_to_julian(time_year
, time_month
, time_day
);
335 /* Work out Julian day of new date */
336 time_jd
+= offset_day
;
347 /* Convert date to and from julian day
348 * Uses Fliegel & Van Flandern algorithm
350 static long date_to_julian(int y
, int m
, int d
)
352 return (1461 * (y
+ 4800 + (m
- 14) / 12)) / 4 +
353 (367 * (m
- 2 - 12 * ((m
- 14) / 12))) / 12 -
354 (3 * ((y
+ 4900 + (m
- 14) / 12) / 100)) / 4 +
358 static void julian_to_date(long jd
, int *y
, int *m
, int *d
)
361 long n
= (4 * L
) / 146097;
364 L
= L
- (146097 * n
+ 3) / 4;
365 i
= (4000 * (L
+ 1)) / 1461001;
366 L
= L
- (1461 * i
) / 4 + 31;
368 *d
= L
- (2447 * j
) / 80;
370 *m
= j
+ 2 - (12 * L
);
371 *y
= 100 * (n
- 49) + i
+ L
;
374 #ifdef OPENSSL_TIME_TEST
378 /* Time checking test code. Check times are identical for a wide range of
379 * offsets. This should be run on a machine with 64 bit time_t or it will
380 * trigger the very errors the routines fix.
383 int main(int argc
, char **argv
)
386 for (offset
= 0; offset
< 1000000; offset
++)
390 check_time(offset
* 1000);
391 check_time(-offset
* 1000);
395 int check_time(long offset
)
397 struct tm tm1
, tm2
, o1
;
398 int off_day
, off_sec
;
403 OPENSSL_gmtime(&t2
, &tm2
);
404 OPENSSL_gmtime(&t1
, &tm1
);
406 OPENSSL_gmtime_adj(&tm1
, 0, offset
);
407 if ((tm1
.tm_year
!= tm2
.tm_year
) ||
408 (tm1
.tm_mon
!= tm2
.tm_mon
) ||
409 (tm1
.tm_mday
!= tm2
.tm_mday
) ||
410 (tm1
.tm_hour
!= tm2
.tm_hour
) ||
411 (tm1
.tm_min
!= tm2
.tm_min
) ||
412 (tm1
.tm_sec
!= tm2
.tm_sec
))
414 fprintf(stderr
, "TIME ERROR!!\n");
415 fprintf(stderr
, "Time1: %d/%d/%d, %d:%02d:%02d\n",
416 tm2
.tm_mday
, tm2
.tm_mon
+ 1, tm2
.tm_year
+ 1900,
417 tm2
.tm_hour
, tm2
.tm_min
, tm2
.tm_sec
);
418 fprintf(stderr
, "Time2: %d/%d/%d, %d:%02d:%02d\n",
419 tm1
.tm_mday
, tm1
.tm_mon
+ 1, tm1
.tm_year
+ 1900,
420 tm1
.tm_hour
, tm1
.tm_min
, tm1
.tm_sec
);
423 OPENSSL_gmtime_diff(&o1
, &tm1
, &off_day
, &off_sec
);
424 toffset
= (long)off_day
* SECS_PER_DAY
+ off_sec
;
425 if (offset
!= toffset
)
427 fprintf(stderr
, "TIME OFFSET ERROR!!\n");
428 fprintf(stderr
, "Expected %ld, Got %ld (%d:%d)\n",
429 offset
, toffset
, off_day
, off_sec
);