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