annotate lib-src/yow.c @ 298:70ad99077275 r21-0b47

Import from CVS: tag r21-0b47
author cvs
date Mon, 13 Aug 2007 10:39:40 +0200
parents 2d532a89d707
children 972bbb6d6ca2
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
rev   line source
0
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
1 /*
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
2 * yow.c
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
3 *
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
4 * Print a quotation from Zippy the Pinhead.
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
5 * Qux <Kaufman-David@Yale> March 6, 1986
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
6 *
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
7 * With dynamic memory allocation.
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
8 */
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
9
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
10 /* Synched up with: FSF 19.28. */
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
11
175
2d532a89d707 Import from CVS: tag r20-3b14
cvs
parents: 169
diff changeset
12 #include <../src/config.h>
0
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
13
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
14 #include <stdio.h>
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
15 #include <ctype.h>
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
16 #include <../src/paths.h> /* For PATH_DATA. */
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
17
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
18 #if __STDC__ || defined(STDC_HEADERS)
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
19 #include <stdlib.h>
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
20 #include <unistd.h>
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
21 #include <string.h>
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
22 #include <time.h> /* for time() */
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
23 #endif
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
24
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
25 #define BUFSIZE 80
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
26 #define SEP '\0'
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
27
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
28 #ifndef YOW_FILE
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
29 #define YOW_FILE "yow.lines"
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
30 #endif
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
31
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
32 void yow (FILE *fp);
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
33 void setup_yow (FILE *fp);
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
34
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
35 #ifdef MSDOS
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
36 #define rootrelativepath(rel) \
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
37 ({\
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
38 static char res[BUFSIZE], *p;\
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
39 strcpy (res, argv[0]);\
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
40 p = res + strlen (res);\
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
41 while (p != res && *p != '/' && *p != '\\' && *p != ':') p--;\
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
42 strcpy (p + 1, "../");\
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
43 strcpy (p + 4, rel);\
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
44 &res;})
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
45 #endif
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
46
169
15872534500d Import from CVS: tag r20-3b11
cvs
parents: 0
diff changeset
47 int
15872534500d Import from CVS: tag r20-3b11
cvs
parents: 0
diff changeset
48 main (int argc, char *argv[])
0
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
49 {
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
50 FILE *fp;
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
51 char file[BUFSIZ];
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
52
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
53 if (argc > 2 && !strcmp (argv[1], "-f"))
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
54 strcpy (file, argv[2]);
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
55 else
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
56 #ifdef PATH_DATA
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
57 #ifdef vms
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
58 sprintf (file, "%s%s", PATH_DATA, YOW_FILE);
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
59 #else
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
60 sprintf (file, "%s/%s", PATH_DATA, YOW_FILE);
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
61 #endif
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
62 #else /* !PATH_DATA */
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
63 {
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
64 fprintf (stderr,
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
65 "%s: the location of the \"%s\" file was not supplied at compile-time.\n\
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
66 You must supply it with the -f command-line option.\n",
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
67 argv[0], YOW_FILE);
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
68 exit (1);
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
69 }
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
70 #endif
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
71
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
72 if ((fp = fopen(file, "r")) == NULL) {
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
73 perror(file);
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
74 exit(1);
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
75 }
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
76
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
77 /* initialize random seed */
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
78 srand((int) (getpid() + time((time_t *) 0)));
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
79
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
80 setup_yow(fp);
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
81 yow(fp);
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
82 fclose(fp);
169
15872534500d Import from CVS: tag r20-3b11
cvs
parents: 0
diff changeset
83 return 0;
0
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
84 }
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
85
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
86 static long len = -1;
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
87 static long header_len;
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
88
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
89 #define AVG_LEN 40 /* average length of a quotation */
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
90
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
91 /* Sets len and header_len */
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
92 void
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
93 setup_yow(fp)
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
94 FILE *fp;
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
95 {
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
96 int c;
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
97
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
98 /* Get length of file */
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
99 /* Because the header (stuff before the first SEP) can be very long,
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
100 * thus biasing our search in favor of the first quotation in the file,
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
101 * we explicitly skip that. */
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
102 while ((c = getc(fp)) != SEP) {
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
103 if (c == EOF) {
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
104 fprintf(stderr, "File contains no separators.\n");
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
105 exit(2);
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
106 }
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
107 }
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
108 header_len = ftell(fp);
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
109 if (header_len > AVG_LEN)
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
110 header_len -= AVG_LEN; /* allow the first quotation to appear */
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
111
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
112 if (fseek(fp, 0L, 2) == -1) {
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
113 perror("fseek 1");
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
114 exit(1);
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
115 }
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
116 len = ftell(fp) - header_len;
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
117 }
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
118
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
119
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
120 /* go to a random place in the file and print the quotation there */
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
121 void
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
122 yow (fp)
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
123 FILE *fp;
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
124 {
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
125 long offset;
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
126 int c, i = 0;
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
127 char *buf;
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
128 unsigned int bufsize;
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
129
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
130 offset = rand() % len + header_len;
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
131 if (fseek(fp, offset, 0) == -1) {
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
132 perror("fseek 2");
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
133 exit(1);
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
134 }
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
135
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
136 /* Read until SEP, read next line, print it.
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
137 (Note that we will never print anything before the first separator.)
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
138 If we hit EOF looking for the first SEP, just recurse. */
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
139 while ((c = getc(fp)) != SEP)
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
140 if (c == EOF) {
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
141 yow(fp);
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
142 return;
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
143 }
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
144
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
145 /* Skip leading whitespace, then read in a quotation.
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
146 If we hit EOF before we find a non-whitespace char, recurse. */
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
147 while (isspace(c = getc(fp)))
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
148 ;
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
149 if (c == EOF) {
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
150 yow(fp);
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
151 return;
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
152 }
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
153
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
154 bufsize = BUFSIZE;
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
155 buf = (char *) malloc(bufsize);
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
156 if (buf == (char *)0) {
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
157 fprintf(stderr, "can't allocate any memory\n");
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
158 exit (3);
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
159 }
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
160
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
161 buf[i++] = c;
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
162 while ((c = getc(fp)) != SEP && c != EOF) {
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
163 buf[i++] = c;
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
164
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
165 if (i == bufsize-1) {
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
166 /* Yow! Is this quotation too long yet? */
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
167 bufsize *= 2;
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
168 buf = (char *)realloc(buf, bufsize);
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
169 if (buf == (char *)0) {
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
170 fprintf(stderr, "can't allocate more memory\n");
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
171 exit (3);
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
172 }
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
173 }
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
174 }
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
175 buf[i++] = 0;
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
176 printf("%s\n", buf);
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
177 }
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
178