ext/Time/HiRes/HiRes.xs

   1 #ifdef __cplusplus
   2 extern "C" {
   3 #endif
   4 #include "EXTERN.h"
   5 #include "perl.h"
   6 #include "XSUB.h"
   7 #ifdef WIN32
   8 #include <time.h>
   9 #else
  10 #include <sys/time.h>
  11 #endif
  12 #ifdef __cplusplus
  13 }
  14 #endif
  15
  16 #if !defined(HAS_GETTIMEOFDAY) && defined(WIN32)
  17 #define HAS_GETTIMEOFDAY
  18
  19 /* shows up in winsock.h?
  20 struct timeval {
  21  long tv_sec;
  22  long tv_usec;
  23 }
  24 */
  25
  26 int
  27 gettimeofday (struct timeval *tp, int nothing)
  28 {
  29  SYSTEMTIME st;
  30  time_t tt;
  31  struct tm tmtm;
  32  /* mktime converts local to UTC */
  33  GetLocalTime (&st);
  34  tmtm.tm_sec = st.wSecond;
  35  tmtm.tm_min = st.wMinute;
  36  tmtm.tm_hour = st.wHour;
  37  tmtm.tm_mday = st.wDay;
  38  tmtm.tm_mon = st.wMonth - 1;
  39  tmtm.tm_year = st.wYear - 1900;
  40  tmtm.tm_isdst = -1;
  41  tt = mktime (&tmtm);
  42  tp->tv_sec = tt;
  43  tp->tv_usec = st.wMilliseconds * 1000;
  44  return 0;
  45 }
  46 #endif
  47
  48 #if !defined(HAS_GETTIMEOFDAY) && defined(VMS)
  49 #define HAS_GETTIMEOFDAY
  50
  51 #include <time.h> /* gettimeofday */
  52 #include <stdlib.h> /* qdiv */
  53 #include <starlet.h> /* sys$gettim */
  54 #include <descrip.h>
  55
  56 /*
  57         VMS binary time is expressed in 100 nano-seconds since
  58         system base time which is 17-NOV-1858 00:00:00.00
  59 */
  60
  61 #define DIV_100NS_TO_SECS  10000000L
  62 #define DIV_100NS_TO_USECS 10L
  63
  64 /*
  65         gettimeofday is supposed to return times since the epoch
  66         so need to determine this in terms of VMS base time
  67 */
  68 static $DESCRIPTOR(dscepoch,"01-JAN-1970 00:00:00.00");
  69
  70 static __int64 base_adjust=0;
  71
  72 int
  73 gettimeofday (struct timeval *tp, void *tpz)
  74 {
  75  long ret;
  76  __int64 quad;
  77  __qdiv_t ans1,ans2;
  78
  79 /*
  80         In case of error, tv_usec = 0 and tv_sec = VMS condition code.
  81         The return from function is also set to -1.
  82         This is not exactly as per the manual page.
  83 */
  84
  85  tp->tv_usec = 0;
  86
  87  if (base_adjust==0) { /* Need to determine epoch adjustment */
  88         ret=sys$bintim(&dscepoch,&base_adjust);
  89         if (1 != (ret &&1)) {
  90                 tp->tv_sec = ret;
  91                 return -1;
  92         }
  93  }
  94
  95  ret=sys$gettim(&quad); /* Get VMS system time */
  96  if ((1 && ret) == 1) {
  97         quad -= base_adjust; /* convert to epoch offset */
  98         ans1=qdiv(quad,DIV_100NS_TO_SECS);
  99         ans2=qdiv(ans1.rem,DIV_100NS_TO_USECS);
 100         tp->tv_sec = ans1.quot; /* Whole seconds */
 101         tp->tv_usec = ans2.quot; /* Micro-seconds */
 102  } else {
 103         tp->tv_sec = ret;
 104         return -1;
 105  }
 106  return 0;
 107 }
 108 #endif
 109
 110 #if !defined(HAS_USLEEP) && defined(HAS_SELECT)
 111 #ifndef SELECT_IS_BROKEN
 112 #define HAS_USLEEP
 113 #define usleep hrt_usleep  /* could conflict with ncurses for static build */
 114
 115 void
 116 hrt_usleep(unsigned long usec)
 117 {
 118     struct timeval tv;
 119     tv.tv_sec = 0;
 120     tv.tv_usec = usec;
 121     select(0, (Select_fd_set_t)NULL, (Select_fd_set_t)NULL,
 122                 (Select_fd_set_t)NULL, &tv);
 123 }
 124 #endif
 125 #endif
 126
 127 #if !defined(HAS_USLEEP) && defined(WIN32)
 128 #define HAS_USLEEP
 129 #define usleep hrt_usleep  /* could conflict with ncurses for static build */
 130
 131 void
 132 hrt_usleep(unsigned long usec)
 133 {
 134     long msec;
 135     msec = usec / 1000;
 136     Sleep (msec);
 137 }
 138 #endif
 139
 140
 141 #if !defined(HAS_UALARM) && defined(HAS_SETITIMER)
 142 #define HAS_UALARM
 143 #define ualarm hrt_ualarm  /* could conflict with ncurses for static build */
 144
 145 int
 146 hrt_ualarm(int usec, int interval)
 147 {
 148    struct itimerval itv;
 149    itv.it_value.tv_sec = usec / 1000000;
 150    itv.it_value.tv_usec = usec % 1000000;
 151    itv.it_interval.tv_sec = interval / 1000000;
 152    itv.it_interval.tv_usec = interval % 1000000;
 153    return setitimer(ITIMER_REAL, &itv, 0);
 154 }
 155 #endif
 156
 157 #ifdef HAS_GETTIMEOFDAY
 158
 159 static void
 160 myU2time(UV *ret)
 161 {
 162   struct timeval Tp;
 163   int status;
 164   status = gettimeofday (&Tp, NULL);
 165   ret[0] = Tp.tv_sec;
 166   ret[1] = Tp.tv_usec;
 167 }
 168
 169 static double
 170 myNVtime()
 171 {
 172   struct timeval Tp;
 173   int status;
 174   status = gettimeofday (&Tp, NULL);
 175   return Tp.tv_sec + (Tp.tv_usec / 1000000.);
 176 }
 177
 178 #endif
 179
 180 MODULE = Time::HiRes            PACKAGE = Time::HiRes
 181
 182 PROTOTYPES: ENABLE
 183
 184 BOOT:
 185 #ifdef HAS_GETTIMEOFDAY
 186   hv_store(PL_modglobal, "Time::NVtime", 12, newSViv((IV) myNVtime), 0);
 187   hv_store(PL_modglobal, "Time::U2time", 12, newSViv((IV) myU2time), 0);
 188 #endif
 189
 190 #ifdef HAS_USLEEP
 191
 192 void
 193 usleep(useconds)
 194         int useconds
 195
 196 void
 197 sleep(fseconds)
 198         double fseconds
 199         CODE:
 200         int useconds = fseconds * 1000000;
 201         usleep (useconds);
 202
 203 #endif
 204
 205 #ifdef HAS_UALARM
 206
 207 int
 208 ualarm(useconds,interval=0)
 209         int useconds
 210         int interval
 211
 212 int
 213 alarm(fseconds,finterval=0)
 214         double fseconds
 215         double finterval
 216         PREINIT:
 217         int useconds, uinterval;
 218         CODE:
 219         useconds = fseconds * 1000000;
 220         uinterval = finterval * 1000000;
 221         RETVAL = ualarm (useconds, uinterval);
 222
 223 #endif
 224
 225 #ifdef HAS_GETTIMEOFDAY
 226
 227 void
 228 gettimeofday()
 229         PREINIT:
 230         struct timeval Tp;
 231         PPCODE:
 232         int status;
 233         status = gettimeofday (&Tp, NULL);
 234         if (GIMME == G_ARRAY) {
 235              EXTEND(sp, 2);
 236              PUSHs(sv_2mortal(newSViv(Tp.tv_sec)));
 237              PUSHs(sv_2mortal(newSViv(Tp.tv_usec)));
 238         } else {
 239              EXTEND(sp, 1);
 240              PUSHs(sv_2mortal(newSVnv(Tp.tv_sec + (Tp.tv_usec / 1000000.0))));
 241         }
 242
 243 double
 244 time()
 245         PREINIT:
 246         struct timeval Tp;
 247         CODE:
 248         int status;
 249         status = gettimeofday (&Tp, NULL);
 250         RETVAL = Tp.tv_sec + (Tp.tv_usec / 1000000.);
 251         OUTPUT:
 252         RETVAL
 253
 254 #endif
 255
 256 # $Id: HiRes.xs,v 1.11 1999/03/16 02:27:38 wegscd Exp wegscd $
 257
 258 # $Log: HiRes.xs,v $
 259 # Revision 1.11  1999/03/16 02:27:38  wegscd
 260 # Add U2time, NVtime. Fix symbols for static link.
 261 #
 262 # Revision 1.10  1998/09/30 02:36:25  wegscd
 263 # Add VMS changes.
 264 #
 265 # Revision 1.9  1998/07/07 02:42:06  wegscd
 266 # Win32 usleep()
 267 #
 268 # Revision 1.8  1998/07/02 01:47:26  wegscd
 269 # Add Win32 code for gettimeofday.
 270 #
 271 # Revision 1.7  1997/11/13 02:08:12  wegscd
 272 # Add missing EXTEND in gettimeofday() scalar code.
 273 #
 274 # Revision 1.6  1997/11/11 02:32:35  wegscd
 275 # Do something useful when calling gettimeofday() in a scalar context.
 276 # The patch is courtesy of Gisle Aas.
 277 #
 278 # Revision 1.5  1997/11/06 03:10:47  wegscd
 279 # Fake ualarm() if we have setitimer.
 280 #
 281 # Revision 1.4  1997/11/05 05:41:23  wegscd
 282 # Turn prototypes ON (suggested by Gisle Aas)
 283 #
 284 # Revision 1.3  1997/10/13 20:56:15  wegscd
 285 # Add PROTOTYPES: DISABLE
 286 #
 287 # Revision 1.2  1997/05/23 01:01:38  wegscd
 288 # Conditional compilation, depending on what the OS gives us.
 289 #
 290 # Revision 1.1  1996/09/03 18:26:35  wegscd
 291 # Initial revision
 292 #
 293 #