]>
git.ipfire.org Git - thirdparty/openssl.git/blob - crypto/o_time.c
2 * Copyright 2001-2018 The OpenSSL Project Authors. All Rights Reserved.
4 * Licensed under the Apache License 2.0 (the "License"). You may not use
5 * this file except in compliance with the License. You can obtain a copy
6 * in the file LICENSE in the source distribution or at
7 * https://www.openssl.org/source/license.html
10 #include <openssl/e_os2.h>
12 #include <openssl/crypto.h>
14 struct tm
*OPENSSL_gmtime(const time_t *timer
, struct tm
*result
)
18 #if defined(OPENSSL_THREADS) && defined(OPENSSL_SYS_VMS)
21 * On VMS, gmtime_r() takes a 32-bit pointer as second argument.
22 * Since we can't know that |result| is in a space that can easily
23 * translate to a 32-bit pointer, we must store temporarily on stack
24 * and copy the result. The stack is always reachable with 32-bit
27 #if defined(OPENSSL_SYS_VMS) && __INITIAL_POINTER_SIZE
28 # pragma pointer_size save
29 # pragma pointer_size 32
31 struct tm data
, *ts2
= &data
;
32 #if defined OPENSSL_SYS_VMS && __INITIAL_POINTER_SIZE
33 # pragma pointer_size restore
35 if (gmtime_r(timer
, ts2
) == NULL
)
37 memcpy(result
, ts2
, sizeof(struct tm
));
40 #elif defined(OPENSSL_THREADS) && !defined(OPENSSL_SYS_WIN32) && !defined(OPENSSL_SYS_MACOSX)
41 if (gmtime_r(timer
, result
) == NULL
)
44 #elif defined (OPENSSL_SYS_WINDOWS) && defined(_MSC_VER) && _MSC_VER >= 1400
45 if (gmtime_s(result
, timer
))
53 memcpy(result
, ts
, sizeof(struct tm
));
60 * Take a tm structure and add an offset to it. This avoids any OS issues
61 * with restricted date types and overflows which cause the year 2038
65 #define SECS_PER_DAY (24 * 60 * 60)
67 static long date_to_julian(int y
, int m
, int d
);
68 static void julian_to_date(long jd
, int *y
, int *m
, int *d
);
69 static int julian_adj(const struct tm
*tm
, int off_day
, long offset_sec
,
70 long *pday
, int *psec
);
72 int OPENSSL_gmtime_adj(struct tm
*tm
, int off_day
, long offset_sec
)
74 int time_sec
, time_year
, time_month
, time_day
;
77 /* Convert time and offset into Julian day and seconds */
78 if (!julian_adj(tm
, off_day
, offset_sec
, &time_jd
, &time_sec
))
81 /* Convert Julian day back to date */
83 julian_to_date(time_jd
, &time_year
, &time_month
, &time_day
);
85 if (time_year
< 1900 || time_year
> 9999)
88 /* Update tm structure */
90 tm
->tm_year
= time_year
- 1900;
91 tm
->tm_mon
= time_month
- 1;
92 tm
->tm_mday
= time_day
;
94 tm
->tm_hour
= time_sec
/ 3600;
95 tm
->tm_min
= (time_sec
/ 60) % 60;
96 tm
->tm_sec
= time_sec
% 60;
102 int OPENSSL_gmtime_diff(int *pday
, int *psec
,
103 const struct tm
*from
, const struct tm
*to
)
105 int from_sec
, to_sec
, diff_sec
;
106 long from_jd
, to_jd
, diff_day
;
107 if (!julian_adj(from
, 0, 0, &from_jd
, &from_sec
))
109 if (!julian_adj(to
, 0, 0, &to_jd
, &to_sec
))
111 diff_day
= to_jd
- from_jd
;
112 diff_sec
= to_sec
- from_sec
;
113 /* Adjust differences so both positive or both negative */
114 if (diff_day
> 0 && diff_sec
< 0) {
116 diff_sec
+= SECS_PER_DAY
;
118 if (diff_day
< 0 && diff_sec
> 0) {
120 diff_sec
-= SECS_PER_DAY
;
124 *pday
= (int)diff_day
;
132 /* Convert tm structure and offset into julian day and seconds */
133 static int julian_adj(const struct tm
*tm
, int off_day
, long offset_sec
,
134 long *pday
, int *psec
)
136 int offset_hms
, offset_day
;
138 int time_year
, time_month
, time_day
;
139 /* split offset into days and day seconds */
140 offset_day
= offset_sec
/ SECS_PER_DAY
;
141 /* Avoid sign issues with % operator */
142 offset_hms
= offset_sec
- (offset_day
* SECS_PER_DAY
);
143 offset_day
+= off_day
;
144 /* Add current time seconds to offset */
145 offset_hms
+= tm
->tm_hour
* 3600 + tm
->tm_min
* 60 + tm
->tm_sec
;
146 /* Adjust day seconds if overflow */
147 if (offset_hms
>= SECS_PER_DAY
) {
149 offset_hms
-= SECS_PER_DAY
;
150 } else if (offset_hms
< 0) {
152 offset_hms
+= SECS_PER_DAY
;
156 * Convert date of time structure into a Julian day number.
159 time_year
= tm
->tm_year
+ 1900;
160 time_month
= tm
->tm_mon
+ 1;
161 time_day
= tm
->tm_mday
;
163 time_jd
= date_to_julian(time_year
, time_month
, time_day
);
165 /* Work out Julian day of new date */
166 time_jd
+= offset_day
;
177 * Convert date to and from julian day Uses Fliegel & Van Flandern algorithm
179 static long date_to_julian(int y
, int m
, int d
)
181 return (1461 * (y
+ 4800 + (m
- 14) / 12)) / 4 +
182 (367 * (m
- 2 - 12 * ((m
- 14) / 12))) / 12 -
183 (3 * ((y
+ 4900 + (m
- 14) / 12) / 100)) / 4 + d
- 32075;
186 static void julian_to_date(long jd
, int *y
, int *m
, int *d
)
189 long n
= (4 * L
) / 146097;
192 L
= L
- (146097 * n
+ 3) / 4;
193 i
= (4000 * (L
+ 1)) / 1461001;
194 L
= L
- (1461 * i
) / 4 + 31;
196 *d
= L
- (2447 * j
) / 80;
198 *m
= j
+ 2 - (12 * L
);
199 *y
= 100 * (n
- 49) + i
+ L
;