X-Git-Url: http://git.hungrycats.org/cgi-bin/gitweb.cgi?a=blobdiff_plain;f=utils%2Fusleep.c;h=ad0f4b6ba983e9722fb23f7295270d949c3aee0f;hb=65740e2a8dea3d6309ae6e8914a0fb79e993ada8;hp=2529d57f02cce0c927081c0e5a82fec3788cec55;hpb=88134d551a9911995c013c5ed06a32c2b1044b85;p=xscreensaver

diff --git a/utils/usleep.c b/utils/usleep.c
old mode 100644
new mode 100755
index 2529d57f..ad0f4b6b
--- a/utils/usleep.c
+++ b/utils/usleep.c
@@ -1,4 +1,4 @@
-/* xscreensaver, Copyright (c) 1992 Jamie Zawinski <jwz@lucid.com>
+/* xscreensaver, Copyright (c) 1992 Jamie Zawinski <jwz@mcom.com>
  *
  * Permission to use, copy, modify, distribute, and sell this software and its
  * documentation for any purpose is hereby granted without fee, provided that
@@ -16,6 +16,15 @@
 #include <X11/Xlib.h>
 #include <X11/Xos.h>	/* lazy way out */
 
+#ifdef VMS
+#include <descrip.h>
+#include <stdio.h>
+extern char *progname;
+#include <lib$routines.h>
+unsigned long int statvms;
+float seconds;
+#endif
+
 /* usleep() doesn't exist everywhere, and select() is faster anyway.
  */
 
@@ -86,12 +95,17 @@ screenhack_usleep (usecs)
      unsigned long usecs;
 {
   int status, *bin_delta;
-  extern int SYS$SCHWDK (), SYS$HIBER (); 
-  
-  if (!deltas_set) set_deltas ();
-  bin_delta = (usecs == TICK_INTERVAL) ? &bin_tick_delta : &bin_sec_delta;
-  status = SYS$SCHDWK (0, 0, bin_delta, 0);
-  if ((status & 1)) (void) SYS$HIBER ();
+
+/*  extern int SYS$SCHWDK (), SYS$HIBER ();                               */
+/*#define TICK_INTERVAL 1000                                              */
+/*                                                                        */
+/*  if (!deltas_set) set_deltas ();                                       */
+/*  bin_delta = (usecs == TICK_INTERVAL) ? &bin_tick_delta : &bin_sec_delta; */
+/*  status = SYS$SCHDWK (0, 0, bin_delta, 0);                             */
+/*  if ((status & 1)) (void) SYS$HIBER ();                                */
+
+      seconds = ((float) usecs)/1000000.0;
+      statvms = lib$wait(&seconds);
 }
 
 #endif /*VMS */