-#endif /* ! NO_SELECT */
-
-#else /* VMS */
-
-#define SEC_DELTA "0000 00:00:01.00"
-#define TICK_DELTA "0000 00:00:00.08"
-static int bin_sec_delta[2], bin_tick_delta[2], deltas_set = 0;
-
-static void
-set_deltas ()
-{
- int status;
- extern int SYS$BINTIM ();
- $DESCRIPTOR (str_sec_delta, SEC_DELTA);
- $DESCRIPTOR (str_tick_delta, TICK_DELTA);
- if (!deltas_set)
- {
- status = SYS$BINTIM (&str_sec_delta, &bin_sec_delta);
- if (!(status & 1))
- {
- fprintf (stderr, "%s: cannot convert delta time ", progname);
- fprintf (stderr, SEC_DELTA);
- fprintf (stderr, "; status code = %d\n", status);
- exit (status);
- }
- status = SYS$BINTIM (&str_tick_delta, &bin_tick_delta);
- if (!(status & 1))
- {
- fprintf (stderr, "%s: cannot convert delta time ", progname);
- fprintf (stderr, TICK_DELTA);
- fprintf (stderr, "; status code = %d\n", status);
- exit (status);
- }
- deltas_set = 1;
- }
-}
-
-void
-screenhack_usleep (usecs)
- unsigned long usecs;
-{
- int status, *bin_delta;
-
-/* 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 (); */