annotate pkg-src/tree-x/usleep.c @ 163:0132846995bd r20-3b8

Import from CVS: tag r20-3b8
author cvs
date Mon, 13 Aug 2007 09:43:35 +0200
parents
children 85ec50267440
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
rev   line source
163
0132846995bd Import from CVS: tag r20-3b8
cvs
parents:
diff changeset
1 /*
0132846995bd Import from CVS: tag r20-3b8
cvs
parents:
diff changeset
2 * NAME:
0132846995bd Import from CVS: tag r20-3b8
cvs
parents:
diff changeset
3 * usleep -- This is the precision timer for Test Set
0132846995bd Import from CVS: tag r20-3b8
cvs
parents:
diff changeset
4 * Automation. It uses the select(2) system
0132846995bd Import from CVS: tag r20-3b8
cvs
parents:
diff changeset
5 * call to delay for the desired number of
0132846995bd Import from CVS: tag r20-3b8
cvs
parents:
diff changeset
6 * micro-seconds. This call returns ZERO
0132846995bd Import from CVS: tag r20-3b8
cvs
parents:
diff changeset
7 * (which is usually ignored) on successful
0132846995bd Import from CVS: tag r20-3b8
cvs
parents:
diff changeset
8 * completion, -1 otherwise.
0132846995bd Import from CVS: tag r20-3b8
cvs
parents:
diff changeset
9 *
0132846995bd Import from CVS: tag r20-3b8
cvs
parents:
diff changeset
10 * ALGORITHM:
0132846995bd Import from CVS: tag r20-3b8
cvs
parents:
diff changeset
11 * 1) We range check the passed in microseconds and log a
0132846995bd Import from CVS: tag r20-3b8
cvs
parents:
diff changeset
12 * warning message if appropriate. We then return without
0132846995bd Import from CVS: tag r20-3b8
cvs
parents:
diff changeset
13 * delay, flagging an error.
0132846995bd Import from CVS: tag r20-3b8
cvs
parents:
diff changeset
14 * 2) Load the Seconds and micro-seconds portion of the
0132846995bd Import from CVS: tag r20-3b8
cvs
parents:
diff changeset
15 * interval timer structure.
0132846995bd Import from CVS: tag r20-3b8
cvs
parents:
diff changeset
16 * 3) Call select(2) with no file descriptors set, just the
0132846995bd Import from CVS: tag r20-3b8
cvs
parents:
diff changeset
17 * timer, this results in either delaying the proper
0132846995bd Import from CVS: tag r20-3b8
cvs
parents:
diff changeset
18 * ammount of time or being interupted early by a signal.
0132846995bd Import from CVS: tag r20-3b8
cvs
parents:
diff changeset
19 *
0132846995bd Import from CVS: tag r20-3b8
cvs
parents:
diff changeset
20 * HISTORY:
0132846995bd Import from CVS: tag r20-3b8
cvs
parents:
diff changeset
21 * Added when the need for a subsecond timer was evident.
0132846995bd Import from CVS: tag r20-3b8
cvs
parents:
diff changeset
22 *
0132846995bd Import from CVS: tag r20-3b8
cvs
parents:
diff changeset
23 * AUTHOR:
0132846995bd Import from CVS: tag r20-3b8
cvs
parents:
diff changeset
24 * Michael J. Dyer <mike@sherlock.med.ge.com>
0132846995bd Import from CVS: tag r20-3b8
cvs
parents:
diff changeset
25 */
0132846995bd Import from CVS: tag r20-3b8
cvs
parents:
diff changeset
26
0132846995bd Import from CVS: tag r20-3b8
cvs
parents:
diff changeset
27 #ifndef HAVE_USLEEP
0132846995bd Import from CVS: tag r20-3b8
cvs
parents:
diff changeset
28 #include <unistd.h>
0132846995bd Import from CVS: tag r20-3b8
cvs
parents:
diff changeset
29 #include <stdlib.h>
0132846995bd Import from CVS: tag r20-3b8
cvs
parents:
diff changeset
30 #include <stdio.h>
0132846995bd Import from CVS: tag r20-3b8
cvs
parents:
diff changeset
31 #include <errno.h>
0132846995bd Import from CVS: tag r20-3b8
cvs
parents:
diff changeset
32 #include <time.h>
0132846995bd Import from CVS: tag r20-3b8
cvs
parents:
diff changeset
33 #include <sys/time.h>
0132846995bd Import from CVS: tag r20-3b8
cvs
parents:
diff changeset
34 #include <sys/param.h>
0132846995bd Import from CVS: tag r20-3b8
cvs
parents:
diff changeset
35 #include <sys/types.h>
0132846995bd Import from CVS: tag r20-3b8
cvs
parents:
diff changeset
36
0132846995bd Import from CVS: tag r20-3b8
cvs
parents:
diff changeset
37 int usleep( unsigned long int microSeconds )
0132846995bd Import from CVS: tag r20-3b8
cvs
parents:
diff changeset
38 {
0132846995bd Import from CVS: tag r20-3b8
cvs
parents:
diff changeset
39 unsigned int Seconds, uSec;
0132846995bd Import from CVS: tag r20-3b8
cvs
parents:
diff changeset
40 int nfds, readfds, writefds, exceptfds;
0132846995bd Import from CVS: tag r20-3b8
cvs
parents:
diff changeset
41 struct timeval Timer;
0132846995bd Import from CVS: tag r20-3b8
cvs
parents:
diff changeset
42
0132846995bd Import from CVS: tag r20-3b8
cvs
parents:
diff changeset
43 nfds = readfds = writefds = exceptfds = 0;
0132846995bd Import from CVS: tag r20-3b8
cvs
parents:
diff changeset
44
0132846995bd Import from CVS: tag r20-3b8
cvs
parents:
diff changeset
45 if( (microSeconds == (unsigned long) 0)
0132846995bd Import from CVS: tag r20-3b8
cvs
parents:
diff changeset
46 || microSeconds > (unsigned long) 4000000 )
0132846995bd Import from CVS: tag r20-3b8
cvs
parents:
diff changeset
47 {
0132846995bd Import from CVS: tag r20-3b8
cvs
parents:
diff changeset
48 errno = ERANGE; /* value out of range */
0132846995bd Import from CVS: tag r20-3b8
cvs
parents:
diff changeset
49 perror( "usleep time out of range ( 0 -> 4000000 ) " );
0132846995bd Import from CVS: tag r20-3b8
cvs
parents:
diff changeset
50 return -1;
0132846995bd Import from CVS: tag r20-3b8
cvs
parents:
diff changeset
51 }
0132846995bd Import from CVS: tag r20-3b8
cvs
parents:
diff changeset
52
0132846995bd Import from CVS: tag r20-3b8
cvs
parents:
diff changeset
53 Seconds = microSeconds / (unsigned long) 1000000;
0132846995bd Import from CVS: tag r20-3b8
cvs
parents:
diff changeset
54 uSec = microSeconds % (unsigned long) 1000000;
0132846995bd Import from CVS: tag r20-3b8
cvs
parents:
diff changeset
55
0132846995bd Import from CVS: tag r20-3b8
cvs
parents:
diff changeset
56 Timer.tv_sec = Seconds;
0132846995bd Import from CVS: tag r20-3b8
cvs
parents:
diff changeset
57 Timer.tv_usec = uSec;
0132846995bd Import from CVS: tag r20-3b8
cvs
parents:
diff changeset
58
0132846995bd Import from CVS: tag r20-3b8
cvs
parents:
diff changeset
59 if( select( nfds, &readfds, &writefds, &exceptfds, &Timer ) < 0 )
0132846995bd Import from CVS: tag r20-3b8
cvs
parents:
diff changeset
60 {
0132846995bd Import from CVS: tag r20-3b8
cvs
parents:
diff changeset
61 perror( "usleep (select) failed" );
0132846995bd Import from CVS: tag r20-3b8
cvs
parents:
diff changeset
62 return -1;
0132846995bd Import from CVS: tag r20-3b8
cvs
parents:
diff changeset
63 }
0132846995bd Import from CVS: tag r20-3b8
cvs
parents:
diff changeset
64
0132846995bd Import from CVS: tag r20-3b8
cvs
parents:
diff changeset
65 return 0;
0132846995bd Import from CVS: tag r20-3b8
cvs
parents:
diff changeset
66 }
0132846995bd Import from CVS: tag r20-3b8
cvs
parents:
diff changeset
67 #else
0132846995bd Import from CVS: tag r20-3b8
cvs
parents:
diff changeset
68 /* this is to avoid a "object file has no symbol" error/warning.
0132846995bd Import from CVS: tag r20-3b8
cvs
parents:
diff changeset
69 */
0132846995bd Import from CVS: tag r20-3b8
cvs
parents:
diff changeset
70 static int local_junk;
0132846995bd Import from CVS: tag r20-3b8
cvs
parents:
diff changeset
71 #endif