![[BACK]](/cvsweb/icons/back.gif){kind=icon}
Return to rn.c CVS log ![[TXT]](/cvsweb/icons/text.gif){kind=icon}
![[DIR]](/cvsweb/icons/dir.gif){kind=icon}
Up to [CSRG BSD Unix] / 43BSDTahoe / new / rn|
Return to rn.c CVS log | Up to [CSRG BSD Unix] / 43BSDTahoe / new / rn |
1.1 root 1: /* rn -- new readnews program
2: *
3: * From: [email protected] (Larry Wall)
4: * Organization: System Development Corporation, Santa Monica
5: *
6: * begun: 01/14/83
7: * 1.0: 04/08/83
8: * 2.0: 09/01/83
9: */
10:
11: static char rnid[] = "@(#)$Header: rn.c,v 4.3.1.4 85/09/10 11:05:13 lwall Exp $";
12:
13: /* $Log: rn.c,v $
14: * Revision 4.3.1.4 85/09/10 11:05:13 lwall
15: * Improved %m in in_char().
16: *
17: * Revision 4.3.1.3 85/05/16 16:47:10 lwall
18: * Catchup confirmation didn't grok -t.
19: *
20: * Revision 4.3.1.2 85/05/13 09:34:53 lwall
21: * Fixed default after do_newsgroup() returns from Q command.
22: *
23: * Revision 4.3.1.1 85/05/10 11:38:08 lwall
24: * Branch for patches.
25: *
26: * Revision 4.3 85/05/01 11:47:56 lwall
27: * Baseline for release with 4.3bsd.
28: *
29: */
30:
31: #include "INTERN.h"
32: #include "common.h"
33: #include "rn.h"
34: #include "EXTERN.h"
35: #include "rcstuff.h"
36: #include "term.h"
37: #include "final.h"
38: #include "ngdata.h"
39: #include "util.h"
40: #include "only.h"
41: #include "ngsrch.h"
42: #include "help.h"
43: #include "last.h"
44: #include "init.h"
45: #include "intrp.h"
46: #include "rcln.h"
47: #include "sw.h"
48: #include "addng.h"
49: #include "ng.h"
50: #include "INTERN.h"
51:
52: void
53: rn_init()
54: {
55: ;
56: }
57:
58: void
59: main(argc,argv)
60: int argc;
61: char *argv[];
62: {
63: bool foundany = initialize(argc,argv);
64: register char *s;
65: bool oh_for_the_good_old_days = FALSE;
66:
67: if (maxngtodo)
68: starthere = 0;
69: else if (!foundany) { /* nothing to do? */
70: #ifdef VERBOSE
71: if (verbose)
72: fputs("\
73: No unread news in subscribed-to newsgroups. To subscribe to a new\n\
74: newsgroup use the g<newsgroup> command.\n\
75: ",stdout) FLUSH;
76: #endif
77: starthere = nextrcline;
78: }
79:
80: /* loop through all unread news */
81:
82: {
83: char promptbuf[80];
84: bool special = FALSE; /* temporarily allow newsgroup */
85: /* with no unread news? */
86: bool retry; /* cycle back to top of list? */
87: NG_NUM recent_ng = 0;
88:
89: current_ng = 0;
90: do {
91: retry = FALSE;
92: if (findlast) {
93: findlast = FALSE;
94: starthere = 0;
95: if (*lastngname) {
96: if ((ng = find_ng(lastngname)) == nextrcline)
97: ng = 0;
98: else {
99: set_ngname(lastngname);
100: set_toread(ng);
101: if (toread[ng] <= TR_NONE)
102: ng = 0;
103: }
104: }
105: }
106: else {
107: ng = starthere;
108: starthere = 0;
109: }
110: while (ng <= nextrcline) { /* for each newsgroup */
111: mode = 'n';
112: if (ng >= nextrcline) { /* after the last newsgroup? */
113: ng = nextrcline; /* force it to 1 after */
114: #ifdef ONLY
115: if (maxngtodo) {
116: if (retry)
117: #ifdef VERBOSE
118: IF(verbose)
119: printf("\nRestriction %s%s still in effect.\n",
120: ngtodo[0],
121: maxngtodo > 1 ? ", etc." : nullstr) FLUSH;
122: ELSE
123: #endif
124: #ifdef TERSE
125: fputs("\n(\"Only\" mode.)\n",stdout) FLUSH;
126: #endif
127: else {
128: #ifdef VERBOSE
129: IF(verbose)
130: fputs("\nNo articles under restriction.",
131: stdout) FLUSH;
132: ELSE
133: #endif
134: #ifdef TERSE
135: fputs("\nNo \"only\" articles.",stdout) FLUSH;
136: #endif
137: end_only(); /* release the restriction */
138: retry = TRUE;
139: }
140: }
141: #endif
142: dfltcmd = (retry ? "npq" : "qnp");
143: #ifdef VERBOSE
144: IF(verbose)
145: sprintf(promptbuf,
146: "\n******** End of newsgroups--what next? [%s] ",
147: dfltcmd);
148: ELSE
149: #endif
150: #ifdef TERSE
151: sprintf(promptbuf,
152: "\n**** End--next? [%s] ", dfltcmd);
153: #endif
154: }
155: else {
156: bool shoe_fits; /* newsgroup matches restriction? */
157:
158: if (toread[ng] >= TR_NONE) { /* recalc toread? */
159: set_ngname(rcline[ng]);
160: if (shoe_fits = (special || inlist(ngname)))
161: set_toread(ng);
162: if (paranoid) {
163: recent_ng = current_ng;
164: current_ng = ng;
165: cleanup_rc();
166: /* this may move newsgroups around */
167: ng = current_ng;
168: set_ngname(rcline[ng]);
169: }
170: }
171: if (toread[ng] < (maxngtodo||special ? TR_NONE : TR_ONE) || !shoe_fits) {
172: /* unwanted newsgroup? */
173: ng++; /* then skip it */
174: continue;
175: }
176: dfltcmd = "ynq";
177: #ifdef VERBOSE
178: IF(verbose)
179: sprintf(promptbuf,
180: "\n******** %3ld unread article%c in %s--read now? [%s] ",
181: (long)toread[ng], (toread[ng]==TR_ONE ? ' ' : 's'),
182: ngname, dfltcmd); /* format prompt string */
183: ELSE
184: #endif
185: #ifdef TERSE
186: sprintf(promptbuf,
187: "\n**** %3ld in %s--read? [%s] ",
188: (long)toread[ng],
189: ngname,dfltcmd); /* format prompt string */
190: #endif
191: }
192: special = FALSE; /* go back to normal mode */
193: if (ng != current_ng) {
194: recent_ng = current_ng;
195: /* remember previous newsgroup */
196: current_ng = ng; /* remember current newsgroup */
197: }
198: reask_newsgroup:
199: unflush_output(); /* disable any ^O in effect */
200: fputs(promptbuf,stdout) FLUSH;/* print prompt */
201: fflush(stdout);
202: reinp_newsgroup:
203: eat_typeahead();
204: getcmd(buf);
205: if (errno || *buf == '\f') {
206: putchar('\n') FLUSH; /* if return from stop signal */
207: goto reask_newsgroup; /* give them a prompt again */
208: }
209: setdef(buf,dfltcmd);
210: #ifdef VERIFY
211: printcmd();
212: #endif
213: switch (*buf) {
214: case 'p': /* find previous unread newsgroup */
215: do {
216: if (ng <= 0)
217: break;
218: ng--;
219: if (toread[ng] == TR_NONE)
220: set_toread(ng);
221: } while (toread[ng] <= TR_NONE);
222: break;
223: case 'P': /* goto previous newsgroup */
224: do {
225: if (ng <= 0)
226: break;
227: ng--;
228: } while (toread[ng] < TR_NONE);
229: special = TRUE; /* don't skip it if toread==0 */
230: break;
231: case '-':
232: ng = recent_ng; /* recall previous newsgroup */
233: special = TRUE; /* don't skip it if toread==0 */
234: break;
235: case 'q': case 'Q': case 'x': /* quit? */
236: oh_for_the_good_old_days = (*buf == 'x');
237: putchar('\n') FLUSH;
238: ng = nextrcline+1; /* satisfy */
239: retry = FALSE; /* loop conditions */
240: break;
241: case '^':
242: putchar('\n') FLUSH;
243: ng = 0;
244: break;
245: case 'n': case '+': /* find next unread newsgroup */
246: if (ng == nextrcline) {
247: putchar('\n') FLUSH;
248: retry = TRUE;
249: }
250: else if (toread[ng] > TR_NONE)
251: retry = TRUE;
252: ng++;
253: break;
254: case 'N': /* goto next newsgroup */
255: ng++;
256: special = TRUE; /* and don't skip it if toread==0 */
257: break;
258: case '1': /* goto 1st newsgroup */
259: ng = 0;
260: special = TRUE; /* and don't skip it if toread==0 */
261: break;
262: case '$':
263: ng = nextrcline; /* goto last newsgroup */
264: retry = TRUE;
265: break;
266: case 'L':
267: list_newsgroups();
268: goto reask_newsgroup;
269: case '/': case '?': /* scan for newsgroup pattern */
270: #ifdef NGSEARCH
271: switch (ng_search(buf,TRUE)) {
272: case NGS_ABORT:
273: goto reinp_newsgroup;
274: case NGS_INTR:
275: #ifdef VERBOSE
276: IF(verbose)
277: fputs("\n(Interrupted)\n",stdout) FLUSH;
278: ELSE
279: #endif
280: #ifdef TERSE
281: fputs("\n(Intr)\n",stdout) FLUSH;
282: #endif
283: ng = current_ng;
284: goto reask_newsgroup;
285: case NGS_FOUND:
286: special = TRUE; /* don't skip it if toread==0 */
287: break;
288: case NGS_NOTFOUND:
289: #ifdef VERBOSE
290: IF(verbose)
291: fputs("\n\nNot found--use g to add newsgroups\n",
292: stdout) FLUSH;
293: ELSE
294: #endif
295: #ifdef TERSE
296: fputs("\n\nNot found\n",stdout) FLUSH;
297: #endif
298: goto reask_newsgroup;
299: }
300: #else
301: notincl("/");
302: #endif
303: break;
304: case 'm':
305: #ifndef RELOCATE
306: notincl("m");
307: break;
308: #endif
309: case 'g': /* goto named newsgroup */
310: if (!finish_command(FALSE))
311: /* if they didn't finish command */
312: goto reinp_newsgroup; /* go try something else */
313: for (s = buf+1; *s == ' '; s++);
314: /* skip leading spaces */
315: if (!*s)
316: strcpy(s,ngname);
317: #ifdef RELOCATE
318: if (!get_ng(s,*buf=='m')) /* try to find newsgroup */
319: #else
320: if (!get_ng(s,FALSE)) /* try to find newsgroup */
321: #endif
322: ng = current_ng;/* if not found, go nowhere */
323: special = TRUE; /* don't skip it if toread==0 */
324: break;
325: #ifdef DEBUGGING
326: case 'D':
327: printf("\nTries: %d Hits: %d\n",
328: softtries,softtries-softmisses) FLUSH;
329: goto reask_newsgroup;
330: #endif
331: case '!': /* shell escape */
332: if (escapade()) /* do command */
333: goto reinp_newsgroup;
334: /* if rubbed out, re input */
335: goto reask_newsgroup;
336: case Ctl('k'): /* edit global KILL file */
337: edit_kfile();
338: goto reask_newsgroup;
339: case 'c': /* catch up */
340: #ifdef CATCHUP
341: reask_catchup:
342: #ifdef VERBOSE
343: IF(verbose)
344: in_char("\nDo you really want to mark everything as read? [yn] ", 'C');
345: ELSE
346: #endif
347: #ifdef TERSE
348: in_char("\nReally? [ynh] ", 'C');
349: #endif
350: putchar('\n') FLUSH;
351: setdef(buf,"y");
352: if (*buf == 'h') {
353: #ifdef VERBOSE
354: printf("Type y or SP to mark all articles as read.\n");
355: printf("Type n to leave articles marked as they are.\n");
356: #else
357: printf("y or SP to mark all read.\n");
358: printf("n to forget it.\n");
359: #endif
360: goto reask_catchup;
361: }
362: else if (*buf!=' ' && *buf!='y' && *buf!='n' && *buf!='q') {
363: printf(hforhelp);
364: settle_down();
365: goto reask_catchup;
366: } else if ( (*buf == ' ' || *buf == 'y') && ng<nextrcline )
367: catch_up(ng);
368: else
369: retry = TRUE;
370: ng++;
371: #else
372: notincl("c");
373: #endif
374: break;
375: case 'u': /* unsubscribe */
376: if (ng < nextrcline && toread[ng] >= TR_NONE) {
377: /* unsubscribable? */
378: printf(unsubto,rcline[ng]) FLUSH;
379: rcchar[ng] = NEGCHAR;
380: /* unsubscribe to (from?) it */
381: toread[ng] = TR_UNSUB;
382: /* and make line invisible */
383: ng++; /* do an automatic 'n' */
384: }
385: break;
386: case 'h': { /* help */
387: int cmd;
388:
389: if ((cmd = help_ng()) > 0)
390: pushchar(cmd);
391: goto reask_newsgroup;
392: }
393: case 'a':
394: #ifndef FINDNEWNG
395: notincl("a");
396: goto reask_newsgroup;
397: #else
398: /* FALL THROUGH */
399: #endif
400: case 'o':
401: #ifdef ONLY
402: {
403: #ifdef FINDNEWNG
404: bool doscan = (*buf == 'a');
405: #endif
406:
407: if (!finish_command(TRUE)) /* get rest of command */
408: goto reinp_newsgroup; /* if rubbed out, try something else */
409: end_only();
410: if (buf[1]) {
411: bool minusd = instr(buf+1,"-d") != Nullch;
412:
413: sw_list(buf+1);
414: if (minusd)
415: cwd_check();
416: putchar('\n') FLUSH;
417: #ifdef FINDNEWNG
418: if (doscan && maxngtodo)
419: scanactive();
420: #endif
421: }
422: ng = 0; /* simulate ^ */
423: retry = FALSE;
424: break;
425: }
426: #else
427: notincl("o");
428: goto reask_newsgroup;
429: #endif
430: case '&':
431: if (switcheroo()) /* get rest of command */
432: goto reinp_newsgroup; /* if rubbed out, try something else */
433: goto reask_newsgroup;
434: case 'l': { /* list other newsgroups */
435: if (!finish_command(TRUE)) /* get rest of command */
436: goto reinp_newsgroup; /* if rubbed out, try something else */
437: for (s = buf+1; *s == ' '; s++);
438: /* skip leading spaces */
439: sprintf(cmd_buf,"%s '%s'",filexp(NEWSGROUPS),s);
440: resetty();
441: if (doshell(sh,cmd_buf))
442: #ifdef VERBOSE
443: IF(verbose)
444: fputs(" (Error from newsgroups program)\n",
445: stdout) FLUSH;
446: ELSE
447: #endif
448: #ifdef TERSE
449: fputs("(Error)\n",stdout) FLUSH;
450: #endif
451: noecho();
452: crmode();
453: goto reask_newsgroup;
454: }
455: case '.': case '=':
456: case 'y': case 'Y': /* do normal thing */
457: if (ng >= nextrcline) {
458: fputs("\nNot on a newsgroup.",stdout) FLUSH;
459: goto reask_newsgroup;
460: }
461: if (*buf == '=')
462: s = savestr("=");
463: else if (*buf == '.') { /* start command? */
464: if (!finish_command(FALSE)) /* get rest of command */
465: goto reinp_newsgroup;
466: s = savestr(buf+1);
467: /* do_newsgroup will free it */
468: }
469: else
470: s = Nullch;
471: if (toread[ng])
472: retry = TRUE;
473: switch (do_newsgroup(s)) {
474: case NG_ERROR:
475: case NG_NORM:
476: ng++;
477: break;
478: case NG_ASK:
479: dfltcmd = "ynq";
480: goto reask_newsgroup;
481: case NG_MINUS:
482: ng = recent_ng; /* recall previous newsgroup */
483: special = TRUE; /* don't skip it if toread==0 */
484: break;
485: }
486: break;
487: #ifdef STRICTCR
488: case '\n':
489: fputs(badcr,stdout) FLUSH;
490: goto reask_newsgroup;
491: #endif
492: case 'v':
493: printf("\n%s\n",rnid) FLUSH;
494: goto reask_newsgroup;
495: default:
496: printf("\n%s",hforhelp) FLUSH;
497: settle_down();
498: goto reask_newsgroup;
499: }
500: }
501: } while (retry);
502: }
503:
504: /* now write .newsrc back out */
505:
506: write_rc();
507:
508: if (oh_for_the_good_old_days)
509: get_old_rc();
510:
511: finalize(0); /* and exit */
512: }
513:
514: /* set current newsgroup */
515:
516: void
517: set_ngname(what)
518: char *what;
519: {
520: int len = strlen(what)+1;
521:
522: growstr(&ngname,&ngnlen,len);
523: strcpy(ngname,what);
524: growstr(&ngdir,&ngdlen,len);
525: strcpy(ngdir,getngdir(ngname));
526: }
527:
528: static char *myngdir;
529: static int ngdirlen = 0;
530:
531: char *
532: getngdir(ngnam)
533: char *ngnam;
534: {
535: register char *s;
536:
537: growstr(&myngdir,&ngdirlen,strlen(ngnam)+1);
538: strcpy(myngdir,ngnam);
539: for (s = myngdir; *s; s++)
540: if (*s == '.')
541: *s = '/';
542: return myngdir;
543: }
544:
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.