1: /* rn -- new readnews program 2: * 3: * From: lwall@sdcrdcf.UUCP (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: }
Defined functions
getngdir
defined in line 531; used 4 times
- in line 525
- in /usr/src/new/rn/addng.c line 134
- in /usr/src/new/rn/ngdata.c line 218
- in /usr/src/new/rn/rn.h line 22
rn_init
defined in line 52; used 2 times
- in /usr/src/new/rn/init.c line 189
- in /usr/src/new/rn/rn.h line 19
set_ngname
defined in line 516; used 5 times
- in line 99, 159, 168
- in /usr/src/new/rn/rcstuff.c line 271
- in /usr/src/new/rn/rn.h line 21
Defined variables
|
Last modified: 1989-04-22
Generated: 2016-12-26 |
Generated by src2html V0.67
page hit count: 3918 |
|