![[BACK]](/cvsweb/icons/back.gif){kind=icon}
Return to ng.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 ng.c CVS log | Up to [CSRG BSD Unix] / 43BSD / contrib / nntp / rrn |
1.1 root 1: /* $Header: ng.c,v 4.3.1.3 85/05/16 16:48:09 lwall Exp $
2: *
3: * $Log: ng.c,v $
4: * Revision 4.3.1.3 85/05/16 16:48:09 lwall
5: * Fixed unsubsubscribe.
6: *
7: * Revision 4.3.1.2 85/05/13 09:29:28 lwall
8: * Added CUSTOMLINES option.
9: *
10: * Revision 4.3.1.1 85/05/10 11:36:00 lwall
11: * Branch for patches.
12: *
13: * Revision 4.3 85/05/01 11:43:43 lwall
14: * Baseline for release with 4.3bsd.
15: *
16: */
17:
18: #include "EXTERN.h"
19: #include "common.h"
20: #include "rn.h"
21: #include "term.h"
22: #include "final.h"
23: #include "util.h"
24: #include "artsrch.h"
25: #include "cheat.h"
26: #include "help.h"
27: #include "kfile.h"
28: #include "rcstuff.h"
29: #include "head.h"
30: #include "artstate.h"
31: #include "bits.h"
32: #include "art.h"
33: #include "artio.h"
34: #include "ngstuff.h"
35: #include "intrp.h"
36: #include "respond.h"
37: #include "ngdata.h"
38: #include "backpage.h"
39: #include "rcln.h"
40: #include "last.h"
41: #include "search.h"
42: #include "server.h"
43: #include "INTERN.h"
44: #include "ng.h"
45: #include "artstate.h" /* somebody has to do it */
46:
47: /* art_switch() return values */
48:
49: #define AS_NORM 0
50: #define AS_INP 1
51: #define AS_ASK 2
52: #define AS_CLEAN 3
53:
54: ART_NUM recent_art = 0; /* previous article # for '-' command */
55: ART_NUM curr_art = 0; /* current article # */
56: int exit_code = NG_NORM;
57:
58: void
59: ng_init()
60: {
61:
62: #ifdef KILLFILES
63: open_kfile(KF_GLOBAL);
64: #endif
65: #ifdef CUSTOMLINES
66: init_compex(&hide_compex);
67: init_compex(&page_compex);
68: #endif
69: }
70:
71: /* do newsgroup on line ng with name ngname */
72:
73: /* assumes that we are chdir'ed to SPOOL, and assures that that is
74: * still true upon return, but chdirs to SPOOL/ngname in between
75: *
76: * If you can understand this routine, you understand most of the program.
77: * The basic structure is:
78: * for each desired article
79: * for each desired page
80: * for each line on page
81: * if we need another line from file
82: * get it
83: * if it's a header line
84: * do special things
85: * for each column on page
86: * put out a character
87: * end loop
88: * end loop
89: * end loop
90: * end loop
91: *
92: * (Actually, the pager is in another routine.)
93: *
94: * The chief problem is deciding what is meant by "desired". Most of
95: * the messiness of this routine is due to the fact that people want
96: * to do unstructured things all the time. I have used a few judicious
97: * goto's where I thought it improved readability. The rest of the messiness
98: * arises from trying to be both space and time efficient. Have fun.
99: */
100:
101: int
102: do_newsgroup(start_command)
103: char *start_command; /* command to fake up first */
104: {
105: #ifdef SERVER
106: char ser_line[256];
107: char artname[32];
108: static long our_pid;
109: #endif
110: char oldmode = mode;
111: register long i; /* scratch */
112: int skipstate; /* how many unavailable articles */
113: /* have we skipped already? */
114:
115: char *whatnext = "%sWhat next? [%s]";
116:
117: #ifdef SERVER
118: if (our_pid == 0) /* Agreed, this is gross */
119: our_pid = getpid();
120: #endif
121:
122: #ifdef ARTSEARCH
123: srchahead = (scanon && ((ART_NUM)toread[ng]) >= scanon ? -1 : 0);
124: /* did they say -S? */
125: #endif
126:
127: mode = 'a';
128: recent_art = curr_art = 0;
129: exit_code = NG_NORM;
130: #ifndef SERVER
131: if (eaccess(ngdir,5)) { /* directory read protected? */
132: if (eaccess(ngdir,0)) {
133: #ifdef VERBOSE
134: IF(verbose)
135: printf("\nNewsgroup %s does not have a spool directory!\n",
136: ngname) FLUSH;
137: ELSE
138: #endif
139: #ifdef TERSE
140: printf("\nNo spool for %s!\n",ngname) FLUSH;
141: #endif
142: #ifdef CATCHUP
143: catch_up(ng);
144: #endif
145: toread[ng] = TR_NONE;
146: }
147: else {
148: #ifdef VERBOSE
149: IF(verbose)
150: printf("\nNewsgroup %s is not currently accessible.\n",
151: ngname) FLUSH;
152: ELSE
153: #endif
154: #ifdef TERSE
155: printf("\n%s not readable.\n",ngname) FLUSH;
156: #endif
157: toread[ng] = TR_NONE; /* make this newsgroup invisible */
158: /* (temporarily) */
159: }
160: mode = oldmode;
161: return -1;
162: }
163:
164: /* chdir to newsgroup subdirectory */
165:
166: if (chdir(ngdir)) {
167: printf(nocd,ngdir) FLUSH;
168: mode = oldmode;
169: return -1;
170: }
171: #else /* SERVER */
172: sprintf(ser_line, "GROUP %s", ngname);
173: put_server(ser_line);
174: if (get_server(ser_line, sizeof(ser_line)) < 0) {
175: fprintf(stderr, "rrn: Unexpected close of server socket.\n");
176: finalize(1);
177: }
178: if (*ser_line != CHAR_OK)
179: return (-1);
180: #endif /* SERVER */
181:
182: #ifdef CACHESUBJ
183: subj_list = Null(char **); /* no subject list till needed */
184: #endif
185:
186: /* initialize control bitmap */
187:
188: if (initctl()) {
189: mode = oldmode;
190: return -1;
191: }
192:
193: /* FROM HERE ON, RETURN THRU CLEANUP OR WE ARE SCREWED */
194:
195: in_ng = TRUE; /* tell the world we are here */
196: forcelast = TRUE; /* if 0 unread, do not bomb out */
197: art=firstart;
198:
199: /* remember what newsgroup we were in for sake of posterity */
200:
201: writelast();
202:
203: /* see if there are any special searches to do */
204:
205: #ifdef KILLFILES
206: open_kfile(KF_LOCAL);
207: #ifdef VERBOSE
208: IF(verbose)
209: kill_unwanted(firstart,"Looking for articles to kill...\n\n",TRUE);
210: ELSE
211: #endif
212: #ifdef TERSE
213: kill_unwanted(firstart,"Killing...\n\n",TRUE);
214: #endif
215: #endif
216:
217: /* do they want a special top line? */
218:
219: firstline = getval("FIRSTLINE",Nullch);
220:
221: /* custom line suppression, custom page ending */
222:
223: #ifdef CUSTOMLINES
224: if (hideline = getval("HIDELINE",Nullch))
225: compile(&hide_compex,hideline,TRUE,TRUE);
226: if (pagestop = getval("PAGESTOP",Nullch))
227: compile(&page_compex,pagestop,TRUE,TRUE);
228: #endif
229:
230: /* now read each unread article */
231:
232: rc_changed = doing_ng = TRUE; /* enter the twilight zone */
233: skipstate = 0; /* we have not skipped anything (yet) */
234: checkcount = 0; /* do not checkpoint for a while */
235: do_fseek = FALSE; /* start 1st article at top */
236: if (art > lastart)
237: art=firstart; /* init the for loop below */
238: for (; art<=lastart+1; ) { /* for each article */
239:
240: /* do we need to "grow" the newsgroup? */
241:
242: if (art > lastart || forcegrow)
243: grow_ctl();
244: check_first(art); /* make sure firstart is still 1st */
245: if (start_command) { /* fake up an initial command? */
246: prompt = whatnext;
247: strcpy(buf,start_command);
248: free(start_command);
249: start_command = Nullch;
250: art = lastart+1;
251: goto article_level;
252: }
253: if (art>lastart) { /* are we off the end still? */
254: ART_NUM ucount = 0; /* count of unread articles left */
255:
256: for (i=firstart; i<=lastart; i++)
257: if (!(ctl_read(i)))
258: ucount++; /* count the unread articles */
259: #ifdef DEBUGGING
260: /*NOSTRICT*/
261: if (debug && ((ART_NUM)toread[ng]) != ucount)
262: printf("(toread=%ld sb %ld)",(long)toread[ng],(long)ucount)
263: FLUSH;
264: #endif
265: /*NOSTRICT*/
266: toread[ng] = (ART_UNREAD)ucount; /* this is perhaps pointless */
267: art = lastart + 1; /* keep bitmap references sane */
268: if (art != curr_art) {
269: recent_art = curr_art;
270: /* remember last article # (for '-') */
271: curr_art = art; /* remember this article # */
272: }
273: if (erase_screen)
274: clear(); /* clear the screen */
275: else
276: fputs("\n\n",stdout) FLUSH;
277: #ifdef VERBOSE
278: IF(verbose)
279: printf("End of newsgroup %s.",ngname);
280: /* print pseudo-article */
281: ELSE
282: #endif
283: #ifdef TERSE
284: printf("End of %s",ngname);
285: #endif
286: if (ucount) {
287: printf(" (%ld article%s still unread)",
288: (long)ucount,ucount==1?nullstr:"s");
289: }
290: else {
291: if (!forcelast)
292: goto cleanup; /* actually exit newsgroup */
293: }
294: prompt = whatnext;
295: #ifdef ARTSEARCH
296: srchahead = 0; /* no more subject search mode */
297: #endif
298: fputs("\n\n",stdout) FLUSH;
299: skipstate = 0; /* back to none skipped */
300: }
301: else if (!reread && was_read(art)) {
302: /* has this article been read? */
303: art++; /* then skip it */
304: continue;
305: }
306: else if
307: (!reread && !was_read(art)
308: && artopen(art) == Nullfp) { /* never read it, & cannot find it? */
309: if (errno != ENOENT) { /* has it not been deleted? */
310: #ifdef VERBOSE
311: IF(verbose)
312: printf("\n(Article %ld exists but is unreadable.)\n",
313: (long)art) FLUSH;
314: ELSE
315: #endif
316: #ifdef TERSE
317: printf("\n(%ld unreadable.)\n",(long)art) FLUSH;
318: #endif
319: skipstate = 0;
320: sleep(2);
321: }
322: switch(skipstate++) {
323: case 0:
324: clear();
325: #ifdef VERBOSE
326: IF(verbose)
327: fputs("Skipping unavailable article",stdout);
328: ELSE
329: #endif
330: #ifdef TERSE
331: fputs("Skipping",stdout);
332: #endif
333: for (i = just_a_sec/3; i; --i)
334: putchar(PC);
335: fflush(stdout);
336: sleep(1);
337: break;
338: case 1:
339: fputs("..",stdout);
340: fflush(stdout);
341: break;
342: default:
343: putchar('.');
344: fflush(stdout);
345: #ifndef SERVER
346: #define READDIR
347: #ifdef READDIR
348: { /* fast skip patch */
349: ART_NUM newart;
350:
351: if (! (newart=getngmin(".",art)))
352: newart = lastart+1;
353: for (i=art; i<newart; i++)
354: oneless(i);
355: art = newart - 1;
356: }
357: #endif
358: #endif
359: break;
360: }
361: oneless(art); /* mark deleted as read */
362: art++; /* try next article */
363: continue;
364: }
365: else { /* we have a real live article */
366: skipstate = 0; /* back to none skipped */
367: if (art != curr_art) {
368: recent_art = curr_art;
369: /* remember last article # (for '-') */
370: curr_art = art; /* remember this article # */
371: }
372: if (!do_fseek) { /* starting at top of article? */
373: artline = 0; /* start at the beginning */
374: topline = -1; /* and remember top line of screen */
375: /* (line # within article file) */
376: }
377: clear(); /* clear screen */
378: artopen(art); /* make sure article file is open */
379: if (artfp == Nullfp) { /* could not find article? */
380: printf("Article %ld of %s is not available.\n\n",
381: (long)art,ngname) FLUSH;
382: prompt = whatnext;
383: #ifdef ARTSEARCH
384: srchahead = 0;
385: #endif
386: }
387: else { /* found it, so print it */
388: switch (do_article()) {
389: case DA_CLEAN: /* quit newsgroup */
390: goto cleanup;
391: case DA_TOEND: /* do not mark as read */
392: goto reask_article;
393: case DA_RAISE: /* reparse command at end of art */
394: goto article_level;
395: case DA_NORM: /* normal end of article */
396: break;
397: }
398: }
399: mark_as_read(art); /* mark current article as read */
400: reread = FALSE;
401: do_hiding = TRUE;
402: #ifdef ROTATION
403: rotate = FALSE;
404: #endif
405: }
406:
407: /* if these gotos bother you, think of this as a little state machine */
408:
409: reask_article:
410: #ifdef MAILCALL
411: setmail();
412: #endif
413: setdfltcmd();
414: #ifdef CLEAREOL
415: if (erase_screen && can_home_clear) /* PWP was here */
416: clear_rest();
417: #endif CLEAREOL
418: unflush_output(); /* disable any ^O in effect */
419: standout(); /* enter standout mode */
420: printf(prompt,mailcall,dfltcmd);/* print prompt, whatever it is */
421: un_standout(); /* leave standout mode */
422: putchar(' ');
423: fflush(stdout);
424: reinp_article:
425: eat_typeahead();
426: #ifdef PENDING
427: look_ahead(); /* see what we can do in advance */
428: if (!input_pending())
429: collect_subjects(); /* loads subject cache until */
430: /* input is pending */
431: #endif
432: getcmd(buf);
433: if (errno || *buf == '\f') {
434: if (LINES < 100 && !int_count)
435: *buf = '\f'; /* on CONT fake up refresh */
436: else {
437: putchar('\n') FLUSH; /* but only on a crt */
438: goto reask_article;
439: }
440: }
441: article_level:
442:
443: /* parse and process article level command */
444:
445: switch (art_switch()) {
446: case AS_INP: /* multichar command rubbed out */
447: goto reinp_article;
448: case AS_ASK: /* reprompt "End of article..." */
449: goto reask_article;
450: case AS_CLEAN: /* exit newsgroup */
451: goto cleanup;
452: case AS_NORM: /* display article art */
453: break;
454: }
455: } /* end of article selection loop */
456:
457: /* shut down newsgroup */
458:
459: cleanup:
460: #ifdef KILLFILES
461: kill_unwanted(firstart,"\nCleaning up...\n\n",FALSE);
462: /* do cleanup from KILL file, if any */
463: #endif
464: in_ng = FALSE; /* leave newsgroup state */
465: if (artfp != Nullfp) { /* article still open? */
466: fclose(artfp); /* close it */
467: artfp = Nullfp; /* and tell the world */
468: #ifdef SERVER
469: sprintf(artname, "/tmp/rrn%ld.%ld", (long) openart, our_pid);
470: UNLINK(artname);
471: #endif
472: openart = 0;
473: }
474: putchar('\n') FLUSH;
475: yankback(); /* do a Y command */
476: restore_ng(); /* reconstitute .newsrc line */
477: doing_ng = FALSE; /* tell sig_catcher to cool it */
478: free(ctlarea); /* return the control area */
479: #ifdef CACHESUBJ
480: if (subj_list) {
481: for (i=OFFSET(lastart); i>=0; --i)
482: if (subj_list[i])
483: free(subj_list[i]);
484: #ifndef lint
485: free((char*)subj_list);
486: #endif lint
487: }
488: #endif
489: write_rc(); /* and update .newsrc */
490: rc_changed = FALSE; /* tell sig_catcher it is ok */
491: if (chdir(spool)) {
492: printf(nocd,spool) FLUSH;
493: sig_catcher(0);
494: }
495: #ifdef KILLFILES
496: if (localkfp) {
497: fclose(localkfp);
498: localkfp = Nullfp;
499: }
500: #endif
501: mode = oldmode;
502: return exit_code;
503: } /* Whew! */
504:
505: /* decide what to do at the end of an article */
506:
507: int
508: art_switch()
509: {
510: register ART_NUM i;
511:
512: setdef(buf,dfltcmd);
513: #ifdef VERIFY
514: printcmd();
515: #endif
516: switch (*buf) {
517: case 'p': /* find previous unread article */
518: do {
519: if (art <= firstart)
520: break;
521: art--;
522: } while (was_read(art) || artopen(art) == Nullfp);
523: #ifdef ARTSEARCH
524: srchahead = 0;
525: #endif
526: return AS_NORM;
527: case 'P': /* goto previous article */
528: if (art > absfirst)
529: art--;
530: else {
531: #ifdef VERBOSE
532: IF(verbose)
533: fputs("\n\
534: There are no articles prior to this one.\n\
535: ",stdout) FLUSH;
536: ELSE
537: #endif
538: #ifdef TERSE
539: fputs("\nNo previous articles\n",stdout) FLUSH;
540: #endif
541: return AS_ASK;
542: }
543: reread = TRUE;
544: #ifdef ARTSEARCH
545: srchahead = 0;
546: #endif
547: return AS_NORM;
548: case '-':
549: if (recent_art) {
550: art = recent_art;
551: reread = TRUE;
552: #ifdef ARTSEARCH
553: srchahead = -(srchahead != 0);
554: #endif
555: return AS_NORM;
556: }
557: else {
558: exit_code = NG_MINUS;
559: return AS_CLEAN;
560: }
561: case 'n': /* find next unread article? */
562: if (art > lastart) {
563: if (toread[ng])
564: art = firstart;
565: else
566: return AS_CLEAN;
567: }
568: #ifdef ARTSEARCH
569: else if (scanon && srchahead) {
570: *buf = Ctl('n');
571: goto normal_search;
572: }
573: #endif
574: else
575: art++;
576: #ifdef ARTSEARCH
577: srchahead = 0;
578: #endif
579: return AS_NORM;
580: case 'N': /* goto next article */
581: if (art > lastart)
582: art = absfirst;
583: else
584: art++;
585: if (art <= lastart)
586: reread = TRUE;
587: #ifdef ARTSEARCH
588: srchahead = 0;
589: #endif
590: return AS_NORM;
591: case '$':
592: art = lastart+1;
593: forcelast = TRUE;
594: #ifdef ARTSEARCH
595: srchahead = 0;
596: #endif
597: return AS_NORM;
598: case '1': case '2': case '3': /* goto specified article */
599: case '4': case '5': case '6': /* or do something with a range */
600: case '7': case '8': case '9': case '.':
601: forcelast = TRUE;
602: switch (numnum()) {
603: case NN_INP:
604: return AS_INP;
605: case NN_ASK:
606: return AS_ASK;
607: case NN_REREAD:
608: reread = TRUE;
609: #ifdef ARTSEARCH
610: if (srchahead)
611: srchahead = -1;
612: #endif
613: break;
614: case NN_NORM:
615: if (was_read(art)) {
616: art = firstart;
617: pad(just_a_sec/3);
618: }
619: else
620: return AS_ASK;
621: break;
622: }
623: return AS_NORM;
624: case Ctl('k'):
625: edit_kfile();
626: return AS_ASK;
627: case 'K':
628: case 'k':
629: case Ctl('n'): case Ctl('p'):
630: case '/': case '?':
631: #ifdef ARTSEARCH
632: normal_search:
633: { /* search for article by pattern */
634: char cmd = *buf;
635:
636: reread = TRUE; /* assume this */
637: switch (art_search(buf, (sizeof buf), TRUE)) {
638: case SRCH_ERROR:
639: return AS_ASK;
640: case SRCH_ABORT:
641: return AS_INP;
642: case SRCH_INTR:
643: #ifdef VERBOSE
644: IF(verbose)
645: printf("\n(Interrupted at article %ld)\n",(long)art) FLUSH;
646: ELSE
647: #endif
648: #ifdef TERSE
649: printf("\n(Intr at %ld)\n",(long)art) FLUSH;
650: #endif
651: art = curr_art;
652: /* restore to current article */
653: return AS_ASK;
654: case SRCH_DONE:
655: fputs("done\n",stdout) FLUSH;
656: pad(just_a_sec/3); /* 1/3 second */
657: if (srchahead)
658: art = firstart;
659: else
660: art = curr_art;
661: reread = FALSE;
662: return AS_NORM;
663: case SRCH_SUBJDONE:
664: #ifdef UNDEF
665: fputs("\n\n\n\nSubject not found.\n",stdout) FLUSH;
666: pad(just_a_sec/3); /* 1/3 second */
667: #endif
668: art = firstart;
669: reread = FALSE;
670: return AS_NORM;
671: case SRCH_NOTFOUND:
672: fputs("\n\n\n\nNot found.\n",stdout) FLUSH;
673: art = curr_art; /* restore to current article */
674: return AS_ASK;
675: case SRCH_FOUND:
676: if (cmd == Ctl('n') || cmd == Ctl('p'))
677: oldsubject = TRUE;
678: break;
679: }
680: return AS_NORM;
681: }
682: #else
683: buf[1] = '\0';
684: notincl(buf);
685: return AS_ASK;
686: #endif
687: case 'u': /* unsubscribe from this newsgroup? */
688: rcchar[ng] = NEGCHAR;
689: return AS_CLEAN;
690: case 'M':
691: #ifdef DELAYMARK
692: if (art <= lastart) {
693: delay_unmark(art);
694: printf("\nArticle %ld will return.\n",(long)art) FLUSH;
695: }
696: #else
697: notincl("M");
698: #endif
699: return AS_ASK;
700: case 'm':
701: if (art <= lastart) {
702: unmark_as_read(art);
703: printf("\nArticle %ld marked as still unread.\n",(long)art) FLUSH;
704: }
705: return AS_ASK;
706: case 'c': /* catch up */
707: reask_catchup:
708: #ifdef VERBOSE
709: IF(verbose)
710: in_char("\nDo you really want to mark everything as read? [yn] ");
711: ELSE
712: #endif
713: #ifdef TERSE
714: in_char("\nReally? [ynh] ");
715: #endif
716: putchar('\n') FLUSH;
717: setdef(buf,"y");
718: #ifdef VERIFY
719: printcmd();
720: #endif
721: if (*buf == 'h') {
722: #ifdef VERBOSE
723: IF(verbose)
724: fputs("\
725: Type y or SP to mark all articles as read.\n\
726: Type n to leave articles marked as they are.\n\
727: Type u to mark everything read and unsubscribe.\n\
728: ",stdout) FLUSH;
729: ELSE
730: #endif
731: #ifdef TERSE
732: fputs("\
733: y or SP to mark all read.\n\
734: n to forget it.\n\
735: u to mark all and unsubscribe.\n\
736: ",stdout) FLUSH;
737: #endif
738: goto reask_catchup;
739: }
740: else if (*buf == 'n' || *buf == 'q') {
741: return AS_ASK;
742: }
743: else if (*buf != 'y' && *buf != 'u') {
744: fputs(hforhelp,stdout) FLUSH;
745: settle_down();
746: goto reask_catchup;
747: }
748: for (i = firstart; i <= lastart; i++) {
749: ctl_set(i); /* mark as read */
750: }
751: #ifdef DELAYMARK
752: if (dmfp)
753: yankback();
754: #endif
755: if (*buf == 'u') {
756: rcchar[ng] = NEGCHAR;
757: return AS_CLEAN;
758: }
759: art = lastart+1;
760: forcelast = FALSE;
761: return AS_NORM;
762: case 'Q':
763: exit_code = NG_ASK;
764: /* FALL THROUGH */
765: case 'q': /* go back up to newsgroup level? */
766: return AS_CLEAN;
767: case 'j':
768: putchar('\n') FLUSH;
769: if (art <= lastart)
770: mark_as_read(art);
771: return AS_ASK;
772: case 'h': { /* help? */
773: int cmd;
774:
775: if ((cmd = help_art()) > 0)
776: pushchar(cmd);
777: return AS_ASK;
778: }
779: case '&':
780: if (switcheroo()) /* get rest of command */
781: return AS_INP; /* if rubbed out, try something else */
782: return AS_ASK;
783: case '#':
784: #ifdef VERBOSE
785: IF(verbose)
786: printf("\nThe last article is %ld.\n",(long)lastart) FLUSH;
787: ELSE
788: #endif
789: #ifdef TERSE
790: printf("\n%ld\n",(long)lastart) FLUSH;
791: #endif
792: return AS_ASK;
793: case '=': {
794: char tmpbuf[256];
795: ART_NUM oldart = art;
796: int cmd;
797: char *subjline = getval("SUBJLINE",Nullch);
798: #ifndef CACHESUBJ
799: char *s;
800: #endif
801:
802: page_init();
803: #ifdef CACHESUBJ
804: if (!subj_list)
805: fetchsubj(art,TRUE,FALSE);
806: #endif
807: for (i=firstart; i<=lastart && !int_count; i++) {
808: #ifdef CACHESUBJ
809: if (!was_read(i) &&
810: (subj_list[OFFSET(i)] != Nullch || fetchsubj(i,FALSE,FALSE)) &&
811: *subj_list[OFFSET(i)] ) {
812: sprintf(tmpbuf,"%5ld ", i);
813: if (subjline) {
814: art = i;
815: interp(tmpbuf + 6, (sizeof tmpbuf) - 6, subjline);
816: }
817: else
818: safecpy(tmpbuf + 6, subj_list[OFFSET(i)],
819: (sizeof tmpbuf) - 6);
820: if (cmd = print_lines(tmpbuf,NOMARKING)) {
821: if (cmd > 0)
822: pushchar(cmd);
823: break;
824: }
825: }
826: #else
827: if (!was_read(i) && (s = fetchsubj(i,FALSE,FALSE)) && *s) {
828: sprintf(tmpbuf,"%5ld ", i);
829: if (subjline) { /* probably fetches it again! */
830: art = i;
831: interp(tmpbuf + 6, (sizeof tmpbuf) - 6, subjline);
832: }
833: else
834: safecpy(tmpbuf + 6, s, (sizeof tmpbuf) - 6);
835: if (cmd = print_lines(tmpbuf,NOMARKING)) {
836: if (cmd > 0)
837: pushchar(cmd);
838: break;
839: }
840: }
841: #endif
842: }
843: int_count = 0;
844: art = oldart;
845: return AS_ASK;
846: }
847: case '^':
848: art = firstart;
849: #ifdef ARTSEARCH
850: srchahead = 0;
851: #endif
852: return AS_NORM;
853: #if defined(CACHESUBJ) && defined(DEBUGGING)
854: case 'D':
855: printf("\nFirst article: %ld\n",(long)firstart) FLUSH;
856: if (!subj_list)
857: fetchsubj(art,TRUE,FALSE);
858: if (subj_list != Null(char **)) {
859: for (i=1; i<=lastart && !int_count; i++) {
860: if (subj_list[OFFSET(i)])
861: printf("%5ld %c %s\n",
862: i, (was_read(i)?'y':'n'), subj_list[OFFSET(i)]) FLUSH;
863: }
864: }
865: int_count = 0;
866: return AS_ASK;
867: #endif
868: case 'v':
869: if (art <= lastart) {
870: reread = TRUE;
871: do_hiding = FALSE;
872: }
873: return AS_NORM;
874: #ifdef ROTATION
875: case Ctl('x'):
876: #endif
877: case Ctl('r'):
878: #ifdef ROTATION
879: rotate = (*buf==Ctl('x'));
880: #endif
881: if (art <= lastart)
882: reread = TRUE;
883: return AS_NORM;
884: #ifdef ROTATION
885: case 'X':
886: rotate = !rotate;
887: /* FALL THROUGH */
888: #else
889: case Ctl('x'):
890: case 'x':
891: case 'X':
892: notincl("x");
893: return AS_ASK;
894: #endif
895: case 'l': case Ctl('l'): /* refresh screen */
896: if (art <= lastart) {
897: reread = TRUE;
898: clear();
899: do_fseek = TRUE;
900: artline = topline;
901: if (artline < 0)
902: artline = 0;
903: }
904: return AS_NORM;
905: case 'b': case Ctl('b'): /* back up a page */
906: if (art <= lastart) {
907: ART_LINE target;
908:
909: reread = TRUE;
910: clear();
911: do_fseek = TRUE;
912: target = topline - (LINES - 2);
913: artline = topline;
914: do {
915: artline--;
916: } while (artline >= 0 && artline > target &&
917: vrdary(artline-1) >= 0);
918: topline = artline;
919: if (artline < 0)
920: artline = 0;
921: }
922: return AS_NORM;
923: case '!': /* shell escape */
924: if (escapade())
925: return AS_INP;
926: return AS_ASK;
927: case 'C': {
928: cancel_article();
929: return AS_ASK;
930: }
931: case 'R':
932: case 'r': { /* reply? */
933: reply();
934: return AS_ASK;
935: }
936: case 'F':
937: case 'f': { /* followup command */
938: followup();
939: forcegrow = TRUE; /* recalculate lastart */
940: return AS_ASK;
941: }
942: case '|':
943: case 'w': case 'W':
944: case 's': case 'S': /* save command */
945: if (save_article() == SAVE_ABORT)
946: return AS_INP;
947: return AS_ASK;
948: #ifdef DELAYMARK
949: case 'Y': /* yank back M articles */
950: yankback();
951: art = firstart; /* from the beginning */
952: return AS_NORM; /* pretend nothing happened */
953: #endif
954: #ifdef STRICTCR
955: case '\n':
956: fputs(badcr,stdout) FLUSH;
957: return AS_ASK;
958: #endif
959: default:
960: printf("\n%s",hforhelp) FLUSH;
961: settle_down();
962: return AS_ASK;
963: }
964: }
965:
966: #ifdef MAILCALL
967: /* see if there is any mail */
968:
969: void
970: setmail()
971: {
972: if (! (mailcount++)) {
973: char *mailfile = filexp(getval("MAILFILE",MAILFILE));
974:
975: if (stat(mailfile,&filestat) < 0 || !filestat.st_size
976: || filestat.st_atime > filestat.st_mtime)
977: mailcall = nullstr;
978: else
979: mailcall = "(Mail) ";
980: }
981: mailcount %= 10; /* check every 10 articles */
982: }
983: #endif
984:
985: void
986: setdfltcmd()
987: {
988: if (toread[ng]) {
989: #ifdef ARTSEARCH
990: if (srchahead)
991: dfltcmd = "^Nnpq";
992: else
993: #endif
994: dfltcmd = "npq";
995: }
996: else {
997: if (art > lastart)
998: dfltcmd = "qnp";
999: else
1000: dfltcmd = "npq";
1001: }
1002: }
1003:
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.