1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
|
#if defined(__GLASGOW_HASKELL__) || defined(__HUGS__)
/*
* (c) The University of Glasgow 2002
*
* Time Runtime Support
*/
#include "HsTime.h"
#if HAVE_GETTIMEOFDAY
int __hscore_gettimeofday(struct timeval *tp, void *tzp)
{
return gettimeofday(tp, tzp);
}
#endif
#if HAVE_GMTIME_R
struct tm *__hscore_gmtime_r(const time_t *clock, struct tm *result)
{
return gmtime_r(clock, result);
}
#endif
#if HAVE_LOCALTIME_R
struct tm *__hscore_localtime_r(const time_t *clock, struct tm *result)
{
return localtime_r(clock, result);
}
#endif
#if defined(_MSC_VER) || defined(__MINGW32__) || defined(_WIN32) /* to the end */
long *__hscore_timezone( void )
{ return &_timezone; }
char **__hscore_tzname( void )
{ return _tzname; }
#endif
#endif
|
