home *** CD-ROM | disk | FTP | other *** search
- /*
- * NAME:
- * usleep -- This is the precision timer for Test Set
- * Automation. It uses the select(2) system
- * call to delay for the desired number of
- * micro-seconds. This call returns ZERO
- * (which is usually ignored) on successful
- * completion, -1 otherwise.
- *
- * ALGORITHM:
- * 1) We range check the passed in microseconds and log a
- * warning message if appropriate. We then return without
- * delay, flagging an error.
- * 2) Load the Seconds and micro-seconds portion of the
- * interval timer structure.
- * 3) Call select(2) with no file descriptors set, just the
- * timer, this results in either delaying the proper
- * ammount of time or being interupted early by a signal.
- *
- * HISTORY:
- * Added when the need for a subsecond timer was evident.
- * Modified for Solaris-specific bits by SAM 24/10/96
- * AUTHOR:
- * Michael J. Dyer Telephone: AT&T 414.647.4044
- * General Electric Medical Systems GE DialComm 8 *767.4044
- * P.O. Box 414 Mail Stop 12-27 Sect'y AT&T 414.647.4584
- * Milwaukee, Wisconsin USA 53201 8 *767.4584
- * internet: mike@sherlock.med.ge.com GEMS WIZARD e-mail: DYER
- */
-
- #ifdef HAVE_CONFIG_H
- #include "config.h"
- #endif
-
- #ifdef HAVE_UNISTD_H
- #include <unistd.h>
- #endif
- #include <errno.h>
- #include <time.h>
- #ifdef HAVE_SYS_TIME_H
- #include <sys/time.h>
- #endif
- #include <sys/param.h>
- #include <sys/types.h>
-
- int usleep(unsigned long microSeconds)
- {
- unsigned int Seconds, uSec;
- int nfds;
- struct timeval Timer;
-
- #if (defined(SOLARIS) || (defined(SGI)))
- fd_set readfds, writefds, exceptfds;
-
- nfds = 0;
- FD_ZERO(&readfds);
- FD_ZERO(&writefds);
- FD_ZERO(&exceptfds);
- #else
- int readfds, writefds, exceptfds;
- nfds = readfds = writefds = exceptfds = 0;
- #endif
-
- if( (microSeconds == (unsigned long) 0)
- || microSeconds > (unsigned long) 4000000 )
- {
- errno = ERANGE; /* value out of range */
- perror( "usleep time out of range ( 0 -> 4000000 ) " );
- return -1;
- }
-
- Seconds = microSeconds / (unsigned long) 1000000;
- uSec = microSeconds % (unsigned long) 1000000;
-
- Timer.tv_sec = Seconds;
- Timer.tv_usec = uSec;
-
- if( select( nfds, &readfds, &writefds, &exceptfds, &Timer ) < 0 )
- {
- perror( "usleep (select) failed" );
- return -1;
- }
-
- return 0;
- }
-