/* sleeps for t miliseconds. Compiles under:
   1) AIX
   2) SGI/IRIX
   3) SunOS 4.0
   4) SunOS 5.0
 */

#include <sys/types.h>
#include <sys/time.h>
#include <stdlib.h>
#include <unistd.h>
#include <time.h>
#include <stropts.h>
#include <poll.h>

struct pollfd pstruc;
static int sub;

void ms_sleep(t)
int t;
{
 int s;
 long ms;

 sub = 0;
 if(t <= 0) {
   return;
   }
 s = t/1000;
 ms = t % 1000;
 if(s > 0) {
   sleep(s);
   }
 if(ms > 0) {
   poll(&pstruc, (unsigned long)0, ms);
   }
 return;
 }