random.c revision 1.2 1 1.1 jtc /*
2 1.1 jtc * Copyright (c) 1994
3 1.1 jtc * The Regents of the University of California. All rights reserved.
4 1.1 jtc *
5 1.1 jtc * This code is derived from software contributed to Berkeley by
6 1.1 jtc * Guy Harris at Network Appliance Corp.
7 1.1 jtc *
8 1.1 jtc * Redistribution and use in source and binary forms, with or without
9 1.1 jtc * modification, are permitted provided that the following conditions
10 1.1 jtc * are met:
11 1.1 jtc * 1. Redistributions of source code must retain the above copyright
12 1.1 jtc * notice, this list of conditions and the following disclaimer.
13 1.1 jtc * 2. Redistributions in binary form must reproduce the above copyright
14 1.1 jtc * notice, this list of conditions and the following disclaimer in the
15 1.1 jtc * documentation and/or other materials provided with the distribution.
16 1.1 jtc * 3. All advertising materials mentioning features or use of this software
17 1.1 jtc * must display the following acknowledgement:
18 1.1 jtc * This product includes software developed by the University of
19 1.1 jtc * California, Berkeley and its contributors.
20 1.1 jtc * 4. Neither the name of the University nor the names of its contributors
21 1.1 jtc * may be used to endorse or promote products derived from this software
22 1.1 jtc * without specific prior written permission.
23 1.1 jtc *
24 1.1 jtc * THIS SOFTWARE IS PROVIDED BY THE REGENTS AND CONTRIBUTORS ``AS IS'' AND
25 1.1 jtc * ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
26 1.1 jtc * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
27 1.1 jtc * ARE DISCLAIMED. IN NO EVENT SHALL THE REGENTS OR CONTRIBUTORS BE LIABLE
28 1.1 jtc * FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
29 1.1 jtc * DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS
30 1.1 jtc * OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)
31 1.1 jtc * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT
32 1.1 jtc * LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY
33 1.1 jtc * OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF
34 1.1 jtc * SUCH DAMAGE.
35 1.1 jtc */
36 1.1 jtc
37 1.1 jtc #ifndef lint
38 1.1 jtc static char copyright[] =
39 1.1 jtc "@(#) Copyright (c) 1994\n\
40 1.1 jtc The Regents of the University of California. All rights reserved.\n";
41 1.1 jtc #endif /* not lint */
42 1.1 jtc
43 1.1 jtc #ifndef lint
44 1.1 jtc static char sccsid[] = "@(#)random.c 8.5 (Berkeley) 4/5/94";
45 1.1 jtc #endif /* not lint */
46 1.1 jtc
47 1.1 jtc #include <sys/types.h>
48 1.1 jtc
49 1.1 jtc #include <err.h>
50 1.1 jtc #include <errno.h>
51 1.1 jtc #include <stdio.h>
52 1.1 jtc #include <stdlib.h>
53 1.1 jtc #include <time.h>
54 1.1 jtc #include <unistd.h>
55 1.2 jtc #include <limits.h>
56 1.1 jtc
57 1.1 jtc void usage __P((void));
58 1.1 jtc
59 1.1 jtc int
60 1.1 jtc main(argc, argv)
61 1.1 jtc int argc;
62 1.1 jtc char *argv[];
63 1.1 jtc {
64 1.1 jtc extern int optind;
65 1.1 jtc time_t now;
66 1.1 jtc double denom;
67 1.1 jtc int ch, random_exit, selected, unbuffer_output;
68 1.1 jtc char *ep;
69 1.1 jtc
70 1.1 jtc random_exit = unbuffer_output = 0;
71 1.1 jtc while ((ch = getopt(argc, argv, "er")) != EOF)
72 1.1 jtc switch (ch) {
73 1.1 jtc case 'e':
74 1.1 jtc random_exit = 1;
75 1.1 jtc break;
76 1.1 jtc case 'r':
77 1.1 jtc unbuffer_output = 1;
78 1.1 jtc break;
79 1.1 jtc default:
80 1.1 jtc case '?':
81 1.1 jtc usage();
82 1.1 jtc /* NOTREACHED */
83 1.1 jtc }
84 1.1 jtc
85 1.1 jtc argc -= optind;
86 1.1 jtc argv += optind;
87 1.1 jtc
88 1.1 jtc switch (argc) {
89 1.1 jtc case 0:
90 1.1 jtc denom = 2;
91 1.1 jtc break;
92 1.1 jtc case 1:
93 1.1 jtc errno = 0;
94 1.1 jtc denom = strtod(*argv, &ep);
95 1.1 jtc if (errno == ERANGE)
96 1.1 jtc err(1, "%s", *argv);
97 1.1 jtc if (denom == 0 || *ep != '\0')
98 1.1 jtc errx(1, "denominator is not valid.");
99 1.1 jtc break;
100 1.1 jtc default:
101 1.1 jtc usage();
102 1.1 jtc /* NOTREACHED */
103 1.1 jtc }
104 1.1 jtc
105 1.1 jtc (void)time(&now);
106 1.1 jtc srandom((u_int)(now + getpid()));
107 1.1 jtc
108 1.1 jtc /* Compute a random exit status between 0 and denom - 1. */
109 1.1 jtc if (random_exit)
110 1.1 jtc return ((denom * random()) / LONG_MAX);
111 1.1 jtc
112 1.1 jtc /*
113 1.1 jtc * Act as a filter, randomly choosing lines of the standard input
114 1.1 jtc * to write to the standard output.
115 1.1 jtc */
116 1.1 jtc if (unbuffer_output)
117 1.1 jtc setbuf(stdout, NULL);
118 1.1 jtc
119 1.1 jtc /*
120 1.1 jtc * Select whether to print the first line. (Prime the pump.)
121 1.1 jtc * We find a random number between 0 and denom - 1 and, if it's
122 1.1 jtc * 0 (which has a 1 / denom chance of being true), we select the
123 1.1 jtc * line.
124 1.1 jtc */
125 1.1 jtc selected = (int)(denom * random() / LONG_MAX) == 0;
126 1.1 jtc while ((ch = getchar()) != EOF) {
127 1.1 jtc if (selected)
128 1.1 jtc (void)putchar(ch);
129 1.1 jtc if (ch == '\n') {
130 1.1 jtc /* End of that line. See if we got an error. */
131 1.1 jtc if (ferror(stdout))
132 1.1 jtc err(2, "stdout");
133 1.1 jtc
134 1.1 jtc /* Now see if the next line is to be printed. */
135 1.1 jtc selected = (int)(denom * random() / LONG_MAX) == 0;
136 1.1 jtc }
137 1.1 jtc }
138 1.1 jtc if (ferror(stdin))
139 1.1 jtc err(2, "stdin");
140 1.1 jtc exit (0);
141 1.1 jtc }
142 1.1 jtc
143 1.1 jtc void
144 1.1 jtc usage()
145 1.1 jtc {
146 1.1 jtc
147 1.1 jtc (void)fprintf(stderr, "usage: random [-er] [denominator]\n");
148 1.1 jtc exit(1);
149 1.1 jtc }
150