home *** CD-ROM | disk | FTP | other *** search
/ Usenet 1994 January / usenetsourcesnewsgroupsinfomagicjanuary1994.iso / sources / unix / volume1 / rn / part07 < prev    next >
Encoding:
Internet Message Format  |  1986-11-30  |  61.7 KB
  1. Date: Tue, 7 May 85 14:01:47 pdt
  2. From: allegra!sdcrdcf!RDCF.SDC.UUCP!lwall (Larry Wall)
  3. Newsgroups: mod.sources
  4. Subject: rn version 4.3 (kit 7 of 9)
  5. Reply-To: lwall@sdcrdcf.UUCP
  6. Organization: System Development Corporation R&D, Santa Monica
  7.  
  8. #! /bin/sh
  9.  
  10. # Make a new directory for the rn sources, cd to it, and run kits 1 thru 9 
  11. # through sh.  When all 9 kits have been run, read README.
  12.  
  13. echo "This is rn kit 7 (of 9).  If kit 7 is complete, the line"
  14. echo '"'"End of kit 7 (of 9)"'" will echo at the end.'
  15. echo ""
  16. export PATH || (echo "You didn't use sh, you clunch." ; kill $$)
  17. echo Extracting term.h
  18. cat >term.h <<'!STUFFY!FUNK!'
  19. /* $Header: term.h,v 4.3 85/05/01 11:51:36 lwall Exp $
  20.  *
  21.  * $Log:    term.h,v $
  22.  * Revision 4.3  85/05/01  11:51:36  lwall
  23.  * Baseline for release with 4.3bsd.
  24.  * 
  25.  */
  26.  
  27. #ifdef PUSHBACK
  28. EXT char circlebuf[PUSHSIZE];
  29. EXT int nextin INIT(0);
  30. EXT int nextout INIT(0);
  31. #ifdef PENDING
  32. #ifdef FIONREAD
  33. EXT long iocount INIT(0);
  34. #ifndef lint
  35. #define input_pending() (nextin!=nextout || (ioctl(0, FIONREAD, &iocount),(int)iocount))
  36. #else
  37. #define input_pending() bizarre
  38. #endif lint
  39. #else FIONREAD
  40. int circfill();
  41. #ifndef lint
  42. #define input_pending() (nextin!=nextout || circfill())
  43. #else
  44. #define input_pending() bizarre
  45. #endif lint
  46. #endif FIONREAD
  47. #else PENDING
  48. #ifndef lint
  49. #define input_pending() (nextin!=nextout)
  50. #else
  51. #define input_pending() bizarre
  52. #endif lint
  53. #endif PENDING
  54. #else PUSHBACK
  55. #ifdef PENDING
  56. #ifdef FIONREAD    /* must have FIONREAD or O_NDELAY for input_pending() */
  57. #define read_tty(addr,size) read(0,addr,size)
  58. #ifndef lint
  59. #define input_pending() (ioctl(0, FIONREAD, &iocount),(int)iocount)
  60. #else
  61. #define input_pending() bizarre
  62. #endif lint
  63. EXT long iocount INIT(0);
  64.  
  65. #else FIONREAD
  66.  
  67. EXT int devtty INIT(0);
  68. EXT bool is_input INIT(FALSE);
  69. EXT char pending_ch INIT(0);
  70. #ifndef lint
  71. #define input_pending() (is_input || (is_input=read(devtty,&pending_ch,1)))
  72. #else
  73. #define input_pending() bizarre
  74. #endif lint
  75. #endif FIONREAD
  76. #else PENDING
  77. #define read_tty(addr,size) read(0,addr,size)
  78. #define input_pending() (FALSE)
  79. #endif PENDING
  80. #endif PUSHBACK
  81.  
  82. /* stuff wanted by terminal mode diddling routines */
  83.  
  84. #ifdef TERMIO
  85. EXT struct termio _tty, _oldtty;
  86. #else
  87. EXT struct sgttyb _tty;
  88. EXT int _res_flg INIT(0);
  89. #endif
  90.  
  91. EXT int _tty_ch INIT(2);
  92. EXT bool bizarre INIT(FALSE);            /* do we need to restore terminal? */
  93.  
  94. /* terminal mode diddling routines */
  95.  
  96. #ifdef TERMIO
  97.  
  98. #define crmode() ((bizarre=1),_tty.c_lflag &=~ICANON,_tty.c_cc[VMIN] = 1,ioctl(_tty_ch,TCSETAF,&_tty))
  99. #define nocrmode() ((bizarre=1),_tty.c_lflag |= ICANON,_tty.c_cc[VEOF] = CEOF,stty(_tty_ch,&_tty))
  100. #define echo()     ((bizarre=1),_tty.c_lflag |= ECHO, ioctl(_tty_ch, TCSETA, &_tty))
  101. #define noecho() ((bizarre=1),_tty.c_lflag &=~ECHO, ioctl(_tty_ch, TCSETA, &_tty))
  102. #define nl()     ((bizarre=1),_tty.c_iflag |= ICRNL,_tty.c_oflag |= ONLCR,ioctl(_tty_ch, TCSETAW, &_tty))
  103. #define nonl()     ((bizarre=1),_tty.c_iflag &=~ICRNL,_tty.c_oflag &=~ONLCR,ioctl(_tty_ch, TCSETAW, &_tty))
  104. #define    savetty() (ioctl(_tty_ch, TCGETA, &_oldtty),ioctl(_tty_ch, TCGETA, &_tty))
  105. #define    resetty() ((bizarre=0),ioctl(_tty_ch, TCSETAF, &_oldtty))
  106. #define unflush_output()
  107.  
  108. #else
  109.  
  110. #define raw()     ((bizarre=1),_tty.sg_flags|=RAW, stty(_tty_ch,&_tty))
  111. #define noraw()     ((bizarre=1),_tty.sg_flags&=~RAW,stty(_tty_ch,&_tty))
  112. #define crmode() ((bizarre=1),_tty.sg_flags |= CBREAK, stty(_tty_ch,&_tty))
  113. #define nocrmode() ((bizarre=1),_tty.sg_flags &= ~CBREAK,stty(_tty_ch,&_tty))
  114. #define echo()     ((bizarre=1),_tty.sg_flags |= ECHO, stty(_tty_ch, &_tty))
  115. #define noecho() ((bizarre=1),_tty.sg_flags &= ~ECHO, stty(_tty_ch, &_tty))
  116. #define nl()     ((bizarre=1),_tty.sg_flags |= CRMOD,stty(_tty_ch, &_tty))
  117. #define nonl()     ((bizarre=1),_tty.sg_flags &= ~CRMOD, stty(_tty_ch, &_tty))
  118. #define    savetty() (gtty(_tty_ch, &_tty), _res_flg = _tty.sg_flags)
  119. #define    resetty() ((bizarre=0),_tty.sg_flags = _res_flg, stty(_tty_ch, &_tty))
  120. #ifdef LFLUSHO
  121. #ifndef lint
  122. EXT int lflusho INIT(LFLUSHO);
  123. #else
  124. EXT long lflusho INIT(LFLUSHO);
  125. #endif lint
  126. #define unflush_output() (ioctl(_tty_ch,TIOCLBIC,&lflusho))
  127. #else
  128. #define unflush_output()
  129. #endif LFLUSHO
  130. #endif TERMIO
  131.  
  132. #ifdef TIOCSTI
  133. #ifdef lint
  134. #define forceme(c) ioctl(_tty_ch,TIOCSTI,Null(long*))    /* ghad! */
  135. #else
  136. #define forceme(c) ioctl(_tty_ch,TIOCSTI,c) /* pass character in " " */
  137. #endif lint
  138. #else
  139. #define forceme(c)
  140. #endif
  141.  
  142. /* termcap stuff */
  143.  
  144. /*
  145.  * NOTE: if you don't have termlib you'll either have to define these strings
  146.  *    and the tputs routine, or you'll have to redefine the macros below
  147.  */
  148.  
  149. #ifdef HAVETERMLIB
  150. EXT char *BC INIT(Nullch);        /* backspace character */
  151. EXT char *UP INIT(Nullch);        /* move cursor up one line */
  152. EXT char *CR INIT(Nullch);        /* get to left margin, somehow */
  153. EXT char *VB INIT(Nullch);        /* visible bell */
  154. EXT char *CL INIT(Nullch);        /* home and clear screen */
  155. EXT char *CE INIT(Nullch);        /* clear to end of line */
  156. #ifdef CLEAREOL
  157. EXT char *CM INIT(Nullch);        /* cursor motion -- PWP */
  158. EXT char *HO INIT(Nullch);        /* home cursor -- PWP */
  159. EXT char *CD INIT(Nullch);        /* clear to end of display -- PWP */
  160. #endif CLEAREOL
  161. EXT char *SO INIT(Nullch);        /* begin standout mode */
  162. EXT char *SE INIT(Nullch);        /* end standout mode */
  163. EXT int SG INIT(0);        /* blanks left by SO and SE */
  164. EXT char *US INIT(Nullch);        /* start underline mode */
  165. EXT char *UE INIT(Nullch);        /* end underline mode */
  166. EXT char *UC INIT(Nullch);        /* underline a character, if that's how it's done */
  167. EXT int UG INIT(0);        /* blanks left by US and UE */
  168. EXT bool AM INIT(FALSE);        /* does terminal have automatic margins? */
  169. EXT bool XN INIT(FALSE);        /* does it eat 1st newline after automatic wrap? */
  170. EXT char PC INIT(0);        /* pad character for use by tputs() */
  171. EXT short ospeed INIT(0);    /* terminal output speed, for use by tputs() */
  172. EXT int LINES INIT(0), COLS INIT(0);    /* size of screen */
  173. EXT int just_a_sec INIT(960);            /* 1 sec at current baud rate */
  174.                     /* (number of nulls) */
  175.  
  176. /* define a few handy macros */
  177.  
  178. #define backspace() tputs(BC,0,putchr) FLUSH
  179. #define clear() tputs(CL,LINES,putchr) FLUSH
  180. #define erase_eol() tputs(CE,1,putchr) FLUSH
  181. #ifdef CLEAREOL
  182. #define clear_rest() tputs(CD,LINES,putchr) FLUSH    /* PWP */
  183. #define maybe_eol() if(erase_screen&&can_home_clear)tputs(CE,1,putchr) FLUSH
  184. #endif CLEAREOL
  185. #define underline() tputs(US,1,putchr) FLUSH
  186. #define un_underline() tputs(UE,1,putchr) FLUSH
  187. #define underchar() tputs(UC,0,putchr) FLUSH
  188. #define standout() tputs(SO,1,putchr) FLUSH
  189. #define un_standout() tputs(SE,1,putchr) FLUSH
  190. #define up_line() tputs(UP,1,putchr) FLUSH
  191. #define carriage_return() tputs(CR,1,putchr) FLUSH
  192. #define dingaling() tputs(VB,1,putchr) FLUSH
  193. #else
  194.   ????????        /* up to you */
  195. #endif
  196.  
  197. EXT int page_line INIT(1);    /* line number for paging in print_line (origin 1) */
  198.  
  199. void    term_init();
  200. void    term_set();
  201. #ifdef PUSHBACK
  202. void    pushchar();
  203. void    mac_init();
  204. void    mac_line();
  205. void    show_macros();
  206. #endif
  207. char    putchr();    /* routine for tputs to call */
  208. bool    finish_command();
  209. void    eat_typeahead();
  210. void    settle_down();
  211. #ifndef read_tty
  212.     int        read_tty();
  213. #endif
  214. void    underprint();
  215. #ifdef NOFIREWORKS
  216.     void    no_sofire();
  217.     void    no_ulfire();
  218. #endif
  219. void    getcmd();
  220. int    get_anything();
  221. void    in_char();
  222. int    print_lines();
  223. void    page_init();
  224. void    pad();
  225. void    printcmd();
  226. void    rubout();
  227. void    reprint();
  228. #ifdef CLEAREOL
  229. void    home_cursor();
  230. #endif CLEAREOL
  231. !STUFFY!FUNK!
  232. echo Extracting head.c
  233. cat >head.c <<'!STUFFY!FUNK!'
  234. /* $Header: head.c,v 4.3 85/05/01 11:38:21 lwall Exp $
  235.  *
  236.  * $Log:    head.c,v $
  237.  * Revision 4.3  85/05/01  11:38:21  lwall
  238.  * Baseline for release with 4.3bsd.
  239.  * 
  240.  */
  241.  
  242. #include "EXTERN.h"
  243. #include "common.h"
  244. #include "artio.h"
  245. #include "bits.h"
  246. #include "util.h"
  247. #include "INTERN.h"
  248. #include "head.h"
  249.  
  250. bool first_one;        /* is this the 1st occurance of this header line? */
  251.  
  252. static char htypeix[26] =
  253.     {0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0};
  254.  
  255. void
  256. head_init()
  257. {
  258.     register int i;
  259.  
  260.     for (i=HEAD_FIRST+1; i<HEAD_LAST; i++)
  261.     htypeix[*htype[i].ht_name - 'a'] = i;
  262. }
  263.  
  264. int
  265. set_line_type(bufptr,colon)
  266. char *bufptr;
  267. register char *colon;
  268. {
  269.     char lc[LONGKEY+3];
  270.     register char *t, *f;
  271.     register int i, len;
  272.  
  273.     for (t=lc,f=bufptr; f<colon; f++, t++) {
  274.     if (isspace(*f))
  275.     /* guard against space before : */
  276.         break;
  277.     *t = isupper(*f) ? tolower(*f) : *f;
  278.     }
  279.     *t = '\0';
  280.     f = lc;                /* get lc into register */
  281.     len = t - f;
  282.  
  283.     /* now scan the headtype table, backwards so we don't have to supply an
  284.      * extra terminating value, using first letter as index, and length as
  285.      * optimization to avoid calling subroutine strEQ unnecessarily.  Hauls.
  286.      */
  287.     
  288.     if (islower(*f)) {
  289.     for (i = htypeix[*f - 'a']; *htype[i].ht_name == *f; --i) {
  290.         if (len == htype[i].ht_length && strEQ(f, htype[i].ht_name)) {
  291.         return i;
  292.         }
  293.     }
  294.     }
  295.     return SOME_LINE;
  296. }
  297.  
  298. void
  299. start_header(artnum)
  300. ART_NUM artnum;
  301. {
  302.     register int i;
  303.  
  304.     for (i=0; i<HEAD_LAST; i++) {
  305.     htype[i].ht_minpos = -1;
  306.     htype[i].ht_maxpos = 0;
  307.     }
  308.     in_header = SOME_LINE;
  309.     first_one = FALSE;
  310. #ifdef ASYNC_PARSE
  311.     parsed_art = artnum;
  312. #endif
  313. }
  314.  
  315. bool
  316. parseline(art_buf,newhide,oldhide)
  317. char *art_buf;
  318. int newhide, oldhide;
  319. {
  320.     if (*art_buf == ' ' || *art_buf == '\t')
  321.                     /* header continuation line? */
  322.     return oldhide;
  323.     else {                /* maybe another header line */
  324.     char *s;
  325.  
  326.     if (first_one) {        /* did we just pass 1st occurance? */
  327.         first_one = FALSE;
  328.         htype[in_header].ht_maxpos = artpos;
  329.                     /* remember where line left off */
  330.     }
  331.     s = index(art_buf,':');
  332.     if (s == Nullch || s-art_buf > LONGKEY+2) {
  333.                 /* is it the end of the header? */
  334.         htype[PAST_HEADER].ht_minpos =
  335.         (*art_buf == '\n') ? ftell(artfp) : artpos;
  336.                 /* remember where body starts */
  337.         in_header = PAST_HEADER;
  338.     }
  339.     else {    /* it is a new header line */
  340.         in_header = set_line_type(art_buf,s);
  341.         first_one = (htype[in_header].ht_minpos < 0);
  342.         if (first_one)
  343.         htype[in_header].ht_minpos = artpos;
  344.         if (htype[in_header].ht_flags & HT_HIDE)
  345.         return newhide;
  346.     }
  347.     }
  348.     return FALSE;            /* don't hide this line */
  349. }
  350.  
  351. #ifdef ASYNC_PARSE
  352. int
  353. parse_maybe(artnum)
  354. ART_NUM artnum;
  355. {
  356.     char tmpbuf[LBUFLEN];
  357.  
  358.     if (parsed_art == artnum)
  359.     return 0;
  360.     /* no maybe about it now */
  361.     if (artopen(artnum) == Nullfp) {
  362.     return -1;
  363.     }
  364.     start_header(artnum);
  365.     while (in_header) {
  366.     artpos = ftell(artfp);
  367.     if (fgets(tmpbuf,LBUFLEN,artfp) == Nullch)
  368.         break;
  369.     parseline(tmpbuf,FALSE,FALSE);
  370.     }
  371.     in_header = PAST_HEADER;
  372.     return 0;
  373. }
  374. #endif
  375.  
  376. /* get the subject line for an article */
  377.  
  378. char *
  379. fetchsubj(artnum,current_subject,copy)
  380. ART_NUM artnum;                /* article to get subject from */
  381. bool current_subject;            /* is it in a parsed header? */
  382. bool copy;                /* do you want it savestr()ed? */
  383. {
  384.     char *s = Nullch, *t;
  385.  
  386. #ifdef CACHESUBJ
  387.     if (!subj_list) {
  388.     register ART_NUM i;
  389.     
  390.  
  391. #ifndef lint
  392.     subj_list =
  393.       (char**)safemalloc((MEM_SIZE)((OFFSET(lastart)+2)*sizeof(char *)));
  394. #endif lint
  395.     for (i=0; i<=OFFSET(lastart); i++)
  396.         subj_list[i] = Nullch;
  397.     }
  398.     if (!artnum || artnum > lastart)
  399.     s = nullstr;
  400.     else
  401.     s = subj_list[OFFSET(artnum)];
  402. #endif
  403.     if (s == Nullch) {
  404.     if (current_subject) {
  405.         s = fetchlines(artnum,SUBJ_LINE);
  406. #ifdef CACHESUBJ
  407.         subj_list[OFFSET(artnum)] = s;
  408. #endif
  409.     }
  410.     else {
  411.         s = safemalloc((MEM_SIZE)256);
  412.         *s = '\0';
  413.         if (artopen(artnum) != Nullfp) {
  414.         do {
  415.             if (fgets(s,256,artfp) == Nullch)
  416.             strcpy(s, "Title: \n");
  417.         } while (strnNE(s,"Title:",6) && strnNE(s,"Subject:",8));
  418.         s[strlen(s)-1] = '\0';
  419.         t = index(s,':')+1;
  420.         while (*t == ' ') t++;
  421.         strcpy(s, t);
  422.         }
  423.         s = saferealloc(s, (MEM_SIZE)strlen(s)+1);
  424. #ifdef CACHESUBJ
  425.         subj_list[OFFSET(artnum)] = s;
  426. #endif 
  427.     }
  428.     }
  429. #ifdef CACHESUBJ
  430.     if (copy) {
  431.     t = savestr(s);
  432.     return t;
  433.     }
  434.     else
  435.     return s;
  436. #else
  437.     if (copy)
  438.     return s;
  439.     else {
  440.     safecpy(cmd_buf,s,CBUFLEN);    /* hope this is okay--we're */
  441.     free(s);
  442.     return cmd_buf;            /* really scraping for space here */
  443.     }
  444. #endif
  445. }
  446.  
  447. /* get header lines from an article */
  448.  
  449. char *
  450. fetchlines(artnum,which_line)
  451. ART_NUM artnum;                /* article to get line from */
  452. int which_line;                /* type of line desired */
  453. {
  454.     char *newbuf, *t, tmp_buf[LBUFLEN];
  455.     register ART_POS curpos;
  456.     int size;
  457.     register ART_POS firstpos;
  458.     register ART_POS lastpos;
  459.     
  460. #ifdef ASYNC_PARSE
  461.     if (parse_maybe(artnum))
  462.     artnum = 0;
  463. #endif
  464.     firstpos = htype[which_line].ht_minpos;
  465.     lastpos = htype[which_line].ht_maxpos;
  466.     if (!artnum || firstpos < 0 || artopen(artnum) == Nullfp) {
  467.     newbuf = safemalloc((unsigned int)1);
  468.     *newbuf = '\0';
  469.     return newbuf;
  470.     }
  471. #ifndef lint
  472.     size = lastpos - firstpos + 1;
  473. #else
  474.     size = Null(int);
  475. #endif lint
  476. #ifdef DEBUGGING
  477.     if (debug && (size < 1 || size > 1000)) {
  478.     printf("Firstpos = %ld, lastpos = %ld\n",(long)firstpos,(long)lastpos);
  479.     gets(tmp_buf);
  480.     }
  481. #endif
  482.     newbuf = safemalloc((unsigned int)size);
  483.     *newbuf = '\0';
  484.     fseek(artfp,firstpos,0);
  485.     for (curpos = firstpos; curpos < lastpos; curpos = ftell(artfp)) {
  486.     if (fgets(tmp_buf,LBUFLEN,artfp) == Nullch)
  487.         break;
  488.     if (*tmp_buf == ' ' || *tmp_buf == '\t')
  489.         t = tmp_buf;
  490.     else
  491.         t = index(tmp_buf,':')+1;
  492.     if (t == Nullch)
  493.         break;
  494.     else {
  495.         while (*t == ' ' || *t == '\t') t++;
  496.         safecat(newbuf,t,size);
  497.     }
  498.     }
  499.     return newbuf;
  500. }
  501.  
  502. !STUFFY!FUNK!
  503. echo Extracting README
  504. cat >README <<'!STUFFY!FUNK!'
  505.             Rn Kit, Version 4.3
  506.  
  507.             Copyright (c) 1985, Larry Wall
  508.  
  509. You may copy the rn kit in whole or in part as long as you don't try to
  510. make money off it, or pretend that you wrote it.
  511. --------------------------------------------------------------------------
  512.  
  513. Please read all the directions below before you proceed any further, and
  514. then follow them carefully.  Failure to do so may void your warranty. :-)
  515.  
  516. After you have unpacked your kit, you should have all the files listed
  517. in MANIFEST.
  518.  
  519. Installation
  520.  
  521. 1)  Run Configure.  This will figure out various things about your system.
  522.     Some things Configure will figure out for itself, other things it will
  523.     ask you about.  It will then proceed to make config.h, config.sh, Makefile,
  524.     and a bunch of shell scripts.  It will also do a make depend for you.
  525.     You might possibly have to trim # comments from the front of Configure
  526.     if your sh doesn't handle them, but all other # comments will be taken
  527.     care of.
  528.  
  529. 2)  Glance through config.h and common.h to make sure system dependencies
  530.     are correct.  Most of them should have been taken care of by running
  531.     the Configure script.
  532.  
  533.     If you have any additional changes to make to the C definitions, they
  534.     can be done in the Makefile, in config.h, or in common.h.  If you have
  535.     strange mailboxes on your system you should modify mbox.saver to correctly
  536.     append an article to a mailbox or folder.
  537.  
  538.     If you are on a machine with limited address space, you may have to
  539.     remove some of the special functions of rn to make it fit.  This is
  540.     easily done by undefining symbols in the System Dependencies section
  541.     of common.h.  You should run "make depend" again to be safe.
  542.  
  543. 3)  make
  544.  
  545.     This will attempt to make rn in the current directory.
  546.  
  547. 4)  make install
  548.  
  549.     This will put rn, newsetup, newsgroups, Pnews, and Rnmail into a public
  550.     directory (normally /usr/local/bin), and put a number of files into the
  551.     private rn library (normally /usr/lib/news/rn).  It will also try to put
  552.     the man pages in a reasonable place.
  553.  
  554. 5)  Read the manual entry before running rn.  It's quite different from
  555.     readnews.
  556.  
  557. 6)  Install the Xref patch to header.h, header.c, and inews.c.  These patches
  558.     are found in header.h.?.pat, header.c.?.pat, and inews.c.?.pat, where ? is
  559.     either 1 for news 2.10.1 (or earlier) or 2 for 2.10.2.  Last I heard,
  560.     2.10.3 was going to have the Xref patch built in.  The purpose
  561.     of the Xref patch is to put an Xref: line in the header of articles
  562.     posted to more than one newsgroup.  Rn uses this line to keep from showing
  563.     such postings more than once.  Other than that rn will work without
  564.     this patch, so if you just want to try out rn you can delay putting in
  565.     the patch.
  566.  
  567.     When you put in the patch and recompile inews, don't forget to define
  568.     DOXREFS in the makefile for inews.  Do NOT define LINKART unless you
  569.     are a Eunice site and really want to do that.  In fact, if you are not
  570.     a Eunice site you needn't install the LINKART part of the patch.
  571.  
  572.     NOTE: the Makefile that comes with some of the older news systems does not
  573.     have all the dependencies quite right.  In particular, ifuncs.c may
  574.     not recompile when you change header.h.  If this happens when you install
  575.     the Xref patch, inews will start dumping core.  Make sure both inews.o
  576.     and ifuncs.o depend on header.h in the Makefile.
  577.  
  578.     Eunice users: the inews.c patch contains both the Xref patch and a LINKART
  579.     patch to put a form of "symbolic link" between articles posted to
  580.     multiple newsgroups.  What it does is to put the article into the first
  581.     newsgroup on the Newsgroups line, and in subsequent newsgroups it just
  582.     puts a little file containing the name of the article in the first
  583.     newsgroup.  Rn (when compiled with the LINKART option) is clever about
  584.     these pseudo-articles, and ends up opening the right one.  YOU WILL NOT
  585.     be able to use readnews or vnews on your system without modification,
  586.     though.  If you do this, be sure to define both DOXREFS and LINKART in
  587.     the makefile for inews.c.  If you are using the option in inews that
  588.     copies instead of linking, you will want to rip that out.
  589.  
  590.     NOTE: if you transmit articles to other systems using xfernews with the
  591.     U flag, Xref's can leak out of your system, as can Date-Received's.  This
  592.     may make neighboring sites unhappy unless they also have the Xref patch
  593.     installed.  For now, either don't use the U flag, or fix the inews/xfernews
  594.     interaction.
  595.  
  596. 7)  Try rn, and play with some of the switches.  You may want to make -/
  597.     default on your system.  This is done in common.h.  You may want to modify
  598.     which header lines are displayed by default--this is done in head.h.
  599.  
  600.     To change default values of enviroment variables on a system-wide basis
  601.     without recompiling rn, put switches into file INIT in the rn library.
  602.  
  603. 8)  IMPORTANT!  Help save the world!  Communicate any problems and
  604.     suggested patches to me, lwall@sdcrdcf.UUCP (Larry Wall), so we can
  605.     keep the world in sync.  If you have a problem, there's someone else
  606.     out there who either has had or will have the same problem.
  607.  
  608.     If possible, send in patches such that the patch program will apply them.
  609.     Context diffs are the best, then normal diffs.  Don't send ed scripts--
  610.     I've probably changed my copy since the version you have.
  611.  
  612.     Watch for rn patches in net.sources.bugs.  Patches will generally be
  613.     applyable (is that a word?) by the patch program.  If you are just
  614.     now bringing up news and aren't sure how many patches there are, write
  615.     to me and I'll send any you don't have.
  616.  
  617. 9)  If you are going to hack on rn, please read the HACKERSGUIDE first.
  618. !STUFFY!FUNK!
  619. echo Extracting MANIFEST
  620. cat >MANIFEST <<'!STUFFY!FUNK!'
  621. After all the rn kits are run you should have the following files:
  622.  
  623. Filename    Kit Description
  624. --------    --- -----------
  625. Configure        2  A shell script that installs everything system dependent.
  626. EXTERN.h         9  When included, makes other includes not belong to me.
  627. HACKERSGUIDE     5  A brief guide to the contorted innards of rn.
  628. INIT             3  Sample system-wide switch file. (NEW)
  629. INTERN.h         9  When included, makes other includes belong to me.
  630. MANIFEST         7  This list of files.
  631. Makefile.SH      7  The makefile.
  632. NEW              3  List of new features with 4.3 rn.
  633. Pnews.1          8  Manual page for Pnews.
  634. Pnews.SH         5  A news posting shell script that knows about -h.
  635. README           7  Installation instructions.
  636. Rnmail.1         8  Manual page for Rnmail.
  637. Rnmail.SH        7  A mailer that knows about -h.
  638. Wishlist         8  What the next version wants in it.
  639. addng.c          8  Routines for scanning the active file for new newsgroups.
  640. addng.h          9  Public info regarding addng.c.
  641. art.c            4  Routines to display an article.
  642. art.h            8  Public info regarding art.c.
  643. art.help.SH      7  Shell script for help at the article level.
  644. artio.c          8  Reserved for the article abstract type, someday.
  645. artio.h          8  Public info regarding artio.c.
  646. artsrch.c        6  Routines for searching among articles.
  647. artsrch.h        8  Public info regarding artsrch.c.
  648. artstate.h       8  Info on the current state of the article.
  649. backpage.c       8  Routines for paging backwards in articles.
  650. backpage.h       8  Public info regarding backpage.c.
  651. bits.c           3  Bitmap management functions.
  652. bits.h           8  Public info regarding bits.c.
  653. cheat.c          7  Routines to do lookahead of several types.
  654. cheat.h          8  Public info regarding cheat.c.
  655. common.h         3  Global info.
  656. final.c          7  Finalization (exit) routines.
  657. final.h          8  Public info regarding final.c.
  658. head.c           7  Header parsing routines.
  659. head.h           7  Public info regarding head.c.
  660. header.c.1.pat   8  DOXREFS patch for header.c for 2.10.1 news.
  661. header.c.2.pat   8  DOXREFS patch for header.c for 2.10.2 news.
  662. header.h.1.pat   8  DOXREFS patch for header.h for 2.10.1 news.
  663. header.h.2.pat   7  DOXREFS patch for header.h for 2.10.2 news.
  664. help.c           6  Help routines.
  665. help.h           9  Public info regarding help.c.
  666. inews.c.1.pat    6  DOXREFS and LINKART patches for 2.10.1 news.
  667. inews.c.2.pat    6  DOXREFS and LINKART patches for 2.10.2 news.
  668. init.c           1  Initialization (startup) routines.
  669. init.h           9  Public info regarding init.c.
  670. intrp.c          3  Filename expansion and % interpretation routines.
  671. intrp.h          8  Public info regarding intrp.c.
  672. kfile.c          7  KILL file routines.
  673. kfile.h          8  Public info regarding kfile.c.
  674. kitleader        8  Shell script to produce front of kit.
  675. kitlists.c       8  Knapsack packer.
  676. kittrailer       8  Shell script to produce end of kit.
  677. last.c           8  Routines for handling the .rnlast file.
  678. last.h           8  Public info regarding last.c.
  679. makedepend.SH    8  Shell script to generate make dependencies.
  680. makedir.SH       8  Shell script to make nested subdirectories.
  681. makedist         4  Shell script to make a distribution kit.
  682. makekit          8  Shell script to make a kit file.
  683. manifake         8  Shell script to make MANIFEST.new file.
  684. manimake         8  Shell script to make MANIFEST file.
  685. mbox.saver.SH    8  Shell script to save an article to a mailbox.
  686. ndir.c           8  4.2 directory routine emulation.
  687. ndir.h           8  Public info regarding ndir.c.
  688. newsetup.1       8  Manual page for newsetup.
  689. newsetup.SH      7  Shell script to create a .newsrc file.
  690. newsgroups.1     8  Manual page for newsgroups.
  691. newsgroups.SH    8  Shell script to list unsubscribed newsgroups.
  692. newsnews.SH      8  A motd-like file that rn may print at startup.
  693. ng.c             4  Routines to display a newsgroup.
  694. ng.h             1  Public info regarding ng.c.
  695. ng.help.SH       8  Shell script to do newsgroup selection help.
  696. ngdata.c         7  General data fetching routines for a newsgroup.
  697. ngdata.h         8  Public info regarding ngdata.c.
  698. ngsrch.c         7  Routines to search among newsgroups.
  699. ngsrch.h         8  Public info regarding ngsrch.c.
  700. ngstuff.c        4  Support routines for ng.c.
  701. ngstuff.h        8  Public info regarding ng.c.
  702. norm.saver.SH    8  Shell script to save an article to a normal file.
  703. only.c           8  Routines to perform newsgroup restriction.
  704. only.h           8  Public info regarding only.c.
  705. pager.help.SH    8  Shell script for help at the pager level.
  706. rcln.c           5  Routines to mung a .newsrc line.
  707. rcln.h           8  Public info regarding rcln.c.
  708. rcstuff.c        2  Routines to mung the .newsrc file.
  709. rcstuff.h        8  Public info regarding rcstuff.c.
  710. respond.c        6  Various routines for doing things with articles.
  711. respond.h        8  Public info regarding respond.c.
  712. rn.1             1  Manual pages for rn. PLEASE READ.
  713. rn.c             5  Main program.
  714. rn.h             8  Public info regarding rn.c.
  715. search.c         4  Regular expression processing ala emacs.
  716. search.h         8  Public info regarding search.c.
  717. subs.help.SH     8  Shell script for help for escape substitutions.
  718. sw.c             6  Switch processing routines.
  719. sw.h             9  Public info regarding switch.c.
  720. term.c           5  Terminal interface routines.
  721. term.h           7  Public info regarding term.c.
  722. util.c           6  Utility routines.
  723. util.h           8  Public info regarding util.c.
  724. !STUFFY!FUNK!
  725. echo Extracting Rnmail.SH
  726. cat >Rnmail.SH <<'!STUFFY!FUNK!'
  727. case $CONFIG in
  728.     '') . config.sh ;;
  729. esac
  730. echo "Extracting Rnmail (with variable substitutions)"
  731. $spitshell >Rnmail <<!GROK!THIS!
  732. $startsh
  733. # $Header: Rnmail.SH,v 4.3 85/05/01 11:34:18 lwall Exp $
  734. # 
  735. # $Log:    Rnmail.SH,v $
  736. # Revision 4.3  85/05/01  11:34:18  lwall
  737. # Baseline for release with 4.3bsd.
  738. # 
  739. #
  740. # syntax: Rnmail -h headerfile [oldart]        or
  741. #         Rnmail destination-list         or just
  742. #         Rnmail
  743.  
  744. export PATH || (echo "OOPS, this isn't sh.  Desperation time.  I will feed myself to sh."; sh \$0; kill \$\$)
  745.  
  746. # System dependencies
  747.  
  748. mailer="${mailer-/bin/mail}"
  749. # if you change this to something that does signatures, take out signature code
  750.  
  751. # your site name
  752. case $portable in
  753. define) sitename=\`$hostcmd\` ;;
  754. undef) sitename="$sitename" ;;
  755. esac
  756. # your organization name
  757. orgname="$orgname"
  758. # what pager you use--if you have kernal paging use cat
  759. pager="\${PAGER-$pager}"
  760. # how you derive full names, bsd, usg, or other
  761. nametype="$nametype"
  762. # default editor
  763. defeditor="$defeditor"
  764. # how not to do a newline with echo
  765. n="$n"
  766. c="$c"
  767.  
  768. test=${test-test}
  769. sed=${sed-sed}
  770. echo=${echo-echo}
  771. cat=${cat-cat}
  772. grep=${grep-grep}
  773. rm=${rm-rm}
  774.  
  775. !GROK!THIS!
  776. $spitshell >>Rnmail <<'!NO!SUBS!'
  777. tmpart=/tmp/rnmail$$
  778. dotdir=${DOTDIR-${HOME-$LOGDIR}}
  779.  
  780. headerfile=""
  781. case $# in
  782. 0) ;;
  783. *)  case $1 in
  784.     -h)
  785.     headerfile="$2"
  786.     case $# in
  787.     3) oldart=$3 ;;
  788.     esac
  789.     ;;
  790.     esac
  791.     ;;
  792. esac
  793.  
  794. case $headerfile in
  795. '')
  796.     case $# in
  797.     0)
  798.     to=h
  799.     while $test "$to" = h ; do
  800.         $echo ""
  801.         $echo $n "To: $c"
  802.         read to
  803.         case $to in
  804.         h)
  805.         $cat <<'EOH'
  806.  
  807. Type the net address of those people that you wish the message sent to.
  808. Note that you will be asked later for additional addresses of people to
  809. whom the message is not addressed but you wish to get copies.
  810.  
  811. Separate multiple addresses with spaces.
  812.  
  813. EOH
  814.         ;;
  815.         esac
  816.     done
  817.     ;;
  818.     *)
  819.     to="$*"
  820.     ;;
  821.     esac
  822.     to=`$echo "$to" | $sed 's/  */ /g'`
  823.  
  824.     title=h
  825.     while $test "$title" = h ; do
  826.     $echo ""
  827.     $echo $n "Title/Subject: $c"
  828.     read title
  829.     case $title in
  830.     h)
  831.         $cat <<'EOH'
  832.  
  833. Type the title for your message.  
  834. EOH
  835.         ;;
  836.     esac
  837.     done
  838.  
  839. # now build a file with a header for them to edit
  840.     
  841.     orgname=${ORGANIZATION-$orgname}
  842.     case $orgname in
  843.     /*) orgname=`$cat $orgname` ;;
  844.     esac
  845.  
  846.     $cat > $tmpart <<EOHeader
  847. To: $to
  848. Subject: $title
  849. Organization: $orgname
  850. Cc:
  851. Bcc:
  852.  
  853. EOHeader
  854.  
  855.     ;;
  856. *)
  857.     $cat < $headerfile  > $tmpart
  858.     ;;
  859. esac
  860.  
  861.  
  862. file=h
  863. while $test "$file" = h ; do
  864.     $echo ""
  865.     $echo $n "Prepared file to include [none]: $c"
  866.     read file
  867.     case $file in
  868.     h)
  869.     $cat <<'EOH'
  870.  
  871. If you have already produced the body of your message, type the filename
  872. for it here.  If you just want to proceed directly to the editor, type a
  873. RETURN.  In any event, you will be allowed to edit as many times as you
  874. want before you send off the message.
  875. EOH
  876.     ;;
  877.     '')
  878.     $echo "" >> $tmpart
  879.     state=edit
  880.     ;;
  881.     *)
  882.     $cat $file >>$tmpart
  883.     state=ask
  884.     ;;
  885.     esac
  886. done
  887.  
  888. $echo ""
  889.  
  890. while true ; do
  891.     case $state in
  892.     edit)
  893.     rescue="sleep 1; $cat $tmpart >>${HOME-$LOGDIR}/dead.letter ; $echo saved in ${HOME-$LOGDIR}/dead.letter ; $rm -f $tmpart; exit"
  894.     trap "$rescue" 1
  895.     trap : 2
  896.     tmp=h
  897.     while $test "$tmp" = h ; do
  898.         $echo $n "Editor [${VISUAL-${EDITOR-$defeditor}}]: $c"
  899.         read tmp
  900.         case $tmp in
  901.         h)
  902.         $cat <<'EOH'
  903.  
  904. Type a return to get the default editor, or type the name of the editor you
  905. prefer.  The default editor depends on the VISUAL and EDITOR environment
  906. variables.
  907.  
  908. EOH
  909.         ;;
  910.         '')
  911.         ;;
  912.         *)
  913.         VISUAL=$tmp
  914.         export VISUAL
  915.         ;;
  916.         esac
  917.     done
  918.     ${VISUAL-${EDITOR-$defeditor}} $tmpart $oldart
  919.     trap "$rescue" 2
  920.     state=ask
  921.     ;;
  922.     
  923.     ask)
  924.     $echo ""
  925.     $echo $n "Send, abort, edit, or list? $c"
  926.     read ans
  927.     
  928.     case $ans in
  929.     a*)
  930.         state=rescue
  931.         ;;
  932.     e*)
  933.         state=edit
  934.         ;;
  935.     l*)
  936.         $pager $tmpart
  937.         state=ask
  938.         ;;
  939.     s*)
  940.         state=send
  941.         ;;
  942.     h*)
  943.         $cat <<'EOH'
  944.  
  945. Type s to send the message, a to abort and append the message to dead.letter,
  946. e to edit the message again, or l to list the message.
  947. EOH
  948.     esac
  949.     ;;
  950.     
  951.     send)
  952.     if $test -f $dotdir/.signature; then
  953.         echo $n "Append .signature file? [y] $c"
  954.         read ans
  955.         case $ans in
  956.         ''|y*) cat $dotdir/.signature >> $tmpart
  957.         esac
  958.     fi
  959.     case $mailer in
  960.     *sendmail)
  961.         $mailer -t <$tmpart
  962.         ;;
  963. # but recmail does not know about Bcc, alas
  964.     *recmail)
  965.         $mailer <$tmpart
  966.         ;;
  967.     *)
  968.         set X `$sed <$tmpart -n -e '/^To:/{' -e 's/To: *//p' -e q -e '}'`
  969.         shift
  970.         set X "$@" `$sed <$tmpart -n -e '/^Cc:/{' -e 's/Cc: *//p' -e q -e '}'`
  971.         shift
  972.         set X "$@" `$sed <$tmpart -n -e '/^Bcc:/{' -e 's/Bcc: *//p' -e q -e '}'`
  973.         shift
  974.         $grep -v "^Bcc:"  <$tmpart | $mailer "$@"
  975.         ;;
  976.     esac
  977.     case $? in
  978.     0)
  979.         state=cleanup
  980.         ;;
  981.     *)
  982.         state=rescue
  983.         ;;
  984.     esac
  985.     ;;
  986.     rescue)
  987.     $cat $tmpart >> ${HOME-$LOGDIR}/dead.letter
  988.     $echo "Message saved to ${HOME-$LOGDIR}/dead.letter"
  989.     state=cleanup
  990.     ;;
  991.     cleanup)
  992.     $rm -f $tmpart
  993.     exit
  994.     ;;
  995.     esac
  996. done
  997. !NO!SUBS!
  998. $eunicefix Rnmail
  999. chmod 755 Rnmail
  1000. !STUFFY!FUNK!
  1001. echo Extracting kfile.c
  1002. cat >kfile.c <<'!STUFFY!FUNK!'
  1003. /* $Header: kfile.c,v 4.3 85/05/01 11:41:53 lwall Exp $
  1004.  *
  1005.  * $Log:    kfile.c,v $
  1006.  * Revision 4.3  85/05/01  11:41:53  lwall
  1007.  * Baseline for release with 4.3bsd.
  1008.  * 
  1009.  */
  1010.  
  1011. #include "EXTERN.h"
  1012. #include "common.h"
  1013. #include "term.h"
  1014. #include "util.h"
  1015. #include "artsrch.h"
  1016. #include "ng.h"
  1017. #include "bits.h"
  1018. #include "intrp.h"
  1019. #include "ngstuff.h"
  1020. #include "rcstuff.h"
  1021. #include "rn.h"
  1022. #include "INTERN.h"
  1023. #include "kfile.h"
  1024.  
  1025. static bool exitcmds = FALSE;
  1026.  
  1027. void
  1028. kfile_init()
  1029. {
  1030.     ;
  1031. }
  1032.  
  1033. #ifndef KILLFILES
  1034. int
  1035. edit_kfile()
  1036. {
  1037.     notincl("^K");
  1038.     return -1;
  1039. }
  1040.  
  1041. #else KILLFILES
  1042.  
  1043. char killglobal[] = KILLGLOBAL;
  1044. char killlocal[] = KILLLOCAL;
  1045.  
  1046. void
  1047. mention(str)
  1048. char *str;
  1049. {
  1050. #ifdef NOFIREWORKS
  1051.     no_sofire();
  1052. #endif
  1053.     standout();
  1054.     fputs(str,stdout);
  1055.     un_standout();
  1056.     putchar('\n');
  1057.     fflush(stdout);
  1058. }
  1059.  
  1060. int
  1061. do_kfile(kfp,entering)
  1062. FILE *kfp;
  1063. int entering;
  1064. {
  1065.     art = lastart+1;
  1066.     fseek(kfp,0L,0);            /* rewind file */
  1067.     while (fgets(buf,LBUFLEN,kfp) != Nullch) {
  1068.     buf[strlen(buf)-1] = '\0';
  1069.     if (strnEQ(buf,"THRU",4)) {
  1070.         firstart = atol(buf+4)+1;
  1071.         continue;
  1072.     }
  1073.     if (*buf == 'X') {        /* exit command? */
  1074.         if (entering) {
  1075.         exitcmds = TRUE;
  1076.         continue;
  1077.         }
  1078.         strcpy(buf,buf+1);
  1079.     }
  1080.     else {
  1081.         if (!entering)
  1082.         continue;
  1083.     }
  1084.     if (*buf == '&') {
  1085.         mention(buf);
  1086.         switcheroo();
  1087.     }
  1088.     else if (*buf == '/' && firstart <= lastart) {
  1089.         mention(buf);
  1090.         switch (art_search(buf, (sizeof buf), FALSE)) {
  1091.         case SRCH_ABORT:
  1092.         continue;
  1093.         case SRCH_INTR:
  1094. #ifdef VERBOSE
  1095.         IF(verbose)
  1096.             printf("\n(Interrupted at article %ld)\n",(long)art)
  1097.               FLUSH;
  1098.         ELSE
  1099. #endif
  1100. #ifdef TERSE
  1101.             printf("\n(Intr at %ld)\n",(long)art) FLUSH;
  1102. #endif
  1103.         return -1;
  1104.         case SRCH_DONE:
  1105.         break;
  1106.         case SRCH_SUBJDONE:
  1107.         fputs("\tsubject not found (???)\n",stdout) FLUSH;
  1108.         break;
  1109.         case SRCH_NOTFOUND:
  1110.         fputs("\tnot found\n",stdout) FLUSH;
  1111.         break;
  1112.         case SRCH_FOUND:
  1113.         fputs("\tfound\n",stdout) FLUSH;
  1114.         }
  1115.     }
  1116.     }
  1117.     return 0;
  1118. }
  1119.  
  1120. void
  1121. kill_unwanted(starting,message,entering)
  1122. ART_NUM starting;
  1123. char *message;
  1124. int entering;
  1125. {
  1126.     bool intr = FALSE;            /* did we get an interrupt? */
  1127.     ART_NUM oldfirst;
  1128.     bool anytokill = (toread[ng] > 0);
  1129.  
  1130.     if (localkfp || globkfp) {
  1131.     if (!entering && !exitcmds)
  1132.         return;
  1133.     exitcmds = FALSE;
  1134.     oldfirst = firstart;
  1135.     firstart = starting;
  1136.     clear();
  1137.     if (message)
  1138.         fputs(message,stdout) FLUSH;
  1139.     if (localkfp)
  1140.         intr = do_kfile(localkfp,entering);
  1141.     if (globkfp && !intr)
  1142.         intr = do_kfile(globkfp,entering);
  1143.     if (entering && localkfp && !intr)
  1144.         setthru(lastart);
  1145.     putchar('\n') FLUSH;
  1146.     if (entering)
  1147.         get_anything();
  1148.     if (anytokill)            /* if there was anything to kill */
  1149.         forcelast = FALSE;        /* allow for having killed it all */
  1150.     firstart = oldfirst;
  1151.     }
  1152. }
  1153.  
  1154. void
  1155. setthru(thru)
  1156. ART_NUM thru;
  1157. {
  1158.     FILE *newkfp;
  1159.  
  1160.     fseek(localkfp,0L,0);        /* rewind current file */
  1161.     strcpy(buf,filexp(getval("KILLLOCAL",killlocal)));
  1162.     UNLINK(buf);            /* to prevent file reuse */
  1163.     if (newkfp = fopen(buf,"w")) {
  1164.     fprintf(newkfp,"THRU %ld\n",(long)thru);
  1165.     while (fgets(buf,LBUFLEN,localkfp) != Nullch) {
  1166.         if (strnEQ(buf,"THRU",4))
  1167.         continue;
  1168.         fputs(buf,newkfp);
  1169.     }
  1170.     fclose(newkfp);
  1171.     open_kfile(KF_LOCAL);        /* and reopen local file */
  1172.     }
  1173.     else
  1174.     printf(cantcreate,buf) FLUSH;
  1175. }
  1176.  
  1177. /* edit KILL file for newsgroup */
  1178.  
  1179. int
  1180. edit_kfile()
  1181. {
  1182.     int r = -1;
  1183.  
  1184.     if (in_ng)
  1185.     strcpy(buf,filexp(getval("KILLLOCAL",killlocal)));
  1186.     else
  1187.     strcpy(buf,filexp(getval("KILLGLOBAL",killglobal)));
  1188.     if ((r = makedir(buf,MD_FILE)) >= 0) {
  1189.     sprintf(cmd_buf,"%s %s",
  1190.         filexp(getval("VISUAL",getval("EDITOR",defeditor))),buf);
  1191.     printf("\nEditing %s KILL file:\n%s\n",
  1192.         (in_ng?"local":"global"),cmd_buf) FLUSH;
  1193.     resetty();            /* make sure tty is friendly */
  1194.     r = doshell(sh,cmd_buf);/* invoke the shell */
  1195.     noecho();            /* and make terminal */
  1196.     crmode();            /*   unfriendly again */
  1197.     open_kfile(in_ng);
  1198.     }
  1199.     else
  1200.     printf("Can't make %s\n",buf) FLUSH;
  1201.     return r;
  1202. }
  1203.  
  1204. void
  1205. open_kfile(local)
  1206. int local;
  1207. {
  1208.     char *kname = filexp(local ?
  1209.     getval("KILLLOCAL",killlocal) :
  1210.     getval("KILLGLOBAL",killglobal)
  1211.     );
  1212.     
  1213.     stat(kname,&filestat);
  1214.     if (!filestat.st_size)        /* nothing in the file? */
  1215.     UNLINK(kname);            /* delete the file */
  1216.     if (local) {
  1217.     if (localkfp)
  1218.         fclose(localkfp);
  1219.     localkfp = fopen(kname,"r");
  1220.     }
  1221.     else {
  1222.     if (globkfp)
  1223.         fclose(globkfp);
  1224.     globkfp = fopen(kname,"r");
  1225.     }
  1226. }
  1227.  
  1228. void
  1229. kf_append(cmd)
  1230. char *cmd;
  1231. {
  1232.     strcpy(cmd_buf,filexp(getval("KILLLOCAL",killlocal)));
  1233.     if (makedir(cmd_buf,MD_FILE) >= 0) {
  1234. #ifdef VERBOSE
  1235.     IF(verbose)
  1236.         printf("\nDepositing command in %s...",cmd_buf);
  1237.     ELSE
  1238. #endif
  1239. #ifdef TERSE
  1240.         printf("\n--> %s...",cmd_buf);
  1241. #endif
  1242.     fflush(stdout);
  1243.     sleep(2);
  1244.     if ((tmpfp = fopen(cmd_buf,"a")) != Nullfp) {
  1245.         fseek(tmpfp,0L,2);        /* get to EOF for sure */
  1246.         fprintf(tmpfp,"%s\n",cmd);
  1247.         fclose(tmpfp);
  1248.         fputs("done\n",stdout) FLUSH;
  1249.     }
  1250.     else
  1251.         printf(cantopen,cmd_buf) FLUSH;
  1252.     }
  1253. }
  1254. #endif KILLFILES
  1255. !STUFFY!FUNK!
  1256. echo Extracting ngdata.c
  1257. cat >ngdata.c <<'!STUFFY!FUNK!'
  1258. /* $Header: ngdata.c,v 4.3 85/05/01 11:44:38 lwall Exp $
  1259.  *
  1260.  * $Log:    ngdata.c,v $
  1261.  * Revision 4.3  85/05/01  11:44:38  lwall
  1262.  * Baseline for release with 4.3bsd.
  1263.  * 
  1264.  */
  1265.  
  1266. #include "EXTERN.h"
  1267. #include "common.h"
  1268. #include "ndir.h"
  1269. #include "rcstuff.h"
  1270. #include "rn.h"
  1271. #include "intrp.h"
  1272. #include "final.h"
  1273. #include "rcln.h"
  1274. #include "INTERN.h"
  1275. #include "ngdata.h"
  1276.  
  1277. void
  1278. ngdata_init()
  1279. {
  1280. /* The following is only for systems that do not zero globals properly */
  1281. #ifdef ZEROGLOB
  1282. # ifdef CACHEFIRST
  1283.     for (i=0; i<MAXRCLINE; i++)
  1284.     abs1st[i] = 0;
  1285. # endif
  1286. #endif    /* ZEROGLOB */
  1287.  
  1288.     /* open the active file */
  1289.  
  1290.     actfp = fopen(filexp(ACTIVE),"r");
  1291.     if (actfp == Nullfp) {
  1292.     printf(cantopen,filexp(ACTIVE)) FLUSH;
  1293.     finalize(1);
  1294.     }
  1295. }
  1296.  
  1297. /* find the maximum article number of a newsgroup */
  1298.  
  1299. ART_NUM
  1300. getngsize(num)
  1301. register NG_NUM num;
  1302. {
  1303.     register int len;
  1304.     register char *nam;
  1305.     char tmpbuf[80];
  1306.     ART_POS oldsoft;
  1307.  
  1308.     nam = rcline[num];
  1309.     len = rcnums[num] - 1;
  1310.     softtries++;
  1311. #ifdef DEBUGGING
  1312.     if (debug & DEB_SOFT_POINTERS)
  1313.     printf("Softptr = %ld\n",(long)softptr[num]) FLUSH;
  1314. #endif
  1315.     oldsoft = softptr[num];
  1316.     if ((softptr[num] = findact(tmpbuf, nam, len, (long)oldsoft)) >= 0) {
  1317.     if (softptr[num] != oldsoft) {
  1318.         softmisses++;
  1319.         writesoft = TRUE;
  1320.     }
  1321.     }
  1322.     else {
  1323.     softptr[num] = 0;
  1324.     if (rcchar[num] == ':')        /* unsubscribe quietly */
  1325.         rcchar[num] = NEGCHAR;
  1326.     return TR_BOGUS;        /* well, not so quietly, actually */
  1327.     }
  1328.     
  1329. #ifdef DEBUGGING
  1330.     if (debug & DEB_SOFT_POINTERS) {
  1331.     printf("Should be %ld\n",(long)softptr[num]) FLUSH;
  1332.     }
  1333. #endif
  1334. #ifdef MININACT
  1335.     {
  1336.     register char *s;
  1337.     ART_NUM tmp;
  1338.  
  1339.     for (s=tmpbuf+len+1; isdigit(*s); s++) ;
  1340.     if (tmp = atol(s))
  1341. #ifdef CACHEFIRST
  1342.         abs1st[num] = tmp;
  1343. #else
  1344.         abs1st = tmp;
  1345. #endif
  1346.     }
  1347. #endif
  1348.     return atol(tmpbuf+len+1);
  1349. }
  1350.  
  1351. ACT_POS
  1352. findact(outbuf,nam,len,suggestion)
  1353. char *outbuf;
  1354. char *nam;
  1355. int len;
  1356. long suggestion;
  1357. {
  1358.     ACT_POS retval;
  1359.  
  1360.     fseek(actfp,100000L,1);    /* hopefully this forces a reread */
  1361.     if (suggestion == 0L || fseek(actfp,suggestion,0) < 0 ||
  1362.       fgets(outbuf,80,actfp) == Nullch ||
  1363.       outbuf[len] != ' ' ||
  1364.       strnNE(outbuf,nam,len)) {
  1365. #ifdef DEBUGGING
  1366.     if (debug & DEB_SOFT_POINTERS)
  1367.         printf("Missed, looking for %s in %sLen = %d\n",nam,outbuf,len)
  1368.           FLUSH;
  1369. #endif
  1370.     fseek(actfp,0L,0);
  1371. #ifndef lint
  1372.     retval = (ACT_POS)ftell(actfp);
  1373. #else
  1374.     retval = Null(ACT_POS);
  1375. #endif lint
  1376.     while (fgets(outbuf,80,actfp) != Nullch) {
  1377.         if (outbuf[len] == ' ' && strnEQ(outbuf,nam,len))
  1378.         return retval;
  1379. #ifndef lint
  1380.         retval = (ACT_POS) ftell(actfp);
  1381. #endif lint
  1382.     }
  1383.     return (ACT_POS) -1;        /* well, not so quietly, actually */
  1384.     }
  1385.     else
  1386. #ifndef lint
  1387.     return (ACT_POS) suggestion;
  1388. #else
  1389.     return retval;
  1390. #endif lint
  1391.     /*NOTREACHED*/
  1392. }
  1393.  
  1394. /* determine the absolutely first existing article number */
  1395.  
  1396. ART_NUM
  1397. getabsfirst(ngnum,ngsize)
  1398. register NG_NUM ngnum;
  1399. ART_NUM ngsize;
  1400. {
  1401.     register ART_NUM a1st;
  1402. #ifndef MININACT
  1403.     char dirname[MAXFILENAME];
  1404. #endif
  1405.  
  1406. #ifdef CACHEFIRST
  1407.     if (a1st = abs1st[ngnum])
  1408.     return a1st;
  1409. #endif
  1410. #ifdef MININACT
  1411.     getngsize(ngnum);
  1412. # ifdef CACHEFIRST
  1413.     return abs1st[ngnum];
  1414. # else
  1415.     return abs1st;
  1416. # endif
  1417. #else not MININACT
  1418.     sprintf(dirname,"%s/%s",spool,getngdir(rcline[ngnum]));
  1419.     a1st = getngmin(dirname,0L);
  1420.     if (!a1st)                /* nothing there at all? */
  1421.     a1st = ngsize+1;        /* aim them at end of newsgroup */
  1422. # ifdef CACHEFIRST
  1423.     abs1st[ngnum] = a1st;
  1424. # endif
  1425.     return a1st;
  1426. #endif MININACT
  1427. }
  1428.  
  1429. /* scan a directory for minimum article number greater than floor */
  1430.  
  1431. ART_NUM
  1432. getngmin(dirname,floor)
  1433. char *dirname;
  1434. ART_NUM floor;
  1435. {
  1436.     register DIR *dirp;
  1437.     register struct direct *dp;
  1438.     register ART_NUM min = 1000000;
  1439.     register ART_NUM maybe;
  1440.     register char *p;
  1441.     char tmpbuf[128];
  1442.     
  1443.     dirp = opendir(dirname);
  1444.     if (!dirp)
  1445.     return 0;
  1446.     while ((dp = readdir(dirp)) != Null(struct direct *)) {
  1447.     if ((maybe = atol(dp->d_name)) < min && maybe > floor) {
  1448.         for (p = dp->d_name; *p; p++)
  1449.         if (!isdigit(*p))
  1450.             goto nope;
  1451.         if (*dirname == '.' && !dirname[1])
  1452.         stat(dp->d_name, &filestat);
  1453.         else {
  1454.         sprintf(tmpbuf,"%s/%s",dirname,dp->d_name);
  1455.         stat(tmpbuf, &filestat);
  1456.         }
  1457.         if (! (filestat.st_mode & S_IFDIR))
  1458.         min = maybe;
  1459.     }
  1460.       nope:
  1461.     ;
  1462.     }
  1463.     closedir(dirp);
  1464.     return min==1000000 ? 0 : min;
  1465. }
  1466.  
  1467. !STUFFY!FUNK!
  1468. echo Extracting final.c
  1469. cat >final.c <<'!STUFFY!FUNK!'
  1470. /* $Header: final.c,v 4.3 85/05/01 11:38:08 lwall Exp $
  1471.  *
  1472.  * $Log:    final.c,v $
  1473.  * Revision 4.3  85/05/01  11:38:08  lwall
  1474.  * Baseline for release with 4.3bsd.
  1475.  * 
  1476.  */
  1477.  
  1478. #include "EXTERN.h"
  1479. #include "common.h"
  1480. #include "util.h"
  1481. #include "term.h"
  1482. #include "ng.h"
  1483. #include "init.h"
  1484. #include "bits.h"
  1485. #include "last.h"
  1486. #include "rcstuff.h"
  1487. #include "INTERN.h"
  1488. #include "final.h"
  1489.  
  1490. void
  1491. final_init()
  1492. {
  1493. #ifdef SIGTSTP
  1494.     sigset(SIGTSTP, stop_catcher);    /* job control signals */
  1495.     sigset(SIGCONT, cont_catcher);    /* job control signals */
  1496. #endif
  1497.  
  1498.     sigset(SIGINT, int_catcher);    /* always catch interrupts */
  1499.     sigset(SIGHUP, sig_catcher);    /* and hangups */
  1500. #ifndef lint
  1501.     sigignore(SIGEMT);
  1502. #endif lint
  1503.  
  1504.     sigset(SIGILL, sig_catcher);
  1505.     sigset(SIGTRAP, sig_catcher);
  1506.     sigset(SIGFPE, sig_catcher);
  1507.     sigset(SIGBUS, sig_catcher);
  1508.     sigset(SIGSEGV, sig_catcher);
  1509.     sigset(SIGSYS, sig_catcher);
  1510.     sigset(SIGTERM, sig_catcher);
  1511. #ifdef SIGXCPU
  1512.     sigset(SIGXCPU, sig_catcher);
  1513. #endif
  1514. #ifdef SIGXFSZ
  1515.     sigset(SIGXFSZ, sig_catcher);
  1516. #endif
  1517. }
  1518.  
  1519. void                    /* very much void */
  1520. finalize(status)
  1521. int status;
  1522. {
  1523.     if (bizarre)
  1524.     resetty();
  1525.     UNLINK(lockname);
  1526.     if (status < 0) {
  1527.     chdir("/usr/tmp");
  1528.     sigset(SIGILL,SIG_DFL);
  1529.     abort();
  1530.     }
  1531.     exit(status);
  1532. }
  1533.  
  1534. /* come here on interrupt */
  1535.  
  1536. int
  1537. int_catcher()
  1538. {
  1539.     sigset(SIGINT,int_catcher);
  1540. #ifdef DEBUGGING
  1541.     if (debug)
  1542.     write(2,"int_catcher\n",12);
  1543. #endif
  1544.     if (!waiting) {
  1545.     if (int_count) {        /* was there already an interrupt? */
  1546.         write(2,"\nBye-bye.\n",10);
  1547.         sig_catcher(0);        /* emulate the other signals */
  1548.     }
  1549.     int_count++;
  1550.     }
  1551. }
  1552.  
  1553. /* come here on signal other than interrupt, stop, or cont */
  1554.  
  1555. int
  1556. sig_catcher(signo)
  1557. {
  1558. #ifdef VERBOSE
  1559.     static char *signame[] = {
  1560.     "",
  1561.     "HUP",
  1562.     "INT",
  1563.     "QUIT",
  1564.     "ILL",
  1565.     "TRAP",
  1566.     "IOT",
  1567.     "EMT",
  1568.     "FPE",
  1569.     "KILL",
  1570.     "BUS",
  1571.     "SEGV",
  1572.     "SYS",
  1573.     "PIPE",
  1574.     "ALRM",
  1575.     "TERM",
  1576.     "???"
  1577. #ifdef SIGTSTP
  1578.     ,"STOP",
  1579.     "TSTP",
  1580.     "CONT",
  1581.     "CHLD",
  1582.     "TTIN",
  1583.     "TTOU",
  1584.     "TINT",
  1585.     "XCPU",
  1586.     "XFSZ"
  1587. #ifdef SIGPROF
  1588.     ,"VTALARM",
  1589.     "PROF"
  1590. #endif
  1591. #endif
  1592.     };
  1593. #endif
  1594.  
  1595. #ifdef SIGTTOU
  1596. #ifndef lint
  1597.     sigignore(SIGTTOU);
  1598. #endif lint
  1599. #endif
  1600. #ifdef DEBUGGING
  1601.     if (debug) {
  1602.     printf("\nSIG%s--.newsrc not restored in debug\n",signame[signo]);
  1603.     finalize(-1);
  1604.     }
  1605. #endif
  1606.     if (panic)
  1607.     abort();
  1608.     (void) sigset(SIGILL,SIG_DFL);
  1609.     panic = TRUE;            /* disable terminal I/O */
  1610.     if (doing_ng) {            /* need we reconstitute rc line? */
  1611.     yankback();
  1612.     restore_ng();            /* then do so (hope this works) */
  1613.     }
  1614.     doing_ng = FALSE;
  1615.     if (rc_changed)            /* need we write .newsrc out? */
  1616.     write_rc();            /* then do so */
  1617.     rc_changed = FALSE;
  1618.     if (signo != SIGHUP)
  1619. #ifdef VERBOSE
  1620.     IF(verbose)
  1621.         printf("\nCaught %s%s--.newsrc restored\n",
  1622.         signo ? "a SIG" : "an internal error", signame[signo]);
  1623.     ELSE
  1624. #endif
  1625. #ifdef TERSE
  1626.         printf("\nSignal %d--bye bye\n",signo);
  1627. #endif
  1628.     switch (signo) {
  1629.     case SIGBUS:
  1630.     case SIGILL:
  1631.     case SIGSEGV:
  1632.     finalize(-signo);
  1633.     }
  1634.     finalize(1);                /* and blow up */
  1635. }
  1636.  
  1637. #ifdef SIGTSTP
  1638. /* come here on stop signal */
  1639.  
  1640. int
  1641. stop_catcher()
  1642. {
  1643.     if (!waiting) {
  1644.     checkpoint_rc();        /* good chance of crash while stopped */
  1645.     resetty();            /* this is the point of all this */
  1646. #ifdef DEBUGGING
  1647.     if (debug)
  1648.         write(2,"stop_catcher\n",13);
  1649. #endif
  1650.     sigset(SIGTSTP,SIG_DFL);    /* enable stop */
  1651. #ifdef BSD42
  1652.     sigsetmask(sigblock(0) & ~(1 << (SIGTSTP-1)));
  1653. #endif
  1654.     kill(0,SIGTSTP);        /* and do the stop */
  1655.     }
  1656.     sigset(SIGTSTP,stop_catcher);    /* unenable the stop */
  1657. }
  1658.  
  1659. /* come here on cont signal */
  1660.  
  1661. int
  1662. cont_catcher()
  1663. {
  1664.     sigset(SIGCONT,cont_catcher);
  1665.     savetty();
  1666. #ifdef MAILCALL;
  1667.     mailcount = 0;            /* force recheck */
  1668. #endif
  1669.     if (!panic) {
  1670.     if (!waiting) {
  1671. #ifdef DEBUGGING
  1672.         if (debug)
  1673.         write(2,"cont_catcher\n",13);
  1674. #endif
  1675.         noecho();            /* set no echo */
  1676.         crmode();            /* set cbreak mode */
  1677.         forceme("\f");        /* cause a refresh */
  1678.                     /* (defined only if TIOCSTI defined) */
  1679.     }
  1680.     }
  1681. }
  1682. #endif
  1683.  
  1684. !STUFFY!FUNK!
  1685. echo Extracting head.h
  1686. cat >head.h <<'!STUFFY!FUNK!'
  1687. /* $Header: head.h,v 4.3 85/05/01 11:38:31 lwall Exp $
  1688.  *
  1689.  * $Log:    head.h,v $
  1690.  * Revision 4.3  85/05/01  11:38:31  lwall
  1691.  * Baseline for release with 4.3bsd.
  1692.  * 
  1693.  */
  1694.  
  1695. #define HEAD_FIRST 1
  1696.  
  1697. /* types of header lines (if only C really believed in enums)
  1698.  * (These must stay in alphabetic order at least in the first letter.
  1699.  * Within each letter it helps to arrange in increasing likelihood.)
  1700.  */
  1701.  
  1702. #define PAST_HEADER    0    /* body */
  1703. #define SOME_LINE    1    /* unrecognized */
  1704. #define ARTID_LINE    2    /* article-i.d. */
  1705. #define APPR_LINE    3    /* approved */
  1706. #define DIST_LINE    4    /* distribution */
  1707. #define DATE_LINE    5    /* date */
  1708. #define RECEIVED_LINE    6    /* date-received */
  1709. #define EXPIR_LINE    7    /* expires */
  1710. #define FOLLOW_LINE    8    /* followup-to */
  1711. #define FROM_LINE    9    /* from */
  1712. #define KEYW_LINE    10    /* keywords */
  1713. #define LINES_LINE    11    /* lines */
  1714. #define MESSID_LINE    12    /* message-id */
  1715. #define NFFR_LINE    13    /* nf-from */
  1716. #define NFID_LINE    14    /* nf-id */
  1717. #define NGS_LINE    15    /* newsgroups */
  1718. #define ORG_LINE    16    /* organization */
  1719. #define PATH_LINE    17    /* path */
  1720. #define POSTED_LINE    18    /* posted */
  1721. #define PVER_LINE    19    /* posting-version */
  1722. #define REPLY_LINE    20    /* reply-to */
  1723. #define REFS_LINE    21    /* references */
  1724. #define RVER_LINE    22    /* relay-version */
  1725. #define SENDER_LINE    23    /* sender */
  1726. #define SUMRY_LINE    24    /* summary */
  1727. #define SUBJ_LINE    25    /* subject */
  1728. #define XREF_LINE    26    /* xref */
  1729.  
  1730. #define HEAD_LAST    27    /* one more than the last one above */
  1731.  
  1732. struct headtype {
  1733.     char *ht_name;        /* header line identifier */
  1734. #ifdef pdp11
  1735.     short ht_minpos;
  1736.     short ht_maxpos;
  1737. #else
  1738.     ART_POS ht_minpos;        /* pointer to beginning of line in article */
  1739.     ART_POS ht_maxpos;        /* pointer to end of line in article */
  1740. #endif
  1741.     char ht_length;        /* could make these into nybbles but */
  1742.     char ht_flags;        /* it wouldn't save space normally */
  1743. };                /* due to alignment considerations */
  1744.  
  1745. #define HT_HIDE 1    /* -h on this line */
  1746. #define HT_MAGIC 2    /* do any special processing on this line */
  1747.  
  1748. /* This array must stay in the same order as the list above */
  1749.  
  1750. #ifndef DOINIT
  1751. EXT struct headtype htype[HEAD_LAST];
  1752. #else
  1753. struct headtype htype[HEAD_LAST] = {
  1754.  /* name             minpos   maxpos  length   flag */
  1755.     {"BODY",        0,    0,    4,    0        },
  1756.     {"unrecognized",    0,    0,    12,    0        },
  1757.     {"article-i.d.",    0,    0,    12,    HT_HIDE        },
  1758.     {"approved",    0,    0,    8,    HT_HIDE        },
  1759.     {"distribution",    0,    0,    12,    0        },
  1760.     {"date",        0,    0,    4,    0        },
  1761.     {"date-received",    0,    0,    13,    0        },
  1762.     {"expires",        0,    0,    7,    HT_HIDE|HT_MAGIC},
  1763.     {"followup-to",    0,    0,    11,    0        },
  1764.     {"from",        0,    0,    4,    0        },
  1765.     {"keywords",    0,    0,    8,    0        },
  1766.     {"lines",        0,    0,    5,    0        },
  1767.     {"message-id",    0,    0,    10,    0        },
  1768.     {"nf-from",        0,    0,    7,    HT_HIDE        },
  1769.     {"nf-id",        0,    0,    5,    HT_HIDE        },
  1770.     {"newsgroups",    0,    0,    10,    HT_MAGIC|HT_HIDE},
  1771.     {"organization",    0,    0,    12,    0        },
  1772.     {"path",        0,    0,    4,    HT_HIDE        },
  1773.     {"posted",        0,    0,    6,    HT_HIDE        },
  1774.     {"posting-version",    0,    0,    15,    HT_HIDE        },
  1775.     {"reply-to",    0,    0,    8,    0        },
  1776.     {"references",    0,    0,    10,    0        },
  1777.     {"relay-version",    0,    0,    13,    HT_HIDE        },
  1778.     {"sender",        0,    0,    6,    0        },
  1779.     {"summary",        0,    0,    7,    0        },
  1780.     {"subject",        0,    0,    7,    HT_MAGIC    },
  1781.     {"xref",        0,    0,    4,    HT_HIDE        }
  1782. };
  1783. #endif
  1784.  
  1785. #ifdef ASYNC_PARSE
  1786. EXT ART_NUM parsed_art INIT(0);
  1787. #endif
  1788.  
  1789. EXT char in_header INIT(0);        /* are we decoding the header? */
  1790.  
  1791. #ifdef CACHESUBJ
  1792.     EXT char **subj_list INIT(Null(char **));
  1793. #endif
  1794.  
  1795. void    head_init();
  1796. int    set_line_type();
  1797. void    start_header();
  1798. bool    parseline();
  1799. #ifdef ASYNC_PARSE
  1800.     int        parse_maybe();
  1801. #endif
  1802. char    *fetchsubj();
  1803. char    *fetchlines();
  1804. !STUFFY!FUNK!
  1805. echo Extracting newsetup.SH
  1806. cat >newsetup.SH <<'!STUFFY!FUNK!'
  1807. case $CONFIG in
  1808.     '') . config.sh ;;
  1809. esac
  1810. echo "Extracting newsetup (with variable substitutions)"
  1811. $spitshell >newsetup <<!GROK!THIS!
  1812. $startsh
  1813. # $Header: newsetup.SH,v 4.3 85/05/01 11:43:05 lwall Exp $
  1814. # 
  1815. # $Log:    newsetup.SH,v $
  1816. # Revision 4.3  85/05/01  11:43:05  lwall
  1817. # Baseline for release with 4.3bsd.
  1818. # 
  1819.  
  1820. export PATH || (echo "OOPS, this isn't sh.  Desperation time.  I will feed myself to sh."; sh \$0; kill \$\$)
  1821.  
  1822. : syntax: newsetup
  1823.  
  1824. : System dependencies
  1825. : You will want to change the definitions below to reflect the distribution
  1826. : areas around you.  If you have more areas than this you will need to modify
  1827. : the sed below.
  1828.  
  1829. locorg="$locpref"
  1830. organization="$orgpref"
  1831. city="$citypref"
  1832. state="$statepref"
  1833. cntry="$cntrypref"
  1834. cont="$contpref"
  1835. active="${active-/usr/lib/news/active}"
  1836.  
  1837. dotdir="\${DOTDIR-\${HOME-\$LOGDIR}}"
  1838. $rm -f \$dotdir/.oldnewsrc
  1839. $echo "Creating .newsrc in \$dotdir to be used by news programs."
  1840.  
  1841. case \$active in
  1842. ~*) active=\`$filexp \$active\` ;;
  1843. esac
  1844.  
  1845. : NOTE: SED WILL NOT TAKE MORE THAN 10 WFILES, SO BEWARE
  1846.  
  1847. $sort <\$active | $sed >/tmp/n.tmp\$\$    \\
  1848.     -e 's/^\([^ ]*\) .*\$/\1:/'    \\
  1849.     -e '/^control:/{'        \\
  1850.     -e "  w /tmp/n.test\$\$"    \\
  1851.     -e '  d'            \\
  1852.     -e '}'                \\
  1853.     -e '/^junk:/{'            \\
  1854.     -e "  w /tmp/n.test\$\$"    \\
  1855.     -e '  d'            \\
  1856.     -e '}'                \\
  1857.     -e '/test:/{'            \\
  1858.     -e "  w /tmp/n.test\$\$"    \\
  1859.     -e '  d'            \\
  1860.     -e '}'                \\
  1861.     -e "/^net\./{"            \\
  1862.     -e "  w /tmp/n.net\$\$"        \\
  1863.     -e '  d'            \\
  1864.     -e '}'                \\
  1865.     -e "/^mod\./{"            \\
  1866.     -e "  w /tmp/n.mod\$\$"        \\
  1867.     -e '  d'            \\
  1868.     -e '}'                \\
  1869.     -e "/^\$locorg\./{"        \\
  1870.     -e "  w /tmp/n.\$locorg\$\$"    \\
  1871.     -e '  d'            \\
  1872.     -e '}'                \\
  1873.     -e "/^\$organization\./{"    \\
  1874.     -e "  w /tmp/n.\$organization\$\$"    \\
  1875.     -e '  d'            \\
  1876.     -e '}'                \\
  1877.     -e "/^\$city\./{"        \\
  1878.     -e "  w /tmp/n.\$city\$\$"    \\
  1879.     -e '  d'            \\
  1880.     -e '}'                \\
  1881.     -e "/^\$state\./{"         \\
  1882.     -e "  w /tmp/n.\$state\$\$"    \\
  1883.     -e '  d'            \\
  1884.     -e '}'                \\
  1885.     -e "/^fa\./{"            \\
  1886.     -e "  w /tmp/n.fa\$\$"        \\
  1887.     -e '  d'            \\
  1888.     -e '}'
  1889.  
  1890. $sed </tmp/n.tmp\$\$ >/tmp/n.local\$\$    \\
  1891.     -e "/^\$cntry\./{"         \\
  1892.     -e "  w /tmp/n.\$cntry\$\$"    \\
  1893.     -e '  d'            \\
  1894.     -e '}'                \\
  1895.     -e "/^\$cont\./{"         \\
  1896.     -e "  w /tmp/n.\$cont\$\$"    \\
  1897.     -e '  d'            \\
  1898.     -e '}'                \\
  1899.     -e "/^to\./{"            \\
  1900.     -e "  w /tmp/n.to\$\$"        \\
  1901.     -e '  d'            \\
  1902.     -e '}'                \\
  1903.     -e "/\./{"            \\
  1904.     -e "  w /tmp/n.misc\$\$"    \\
  1905.     -e '  d'            \\
  1906.     -e '}'
  1907.  
  1908.  
  1909. if $test -s \$dotdir/.newsrc ; then
  1910.     $echo "Saving your current .newsrc as .oldnewsrc..."
  1911.     $mv -f \$dotdir/.newsrc \$dotdir/.oldnewsrc
  1912. fi
  1913.  
  1914. : newsrc order determined here
  1915. $cat \\
  1916.     /tmp/n.local\$\$ \\
  1917.     /tmp/n.\$locorg\$\$ \\
  1918.     /tmp/n.\$organization\$\$ \\
  1919.     /tmp/n.\$city\$\$ \\
  1920.     /tmp/n.\$state\$\$ \\
  1921.     /tmp/n.\$cntry\$\$ \\
  1922.     /tmp/n.\$cont\$\$ \\
  1923.     /tmp/n.mod\$\$ \\
  1924.     /tmp/n.net\$\$ \\
  1925.     /tmp/n.fa\$\$ \\
  1926.     /tmp/n.misc\$\$ \\
  1927.     /tmp/n.test\$\$ \\
  1928. | $uniq >\$dotdir/.newsrc
  1929.  
  1930. $rm -f    /tmp/n.to\$\$ \\
  1931.     /tmp/n.tmp\$\$ \\
  1932.     /tmp/n.local\$\$ \\
  1933.     /tmp/n.\$locorg\$\$ \\
  1934.     /tmp/n.\$organization\$\$ \\
  1935.     /tmp/n.\$city\$\$ \\
  1936.     /tmp/n.\$state\$\$ \\
  1937.     /tmp/n.\$cntry\$\$ \\
  1938.     /tmp/n.\$cont\$\$ \\
  1939.     /tmp/n.mod\$\$ \\
  1940.     /tmp/n.net\$\$ \\
  1941.     /tmp/n.fa\$\$ \\
  1942.     /tmp/n.misc\$\$ \\
  1943.     /tmp/n.test\$\$
  1944.  
  1945. $cat <<'EOH'
  1946. Done.
  1947.  
  1948. If you have never used the news system before, you may find the articles
  1949. in net.announce.newuser to be helpful.  There is also a manual entry for rn.
  1950.  
  1951. To get rid of newsgroups you aren't interested in, use the 'u' command.
  1952. Type h for help at any time while running rn.
  1953. EOH
  1954. !GROK!THIS!
  1955. $eunicefix newsetup
  1956. chmod 755 newsetup
  1957. !STUFFY!FUNK!
  1958. echo Extracting Makefile.SH
  1959. cat >Makefile.SH <<'!STUFFY!FUNK!'
  1960. case $CONFIG in
  1961.     '') . config.sh ;;
  1962. esac
  1963. echo "Extracting Makefile (with variable substitutions)"
  1964. cat >Makefile <<!GROK!THIS!
  1965. # $Header: Makefile.SH,v 4.3 85/05/01 11:33:26 lwall Exp $
  1966. #
  1967. # $Log:    Makefile.SH,v $
  1968. # Revision 4.3  85/05/01  11:33:26  lwall
  1969. # Baseline for release with 4.3bsd.
  1970. # 
  1971.  
  1972. CC = $cc
  1973. rnbin = $rnbin
  1974. rnlib = $rnlib
  1975. mansrc = $mansrc
  1976. manext = $manext
  1977. CFLAGS = $iandd -O
  1978. LDFLAGS = $iandd
  1979. NDIRC = $ndirc
  1980. NDIRO = $ndiro
  1981.  
  1982. libs = $ndirlib $termlib $jobslib
  1983. !GROK!THIS!
  1984. cat >>Makefile <<'!NO!SUBS!'
  1985.  
  1986. public = rn newsetup newsgroups Pnews Rnmail
  1987. private = norm.saver mbox.saver ng.help art.help pager.help subs.help makedir filexp Pnews.header
  1988. manpages = rn.1 Pnews.1 Rnmail.1 newsetup.1 newsgroups.1
  1989. util = Makefile makedepend newsnews
  1990.  
  1991. h1 = addng.h art.h artio.h artsrch.h backpage.h bits.h cheat.h common.h
  1992. h2 = final.h head.h help.h init.h intrp.h kfile.h last.h ndir.h ng.h
  1993. h3 = ngdata.h ngsrch.h ngstuff.h only.h rcln.h rcstuff.h
  1994. h4 = respond.h rn.h search.h sw.h term.h util.h
  1995.  
  1996. h = $(h1) $(h2) $(h3) $(h4)
  1997.  
  1998. c1 = addng.c art.c artio.c artsrch.c backpage.c bits.c cheat.c
  1999. c2 = final.c head.c help.c init.c intrp.c kfile.c last.c $(NDIRC) ng.c
  2000. c3 = ngdata.c ngsrch.c ngstuff.c only.c rcln.c rcstuff.c
  2001. c4 = respond.c rn.c search.c sw.c term.c util.c
  2002.  
  2003. c = $(c1) $(c2) $(c3) $(c4)
  2004.  
  2005. obj1 = addng.o art.o artio.o artsrch.o backpage.o bits.o cheat.o
  2006. obj2 = final.o head.o help.o init.o intrp.o kfile.o last.o $(NDIRO) ng.o
  2007. obj3 = ngdata.o ngsrch.o ngstuff.o only.o rcln.o rcstuff.o
  2008. obj4 = respond.o rn.o search.o sw.o term.o util.o
  2009.  
  2010. obj = $(obj1) $(obj2) $(obj3) $(obj4)
  2011.  
  2012. lintflags = -phbvxac
  2013.  
  2014. add1 = Makefile.old Pnews Rnmail art.help
  2015. add2 = bsd config.h config.sh eunice filexp
  2016. add3 = loc makedepend makedir mbox.saver newsetup
  2017. add4 = newsgroups newsnews ng.help norm.saver pager.help
  2018. add5 = pdp11 rn subs.help usg v7
  2019.  
  2020. addedbyconf = $(add1) $(add2) $(add3) $(add4) $(add5)
  2021.  
  2022. # grrr
  2023. SHELL = /bin/sh
  2024.  
  2025. .c.o:
  2026.     $(CC) -c $(CFLAGS) $*.c
  2027.  
  2028. all: $(public) $(private) $(util)
  2029.     touch all
  2030.  
  2031. rn: $(obj)
  2032.     $(CC) $(LDFLAGS) $(obj) $(libs) -o rn
  2033.  
  2034. # if a .h file depends on another .h file...
  2035. $(h):
  2036.     touch $@
  2037.  
  2038. install: rn
  2039. # won't work with csh
  2040.     export PATH || exit 1
  2041.     - mv $(rnbin)/rn $(rnbin)/rn.old
  2042.     - if test `pwd` != $(rnbin); then cp $(public) $(rnbin); fi
  2043.     cd $(rnbin); chmod 755 $(public)
  2044.     chmod 755 makedir
  2045.     - ./makedir `./filexp $(rnlib)`
  2046.     - if test `pwd` != `./filexp $(rnlib)`; then cp INIT $(private) `./filexp $(rnlib)`; fi
  2047.     cd `./filexp $(rnlib)`; chmod 755 $(private)
  2048.     - if test ! -f `./filexp $(rnlib)/newsnews`; then cp newsnews `./filexp $(rnlib)`; fi
  2049.     - if test `pwd` != $(mansrc); then\
  2050. for page in $(manpages); do\
  2051. cp $$page $(mansrc)/`basename $$page .1`.$(manext);\
  2052. done;\
  2053. fi
  2054.  
  2055. clean:
  2056.     rm -f *.o
  2057.  
  2058. realclean:
  2059.     rm -f rn *.o core $(addedbyconf)
  2060.  
  2061. # The following lint has practically everything turned on.  Unfortunately,
  2062. # you have to wade through a lot of mumbo jumbo that can't be suppressed.
  2063. # If the source file has a /*NOSTRICT*/ somewhere, ignore the lint message
  2064. # for that spot.
  2065.  
  2066. lint:
  2067.     lint $(lintflags) $(defs) $(c) > rn.fuzz
  2068.  
  2069. depend:
  2070.     makedepend
  2071.  
  2072. # AUTOMATICALLY GENERATED MAKE DEPENDENCIES--PUT NOTHING BELOW THIS LINE
  2073. $(obj):
  2074.     @ echo "You haven't done a "'"make depend" yet!'; exit 1
  2075. !NO!SUBS!
  2076. $eunicefix Makefile
  2077. !STUFFY!FUNK!
  2078. echo Extracting ngsrch.c
  2079. cat >ngsrch.c <<'!STUFFY!FUNK!'
  2080. /* $Header: ngsrch.c,v 4.3 85/05/01 11:44:51 lwall Exp $
  2081.  *
  2082.  * $Log:    ngsrch.c,v $
  2083.  * Revision 4.3  85/05/01  11:44:51  lwall
  2084.  * Baseline for release with 4.3bsd.
  2085.  * 
  2086.  */
  2087.  
  2088. #include "EXTERN.h"
  2089. #include "common.h"
  2090. #include "rcstuff.h"
  2091. #include "final.h"
  2092. #include "search.h"
  2093. #include "rn.h"
  2094. #include "util.h"
  2095. #include "term.h"
  2096. #include "rcln.h"
  2097. #include "INTERN.h"
  2098. #include "ngsrch.h"
  2099.  
  2100. #ifdef NGSORONLY
  2101.     COMPEX ngcompex;
  2102. #endif
  2103.  
  2104. void
  2105. ngsrch_init()
  2106. {
  2107. #ifdef ZEROGLOB
  2108.     init_compex(&ngcompex);
  2109. #endif    /* ZEROGLOB */
  2110.     ;
  2111. }
  2112.  
  2113. #ifdef NGSEARCH
  2114. int
  2115. ng_search(patbuf,get_cmd)
  2116. char *patbuf;                /* if patbuf != buf, get_cmd must */
  2117. int get_cmd;                /*   be set to FALSE!!! */
  2118. {
  2119.     char *pattern;            /* unparsed pattern */
  2120.     register char cmdchr = *patbuf;    /* what kind of search? */
  2121.     register char *s;
  2122.     bool backward = cmdchr == '?';    /* direction of search */
  2123.  
  2124.     int_count = 0;
  2125.     if (get_cmd && buf == patbuf)
  2126.     if (!finish_command(FALSE))        /* get rest of command */
  2127.         return NGS_ABORT;
  2128.     for (pattern = patbuf+1; *pattern == ' '; pattern++) ;
  2129.     if (*pattern) {
  2130.     ng_doread = FALSE;
  2131.     }
  2132.     s = rindex(pattern,cmdchr);
  2133.     if (s != Nullch && *(s-1) != '\\') {
  2134.     *s++ = '\0';
  2135.     if (index(s,'r') != Nullch)
  2136.         ng_doread = TRUE;
  2137.     }
  2138.     if ((s = ng_comp(&ngcompex,pattern,TRUE,TRUE)) != Nullch) {
  2139.                     /* compile regular expression */
  2140.     printf("\n%s\n",s) FLUSH;
  2141.     return NGS_ABORT;
  2142.     }
  2143.     fputs("\nSearching...",stdout) FLUSH;    /* give them something to read */
  2144.     fflush(stdout);
  2145.     for (;;) {
  2146.     if (int_count) {
  2147.         int_count = 0;
  2148.         return NGS_INTR;
  2149.     }
  2150.     if (backward) {
  2151.         if (ng > 0)
  2152.         --ng;
  2153.         else
  2154.         ng = nextrcline;
  2155.     }
  2156.     else {
  2157.         if (ng >= nextrcline)
  2158.         ng = 0;
  2159.         else
  2160.         ++ng;
  2161.     }
  2162.     if (ng == current_ng)
  2163.         return NGS_NOTFOUND;
  2164.     if (ng == nextrcline || toread[ng] < TR_NONE || !ng_wanted())
  2165.         continue;
  2166.     if (toread[ng] == TR_NONE)
  2167.         set_toread(ng);
  2168.     
  2169.     if (toread[ng] > TR_NONE)
  2170.         return NGS_FOUND;
  2171.     else if (toread[ng] == TR_NONE)
  2172.         if (ng_doread)
  2173.         return NGS_FOUND;
  2174.         else
  2175.         printf("\n[0 unread in %s--skipping]",rcline[ng]) FLUSH;
  2176.     }
  2177. }
  2178.  
  2179. bool
  2180. ng_wanted()
  2181. {
  2182.     return execute(&ngcompex,rcline[ng]) != Nullch;
  2183. }
  2184. #endif
  2185.  
  2186. #ifdef NGSORONLY
  2187. char *
  2188. ng_comp(compex,pattern,RE,fold)
  2189. COMPEX *compex;
  2190. char *pattern;
  2191. bool RE;
  2192. bool fold;
  2193. {
  2194.     char ng_pattern[128];
  2195.     register char *s = pattern, *d = ng_pattern;
  2196.  
  2197.     if (!*s)
  2198.     return Nullch;            /* reuse old pattern */
  2199.     for (; *s; s++) {
  2200.     if (*s == '.') {
  2201.         *d++ = '\\';
  2202.         *d++ = *s;
  2203.     }
  2204.     else if (*s == '?') {
  2205.         *d++ = '.';
  2206.     }
  2207.     else if (*s == '*') {
  2208.         *d++ = '.';
  2209.         *d++ = *s;
  2210.     }
  2211.     else if (strnEQ(s,"all",3)) {
  2212.         *d++ = '.';
  2213.         *d++ = '*';
  2214.         s += 2;
  2215.     }
  2216.     else
  2217.         *d++ = *s;
  2218.     }
  2219.     *d = '\0';
  2220.     return compile(compex,ng_pattern,RE,fold);
  2221. }
  2222. #endif
  2223.  
  2224. !STUFFY!FUNK!
  2225. echo Extracting art.help.SH
  2226. cat >art.help.SH <<'!STUFFY!FUNK!'
  2227. case $CONFIG in
  2228.     '') . config.sh ;;
  2229. esac
  2230. echo "Extracting art.help (with variable substitutions)"
  2231. $spitshell >art.help <<!GROK!THIS!
  2232. $startsh
  2233. # $Header: art.help.SH,v 4.3 85/05/01 11:35:34 lwall Exp $
  2234. # 
  2235. # $Log:    art.help.SH,v $
  2236. # Revision 4.3  85/05/01  11:35:34  lwall
  2237. # Baseline for release with 4.3bsd.
  2238. # 
  2239. # 
  2240. $pager <<'EOT'
  2241. Article Selection commands:
  2242.  
  2243. n,SP    Scan forward for next unread article.
  2244. N    Go to next article.
  2245. ^N    Scan forward for next unread article with same subject.
  2246. p,P,^P    Same as n,N,^N, only going backwards.
  2247. -    Go to previously displayed article.
  2248. number    Go to specified article.
  2249. range{,range} command{:command}
  2250.     Apply one or more commands to one or more ranges of articles.
  2251.     Ranges are of the form: number | number-number.  You may use . for
  2252.     the current article, and $ for the last article.
  2253.      Valid commands are: j, m, M, s, S, and !.
  2254. /pattern/modifiers
  2255.     Scan forward for article containing pattern in the subject line.
  2256.     (Use ?pat? to scan backwards; append h to scan headers, a to scan
  2257.     entire articles, r to scan read articles, c to make case sensitive.
  2258. /pattern/modifiers:command{:command}
  2259.     Apply one or more commands to the set of articles matching pattern.
  2260.     Use a K modifier to save entire command to the KILL file for this
  2261.     newsgroup.  Commands m and M, if first, imply an r modifier.
  2262.      Valid commands are: j, m, M, s, S, and !.
  2263. f,F    Submit a followup article (F = include this article).
  2264. r,R    Reply through net mail (R = include this article).
  2265. s ...    Save to file or pipe via sh.
  2266. S ...    Save via preferred shell.
  2267. w,W    Like s and S but save without the header.
  2268. | ...    Same as s|...
  2269. C    Cancel this article, if yours.
  2270. ^R,v    Restart article (v=verbose).
  2271. ^X    Restart article, rot13 mode.
  2272. c    Catch up (mark all articles as read).
  2273. ^B    Back up one page.
  2274. ^L    Refresh the screen.  You can get back to the pager with this.
  2275. X    Refresh screen in rot13 mode.
  2276. ^    Go to first unread article.  Disables subject search mode.
  2277. $    Go to end of newsgroup.  Disables subject search mode.
  2278. #       Print last article number.
  2279. &    Print current values of command-line switches.
  2280. &switch {switch}
  2281.     Set or unset more switches.
  2282. &&    Print current macro definitions.
  2283. &&def    Define a new macro.
  2284. j    Junk this article (mark it read).  Stays at end of article.
  2285. m    Mark article as still unread.
  2286. M    Mark article as still unread upon exiting newsgroup or Y command.
  2287. Y    Yank back articles marked temporarily read via M.
  2288. k    Mark current SUBJECT as read.
  2289. K    Mark current SUBJECT as read, and save command in KILL file.
  2290. =    List subjects of unread articles.
  2291. u    Unsubscribe to this newsgroup.
  2292. ^K    Edit local KILL file (the one for this newsgroup).
  2293. q    Quit this newsgroup for now.
  2294. Q    Quit newsgroup, staying at current newsgroup.
  2295. EOT
  2296.  
  2297. !GROK!THIS!
  2298. $eunicefix art.help
  2299. chmod 755 art.help
  2300. !STUFFY!FUNK!
  2301. echo Extracting cheat.c
  2302. cat >cheat.c <<'!STUFFY!FUNK!'
  2303. /* $Header: cheat.c,v 4.3 85/05/01 11:36:46 lwall Exp $
  2304.  *
  2305.  * $Log:    cheat.c,v $
  2306.  * Revision 4.3  85/05/01  11:36:46  lwall
  2307.  * Baseline for release with 4.3bsd.
  2308.  * 
  2309.  */
  2310.  
  2311. #include "EXTERN.h"
  2312. #include "common.h"
  2313. #include "intrp.h"
  2314. #include "search.h"
  2315. #include "ng.h"
  2316. #include "bits.h"
  2317. #include "artio.h"
  2318. #include "term.h"
  2319. #include "artsrch.h"
  2320. #include "head.h"
  2321. #include "INTERN.h"
  2322. #include "cheat.h"
  2323.  
  2324. /* see what we can do while they are reading */
  2325.  
  2326. #ifdef PENDING
  2327. #   ifdef ARTSEARCH
  2328.     COMPEX srchcompex;        /* compiled regex for searchahead */
  2329. #   endif
  2330. #endif
  2331.  
  2332. void
  2333. cheat_init()
  2334. {
  2335.     ;
  2336. }
  2337.  
  2338. #ifdef PENDING
  2339. void
  2340. look_ahead()
  2341. {
  2342. #ifdef ARTSEARCH
  2343.     register char *h, *s;
  2344.  
  2345. #ifdef DEBUGGING
  2346.     if (debug && srchahead) {
  2347.     printf("(%ld)",(long)srchahead);
  2348.     fflush(stdout);
  2349.     }
  2350. #endif
  2351.     if (srchahead && srchahead < art) {    /* in ^N mode? */
  2352.     char *pattern;
  2353.  
  2354.     pattern = buf+1;
  2355.     strcpy(pattern,": *");
  2356.     h = pattern + strlen(pattern);
  2357.     interp(h,(sizeof buf) - (h-buf),"%s");
  2358.     h[24] = '\0';        /* compensate for notesfiles */
  2359.     while (*h) {
  2360.         if (index("\\[.^*$'\"",*h) != Nullch)
  2361.         *h++ = '.';
  2362.         else
  2363.         h++;
  2364.     }
  2365. #ifdef DEBUGGING
  2366.     if (debug & DEB_SEARCH_AHEAD) {
  2367.         fputs("(hit CR)",stdout);
  2368.         fflush(stdout);
  2369.         gets(buf+128);
  2370.         printf("\npattern = %s\n",pattern);
  2371.     }
  2372. #endif
  2373.     if ((s = compile(&srchcompex,pattern,TRUE,TRUE)) != Nullch) {
  2374.                     /* compile regular expression */
  2375.         printf("\n%s\n",s);
  2376.         srchahead = 0;
  2377.     }
  2378.     if (srchahead) {
  2379.         srchahead = art;
  2380.         for (;;) {
  2381.         srchahead++;    /* go forward one article */
  2382.         if (srchahead > lastart) { /* out of articles? */
  2383. #ifdef DEBUGGING
  2384.             if (debug)
  2385.             fputs("(not found)",stdout);
  2386. #endif
  2387.             break;
  2388.         }
  2389.         if (!was_read(srchahead) &&
  2390.             wanted(&srchcompex,srchahead,0)) {
  2391.                     /* does the shoe fit? */
  2392. #ifdef DEBUGGING
  2393.             if (debug)
  2394.             printf("(%ld)",(long)srchahead);
  2395. #endif
  2396.             artopen(srchahead);
  2397.             break;
  2398.         }
  2399.         if (input_pending())
  2400.             break;
  2401.         }
  2402.         fflush(stdout);
  2403.     }
  2404.     }
  2405.     else
  2406. #endif
  2407.     {
  2408.     if (art+1 <= lastart)/* how about a pre-fetch? */
  2409.         artopen(art+1);    /* look for the next article */
  2410.     }
  2411. }
  2412. #endif
  2413.  
  2414. /* see what else we can do while they are reading */
  2415.  
  2416. void
  2417. collect_subjects()
  2418. {
  2419. #ifdef PENDING
  2420. # ifdef CACHESUBJ
  2421.     ART_NUM oldart = openart;
  2422.     ART_POS oldartpos;
  2423.  
  2424.     if (!in_ng || !srchahead)
  2425.     return;
  2426.     if (oldart)            /* remember where we were in art */
  2427.     oldartpos = ftell(artfp);
  2428.     if (srchahead >= subj_to_get)
  2429.     subj_to_get = srchahead+1;
  2430.     while (!input_pending() && subj_to_get <= lastart)
  2431.     fetchsubj(subj_to_get++,FALSE,FALSE);
  2432.     if (oldart) {
  2433.     artopen(oldart);
  2434.     fseek(artfp,oldartpos,0);    /* do not screw the pager */
  2435.     }
  2436. # endif
  2437. #endif
  2438. }
  2439.  
  2440. !STUFFY!FUNK!
  2441. echo Extracting header.h.2.pat
  2442. cat >header.h.2.pat <<'!STUFFY!FUNK!'
  2443. *** header.old.h    Tue Apr 30 14:33:33 1985
  2444. --- header.h        Tue Apr 30 14:33:35 1985
  2445. ***************
  2446. *** 35,39
  2447.       char    approved[BUFLEN];    /* Approved:        */
  2448.       char    nf_id[BUFLEN];        /* Nf-ID:        */
  2449.       char    nf_from[BUFLEN];    /* Nf-From:        */
  2450.       char    *unrec[NUNREC];        /* unrecognized lines    */
  2451.   };
  2452.  
  2453. --- 35,42 -----
  2454.       char    approved[BUFLEN];    /* Approved:        */
  2455.       char    nf_id[BUFLEN];        /* Nf-ID:        */
  2456.       char    nf_from[BUFLEN];    /* Nf-From:        */
  2457. + #ifdef DOXREFS
  2458. +     char    xref[BUFLEN];        /* Xref:        */
  2459. + #endif DOXREFS
  2460.       char    *unrec[NUNREC];        /* unrecognized lines    */
  2461.   };
  2462. !STUFFY!FUNK!
  2463. echo ""
  2464. echo "End of kit 7 (of 9)"
  2465. cat /dev/null >kit7isdone
  2466. config=true
  2467. for iskit in 1 2 3 4 5 6 7 8 9; do
  2468.     if test -f kit${iskit}isdone; then
  2469.     echo "You have run kit ${iskit}."
  2470.     else
  2471.     echo "You still need to run kit ${iskit}."
  2472.     config=false
  2473.     fi
  2474. done
  2475. case $config in
  2476.     true)
  2477.     echo "You have run all your kits.  Please read README and then type Configure."
  2478.     chmod 755 Configure
  2479.     ;;
  2480. esac
  2481. : I do not append .signature, but someone might mail this.
  2482. exit
  2483.  
  2484.