This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
perlrun: Note existence of -DL
[perl5.git] / time64.h
1 #include <time.h>
2 #include "time64_config.h"
3
4 #ifndef TIME64_H
5 #    define TIME64_H
6
7
8 /* Set our custom types */
9 typedef INT_64_T        Int64;
10 typedef Int64           Time64_T;
11 typedef I32             Year;
12
13
14 /* A copy of the tm struct but with a 64 bit year */
15 struct TM64 {
16         int     tm_sec;
17         int     tm_min;
18         int     tm_hour;
19         int     tm_mday;
20         int     tm_mon;
21         Year    tm_year;
22         int     tm_wday;
23         int     tm_yday;
24         int     tm_isdst;
25
26 #ifdef HAS_TM_TM_GMTOFF
27         long    tm_gmtoff;
28 #endif
29
30 #ifdef HAS_TM_TM_ZONE
31 /* If glibc is defined or we are on QNX, use const.
32  * Otherwise, if we are on android, use const but
33  * not with g++.
34  */
35 #  if defined(__GLIBC__) || (defined(__ANDROID__) && !defined(__cplusplus)) || defined(__QNX__)
36         const
37 #  endif
38         char    *tm_zone;
39 #endif
40 };
41
42
43 /* Decide which tm struct to use */
44 #ifdef USE_TM64
45 #define TM      TM64
46 #else
47 #define TM      tm
48 #endif
49
50
51 /* Declare functions */
52 static struct TM *S_gmtime64_r    (const Time64_T *, struct TM *);
53 static struct TM *S_localtime64_r (const Time64_T *, struct TM *);
54 static Time64_T   S_timegm64      (struct TM *);
55
56
57 /* Not everyone has gm/localtime_r(), provide a replacement */
58 #ifdef HAS_LOCALTIME_R
59 #    define LOCALTIME_R(clock, result) (L_R_TZSET localtime_r(clock, result))
60 #else
61 #    define LOCALTIME_R(clock, result) (L_R_TZSET S_localtime_r(clock, result))
62 #endif
63 #ifdef HAS_GMTIME_R
64 #    define GMTIME_R(clock, result)    gmtime_r(clock, result)
65 #else
66 #    define GMTIME_R(clock, result)    S_gmtime_r(clock, result)
67 #endif
68
69 #endif