[project @ 2000-04-13 14:11:00 by simonmar]

[ghc-hetmet.git] / ghc / lib / std / cbits / getClockTime.c

diff --git a/ghc/lib/std/cbits/getClockTime.c b/ghc/lib/std/cbits/getClockTime.c
index 9f031bf..0aa8e06 100644 (file)
--- a/ghc/lib/std/cbits/getClockTime.c
+++ b/ghc/lib/std/cbits/getClockTime.c
@@ -1,7 +1,7 @@
 /* 
  * (c) The GRASP/AQUA Project, Glasgow University, 1994-1998
  *
- * $Id: getClockTime.c,v 1.1 1998/04/10 10:54:35 simonm Exp $
+ * $Id: getClockTime.c,v 1.8 1999/10/26 09:34:09 sof Exp $
  *
  * getClockTime Runtime Support
  */
@@ -13,56 +13,71 @@
 #include "Rts.h"
 #include "stgio.h"
 
-#ifdef HAVE_GETCLOCK
+/* Note: skewing this code in favour of non-POSIX calls
+   such as gettimeofday() and getclock() rather than time(),
+   may seem strange/wrong. There's a good reason for it
+   though - the non-POSIX calls gives you better precision --
+   they return usecs (or nsecs) as well as seconds, which
+   the users of getClockTime() is interested in knowing.
+ */
 
+#if defined(HAVE_GETTIMEOFDAY)
+#  ifdef HAVE_SYS_TIME_H
+#   include <sys/time.h>
+#  endif
+#elif defined(HAVE_GETCLOCK)
 # ifdef HAVE_SYS_TIMERS_H
 #  define POSIX_4D9 1
 #  include <sys/timers.h>
 # endif
+#elif defined(HAVE_TIME_H)
+# include <time.h>
+#endif
 
-#else
-# ifdef HAVE_GETTIMEOFDAY
-
-#  ifdef HAVE_SYS_TIME_H
-#   include <sys/time.h>
-#  endif
-
-# else
-
-#  ifdef HAVE_TIME_H
-#   include <time.h>
-#  endif
-
-# endif
+#ifdef HAVE_WINDOWS_H
+#include <windows.h>
+#include <sys/types.h>
+#include <sys/timeb.h>
 #endif
 
 StgInt
 getClockTime(StgByteArray sec, StgByteArray nsec)
 {
-#ifdef HAVE_GETCLOCK
-    struct timespec tp;
+#if defined(_WIN32) && !defined(cygwin32_TARGET_OS)
+  /*
+   * ftime() as implemented by cygwin (in B20.1) is
+   * not right, so stay away & use time() there instead.
+   */
+  struct timeb t;
 
-    if (getclock(TIMEOFDAY, &tp) != 0) {
+  _ftime(&t);
+
+  ((unsigned int *)sec)[0] = (unsigned int)t.time;
+  ((unsigned int *)nsec)[0] = (unsigned int)t.millitm * 1000;
+  return 0;
+#elif defined(HAVE_GETTIMEOFDAY)
+    struct timeval tp;
+ 
+    if (gettimeofday(&tp, NULL) != 0) {
        cvtErrno();
        stdErrno();
        return -1;
     }
     ((unsigned long int *)sec)[0] = tp.tv_sec;
-    ((unsigned long int *)nsec)[0] = tp.tv_nsec;
+    ((unsigned long int *)nsec)[0] = tp.tv_usec * 1000;
     return 0;
-#else
-#ifdef HAVE_GETTIMEOFDAY
-    struct timeval tp;
- 
-    if (gettimeofday(&tp, NULL) != 0) {
+#elif defined(HAVE_GETCLOCK)
+    struct timespec tp;
+
+    if (getclock(TIMEOFDAY, &tp) != 0) {
        cvtErrno();
        stdErrno();
        return -1;
     }
     ((unsigned long int *)sec)[0] = tp.tv_sec;
-    ((unsigned long int *)nsec)[0] = tp.tv_usec * 1000;
+    ((unsigned long int *)nsec)[0] = tp.tv_nsec;
     return 0;
-#else
+#elif defined(HAVE_TIME_H)
     time_t t;
     if ((t = time(NULL)) == (time_t) -1) {
        cvtErrno();
@@ -72,6 +87,7 @@ getClockTime(StgByteArray sec, StgByteArray nsec)
     ((unsigned long int *)sec)[0] = t;
     ((unsigned long int *)nsec)[0] = 0;
     return 0;
-#endif
+#else
+#error "getClockTime: don't know how to get at the clock's time"
 #endif
 }