home *** CD-ROM | disk | FTP | other *** search
/ Usenet 1994 January / usenetsourcesnewsgroupsinfomagicjanuary1994.iso / sources / unix / volume1 / rn / part03 < prev    next >
Encoding:
Internet Message Format  |  1986-11-30  |  61.8 KB
  1. Date: Tue, 7 May 85 13:43:09 pdt
  2. From: allegra!sdcrdcf!RDCF.SDC.UUCP!lwall (Larry Wall)
  3. Newsgroups: mod.sources
  4. Subject: rn version 4.3 (kit 3 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 3 (of 9).  If kit 3 is complete, the line"
  14. echo '"'"End of kit 3 (of 9)"'" will echo at the end.'
  15. echo ""
  16. export PATH || (echo "You didn't use sh, you clunch." ; kill $$)
  17. echo Extracting intrp.c
  18. cat >intrp.c <<'!STUFFY!FUNK!'
  19. /* $Header: intrp.c,v 4.3 85/05/01 11:40:54 lwall Exp $
  20.  *
  21.  * $Log:    intrp.c,v $
  22.  * Revision 4.3  85/05/01  11:40:54  lwall
  23.  * Baseline for release with 4.3bsd.
  24.  * 
  25.  */
  26.  
  27. #include "EXTERN.h"
  28. #include "common.h"
  29. #include "util.h"
  30. #include "search.h"
  31. #include "head.h"
  32. #include "rn.h"
  33. #include "artsrch.h"
  34. #include "ng.h"
  35. #include "util.h"
  36. #include "respond.h"
  37. #include "rcstuff.h"
  38. #include "bits.h"
  39. #include "artio.h"
  40. #include "term.h"
  41. #include "final.h"
  42. #include "INTERN.h"
  43. #include "intrp.h"
  44.  
  45. char orgname[] = ORGNAME;
  46.  
  47. /* name of this site */
  48. #ifdef GETHOSTNAME
  49.     char *hostname;
  50. #   undef SITENAME
  51. #   define SITENAME hostname
  52. #else !GETHOSTNAME
  53. #   ifdef DOUNAME
  54. #    include <sys/utsname.h>
  55.     struct utsname uts;
  56. #    undef SITENAME
  57. #    define SITENAME uts.nodename
  58. #   else !DOUNAME
  59. #    ifdef PHOSTNAME
  60.         char *hostname;
  61. #        undef SITENAME
  62. #        define SITENAME hostname
  63. #    else !PHOSTNAME
  64. #        ifdef WHOAMI
  65. #        undef SITENAME
  66. #        define SITENAME sysname
  67. #        endif WHOAMI
  68. #    endif PHOSTNAME
  69. #   endif DOUNAME
  70. #endif GETHOSTNAME
  71.  
  72. #ifdef TILDENAME
  73. static char *tildename = Nullch;
  74. static char *tildedir = Nullch;
  75. #endif
  76.  
  77. char *realname INIT(Nullch);    /* real name of sender from /etc/passwd */
  78.  
  79. char *dointerp();
  80. char *getrealname();
  81. #ifdef CONDSUB
  82. char *skipinterp();
  83. #endif
  84.  
  85. static void abort_interp();
  86.  
  87. void
  88. intrp_init(tcbuf)
  89. char *tcbuf;
  90. {
  91.     char *getlogin();
  92.  
  93.     spool = savestr(filexp(SPOOL));    /* usually /usr/spool/news */
  94.     
  95.     getwd(tcbuf);            /* find working directory name */
  96.     origdir = savestr(tcbuf);        /* and remember it */
  97.     
  98.     /* get environmental stuff */
  99.  
  100.     /* get home directory */
  101.  
  102.     homedir = getenv("HOME");
  103.     if (homedir == Nullch)
  104.     homedir = getenv("LOGDIR");
  105.  
  106.     dotdir = getval("DOTDIR",homedir);
  107.  
  108.     /* get login name */
  109.  
  110.     logname = getenv("USER");
  111.     if (logname == Nullch)
  112.     logname = getenv("LOGNAME");
  113. #ifdef GETLOGIN
  114.     if (logname == Nullch)
  115.     logname = savestr(getlogin());
  116. #endif
  117.  
  118.     /* get the real name of the person (%N) */
  119.     /* Must be done after logname is read in because BERKNAMES uses that */
  120.  
  121.     strcpy(tcbuf,getrealname(getuid()));
  122.     realname = savestr(tcbuf);
  123.  
  124.     /* name of header file (%h) */
  125.  
  126.     headname = savestr(filexp(HEADNAME));
  127.  
  128.     /* name of this site (%H) */
  129.  
  130. #ifdef GETHOSTNAME
  131.     gethostname(buf,sizeof buf);
  132.     hostname = savestr(buf);
  133. #else
  134. #ifdef DOUNAME
  135.     /* get sysname */
  136.     uname(&uts);
  137. #else
  138. #ifdef PHOSTNAME
  139.     {
  140.     FILE *popen();
  141.     FILE *pipefp = popen(PHOSTNAME,"r");
  142.     
  143.     if (pipefp == Nullfp) {
  144.         printf("Can't find hostname\n");
  145.         sig_catcher(0);
  146.     }
  147.     fgets(buf,sizeof buf,pipefp);
  148.     buf[strlen(buf)-1] = '\0';    /* wipe out newline */
  149.     hostname = savestr(buf);
  150.     pclose(pipefp);
  151.     }
  152. #endif
  153. #endif
  154. #endif
  155.     sitename = savestr(SITENAME);
  156. }
  157.  
  158. /* expand filename via %, ~, and $ interpretation */
  159. /* returns pointer to static area */
  160. /* Note that there is a 1-deep cache of ~name interpretation */
  161.  
  162. char *
  163. filexp(s)
  164. register char *s;
  165. {
  166.     static char filename[CBUFLEN];
  167.     char scrbuf[CBUFLEN];
  168.     register char *d;
  169.  
  170. #ifdef DEBUGGING
  171.     if (debug & DEB_FILEXP)
  172.     printf("< %s\n",s) FLUSH;
  173. #endif
  174.     interp(filename, (sizeof filename), s);            /* interpret any % escapes */
  175. #ifdef DEBUGGING
  176.     if (debug & DEB_FILEXP)
  177.     printf("%% %s\n",filename) FLUSH;
  178. #endif
  179.     s = filename;
  180.     if (*s == '~') {    /* does destination start with ~? */
  181.     if (!*(++s) || *s == '/') {
  182.         sprintf(scrbuf,"%s%s",homedir,s);
  183.                 /* swap $HOME for it */
  184. #ifdef DEBUGGING
  185.     if (debug & DEB_FILEXP)
  186.     printf("~ %s\n",scrbuf) FLUSH;
  187. #endif
  188.         strcpy(filename,scrbuf);
  189.     }
  190.     else {
  191. #ifdef TILDENAME
  192.         for (d=scrbuf; isalnum(*s); s++,d++)
  193.         *d = *s;
  194.         *d = '\0';
  195.         if (tildedir && strEQ(tildename,scrbuf)) {
  196.         strcpy(scrbuf,tildedir);
  197.         strcat(scrbuf, s);
  198.         strcpy(filename, scrbuf);
  199. #ifdef DEBUGGING
  200.         if (debug & DEB_FILEXP)
  201.             printf("r %s %s\n",tildename,tildedir) FLUSH;
  202. #endif
  203.         }
  204.         else {
  205.         if (tildename) {
  206.             free(tildename);
  207.             free(tildedir);
  208.         }
  209.         tildedir = Nullch;
  210.         tildename = savestr(scrbuf);
  211. #ifdef GETPWENT        /* getpwnam() is not the paragon of efficiency */
  212.         {
  213.             struct passwd *getpwnam();
  214.             struct passwd *pwd = getpwnam(tildename);
  215.  
  216.             sprintf(scrbuf,"%s%s",pwd->pw_dir,s);
  217.             tildedir = savestr(pwd->pw_dir);
  218. #ifdef NEWSADMIN
  219.             if (strEQ(newsadmin,tildename))
  220.             newsuid = atoi(pwd->pw_uid);
  221. #endif
  222.             strcpy(filename,scrbuf);
  223. #ifdef GETPWENT
  224.             endpwent();
  225. #endif
  226.         }
  227. #else            /* this will run faster, and is less D space */
  228.         {    /* just be sure LOGDIRFIELD is correct */
  229.             FILE *pfp = fopen("/etc/passwd","r");
  230.             char tmpbuf[512];
  231.             int i;
  232.             
  233.             if (pfp == Nullfp) {
  234.             printf(cantopen,"passwd") FLUSH;
  235.             sig_catcher(0);
  236.             }
  237.             while (fgets(tmpbuf,512,pfp) != Nullch) {
  238.             d = cpytill(scrbuf,tmpbuf,':');
  239. #ifdef DEBUGGING
  240.             if (debug & DEB_FILEXP)
  241.                 printf("p %s\n",tmpbuf) FLUSH;
  242. #endif
  243.             if (strEQ(scrbuf,tildename)) {
  244. #ifdef NEWSADMIN
  245.                 if (strEQ(newsadmin,tildename))
  246.                 newsuid = atoi(index(d,':')+1);
  247. #endif
  248.                 for (i=LOGDIRFIELD-2; i; i--) {
  249.                 if (d)
  250.                     d = index(d+1,':');
  251.                 }
  252.                 if (d) {
  253.                 cpytill(scrbuf,d+1,':');
  254.                 tildedir = savestr(scrbuf);
  255.                 strcat(scrbuf,s);
  256.                 strcpy(filename,scrbuf);
  257.                 }
  258.                 break;
  259.             }
  260.             }
  261.             fclose(pfp);
  262.         }
  263. #endif
  264.         }
  265. #else !TILDENAME
  266. #ifdef VERBOSE
  267.         IF(verbose)
  268.         fputs("~loginname not implemented.\n",stdout) FLUSH;
  269.         ELSE
  270. #endif
  271. #ifdef TERSE
  272.         fputs("~login not impl.\n",stdout) FLUSH;
  273. #endif
  274. #endif
  275.     }
  276.     }
  277.     else if (*s == '$') {    /* starts with some env variable? */
  278.     d = scrbuf;
  279.     *d++ = '%';
  280.     if (s[1] == '{')
  281.         strcpy(d,s+2);
  282.     else {
  283.         *d++ = '{';
  284.         for (s++; isalnum(*s); s++) *d++ = *s;
  285.                 /* skip over token */
  286.         *d++ = '}';
  287.         strcpy(d,s);
  288.     }
  289. #ifdef DEBUGGING
  290.     if (debug & DEB_FILEXP)
  291.         printf("$ %s\n",scrbuf) FLUSH;
  292. #endif
  293.     interp(filename, (sizeof filename), scrbuf);
  294.                     /* this might do some extra '%'s but */
  295.                     /* that is how the Mercedes Benz */
  296.     }
  297. #ifdef DEBUGGING
  298.     if (debug & DEB_FILEXP)
  299.     printf("> %s\n",filename) FLUSH;
  300. #endif
  301.     return filename;
  302. }
  303.  
  304. #ifdef CONDSUB
  305. /* skip interpolations */
  306.  
  307. char *
  308. skipinterp(pattern,stoppers)
  309. register char *pattern;
  310. char *stoppers;
  311. {
  312.  
  313.     while (*pattern && (!stoppers || !index(stoppers,*pattern))) {
  314. #ifdef DEBUGGING
  315.     if (debug & 8)
  316.         printf("skipinterp till %s at %s\n",stoppers?stoppers:"",pattern);
  317. #endif
  318.     if (*pattern == '%' && pattern[1]) {
  319.         switch (*++pattern) {
  320.         case '{':
  321.         for (pattern++; *pattern && *pattern != '}'; pattern++)
  322.             if (*pattern == '\\')
  323.             pattern++;
  324.         break;
  325.         case '[':
  326.         for (pattern++; *pattern && *pattern != ']'; pattern++)
  327.             if (*pattern == '\\')
  328.             pattern++;
  329.         break;
  330. #ifdef CONDSUB
  331.         case '(': {
  332.         pattern = skipinterp(pattern+1,"!=");
  333.         if (!*pattern)
  334.             goto getout;
  335.         for (pattern++; *pattern && *pattern != '?'; pattern++)
  336.             if (*pattern == '\\')
  337.             pattern++;
  338.         if (!*pattern)
  339.             goto getout;
  340.         pattern = skipinterp(pattern+1,":)");
  341.         if (*pattern == ':')
  342.             pattern = skipinterp(pattern+1,")");
  343.         break;
  344.         }
  345. #endif
  346. #ifdef BACKTICK
  347.         case '`': {
  348.         pattern = skipinterp(pattern+1,"`");
  349.         break;
  350.         }
  351. #endif
  352. #ifdef PROMPTTTY
  353.         case '"':
  354.         pattern = skipinterp(pattern+1,"\"");
  355.         break;
  356. #endif
  357.         default:
  358.         break;
  359.         }
  360.         pattern++;
  361.     }
  362.     else {
  363.         if (*pattern == '^' && pattern[1])
  364.         pattern += 2;
  365.         else if (*pattern == '\\' && pattern[1])
  366.         pattern += 2;
  367.         else
  368.         pattern++;
  369.     }
  370.     }
  371. getout:
  372.     return pattern;            /* where we left off */
  373. }
  374. #endif
  375.  
  376. /* interpret interpolations */
  377.  
  378. char *
  379. dointerp(dest,destsize,pattern,stoppers)
  380. register char *dest;
  381. register int destsize;
  382. register char *pattern;
  383. char *stoppers;
  384. {
  385.     char *subj_buf = Nullch;
  386.     char *ngs_buf = Nullch;
  387.     char *refs_buf = Nullch;
  388.     char *artid_buf = Nullch;
  389.     char *reply_buf = Nullch;
  390.     char *from_buf = Nullch;
  391.     char *path_buf = Nullch;
  392.     char *follow_buf = Nullch;
  393.     char *dist_buf = Nullch;
  394.     char *line_buf = Nullch;
  395.     register char *s, *h;
  396.     register int i;
  397.     char scrbuf[512];
  398.     bool upper = FALSE;
  399.     bool lastcomp = FALSE;
  400.     int metabit = 0;
  401.  
  402.     while (*pattern && (!stoppers || !index(stoppers,*pattern))) {
  403. #ifdef DEBUGGING
  404.     if (debug & 8)
  405.         printf("dointerp till %s at %s\n",stoppers?stoppers:"",pattern);
  406. #endif
  407.     if (*pattern == '%' && pattern[1]) {
  408.         upper = FALSE;
  409.         lastcomp = FALSE;
  410.         for (s=Nullch; !s; ) {
  411.         switch (*++pattern) {
  412.         case '^':
  413.             upper = TRUE;
  414.             break;
  415.         case '_':
  416.             lastcomp = TRUE;
  417.             break;
  418.         case '/':
  419. #ifdef ARTSRCH
  420.             s = scrbuf;
  421.             if (!index("/?g",pattern[-2]))
  422.             *s++ = '/';
  423.             strcpy(s,lastpat);
  424.             s += strlen(s);
  425.             if (pattern[-2] != 'g') {
  426.             if (index("/?",pattern[-2]))
  427.                 *s++ = pattern[-2];
  428.             else
  429.                 *s++ = '/';
  430.             if (art_howmuch == 1)
  431.                 *s++ = 'h';
  432.             else if (art_howmuch == 2)
  433.                 *s++ = 'a';
  434.             if (art_doread)
  435.                 *s++ = 'r';
  436.             }
  437.             *s = '\0';
  438.             s = scrbuf;
  439. #else
  440.             s = nullstr;
  441. #endif
  442.             break;
  443.         case '{':
  444.             pattern = cpytill(scrbuf,pattern+1,'}');
  445.             if (s = index(scrbuf,'-'))
  446.             *s++ = '\0';
  447.             else
  448.             s = nullstr;
  449.             s = getval(scrbuf,s);
  450.             break;
  451.         case '[':
  452.             pattern = cpytill(scrbuf,pattern+1,']');
  453.             i = set_line_type(scrbuf,scrbuf+strlen(scrbuf));
  454.             if (line_buf)
  455.             free(line_buf);
  456.             s = line_buf = fetchlines(art,i);
  457.             break;
  458. #ifdef CONDSUB
  459.         case '(': {
  460.             COMPEX *oldbra_compex = bra_compex;
  461.             COMPEX cond_compex;
  462.             char rch;
  463.             bool matched;
  464.             
  465.             init_compex(&cond_compex);
  466.             pattern = dointerp(dest,destsize,pattern+1,"!=");
  467.             rch = *pattern;
  468.             if (rch == '!')
  469.             pattern++;
  470.             if (*pattern != '=')
  471.             goto getout;
  472.             pattern = cpytill(scrbuf,pattern+1,'?');
  473.             if (!*pattern)
  474.             goto getout;
  475.             if (s = compile(&cond_compex,scrbuf,TRUE,TRUE)) {
  476.             printf("%s: %s\n",scrbuf,s) FLUSH;
  477.             pattern += strlen(pattern);
  478.             goto getout;
  479.             }
  480.             matched = (execute(&cond_compex,dest) != Nullch);
  481.             if (cond_compex.nbra)    /* were there brackets? */
  482.             bra_compex = &cond_compex;
  483.             if (matched==(rch == '=')) {
  484.             pattern = dointerp(dest,destsize,pattern+1,":)");
  485.             if (*pattern == ':')
  486.                 pattern = skipinterp(pattern+1,")");
  487.             }
  488.             else {
  489.             pattern = skipinterp(pattern+1,":)");
  490.             if (*pattern == ':')
  491.                 pattern++;
  492.             pattern = dointerp(dest,destsize,pattern,")");
  493.             }
  494.             s = dest;
  495.             bra_compex = oldbra_compex;
  496.             free_compex(&cond_compex);
  497.             break;
  498.         }
  499. #endif
  500. #ifdef BACKTICK
  501.         case '`': {
  502.             FILE *pipefp, *popen();
  503.  
  504.             pattern = dointerp(scrbuf,(sizeof scrbuf),pattern+1,"`");
  505.             pipefp = popen(scrbuf,"r");
  506.             if (pipefp != Nullfp) {
  507.             int len;
  508.  
  509.             len = fread(scrbuf,sizeof(char),(sizeof scrbuf)-1,
  510.                 pipefp);
  511.             scrbuf[len] = '\0';
  512.             pclose(pipefp);
  513.             }
  514.             else {
  515.             printf("\nCan't run %s\n",scrbuf);
  516.             *scrbuf = '\0';
  517.             }
  518.             for (s=scrbuf; *s; s++) {
  519.             if (*s == '\n') {
  520.                 if (s[1])
  521.                 *s = ' ';
  522.                 else
  523.                 *s = '\0';
  524.             }
  525.             }
  526.             s = scrbuf;
  527.             break;
  528.         }
  529. #endif
  530. #ifdef PROMPTTTY
  531.         case '"':
  532.             pattern = dointerp(scrbuf,(sizeof scrbuf),pattern+1,"\"");
  533.             fputs(scrbuf,stdout) FLUSH;
  534.             resetty();
  535.             gets(scrbuf);
  536.             noecho();
  537.             crmode();
  538.             s = scrbuf;
  539.             break;
  540. #endif
  541.         case '~':
  542.             s = homedir;
  543.             break;
  544.         case '.':
  545.             s = dotdir;
  546.             break;
  547.         case '$':
  548.             s = scrbuf;
  549.             sprintf(s,"%d",getpid());
  550.             break;
  551.         case '0': case '1': case '2': case '3': case '4':
  552.         case '5': case '6': case '7': case '8': case '9':
  553. #ifdef CONDSUB
  554.             s = getbracket(bra_compex,*pattern - '0');
  555. #else
  556.             s = nullstr;
  557. #endif
  558.             break;
  559.         case 'a':
  560.             s = scrbuf;
  561.             sprintf(s,"%ld",(long)art);
  562.             break;
  563.         case 'A':
  564. #ifdef LINKART
  565.             s = linkartname;    /* so Eunice people get right file */
  566. #else
  567.             s = scrbuf;
  568.             sprintf(s,"%s/%s/%ld",spool,ngdir,(long)art);
  569. #endif
  570.             break;
  571.         case 'b':
  572.             s = savedest;
  573.             break;
  574.         case 'B':
  575.             s = scrbuf;
  576.             sprintf(s,"%ld",(long)savefrom);
  577.             break;
  578.         case 'c':
  579.             s = ngdir;
  580.             break;
  581.         case 'C':
  582.             s = ngname;
  583.             break;
  584.         case 'd':
  585.             s = scrbuf;
  586.             sprintf(s,"%s/%s",spool,ngdir);
  587.             break;
  588.         case 'D':
  589.             s = dist_buf = fetchlines(art,DIST_LINE);
  590.             break;
  591.         case 'f':            /* from line */
  592. #ifdef ASYNC_PARSE
  593.             parse_maybe(art);
  594. #endif
  595.             if (htype[REPLY_LINE].ht_minpos >= 0) {
  596.                         /* was there a reply line? */
  597.             if (!(s=reply_buf))
  598.                 s = reply_buf = fetchlines(art,REPLY_LINE);
  599.             }
  600.             else if (!(s = from_buf))
  601.             s = from_buf = fetchlines(art,FROM_LINE);
  602.             break;
  603.         case 'F':
  604. #ifdef ASYNC_PARSE
  605.             parse_maybe(art);
  606. #endif
  607.             if (htype[FOLLOW_LINE].ht_minpos >= 0)
  608.                     /* is there a Followup-To line? */
  609.             s = follow_buf = fetchlines(art,FOLLOW_LINE);
  610.             else {
  611.             int off;
  612.         
  613.             s = ngs_buf = fetchlines(art,NGS_LINE);
  614.             if (h = instr(s,"net.general")) {
  615.                 off = h-s;
  616.                 strncpy(scrbuf,s,off+4);
  617.                 strcpy(scrbuf+off+4,"followup");
  618.                 safecpy(scrbuf+off+12,h+11,sizeof(scrbuf));
  619.                 s = scrbuf;
  620.             }
  621.             }
  622.             break;
  623.         case 'h':            /* header file name */
  624.             s = headname;
  625.             break;
  626.         case 'H':            /* host name */
  627.             s = sitename;
  628.             break;
  629.         case 'i':
  630.             if (!(s=artid_buf))
  631.             s = artid_buf = fetchlines(art,MESSID_LINE);
  632.             if (*s != '<') {
  633.             sprintf(scrbuf,"<%s>",artid_buf);
  634.             s = scrbuf;
  635.             }
  636.             break;
  637.         case 'I':            /* ref article indicator */
  638.             s = scrbuf;
  639.             sprintf(scrbuf,"'%s'",indstr);
  640.             break;
  641.         case 'l':            /* rn library */
  642. #ifdef NEWSADMIN
  643.             s = newsadmin;
  644. #else
  645.             s = "???";
  646. #endif
  647.             break;
  648.         case 'L':            /* login id */
  649.             s = logname;
  650.             break;
  651.         case 'm':        /* current mode */
  652.             s = scrbuf;
  653.             *s = mode;
  654.             s[1] = '\0';
  655.             break;
  656.         case 'M':
  657. #ifdef DELAYMARK
  658.             sprintf(scrbuf,"%ld",(long)dmcount);
  659.             s = scrbuf;
  660. #else
  661.             s = nullstr;
  662. #endif
  663.             break;
  664.         case 'n':            /* newsgroups */
  665.             s = ngs_buf = fetchlines(art,NGS_LINE);
  666.             break;
  667.         case 'N':            /* full name */
  668.             s = getval("NAME",realname);
  669.             break;
  670.         case 'o':            /* organization */
  671.             s = getval("ORGANIZATION",orgname);
  672. #ifdef ORGFILE
  673.             if (*s == '/') {
  674.             FILE *ofp = fopen(s,"r");
  675.  
  676.             if (ofp) {
  677.                 fgets(scrbuf,sizeof scrbuf,ofp);
  678.                 fclose(ofp);
  679.                 s = scrbuf;
  680.                 s[strlen(s)-1] = '\0';
  681.             }
  682.             }
  683. #endif
  684.             break;
  685.         case 'O':
  686.             s = origdir;
  687.             break;
  688.         case 'p':
  689.             s = cwd;
  690.             break;
  691.         case 'P':
  692.             s = spool;
  693.             break;
  694.         case 'r':
  695. #ifdef ASYNC_PARSE
  696.             parse_maybe(art);
  697. #endif
  698.             if (htype[REFS_LINE].ht_minpos >= 0) {
  699.             refs_buf = fetchlines(art,REFS_LINE);
  700.             refscpy(scrbuf,(sizeof scrbuf),refs_buf);
  701.             }
  702.             else
  703.             *scrbuf = '\0';
  704.             s = rindex(scrbuf,'<');
  705.             break;
  706.         case 'R':
  707. #ifdef ASYNC_PARSE
  708.             parse_maybe(art);
  709. #endif
  710.             if (htype[REFS_LINE].ht_minpos >= 0) {
  711.             refs_buf = fetchlines(art,REFS_LINE);
  712.             refscpy(scrbuf,(sizeof scrbuf),refs_buf);
  713.             }
  714.             else
  715.             *scrbuf = '\0';
  716.             if (!artid_buf)
  717.             artid_buf = fetchlines(art,MESSID_LINE);
  718.             if (artid_buf[0] == '<')
  719.             safecat(scrbuf,artid_buf,sizeof(scrbuf));
  720.             else {
  721.             char tmpbuf[64];
  722.     
  723.             sprintf(tmpbuf,"<%s>",artid_buf);
  724.             safecat(scrbuf,tmpbuf,sizeof(scrbuf));
  725.             }
  726.             s = scrbuf;
  727.             break;
  728.         case 's':
  729.             if (!(s=subj_buf))
  730.             s = subj_buf = fetchsubj(art,TRUE,TRUE);
  731.                         /* get subject handy */
  732.             while ((*s=='R'||*s=='r')&&(s[1]=='E'||s[1]=='e')&&s[2]==':') {
  733.                         /* skip extra Re: */
  734.             s += 3;
  735.             if (*s == ' ')
  736.                 s++;
  737.             }
  738.             if (h = instr(s,"- (nf"))
  739.             *h = '\0';
  740.             break;
  741.         case 'S':
  742.             if (!(s=subj_buf))
  743.             s = subj_buf = fetchsubj(art,TRUE,TRUE);
  744.                         /* get subject handy */
  745.             if ((*s=='R'||*s=='r')&&(s[1]=='E'||s[1]=='e')&&s[2]==':') {
  746.                         /* skip extra Re: */
  747.             s += 3;
  748.             if (*s == ' ')
  749.                 s++;
  750.             }
  751.             break;
  752.         case 't':
  753.         case 'T':
  754. #ifdef ASYNC_PARSE
  755.             parse_maybe(art);
  756. #endif
  757.             if (htype[REPLY_LINE].ht_minpos >= 0) {
  758.                     /* was there a reply line? */
  759.             if (!(s=reply_buf))
  760.                 s = reply_buf = fetchlines(art,REPLY_LINE);
  761.             }
  762.             else if (!(s = from_buf))
  763.             s = from_buf = fetchlines(art,FROM_LINE);
  764.             if (*pattern == 'T') {
  765.             if (htype[PATH_LINE].ht_minpos >= 0) {
  766.                     /* should we substitute path? */
  767.                 s = path_buf = fetchlines(art,PATH_LINE);
  768.             }
  769.             i = strlen(sitename);
  770.             if (strnEQ(sitename,s,i) && s[i] == '!')
  771.                 s += i + 1;
  772.             }
  773.             if ((h=index(s,'(')) != Nullch)
  774.                         /* strip garbage from end */
  775.             *(h-1) = '\0';
  776.             else if ((h=index(s,'<')) != Nullch) {
  777.                         /* or perhaps from beginning */
  778.             s = h+1;
  779.             if ((h=index(s,'>')) != Nullch)
  780.                 *h = '\0';
  781.             }
  782.             break;
  783.         case 'u':
  784.             sprintf(scrbuf,"%ld",(long)toread[ng]);
  785.             s = scrbuf;
  786.             break;
  787.         case 'U':
  788.             sprintf(scrbuf,"%ld",
  789.             (long)(((ART_NUM)toread[ng]) - 1 + was_read(art)));
  790.             s = scrbuf;
  791.             break;
  792.         case 'x':            /* news library */
  793.             s = lib;
  794.             break;
  795.         case 'X':            /* rn library */
  796.             s = rnlib;
  797.             break;
  798.         case 'z':
  799. #ifdef LINKART
  800.             s = linkartname;    /* so Eunice people get right file */
  801. #else
  802.             s = scrbuf;
  803.             sprintf(s,"%ld",(long)art);
  804. #endif
  805.             if (stat(s,&filestat) < 0)
  806.             filestat.st_size = 0L;
  807.             sprintf(scrbuf,"%5ld",(long)filestat.st_size);
  808.             s = scrbuf;
  809.             break;
  810.         default:
  811.             if (--destsize <= 0)
  812.             abort_interp();
  813.             *dest++ = *pattern | metabit;
  814.             s = nullstr;
  815.             break;
  816.         }
  817.         }
  818.         if (!s)
  819.         s = nullstr;
  820.         pattern++;
  821.         if (upper || lastcomp) {
  822.         char *t;
  823.  
  824.         if (s != scrbuf) {
  825.             safecpy(scrbuf,s,(sizeof scrbuf));
  826.             s = scrbuf;
  827.         }
  828.         if (upper || !(t=rindex(s,'/')))
  829.             t = s;
  830.         while (*t && !isalpha(*t))
  831.             t++;
  832.         if (islower(*t))
  833.             *t = toupper(*t);
  834.         }
  835.         i = metabit;        /* maybe get into register */
  836.         if (s == dest) {
  837.         while (*dest) {
  838.             if (--destsize <= 0)
  839.             abort_interp();
  840.             *dest++ |= i;
  841.         }
  842.         }
  843.         else {
  844.         while (*s) {
  845.             if (--destsize <= 0)
  846.             abort_interp();
  847.             *dest++ = *s++ | i;
  848.         }
  849.         }
  850.     }
  851.     else {
  852.         if (--destsize <= 0)
  853.         abort_interp();
  854.         if (*pattern == '^' && pattern[1]) {
  855.         ++pattern;            /* skip uparrow */
  856.         i = *pattern;        /* get char into a register */
  857.         if (i == '?')
  858.             *dest++ = '\177' | metabit;
  859.         else if (i == '(') {
  860.             metabit = 0200;
  861.             destsize++;
  862.         }
  863.         else if (i == ')') {
  864.             metabit = 0;
  865.             destsize++;
  866.         }
  867.         else
  868.             *dest++ = i & 037 | metabit;
  869.         pattern++;
  870.         }
  871.         else if (*pattern == '\\' && pattern[1]) {
  872.         ++pattern;            /* skip backslash */
  873.         i = *pattern;        /* get char into a register */
  874.     
  875.         /* this used to be a switch but the if may save space */
  876.         
  877.         if (i >= '0' && i <= '7') {
  878.             i = 1;
  879.             while (i < 01000 && *pattern >= '0' && *pattern <= '7') {
  880.             i <<= 3;
  881.             i += *pattern++ - '0';
  882.             }
  883.             *dest++ = i & 0377 | metabit;
  884.             --pattern;
  885.         }
  886.         else if (i == 'b')
  887.             *dest++ = '\b' | metabit;
  888.         else if (i == 'f')
  889.             *dest++ = '\f' | metabit;
  890.         else if (i == 'n')
  891.             *dest++ = '\n' | metabit;
  892.         else if (i == 'r')
  893.             *dest++ = '\r' | metabit;
  894.         else if (i == 't')
  895.             *dest++ = '\t' | metabit;
  896.         else
  897.             *dest++ = i | metabit;
  898.         pattern++;
  899.         }
  900.         else
  901.         *dest++ = *pattern++ | metabit;
  902.     }
  903.     }
  904.     *dest = '\0';
  905. getout:
  906.     if (subj_buf != Nullch)    /* return any checked out storage */
  907.     free(subj_buf);
  908.     if (ngs_buf != Nullch)
  909.     free(ngs_buf);
  910.     if (refs_buf != Nullch)
  911.     free(refs_buf);
  912.     if (artid_buf != Nullch)
  913.     free(artid_buf);
  914.     if (reply_buf != Nullch)
  915.     free(reply_buf);
  916.     if (from_buf != Nullch)
  917.     free(from_buf);
  918.     if (path_buf != Nullch)
  919.     free(path_buf);
  920.     if (follow_buf != Nullch)
  921.     free(follow_buf);
  922.     if (dist_buf != Nullch)
  923.     free(dist_buf);
  924.     if (line_buf != Nullch)
  925.     free(line_buf);
  926.     return pattern;            /* where we left off */
  927. }
  928.  
  929. void
  930. interp(dest,destsize,pattern)
  931. char *dest;
  932. int destsize;
  933. char *pattern;
  934. {
  935.     dointerp(dest,destsize,pattern,Nullch);
  936. #ifdef DEBUGGING
  937.     if (debug & DEB_FILEXP)
  938.     fputs(dest,stdout);
  939. #endif
  940. }
  941.  
  942. /* copy a references line, normalizing as we go */
  943.  
  944. void
  945. refscpy(dest,destsize,src)
  946. register char *dest, *src;
  947. register int destsize;
  948. {
  949.     register char *dot, *at, *beg;
  950.     char tmpbuf[64];
  951.     
  952.     while (*src) {
  953.     if (*src != '<') {
  954.         if (--destsize <= 0)
  955.         break;
  956.         *dest++ = '<';
  957.         at = dot = Nullch;
  958.         beg = src;
  959.         while (*src && *src != ' ' && *src != ',') {
  960.         if (*src == '.')
  961.             dot = src;
  962.         else if (*src == '@')
  963.             at = src;
  964.         if (--destsize <= 0)
  965.             break;
  966.         *dest++ = *src++;
  967.         }
  968.         if (destsize <= 0)
  969.         break;
  970.         if (dot && !at) {
  971.         int len;
  972.  
  973.         *dest = *dot++ = '\0';
  974.         sprintf(tmpbuf,"%s@%s.UUCP",dot,beg);
  975.         len = strlen(tmpbuf);
  976.         if (destsize > len) {
  977.             strcpy(dest,tmpbuf);
  978.             dest = dest + len;
  979.             destsize -= len;
  980.         }
  981.         }
  982.         if (--destsize <= 0)
  983.         break;
  984.         *dest++ = '>';
  985.     }
  986.     else {
  987.         while (*src && --destsize > 0 && (*dest++ = *src++) != '>') ;
  988.         if (destsize <= 0)
  989.         break;
  990.     }
  991.     while (*src == ' ' || *src == ',') src++;
  992.     if (*src && --destsize > 0)
  993.         *dest++ = ' ';
  994.     }
  995.     *dest = '\0';
  996. } 
  997.  
  998. /* get the person's real name from /etc/passwd */
  999. /* (string is overwritten, so it must be copied) */
  1000.  
  1001. char *
  1002. getrealname(uid)
  1003. int uid;
  1004. {
  1005.     char *s, *c;
  1006.  
  1007. #ifdef PASSNAMES
  1008. #ifdef GETPWENT
  1009.     struct passwd *pwd = getpwuid(uid);
  1010.     
  1011.     s = pwd->pw_gcos;
  1012. #else
  1013.     char tmpbuf[512];
  1014.     int i;
  1015.  
  1016.     getpw(uid, tmpbuf);
  1017.     for (s=tmpbuf, i=GCOSFIELD-1; i; i--) {
  1018.     if (s)
  1019.         s = index(s,':')+1;
  1020.     }
  1021.     if (!s)
  1022.     return nullstr;
  1023.     cpytill(tmpbuf,s,':');
  1024.     s = tmpbuf;
  1025. #endif
  1026. #ifdef BERKNAMES
  1027. #ifdef BERKJUNK
  1028.     while (*s && !isalnum(*s) && *s != '&') s++;
  1029. #endif
  1030.     if ((c = index(s, ',')) != Nullch)
  1031.     *c = '\0';
  1032.     if ((c = index(s, ';')) != Nullch)
  1033.     *c = '\0';
  1034.     s = cpytill(buf,s,'&');
  1035.     if (*s == '&') {            /* whoever thought this one up was */
  1036.     strcat(buf,logname);        /* in the middle of the night */
  1037.     strcat(buf,s+1);        /* before the morning after */
  1038.     if (islower(*buf))
  1039.         *buf = toupper(*buf);    /* gack and double gack */
  1040.     }
  1041. #else
  1042.     if ((c = index(s, '(')) != Nullch)
  1043.     *c = '\0';
  1044.     if ((c = index(s, '-')) != Nullch)
  1045.     s = c;
  1046.     strcpy(buf,tmpbuf);
  1047. #endif
  1048. #ifdef GETPWENT
  1049.     endpwent();
  1050. #endif
  1051.     return buf;                /* return something static */
  1052. #else
  1053.     if ((tmpfp=fopen(filexp(FULLNAMEFILE),"r")) != Nullfp) {
  1054.     fgets(buf,sizeof buf,tmpfp);
  1055.     fclose(tmpfp);
  1056.     buf[strlen(buf)-1] = '\0';
  1057.     return buf;
  1058.     }
  1059.     return "PUT YOUR NAME HERE";
  1060. #endif
  1061. }
  1062.  
  1063. static void
  1064. abort_interp()
  1065. {
  1066.     fputs("\n% interp buffer overflow!\n",stdout) FLUSH;
  1067.     sig_catcher(0);
  1068. }
  1069. !STUFFY!FUNK!
  1070. echo Extracting common.h
  1071. cat >common.h <<'!STUFFY!FUNK!'
  1072. /* $Header: common.h,v 4.3 85/05/01 11:37:11 lwall Exp $
  1073.  * 
  1074.  * $Log:    common.h,v $
  1075.  * Revision 4.3  85/05/01  11:37:11  lwall
  1076.  * Baseline for release with 4.3bsd.
  1077.  * 
  1078.  */
  1079.  
  1080. #include "config.h"    /* generated by installation script */
  1081. #ifdef WHOAMI
  1082. #    include <whoami.h>
  1083. #endif
  1084.  
  1085. #include <stdio.h>
  1086. #include <sys/types.h>
  1087. #include <sys/stat.h>
  1088. #include <ctype.h>
  1089.  
  1090. #ifndef isalnum
  1091. #   define isalnum(c) (isalpha(c) || isdigit(c))
  1092. #endif
  1093.  
  1094. #include <errno.h>
  1095. #include <signal.h>
  1096. #ifdef IOCTL
  1097. #include <sys/ioctl.h>
  1098. #endif IOCTL
  1099.  
  1100. #ifdef FCNTL
  1101. #   include <fcntl.h>
  1102. #endif
  1103.  
  1104. #ifdef TERMIO
  1105. #   include <termio.h>
  1106. #else
  1107. #   include <sgtty.h>
  1108. #endif
  1109.  
  1110. #ifdef GETPWENT
  1111. #   include <pwd.h>
  1112. #endif
  1113.  
  1114. #define BITSPERBYTE 8
  1115. #define LBUFLEN 512    /* line buffer length */
  1116.             /* (don't worry, .newsrc lines can exceed this) */
  1117. #ifdef pdp11
  1118. #   define CBUFLEN 256    /* command buffer length */
  1119. #   define PUSHSIZE 128
  1120. #else
  1121. #   define CBUFLEN 512    /* command buffer length */
  1122. #   define PUSHSIZE 256
  1123. #endif
  1124. #ifdef pdp11
  1125. #   define MAXFILENAME 128
  1126. #else
  1127. #   define MAXFILENAME 512
  1128. #endif
  1129. #define LONGKEY 15    /* longest keyword: currently "posting-version" */
  1130. #define FINISHCMD 0177
  1131.  
  1132. /* some handy defs */
  1133.  
  1134. #define bool char
  1135. #define TRUE (1)
  1136. #define FALSE (0)
  1137. #define Null(t) ((t)0)
  1138. #define Nullch Null(char *)
  1139. #define Nullfp Null(FILE *)
  1140.  
  1141. #define Ctl(ch) (ch & 037)
  1142.  
  1143. #define strNE(s1,s2) (strcmp(s1,s2))
  1144. #define strEQ(s1,s2) (!strcmp(s1,s2))
  1145. #define strnNE(s1,s2,l) (strncmp(s1,s2,l))
  1146. #define strnEQ(s1,s2,l) (!strncmp(s1,s2,l))
  1147.  
  1148. /* Things we can figure out ourselves */
  1149.  
  1150. #ifdef SIGTSTP
  1151. #   define BERKELEY     /* include job control signals? */
  1152. #endif
  1153.  
  1154. #ifdef SIGPROF
  1155. #   define BSD42        /* do we have Berkeley 4.2? */
  1156. #endif
  1157.  
  1158. #ifdef FIONREAD
  1159. #   define PENDING
  1160. #else
  1161. #   ifdef O_NDELAY
  1162. #    define PENDING
  1163. #   endif
  1164. #endif
  1165.  
  1166. #ifdef EUNICE
  1167. #   define LINKART        /* add 1 level of possible indirection */
  1168. #   define UNLINK(victim) while (!unlink(victim))
  1169. #else
  1170. #   define UNLINK(victim) unlink(victim)
  1171. #endif
  1172.  
  1173. /* Valid substitutions for strings marked with % comment are:
  1174.  *    %a    Current article number
  1175.  *    %A    Full name of current article (%P/%c/%a)
  1176.  *        (if LINKART defined, is the name of the real article)
  1177.  *    %b    Destination of a save command, a mailbox or command
  1178.  *    %B    The byte offset to the beginning of the article for saves
  1179.  *        with or without the header
  1180.  *    %c    Current newsgroup, directory form
  1181.  *    %C    Current newsgroup, dot form
  1182.  *    %d    %P/%c
  1183.  *    %D    Old Distribution: line
  1184.  *    %f    Old From: line or Reply-To: line
  1185.  *    %F    Newsgroups to followup to from Newsgroups: and Followup-To:
  1186.  *    %h    Name of header file to pass to mail or news poster
  1187.  *    %H    Host name (yours)
  1188.  *    %i    Old Message-I.D.: line, with <>
  1189.  *    %I    Inclusion indicator
  1190.  *    %l    News administrator login name
  1191.  *    %L    Login name (yours)
  1192.  *    %M    Number of articles markd with M
  1193.  *    %n    Newsgroups from source article
  1194.  *    %N    Full name (yours)
  1195.  *    %o    Organization (yours)
  1196.  *    %O    Original working directory (where you ran rn from)
  1197.  *    %p    Your private news directory (-d switch)
  1198.  *    %P    Public news spool directory (SPOOLDIR)
  1199.  *    %r    Last reference (parent article id)
  1200.  *    %R    New references list
  1201.  *    %s    Subject, with all Re's and (nf)'s stripped off
  1202.  *    %S    Subject, with one Re stripped off
  1203.  *    %t    New To: line derived from From: and Reply-To (Internet always)
  1204.  *    %T    New To: line derived from Path:
  1205.  *    %u    Number of unread articles
  1206.  *    %U    Number of unread articles disregarding current article
  1207.  *    %x    News library directory, usually /usr/lib/news
  1208.  *    %X    Rn library directory, usually %x/rn
  1209.  *    %z    Size of current article in bytes.
  1210.  *    %~    Home directory
  1211.  *    %.    Directory containing . files
  1212.  *    %$    current process number
  1213.  *    %{name} Environment variable "name".  %{name-default} form allowed.
  1214.  *    %[name]    Header line beginning with "Name: ", without "Name: " 
  1215.  *    %"prompt"
  1216.  *        Print prompt and insert what is typed.
  1217.  *    %`command`
  1218.  *        Insert output of command.
  1219.  *    %(test_text=pattern?if_text:else_text)
  1220.  *        Substitute if_text if test_text matches pattern, otherwise
  1221.  *        substitute else_text.  Use != for negated match.
  1222.  *        % substitutions are done on test_text, if_text, and else_text.
  1223.  *        (Note: %() only works if CONDSUB defined.)
  1224.  *    %digit    Substitute the text matched by the nth bracket in the last
  1225.  *        pattern that had brackets.  %0 matches the last bracket
  1226.  *        matched, in case you had alternatives.
  1227.  *
  1228.  *    Put ^ in the middle to capitalize the first letter: %^C = Net.jokes
  1229.  *    Put _ in the middle to capitalize last component: %_c = net/Jokes
  1230.  *
  1231.  *    ~ interpretation in filename expansion happens after % expansion, so
  1232.  *    you could put ~%{NEWSLOGNAME-news} and it will expand correctly.
  1233.  */
  1234.  
  1235. /* *** System Dependent Stuff *** */
  1236.  
  1237. /* NOTE: many of these are defined in the config.h file */
  1238.  
  1239. /* name of organization */
  1240. #ifndef ORGNAME
  1241. #   define ORGNAME "ACME Widget Company, Widget Falls, Southern North Dakota"
  1242. #endif
  1243.  
  1244. #ifndef MBOXCHAR
  1245. #   define MBOXCHAR 'F'    /* how to recognize a mailbox by 1st char */
  1246. #endif
  1247.  
  1248. #ifndef ROOTID
  1249. #   define ROOTID 0        /* uid of superuser */
  1250. #endif
  1251.  
  1252. #ifdef NORMSIG
  1253. #   define sigset signal
  1254. #   define sigignore(sig) signal(sig,SIG_IGN)
  1255. #endif
  1256.  
  1257. #ifndef LOGDIRFIELD
  1258. #   define LOGDIRFIELD 6        /* Which field (origin 1) is the */
  1259.                     /* login directory in /etc/passwd? */
  1260.                     /* (If it is not kept in passwd, */
  1261.                     /* but getpwnam() returns it, */
  1262.                     /* define the symbol GETPWENT) */
  1263. #endif
  1264. #ifndef GCOSFIELD
  1265. #   define GCOSFIELD 5
  1266. #endif
  1267.  
  1268. #ifndef NEGCHAR
  1269. #   define NEGCHAR '!'
  1270. #endif
  1271.  
  1272. /* Space conservation section */
  1273.  
  1274. /* To save D space, cut down size of MAXRCLINE, NGMAX, VARYSIZE. */
  1275. #define MAXRCLINE 500    /* number of lines allowed in .newsrc */
  1276.             /* several parallel arrays affected. */
  1277.             /* (You can have more lines in the active file, */
  1278.             /* just not in the .newsrc) */
  1279. #define HASHSIZ 547    /* should be prime, and at least MAXRCLINE + 10% */
  1280. #define NGMAX 100    /* number of newsgroups allowed on command line */
  1281.             /* undefine ONLY symbol to disable "only" feature */
  1282. #define VARYSIZE 256    /* this makes a block 1024 bytes long in DECville */
  1283.             /* (used by virtual array routines) */
  1284.  
  1285. /* Undefine any of the following features to save both I and D space */
  1286. /* In general, earlier ones are easier to get along without */
  1287. /* Pdp11's without split I and D may have to undefine them all */
  1288. #define DEBUGGING    /* include debugging code */
  1289. #define PUSHBACK    /* macros and keymaps using pushback buffer */
  1290. #define SPEEDOVERMEM    /* use more memory to run faster */
  1291. #define WORDERASE    /* enable ^W to erase a word */
  1292. #define MAILCALL    /* check periodically for mail */
  1293. #define CLEAREOL    /* use clear to end-of-line instead of clear screen */
  1294. #define NOFIREWORKS    /* keep whole screen from flashing on certain */
  1295.             /* terminals such as older Televideos */
  1296. #define VERIFY        /* echo the command they just typed */
  1297. #define HASHNG        /* hash newsgroup lines for fast lookup-- */
  1298.             /* linear search used if not defined */
  1299. #define CONDSUB        /* allow %(cond?text:text) */
  1300. #define BACKTICK    /* allow %`command` */
  1301. #define PROMPTTTY    /* allow %"prompt" */
  1302. #define ULSMARTS    /* catch _^H in text and do underlining */
  1303. #define TERMMOD        /* allow terminal type modifier on switches */
  1304. #define BAUDMOD        /* allow baudrate modifier on switches */
  1305. #define GETLOGIN    /* use getlogin() routine as backup to environment */
  1306.             /* variables USER or LOGNAME */
  1307. #define ORGFILE        /* if organization begins with /, look up in file */
  1308. #define TILDENAME    /* allow ~logname expansion */
  1309. #define SETENV        /* allow command line environment variable setting */
  1310. #define GETWD        /* use our getwd() instead of piped in pwd */
  1311. #ifndef BSD42        /* 4.2 sites should just use groups for this */
  1312. #define SETUIDGID    /* substitute eaccess() for access() so that rn */
  1313.             /* can run setuid or setgid */
  1314.             /* if not setuid or setgid, you don't need it */
  1315. #endif
  1316. #define MAKEDIR        /* use our makedir() instead of shell script */
  1317. #define MEMHELP        /* keep help messages in memory */
  1318. #define VERBOSE        /* compile in more informative messages */
  1319. #define TERSE        /* compile in shorter messages */
  1320.             /* (Note: both VERBOSE and TERSE can be defined; -t
  1321.              * sets terse mode.  One or the other MUST be defined.
  1322.              */
  1323. #ifndef pdp11
  1324. #   define CACHESUBJ    /* cache subject lines in memory */
  1325.             /* without this ^N still works but runs really slow */
  1326.             /* but you save lots and lots of D space */
  1327. #   define CACHEFIRST    /* keep absolute first article numbers in memory */
  1328.             /* cost: about 2k */
  1329. #endif
  1330. #define ROTATION    /* enable x, X and ^X commands to work */
  1331. #define DELBOGUS    /* ask if bogus newsgroups should be deleted */
  1332. #define RELOCATE    /* allow newsgroup rearranging */
  1333. #define ESCSUBS        /* escape substitutions in multi-character commands */
  1334. #define DELAYMARK    /* allow articles to be temporarily marked as read */
  1335.             /* until exit from current newsgroup or Y command */
  1336. #define MCHASE        /* unmark xrefed articles on m or M */
  1337. #define MUNGHEADER    /* allow alternate header formatting via */
  1338.             /* environment variable ALTHEADER (not impl) */
  1339. #define ASYNC_PARSE    /* allow parsing headers asyncronously to reading */
  1340.             /* used by MCHASE and MUNGHEADER */
  1341. #define FINDNEWNG    /* check for new newsgroups on startup */
  1342. #define FASTNEW        /* do optimizations on FINDNEWNG for faster startup */
  1343.             /* (this optimization can make occasional mistakes */
  1344.             /* if a group is removed and another group of the */
  1345.             /* same length is added, and if no softpointers are */
  1346.             /* affected by said change.) */
  1347. #define INNERSEARCH    /* search command 'g' with article */
  1348. #define CATCHUP        /* catchup command at newsgroup level */
  1349. #define NGSEARCH    /* newsgroup pattern matching */
  1350. #define ONLY        /* newsgroup restrictions by pattern */
  1351. #define KILLFILES    /* automatic article killer files */
  1352. #define ARTSEARCH    /* pattern searches among articles */
  1353.             /* /, ?, ^N, ^P, k, K */
  1354.  
  1355. /* some dependencies among options */
  1356.  
  1357. #ifndef ARTSEARCH
  1358. #   undef KILLFILES
  1359. #   undef INNERSEARCH
  1360. #   undef CACHESUBJ
  1361. #endif
  1362.  
  1363. #ifndef DELAYMARK
  1364. #   ifndef MCHASE
  1365. #    ifndef MUNGHEADER
  1366. #        undef ASYNC_PARSE
  1367. #    endif
  1368. #   endif
  1369. #endif
  1370.  
  1371. #ifndef SETUIDGID
  1372. #   define eaccess access
  1373. #endif
  1374.  
  1375. #ifdef ONLY                /* idiot lint doesn't grok #if */
  1376. #   define NGSORONLY
  1377. #else
  1378. #   ifdef NGSEARCH
  1379. #    define NGSORONLY
  1380. #   endif
  1381. #endif
  1382.  
  1383. #ifdef VERBOSE
  1384. #   ifdef TERSE
  1385. #    define IF(c) if (c)
  1386. #    define ELSE else
  1387. #   else !TERSE
  1388. #    define IF(c)
  1389. #    define ELSE
  1390. #   endif
  1391. #else !VERBOSE
  1392. #   ifndef TERSE
  1393. #    define TERSE
  1394. #   endif
  1395. #   define IF(c) "IF" outside of VERBOSE???
  1396. #   define ELSE "ELSE" outside of VERBOSE???
  1397. #endif
  1398.  
  1399. #ifdef DEBUGGING
  1400. #   define assert(ex) {if (!(ex)){fprintf(stderr,"Assertion failed: file %s, line %d\n", __FILE__, __LINE__);sig_catcher(0);}}
  1401. #else
  1402. #   define assert(ex) ;
  1403. #endif
  1404.  
  1405. #ifdef SPEEDOVERMEM
  1406. #   define OFFSET(x) (x)
  1407. #else
  1408. #   define OFFSET(x) ((x)-absfirst)
  1409. #endif
  1410.  
  1411. /* If you're strapped for space use the help messages in shell scripts */
  1412. /* if {NG,ART,PAGER,SUBS}HELP is undefined, help messages are in memory */
  1413. #ifdef MEMHELP  /* undef MEMHELP above to get them all as sh scripts */
  1414. #   undef NGHELP
  1415. #   undef ARTHELP
  1416. #   undef PAGERHELP
  1417. #   undef SUBSHELP
  1418. #else
  1419. #   ifndef NGHELP            /* % and ~ */
  1420. #    define NGHELP "%X/ng.help"
  1421. #   endif
  1422. #   ifndef ARTHELP            /* % and ~ */
  1423. #    define ARTHELP "%X/art.help"
  1424. #   endif
  1425. #   ifndef PAGERHELP        /* % and ~ */
  1426. #    define PAGERHELP "%X/pager.help"
  1427. #   endif
  1428. #   ifndef SUBSHELP        /* % and ~ */
  1429. #    define SUBSHELP "%X/subs.help"
  1430. #   endif
  1431. #endif
  1432.  
  1433. #ifdef CLEAREOL
  1434. #   define TCSIZE 512    /* capacity for termcap strings */
  1435. #else
  1436. #   ifdef pdp11
  1437. #    define TCSIZE 256    /* capacity for termcap strings */
  1438. #   else
  1439. #    define TCSIZE 512    /* capacity for termcap srings */
  1440. #   endif
  1441. #endif
  1442.  
  1443. /* Additional ideas:
  1444.  *    Make the do_newsgroup() routine a separate process.
  1445.  *    Keep .newsrc on disk instead of in memory.
  1446.  *    Overlays, if you have them.
  1447.  *    Get a bigger machine.
  1448.  */
  1449.  
  1450. /* End of Space Conservation Section */
  1451.  
  1452. /* More System Dependencies */
  1453.  
  1454. /* news library */
  1455. #ifndef LIB        /* ~ and %l only ("~%l" is permissable) */
  1456. #   define LIB "/usr/lib/news"
  1457. #endif
  1458.  
  1459. /* path to private executables */
  1460. #ifndef RNLIB        /* ~, %x and %l only */
  1461. #   define RNLIB "%x/rn"
  1462. #endif
  1463.  
  1464. /* system-wide RNINIT switches */
  1465. #ifndef GLOBINIT
  1466. #   define GLOBINIT "%X/INIT"
  1467. #endif
  1468.  
  1469. /* where to find news files */
  1470. #ifndef SPOOL            /* % and ~ */
  1471. #   define SPOOL "/usr/spool/news"
  1472. #endif
  1473.  
  1474. /* file containing list of active newsgroups and max article numbers */
  1475. #ifndef ACTIVE            /* % and ~ */
  1476. #   define ACTIVE "%x/active"
  1477. #endif
  1478.  
  1479. /* location of history file */
  1480. #ifndef ARTFILE            /* % and ~ */
  1481. #    define ARTFILE "%x/history"
  1482. #endif
  1483.  
  1484. /* command to setup a new .newsrc */
  1485. #ifndef NEWSETUP        /* % and ~ */
  1486. #   define NEWSETUP "newsetup"
  1487. #endif
  1488.  
  1489. /* command to display a list of un-subscribed-to newsgroups */
  1490. #ifndef NEWSGROUPS        /* % and ~ */
  1491. #   define NEWSGROUPS "newsgroups"
  1492. #endif
  1493.  
  1494. /* preferred shell for use in doshell routine */
  1495. /*  ksh or sh would be okay here */
  1496. #ifndef PREFSHELL
  1497. #   define PREFSHELL "/bin/csh"
  1498. #endif
  1499.  
  1500. /* path to fastest starting shell */
  1501. #ifndef SH
  1502. #   define SH "/bin/sh"
  1503. #endif
  1504.  
  1505. /* path to default editor */
  1506. #ifndef DEFEDITOR
  1507. #   define DEFEDITOR "/usr/ucb/vi"
  1508. #endif
  1509.  
  1510. /* location of macro file */
  1511. #ifndef RNMACRO
  1512. #   ifdef PUSHBACK
  1513. #    define RNMACRO "%./.rnmac"
  1514. #   endif
  1515. #endif
  1516.  
  1517. /* location of full name */
  1518. #ifndef FULLNAMEFILE
  1519. #   ifndef PASSNAMES
  1520. #    define FULLNAMEFILE "%./.fullname"
  1521. #   endif
  1522. #endif
  1523.  
  1524. /* virtual array file name template */
  1525. #ifndef VARYNAME        /* % and ~ */
  1526. #   define VARYNAME "/tmp/rnvary.%$"
  1527. #endif
  1528.  
  1529. /* file to pass header to followup article poster */
  1530. #ifndef HEADNAME        /* % and ~ */
  1531. #   define HEADNAME "%./.rnhead"
  1532. /* or alternately #define HEADNAME "/tmp/rnhead.%$" */
  1533. #endif
  1534.  
  1535. #ifndef MAKEDIR
  1536. /* shell script to make n-deep subdirectories */
  1537. #   ifndef DIRMAKER        /* % and ~ */
  1538. #    define DIRMAKER "%X/makedir"
  1539. #   endif
  1540. #endif
  1541.  
  1542. /* location of newsrc file */
  1543. #ifndef RCNAME        /* % and ~ */
  1544. #   define RCNAME "%./.newsrc"
  1545. #endif
  1546.  
  1547. /* temporary newsrc file in case we crash while writing out */
  1548. #ifndef RCTNAME        /* % and ~ */
  1549. #   define RCTNAME "%./.newnewsrc"
  1550. #endif
  1551.  
  1552. /* newsrc file at the beginning of this session */
  1553. #ifndef RCBNAME        /* % and ~ */
  1554. #   define RCBNAME "%./.oldnewsrc"
  1555. #endif
  1556.  
  1557. /* if existent, contains process number of current or crashed rn */
  1558. #ifndef LOCKNAME        /* % and ~ */
  1559. #   define LOCKNAME "%./.rnlock"
  1560. #endif
  1561.  
  1562. /* information from last invocation of rn */
  1563. #ifndef LASTNAME        /* % and ~ */
  1564. #   define LASTNAME "%./.rnlast"
  1565. #endif
  1566.  
  1567. /* file with soft pointers into the active file */
  1568. #ifndef SOFTNAME        /* % and ~ */
  1569. #   define SOFTNAME "%./.rnsoft"
  1570. #endif
  1571.  
  1572. /* list of article numbers to mark as unread later (see M and Y cmmands) */
  1573. #ifndef RNDELNAME        /* % and ~ */
  1574. #   define RNDELNAME "%./.rndelay"
  1575. #endif
  1576.  
  1577. /* a motd-like file for rn */
  1578. #ifndef NEWSNEWSNAME        /* % and ~ */
  1579. #   define NEWSNEWSNAME "%X/newsnews"
  1580. #endif
  1581.  
  1582. /* command to send a reply */
  1583. #ifndef MAILPOSTER        /* % and ~ */
  1584. #   define MAILPOSTER "Rnmail -h %h"
  1585. #endif
  1586.  
  1587. #ifdef INTERNET
  1588. #   ifndef MAILHEADER        /* % */
  1589. #    ifdef CONDSUB
  1590. #        define MAILHEADER "To: %t\nSubject: Re: %S\nNewsgroups: %n\nIn-Reply-To: %i\n%(%[references]!=^$?References\\: %[references]\n)Organization: %o\nCc: \nBcc: \n\n"
  1591. #    else
  1592. #        define MAILHEADER "To: %t\nSubject: Re: %S\nNewsgroups: %n\nIn-Reply-To: %i\nReferences: %[references]\nCc: \nBcc: \n\n"
  1593. #    endif
  1594. #   endif
  1595. #else
  1596. #   ifndef MAILHEADER        /* % */
  1597. #    ifdef CONDSUB
  1598. #        define MAILHEADER "To: %T\nSubject: Re: %S\nNewsgroups: %n\nIn-Reply-To: %i\n%(%[references]!=^$?References\\: %[references]\n)Organization: %o\nCc: \nBcc: \n\n"
  1599. #    else
  1600. #        define MAILHEADER "To: %T\nSubject: Re: %S\nNewsgroups: %n\nIn-Reply-To: %i\nReferences: %[references]\nCc: \nBcc: \n\n"
  1601. #    endif
  1602. #   endif
  1603. #endif
  1604.  
  1605. #ifndef YOUSAID            /* % */
  1606. #   define YOUSAID "In article %i you write:"
  1607. #endif
  1608.  
  1609. /* command to submit a followup article */
  1610. #ifndef NEWSPOSTER        /* % and ~ */
  1611. #   define NEWSPOSTER "Pnews -h %h"
  1612. #endif
  1613.  
  1614. #ifndef NEWSHEADER        /* % */
  1615. #   define NEWSHEADER "Newsgroups: %F\nSubject: Re: %S\nSummary: \nExpires: \nReferences: %R\nSender: \nReply-To: %L@%H.UUCP (%N)\nFollowup-To: \nDistribution: %D\nOrganization: %o\nKeywords: %[keywords]\n\n"
  1616. #endif
  1617.  
  1618. #ifndef ATTRIBUTION        /* % */
  1619. #   define ATTRIBUTION "In article %i %f writes:"
  1620. #endif
  1621.  
  1622. #ifndef PIPESAVER        /* % */
  1623. #   ifdef CONDSUB
  1624. #    define PIPESAVER "%(%B=^0$?<%A:tail +%Bc %A |) %b"
  1625. #   else
  1626. #    define PIPESAVER "tail +%Bc %A | %b"
  1627. #   endif
  1628. #endif
  1629.  
  1630. #ifndef NORMSAVER        /* % and ~ */
  1631. #   define NORMSAVER "%X/norm.saver %A %P %c %a %B %C \"%b\""
  1632. #endif
  1633.  
  1634. #ifndef MBOXSAVER        /* % and ~ */
  1635. #   ifdef MININACT        /* 2.10.2 site? */
  1636. #    define MBOXSAVER "%X/mbox.saver %A %P %c %a %B %C \"%b\" \"From %T %`date`\""
  1637. #   else
  1638. #    ifdef CONDSUB
  1639. #        define MBOXSAVER "%X/mbox.saver %A %P %c %a %B %C \"%b\" \"From %T %(%[date]=^\\(\\w*\\), \\(\\w*\\)-\\(\\w*\\)-\\(\\w*\\) \\([^ ]*\\)?%1 %3 %(%2=..?%2: %2) %5 19%4)\""
  1640.                     /* header munging with a vengeance */
  1641. #    else
  1642. #        define MBOXSAVER "%X/mbox.saver %A %P %c %a %B %C \"%b\" \"From %T %[posted]\""
  1643. #    endif
  1644. #   endif
  1645. #endif
  1646.  
  1647. #ifdef MKDIRS
  1648.  
  1649. #   ifndef SAVEDIR            /* % and ~ */
  1650. #    define SAVEDIR "%p/%c"
  1651. #   endif
  1652. #   ifndef SAVENAME        /* % */
  1653. #    define SAVENAME "%a"
  1654. #   endif
  1655.  
  1656. #else
  1657.  
  1658. #   ifndef SAVEDIR            /* % and ~ */
  1659. #    define SAVEDIR "%p"
  1660. #   endif
  1661. #   ifndef SAVENAME        /* % */
  1662. #    define SAVENAME "%^C"
  1663. #   endif
  1664.  
  1665. #endif
  1666.  
  1667. #ifndef KILLGLOBAL        /* % and ~ */
  1668. #   define KILLGLOBAL "%p/KILL"
  1669. #endif
  1670.  
  1671. #ifndef KILLLOCAL        /* % and ~ */
  1672. #   define KILLLOCAL "%p/%c/KILL"
  1673. #endif
  1674.  
  1675. /* how to cancel an article */
  1676. #ifndef CANCEL
  1677. #   ifdef MININACT            /* 2.10.2 ? */
  1678. #    define CANCEL "%x/inews -h < %h"
  1679. #   else
  1680. #    define CANCEL "inews -h < %h"
  1681. #   endif
  1682. #endif
  1683.  
  1684. /* how to cancel an article, continued */
  1685. #ifndef CANCELHEADER
  1686. #   define CANCELHEADER "Newsgroups: %n\nSubject: cmsg cancel %i\nReferences: %R\nReply-To: %L@%H.UUCP (%N)\nDistribution: %D\nOrganization: %o\n"
  1687. #endif
  1688.  
  1689. /* where to find the mail file */
  1690. #ifndef MAILFILE
  1691. #   define MAILFILE "/usr/spool/mail/%L"
  1692. #endif
  1693.  
  1694. /* some important types */
  1695.  
  1696. typedef int        NG_NUM;        /* newsgroup number */
  1697. typedef long        ART_NUM;    /* article number */
  1698. #ifdef pdp11
  1699.     typedef short    ART_UNREAD;    /* ordinarily this should be long */
  1700.                     /* like ART_NUM, but assuming that */
  1701.                     /* we stay less than 32767 articles */
  1702.                     /* behind saves a lot of space. */
  1703.                     /* NOTE: do not make unsigned. */
  1704. #else
  1705.     typedef long    ART_UNREAD;
  1706. #endif
  1707. typedef long        ART_POS;    /* char position in article file */
  1708. typedef int        ART_LINE;    /* line position in article file */
  1709. typedef short        ACT_POS;    /* char position in active file */
  1710. typedef unsigned int    MEM_SIZE;    /* for passing to malloc */
  1711.  
  1712. /* *** end of the machine dependent stuff *** */
  1713.  
  1714. /* GLOBAL THINGS */
  1715.  
  1716. /* file statistics area */
  1717.  
  1718. EXT struct stat filestat;
  1719.  
  1720. /* various things of type char */
  1721.  
  1722. char    *index();
  1723. char    *rindex();
  1724. char    *getenv();
  1725. char    *strcat();
  1726. char    *strcpy();
  1727. char    *sprintf();
  1728.  
  1729. EXT char buf[LBUFLEN+1];    /* general purpose line buffer */
  1730. EXT char cmd_buf[CBUFLEN];    /* buffer for formatting system commands */
  1731.  
  1732. EXT char *indstr INIT(">");    /* indent for old article embedded in followup */
  1733.  
  1734. EXT char *cwd INIT(Nullch);        /* current working directory */
  1735. EXT char *dfltcmd INIT(Nullch);    /* 1st char is default command */
  1736.  
  1737. /* switches */
  1738.  
  1739. #ifdef DEBUGGING
  1740.     EXT int debug INIT(0);                /* -D */
  1741. #   define DEB_INNERSRCH 32 
  1742. #   define DEB_FILEXP 64 
  1743. #   define DEB_HASH 128
  1744. #   define DEB_XREF_MARKER 256
  1745. #   define DEB_CTLAREA_BITMAP 512
  1746. #   define DEB_SOFT_POINTERS 1024
  1747. #   define DEB_NEWSRC_LINE 2048
  1748. #   define DEB_SEARCH_AHEAD 4096
  1749. #   define DEB_CHECKPOINTING 8192
  1750. #   define DEB_FEED_XREF 16384
  1751. #endif
  1752.  
  1753. #ifdef ARTSEARCH
  1754.     EXT int scanon INIT(0);                /* -S */
  1755. #endif
  1756.  
  1757. EXT bool mbox_always INIT(FALSE);            /* -M */
  1758. EXT bool norm_always INIT(FALSE);            /* -N */
  1759. EXT bool checkflag INIT(FALSE);            /* -c */
  1760. EXT bool suppress_cn INIT(FALSE);            /* -s */
  1761. EXT int countdown INIT(5);    /* how many lines to list before invoking -s */
  1762. EXT bool muck_up_clear INIT(FALSE);            /* -loco */
  1763. EXT bool erase_screen INIT(FALSE);            /* -e */
  1764. #ifdef CLEAREOL
  1765. EXT bool can_home_clear INIT(FALSE);        /* fancy -e -- PWP */
  1766. #endif CLEAREOL
  1767. EXT bool findlast INIT(FALSE);            /* -r */
  1768. EXT bool typeahead INIT(FALSE);            /* -T */
  1769. #ifdef VERBOSE
  1770. #   ifdef TERSE
  1771.     EXT bool verbose INIT(TRUE);            /* +t */
  1772. #   endif
  1773. #endif
  1774. #ifdef VERIFY
  1775.     EXT bool verify INIT(FALSE);            /* -v */
  1776. #endif
  1777.  
  1778. #define NOMARKING 0
  1779. #define STANDOUT 1
  1780. #define UNDERLINE 2
  1781. EXT int marking INIT(NOMARKING);            /* -m */
  1782.  
  1783. EXT ART_LINE initlines INIT(0);        /* -i */
  1784.  
  1785. /* miscellania */
  1786.  
  1787. long atol(), fseek(), ftell();
  1788. EXT bool in_ng INIT(FALSE);        /* current state of rn */
  1789. EXT char mode INIT('i');        /* current state of rn */
  1790.  
  1791. EXT FILE *tmpfp INIT(Nullfp);    /* scratch fp used for .rnlock, .rnlast, etc. */
  1792.  
  1793. EXT NG_NUM nextrcline INIT(0);    /* 1st unused slot in rcline array */
  1794.             /* startup to avoid checking twice in a row */
  1795.  
  1796. extern errno;
  1797.  
  1798. /* Factored strings */
  1799.  
  1800. EXT char nullstr[] INIT("");
  1801. EXT char sh[] INIT(SH);
  1802. EXT char defeditor[] INIT(DEFEDITOR);
  1803. EXT char hforhelp[] INIT("Type h for help.\n");
  1804. #ifdef STRICTCR
  1805. EXT char badcr[] INIT("\nUnnecessary CR ignored.\n");
  1806. #endif
  1807. EXT char readerr[] INIT("rn read error");
  1808. EXT char unsubto[] INIT("\n\nUnsubscribed to newsgroup %s\n");
  1809. EXT char cantopen[] INIT("Can't open %s\n");
  1810. EXT char cantcreate[] INIT("Can't create %s\n");
  1811.  
  1812. #ifdef VERBOSE
  1813.     EXT char nocd[] INIT("Can't chdir to directory %s\n");
  1814. #else
  1815.     EXT char nocd[] INIT("Can't find %s\n");
  1816. #endif
  1817.  
  1818. #ifdef NOLINEBUF
  1819. #define FLUSH ,fflush(stdout)
  1820. #else
  1821. #define FLUSH
  1822. #endif
  1823.  
  1824. #ifdef lint
  1825. #undef FLUSH
  1826. #define FLUSH
  1827. #undef putchar
  1828. #define putchar(c)
  1829. #endif
  1830. !STUFFY!FUNK!
  1831. echo Extracting bits.c
  1832. cat >bits.c <<'!STUFFY!FUNK!'
  1833. /* $Header: bits.c,v 4.3 85/05/01 11:36:15 lwall Exp $
  1834.  *
  1835.  * $Log:    bits.c,v $
  1836.  * Revision 4.3  85/05/01  11:36:15  lwall
  1837.  * Baseline for release with 4.3bsd.
  1838.  * 
  1839.  */
  1840.  
  1841. #include "EXTERN.h"
  1842. #include "common.h"
  1843. #include "rcstuff.h"
  1844. #include "head.h"
  1845. #include "util.h"
  1846. #include "final.h"
  1847. #include "rn.h"
  1848. #include "cheat.h"
  1849. #include "ng.h"
  1850. #include "artio.h"
  1851. #include "intrp.h"
  1852. #include "ngdata.h"
  1853. #include "rcln.h"
  1854. #include "kfile.h"
  1855. #include "INTERN.h"
  1856. #include "bits.h"
  1857.  
  1858. #ifdef DBM
  1859. #    ifdef NULL
  1860. #    undef NULL
  1861. #    endif NULL
  1862. #    include <dbm.h>
  1863. #endif DBM
  1864. MEM_SIZE ctlsize;            /* size of bitmap in bytes */
  1865.  
  1866. void
  1867. bits_init()
  1868. {
  1869. #ifdef DELAYMARK
  1870.     dmname = savestr(filexp(RNDELNAME));
  1871. #else
  1872.     ;
  1873. #endif
  1874. }
  1875.  
  1876. /* checkpoint the .newsrc */
  1877.  
  1878. void
  1879. checkpoint_rc()
  1880. {
  1881. #ifdef DEBUGGING
  1882.     if (debug & DEB_CHECKPOINTING) {
  1883.     fputs("(ckpt)",stdout);
  1884.     fflush(stdout);
  1885.     }
  1886. #endif
  1887.     if (doing_ng)
  1888.     restore_ng();            /* do not restore M articles */
  1889.     if (rc_changed)
  1890.     write_rc();
  1891. #ifdef DEBUGGING
  1892.     if (debug & DEB_CHECKPOINTING) {
  1893.     fputs("(done)",stdout);
  1894.     fflush(stdout);
  1895.     }
  1896. #endif
  1897. }
  1898.  
  1899. /* reconstruct the .newsrc line in a human readable form */
  1900.  
  1901. void
  1902. restore_ng()
  1903. {
  1904.     register char *s, *mybuf = buf;
  1905.     register ART_NUM i;
  1906.     ART_NUM count=0;
  1907.     int safelen = LBUFLEN - 16;
  1908.  
  1909.     strcpy(buf,rcline[ng]);        /* start with the newsgroup name */
  1910.     s = buf + rcnums[ng] - 1;        /* use s for buffer pointer */
  1911.     *s++ = rcchar[ng];            /* put the requisite : or !*/
  1912.     *s++ = ' ';                /* put the not-so-requisite space */
  1913.     for (i=1; i<=lastart; i++) {    /* for each article in newsgroup */
  1914.     if (s-mybuf > safelen) {    /* running out of room? */
  1915.         safelen *= 2;
  1916.         if (mybuf == buf) {        /* currently static? */
  1917.         *s = '\0';
  1918.         mybuf = safemalloc((MEM_SIZE)safelen + 16);
  1919.         strcpy(mybuf,buf);    /* so we must copy it */
  1920.         s = mybuf + (s-buf);
  1921.                     /* fix the pointer, too */
  1922.         }
  1923.         else {            /* just grow in place, if possible */
  1924.         char *newbuf;
  1925.  
  1926.         newbuf = saferealloc(mybuf,(MEM_SIZE)safelen + 16);
  1927.         s = newbuf + (s-mybuf);
  1928.         mybuf = newbuf;
  1929.         }
  1930.     }
  1931.     if (!was_read(i))        /* still unread? */
  1932.         count++;            /* then count it */
  1933.     else {                /* article was read */
  1934.         ART_NUM oldi;
  1935.  
  1936.         sprintf(s,"%ld",(long)i);    /* put out the min of the range */
  1937.         s += strlen(s);        /* keeping house */
  1938.         oldi = i;            /* remember this spot */
  1939.         do i++; while (i <= lastart && was_read(i));
  1940.                     /* find 1st unread article or end */
  1941.         i--;            /* backup to last read article */
  1942.         if (i > oldi) {        /* range of more than 1? */
  1943.         sprintf(s,"-%ld,",(long)i);
  1944.                     /* then it out as a range */
  1945.         s += strlen(s);        /* and housekeep */
  1946.         }
  1947.         else
  1948.         *s++ = ',';        /* otherwise, just a comma will do */
  1949.     }
  1950.     }
  1951.     if (*(s-1) == ',')            /* is there a final ','? */
  1952.     s--;                /* take it back */
  1953.     *s++ = '\0';            /* and terminate string */
  1954. #ifdef DEBUGGING
  1955.     if (debug & DEB_NEWSRC_LINE && !panic) {
  1956.     printf("%s: %s\n",rcline[ng],rcline[ng]+rcnums[ng]) FLUSH;
  1957.     printf("%s\n",mybuf) FLUSH;
  1958.     }
  1959. #endif
  1960.     free(rcline[ng]);            /* return old rc line */
  1961.     if (mybuf == buf) {
  1962.     rcline[ng] = safemalloc((MEM_SIZE)(s-buf)+1);
  1963.                     /* grab a new rc line */
  1964.     strcpy(rcline[ng], buf);    /* and load it */
  1965.     }
  1966.     else {
  1967.     mybuf = saferealloc(mybuf,(MEM_SIZE)(s-mybuf)+1);
  1968.                     /* be nice to the heap */
  1969.     rcline[ng] = mybuf;
  1970.     }
  1971.     *(rcline[ng] + rcnums[ng] - 1) = '\0';
  1972.     if (rcchar[ng] == NEGCHAR) {    /* did they unsubscribe? */
  1973.     printf(unsubto,ngname) FLUSH;
  1974.     toread[ng] = TR_UNSUB;        /* make line invisible */
  1975.     }
  1976.     else
  1977.     /*NOSTRICT*/
  1978.     toread[ng] = (ART_UNREAD)count;        /* remember how many unread there are */
  1979. }
  1980.  
  1981. /* mark an article unread, keeping track of toread[] */
  1982.  
  1983. void
  1984. onemore(artnum)
  1985. ART_NUM artnum;
  1986. {
  1987. #ifdef DEBUGGING
  1988.     if (debug && artnum < firstart) {
  1989.     printf("onemore: %d < %d\n",artnum,firstart) FLUSH;
  1990.     return;
  1991.     }
  1992. #endif
  1993.     if (ctl_read(artnum)) {
  1994.     ctl_clear(artnum);
  1995.     ++toread[ng];
  1996.     }
  1997. }
  1998.  
  1999. /* mark an article read, keeping track of toread[] */
  2000.  
  2001. void
  2002. oneless(artnum)
  2003. ART_NUM artnum;
  2004. {
  2005. #ifdef DEBUGGING
  2006.     if (debug && artnum < firstart) {
  2007.     printf("oneless: %d < %d\n",artnum,firstart) FLUSH;
  2008.     return;
  2009.     }
  2010. #endif
  2011.     if (!ctl_read(artnum)) {
  2012.     ctl_set(artnum);
  2013.     if (toread[ng] > TR_NONE)
  2014.         --toread[ng];
  2015.     }
  2016. }
  2017.  
  2018. /* mark an article as unread, making sure that firstart is properly handled */
  2019. /* cross-references are left as read in the other newsgroups */
  2020.  
  2021. void
  2022. unmark_as_read(artnum)
  2023. ART_NUM artnum;
  2024. {
  2025.     check_first(artnum);
  2026.     onemore(artnum);
  2027. #ifdef MCHASE
  2028.     if (!parse_maybe(artnum))
  2029.     chase_xrefs(artnum,FALSE);
  2030. #endif
  2031. }
  2032.  
  2033. #ifdef DELAYMARK
  2034. /* temporarily mark article as read.  When newsgroup is exited, articles */
  2035. /* will be marked as unread.  Called via M command */
  2036.  
  2037. void
  2038. delay_unmark(artnum)
  2039. ART_NUM artnum;
  2040. {
  2041.     if (dmfp == Nullfp) {
  2042.     dmfp = fopen(dmname,"w");
  2043.     if (dmfp == Nullfp) {
  2044.         printf(cantcreate,dmname) FLUSH;
  2045.         sig_catcher(0);
  2046.     }
  2047.     }
  2048.     oneless(artnum);            /* set the correct bit */
  2049.     dmcount++;
  2050.     fprintf(dmfp,"%ld\n",(long)artnum);
  2051. }
  2052. #endif
  2053.  
  2054. /* mark article as read.  If article is cross referenced to other */
  2055. /* newsgroups, mark them read there also. */
  2056.  
  2057. void
  2058. mark_as_read(artnum)
  2059. ART_NUM artnum;
  2060. {
  2061.     oneless(artnum);            /* set the correct bit */
  2062.     checkcount++;            /* get more worried about crashes */
  2063.     chase_xrefs(artnum,TRUE);
  2064. }
  2065.  
  2066. /* make sure we have bits set correctly down to firstart */
  2067.  
  2068. void
  2069. check_first(min)
  2070. ART_NUM min;
  2071. {
  2072.     register ART_NUM i = firstart;
  2073.  
  2074.     if (min < absfirst)
  2075.     min = absfirst;
  2076.     if (min < i) {
  2077.     for (i--; i>=min; i--)
  2078.         ctl_set(i);        /* mark as read */
  2079.     firstart = min;
  2080.     }
  2081. }
  2082.  
  2083. /* bring back articles marked with M */
  2084.  
  2085. #ifdef DELAYMARK
  2086. void
  2087. yankback()
  2088. {
  2089.     register ART_NUM anum;
  2090.  
  2091.     if (dmfp) {            /* delayed unmarks pending? */
  2092. #ifdef VERBOSE
  2093.     printf("\nReturning %ld Marked article%s...\n",(long)dmcount,
  2094.         dmcount == 1 ? nullstr : "s") FLUSH;
  2095. #endif
  2096.     fclose(dmfp);
  2097.     if (dmfp = fopen(dmname,"r")) {
  2098.         while (fgets(buf,sizeof buf,dmfp) != Nullch) {
  2099.         anum = (ART_NUM)atol(buf);
  2100.         /*NOSTRICT*/
  2101.         onemore(anum);             /* then unmark them */
  2102. #ifdef MCHASE
  2103.         chase_xrefs(anum,FALSE);
  2104. #endif
  2105.         }
  2106.         fclose(dmfp);
  2107.         dmfp = Nullfp;
  2108.         UNLINK(dmname);        /* and be tidy */
  2109.     }
  2110.     else {
  2111.         printf(cantopen,dmname) FLUSH;
  2112.         sig_catcher(0);
  2113.     }
  2114.     }
  2115.     dmcount = 0;
  2116. }
  2117. #endif
  2118.     
  2119. /* run down xref list and mark as read or unread */
  2120.  
  2121. int
  2122. chase_xrefs(artnum,markread)
  2123. ART_NUM artnum;
  2124. int markread;
  2125. {
  2126. #ifdef ASYNC_PARSE
  2127.     if (parse_maybe(artnum))        /* make sure we have right header */
  2128.     return -1;
  2129. #endif
  2130. #ifdef DBM
  2131.     {
  2132.     datum lhs, rhs;
  2133.     datum fetch();
  2134.     register char *idp;
  2135.     char *ident_buf;
  2136.     static FILE * hist_file = Nullfp;
  2137. #else
  2138.     if (
  2139. #ifdef DEBUGGING
  2140.     debug & DEB_FEED_XREF ||
  2141. #endif
  2142.     htype[XREF_LINE].ht_minpos >= 0) {
  2143.                     /* are there article# xrefs? */
  2144. #endif DBM
  2145.     char *xref_buf, *curxref;
  2146.     register char *xartnum;
  2147.     char *rver_buf = Nullch;
  2148.     static char *inews_site = Nullch;
  2149.     register ART_NUM x;
  2150.     char tmpbuf[128];
  2151.  
  2152. #ifdef DBM
  2153.     rver_buf = fetchlines(artnum,NGS_LINE);
  2154.                     /* get Newsgroups */
  2155.     if (!index(rver_buf,','))    /* if no comma, no Xref! */
  2156.         return 0;
  2157.     if (hist_file == Nullfp) {    /* Init. file accesses */
  2158. #ifdef DEBUGGING
  2159.         if (debug)
  2160.         printf ("chase_xref: opening files\n");
  2161. #endif
  2162.         dbminit(filexp(ARTFILE));
  2163.         if ((hist_file = fopen (filexp(ARTFILE), "r")) == Nullfp)
  2164.         return 0;
  2165.     }
  2166.     xref_buf = safemalloc((MEM_SIZE)BUFSIZ);
  2167.     ident_buf = fetchlines(artnum,MESSID_LINE);
  2168.                     /* get Message-ID */
  2169. #ifdef DEBUGGING
  2170.     if (debug)
  2171.         printf ("chase_xref: Message-ID: %s\n", ident_buf);
  2172. #endif
  2173.     idp = ident_buf;
  2174.     while (*++idp)            /* make message-id case insensitive */
  2175.         if (isupper(*idp))
  2176.             *idp = tolower (*idp);
  2177.     lhs.dptr = ident_buf;        /* look up article by id */
  2178.     lhs.dsize = strlen(lhs.dptr) + 1;
  2179.     rhs = fetch(lhs);        /* fetch the record */
  2180.     if (rhs.dptr == NULL)        /* if null, nothing there */
  2181.         goto wild_goose;
  2182.     fseek (hist_file, *((long *)rhs.dptr), 0);
  2183.                     /* datum returned is position in hist file */
  2184.     fgets (xref_buf, BUFSIZ, hist_file);
  2185. #ifdef DEBUGGING
  2186.     if (debug)
  2187.         printf ("Xref from history: %s\n", xref_buf);
  2188. #endif
  2189.     curxref = cpytill(tmpbuf, xref_buf, '\t') + 1;
  2190.     curxref = cpytill(tmpbuf, curxref, '\t') + 1;
  2191. #ifdef DEBUGGING
  2192.     if (debug)
  2193.         printf ("chase_xref: curxref: %s\n", curxref);
  2194. #endif
  2195. #else !DBM
  2196. #ifdef DEBUGGING
  2197.     if (htype[XREF_LINE].ht_minpos >= 0)
  2198. #endif
  2199.         xref_buf = fetchlines(artnum,XREF_LINE);
  2200.                     /* get xrefs list */
  2201. #ifdef DEBUGGING
  2202.     else {
  2203.         xref_buf = safemalloc((MEM_SIZE)100);
  2204.         printf("Give Xref: ") FLUSH;
  2205.         gets(xref_buf);
  2206.     }
  2207. #endif
  2208. #ifdef DEBUGGING
  2209.     if (debug & DEB_XREF_MARKER)
  2210.         printf("Xref: %s\n",xref_buf) FLUSH;
  2211. #endif
  2212.     curxref = cpytill(tmpbuf,xref_buf,' ') + 1;
  2213.  
  2214.     /* Make sure site name on Xref matches what inews thinks site is.
  2215.      * Check first against last inews_site.  If it matches, fine.
  2216.      * If not, fetch inews_site from current Relay-Version line and
  2217.      * check again.  This is so that if the new administrator decides
  2218.      * to change the system name as known to inews, rn will still do
  2219.      * Xrefs correctly--each article need only match itself to be valid.
  2220.      */ 
  2221.     if (inews_site == Nullch || strNE(tmpbuf,inews_site)) {
  2222.         char *t;
  2223.  
  2224.         if (inews_site != Nullch)
  2225.         free(inews_site);
  2226.         rver_buf = fetchlines(artnum,RVER_LINE);
  2227.         if ((t = instr(rver_buf,"; site ")) == Nullch)
  2228.         inews_site = savestr(nullstr);
  2229.         else {
  2230.         char new_site[128];
  2231.  
  2232.         cpytill(new_site,t + 7,'.');
  2233.         inews_site = savestr(new_site);
  2234.         }
  2235.         if (strNE(tmpbuf,inews_site)) {
  2236. #ifdef DEBUGGING
  2237.         if (debug)
  2238.             printf("Xref not from %s--ignoring\n",inews_site) FLUSH;
  2239. #endif
  2240.         goto wild_goose;
  2241.         }
  2242.     }
  2243. #endif DBM
  2244.     while (*curxref) {
  2245.                     /* for each newsgroup */
  2246.         curxref = cpytill(tmpbuf,curxref,' ');
  2247. #ifdef DBM
  2248.         xartnum = index(tmpbuf,'/');
  2249. #else
  2250.         xartnum = index(tmpbuf,':');
  2251. #endif DBM
  2252.         if (!xartnum)        /* probably an old-style Xref */
  2253.         break;
  2254.         *xartnum++ = '\0';
  2255.         if (strNE(tmpbuf,ngname)) {/* not the current newsgroup? */
  2256.         x = atol(xartnum);
  2257.         if (x)
  2258.             if (markread) {
  2259.             if (addartnum(x,tmpbuf))
  2260.                 goto wild_goose;
  2261.             }
  2262. #ifdef MCHASE
  2263.             else
  2264.             subartnum(x,tmpbuf);
  2265. #endif
  2266.         }
  2267.         while (*curxref && isspace(*curxref))
  2268.         curxref++;
  2269.     }
  2270.       wild_goose:
  2271.     free(xref_buf);
  2272. #ifdef DBM
  2273.     free(ident_buf);
  2274. #endif DBM
  2275.     if (rver_buf != Nullch)
  2276.         free(rver_buf);
  2277.     }
  2278.     return 0;
  2279. }
  2280.  
  2281. int
  2282. initctl()
  2283. {
  2284.     char *mybuf = buf;            /* place to decode rc line */
  2285.     register char *s, *c, *h;
  2286.     register long i;
  2287.     register ART_NUM unread;
  2288.     
  2289. #ifdef DELAYMARK
  2290.     dmcount = 0;
  2291. #endif
  2292.     if ((lastart = getngsize(ng)) < 0)    /* this cannot happen (laugh here) */
  2293.     return -1;
  2294.  
  2295.     absfirst = getabsfirst(ng,lastart);    /* remember first existing article */
  2296.     if (!absfirst)            /* no articles at all? */
  2297.     absfirst = 1;            /* pretend there is one */
  2298. #ifndef lint
  2299.     ctlsize = (MEM_SIZE)(OFFSET(lastart)/BITSPERBYTE+20);
  2300. #endif lint
  2301.     ctlarea = safemalloc(ctlsize);    /* allocate control area */
  2302.  
  2303.     /* now modify ctlarea to reflect what has already been read */
  2304.  
  2305.     for (s = rcline[ng] + rcnums[ng]; *s == ' '; s++) ;
  2306.                     /* find numbers in rc line */
  2307.     i = strlen(s);
  2308. #ifndef lint
  2309.     if (i >= LBUFLEN-2)            /* bigger than buf? */
  2310.     mybuf = safemalloc((MEM_SIZE)(i+2));
  2311. #endif lint
  2312.     strcpy(mybuf,s);            /* make scratch copy of line */
  2313.     mybuf[i++] = ',';            /* put extra comma on the end */
  2314.     mybuf[i] = '\0';
  2315.     s = mybuf;                /* initialize the for loop below */
  2316.     if (strnEQ(s,"1-",2)) {        /* can we save some time here? */
  2317.     firstart = atol(s+2)+1;        /* ignore first range thusly */
  2318.     s=index(s,',') + 1;
  2319.     }
  2320.     else
  2321.     firstart = 1;            /* all the bits are valid for now */
  2322.     if (absfirst > firstart) {        /* do we know already? */
  2323.     firstart = absfirst;        /* no point calling getngmin again */
  2324.     }
  2325.     else if (artopen(firstart) == Nullfp) {
  2326.                     /* first unread article missing? */
  2327.     i = getngmin(".",firstart);    /* see if expire has been busy */
  2328.     if (i) {            /* avoid a bunch of extra opens */
  2329.         firstart = i;
  2330.     }
  2331.     }
  2332. #ifdef PENDING
  2333. #   ifdef CACHESUBJ
  2334.     subj_to_get = firstart;
  2335. #   endif
  2336. #endif
  2337.     unread = lastart - firstart + 1;    /* assume this range unread */
  2338.     for (i=OFFSET(firstart)/BITSPERBYTE; i<ctlsize; i++)
  2339.     ctlarea[i] = 0;            /* assume unread */
  2340. #ifdef DEBUGGING
  2341.     if (debug & DEB_CTLAREA_BITMAP) {
  2342.     printf("\n%s\n",mybuf) FLUSH;
  2343.     for (i=1; i <= lastart; i++)
  2344.         if (! was_read(i))
  2345.         printf("%ld ",(long)i) FLUSH;
  2346.     }
  2347. #endif
  2348.     for ( ; (c = index(s,',')) != Nullch; s = ++c) {
  2349.                     /* for each range */
  2350.     ART_NUM min, max;
  2351.  
  2352.     *c = '\0';            /* do not let index see past comma */
  2353.     if ((h = index(s,'-')) != Nullch) {    /* is there a -? */
  2354.         min = atol(s);
  2355.         max = atol(h+1);
  2356.         if (min < firstart)        /* make sure range is in range */
  2357.         min = firstart;
  2358.         if (max > lastart)
  2359.         max = lastart;
  2360.         if (min <= max)        /* non-null range? */
  2361.         unread -= max - min + 1;/* adjust unread count */
  2362.         for (i=min; i<=max; i++)    /* for all articles in range */
  2363.         ctl_set(i);        /* mark them read */
  2364.     }
  2365.     else if ((i = atol(s)) >= firstart && i <= lastart) {
  2366.                     /* is single number reasonable? */
  2367.         ctl_set(i);            /* mark it read */
  2368.         unread--;            /* decrement articles to read */
  2369.     }
  2370. #ifdef DEBUGGING
  2371.     if (debug & DEB_CTLAREA_BITMAP) {
  2372.         printf("\n%s\n",s) FLUSH;
  2373.         for (i=1; i <= lastart; i++)
  2374.         if (! was_read(i))
  2375.             printf("%ld ",(long)i) FLUSH;
  2376.     }
  2377. #endif
  2378.     }
  2379. #ifdef DEBUGGING
  2380.     if (debug & DEB_CTLAREA_BITMAP) {
  2381.     fputs("\n(hit CR)",stdout) FLUSH;
  2382.     gets(cmd_buf);
  2383.     }
  2384. #endif
  2385.     if (mybuf != buf)
  2386.     free(mybuf);
  2387.     toread[ng] = unread;
  2388.     return 0;
  2389. }
  2390.  
  2391. void
  2392. grow_ctl()
  2393. {
  2394.     ART_NUM newlast;
  2395.     ART_NUM tmpfirst;
  2396.     MEM_SIZE newsize;
  2397.     register ART_NUM i;
  2398.  
  2399.     forcegrow = FALSE;
  2400.     newlast = getngsize(ng);
  2401.     if (newlast > lastart) {
  2402.     ART_NUM tmpart = art;
  2403. #ifndef lint
  2404.     newsize = (MEM_SIZE)(OFFSET(newlast)/BITSPERBYTE+2);
  2405. #else
  2406.     newsize = Null(MEM_SIZE);
  2407. #endif lint
  2408.     if (newsize > ctlsize) {
  2409.         newsize += 20;
  2410.         ctlarea = saferealloc(ctlarea,newsize);
  2411.         ctlsize = newsize;
  2412.     }
  2413.     toread[ng] += (ART_UNREAD)(newlast-lastart);
  2414.     for (i=lastart+1; i<=newlast; i++)
  2415.         ctl_clear(i);    /* these articles are unread */
  2416. #ifdef CACHESUBJ
  2417.     if (subj_list != Null(char**)) {
  2418. #ifndef lint
  2419.         subj_list = (char**)saferealloc((char*)subj_list,
  2420.           (MEM_SIZE)((OFFSET(newlast)+2)*sizeof(char *)) );
  2421. #endif lint
  2422.         for (i=lastart+1; i<=newlast; i++)
  2423.         subj_list[OFFSET(i)] = Nullch;
  2424.     }
  2425. #endif
  2426.     tmpfirst = lastart+1;
  2427.     lastart = newlast;
  2428. #ifdef KILLFILES
  2429. #ifdef VERBOSE
  2430.     IF(verbose)
  2431.         sprintf(buf,
  2432.         "%ld more article%s arrived--looking for more to kill...\n\n",
  2433.         (long)(lastart - firstart + 1),
  2434.         (lastart > firstart ? "s have" : " has" ) );
  2435.     ELSE            /* my, my, how clever we are */
  2436. #endif
  2437. #ifdef TERSE
  2438.         strcpy(buf, "More news--killing...\n\n");
  2439. #endif
  2440.     kill_unwanted(tmpfirst,buf,TRUE);
  2441. #endif
  2442.     art = tmpart;
  2443.     }
  2444. }
  2445.  
  2446. !STUFFY!FUNK!
  2447. echo Extracting NEW
  2448. cat >NEW <<'!STUFFY!FUNK!'
  2449.             NEW FEATURES WITH RN 4.3
  2450.  
  2451. New commands
  2452.     TAB (pager)    scan for end of quoted text.
  2453.     && (anywhere)    set or display macros.
  2454.     Q (art level)    exit this newsgroup but stay on it.
  2455.     x (ng level)    exit rn without changing .newsrc.
  2456.  
  2457. New switch
  2458.     -=TERM-switch    apply switch if terminal is TERM.        
  2459.  
  2460. New environment variables
  2461.     RNMACRO        name of your macro and keymap file, if any.
  2462.     SUBJLINE    controls format of = article listing.
  2463.  
  2464. New % interpolations.
  2465.     %I        inclusion indicator (-F argument).
  2466.     %m        current mode of rn (newsgroup, pager, etc.)
  2467.     %z        length of current article.
  2468.     %"prompt"    prompt for input from keyboard.
  2469.     %`command`    same as shell backquotes.
  2470.     ^char        now produces control-char.
  2471.  
  2472. Macros and Keymaps
  2473.     You may now define macros of any reasonable length and map those
  2474.     macros onto your keyboard in any way.  You can completely remap the
  2475.     keyboard if you wish.  Macros may contain % interpolations.
  2476.  
  2477. Global RNINIT file
  2478.     You can now set pseudo-environment variables on a system-wide basis
  2479.     in the file %X/INIT.  You don't have to recompile rn when you want 
  2480.     to try something different.
  2481.  
  2482. Pnews
  2483.     Can append your .signature if you like.
  2484.     Now knows how to mail to moderators.
  2485.     Runs somewhat faster now when invoked with -h.
  2486.     Will use %x/distributions if it exists.
  2487.     Doesn't ask for Distribution on local newsgroups.
  2488.     Doesn't ask for editor if EDITOR or VISUAL is set.
  2489.  
  2490. Terminal handling
  2491.     -L switch uses erase-to-end-of-line to leave info on screen as long
  2492.         as possible.
  2493.     rn -c will not flush typeahead in your login script now.
  2494.     In multi-character commands, \ now quotes the next character.
  2495.     Support for non-line-buffered machines.  Certain V7 machines will
  2496.         appreciate the speedup.
  2497.  
  2498. Configure
  2499.     Lets the poor people without job control do shell escapes.
  2500.     Now remembers your old answers and uses them for defaults.
  2501.     Searches much more widely for libraries.
  2502.     Looks for Mcc or cc -M if it needs to.
  2503.     Finds pg if it needs to.  (Note, pg users: you can use macros to
  2504.         reverse the sense of CR and SP in rn now.)
  2505.     Figures out where manual pages go.
  2506.     Figures out where mail is spooled.
  2507.     Looks for ioctl.h, if any.
  2508.     Determines if you have a builtin echo that works differently than
  2509.         /bin/echo.
  2510.     Asks if your mail takes Internet addresses.
  2511.     Works reasonably on more systems, such as "Pyramids".
  2512.  
  2513. Miscellaneous
  2514.     Commands may be typed directly to a help menu or subject list without
  2515.         having to type 'q' first.
  2516.     - command on first displayed article of a newsgroup takes you out to
  2517.         the previous newsgroup.  (Someday it will take you to the
  2518.         previous article in the previous newsgroup.)
  2519.     You can now easily get into a newsgroup with a KILL file and no
  2520.         unread articles.
  2521.     The catchup command at the top level now asks for confirmation.
  2522.     Interpretation routines now check for output buffer overflow.
  2523.     The pager no longer get hung up on non-initial ^L.
  2524.     The negative unread articles bug was fixed.
  2525.     Numerous small bug fixes.
  2526. !STUFFY!FUNK!
  2527. echo Extracting INIT
  2528. cat >INIT <<'!STUFFY!FUNK!'
  2529. -ESAMPLE="sample"
  2530. !STUFFY!FUNK!
  2531. echo ""
  2532. echo "End of kit 3 (of 9)"
  2533. cat /dev/null >kit3isdone
  2534. config=true
  2535. for iskit in 1 2 3 4 5 6 7 8 9; do
  2536.     if test -f kit${iskit}isdone; then
  2537.     echo "You have run kit ${iskit}."
  2538.     else
  2539.     echo "You still need to run kit ${iskit}."
  2540.     config=false
  2541.     fi
  2542. done
  2543. case $config in
  2544.     true)
  2545.     echo "You have run all your kits.  Please read README and then type Configure."
  2546.     chmod 755 Configure
  2547.     ;;
  2548. esac
  2549. : I do not append .signature, but someone might mail this.
  2550. exit
  2551.  
  2552.