![[BACK]](/cvsweb/icons/back.gif){kind=icon}
Return to badidea1.c CVS log ![[TXT]](/cvsweb/icons/text.gif){kind=icon}
![[DIR]](/cvsweb/icons/dir.gif){kind=icon}
Up to [Research Unix] / researchv10no / cmd / ap / apnews|
Return to badidea1.c CVS log | Up to [Research Unix] / researchv10no / cmd / ap / apnews |
1.1 root 1: # include "stdio.h"
2: # include "ctype.h"
3: # include "assert.h"
4: # include "signal.h"
5: # include "sys/types.h"
6: # include "sys/stat.h"
7: # include "cbt.h"
8: # include "time.h"
9: char names[20][14];
10: char heads[20][50];
11: # define NST 200
12: char storylist[NST][12];
13: int stc=0;
14: int intr();
15: char *getlogin(), *ctime();
16: struct tm *localtime();
17: int day, yesterday;
18: int stp=0;
19: int inolim=0;
20: int inodes[NST+5];
21: char *getenv(), *getpwd();
22: char nowfile[20]="";
23: char nowhead[50];
24: char pwdir[50];
25: long filtim();
26: char *storydir = "/usr/spool/ap";
27:
28: /* logging */
29: char *apnlog = "/usr/spool/ap/apnlog";
30: long tmstart, tmend;
31: int nslug, nstory, nsearch;
32:
33: main(argc,argv)
34: char *argv[];
35: {
36: char line[100];
37: int i, lc=1;
38: long l;
39: char *ctp, *userp;
40: char forcebuf[BUFSIZ];
41: setbuf(stdout, forcebuf);
42: for (argc--,argv++; argc>0 && argv[0][0]=='-'; argc--,argv++)
43: switch(argv[0][1])
44: {
45: case 'f':
46: storydir = argv[1];
47: argv++; argc--;
48: break;
49: }
50: tmstart = l = time(0);
51: day = localtime(&l)->tm_mday;
52: l -= 86400; /* go back one day */
53: yesterday = localtime(&l)->tm_mday;
54: signal (SIGINT, intr);
55: strcpy(pwdir, getpwd());
56: i = chdir(storydir);
57: if (i!=0)
58: {
59: fprintf(stderr, "no directory %s\n",storydir);
60: exit(1);
61: }
62: top();
63: extend(20);
64: display();
65: menu(lc);
66: fflush(stdout);
67: extend(30);
68: while (gets(line))
69: {
70: tpos(0,0);
71: if (line[0]!=0)
72: rate();
73: switch(line[0])
74: {
75: case '0': case '1': case '2': case '3': case '4':
76: case '5': case '6': case '7': case '8': case '9':
77: i = atoi(line)-1;
78: if (i<0 || i>19) continue;
79: pr(names[i], heads[i]);
80: nstory++;
81: lc=0;
82: break;
83: case 0: /* continue this story */
84: if (lc==0)
85: pr(0,0);
86: else if (lc==1)
87: display();
88: else if (lc==2)
89: sums();
90: if (lc>0) menu(lc);
91: break;
92: case '?':
93: menu(0);
94: break;
95: case '!':
96: system(line+1);
97: break;
98: case '.':
99: disprint();
100: break;
101: case 'a':
102: pr(line, "");
103: nstory++;
104: lc=0;
105: break;
106: case '+':
107: case 'm':
108: shorten(line+1);
109: display();
110: lc=1;
111: break;
112: case 'M':
113: sums();
114: menu(lc=2);
115: break;
116: case 't':
117: top();
118: extend(20);
119: shorten(line+1);
120: display();
121: menu(lc=1);
122: break;
123: case 'T':
124: top();
125: extend(20);
126: sums();
127: menu(lc=2);
128: break;
129: case 'c':
130: case 'C': /* copy file to my directory */
131: i = atoi(line+1);
132: if (i>0)
133: strcpy(nowfile, names[i-1]);
134: copyto(line+1, nowfile);
135: break;
136: case 'D': /* delete file*/
137: i = atoi(line+1);
138: if (i>0)
139: strcpy(nowfile, names[i-1]);
140: printf("Deleting /%s/\n",nowfile);
141: unlink(nowfile);
142: break;
143: case 'Y':
144: case 'y': /* must get keyword list */
145: getkeys(line[0]=='Y');
146: break;
147: case 'S':
148: case 's': /* search for words */
149: wdsearch (line+1, line[0]=='S');
150: nsearch++;
151: break;
152: case 'q':
153: tpos(23,0);
154: wrap();
155: }
156: fflush(stdout);
157: }
158: tpos(23,0);
159: wrap();
160: }
161: intr()
162: {
163: tpos(23,0);
164: wrap();
165: exit(0);
166: }
167: int llens[10] ={70,70,70,70,70,70,70,70,70,70};
168: pr (s, h)
169: char *s, *h;
170: {
171: static FILE *f=NULL;
172: char line[120];
173: int i, k, k1;
174: if (s && s[0]==0)
175: return;
176: if (s!=0)
177: {
178: if (f!= NULL) fclose(f);
179: f = fopen(s, "r");
180: if (f==NULL)
181: {
182: printf("No file %s\n", s);
183: return;
184: }
185: strcpy(nowfile, s);
186: strcpy(nowhead, h);
187: }
188: else
189: if (f==NULL) return;
190: tpos(12,0);
191: if (ifclear())
192: clr2end();
193: for(i=0; i<10; i++)
194: {
195: if(fgets(line, 100, f)==0)
196: break;
197: trimnl(line);
198: k = strlen(line);
199: if (line[0]=='\t') k+= 7;
200: if (!ifclear() &&ifclrline())
201: clrline();
202: fputs(line, stdout);
203: if (!ifclear() && !ifclrline())
204: for(k1=llens[i]; k1>k; k1--)
205: putchar(' ');
206: printf("\n");
207: llens[i]=k+1;
208: }
209: }
210: trimnl(s)
211: char *s;
212: {
213: while (*s) s++;
214: if (*--s == '\n') *s=0;
215: }
216: static hfgate=0;
217: static char hfbuff[5000];
218: static char *hflab[400];
219: static int hftop=0;
220: hfast (out, snam)
221: char *out, *snam;
222: {
223: char *s;
224: int i;
225: if (hfgate==0)
226: {
227: int f, n;
228: char fn[40], *index();
229: sprintf(fn, "%s/.S%d", storydir, day);
230: f = open(fn, 0);
231: if (f<0) return(0);
232: n= read (f, hfbuff, 5000);
233: hfbuff[n]=0;
234: close(f);
235: hfgate=1;
236: s = hfbuff;
237: for(hftop=0; hftop<400; hftop++)
238: {
239: if (*s==0) break;
240: hflab[hftop] = s;
241: s = index(s, '\n');
242: if (s==NULL) break;
243: *s++ = 0;
244: }
245: }
246: for(i=0; i<hftop; i++)
247: {
248: if (strncmp(snam, hflab[i], 5)==0 && hflab[i][6] !=0)
249: {
250: strcpy(out, hflab[i]+6);
251: return(1);
252: }
253: }
254: return(0);
255: }
256: hget(s, f)
257: char s[];
258: FILE *f;
259: {
260: int i, c, nw;
261: char line[100], *wv[40], *p;
262: if (f==NULL)
263: {
264: *s=0;
265: return;
266: }
267: fgets(line, 100, f);
268: trimnl(line);
269: if (line[1]==' ' && line[3]==' ' && line[6]=='-') /* their heading */
270: {
271: for(p=line+7; (c = *p) && c!=' '; p++)
272: *s++ = c;
273: *s=0;
274: return;
275: }
276: nw = getargs(line, wv);
277: strcpy(s, wv[i=pickbig(wv, nw)]);
278: wv[i]="";
279: strcat(s, wv[pickbig(wv,nw)]);
280: return;
281: }
282: notnew(i, inodes, fname)
283: char *fname;
284: int *inodes;
285: {
286: int ino, j;
287: struct stat stbuff;
288: stat (fname, &stbuff);
289: ino = stbuff.st_ino;
290: for(j=0; j<i; j++)
291: if (ino==inodes[j])
292: return(1);
293: inodes[i]=ino;
294: return(0);
295: }
296: display()
297: {
298: getnam(20);
299: disprint();
300: nslug += 20;
301: }
302: disprint()
303: {
304: int i, kl, a;
305: char bform[30];
306: FILE *fl;
307: startsc();
308: for(i=0; i<20; i++)
309: {
310: if (names[i][0]== '\0')
311: break;
312: if (hfast(heads[i], names[i]))
313: continue;
314: fl = fopen(names[i], "r");
315: if (fl!=NULL)
316: {
317: hget(heads[i],fl);
318: fclose(fl);
319: }
320: else
321: heads[i][0]=names[i][0]=0;
322: }
323: for(kl=i=0; i<10; i++)
324: {
325: a = strlen(heads[i]);
326: if (a>kl) kl=a;
327: }
328: kl += 6;
329: if (kl>30) kl=30;
330: sprintf(bform, "%%3d: (%%5s) %%-%d.%ds ", kl, kl);
331: for(i=0; i<10; i++)
332: {
333: char xheads[50], yheads[50];
334: clrline();
335:
336: sprintf(xheads, "%s [%c]", heads[i], scr(names[i]));
337: sprintf(yheads, "%s [%c]", heads[i+10], scr(names[i+10]));
338: if (strlen(names[i])<=5)
339: printf(bform, i+1, names[i], xheads);
340: else
341: printf("%3d: (%11s) %-19.19s ",i+1,names[i],xheads);
342: printf("%3d: (%5s) %.30s\n",i+11,names[i+10],yheads);
343: }
344: nowfile[0]=0;
345: }
346: top()
347: {
348: char tstories[NST][6];
349: int f, n, i, j;
350: stc = inolim = stp = 0;
351: f = open("..tlist", 0);
352: if (f<0) return;
353: n = read(f, tstories, NST*6);
354: stc = n/6;
355: /* reverse tstories */
356: for(i=0, j=stc-1; i<j; i++,j--)
357: {
358: char x[6];
359: strncpy(x,tstories[i],6);
360: strncpy(tstories[i],tstories[j],6);
361: strncpy(tstories[j],x,6);
362: }
363: close(f);
364: for(i=0; i<stc; i++)
365: {
366: strncpy(storylist[i],tstories[i],6);
367: storylist[i][6]= 0;
368: }
369: }
370: getnam(n)
371: {
372: int i;
373: for (i=0; i<n; i++)
374: heads[i][0]= names[i][0]= '\0';
375: for (i=0; i<n; i++)
376: {
377: try:
378: if (stp>=stc) break;
379: strcpy(names[i], storylist[stp++]);
380:
381: if (!interest(names[i])) goto try;
382: if (names[i][0]=='a' && isdigit(names[i][1]))
383: continue;
384: if (names[i][5]=='.' && names[i][6]=='a' &&
385: isdigit(names[i][7]))
386: continue;
387: goto try;
388: }
389: }
390: sums()
391: {
392: int i;
393: startsc();
394: getnam(10);
395: for (i=0; i<10; i++)
396: {
397: printf("%d ",i+1);
398: prsum(names[i]);
399: }
400: }
401: wrap()
402: {
403: FILE *f;
404: tmend = time(0);
405: f = fopen(apnlog, "a");
406: if (f!=NULL)
407: {
408: fprintf(f,
409: "%s slugs %d stories %d searches %d dir %s %.16s %d secs\n",
410: getlogin(), nslug, nstory, nsearch, storydir,
411: ctime(&tmstart), tmend-tmstart);
412: fclose(f);
413: }
414: exit(0);
415: }
416: rate()
417: {
418: char line[100]; int r;
419: if (nowfile[0]==0) return;
420: tpos(12,0);
421: if (ifclear())
422: clr2end();
423: else
424: if (ifclrline())
425: {clrline(); tpos(13,0); clrline();}
426: tpos(12,0);
427: printf("Please rate story %s: 1 bad, 5 good: ", nowhead);
428: fflush(stdout);
429: gets(line);
430: r = atoi(line);
431: if (r<0) r=0;
432: if (r>5) r=5;
433: upd(nowfile, r);
434: }
435:
436: short nread[1000];
437: short neval[1000];
438: short tscor[1000];
439: short sqscr[1000];
440: static char * scname = "Scores";
441: short nvl[1000];
442: int ngate=0;
443: upd(nm, r)
444: {
445: int f, n;
446: n = atoi(nm+1);
447: if (n<=0 || n>999) return;
448: f = open(scname, 0);
449: if (f>0)
450: {
451: ngate=1;
452: read(f, nread, 2000);
453: read(f, neval, 2000);
454: read(f, tscor, 2000);
455: read(f, sqscr, 2000);
456: close(f);
457: }
458: if (r>10) return;
459: nread[n]++;
460: if (r>0)
461: {
462: neval[n]++;
463: tscor[n]+=r;
464: sqscr[n]+= r*r;
465: }
466: f = creat(scname, 0666);
467: if (f>0)
468: {
469: write(f, nread, 2000);
470: write (f, neval, 2000);
471: write (f, tscor, 2000);
472: write (f, sqscr, 2000);
473: close(f);
474: }
475: }
476: scr(s)
477: char *s;
478: {
479: int n;
480: double x;
481: if (ngate==0) upd (" 100", 100);
482: n = atoi(s+1);
483: if (neval[n]==0)
484: return(' ');
485: x = (double) tscor[n];
486: x /= neval[n];
487: x += 0.5;
488: n = (int) x;
489: return(n+'0');
490: }
491: ctr(s)
492: char *s;
493: {
494: int n;
495: n = atoi(s+1);
496: return(nread[n]);
497: }
498: int intlevel=0;
499: shorten(s)
500: char *s;
501: {
502: if (*s!='>') intlevel=0;
503: else
504: intlevel = atoi(s+1);
505: if (intlevel>5) intlevel=5;
506: }
507: interest(s)
508: char *s;
509: {
510: int n;
511: if (intlevel<=0) return(1);
512: n = atoi(s+1);
513: upd("", 100);
514: if (neval[n]==0) return(0);
515: if ( (double)tscor[n]/neval[n] > intlevel) return(1);
516: return(0);
517: }
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.