![[BACK]](/cvsweb/icons/back.gif){kind=icon}
Return to art.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 art.c CVS log | Up to [CSRG BSD Unix] / 43BSD / contrib / nntp / rrn |
1.1 ! root 1: /* $Header: art.c,v 4.3.1.4 85/05/23 12:13:31 lwall Exp $ ! 2: * ! 3: * $Log: art.c,v $ ! 4: * Revision 4.3.1.4 85/05/23 12:13:31 lwall ! 5: * shouldn't display article that's really a subdirectory. ! 6: * ! 7: * Revision 4.3.1.3 85/05/13 09:29:55 lwall ! 8: * Added CUSTOMLINES option. ! 9: * ! 10: * Revision 4.3.1.2 85/05/10 13:46:07 lwall ! 11: * Fixed header reparse bug on backpage. ! 12: * ! 13: * Revision 4.3.1.1 85/05/10 11:30:56 lwall ! 14: * Branch for patches. ! 15: * ! 16: * Revision 4.3 85/05/01 11:34:51 lwall ! 17: * Baseline for release with 4.3bsd. ! 18: * ! 19: */ ! 20: ! 21: #include "EXTERN.h" ! 22: #include "common.h" ! 23: #include "rn.h" ! 24: #include "ngstuff.h" ! 25: #include "head.h" ! 26: #include "cheat.h" ! 27: #include "help.h" ! 28: #include "search.h" ! 29: #include "artio.h" ! 30: #include "ng.h" ! 31: #include "bits.h" ! 32: #include "final.h" ! 33: #include "artstate.h" ! 34: #include "rcstuff.h" ! 35: #include "term.h" ! 36: #include "sw.h" ! 37: #include "util.h" ! 38: #include "backpage.h" ! 39: #include "intrp.h" ! 40: #include "INTERN.h" ! 41: #include "art.h" ! 42: ! 43: /* page_switch() return values */ ! 44: ! 45: #define PS_NORM 0 ! 46: #define PS_ASK 1 ! 47: #define PS_RAISE 2 ! 48: #define PS_TOEND 3 ! 49: ! 50: bool special = FALSE; /* is next page special length? */ ! 51: int slines = 0; /* how long to make page when special */ ! 52: ART_LINE highlight = -1; /* next line to be highlighted */ ! 53: char *restart = Nullch; /* if nonzero, the place where last */ ! 54: /* line left off on line split */ ! 55: char *blinebeg; /* where in buffer current line began */ ! 56: ART_POS alinebeg; /* where in file current line began */ ! 57: ! 58: #ifdef INNERSEARCH ! 59: ART_POS innersearch = 0; /* artpos of end of line we found */ ! 60: /* for 'g' command */ ! 61: ART_LINE isrchline = 0; /* last line to display */ ! 62: bool hide_everything = FALSE; ! 63: /* if set, do not write page now, */ ! 64: /* but refresh when done with page */ ! 65: COMPEX gcompex; /* in article search pattern */ ! 66: #endif ! 67: ! 68: bool firstpage; /* is this the 1st page of article? */ ! 69: ! 70: char art_buf[LBUFLEN]; /* place for article lines */ ! 71: ! 72: void ! 73: art_init() ! 74: { ! 75: ; ! 76: } ! 77: ! 78: int ! 79: do_article() ! 80: { ! 81: register char *s; ! 82: ART_POS artsize; /* size in bytes of article */ ! 83: bool hide_this_line = FALSE; /* hidden header line? */ ! 84: ART_LINE linenum; /* line # on page, 1 origin */ ! 85: #ifdef ULSMARTS ! 86: bool under_lining = FALSE; ! 87: /* are we underlining a word? */ ! 88: #endif ! 89: register char *bufptr = art_buf; ! 90: /* pointer to input buffer */ ! 91: register int outpos; /* column position of output */ ! 92: static char prompt_buf[64]; /* place to hold prompt */ ! 93: bool notesfiles = FALSE; /* might there be notesfiles junk? */ ! 94: char oldmode = mode; ! 95: ! 96: #ifdef INNERSEARCH ! 97: register int outputok; ! 98: #endif ! 99: ! 100: if (fstat(artfp->_file,&filestat)) ! 101: /* get article file stats */ ! 102: return DA_CLEAN; ! 103: if (filestat.st_mode & S_IFMT != S_IFREG) ! 104: return DA_NORM; ! 105: artsize = filestat.st_size; ! 106: /* from that get article size */ ! 107: sprintf(prompt_buf, ! 108: "%%sEnd of article %ld (of %ld)--what next? [%%s]", ! 109: (long)art,(long)lastart); /* format prompt string */ ! 110: prompt = prompt_buf; ! 111: int_count = 0; /* interrupt count is 0 */ ! 112: firstpage = (topline < 0); ! 113: for (;;) { /* for each page */ ! 114: assert(art == openart); ! 115: if (do_fseek) { ! 116: #ifdef ASYNC_PARSE ! 117: parse_maybe(art); /* make sure header is ours */ ! 118: #endif ! 119: artpos = vrdary(artline); ! 120: if (artpos < 0) ! 121: artpos = -artpos; /* labs(), anyone? */ ! 122: if (firstpage) ! 123: artpos = (ART_POS)0; ! 124: fseek(artfp,artpos,0); ! 125: if (artpos < htype[PAST_HEADER].ht_minpos) ! 126: in_header = SOME_LINE; ! 127: do_fseek = FALSE; ! 128: restart = Nullch; ! 129: } ! 130: if (firstpage) { ! 131: if (firstline) { ! 132: interp(art_buf, (sizeof art_buf), firstline); ! 133: #ifdef CLEAREOL ! 134: maybe_eol(); /* PWP */ ! 135: #endif CLEAREOL ! 136: fputs(art_buf,stdout) FLUSH; ! 137: artopen(art); /* rewind article in case interp */ ! 138: /* forced a header parse */ ! 139: } ! 140: else { ! 141: ART_NUM i; ! 142: ! 143: #ifdef CLEAREOL ! 144: maybe_eol(); /* PWP */ ! 145: #endif CLEAREOL ! 146: printf("Article %ld",(long)art); ! 147: i = (((ART_NUM)toread[ng]) - 1 + was_read(art)); ! 148: #ifdef DELAYMARK ! 149: if (i || dmcount) { ! 150: printf(" (%ld more",(long)i); ! 151: if (dmcount) ! 152: printf(" + %ld Marked to return)",(long)dmcount); ! 153: putchar(')'); ! 154: } ! 155: #else ! 156: if (i) ! 157: printf(" (%ld more)",(long)i); ! 158: #endif ! 159: if (htype[NGS_LINE].ht_flags & HT_HIDE) ! 160: printf(" in %s", ngname); ! 161: fputs(":\n",stdout) FLUSH; ! 162: } ! 163: start_header(art); ! 164: forcelast = FALSE; /* we will have our day in court */ ! 165: restart = Nullch; ! 166: artline = 0; /* start counting lines */ ! 167: artpos = 0; ! 168: vwtary(artline,artpos); /* remember pos in file */ ! 169: } ! 170: for (linenum=(firstpage?2:1); ! 171: in_header || ( ! 172: #ifdef INNERSEARCH ! 173: innersearch ? innermore() : ! 174: #endif ! 175: linenum<(firstpage?initlines:(special?slines:LINES)) ); ! 176: linenum++) { /* for each line on page */ ! 177: if (int_count) { /* exit via interrupt? */ ! 178: putchar('\n') FLUSH; /* get to left margin */ ! 179: int_count = 0; /* reset interrupt count */ ! 180: return DA_NORM; /* skip out of loops */ ! 181: } ! 182: if (restart) { /* did not finish last line? */ ! 183: bufptr = restart; /* then start again here */ ! 184: restart = Nullch; /* and reset the flag */ ! 185: } ! 186: else { /* not a restart */ ! 187: if (fgets(art_buf,LBUFLEN,artfp)==Nullch) { ! 188: /* if all done */ ! 189: return DA_NORM; /* skip out of loops */ ! 190: } ! 191: bufptr = art_buf; /* so start at beginning */ ! 192: art_buf[LBUFLEN-1] = '\0'; ! 193: /* make sure string ends */ ! 194: } ! 195: blinebeg = bufptr; /* remember where we began */ ! 196: alinebeg = artpos; /* both in buffer and file */ ! 197: if (in_header && bufptr == art_buf) ! 198: hide_this_line = ! 199: parseline(art_buf,do_hiding,hide_this_line); ! 200: else if (notesfiles && do_hiding && ! 201: bufptr == art_buf && *art_buf == '#' && ! 202: isupper(art_buf[1]) && art_buf[2] == ':' ) { ! 203: fgets(art_buf,sizeof(art_buf),artfp); ! 204: if (index(art_buf,'!') != Nullch) ! 205: fgets(art_buf,sizeof(art_buf),artfp); ! 206: htype[PAST_HEADER].ht_minpos = ftell(artfp); ! 207: /* exclude notesfiles droppings */ ! 208: hide_this_line = TRUE; /* and do not print either */ ! 209: notesfiles = FALSE; ! 210: } ! 211: #ifdef CUSTOMLINES ! 212: if (hideline && bufptr == art_buf && ! 213: execute(&hide_compex,art_buf) ) ! 214: hide_this_line = TRUE; ! 215: #endif ! 216: if (in_header && htype[in_header].ht_flags & HT_MAGIC) { ! 217: if (in_header == NGS_LINE) { ! 218: hide_this_line = (index(art_buf,',') == Nullch); ! 219: } ! 220: else if (in_header == EXPIR_LINE) { ! 221: if (!(htype[EXPIR_LINE].ht_flags & HT_HIDE)) ! 222: hide_this_line = (strlen(art_buf) < 10); ! 223: } ! 224: } ! 225: if (in_header == SUBJ_LINE && ! 226: htype[SUBJ_LINE].ht_flags & HT_MAGIC) { ! 227: /* is this the subject? */ ! 228: int length; ! 229: ! 230: length = strlen(art_buf)-1; ! 231: artline++; ! 232: art_buf[length] = '\0'; /* wipe out newline */ ! 233: #ifdef NOFIREWORKS ! 234: no_ulfire(); ! 235: #endif ! 236: notesfiles = ! 237: (instr(&art_buf[length-10]," - (nf") != Nullch); ! 238: if (oldsubject) { ! 239: length += 7; ! 240: fputs("(SAME) ",stdout); ! 241: oldsubject = FALSE; ! 242: } ! 243: if (length+UG > COLS) { /* rarely true */ ! 244: linenum++; ! 245: vwtary(artline,vrdary(artline-1)+COLS); ! 246: artline++; ! 247: } ! 248: s = art_buf + 8; ! 249: *s++ = '\0'; /* make into 2 strings */ ! 250: #ifdef CLEAREOL ! 251: maybe_eol(); /* PWP */ ! 252: #endif CLEAREOL ! 253: fputs(art_buf,stdout) FLUSH; ! 254: /* print up through : */ ! 255: if (!UG) ! 256: putchar(' '); ! 257: underprint(s); /* print subject underlined */ ! 258: putchar('\n') FLUSH; /* and finish the line */ ! 259: } ! 260: else if (hide_this_line && do_hiding) { ! 261: /* do not print line? */ ! 262: linenum--; /* compensate for linenum++ */ ! 263: if (!in_header) ! 264: hide_this_line = FALSE; ! 265: } ! 266: else { /* just a normal line */ ! 267: if (highlight==artline) { /* this line to be highlit? */ ! 268: if (marking == STANDOUT) { ! 269: #ifdef NOFIREWORKS ! 270: if (erase_screen) ! 271: no_sofire(); ! 272: #endif ! 273: standout(); ! 274: } ! 275: else { ! 276: #ifdef NOFIREWORKS ! 277: if (erase_screen) ! 278: no_ulfire(); ! 279: #endif ! 280: underline(); ! 281: } ! 282: if (*bufptr == '\n') ! 283: putchar(' '); ! 284: } ! 285: #ifdef INNERSEARCH ! 286: outputok = !hide_everything; ! 287: /* get it into register, hopefully */ ! 288: #endif ! 289: #ifdef CLEAREOL ! 290: #ifdef INNERSEARCH ! 291: if (outputok) ! 292: #endif ! 293: maybe_eol(); /* PWP */ ! 294: #endif CLEAREOL ! 295: #ifdef CUSTOMLINES ! 296: if (pagestop && bufptr == art_buf && ! 297: execute(&page_compex,art_buf) ) ! 298: linenum = 32700; ! 299: #endif ! 300: for (outpos = 0; outpos < COLS; ) { ! 301: /* while line has room */ ! 302: if (*bufptr >= ' ') { /* normal char? */ ! 303: #ifdef ULSMARTS ! 304: if (*bufptr == '_') { ! 305: if (bufptr[1] == '\b') { ! 306: if (!under_lining && highlight!=artline ! 307: #ifdef INNERSEARCH ! 308: && outputok ! 309: #endif ! 310: ) { ! 311: under_lining++; ! 312: if (UG) { ! 313: if (bufptr != buf && ! 314: bufptr[-1] == ' ') { ! 315: outpos--; ! 316: backspace(); ! 317: } ! 318: } ! 319: underline(); ! 320: } ! 321: bufptr += 2; ! 322: } ! 323: } ! 324: else { ! 325: if (under_lining) { ! 326: under_lining = 0; ! 327: un_underline(); ! 328: if (UG) { ! 329: if (*bufptr == ' ') ! 330: goto skip_put; ! 331: outpos++; ! 332: } ! 333: } ! 334: } ! 335: #endif ! 336: #ifdef INNERSEARCH ! 337: if (outputok) ! 338: #endif ! 339: { ! 340: #ifdef ROTATION ! 341: if (rotate && !in_header ! 342: && isalpha(*bufptr)) { ! 343: if ((*bufptr & 31) <= 13) ! 344: putchar(*bufptr+13); ! 345: else ! 346: putchar(*bufptr-13); ! 347: } ! 348: else ! 349: #endif ! 350: putchar(*bufptr); ! 351: } ! 352: if (*UC && ((highlight==artline && marking == 1) ! 353: #ifdef ULSMARTS ! 354: || under_lining ! 355: #endif ! 356: )) { ! 357: backspace(); ! 358: underchar(); ! 359: } ! 360: skip_put: ! 361: bufptr++; ! 362: outpos++; ! 363: } ! 364: else if (*bufptr == '\n' || !*bufptr) { ! 365: /* newline? */ ! 366: #ifdef ULSMARTS ! 367: if (under_lining) { ! 368: under_lining = 0; ! 369: un_underline(); ! 370: } ! 371: #endif ! 372: #ifdef DEBUGGING ! 373: if (debug & DEB_INNERSRCH && outpos < COLS - 6) { ! 374: standout(); ! 375: printf("%4d",artline); ! 376: un_standout(); ! 377: } ! 378: #endif ! 379: #ifdef INNERSEARCH ! 380: if (outputok) ! 381: #endif ! 382: putchar('\n') FLUSH; ! 383: restart = 0; ! 384: outpos = 1000; /* signal normal \n */ ! 385: } ! 386: else if (*bufptr == '\t') { /* tab? */ ! 387: #ifdef INNERSEARCH ! 388: if (outputok) ! 389: #endif ! 390: putchar(*bufptr); ! 391: bufptr++; ! 392: outpos += 8 - outpos % 8; ! 393: } ! 394: else if (*bufptr == '\f') { /* form feed? */ ! 395: #ifdef INNERSEARCH ! 396: if (outputok) ! 397: #endif ! 398: fputs("^L",stdout); ! 399: if (bufptr == blinebeg && highlight != artline) ! 400: linenum = 32700; ! 401: /* how is that for a magic number? */ ! 402: bufptr++; ! 403: outpos += 2; ! 404: } ! 405: else { /* other control char */ ! 406: #ifdef INNERSEARCH ! 407: if (outputok) ! 408: #endif ! 409: { ! 410: putchar('^'); ! 411: if (highlight == artline && *UC && marking == 1) { ! 412: backspace(); ! 413: underchar(); ! 414: putchar(*bufptr+64); ! 415: backspace(); ! 416: underchar(); ! 417: } ! 418: else ! 419: putchar(*bufptr+64); ! 420: } ! 421: bufptr++; ! 422: outpos += 2; ! 423: } ! 424: ! 425: } /* end of column loop */ ! 426: ! 427: if (outpos < 1000) {/* did line overflow? */ ! 428: restart = bufptr; ! 429: /* restart here next time */ ! 430: if (AM) { /* automatic margins on tty? */ ! 431: if (!XN && *bufptr == '\n') ! 432: /* need we simulate XN? */ ! 433: restart = 0; ! 434: /* skip the newline */ ! 435: } ! 436: else { /* cursor just hangs there */ ! 437: #ifdef INNERSEARCH ! 438: if (outputok) ! 439: #endif ! 440: putchar('\n') FLUSH; ! 441: /* so move it down ourselves */ ! 442: if (*bufptr == '\n') ! 443: restart = 0; ! 444: /* simulate XN if need be */ ! 445: } ! 446: #ifdef CLEAREOL ! 447: /* #ifdef INNERSEARCH ! 448: if (outputok) ! 449: #endif ! 450: maybe_eol(); */ /* PWP *//* comment this out for now ! 451: until I am sure it is ! 452: needed*/ ! 453: ! 454: #endif CLEAREOL ! 455: } ! 456: ! 457: /* handle normal end of output line formalities */ ! 458: ! 459: if (highlight == artline) { ! 460: /* were we highlighting line? */ ! 461: if (marking == STANDOUT) ! 462: un_standout(); ! 463: else ! 464: un_underline(); ! 465: highlight = -1; /* no more we are */ ! 466: } ! 467: artline++; /* count the line just printed */ ! 468: if (artline - LINES + 1 > topline) ! 469: /* did we just scroll top line off? */ ! 470: topline = artline - LINES + 1; ! 471: /* then recompute top line # */ ! 472: } ! 473: ! 474: /* determine actual position in file */ ! 475: ! 476: if (restart) /* stranded somewhere in the buffer? */ ! 477: artpos += restart - blinebeg; ! 478: /* just calculate position */ ! 479: else /* no, ftell will do */ ! 480: artpos = ftell(artfp); ! 481: /* so do ftell */ ! 482: vwtary(artline,artpos); /* remember pos in file */ ! 483: } /* end of line loop */ ! 484: ! 485: #ifdef INNERSEARCH ! 486: innersearch = 0; ! 487: if (hide_everything) { ! 488: hide_everything = FALSE; ! 489: *buf = Ctl('l'); ! 490: goto fake_command; ! 491: } ! 492: #endif ! 493: if (linenum >= 32700)/* did last line have formfeed? */ ! 494: vwtary(artline-1,-vrdary(artline-1)); ! 495: /* remember by negating pos in file */ ! 496: ! 497: special = FALSE; /* end of page, so reset page length */ ! 498: firstpage = FALSE; /* and say it is not 1st time thru */ ! 499: ! 500: /* extra loop bombout */ ! 501: ! 502: if (artpos == artsize) /* did we just now reach EOF? */ ! 503: return DA_NORM; /* avoid --MORE--(100%) */ ! 504: ! 505: /* not done with this article, so pretend we are a pager */ ! 506: ! 507: reask_pager: ! 508: unflush_output(); /* disable any ^O in effect */ ! 509: standout(); /* enter standout mode */ ! 510: printf("--MORE--(%ld%%)",(long)(artpos*100/artsize)); ! 511: un_standout(); /* leave standout mode */ ! 512: fflush(stdout); ! 513: /* reinp_pager: /* unused, commented for lint */ ! 514: eat_typeahead(); ! 515: #ifdef DEBUGGING ! 516: if (debug & DEB_CHECKPOINTING) { ! 517: printf("(%d %d %d)",checkcount,linenum,artline); ! 518: fflush(stdout); ! 519: } ! 520: #endif ! 521: if (checkcount >= docheckwhen && ! 522: linenum == LINES && ! 523: (artline > 40 || checkcount >= docheckwhen+10) ) { ! 524: /* while he is reading a whole page */ ! 525: /* in an article he is interested in */ ! 526: checkcount = 0; ! 527: checkpoint_rc(); /* update .newsrc */ ! 528: } ! 529: collect_subjects(); /* loads subject cache until */ ! 530: /* input is pending */ ! 531: mode = 'p'; ! 532: getcmd(buf); ! 533: if (errno) { ! 534: if (LINES < 100 && !int_count) ! 535: *buf = '\f';/* on CONT fake up refresh */ ! 536: else { ! 537: *buf = 'q'; /* on INTR or paper just quit */ ! 538: } ! 539: } ! 540: carriage_return(); ! 541: #ifndef CLEAREOL ! 542: erase_eol(); /* and erase the prompt */ ! 543: #else ! 544: if (erase_screen && can_home_clear) /* PWP was here */ ! 545: clear_rest(); ! 546: else ! 547: erase_eol(); /* and erase the prompt */ ! 548: #endif CLEAREOL ! 549: fflush(stdout); ! 550: ! 551: fake_command: /* used by innersearch */ ! 552: ! 553: /* parse and process pager command */ ! 554: ! 555: switch (page_switch()) { ! 556: case PS_ASK: /* reprompt "--MORE--..." */ ! 557: goto reask_pager; ! 558: case PS_RAISE: /* reparse on article level */ ! 559: mode = oldmode; ! 560: return DA_RAISE; ! 561: case PS_TOEND: /* fast pager loop exit */ ! 562: mode = oldmode; ! 563: return DA_TOEND; ! 564: case PS_NORM: /* display more article */ ! 565: break; ! 566: } ! 567: } /* end of page loop */ ! 568: } ! 569: ! 570: /* process pager commands */ ! 571: ! 572: int ! 573: page_switch() ! 574: { ! 575: register char *s; ! 576: ! 577: switch (*buf) { ! 578: case 'd': ! 579: case Ctl('d'): /* half page */ ! 580: special = TRUE; ! 581: slines = LINES / 2 + 1; ! 582: if (marking && *blinebeg != '\f' ! 583: #ifdef CUSTOMLINES ! 584: && (!pagestop || blinebeg != art_buf || ! 585: !execute(&page_compex,blinebeg)) ! 586: #endif ! 587: ) { ! 588: up_line(); ! 589: highlight = --artline; ! 590: restart = blinebeg; ! 591: artpos = alinebeg; ! 592: } ! 593: return PS_NORM; ! 594: case '!': /* shell escape */ ! 595: escapade(); ! 596: return PS_ASK; ! 597: #ifdef INNERSEARCH ! 598: case Ctl('i'): ! 599: gline = 3; ! 600: sprintf(cmd_buf,"^[^%c]",*blinebeg); ! 601: compile(&gcompex,cmd_buf,TRUE,TRUE); ! 602: goto caseG; ! 603: case Ctl('g'): ! 604: gline = 3; ! 605: compile(&gcompex,"^Subject:",TRUE,TRUE); ! 606: goto caseG; ! 607: case 'g': /* in-article search */ ! 608: if (!finish_command(FALSE))/* get rest of command */ ! 609: return PS_ASK; ! 610: s = buf+1; ! 611: if (isspace(*s)) ! 612: s++; ! 613: if ((s = compile(&gcompex,s,TRUE,TRUE)) != Nullch) { ! 614: /* compile regular expression */ ! 615: printf("\n%s\n",s) FLUSH; ! 616: return PS_ASK; ! 617: } ! 618: carriage_return(); ! 619: erase_eol(); /* erase the prompt */ ! 620: /* FALL THROUGH */ ! 621: caseG: ! 622: case 'G': { ! 623: /* ART_LINE lines_to_skip = 0; */ ! 624: ART_POS start_where; ! 625: ! 626: if (gline < 0 || gline > LINES-2) ! 627: gline = LINES-2; ! 628: #ifdef DEBUGGING ! 629: if (debug & DEB_INNERSRCH) ! 630: printf("Start here? %d >=? %d\n",topline + gline + 1,artline) ! 631: FLUSH; ! 632: #endif ! 633: if (*buf == Ctl('i') || topline+gline+1 >= artline) ! 634: start_where = artpos; ! 635: /* in case we had a line wrap */ ! 636: else { ! 637: start_where = vrdary(topline+gline+1); ! 638: if (start_where < 0) ! 639: start_where = -start_where; ! 640: } ! 641: if (start_where < htype[PAST_HEADER].ht_minpos) ! 642: start_where = htype[PAST_HEADER].ht_minpos; ! 643: fseek(artfp,(long)start_where,0); ! 644: innersearch = 0; /* assume not found */ ! 645: while (fgets(buf, sizeof buf, artfp) != Nullch) { ! 646: /* lines_to_skip++; NOT USED NOW */ ! 647: #ifdef DEBUGGING ! 648: if (debug & DEB_INNERSRCH) ! 649: printf("Test %s",buf) FLUSH; ! 650: #endif ! 651: if (execute(&gcompex,buf) != Nullch) { ! 652: innersearch = ftell(artfp); ! 653: break; ! 654: } ! 655: } ! 656: if (!innersearch) { ! 657: fseek(artfp,artpos,0); ! 658: fputs("(Not found)",stdout) FLUSH; ! 659: return PS_ASK; ! 660: } ! 661: #ifdef DEBUGGING ! 662: if (debug & DEB_INNERSRCH) ! 663: printf("On page? %ld <=? %ld\n",(long)innersearch,(long)artpos) ! 664: FLUSH; ! 665: #endif ! 666: if (innersearch <= artpos) { /* already on page? */ ! 667: if (innersearch < artpos) { ! 668: artline = topline+1; ! 669: while (vrdary(artline) < innersearch) ! 670: artline++; ! 671: } ! 672: highlight = artline - 1; ! 673: #ifdef DEBUGGING ! 674: if (debug & DEB_INNERSRCH) ! 675: printf("@ %d\n",highlight) FLUSH; ! 676: #endif ! 677: topline = highlight - gline; ! 678: if (topline < -1) ! 679: topline = -1; ! 680: *buf = '\f'; /* fake up a refresh */ ! 681: innersearch = 0; ! 682: return page_switch(); ! 683: } ! 684: else { /* who knows how many lines it is? */ ! 685: do_fseek = TRUE; ! 686: hide_everything = TRUE; ! 687: } ! 688: return PS_NORM; ! 689: } ! 690: #else ! 691: case 'g': case 'G': case Ctl('g'): ! 692: notincl("g"); ! 693: return PS_ASK; ! 694: #endif ! 695: case '\n': /* one line */ ! 696: special = TRUE; ! 697: slines = 2; ! 698: return PS_NORM; ! 699: #ifdef ROTATION ! 700: case 'X': ! 701: rotate = !rotate; ! 702: /* FALL THROUGH */ ! 703: #endif ! 704: case 'l': ! 705: case '\f': /* refresh screen */ ! 706: #ifdef DEBUGGING ! 707: if (debug & DEB_INNERSRCH) { ! 708: printf("Topline = %d",topline) FLUSH; ! 709: gets(buf); ! 710: } ! 711: #endif ! 712: clear(); ! 713: do_fseek = TRUE; ! 714: artline = topline; ! 715: if (artline < 0) ! 716: artline = 0; ! 717: firstpage = (topline < 0); ! 718: return PS_NORM; ! 719: case 'b': ! 720: case '\b': /* I like backspace for this -- PWP */ ! 721: /* Leaving it undocumented in case */ ! 722: /* I want to steal the key--LAW */ ! 723: case Ctl('b'): { /* back up a page */ ! 724: ART_LINE target; ! 725: ! 726: #ifndef CLEAREOL ! 727: clear(); ! 728: #else ! 729: if (can_home_clear) /* if we can home do it -- PWP */ ! 730: home_cursor(); ! 731: else ! 732: clear(); ! 733: ! 734: #endif CLEAREOL ! 735: do_fseek = TRUE; /* reposition article file */ ! 736: target = topline - (LINES - 2); ! 737: artline = topline; ! 738: do { ! 739: artline--; ! 740: } while (artline >= 0 && artline > target && ! 741: vrdary(artline-1) >= 0); ! 742: topline = artline; ! 743: /* remember top line of screen */ ! 744: /* (line # within article file) */ ! 745: if (artline < 0) ! 746: artline = 0; ! 747: firstpage = (topline < 0); ! 748: return PS_NORM; ! 749: } ! 750: case 'h': { /* help */ ! 751: int cmd; ! 752: ! 753: if ((cmd = help_page()) > 0) ! 754: pushchar(cmd); ! 755: return PS_ASK; ! 756: } ! 757: case '\177': ! 758: case '\0': /* treat del,break as 'n' */ ! 759: *buf = 'n'; ! 760: /* FALL THROUGH */ ! 761: case 'k': case 'K': ! 762: case 'n': case 'N': case Ctl('n'): ! 763: case 's': case 'S': ! 764: case 'u': ! 765: case 'w': case 'W': ! 766: case '|': ! 767: mark_as_read(art); /* mark article as read */ ! 768: /* FALL THROUGH */ ! 769: case '#': ! 770: case '$': ! 771: case '&': ! 772: case '-': ! 773: case '.': ! 774: case '/': ! 775: case '1': case '2': case '3': case '4': case '5': ! 776: case '6': case '7': case '8': case '9': ! 777: case '=': ! 778: case '?': ! 779: case 'c': case 'C': ! 780: case 'f': case 'F': ! 781: case 'j': ! 782: case Ctl('k'): ! 783: case 'm': case 'M': ! 784: case 'p': case 'P': case Ctl('p'): ! 785: case 'Q': ! 786: case 'r': case 'R': case Ctl('r'): ! 787: case 'v': ! 788: case 'Y': ! 789: #ifndef ROTATION ! 790: case 'x': case 'X': ! 791: #endif ! 792: case Ctl('x'): ! 793: case '^': ! 794: ! 795: #ifdef ROTATION ! 796: rotate = FALSE; ! 797: #endif ! 798: reread = FALSE; ! 799: do_hiding = TRUE; ! 800: if (index("nNpP",*buf) == Nullch && ! 801: index("wWsS!&|/?123456789.",*buf) != Nullch) { ! 802: setdfltcmd(); ! 803: standout(); /* enter standout mode */ ! 804: printf(prompt,mailcall,dfltcmd); ! 805: /* print prompt, whatever it is */ ! 806: un_standout(); /* leave standout mode */ ! 807: putchar(' '); ! 808: fflush(stdout); ! 809: } ! 810: return PS_RAISE; /* and pretend we were at end */ ! 811: #ifdef ROTATION ! 812: case 'x': ! 813: rotate = TRUE; ! 814: /* FALL THROUGH */ ! 815: #endif ! 816: case 'y': ! 817: case Ctl('v'): /* I like emacs -- PWP */ ! 818: /* Leaving it undocumented in case */ ! 819: /* I want to steal the key--LAW */ ! 820: case ' ': /* continue current article */ ! 821: if (erase_screen) { /* -e? */ ! 822: #ifndef CLEAREOL ! 823: clear(); /* clear screen */ ! 824: #else ! 825: if (can_home_clear) /* if we can home do it -- PWP */ ! 826: home_cursor(); ! 827: else ! 828: clear(); /* else clear screen */ ! 829: ! 830: #endif CLEAREOL ! 831: if (*blinebeg != '\f' ! 832: #ifdef CUSTOMLINES ! 833: && (!pagestop || blinebeg != art_buf || ! 834: !execute(&page_compex,blinebeg)) ! 835: #endif ! 836: ) { ! 837: restart = blinebeg; ! 838: artline--; /* restart this line */ ! 839: artpos = alinebeg; ! 840: if (marking) /* and mark repeated line */ ! 841: highlight = artline; ! 842: } ! 843: topline = artline; ! 844: /* and remember top line of screen */ ! 845: /* (line # within article file) */ ! 846: } ! 847: else if (marking && *blinebeg != '\f' ! 848: #ifdef CUSTOMLINES ! 849: && (!pagestop || blinebeg != art_buf || ! 850: !execute(&page_compex,blinebeg)) ! 851: #endif ! 852: ) { ! 853: /* are we marking repeats? */ ! 854: up_line(); /* go up one line */ ! 855: highlight = --artline;/* and get ready to highlight */ ! 856: restart = blinebeg; /* the old line */ ! 857: artpos = alinebeg; ! 858: } ! 859: return PS_NORM; ! 860: case 'q': /* quit this article? */ ! 861: do_hiding = TRUE; ! 862: return PS_TOEND; ! 863: default: ! 864: fputs(hforhelp,stdout) FLUSH; ! 865: settle_down(); ! 866: return PS_ASK; ! 867: } ! 868: } ! 869: ! 870: #ifdef INNERSEARCH ! 871: bool ! 872: innermore() ! 873: { ! 874: if (artpos < innersearch) { /* not even on page yet? */ ! 875: #ifdef DEBUGGING ! 876: if (debug & DEB_INNERSRCH) ! 877: printf("Not on page %ld < %ld\n",(long)artpos,(long)innersearch) ! 878: FLUSH; ! 879: #endif ! 880: return TRUE; ! 881: } ! 882: if (artpos == innersearch) { /* just got onto page? */ ! 883: isrchline = artline; /* remember first line after */ ! 884: highlight = artline - 1; ! 885: #ifdef DEBUGGING ! 886: if (debug & DEB_INNERSRCH) ! 887: printf("There it is %ld = %ld, %d @ %d\n",(long)artpos, ! 888: (long)innersearch,hide_everything,highlight) FLUSH; ! 889: #endif ! 890: if (hide_everything) { /* forced refresh? */ ! 891: topline = highlight - gline; ! 892: if (topline < -1) ! 893: topline = -1; ! 894: return FALSE; /* let refresh do it all */ ! 895: } ! 896: } ! 897: #ifdef DEBUGGING ! 898: if (debug & DEB_INNERSRCH) ! 899: printf("Not far enough? %d <? %d + %d\n",artline,isrchline,gline) ! 900: FLUSH; ! 901: #endif ! 902: if (artline < isrchline + gline) { ! 903: return TRUE; ! 904: } ! 905: return FALSE; ! 906: } ! 907: #endif
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.