![[BACK]](/cvsweb/icons/back.gif){kind=icon}
Return to apmem.c CVS log ![[TXT]](/cvsweb/icons/text.gif){kind=icon}
![[DIR]](/cvsweb/icons/dir.gif){kind=icon}
Up to [Research Unix] / researchv10no / cmd / town|
Return to apmem.c CVS log | Up to [Research Unix] / researchv10no / cmd / town |
1.1 root 1: # include "stdio.h"
2: # include "ctype.h"
3: # include "assert.h"
4: # include "cbt.h"
5: # define SAME 0
6: bfile *townfile;
7: bfile *happened;
8: main(argc,argv)
9: char *argv[];
10: {
11: char x[100], y[500], z[100];
12: char city[100];
13: int dbgflg=0;
14: if (isatty(1)) dbgflg=1;
15: argc--; argv++;
16: townfile = bopen("/usr/spool/town/ustowns", 0);
17: happened = bopen("/usr/spool/town/happen", 2);
18: assert(townfile!=NULL);
19: while (argc--)
20: {
21: if (dbgflg) printf("story %s\n",*argv);
22: if (getstory(*argv++, x, y, z)==0)
23: continue;
24: if (dbgflg) printf("got story from %s, len %d start %.20s\n", x, strlen(y), y);
25: where (x, city);
26: if (nothing(y)) continue;
27: if (dbgflg) printf("approaching update city %s\n",city);
28: update (city, z, y);
29: if (dbgflg) printf("past update\n");
30: }
31: bclose(happened);
32: }
33: getstory(name, dateline, sentence, date)
34: char *name, *dateline, *sentence, *date;
35: {
36: char *s, line[100], *p, *t, *strchr(), *ctime();
37: int k;
38: long tn, time();
39: FILE *f;
40: f = fopen(name, "r");
41: if (f==NULL) return(0);
42: fgets(line, 100, f);
43: if (line[2]!='a')
44: {
45: fclose(f);
46: return(0);
47: }
48: while (fgets(line, 100, f))
49: if (line[0]=='\t') break;
50: for(p=line; isspace(*p); p++)
51: ;
52: sentence[0]=0;
53: s = strchr(p, '-');
54: if (s==NULL) return(0);
55: t = strchr(p, '(');
56: if (t==NULL || t>s) t=s;
57: *--t=0;
58: while (isspace(*--t))
59: *t=0;
60: strcpy(dateline, p);
61: while (isspace(*++s));
62: do {
63: trimnl(s);
64: k = sentend(s);
65: strcat(sentence, s);
66: if (k>0) break;
67: strcat(sentence, " ");
68: } while (fgets(s=line, 100, f));
69: tn = time(0);
70: p = ctime(&tn);
71: sprintf(date, "%.6s %.4s", p+4, p+20);
72: fclose(f);
73: return(1);
74: }
75: sentend(s)
76: char *s;
77: {
78: for( s+=2; *s; s++)
79: if (s[0]=='.')
80: {
81: char *p = s;
82: if (s[-2]=='.' || s[-2]==' ')
83: continue;
84: if (s[-3]==' ' &&strncase(s-2, "st", 2)==0)
85: continue;
86: if (strncase(s-2, "Mr", 2)==0)
87: continue;
88: if (strncase(s-3, "Mrs", 3)==0)
89: continue;
90: if (strncase(s-2, "Ms", 2)==0)
91: continue;
92: if (strncase(s-3, "Sen", 3)==0)
93: continue;
94: if (strncase(s-4, "Capt", 4)==0)
95: continue;
96: if (strncase(s-3, "Col", 3)==0)
97: continue;
98: if (strncase(s-3, "Gov", 3)==0)
99: continue;
100: if (strncase(s-3, "Rep", 3)==0)
101: continue;
102: if (strncase(s-2, "Co", 2)==0)
103: continue;
104: if (strncase(s-2, "Dr", 2)==0)
105: continue;
106: if (strncase (s-3, "Rev", 3)==0)
107: continue;
108: while (*++p ==' ' || *p == '\t');
109: if (p[0]=='\'' && p[1]=='\'')
110: {
111: p[2]=0;
112: return(1);
113: }
114: if (*p==0 || isupper(*p) )
115: {
116: s[1]=0;
117: return(1);
118: }
119: }
120: return(0);
121: }
122: strncase(s, t, n)
123: char *s, *t;
124: {
125: while (n--)
126: {
127: if ( (*s ^ *t) & 0337)
128: return(1);
129: if (*s==0) return(0);
130: s++; t++;
131: }
132: return(0);
133: }
134: trimnl(s)
135: char *s;
136: {
137: while (*s)s++;
138: if (*--s=='\n') *s=0;
139: }
140: struct {
141: char *old, *new;
142: } *st, stnames [] = {
143: {"Ala.", "al"},
144: {"Alaska", "ak"},
145: {"Ariz.", "az"},
146: {"Ark.", "ak"},
147: {"Calif.", "ca"},
148: {"Colo.", "co"},
149: {"Conn.", "ct"},
150: {"Del.", "de"},
151: {"Fla.", "fl"},
152: {"Ga.", "ga"},
153: {"Hawaii", "hi"},
154: {"Ida.", "id"},
155: {"Idaho", "id"},
156: {"Ill.", "il"},
157: {"Ind.", "in"},
158: {"Iowa", "ia"},
159: {"Kan.", "ks"},
160: {"Ky.", "ky"},
161: {"La.", "la"},
162: {"Mass.", "ma"},
163: {"Mass", "ma"},
164: {"Md.", "md"},
165: {"Me.", "me"},
166: {"Maine", "me"},
167: {"Mich.", "mi"},
168: {"Mich", "mi"},
169: {"Minn.", "mn"},
170: {"Miss.", "ms"},
171: {"Mo.", "mo"},
172: {"Mont.", "mt"},
173: {"N.C.", "nc"},
174: {"N.D.", "nd"},
175: {"N.H.", "nh"},
176: {"N.J.", "nj"},
177: {"N.M.", "nm"},
178: {"N.Y.", "ny"},
179: {"Neb.", "ne"},
180: {"Nev.", "nv"},
181: {"Ohio", "oh"},
182: {"OHIO", "oh"},
183: {"Okla.", "ok"},
184: {"Ore.", "or"},
185: {"Pa.", "pa"},
186: {"R.I.", "ri"},
187: {"S.C.", "sc"},
188: {"S.D.", "sd"},
189: {"Puerto Rico", "pr"},
190: {"Tenn.", "tn"},
191: {"Texas", "tx"},
192: {"Utah", "ut"},
193: {"Va.", "va"},
194: {"Vt.", "vt"},
195: {"W.Va.", "wv"},
196: {"Wash.", "wa"},
197: {"Wis.", "wi"},
198: {"Wyo.", "wy"},
199: {NULL, NULL},
200: };
201: where (dateline, city)
202: char *dateline, *city;
203: {
204: char *state, *p, *s;
205: state = strchr(dateline, ',');
206: if (state!=NULL)
207: {
208: *state++=0;
209: while (isspace(*state))state++;
210: for(st=stnames; st->old; st++)
211: if (strcmp(state, st->old)==0)
212: break;
213: if (st->old)
214: strcpy(state, st->new);
215: else
216: fprintf(stderr, "State? %s\n",state);
217: }
218: lcase(dateline);
219: find (dateline, state, city);
220: }
221: find (request, state, city)
222: char *request, *state, *city;
223: {
224: mbuf key, rkey, rrec;
225: int btype, bsize;
226: char rka[100], rra[100], best[100], *s;
227: best[0]=0;
228: btype='3'; bsize=' ';
229: key.mdata = request; key.mlen = strlen(request);
230: bseek(townfile, key);
231: rkey.mdata = rka; rrec.mdata = rra;
232: while (bread(townfile, &rkey, &rrec)==NULL)
233: {
234: rkey.mdata[rkey.mlen]=0;
235: rrec.mdata[rrec.mlen]=0;
236: if (strncmp(rkey.mdata, request, key.mlen)!=SAME)
237: break;
238: if (state)
239: {
240: s = strchr(rkey.mdata, ',');
241: if (strncmp(state, s+2, 2))
242: continue;
243: }
244: for(s=rrec.mdata; *s; s++)
245: ;
246: --s;
247: if (*s < btype || (*s == btype && s[-2] > bsize) )
248: {
249: if (state || (s[-2]>'7'))/* don't take small
250: american cities for Ottawa, Toronto...*/
251: {
252: btype = *s;
253: bsize = s[-2];
254: strcpy(best, rkey.mdata);
255: }
256: }
257: }
258: strcpy(city, best);
259: }
260: lcase(s)
261: char *s;
262: {
263: for (; *s; s++)
264: if (isupper(*s))
265: *s = tolower(*s);
266: }
267: update (city, date, text)
268: char *city, *date, *text;
269: {
270: mbuf key, val;
271: char buff[1000];
272: if (city[0]==0 || city[0]==' '|| city[0]=='\t') return;
273: sprintf(buff, "(%s) %s", date, text);
274: val.mdata = buff;
275: val.mlen = strlen(buff);
276: key.mdata = city;
277: key.mlen = strlen(city);
278: bwrite(happened, key, val);
279: printf("%s\n", city);
280: }
281: nothing(s)
282: char *s;
283: {
284: while (isspace(*s)) s++;
285: if (strlen(s)<20) return(1);
286: return(0);
287: }
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.