annotate pkg-src/tree-x/usleep.c @ 184:bcd2674570bf

Added tag r20-3b18 for changeset e121b013d1f0
author cvs
date Mon, 13 Aug 2007 09:54:24 +0200
parents 85ec50267440
children
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
167
85ec50267440 Import from CVS: tag r20-3b10
cvs
parents: 163
diff changeset
8 * completion, -1 otherwise.
163
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
167
85ec50267440 Import from CVS: tag r20-3b10
cvs
parents: 163
diff changeset
13 * delay, flagging an error.
163
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 #include <unistd.h>
0132846995bd Import from CVS: tag r20-3b8
cvs
parents:
diff changeset
28 #include <stdlib.h>
0132846995bd Import from CVS: tag r20-3b8
cvs
parents:
diff changeset
29 #include <stdio.h>
0132846995bd Import from CVS: tag r20-3b8
cvs
parents:
diff changeset
30 #include <errno.h>
0132846995bd Import from CVS: tag r20-3b8
cvs
parents:
diff changeset
31 #include <time.h>
0132846995bd Import from CVS: tag r20-3b8
cvs
parents:
diff changeset
32 #include <sys/time.h>
0132846995bd Import from CVS: tag r20-3b8
cvs
parents:
diff changeset
33 #include <sys/param.h>
0132846995bd Import from CVS: tag r20-3b8
cvs
parents:
diff changeset
34 #include <sys/types.h>
0132846995bd Import from CVS: tag r20-3b8
cvs
parents:
diff changeset
35
167
85ec50267440 Import from CVS: tag r20-3b10
cvs
parents: 163
diff changeset
36 int
85ec50267440 Import from CVS: tag r20-3b10
cvs
parents: 163
diff changeset
37 usleep (unsigned long microSeconds)
163
0132846995bd Import from CVS: tag r20-3b8
cvs
parents:
diff changeset
38 {
167
85ec50267440 Import from CVS: tag r20-3b10
cvs
parents: 163
diff changeset
39 unsigned int Seconds, uSec;
85ec50267440 Import from CVS: tag r20-3b10
cvs
parents: 163
diff changeset
40 int nfds = 0;
85ec50267440 Import from CVS: tag r20-3b10
cvs
parents: 163
diff changeset
41 fd_set readfds, writefds, exceptfds;
85ec50267440 Import from CVS: tag r20-3b10
cvs
parents: 163
diff changeset
42 struct timeval Timer;
163
0132846995bd Import from CVS: tag r20-3b8
cvs
parents:
diff changeset
43
167
85ec50267440 Import from CVS: tag r20-3b10
cvs
parents: 163
diff changeset
44 if( (microSeconds == (unsigned long) 0) ||
85ec50267440 Import from CVS: tag r20-3b10
cvs
parents: 163
diff changeset
45 microSeconds > (unsigned long) 4000000 )
85ec50267440 Import from CVS: tag r20-3b10
cvs
parents: 163
diff changeset
46 {
85ec50267440 Import from CVS: tag r20-3b10
cvs
parents: 163
diff changeset
47 errno = ERANGE; /* value out of range */
85ec50267440 Import from CVS: tag r20-3b10
cvs
parents: 163
diff changeset
48 perror( "usleep time out of range ( 0 -> 4000000 ) " );
85ec50267440 Import from CVS: tag r20-3b10
cvs
parents: 163
diff changeset
49 return -1;
85ec50267440 Import from CVS: tag r20-3b10
cvs
parents: 163
diff changeset
50 }
163
0132846995bd Import from CVS: tag r20-3b8
cvs
parents:
diff changeset
51
167
85ec50267440 Import from CVS: tag r20-3b10
cvs
parents: 163
diff changeset
52 Seconds = microSeconds / (unsigned long) 1000000;
85ec50267440 Import from CVS: tag r20-3b10
cvs
parents: 163
diff changeset
53 uSec = microSeconds % (unsigned long) 1000000;
163
0132846995bd Import from CVS: tag r20-3b8
cvs
parents:
diff changeset
54
167
85ec50267440 Import from CVS: tag r20-3b10
cvs
parents: 163
diff changeset
55 Timer.tv_sec = Seconds;
85ec50267440 Import from CVS: tag r20-3b10
cvs
parents: 163
diff changeset
56 Timer.tv_usec = uSec;
163
0132846995bd Import from CVS: tag r20-3b8
cvs
parents:
diff changeset
57
167
85ec50267440 Import from CVS: tag r20-3b10
cvs
parents: 163
diff changeset
58 if( select( nfds, &readfds, &writefds, &exceptfds, &Timer ) < 0 )
85ec50267440 Import from CVS: tag r20-3b10
cvs
parents: 163
diff changeset
59 {
85ec50267440 Import from CVS: tag r20-3b10
cvs
parents: 163
diff changeset
60 perror( "usleep (select) failed" );
85ec50267440 Import from CVS: tag r20-3b10
cvs
parents: 163
diff changeset
61 return -1;
85ec50267440 Import from CVS: tag r20-3b10
cvs
parents: 163
diff changeset
62 }
85ec50267440 Import from CVS: tag r20-3b10
cvs
parents: 163
diff changeset
63
85ec50267440 Import from CVS: tag r20-3b10
cvs
parents: 163
diff changeset
64 return 0;
163
0132846995bd Import from CVS: tag r20-3b8
cvs
parents:
diff changeset
65 }