config/gen/platform/win32/time.c

   1 /*
   2  * $Id$
   3  * Copyright (C) 2004-2006, Parrot Foundation.
   4  */
   5
   6 /*
   7
   8 =head1 NAME
   9
  10 config\gen\platform\win32\time.c
  11
  12 =head1 DESCRIPTION
  13
  14 Provides access to system time functions for Win32 platforms.
  15
  16 =head2 Functions
  17
  18 =over 4
  19
  20 =cut
  21
  22 */
  23
  24 #include <time.h>
  25
  26 /*
  27
  28 =item C<INTVAL Parrot_intval_time(void)>
  29
  30 Returns the current time as an INTVAL
  31
  32 =cut
  33
  34 */
  35
  36 INTVAL
  37 Parrot_intval_time(void)
  38 {
  39 #if defined(_MSC_VER) && _MSC_VER >= 1400
  40 #  ifdef _WIN64
  41     return (INTVAL)_time64(NULL);
  42 #  else
  43     return _time32(NULL);
  44 #  endif
  45 #else
  46     return time(NULL);
  47 #endif
  48 }
  49
  50 /*
  51
  52 =item C<FLOATVAL Parrot_floatval_time(void)>
  53
  54 Returns the current time as a FLOATVAL.
  55
  56 =cut
  57
  58 */
  59
  60 FLOATVAL
  61 Parrot_floatval_time(void)
  62 {
  63     SYSTEMTIME sysTime;
  64     /* 100 ns ticks since 1601-01-01 00:00:00 */
  65     FILETIME fileTime;
  66     LARGE_INTEGER i;
  67
  68     GetSystemTime(&sysTime);
  69     SystemTimeToFileTime(&sysTime, &fileTime);
  70     /* Documented as the way to get a 64 bit from a FILETIME. */
  71     memcpy(&i, &fileTime, sizeof (LARGE_INTEGER));
  72
  73     /* FILETIME uses 100ns steps since 1601-01-01 00:00:00 as epoch.
  74      * We'd like 1 second steps since 1970-01-01 00:00:00.
  75      * To get there, divide by 10,000,000 to get from 100ns steps to seconds.
  76      * Then subtract the seconds between 1601 and 1970, i.e. 11,644,473,600.
  77      */
  78     return (FLOATVAL)i.QuadPart / 10000000.0 - 11644473600.0;
  79 }
  80
  81
  82 /*
  83
  84 =item C<void Parrot_sleep(unsigned int seconds)>
  85
  86 Sleeps for C<seconds> seconds.
  87
  88 =cut
  89
  90 */
  91
  92 void
  93 Parrot_sleep(unsigned int seconds)
  94 {
  95     Sleep(seconds * 1000);
  96 }
  97
  98 /*
  99
 100 =item C<void Parrot_usleep(unsigned int microseconds)>
 101
 102 Sleep for at least the specified number of microseconds (millionths of a
 103 second).
 104
 105 =cut
 106
 107 */
 108
 109 void
 110 Parrot_usleep(unsigned int microseconds)
 111 {
 112     Sleep(microseconds / 1000);
 113 }
 114
 115 /*
 116
 117 =item C<struct tm * Parrot_gmtime_r(const time_t *t, struct tm *tm)>
 118
 119 Returns a C<time_t> structure for the current Greenwich Mean Time.
 120
 121 =cut
 122
 123 */
 124
 125 PARROT_EXPORT
 126 struct tm *
 127 Parrot_gmtime_r(const time_t *t, struct tm *tm)
 128 {
 129     *tm = *gmtime(t);
 130     return tm;
 131 }
 132
 133 /*
 134
 135 =item C<struct tm * Parrot_localtime_r(const time_t *t, struct tm *tm)>
 136
 137 Returns a C<time_t> struct for the current local time.
 138
 139 =cut
 140
 141 */
 142
 143 PARROT_EXPORT
 144 struct tm *
 145 Parrot_localtime_r(const time_t *t, struct tm *tm)
 146 {
 147     *tm = *localtime(t);
 148     return tm;
 149 }
 150
 151 /*
 152
 153 =item C<char* Parrot_asctime_r(const struct tm *tm, char *buffer)>
 154
 155 Returns an ASCII representation of the C<struct tm>. Puts it in the
 156 character array C<buffer>.
 157
 158 =cut
 159
 160 */
 161
 162 PARROT_EXPORT
 163 char*
 164 Parrot_asctime_r(const struct tm *tm, char *buffer)
 165 {
 166     static const char wday_name[7][4] =
 167         { "Sun", "Mon", "Tue", "Wed", "Thu", "Fri", "Sat" };
 168     static const char mon_name[12][4] =
 169         { "Jan", "Feb", "Mar", "Apr", "May", "Jun",
 170           "Jul", "Aug", "Sep", "Oct", "Nov", "Dec" };
 171
 172     sprintf(buffer, "%.3s %.3s%3d %.2d:%.2d:%.2d %d\n",
 173         wday_name[tm->tm_wday],
 174         mon_name[tm->tm_mon],
 175         tm->tm_mday,
 176         tm->tm_hour,
 177         tm->tm_min,
 178         tm->tm_sec,
 179         1900 + tm->tm_year);
 180
 181     return buffer;
 182 }
 183
 184 /*
 185
 186 =back
 187
 188 =cut
 189
 190 */
 191
 192 /*
 193  * Local variables:
 194  *   c-file-style: "parrot"
 195  * End:
 196  * vim: expandtab shiftwidth=4:
 197  */