4 * Print a quotation from Zippy the Pinhead.
5 * Qux <Kaufman-David@Yale> March 6, 1986
7 * This file is in the public domain because the author published it
8 * with no copyright notice before the US signed the Bern Convention.
10 * With dynamic memory allocation.
19 #ifdef TIME_WITH_SYS_TIME
23 #ifdef HAVE_SYS_TIME_H
32 #include "epaths.h" /* For PATH_DATA. */
38 #define YOW_FILE "yow.lines"
42 #define rootrelativepath(rel) \
44 static char res[BUFSIZE], *p;\
45 strcpy (res, argv[0]);\
46 p = res + strlen (res);\
47 while (p != res && *p != '/' && *p != '\\' && *p != ':') p--;\
48 strcpy (p + 1, "../");\
54 char *malloc
__P ((size_t size
))), *realloc
__P ((POINTER_TYPE
*ptr
, size_t size
));
68 if (argc
> 2 && !strcmp (argv
[1], "-f"))
69 strcpy (file
, argv
[2]);
72 sprintf (file
, "%s%s", PATH_DATA
, YOW_FILE
);
74 sprintf (file
, "%s/%s", PATH_DATA
, YOW_FILE
);
77 if ((fp
= fopen(file
, "r")) == NULL
) {
78 fprintf(stderr
, "yow: ");
83 /* initialize random seed */
84 srand((int) (getpid() + time((time_t *) 0)));
93 static long header_len
;
95 #define AVG_LEN 40 /* average length of a quotation */
97 /* Sets len and header_len */
104 /* Get length of file */
105 /* Because the header (stuff before the first SEP) can be very long,
106 * thus biasing our search in favor of the first quotation in the file,
107 * we explicitly skip that. */
108 while ((c
= getc(fp
)) != SEP
) {
110 fprintf(stderr
, "yow: file contains no separators\n");
114 header_len
= ftell(fp
);
115 if (header_len
> AVG_LEN
)
116 header_len
-= AVG_LEN
; /* allow the first quotation to appear */
118 if (fseek(fp
, 0L, 2) == -1) {
122 len
= ftell(fp
) - header_len
;
126 /* go to a random place in the file and print the quotation there */
134 unsigned int bufsize
;
136 offset
= rand() % len
+ header_len
;
137 if (fseek(fp
, offset
, 0) == -1) {
142 /* Read until SEP, read next line, print it.
143 (Note that we will never print anything before the first separator.)
144 If we hit EOF looking for the first SEP, just recurse. */
145 while ((c
= getc(fp
)) != SEP
)
151 /* Skip leading whitespace, then read in a quotation.
152 If we hit EOF before we find a non-whitespace char, recurse. */
153 while (isspace(c
= getc(fp
)))
161 buf
= malloc(bufsize
);
162 if (buf
== (char *)0) {
163 fprintf(stderr
, "yow: virtual memory exhausted\n");
168 while ((c
= getc(fp
)) != SEP
&& c
!= EOF
) {
171 if (i
== bufsize
-1) {
172 /* Yow! Is this quotation too long yet? */
174 buf
= realloc(buf
, bufsize
);
175 if (buf
== (char *)0) {
176 fprintf(stderr
, "yow: virtual memory exhausted\n");