add basic Windows support

Author: hydroo

mysecond.c

@@ -5,7 +5,12 @@
    and without appended underscores, so it *should*
    automagically link with FORTRAN */
 
-#include <sys/time.h>
+#ifndef _WIN32
+# include <sys/time.h>
+#else
+#define WIN32_LEAN_AND_MEAN
+# include <Windows.h>
+#endif
 
 double mysecond()
 {
@@ -15,12 +20,18 @@ double mysecond()
 struct timezone { int   tz_minuteswest;
              int        tz_dsttime;      };     */
 
+#ifndef _WIN32
         struct timeval tp;
         struct timezone tzp;
         int i;
 
         i = gettimeofday(&tp,&tzp);
         return ( (double) tp.tv_sec + (double) tp.tv_usec * 1.e-6 );
+#else
+        __int64 t;
+        GetSystemTimeAsFileTime((FILETIME*)&t);
+        return ((double)(t - 116444736000000000LL)) / 10000000.0;
+#endif
 }
 
 double mysecond_() {return mysecond();}

stream.c

@@ -41,11 +41,19 @@
 /*  5. Absolutely no warranty is expressed or implied.                   */
 /*-----------------------------------------------------------------------*/
 # include <stdio.h>
-# include <unistd.h>
 # include <math.h>
 # include <float.h>
 # include <limits.h>
+
+#ifndef _WIN32
 # include <sys/time.h>
+# include <unistd.h>
+#else
+# include <BaseTsd.h> // for SSIZE_T
+typedef SSIZE_T ssize_t;
+#define WIN32_LEAN_AND_MEAN
+# include <Windows.h>
+#endif
 
 /*-----------------------------------------------------------------------
  * INSTRUCTIONS:
@@ -415,16 +423,20 @@ checktick()
 /* A gettimeofday routine to give access to the wall
    clock timer on most UNIX-like systems.  */
 
-#include <sys/time.h>
-
 double mysecond()
 {
+#ifndef _WIN32
         struct timeval tp;
         struct timezone tzp;
         int i;
 
         i = gettimeofday(&tp,&tzp);
         return ( (double) tp.tv_sec + (double) tp.tv_usec * 1.e-6 );
+#else
+        __int64 t;
+        GetSystemTimeAsFileTime((FILETIME*)&t);
+        return ((double)(t - 116444736000000000LL)) / 10000000.0;
+#endif
 }
 
 #ifndef abs
@@ -476,7 +488,7 @@ void checkSTREAMresults ()
 		epsilon = 1.e-13;
 	}
 	else {
-		printf("WEIRD: sizeof(STREAM_TYPE) = %lu\n",sizeof(STREAM_TYPE));
+		printf("WEIRD: sizeof(STREAM_TYPE) = %zu\n",sizeof(STREAM_TYPE));
 		epsilon = 1.e-6;
 	}