home *** CD-ROM | disk | FTP | other *** search
/ Usenet 1994 January / usenetsourcesnewsgroupsinfomagicjanuary1994.iso / sources / unix / volume1 / rn / part06 < prev    next >
Encoding:
Internet Message Format  |  1986-11-30  |  61.6 KB
  1. Date: Tue, 7 May 85 13:58:01 pdt
  2. From: allegra!sdcrdcf!RDCF.SDC.UUCP!lwall (Larry Wall)
  3. Newsgroups: mod.sources
  4. Subject: rn version 4.3 (kit 6 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 6 (of 9).  If kit 6 is complete, the line"
  14. echo '"'"End of kit 6 (of 9)"'" will echo at the end.'
  15. echo ""
  16. export PATH || (echo "You didn't use sh, you clunch." ; kill $$)
  17. echo Extracting util.c
  18. cat >util.c <<'!STUFFY!FUNK!'
  19. /* $Header: util.c,v 4.3 85/05/01 11:51:44 lwall Exp $
  20.  *
  21.  * $Log:    util.c,v $
  22.  * Revision 4.3  85/05/01  11:51:44  lwall
  23.  * Baseline for release with 4.3bsd.
  24.  * 
  25.  */
  26.  
  27. #include "EXTERN.h"
  28. #include "common.h"
  29. #include "final.h"
  30. #include "ndir.h"
  31. #include "INTERN.h"
  32. #include "util.h"
  33.  
  34. void
  35. util_init()
  36. {
  37.     ;
  38. }
  39.     
  40. /* fork and exec a shell command */
  41.  
  42. int
  43. doshell(shl,s)
  44. char *s, *shl;
  45. {
  46.     int status, pid, w;
  47.     register int (*istat)(), (*qstat)();
  48.     int (*signal())();
  49.     char *shell;
  50.  
  51. #ifdef SIGTSTP
  52.     sigset(SIGTSTP,SIG_DFL);
  53.     sigset(SIGCONT,SIG_DFL);
  54. #endif
  55.     if (shl != Nullch)
  56.     shell = shl;
  57.     else if ((shell = getenv("SHELL")) == Nullch || !*shell)
  58.     shell = PREFSHELL;
  59.     if ((pid = vfork()) == 0) {
  60.     if (*s)
  61.         execl(shell, shell, "-c", s, 0);
  62.     else
  63.         execl(shell, shell, Nullch, Nullch, 0);
  64.     _exit(127);
  65.     }
  66. #ifndef lint
  67.     istat = signal(SIGINT, SIG_IGN);
  68.     qstat = signal(SIGQUIT, SIG_IGN);
  69. #else
  70.     istat = Null(int (*)());
  71.     qstat = Null(int (*)());
  72. #endif lint
  73.     waiting = TRUE;
  74.     while ((w = wait(&status)) != pid && w != -1)
  75.     ;
  76.     if (w == -1)
  77.     status = -1;
  78.     waiting = FALSE;
  79.     signal(SIGINT, istat);
  80.     signal(SIGQUIT, qstat);
  81. #ifdef SIGTSTP
  82.     sigset(SIGTSTP,stop_catcher);
  83.     sigset(SIGCONT,cont_catcher);
  84. #endif
  85.     return status;
  86. }
  87.  
  88. static char nomem[] = "rn: out of memory!\n";
  89.  
  90. /* paranoid version of malloc */
  91.  
  92. char *
  93. safemalloc(size)
  94. MEM_SIZE size;
  95. {
  96.     char *ptr;
  97.     char *malloc();
  98.  
  99.     ptr = malloc(size?size:1);    /* malloc(0) is NASTY on our system */
  100.     if (ptr != Nullch)
  101.     return ptr;
  102.     else {
  103.     fputs(nomem,stdout) FLUSH;
  104.     sig_catcher(0);
  105.     }
  106.     /*NOTREACHED*/
  107. }
  108.  
  109. /* paranoid version of realloc */
  110.  
  111. char *
  112. saferealloc(where,size)
  113. char *where;
  114. MEM_SIZE size;
  115. {
  116.     char *ptr;
  117.     char *realloc();
  118.  
  119.     ptr = realloc(where,size?size:1);    /* realloc(0) is NASTY on our system */
  120.     if (ptr != Nullch)
  121.     return ptr;
  122.     else {
  123.     fputs(nomem,stdout) FLUSH;
  124.     sig_catcher(0);
  125.     }
  126.     /*NOTREACHED*/
  127. }
  128.  
  129. /* safe version of string copy */
  130.  
  131. char *
  132. safecpy(to,from,len)
  133. char *to;
  134. register char *from;
  135. register int len;
  136. {
  137.     register char *dest = to;
  138.  
  139.     if (from != Nullch) 
  140.     for (len--; len && (*dest++ = *from++); len--) ;
  141.     *dest = '\0';
  142.     return to;
  143. }
  144.  
  145. /* safe version of string concatenate, with \n deletion and space padding */
  146.  
  147. char *
  148. safecat(to,from,len)
  149. char *to;
  150. register char *from;
  151. register int len;
  152. {
  153.     register char *dest = to;
  154.  
  155.     len--;                /* leave room for null */
  156.     if (*dest) {
  157.     while (len && *dest++) len--;
  158.     if (len) {
  159.         len--;
  160.         *(dest-1) = ' ';
  161.     }
  162.     }
  163.     if (from != Nullch)
  164.     while (len && (*dest++ = *from++)) len--;
  165.     if (len)
  166.     dest--;
  167.     if (*(dest-1) == '\n')
  168.     dest--;
  169.     *dest = '\0';
  170.     return to;
  171. }
  172.  
  173. /* copy a string up to some (non-backslashed) delimiter, if any */
  174.  
  175. char *
  176. cpytill(to,from,delim)
  177. register char *to, *from;
  178. register int delim;
  179. {
  180.     for (; *from; from++,to++) {
  181.     if (*from == '\\' && from[1] == delim)
  182.         from++;
  183.     else if (*from == delim)
  184.         break;
  185.     *to = *from;
  186.     }
  187.     *to = '\0';
  188.     return from;
  189. }
  190.  
  191. /* return ptr to little string in big string, NULL if not found */
  192.  
  193. char *
  194. instr(big, little)
  195. char *big, *little;
  196.  
  197. {
  198.     register char *t, *s, *x;
  199.  
  200.     for (t = big; *t; t++) {
  201.     for (x=t,s=little; *s; x++,s++) {
  202.         if (!*x)
  203.         return Nullch;
  204.         if (*s != *x)
  205.         break;
  206.     }
  207.     if (!*s)
  208.         return t;
  209.     }
  210.     return Nullch;
  211. }
  212.  
  213. /* effective access */
  214.  
  215. #ifdef SETUIDGID
  216. int
  217. eaccess(filename, mod)
  218. char *filename;
  219. int mod;
  220. {
  221.     int protection, euid;
  222.     
  223.     mod &= 7;                /* remove extraneous garbage */
  224.     if (stat(filename, &filestat) < 0)
  225.     return -1;
  226.     euid = geteuid();
  227.     if (euid == ROOTID)
  228.     return 0;
  229.     protection = 7 & (filestat.st_mode >>
  230.       (filestat.st_uid == euid ? 6 :
  231.         (filestat.st_gid == getegid() ? 3 : 0)
  232.       ));
  233.     if ((mod & protection) == mod)
  234.     return 0;
  235.     errno = EACCES;
  236.     return -1;
  237. }
  238. #endif
  239.  
  240. /*
  241.  * Get working directory
  242.  */
  243.  
  244. #ifdef GETWD
  245. #define    dot    "."
  246. #define    dotdot    ".."
  247.  
  248. static    char    *name;
  249.  
  250. static    DIR    *dirp;
  251. static    int    off;
  252. static    struct    stat    d, dd;
  253. static    struct    direct    *dir;
  254.  
  255. char *
  256. getwd(np)
  257. char *np;
  258. {
  259.     long rdev, rino;
  260.  
  261.     *np++ = '/';
  262.     *np = 0;
  263.     name = np;
  264.     off = -1;
  265.     stat("/", &d);
  266.     rdev = d.st_dev;
  267.     rino = d.st_ino;
  268.     for (;;) {
  269.         stat(dot, &d);
  270.         if (d.st_ino==rino && d.st_dev==rdev)
  271.             goto done;
  272.         if ((dirp = opendir(dotdot)) == Null(DIR *))
  273.             prexit("getwd: cannot open ..\n");
  274.         stat(dotdot, &dd);
  275.         chdir(dotdot);
  276.         if(d.st_dev == dd.st_dev) {
  277.             if(d.st_ino == dd.st_ino)
  278.                 goto done;
  279.             do
  280.                 if ((dir = readdir(dirp)) == Null(struct direct *))
  281.                     prexit("getwd: read error in ..\n");
  282.             while (dir->d_ino != d.st_ino);
  283.         }
  284.         else do {
  285.                 if ((dir = readdir(dirp)) == Null(struct direct *))
  286.                     prexit("getwd: read error in ..\n");
  287.                 stat(dir->d_name, &dd);
  288.             } while(dd.st_ino != d.st_ino || dd.st_dev != d.st_dev);
  289.         cat();
  290.         closedir(dirp);
  291.     }
  292. done:
  293.     name--;
  294.     if (chdir(name) < 0) {
  295.         printf("getwd: can't cd back to %s\n",name) FLUSH;
  296.         sig_catcher(0);
  297.     }
  298.     return (name);
  299. }
  300.  
  301. void
  302. cat()
  303. {
  304.     register i, j;
  305.  
  306.     i = -1;
  307.     while (dir->d_name[++i] != 0);
  308.     if ((off+i+2) > 1024-1)
  309.         return;
  310.     for(j=off+1; j>=0; --j)
  311.         name[j+i+1] = name[j];
  312.     if (off >= 0)
  313.         name[i] = '/';
  314.     off=i+off+1;
  315.     name[off] = 0;
  316.     for(--i; i>=0; --i)
  317.         name[i] = dir->d_name[i];
  318. }
  319.  
  320. void
  321. prexit(cp)
  322. char *cp;
  323. {
  324.     write(2, cp, strlen(cp));
  325.     sig_catcher(0);
  326. }
  327. #else
  328. char *
  329. getwd(np)            /* shorter but slower */
  330. char *np;
  331. {
  332.     FILE *popen();
  333.     FILE *pipefp = popen("/bin/pwd","r");
  334.  
  335.     if (pipefd == Nullfp) {
  336.     printf("Can't run /bin/pwd\n") FLUSH;
  337.     finalize(1);
  338.     }
  339.     fgets(np,512,pipefp);
  340.     np[strlen(np)-1] = '\0';    /* wipe out newline */
  341.     pclose(pipefp);
  342.     return np;
  343. }
  344. #endif
  345.  
  346. /* just like fgets but will make bigger buffer as necessary */
  347.  
  348. char *
  349. get_a_line(original_buffer,buffer_length,fp)
  350. char *original_buffer;
  351. register int buffer_length;
  352. FILE *fp;
  353. {
  354.     register int bufix = 0;
  355.     register int nextch;
  356.     register char *some_buffer_or_other = original_buffer;
  357.  
  358.     do {
  359.     if (bufix >= buffer_length) {
  360.         buffer_length *= 2;
  361.         if (some_buffer_or_other == original_buffer) {
  362.                     /* currently static? */
  363.         some_buffer_or_other = safemalloc((MEM_SIZE)buffer_length+1);
  364.         strncpy(some_buffer_or_other,original_buffer,buffer_length/2);
  365.                     /* so we must copy it */
  366.         }
  367.         else {            /* just grow in place, if possible */
  368.         some_buffer_or_other = saferealloc(some_buffer_or_other,
  369.             (MEM_SIZE)buffer_length+1);
  370.         }
  371.     }
  372.     if ((nextch = getc(fp)) == EOF)
  373.         return Nullch;
  374.     some_buffer_or_other[bufix++] = (char) nextch;
  375.     } while (nextch && nextch != '\n');
  376.     some_buffer_or_other[bufix] = '\0';
  377.     len_last_line_got = bufix;
  378.     return some_buffer_or_other;
  379. }
  380.  
  381. /* copy a string to a safe spot */
  382.  
  383. char *
  384. savestr(str)
  385. char *str;
  386. {
  387.     register char *newaddr = safemalloc((MEM_SIZE)(strlen(str)+1));
  388.  
  389.     strcpy(newaddr,str);
  390.     return newaddr;
  391. }
  392.  
  393. int
  394. makedir(dirname,nametype)
  395. register char *dirname;
  396. int nametype;
  397. {
  398. #ifdef MAKEDIR
  399.     register char *end;
  400.     register char *s;
  401.     char tmpbuf[1024];
  402.     register char *tbptr = tmpbuf+5;
  403.  
  404.     for (end = dirname; *end; end++) ;    /* find the end */
  405.     if (nametype == MD_FILE) {        /* not to create last component? */
  406.     for (--end; end != dirname && *end != '/'; --end) ;
  407.     if (*end != '/')
  408.         return 0;            /* nothing to make */
  409.     *end = '\0';            /* isolate file name */
  410.     }
  411.     strcpy(tmpbuf,"mkdir");
  412.  
  413.     s = end;
  414.     for (;;) {
  415.     if (stat(dirname,&filestat) >= 0) {
  416.                     /* does this much exist? */
  417.         *s = '/';            /* mark this as existing */
  418.         break;
  419.     }
  420.     s = rindex(dirname,'/');    /* shorten name */
  421.     if (!s)                /* relative path! */
  422.         break;            /* hope they know what they are doing */
  423.     *s = '\0';            /* mark as not existing */
  424.     }
  425.     
  426.     for (s=dirname; s <= end; s++) {    /* this is grody but efficient */
  427.     if (!*s) {            /* something to make? */
  428.         sprintf(tbptr," %s",dirname);
  429.         tbptr += strlen(tbptr);    /* make it, sort of */
  430.         *s = '/';            /* mark it made */
  431.     }
  432.     }
  433.     if (nametype == MD_DIR)        /* don't need final slash unless */
  434.     *end = '\0';            /*  a filename follows the dir name */
  435.  
  436.     return (tbptr==tmpbuf+5 ? 0 : doshell(sh,tmpbuf));
  437.                     /* exercise our faith */
  438. #else
  439.     sprintf(cmd_buf,"%s %s %d", filexp(DIRMAKER), dirname, nametype);
  440.     return doshell(sh,cmd_buf);
  441. #endif
  442. }
  443.  
  444. #ifdef SETENV
  445. static bool firstsetenv = TRUE;
  446. extern char **environ;
  447.  
  448. void
  449. setenv(nam,val)
  450. char *nam, *val;
  451. {
  452.     register int i=envix(nam);        /* where does it go? */
  453.  
  454.     if (!environ[i]) {            /* does not exist yet */
  455.     if (firstsetenv) {        /* need we copy environment? */
  456.         int j;
  457. #ifndef lint
  458.         char **tmpenv = (char**)    /* point our wand at memory */
  459.         safemalloc((MEM_SIZE) (i+2) * sizeof(char*));
  460. #else
  461.         char **tmpenv = Null(char **);
  462. #endif lint
  463.     
  464.         firstsetenv = FALSE;
  465.         for (j=0; j<i; j++)        /* copy environment */
  466.         tmpenv[j] = environ[j];
  467.         environ = tmpenv;        /* tell exec where it is now */
  468.     }
  469. #ifndef lint
  470.     else
  471.         environ = (char**) saferealloc((char*) environ,
  472.         (MEM_SIZE) (i+2) * sizeof(char*));
  473.                     /* just expand it a bit */
  474. #endif lint
  475.     environ[i+1] = Nullch;    /* make sure it's null terminated */
  476.     }
  477.     environ[i] = safemalloc((MEM_SIZE) strlen(nam) + strlen(val) + 2);
  478.                     /* this may or may not be in */
  479.                     /* the old environ structure */
  480.     sprintf(environ[i],"%s=%s",nam,val);/* all that work just for this */
  481. }
  482.  
  483. int
  484. envix(nam)
  485. char *nam;
  486. {
  487.     register int i, len = strlen(nam);
  488.  
  489.     for (i = 0; environ[i]; i++) {
  490.     if (strnEQ(environ[i],nam,len) && environ[i][len] == '=')
  491.         break;            /* strnEQ must come first to avoid */
  492.     }                    /* potential SEGV's */
  493.     return i;
  494. }
  495. #endif
  496.  
  497. void
  498. notincl(feature)
  499. char *feature;
  500. {
  501.     printf("\nNo room for feature \"%s\" on this machine.\n",feature) FLUSH;
  502. }
  503.  
  504. char *
  505. getval(nam,def)
  506. char *nam,*def;
  507. {
  508.     char *val;
  509.  
  510.     if ((val = getenv(nam)) == Nullch || !*val)
  511.     val = def;
  512.     return val;
  513. }
  514.  
  515. /* grow a static string to at least a certain length */
  516.  
  517. void
  518. growstr(strptr,curlen,newlen)
  519. char **strptr;
  520. int *curlen;
  521. int newlen;
  522. {
  523.     if (newlen > *curlen) {        /* need more room? */
  524.     if (*curlen)
  525.         *strptr = saferealloc(*strptr,(MEM_SIZE)newlen);
  526.     else
  527.         *strptr = safemalloc((MEM_SIZE)newlen);
  528.     *curlen = newlen;
  529.     }
  530. }
  531.  
  532. void
  533. setdef(buffer,dflt)
  534. char *buffer,*dflt;
  535. {
  536. #ifdef STRICTCR
  537.     if (*buffer == ' ')
  538. #else
  539.     if (*buffer == ' ' || *buffer == '\n')
  540. #endif
  541.     {
  542.     if (*dflt == '^' && isupper(dflt[1]))
  543.         *buffer = Ctl(dflt[1]);
  544.     else
  545.         *buffer = *dflt;
  546.     }
  547. }
  548. !STUFFY!FUNK!
  549. echo Extracting respond.c
  550. cat >respond.c <<'!STUFFY!FUNK!'
  551. /* $Header: respond.c,v 4.3 85/05/01 11:47:04 lwall Exp $
  552.  *
  553.  * $Log:    respond.c,v $
  554.  * Revision 4.3  85/05/01  11:47:04  lwall
  555.  * Baseline for release with 4.3bsd.
  556.  * 
  557.  */
  558.  
  559. #include "EXTERN.h"
  560. #include "common.h"
  561. #include "intrp.h"
  562. #include "head.h"
  563. #include "term.h"
  564. #include "ng.h"
  565. #include "util.h"
  566. #include "rn.h"
  567. #include "intrp.h"
  568. #include "artio.h"
  569. #include "final.h"
  570. #include "INTERN.h"
  571. #include "respond.h"
  572.  
  573. static char nullart[] = "\nNull article\n";
  574.  
  575. void
  576. respond_init()
  577. {
  578.     ;
  579. }
  580.  
  581. int
  582. save_article()
  583. {
  584.     bool use_pref;
  585.     register char *s, *c;
  586.     char altbuf[CBUFLEN];
  587.     int iter;
  588.     bool interactive = (buf[1] == FINISHCMD);
  589.     
  590.     if (!finish_command(interactive))    /* get rest of command */
  591.     return SAVE_ABORT;
  592.     use_pref = isupper(*buf);
  593. #ifdef ASYNC_PARSE
  594.     parse_maybe(art);
  595. #endif
  596.     savefrom = (*buf=='w' || *buf=='W' ? htype[PAST_HEADER].ht_minpos : 0);
  597.     if (artopen(art) == Nullfp) {
  598. #ifdef VERBOSE
  599.     IF(verbose)
  600.         fputs("\n\
  601. Saving null articles is not very productive!  :-)\n\
  602. ",stdout) FLUSH;
  603.     ELSE
  604. #endif
  605. #ifdef TERSE
  606.         fputs(nullart,stdout) FLUSH;
  607. #endif
  608.     return SAVE_DONE;
  609.     }
  610.     if (chdir(cwd)) {
  611.     printf(nocd,cwd) FLUSH;
  612.     sig_catcher(0);
  613.     }
  614.     if (savedest)
  615.     free(savedest);
  616.     if ((s = index(buf,'|')) != Nullch) {
  617.                 /* is it a pipe command? */
  618.     s++;            /* skip the | */
  619.     while (*s == ' ') s++;
  620.     safecpy(altbuf,filexp(s),sizeof altbuf);
  621.     savedest = altbuf;
  622.     interp(cmd_buf, (sizeof cmd_buf), getval("PIPESAVER",PIPESAVER));
  623.                 /* then set up for command */
  624.     resetty();        /* restore tty state */
  625.     if (use_pref)        /* use preferred shell? */
  626.         doshell(Nullch,cmd_buf);
  627.                 /* do command with it */
  628.     else
  629.         doshell(sh,cmd_buf);    /* do command with sh */
  630.     noecho();        /* and stop echoing */
  631.     crmode();        /* and start cbreaking */
  632.     savedest = savestr(savedest);
  633.     }
  634.     else {            /* normal save */
  635.     bool there, mailbox;
  636.     char *savename = getval("SAVENAME",SAVENAME);
  637.  
  638.     s = buf+1;        /* skip s or S */
  639.     if (*s == '-') {    /* if they are confused, skip - also */
  640. #ifdef VERBOSE
  641.         IF(verbose)
  642.         fputs("Warning: '-' ignored.  This isn't readnews.\n",stdout)
  643.           FLUSH;
  644.         ELSE
  645. #endif
  646. #ifdef TERSE
  647.         fputs("'-' ignored.\n",stdout) FLUSH;
  648. #endif
  649.         s++;
  650.     }
  651.     for (; *s == ' '; s++);    /* skip spaces */
  652.     safecpy(altbuf,filexp(s),sizeof altbuf);
  653.     s = altbuf;
  654.     if (! index(s,'/')) {
  655.         interp(buf, (sizeof buf), getval("SAVEDIR",SAVEDIR));
  656.         if (makedir(buf,MD_DIR))    /* ensure directory exists */
  657.         strcpy(buf,cwd);
  658.         if (*s) {
  659.         for (c = buf; *c; c++) ;
  660.         *c++ = '/';
  661.         strcpy(c,s);        /* add filename */
  662.         }
  663.         s = buf;
  664.     }
  665.     for (iter = 0;
  666.         (there = stat(s,&filestat) >= 0) &&
  667.         (filestat.st_mode & S_IFDIR);
  668.         iter++) {            /* is it a directory? */
  669.  
  670.         c = (s+strlen(s));
  671.         *c++ = '/';            /* put a slash before filename */
  672.         interp(c, s==buf?(sizeof buf):(sizeof altbuf),
  673.         iter ? "News" : savename );
  674.                 /* generate a default name somehow or other */
  675.         if (index(c,'/')) {        /* yikes, a '/' in the filename */
  676.         makedir(s,MD_FILE);
  677.         }
  678.     }
  679.     if (*s != '/') {        /* relative path? */
  680.         c = (s==buf ? altbuf : buf);
  681.         sprintf(c, "%s/%s", cwd, s);
  682.         s = c;            /* absolutize it */
  683.     }
  684.     s = savedest = savestr(s);    /* doesn't move any more */
  685.                     /* make it handy for %b */
  686.     if (!there) {
  687.         if (mbox_always)
  688.         mailbox = TRUE;
  689.         else if (norm_always)
  690.         mailbox = FALSE;
  691.         else {
  692.         char *dflt = (instr(savename,"%a") ? "nyq" : "ynq");
  693.         
  694.         sprintf(cmd_buf,
  695.         "\nFile %s doesn't exist--\n    use mailbox format? [%s] ",
  696.           s,dflt);
  697.           reask_save:
  698.         in_char(cmd_buf);
  699.         putchar('\n') FLUSH;
  700.         setdef(cmd_buf,dflt);
  701. #ifdef VERIFY
  702.         printcmd();
  703. #endif
  704.         if (*buf == 'h') {
  705. #ifdef VERBOSE
  706.             IF(verbose)
  707.             printf("\n\
  708. Type y to create %s as a mailbox.\n\
  709. Type n to create it as a normal file.\n\
  710. Type q to abort the save.\n\
  711. ",s) FLUSH;
  712.             ELSE
  713. #endif
  714. #ifdef TERSE
  715.             fputs("\n\
  716. y to create mailbox.\n\
  717. n to create normal file.\n\
  718. q to abort.\n\
  719. ",stdout) FLUSH;
  720. #endif
  721.             goto reask_save;
  722.         }
  723.         else if (*buf == 'n') {
  724.             mailbox = FALSE;
  725.         }
  726.         else if (*buf == 'y') {
  727.             mailbox = TRUE;
  728.         }
  729.         else if (*buf == 'q') {
  730.             goto s_bomb;
  731.         }
  732.         else {
  733.             fputs(hforhelp,stdout) FLUSH;
  734.             settle_down();
  735.             goto reask_save;
  736.         }
  737.         }
  738.     }
  739.     else if (filestat.st_mode & S_IFCHR)
  740.         mailbox = FALSE;
  741.     else {
  742.         int tmpfd;
  743.         
  744.         tmpfd = open(s,0);
  745.         if (tmpfd == -1)
  746.         mailbox = FALSE;
  747.         else {
  748.         read(tmpfd,buf,LBUFLEN);
  749.         c = buf;
  750.         if (!isspace(MBOXCHAR))
  751.             while (isspace(*c))
  752.             c++;
  753.         mailbox = (*c == MBOXCHAR);
  754.         close(tmpfd);
  755.         }
  756.     }
  757.  
  758.     safecpy(cmd_buf, filexp(mailbox ?
  759.         getval("MBOXSAVER",MBOXSAVER) :
  760.         getval("NORMSAVER",NORMSAVER) ), sizeof cmd_buf);
  761.                 /* format the command */
  762.     resetty();        /* make terminal behave */
  763.     if (doshell(use_pref?Nullch:SH,cmd_buf))
  764.         fputs("Not saved",stdout);
  765.     else
  766.         printf("%s to %s %s",
  767.           there?"Appended":"Saved",
  768.           mailbox?"mailbox":"file",
  769.           s);
  770.     if (interactive)
  771.         putchar('\n') FLUSH;
  772.     noecho();        /* make terminal do what we want */
  773.     crmode();
  774.     }
  775. s_bomb:
  776.     if (chdir(spool) || chdir(ngdir)) {
  777.     printf(nocd,ngdir) FLUSH;
  778.     sig_catcher(0);
  779.     }
  780.     return SAVE_DONE;
  781. }
  782.  
  783. int
  784. cancel_article()
  785. {
  786.     char *artid_buf;
  787.     char *ngs_buf;
  788.     char *from_buf;
  789.     char *reply_buf;
  790.     int myuid = getuid();
  791.     int r = -1;
  792.  
  793.     if (artopen(art) == Nullfp) {
  794. #ifdef VERBOSE
  795.     IF(verbose)
  796.         fputs("\n\
  797. Cancelling null articles is your idea of fun?  :-)\n\
  798. ",stdout) FLUSH;
  799.     ELSE
  800. #endif
  801. #ifdef TERSE
  802.         fputs(nullart,stdout) FLUSH;
  803. #endif
  804.     return r;
  805.     }
  806.     reply_buf = fetchlines(art,REPLY_LINE);
  807.     from_buf = fetchlines(art,FROM_LINE);
  808.     artid_buf = fetchlines(art,ARTID_LINE);
  809.     ngs_buf = fetchlines(art,NGS_LINE);
  810.     if (!instr(from_buf,sitename) ||
  811.     (!instr(from_buf,logname) &&
  812.      !instr(reply_buf,logname) &&
  813. #ifdef NEWSADMIN
  814.      myuid != newsuid &&
  815. #endif
  816.      myuid != ROOTID ) )
  817. #ifdef VERBOSE
  818.         IF(verbose)
  819.         fputs("You can't cancel someone else's article\n",stdout)
  820.           FLUSH;
  821.         ELSE
  822. #endif
  823. #ifdef TERSE
  824.         fputs("Not your article\n",stdout) FLUSH;
  825. #endif
  826.     else {
  827.     tmpfp = fopen(headname,"w");    /* open header file */
  828.     if (tmpfp == Nullfp) {
  829.         printf(cantcreate,headname) FLUSH;
  830.         goto no_cancel;
  831.     }
  832.     interp(buf, (sizeof buf), getval("CANCELHEADER",CANCELHEADER));
  833.     fputs(buf,tmpfp);
  834.     fclose(tmpfp);
  835.     r = doshell(sh,filexp(getval("CANCEL",CANCEL)));
  836.     }
  837. no_cancel:
  838.     free(artid_buf);
  839.     free(ngs_buf);
  840.     free(from_buf);
  841.     free(reply_buf);
  842.     return r;
  843. }
  844.  
  845. void
  846. reply()
  847. {
  848.     bool incl_body = (*buf == 'R');
  849.     char *maildoer = savestr(filexp(getval("MAILPOSTER",MAILPOSTER)));
  850.  
  851.     if (artopen(art) == Nullfp) {
  852. #ifdef VERBOSE
  853.     IF(verbose)
  854.         fputs("\nBut null articles are so dull!  :-)\n",stdout) FLUSH;
  855.     ELSE
  856. #endif
  857. #ifdef TERSE
  858.         fputs(nullart,stdout) FLUSH;
  859. #endif
  860.     goto no_reply;
  861.     }
  862.     tmpfp = fopen(headname,"w");    /* open header file */
  863.     if (tmpfp == Nullfp) {
  864.     printf(cantcreate,headname) FLUSH;
  865.     goto no_reply;
  866.     }
  867.     interp(buf, (sizeof buf), getval("MAILHEADER",MAILHEADER));
  868.     fputs(buf,tmpfp);
  869.     if (!instr(maildoer,"%h"))
  870. #ifdef VERBOSE
  871.     IF(verbose)
  872.         printf("\n%s\n(Above lines saved in file %s)\n",buf,headname)
  873.           FLUSH;
  874.     ELSE
  875. #endif
  876. #ifdef TERSE
  877.         printf("\n%s\n(Header in %s)\n",buf,headname) FLUSH;
  878. #endif
  879.     if (incl_body) {
  880.     interp(buf, (sizeof buf), getval("YOUSAID",YOUSAID));
  881.     fprintf(tmpfp,"%s\n",buf);
  882. #ifdef ASYNC_PARSE
  883.     parse_maybe(art);
  884. #endif
  885.     fseek(artfp,(long)htype[PAST_HEADER].ht_minpos,0);
  886.     while (fgets(buf,LBUFLEN,artfp) != Nullch) {
  887.         fprintf(tmpfp,"%s%s",indstr,buf);
  888.     }
  889.     fprintf(tmpfp,"\n");
  890.     }
  891.     fclose(tmpfp);
  892.     interp(cmd_buf, (sizeof cmd_buf), maildoer);
  893.     invoke(cmd_buf,origdir);
  894.     UNLINK(headname);        /* kill the header file */
  895. no_reply:
  896.     free(maildoer);
  897. }
  898.  
  899. void
  900. followup()
  901. {
  902.     bool incl_body = (*buf == 'F');
  903.  
  904.     if (artopen(art) == Nullfp) {
  905. #ifdef VERBOSE
  906.     IF(verbose)
  907.         fputs("\nNull articles give me indigestion!  :-)\n",stdout) FLUSH;
  908.     ELSE
  909. #endif
  910. #ifdef TERSE
  911.         fputs(nullart,stdout) FLUSH;
  912. #endif
  913.     return;
  914.     }
  915.     tmpfp = fopen(headname,"w");
  916.     if (tmpfp == Nullfp) {
  917.     printf(cantcreate,headname) FLUSH;
  918.     return;
  919.     }
  920.     interp(buf, (sizeof buf), getval("NEWSHEADER",NEWSHEADER));
  921.     fprintf(tmpfp,"%s",buf);
  922.     if (incl_body) {
  923. #ifdef VERBOSE
  924.     if (verbose)
  925.         fputs("\n\
  926. (Be sure to double-check the attribution against the signature, and\n\
  927. trim the quoted article down as much as possible.)\n\
  928. ",stdout) FLUSH;
  929. #endif
  930.     interp(buf, (sizeof buf), getval("ATTRIBUTION",ATTRIBUTION));
  931.     fprintf(tmpfp,"%s\n",buf);
  932. #ifdef ASYNC_PARSE
  933.     parse_maybe(art);
  934. #endif
  935.     fseek(artfp,(long)htype[PAST_HEADER].ht_minpos,0);
  936.     while (fgets(buf,LBUFLEN,artfp) != Nullch) {
  937.         fprintf(tmpfp,"%s%s",indstr,buf);
  938.     }
  939.     fprintf(tmpfp,"\n");
  940.     }
  941.     fclose(tmpfp);
  942.     safecpy(cmd_buf,filexp(getval("NEWSPOSTER",NEWSPOSTER)),sizeof cmd_buf);
  943.     invoke(cmd_buf,origdir);
  944.     UNLINK(headname);
  945. }
  946.  
  947. void
  948. invoke(cmd,dir)
  949. char *cmd,*dir;
  950. {
  951.     if (chdir(dir)) {
  952.     printf(nocd,dir) FLUSH;
  953.     return;
  954.     }
  955. #ifdef VERBOSE
  956.     IF(verbose)
  957.     printf("\n(leaving cbreak mode; cwd=%s)\nInvoking command: %s\n\n",
  958.         dir,cmd) FLUSH;
  959.     ELSE
  960. #endif
  961. #ifdef TERSE
  962.     printf("\n(-cbreak; cwd=%s)\nInvoking: %s\n\n",dir,cmd) FLUSH;
  963. #endif
  964.     resetty();            /* make terminal well-behaved */
  965.     doshell(sh,cmd);        /* do the command */
  966.     noecho();            /* set no echo */
  967.     crmode();            /* and cbreak mode */
  968. #ifdef VERBOSE
  969.     IF(verbose)
  970.     fputs("\n(re-entering cbreak mode)\n",stdout) FLUSH;
  971.     ELSE
  972. #endif
  973. #ifdef TERSE
  974.     fputs("\n(+cbreak)\n",stdout) FLUSH;
  975. #endif
  976.     if (chdir(spool) || chdir(ngdir)) {
  977.     printf(nocd,ngdir) FLUSH;
  978.     sig_catcher(0);
  979.     }
  980. }
  981.  
  982. !STUFFY!FUNK!
  983. echo Extracting sw.c
  984. cat >sw.c <<'!STUFFY!FUNK!'
  985. /* $Header: sw.c,v 4.3 85/05/01 11:50:54 lwall Exp $
  986.  *
  987.  * $Log:    sw.c,v $
  988.  * Revision 4.3  85/05/01  11:50:54  lwall
  989.  * Baseline for release with 4.3bsd.
  990.  * 
  991.  */
  992.  
  993. #include "EXTERN.h"
  994. #include "common.h"
  995. #include "util.h"
  996. #include "head.h"
  997. #include "only.h"
  998. #include "term.h"
  999. #include "ng.h"
  1000. #include "intrp.h"
  1001. #include "INTERN.h"
  1002. #include "sw.h"
  1003.  
  1004. void
  1005. sw_init(argc,argv,tcbufptr)
  1006. int argc;
  1007. char *argv[];
  1008. char **tcbufptr;
  1009. {
  1010.     register int i;
  1011.  
  1012.     interp(*tcbufptr,1024,GLOBINIT);
  1013.     sw_file(tcbufptr,FALSE);
  1014.     safecpy(*tcbufptr,getenv("RNINIT"),1024);
  1015.     if (**tcbufptr) {
  1016.     if (**tcbufptr == '/') {
  1017.         sw_file(tcbufptr,TRUE);
  1018.     }
  1019.     else
  1020.         sw_list(*tcbufptr);
  1021.     }
  1022.  
  1023.     for (i = 1; i < argc; i++)
  1024.     decode_switch(argv[i]);
  1025. }
  1026.  
  1027. void
  1028. sw_file(tcbufptr,bleat)
  1029. char **tcbufptr;
  1030. bool bleat;
  1031. {
  1032.     int initfd = open(*tcbufptr,0);
  1033.     
  1034.     if (initfd >= 0) {
  1035.     fstat(initfd,&filestat);
  1036.     if (filestat.st_size > 1024)
  1037.         *tcbufptr = saferealloc(*tcbufptr,(MEM_SIZE)filestat.st_size);
  1038.     if (filestat.st_size) {
  1039.         read(initfd,*tcbufptr,(int)filestat.st_size);
  1040.         (*tcbufptr)[filestat.st_size-1] = '\0';
  1041.                 /* wipe out last newline */
  1042.         sw_list(*tcbufptr);
  1043.     }
  1044.     else
  1045.         **tcbufptr = '\0';
  1046.     close(initfd);
  1047.     }
  1048.     else {
  1049.     if (bleat)
  1050.         printf(cantopen,*tcbufptr) FLUSH;
  1051.     **tcbufptr = '\0';
  1052.     }
  1053. }
  1054.  
  1055. /* decode a list of space separated switches */
  1056.  
  1057. void
  1058. sw_list(swlist)
  1059. char *swlist;
  1060. {
  1061.     char *tmplist = safemalloc((MEM_SIZE) strlen(swlist) + 2);
  1062.                     /* semi-automatic string */
  1063.     register char *p, inquote = 0;
  1064.  
  1065.     strcpy(tmplist,swlist);
  1066.     for (p=tmplist; isspace(*p); p++) ;    /* skip any initial spaces */
  1067.     while (*p) {            /* "String, or nothing" */
  1068.     if (!inquote && isspace(*p)) {    /* word delimiter? */
  1069.         *p++ = '\0';        /* chop here */
  1070.         while (isspace(*p))        /* these will be ignored later */
  1071.         p++;
  1072.     }
  1073.     else if (inquote == *p) {
  1074.         strcpy(p,p+1);        /* delete trailing quote */
  1075.         inquote = 0;        /* no longer quoting */
  1076.     }
  1077.     else if (!inquote && *p == '"' || *p == '\'') {
  1078.                     /* OK, I know when I am not wanted */
  1079.         inquote = *p;        /* remember single or double */
  1080.         strcpy(p,p+1);        /* delete the quote */
  1081.     }                /* (crude, but effective) */
  1082.     else if (*p == '\\') {        /* quoted something? */
  1083.         if (p[1] == '\n')        /* newline? */
  1084.         strcpy(p,p+2);        /* "I didn't see anything" */
  1085.         else {
  1086.         strcpy(p,p+1);        /* delete the backwhack */
  1087.         p++;            /* leave the whatever alone */
  1088.         }
  1089.     }
  1090.     else
  1091.         p++;            /* normal char, leave it alone */
  1092.     }
  1093.     *++p = '\0';            /* put an extra null on the end */
  1094.     if (inquote)
  1095.     printf("Unmatched %c in switch\n",inquote) FLUSH;
  1096.     for (p = tmplist; *p; /* p += strlen(p)+1 */ ) {
  1097.     decode_switch(p);
  1098.     while (*p++) ;            /* point at null + 1 */
  1099.     }
  1100.     free(tmplist);            /* this oughta be in Ada */
  1101. }
  1102.  
  1103. /* decode a single switch */
  1104.  
  1105. void
  1106. decode_switch(s)
  1107. register char *s;
  1108. {
  1109.     while (isspace(*s))            /* ignore leading spaces */
  1110.     s++;
  1111. #ifdef DEBUGGING
  1112.     if (debug)
  1113.     printf("Switch: %s\n",s) FLUSH;
  1114. #endif
  1115.     if (*s != '-' && *s != '+') {    /* newsgroup pattern */
  1116.     setngtodo(s);
  1117.     }
  1118.     else {                /* normal switch */
  1119.     bool upordown = *s == '-' ? TRUE : FALSE;
  1120.     char tmpbuf[LBUFLEN];
  1121.  
  1122.     s++;
  1123.     switch (*s) {
  1124. #ifdef TERMMOD
  1125.     case '=': {
  1126.         char *beg = s+1;
  1127.  
  1128.         while (*s && *s != '-' && *s != '+') s++;
  1129.         cpytill(tmpbuf,beg,*s);
  1130.         if (upordown ? strEQ(getenv("TERM"),tmpbuf)
  1131.                  : strNE(getenv("TERM"),tmpbuf) ) {
  1132.         decode_switch(s);
  1133.         }
  1134.         break;
  1135.     }
  1136. #endif
  1137. #ifdef BAUDMOD
  1138.     case '0': case '1': case '2': case '3': case '4':
  1139.     case '5': case '6': case '7': case '8': case '9':
  1140.         if (upordown ? (just_a_sec*10 <= atoi(s))
  1141.                  : (just_a_sec*10 >= atoi(s)) ) {
  1142.         while (isdigit(*s)) s++;
  1143.         decode_switch(s);
  1144.         }
  1145.         break;
  1146. #endif
  1147.     case '/':
  1148. #ifdef SETENV
  1149.         setenv("SAVEDIR",  upordown ? "%p/%c" : "%p" );
  1150.         setenv("SAVENAME", upordown ? "%a"    : "%^C");
  1151. #else
  1152.         notincl("-/");
  1153. #endif
  1154.         break;
  1155.     case 'c':
  1156.         checkflag = upordown;
  1157.         break;
  1158.     case 'C':
  1159.         s++;
  1160.         if (*s == '=') s++;
  1161.         docheckwhen = atoi(s);
  1162.         break;
  1163.     case 'd': {
  1164.         s++;
  1165.         if (*s == '=') s++;
  1166.         if (cwd) {
  1167.         chdir(cwd);
  1168.         free(cwd);
  1169.         }
  1170.         cwd = savestr(s);
  1171.         break;
  1172.     }
  1173. #ifdef DEBUGGING
  1174.     case 'D':
  1175.         s++;
  1176.         if (*s == '=') s++;
  1177.         if (*s)
  1178.         if (upordown)
  1179.             debug |= atoi(s);
  1180.         else
  1181.             debug &= ~atoi(s);
  1182.         else
  1183.         if (upordown)
  1184.             debug |= 1;
  1185.         else
  1186.             debug = 0;
  1187.         break;
  1188. #endif
  1189.     case 'e':
  1190.         erase_screen = upordown;
  1191.         break;
  1192.     case 'E':
  1193. #ifdef SETENV
  1194.         s++;
  1195.         if (*s == '=')
  1196.         s++;
  1197.         strcpy(tmpbuf,s);
  1198.         s = index(tmpbuf,'=');
  1199.         if (s) {
  1200.         *s++ = '\0';
  1201.         setenv(tmpbuf,s);
  1202.         }
  1203.         else
  1204.         setenv(tmpbuf,nullstr);
  1205. #else
  1206.         notincl("-E");
  1207. #endif
  1208.         break;
  1209.     case 'F':
  1210.         s++;
  1211.         indstr = savestr(s);
  1212.         break;
  1213. #ifdef INNERSEARCH
  1214.     case 'g':
  1215.         gline = atoi(s+1)-1;
  1216.         break;
  1217. #endif
  1218.     case 'H':
  1219.     case 'h': {
  1220.         register int len, i;
  1221.         char *t;
  1222.         int flag = (*s == 'h' ? HT_HIDE : HT_MAGIC);
  1223.         
  1224.         s++;
  1225.         len = strlen(s);
  1226.         for (t=s; *t; t++)
  1227.         if (isupper(*t))
  1228.            *t = tolower(*t);
  1229.         for (i=HEAD_FIRST; i<HEAD_LAST; i++)
  1230.         if (!len || strnEQ(s,htype[i].ht_name,len))
  1231.             if (upordown)
  1232.             htype[i].ht_flags |= flag;
  1233.             else
  1234.             htype[i].ht_flags &= ~flag;
  1235.         break;
  1236.     }
  1237.     case 'i':
  1238.         s++;
  1239.         if (*s == '=') s++;
  1240.         initlines = atoi(s);
  1241.         break;
  1242.     case 'l':
  1243.         muck_up_clear = upordown;
  1244.         break;
  1245.     case 'L':
  1246. #ifdef CLEAREOL
  1247.         can_home_clear = upordown;
  1248. #else
  1249.         notincl("-L");
  1250. #endif
  1251.         break;
  1252.     case 'M':
  1253.         mbox_always = upordown;
  1254.         break;
  1255.     case 'm':
  1256.         s++;
  1257.         if (*s == '=') s++;
  1258.         if (!upordown)
  1259.         marking = NOMARKING;
  1260.         else if (*s == 'u')
  1261.         marking = UNDERLINE;
  1262.         else {
  1263.         marking = STANDOUT;
  1264.         }
  1265.         break;
  1266.     case 'N':
  1267.         norm_always = upordown;
  1268.         break;
  1269. #ifdef VERBOSE
  1270.     case 'n':
  1271.         fputs("This isn't readnews.  Don't use -n.\n\n",stdout) FLUSH;
  1272.         break;
  1273. #endif
  1274.     case 'r':
  1275.         findlast = upordown;
  1276.         break;
  1277.     case 's':
  1278.         s++;
  1279.         if (*s == '=') s++;
  1280.         if (*s) {
  1281.         countdown = atoi(s);
  1282.         suppress_cn = FALSE;
  1283.         }
  1284.         else {
  1285.         if (!upordown)
  1286.             countdown = 5;
  1287.         suppress_cn = upordown;
  1288.         }
  1289.         break;
  1290.     case 'S':
  1291. #ifdef ARTSEARCH
  1292.         s++;
  1293.         if (*s == '=') s++;
  1294.         if (*s)
  1295.         scanon = atoi(s);
  1296.         else
  1297.         scanon = upordown*3;
  1298. #else
  1299.         notincl("-S");
  1300. #endif
  1301.         break;
  1302.     case 't':
  1303. #ifdef VERBOSE
  1304. #ifdef TERSE
  1305.         verbose = !upordown;
  1306. #else
  1307.         notincl("+t");
  1308. #endif
  1309. #else
  1310.         notincl("+t");
  1311. #endif
  1312.         break;
  1313.     case 'T':
  1314.         typeahead = upordown;
  1315.         break;
  1316.     case 'v':
  1317. #ifdef VERIFY
  1318.         verify = upordown;
  1319. #else
  1320.         notincl("-v");
  1321. #endif
  1322.         break;
  1323.     default:
  1324. #ifdef VERBOSE
  1325.         IF(verbose)
  1326.         printf("\nIgnoring unrecognized switch: -%c\n", *s) FLUSH;
  1327.         ELSE
  1328. #endif
  1329. #ifdef TERSE
  1330.         printf("\nIgnoring -%c\n", *s) FLUSH;
  1331. #endif
  1332.         break;
  1333.     }
  1334.     }
  1335. }
  1336.  
  1337. /* print current switch values */
  1338.  
  1339. void
  1340. pr_switches()
  1341. {
  1342.     static char mp[2] = {'+','-'};
  1343.     register int i;
  1344.     
  1345.     fputs("\nCurrent switch settings:\n",stdout);
  1346.     printf("%c/ ", mp[strEQ(getval("SAVEDIR",SAVEDIR),"%p/%c")]);
  1347.     printf("%cc ", mp[checkflag]);
  1348.     printf("-C%d ", docheckwhen);
  1349.     printf("-d%s ", cwd);
  1350. #ifdef DEBUGGING
  1351.     if (debug)
  1352.     printf("-D%d ", debug);
  1353. #endif
  1354.     printf("%ce ", mp[erase_screen]);
  1355.     printf("-F\"%s\" ", indstr);
  1356. #ifdef INNERSEARCH
  1357.     printf("-g%d", gline);
  1358. #endif
  1359.     putchar('\n');
  1360. #ifdef VERBOSE
  1361.     if (verbose) {
  1362.     for (i=HEAD_FIRST; i<HEAD_LAST; i++)
  1363.         printf("%ch%s%c",
  1364.         mp[htype[i].ht_flags & HT_HIDE], htype[i].ht_name,
  1365.         (! (i % 5) ? '\n' : ' ') );
  1366.     }
  1367. #endif
  1368.     printf("-i%d ", initlines);
  1369.     printf("%cl ", mp[muck_up_clear]);
  1370. #ifdef CLEAREOL
  1371.     printf("%cL ", mp[can_home_clear]);
  1372. #endif CLEAREOL
  1373.     if (marking)
  1374.     printf("-m%c ",marking==UNDERLINE?'u':'s');
  1375.     else
  1376.     printf("+m ");
  1377.     printf("%cM ", mp[mbox_always]);
  1378.     printf("%cN ", mp[norm_always]);
  1379.     printf("%cr ", mp[findlast]);
  1380.     if (countdown)
  1381.     printf("-s%d ", countdown);
  1382.     else
  1383.     printf("%cs ", mp[suppress_cn]);
  1384. #ifdef ARTSEARCH
  1385.     if (scanon)
  1386.     printf("-S%d ",scanon);
  1387.     else
  1388.     printf("+S ");
  1389. #ifdef VERBOSE
  1390. #ifdef TERSE
  1391.     printf("%ct ", mp[!verbose]);
  1392. #endif
  1393. #endif
  1394.     printf("%cT ", mp[typeahead]);
  1395. #ifdef VERIFY
  1396.     printf("%cv ", mp[verify]);
  1397. #endif
  1398. #endif
  1399.     fputs("\n\n",stdout) FLUSH;
  1400. #ifdef ONLY
  1401.     if (maxngtodo) {
  1402. #ifdef VERBOSE
  1403.     IF(verbose)
  1404.         fputs("Current restriction:",stdout);
  1405.     ELSE
  1406. #endif
  1407. #ifdef TERSE
  1408.         fputs("Only:",stdout);
  1409. #endif
  1410.     for (i=0; i<maxngtodo; i++)
  1411.         printf(" %s",ngtodo[i]);
  1412.     fputs("\n\n",stdout) FLUSH;
  1413.     }
  1414. #ifdef VERBOSE
  1415.     else if (verbose)
  1416.     fputs("No restriction.\n\n",stdout) FLUSH;
  1417. #endif
  1418. #endif
  1419. }
  1420.  
  1421. void
  1422. cwd_check()
  1423. {
  1424.     char tmpbuf[LBUFLEN];
  1425.  
  1426.     if (!cwd)
  1427.     cwd = savestr(filexp("~/News"));
  1428.     strcpy(tmpbuf,cwd);
  1429.     if (chdir(cwd)) {
  1430.     safecpy(tmpbuf,filexp(cwd),sizeof tmpbuf);
  1431.     if (makedir(tmpbuf,MD_DIR) < 0 || chdir(tmpbuf) < 0) {
  1432.         interp(cmd_buf, (sizeof cmd_buf), "%~/News");
  1433.         if (makedir(cmd_buf,MD_DIR) < 0)
  1434.         strcpy(tmpbuf,homedir);
  1435.         else
  1436.         strcpy(tmpbuf,cmd_buf);
  1437.         chdir(tmpbuf);
  1438. #ifdef VERBOSE
  1439.         IF(verbose)
  1440.         printf("\
  1441. Cannot make directory %s--\n\
  1442.     articles will be saved to %s\n\
  1443. \n\
  1444. ",cwd,tmpbuf) FLUSH;
  1445.         ELSE
  1446. #endif
  1447. #ifdef TERSE
  1448.         printf("\
  1449. Can't make %s--\n\
  1450.     using %s\n\
  1451. \n\
  1452. ",cwd,tmpbuf) FLUSH;
  1453. #endif
  1454.     }
  1455.     }
  1456.     free(cwd);
  1457.     getwd(tmpbuf);
  1458.     if (eaccess(tmpbuf,2)) {
  1459. #ifdef VERBOSE
  1460.     IF(verbose)
  1461.         printf("\
  1462. Current directory %s is not writeable--\n\
  1463.     articles will be saved to home directory\n\n\
  1464. ",tmpbuf) FLUSH;
  1465.     ELSE
  1466. #endif
  1467. #ifdef TERSE
  1468.         printf("%s not writeable--using ~\n\n",tmpbuf) FLUSH;
  1469. #endif
  1470.     strcpy(tmpbuf,homedir);
  1471.     }
  1472.     cwd = savestr(tmpbuf);
  1473. }
  1474. !STUFFY!FUNK!
  1475. echo Extracting inews.c.2.pat
  1476. cat >inews.c.2.pat <<'!STUFFY!FUNK!'
  1477. *** inews.old.c    Tue Apr 30 14:34:19 1985
  1478. --- inews.c    Tue Apr 30 14:34:33 1985
  1479. ***************
  1480. *** 416,421
  1481.   /*
  1482.    *    Link ARTICLE into dir for ngname and update active file.
  1483.    */
  1484.   localize(ngname)
  1485.   char    *ngname;
  1486.   {
  1487.  
  1488. --- 416,424 -----
  1489.   /*
  1490.    *    Link ARTICLE into dir for ngname and update active file.
  1491.    */
  1492. + #ifdef DOXREFS
  1493. + long
  1494. + #endif
  1495.   localize(ngname)
  1496.   char    *ngname;
  1497.   {
  1498. ***************
  1499. *** 453,458
  1500.               mknewsg(cp, ngname);
  1501.   
  1502.           sprintf(bfr, "%s/%ld", cp, ngsize+1);
  1503.   #ifdef VMS
  1504.           if ((f2 = creat(bfr, 0666)) >=0 ) {
  1505.               f1 = open(article, 0);
  1506.  
  1507. --- 456,466 -----
  1508.               mknewsg(cp, ngname);
  1509.   
  1510.           sprintf(bfr, "%s/%ld", cp, ngsize+1);
  1511. + #ifdef LINKART
  1512. +         if (mylink(ARTICLE, bfr) == 0) break;
  1513. +                 /* on first file inits ARTICLE, on subsequent */
  1514. +                 /* files "links" to first article */
  1515. + #else !LINKART
  1516.   #ifdef VMS
  1517.           if ((f2 = creat(bfr, 0666)) >=0 ) {
  1518.               f1 = open(article, 0);
  1519. ***************
  1520. *** 468,473
  1521.           if (link(ARTICLE, bfr) == 0)
  1522.               break;
  1523.   #endif !VMS
  1524.           e = errno;    /* keep log from clobbering it */
  1525.           logerr("Cannot install article as %s", bfr);
  1526.           if (e != EEXIST) {
  1527.  
  1528. --- 476,482 -----
  1529.           if (link(ARTICLE, bfr) == 0)
  1530.               break;
  1531.   #endif !VMS
  1532. + #endif !LINKART
  1533.           e = errno;    /* keep log from clobbering it */
  1534.           logerr("Cannot install article as %s", bfr);
  1535.           if (e != EEXIST) {
  1536. ***************
  1537. *** 494,499
  1538.           strcpy(firstbufname, bfr);
  1539.       sprintf(bfr, "%s/%ld ", ngname, ngsize+1);
  1540.       addhist(bfr);
  1541.       return TRUE;
  1542.   }
  1543.   
  1544.  
  1545. --- 503,509 -----
  1546.           strcpy(firstbufname, bfr);
  1547.       sprintf(bfr, "%s/%ld ", ngname, ngsize+1);
  1548.       addhist(bfr);
  1549. + #ifndef DOXREFS
  1550.       return TRUE;
  1551.   #else DOXREFS
  1552.       return ngsize+1;
  1553. ***************
  1554. *** 495,500
  1555.       sprintf(bfr, "%s/%ld ", ngname, ngsize+1);
  1556.       addhist(bfr);
  1557.       return TRUE;
  1558.   }
  1559.   
  1560.   /*
  1561.  
  1562. --- 505,513 -----
  1563.       addhist(bfr);
  1564.   #ifndef DOXREFS
  1565.       return TRUE;
  1566. + #else DOXREFS
  1567. +     return ngsize+1;
  1568. + #endif DOXREFS
  1569.   }
  1570.   
  1571.   /*
  1572. ***************
  1573. *** 507,512
  1574.       char c;
  1575.       struct srec srec;    /* struct for sys file lookup    */
  1576.       int is_invalid = FALSE;
  1577.   
  1578.       /* Fill up the rest of header. */
  1579.       if (mode != PROC) {
  1580.  
  1581. --- 520,529 -----
  1582.       char c;
  1583.       struct srec srec;    /* struct for sys file lookup    */
  1584.       int is_invalid = FALSE;
  1585. + #ifdef DOXREFS
  1586. +     register char *nextxref = header.xref; 
  1587. +     int numxrefs = 0;
  1588. + #endif DOXREFS
  1589.   
  1590.       /* Fill up the rest of header. */
  1591.       if (mode != PROC) {
  1592. ***************
  1593. *** 527,532
  1594.       if (!is_ctl && mode != CREATENG)
  1595.           is_invalid = ngfcheck(mode == PROC);
  1596.   
  1597.       /* Write article to temp file. */
  1598.       tfp = xfopen(mktemp(ARTICLE), "w");
  1599.       if ( (c=getc(infp)) == ' ' || c == '\t' ) {
  1600.  
  1601. --- 544,556 -----
  1602.       if (!is_ctl && mode != CREATENG)
  1603.           is_invalid = ngfcheck(mode == PROC);
  1604.   
  1605. + #ifdef LINKART
  1606. +     *ARTICLE = '\0';    /* tell mylink() to snarf the name */
  1607. + #else !LINKART
  1608. + #ifdef DOXREFS
  1609. +     /* Open temp file for article, but link before writing */
  1610. +     tfp = xfopen(mktemp(ARTICLE), "w");
  1611. + #else DOXREFS
  1612.       /* Write article to temp file. */
  1613.       tfp = xfopen(mktemp(ARTICLE), "w");
  1614.       if ( (c=getc(infp)) == ' ' || c == '\t' ) {
  1615. ***************
  1616. *** 545,550
  1617.           putc('\n',tfp);
  1618.       fclose(tfp);
  1619.       fclose(infp);
  1620.   
  1621.       if (is_invalid) {
  1622.           logerr("No valid newsgroups found, moved to junk");
  1623.  
  1624. --- 569,576 -----
  1625.           putc('\n',tfp);
  1626.       fclose(tfp);
  1627.       fclose(infp);
  1628. + #endif DOXREFS
  1629. + #endif LINKART
  1630.   
  1631.       if (is_invalid) {
  1632.           logerr("No valid newsgroups found, moved to junk");
  1633. ***************
  1634. *** 550,555
  1635.           logerr("No valid newsgroups found, moved to junk");
  1636.           if (localize("junk"))
  1637.               savehist(histline);
  1638.           xxit(1);
  1639.       }
  1640.   
  1641.  
  1642. --- 576,582 -----
  1643.           logerr("No valid newsgroups found, moved to junk");
  1644.           if (localize("junk"))
  1645.               savehist(histline);
  1646. + #ifndef DOXREFS
  1647.           xxit(1);
  1648.   #endif
  1649.       }
  1650. ***************
  1651. *** 551,556
  1652.           if (localize("junk"))
  1653.               savehist(histline);
  1654.           xxit(1);
  1655.       }
  1656.   
  1657.       if (time((time_t)0) > (cgtdate(header.subdate) + DFLTEXP) ){
  1658.  
  1659. --- 578,584 -----
  1660.               savehist(histline);
  1661.   #ifndef DOXREFS
  1662.           xxit(1);
  1663. + #endif
  1664.       }
  1665.   #ifdef DOXREFS
  1666.       else
  1667. ***************
  1668. *** 552,558
  1669.               savehist(histline);
  1670.           xxit(1);
  1671.       }
  1672. ! 
  1673.       if (time((time_t)0) > (cgtdate(header.subdate) + DFLTEXP) ){
  1674.           logerr("Article too old, moved to junk");
  1675.           if (localize("junk"))
  1676.  
  1677. --- 580,588 -----
  1678.           xxit(1);
  1679.   #endif
  1680.       }
  1681. ! #ifdef DOXREFS
  1682. !     else
  1683. ! #endif
  1684.       if (time((time_t)0) > (cgtdate(header.subdate) + DFLTEXP) ){
  1685.           logerr("Article too old, moved to junk");
  1686.           if (localize("junk"))
  1687. ***************
  1688. *** 557,562
  1689.           logerr("Article too old, moved to junk");
  1690.           if (localize("junk"))
  1691.               savehist(histline);
  1692.           xxit(1);
  1693.       }
  1694.   
  1695.  
  1696. --- 587,593 -----
  1697.           logerr("Article too old, moved to junk");
  1698.           if (localize("junk"))
  1699.               savehist(histline);
  1700. + #ifndef DOXREFS
  1701.           xxit(1);
  1702.   #endif
  1703.       }
  1704. ***************
  1705. *** 558,563
  1706.           if (localize("junk"))
  1707.               savehist(histline);
  1708.           xxit(1);
  1709.       }
  1710.   
  1711.       if (is_ctl) {
  1712.  
  1713. --- 589,595 -----
  1714.               savehist(histline);
  1715.   #ifndef DOXREFS
  1716.           xxit(1);
  1717. + #endif
  1718.       }
  1719.   #ifdef DOXREFS
  1720.       else
  1721. ***************
  1722. *** 559,565
  1723.               savehist(histline);
  1724.           xxit(1);
  1725.       }
  1726. ! 
  1727.       if (is_ctl) {
  1728.           control(&header);
  1729.           localize("control");
  1730.  
  1731. --- 591,599 -----
  1732.           xxit(1);
  1733.   #endif
  1734.       }
  1735. ! #ifdef DOXREFS
  1736. !     else
  1737. ! #endif
  1738.       if (is_ctl) {
  1739.   #ifndef DOXREFS
  1740.           control(&header);
  1741. ***************
  1742. *** 561,566
  1743.       }
  1744.   
  1745.       if (is_ctl) {
  1746.           control(&header);
  1747.           localize("control");
  1748.       } else {
  1749.  
  1750. --- 595,601 -----
  1751.       else
  1752.   #endif
  1753.       if (is_ctl) {
  1754. + #ifndef DOXREFS
  1755.           control(&header);
  1756.   #endif
  1757.           localize("control");
  1758. ***************
  1759. *** 562,567
  1760.   
  1761.       if (is_ctl) {
  1762.           control(&header);
  1763.           localize("control");
  1764.       } else {
  1765.           if (s_find(&srec, FULLSYSNAME) == FALSE)
  1766.  
  1767. --- 597,603 -----
  1768.       if (is_ctl) {
  1769.   #ifndef DOXREFS
  1770.           control(&header);
  1771. + #endif
  1772.           localize("control");
  1773.       } else {
  1774.           if (s_find(&srec, FULLSYSNAME) == FALSE)
  1775. ***************
  1776. *** 566,571
  1777.       } else {
  1778.           if (s_find(&srec, FULLSYSNAME) == FALSE)
  1779.               xerror("Cannot find my name '%s' in %s", FULLSYSNAME, SUBFILE);
  1780.           for (ptr = nbuf; *ptr;) {
  1781.               if (ngmatch(ptr, srec.s_nbuf) || index(ptr,'.') == NULL)
  1782.                   localize(ptr);
  1783.  
  1784. --- 602,611 -----
  1785.       } else {
  1786.           if (s_find(&srec, FULLSYSNAME) == FALSE)
  1787.               xerror("Cannot find my name '%s' in %s", FULLSYSNAME, SUBFILE);
  1788. + #ifdef DOXREFS
  1789. +         sprintf(nextxref,"%s ",FULLSYSNAME);
  1790. +         nextxref += strlen(nextxref);
  1791. + #endif
  1792.           for (ptr = nbuf; *ptr;) {
  1793.   #ifndef DOXREFS
  1794.               if (ngmatch(ptr, srec.s_nbuf) || index(ptr,'.') == NULL)
  1795. ***************
  1796. *** 567,572
  1797.           if (s_find(&srec, FULLSYSNAME) == FALSE)
  1798.               xerror("Cannot find my name '%s' in %s", FULLSYSNAME, SUBFILE);
  1799.           for (ptr = nbuf; *ptr;) {
  1800.               if (ngmatch(ptr, srec.s_nbuf) || index(ptr,'.') == NULL)
  1801.                   localize(ptr);
  1802.               while (*ptr++)
  1803.  
  1804. --- 607,613 -----
  1805.           nextxref += strlen(nextxref);
  1806.   #endif
  1807.           for (ptr = nbuf; *ptr;) {
  1808. + #ifndef DOXREFS
  1809.               if (ngmatch(ptr, srec.s_nbuf) || index(ptr,'.') == NULL)
  1810.                   localize(ptr);
  1811.   #else DOXREFS
  1812. ***************
  1813. *** 569,574
  1814.           for (ptr = nbuf; *ptr;) {
  1815.               if (ngmatch(ptr, srec.s_nbuf) || index(ptr,'.') == NULL)
  1816.                   localize(ptr);
  1817.               while (*ptr++)
  1818.                   ;
  1819.           }
  1820.  
  1821. --- 610,624 -----
  1822.   #ifndef DOXREFS
  1823.               if (ngmatch(ptr, srec.s_nbuf) || index(ptr,'.') == NULL)
  1824.                   localize(ptr);
  1825. + #else DOXREFS
  1826. +             if (ngmatch(ptr, srec.s_nbuf) ||
  1827. +                 index(ptr,'.') == NULL) {
  1828. +                 sprintf(nextxref,"%s:%ld ",ptr,localize(ptr));
  1829. +                 numxrefs++;
  1830. +                 while (*nextxref)
  1831. +                        nextxref++;
  1832. +             }
  1833. + #endif DOXREFS
  1834.               while (*ptr++)
  1835.                   ;
  1836.           }
  1837. ***************
  1838. *** 577,582
  1839.               localize("junk");
  1840.           }
  1841.       }
  1842.   
  1843.       broadcast();
  1844.       savehist(histline);
  1845.  
  1846. --- 627,638 -----
  1847.               localize("junk");
  1848.           }
  1849.       }
  1850. + #ifdef DOXREFS
  1851. +     if (numxrefs >= 2)
  1852. +         *(nextxref-1) = '\0';       /* wipe out the last space */
  1853. +     else
  1854. +         header.xref[0] = '\0';      /* wipe out the whole thing */
  1855. + #endif
  1856.   
  1857.   #ifdef LINKART
  1858.       tfp = xfopen(ARTICLE,"w");    /* open 1st article localized */
  1859. ***************
  1860. *** 578,583
  1861.           }
  1862.       }
  1863.   
  1864.       broadcast();
  1865.       savehist(histline);
  1866.       xxit(0);
  1867.  
  1868. --- 634,669 -----
  1869.           header.xref[0] = '\0';      /* wipe out the whole thing */
  1870.   #endif
  1871.   
  1872. + #ifdef LINKART
  1873. +     tfp = xfopen(ARTICLE,"w");    /* open 1st article localized */
  1874. + #endif
  1875. + 
  1876. + #if defined(LINKART) || defined(DOXREFS)
  1877. +     /* Now that xref is constructed, write article to temp file. */
  1878. +     /* (We ought to detect no room at this point and clean up.) */ 
  1879. +     if ( (c=getc(infp)) == ' ' || c == '\t' ) {
  1880. +         header.intnumlines++;
  1881. +         sprintf(header.numlines,"%d",header.intnumlines);
  1882. +     }
  1883. +     lhwrite(&header, tfp);
  1884. +     /* Kludge to get around article truncation problem */
  1885. +     if (c == ' ' || c == '\t' )
  1886. +         putc('\n', tfp);
  1887. +     putc(c,tfp);
  1888. +     while (fgets(bfr, BUFLEN, infp) != NULL)
  1889. +         fputs(bfr, tfp);
  1890. + 
  1891. +     if (bfr[strlen(bfr)-1] != '\n')
  1892. +         putc('\n',tfp);
  1893. +     fclose(tfp);
  1894. +     fclose(infp);
  1895. + #endif LINKART || DOXREFS
  1896. + 
  1897. + #ifdef DOXREFS
  1898. +     if (is_ctl)    /* moved here cuz checkgroups uses ARTICLE! */
  1899. +         control(&header);
  1900. + #endif
  1901. + 
  1902.       broadcast();
  1903.       savehist(histline);
  1904.       xxit(0);
  1905. ***************
  1906. *** 853,855
  1907.       }
  1908.       return(NULL);
  1909.   }
  1910.  
  1911. --- 939,963 -----
  1912.       }
  1913.       return(NULL);
  1914.   }
  1915. + 
  1916. + #ifdef LINKART
  1917. + mylink(tmpart,linkfrom)
  1918. + char *tmpart, *linkfrom;
  1919. + {
  1920. +     struct stat statbuf;
  1921. + 
  1922. +     if (stat(linkfrom,&statbuf)==0)
  1923. +     return -1;
  1924. +     if (!*tmpart)                       /* first article? */
  1925. +     strcpy(tmpart,linkfrom);        /* just remember name */
  1926. +     else {
  1927. +     FILE *linkfp = fopen(linkfrom,"w");
  1928. + 
  1929. +     if (!linkfp)
  1930. +         return -1;
  1931. +     fprintf(linkfp,"%s\n",tmpart);  /* do "symbolic link" */
  1932. +     fclose(linkfp);
  1933. +     }
  1934. +     return 0;
  1935. + }
  1936. + #endif LINKART
  1937. !STUFFY!FUNK!
  1938. echo Extracting help.c
  1939. cat >help.c <<'!STUFFY!FUNK!'
  1940. /* $Header: help.c,v 4.3 85/05/01 11:38:59 lwall Exp $
  1941.  *
  1942.  * $Log:    help.c,v $
  1943.  * Revision 4.3  85/05/01  11:38:59  lwall
  1944.  * Baseline for release with 4.3bsd.
  1945.  * 
  1946.  */
  1947.  
  1948. #include "EXTERN.h"
  1949. #include "common.h"
  1950. #include "rn.h"
  1951. #include "term.h"
  1952. #include "INTERN.h"
  1953. #include "help.h"
  1954.  
  1955. void
  1956. help_init()
  1957. {
  1958.     ;
  1959. }
  1960.  
  1961. int
  1962. help_page()
  1963. {
  1964.     int cmd;
  1965.  
  1966. #ifdef PAGERHELP
  1967.     doshell(sh,filexp(PAGERHELP));
  1968. #else
  1969.     page_init();
  1970.     if ((cmd = print_lines("\
  1971. Paging commands:\n\
  1972. ",STANDOUT)) ||
  1973.     (cmd = print_lines("\n\
  1974. SP    Display the next page.\n\
  1975. x    Display the next page decrypted (rot13).\n\
  1976. d    Display half a page more.\n\
  1977. CR    Display one more line.\n\
  1978. ^R,v,^X    Restart the current article (v=verbose header, ^X=rot13).\n\
  1979. ",NOMARKING)) ||
  1980.     (cmd = print_lines("\
  1981. ^B    Back up one page.\n\
  1982. ^L,X    Refresh the screen (X=rot13).\n\
  1983. g pat    Go to (search forward within article for) pattern.\n\
  1984. G    Search again for current pattern within article.\n\
  1985. ^G    Search for next line beginning with \"Subject:\".\n\
  1986. TAB    Search for next line beginning with a different character.\n\
  1987. q    Quit the pager, go to end of article.  Leave article read or unread.\n\
  1988. j    Junk this article (mark it read).  Goes to end of article.\n\
  1989. \n\
  1990. ",NOMARKING)) ||
  1991.     (cmd = print_lines("\
  1992. The following commands skip the rest of the current article, then behave\n\
  1993. just as if typed to the 'What next?' prompt at the end of the article:\n\
  1994. ",STANDOUT)) ||
  1995.     (cmd = print_lines("\n\
  1996. n    Scan forward for next unread article.\n\
  1997. N    Go to next article.\n\
  1998. ^N    Scan forward for next unread article with same title.\n\
  1999. p,P,^P    Same as n,N,^N, only going backwards.\n\
  2000. -    Go to previously displayed article.\n\
  2001. \n\
  2002. ",NOMARKING)) ||
  2003.     (cmd = print_lines("\
  2004. The following commands also take you to the end of the article.\n\
  2005. Type h at end of article for a description of these commands:\n\
  2006. ",STANDOUT)) ||
  2007.     (cmd = print_lines("\
  2008.     # $ & / = ? c C f F k K ^K m M number r R ^R s S u v w W Y ^ |\n\
  2009. \n\
  2010. (To return to the middle of the article after one of these commands, type ^L.)\n\
  2011. ",NOMARKING)) )
  2012.     return cmd;
  2013. #endif
  2014.     return 0;
  2015. }
  2016.  
  2017. int
  2018. help_art()
  2019. {
  2020.     int cmd;
  2021. #ifdef ARTHELP
  2022.     doshell(sh,filexp(ARTHELP));
  2023. #else
  2024.     page_init();
  2025.     if ((cmd = print_lines("\
  2026. Article Selection commands:\n\
  2027. ",STANDOUT)) ||
  2028.     (cmd = print_lines("\n\
  2029. n,SP    Scan forward for next unread article.\n\
  2030. N    Go to next article.\n\
  2031. ^N    Scan forward for next unread article with same subject.\n\
  2032. p,P,^P    Same as n,N,^N, only going backwards.\n\
  2033. -    Go to previously displayed article.\n\
  2034. ",NOMARKING)) ||
  2035.     (cmd = print_lines("\
  2036. number    Go to specified article.\n\
  2037. range{,range} command{:command}\n\
  2038.     Apply one or more commands to one or more ranges of articles.\n\
  2039.     Ranges are of the form: number | number-number.  You may use . for\n\
  2040.     the current article, and $ for the last article.\n\
  2041.      Valid commands are: j, m, M, s, S, and !.\n\
  2042. ",NOMARKING)) ||
  2043.     (cmd = print_lines("\
  2044. /pattern/modifiers\n\
  2045.     Scan forward for article containing pattern in the subject line.\n\
  2046.     (Use ?pat? to scan backwards; append h to scan headers, a to scan\n\
  2047.     entire articles, r to scan read articles, c to make case sensitive.\n\
  2048. /pattern/modifiers:command{:command}\n\
  2049.     Apply one or more commands to the set of articles matching pattern.\n\
  2050.     Use a K modifier to save entire command to the KILL file for this\n\
  2051.     newsgroup.  Commands m and M, if first, imply an r modifier.\n\
  2052.      Valid commands are: j, m, M, s, S, and !.\n\
  2053. ",NOMARKING)) ||
  2054.     (cmd = print_lines("\
  2055. f,F    Submit a followup article (F = include this article).\n\
  2056. r,R    Reply through net mail (R = include this article).\n\
  2057. s ...    Save to file or pipe via sh.\n\
  2058. S ...    Save via preferred shell.\n\
  2059. w,W    Like s and S but save without the header.\n\
  2060. | ...    Same as s|...\n\
  2061. C    Cancel this article, if yours.\n\
  2062. ",NOMARKING)) ||
  2063.     (cmd = print_lines("\
  2064. ^R,v    Restart article (v=verbose).\n\
  2065. ^X    Restart article, rot13 mode.\n\
  2066. c    Catch up (mark all articles as read).\n\
  2067. ^B    Back up one page.\n\
  2068. ^L    Refresh the screen.  You can get back to the pager with this.\n\
  2069. X    Refresh screen in rot13 mode.\n\
  2070. ",NOMARKING)) ||
  2071.     (cmd = print_lines("\
  2072. ^    Go to first unread article.  Disables subject search mode.\n\
  2073. $    Go to end of newsgroup.  Disables subject search mode.\n\
  2074. ",NOMARKING)) ||
  2075.     (cmd = print_lines("#       Print last article number.\n\
  2076. &    Print current values of command-line switches.\n\
  2077. &switch {switch}\n\
  2078.     Set or unset more switches.\n\
  2079. &&    Print current macro definitions.\n\
  2080. &&def    Define a new macro.\n\
  2081. j    Junk this article (mark it read).  Stays at end of article.\n\
  2082. m    Mark article as still unread.\n\
  2083. M    Mark article as still unread upon exiting newsgroup or Y command.\n\
  2084. ",NOMARKING)) ||
  2085.     (cmd = print_lines("\
  2086. Y    Yank back articles marked temporarily read via M.\n\
  2087. k    Mark current SUBJECT as read.\n\
  2088. K    Mark current SUBJECT as read, and save command in KILL file.\n\
  2089. =    List subjects of unread articles.\n\
  2090. u    Unsubscribe to this newsgroup.\n\
  2091. ^K    Edit local KILL file (the one for this newsgroup).\n\
  2092. q    Quit this newsgroup for now.\n\
  2093. Q    Quit newsgroup, staying at current newsgroup.\n\
  2094. ",NOMARKING)) )
  2095.     return cmd;
  2096. #endif
  2097.     return 0;
  2098. }
  2099.  
  2100. int
  2101. help_ng()
  2102. {
  2103.     int cmd;
  2104. #ifdef NGHELP
  2105.     doshell(sh,filexp(NGHELP));
  2106. #else
  2107.     page_init();
  2108.     if (cmd = print_lines("\
  2109. Newsgroup Selection commands:\n\
  2110. ",STANDOUT) )
  2111.     return cmd;
  2112.     if (ng != nextrcline) {
  2113.     if (cmd = print_lines("\
  2114. \n\
  2115. y,SP    Do this newsgroup now.\n\
  2116. .cmd    Do this newsgroup, executing cmd as first command.\n\
  2117. =    Equivalent to .=<carriage return>.\n\
  2118. u    Unsubscribe from this newsgroup.\n\
  2119. c    Catch up (mark this newsgroup all read).\n\
  2120. ",NOMARKING) )
  2121.         return cmd;
  2122.     }
  2123.     if ((cmd = print_lines("\
  2124. \n\
  2125. n    Go to the next newsgroup with unread news.\n\
  2126. N    Go to the next newsgroup.\n\
  2127. p    Go to the previous newsgroup with unread news.\n\
  2128. P    Go to the previous newsgroup.\n\
  2129. ",NOMARKING)) ||
  2130.     (cmd = print_lines("\
  2131. -    Go to the previously displayed newsgroup.\n\
  2132. 1    Go to the first newsgroup.\n\
  2133. ^    Go to the first newsgroup with unread news.\n\
  2134. $    Go to the last newsgroup.\n\
  2135. ",NOMARKING)) ||
  2136.     (cmd = print_lines("\
  2137. g name    Go to the named newsgroup.  Subscribe to new newsgroups this way too.\n\
  2138. /pat    Search forward for newsgroup matching pattern.\n\
  2139. ?pat    Search backward for newsgroup matching pattern.\n\
  2140.     (Use * and ? style patterns.  Append r to include read newsgroups.)\n\
  2141. ",NOMARKING)) ||
  2142.     (cmd = print_lines("\
  2143. l pat    List unsubscribed newsgroups containing pattern.\n\
  2144. m name    Move named newsgroup elsewhere (no name moves current newsgroup).\n\
  2145. o pat    Only display newsgroups matching pattern.  Omit pat to unrestrict.\n\
  2146. a pat    Like o, but also scans for unsubscribed newsgroups matching pattern.\n\
  2147. L    List current .newsrc.\n\
  2148. ",NOMARKING)) ||
  2149.     (cmd = print_lines("\
  2150. &    Print current command-line switch settings.\n\
  2151. &switch {switch}\n\
  2152.     Set (or unset) more command-line switches.\n\
  2153. &&    Print current macro definitions.\n\
  2154. &&def    Define a new macro.\n\
  2155. !cmd    Shell escape.\n\
  2156. ",NOMARKING)) ||
  2157.     (cmd = print_lines("\
  2158. q    Quit rn.\n\
  2159. ^K    Edit the global KILL file.  Use commands like /pattern/j to suppress\n\
  2160.     pattern in every newsgroup.\n\
  2161. v    Print version.\n\
  2162. ",NOMARKING)) )
  2163.     return cmd;
  2164. #endif
  2165. #ifdef PUSHBACK
  2166.     if (cmd = get_anything())
  2167.     return cmd;
  2168.     show_macros();
  2169. #endif
  2170.     return 0;
  2171. }
  2172.  
  2173. #ifdef ESCSUBS
  2174. int
  2175. help_subs()
  2176. {
  2177.     int cmd;
  2178. #ifdef SUBSHELP
  2179.     doshell(sh,filexp(SUBSHELP));
  2180. #else
  2181.     page_init();
  2182.     if ((cmd = print_lines("\
  2183. Valid substitutions are:\n\
  2184. ",STANDOUT)) ||
  2185.     (cmd = print_lines("\
  2186. \n\
  2187. a    Current article number\n\
  2188. A    Full name of current article (%P/%c/%a)\n\
  2189. b    Destination of last save command, often a mailbox\n\
  2190. B    Bytes to ignore at beginning of last saved article\n\
  2191. ",NOMARKING)) ||
  2192.     (cmd = print_lines("\
  2193. c    Current newsgroup, directory form\n\
  2194. C    Current newsgroup, dot form\n\
  2195. d    Full name of newsgroup directory (%P/%c)\n\
  2196. D    Distribution line from current article\
  2197. ",NOMARKING)) ||
  2198.     (cmd = print_lines("\
  2199. f    Who the current article is from\n\
  2200. F    Newsgroups to followup to (from Newsgroups and Followup-To)\n\
  2201. h    (This help message)\n\
  2202. H    Host name (yours)\n\
  2203. i    Message-I.D. line from current article, with <>\n\
  2204. I    Reference indicator mark (see -F switch)\n\
  2205. ",NOMARKING)) ||
  2206.     (cmd = print_lines("\
  2207. l    News administrator's login name, if any\n\
  2208. L    Login name (yours)\n\
  2209. m    Current mode, first letter of (init,newsgroup,article,pager,misc)\n\
  2210. M    Number of article marked with M\n\
  2211. n    Newsgroups from current article\n\
  2212. N    Full name (yours)\n\
  2213. ",NOMARKING)) ||
  2214.     (cmd = print_lines("\
  2215. o    Organization (yours)\n\
  2216. O    Original working directory (where you ran rn from)\n\
  2217. p    Your private news directory (from -d)\n\
  2218. P    Public news spool directory\n\
  2219. ",NOMARKING)) ||
  2220.     (cmd = print_lines("\
  2221. r    Last reference (parent article id)\n\
  2222. R    References list for followup article\n\
  2223. s    Subject, with all Re's and (nf)'s stripped off\n\
  2224. S    Subject, with one Re stripped off\
  2225. ",NOMARKING)) ||
  2226.     (cmd = print_lines("\
  2227. t    New To line derived from From and Reply-To (Internet format)\n\
  2228. T    New To line derived from Path\n\
  2229. u    Number of unread articles\n\
  2230. U    Number of unread articles not counting current article\n\
  2231. x    News library directory\n\
  2232. X    Rn library directory\n\
  2233. z    Length of current article in bytes\n\
  2234. ",NOMARKING)) ||
  2235.     (cmd = print_lines("\
  2236. ~    Your home directory\n\
  2237. .    Directory containing . files\n\
  2238. $    Current process number\n\
  2239. /    Last search string\n\
  2240. ESC    Run preceding command through % interpretation\n\
  2241. ",NOMARKING)) )
  2242.     return cmd;
  2243. #endif
  2244.     return 0;
  2245. }
  2246. #endif
  2247.  
  2248. !STUFFY!FUNK!
  2249. echo Extracting artsrch.c
  2250. cat >artsrch.c <<'!STUFFY!FUNK!'
  2251. /* $Header: artsrch.c,v 4.3 85/05/01 11:35:47 lwall Exp $
  2252.  *
  2253.  * $Log:    artsrch.c,v $
  2254.  * Revision 4.3  85/05/01  11:35:47  lwall
  2255.  * Baseline for release with 4.3bsd.
  2256.  * 
  2257.  */
  2258.  
  2259. #include "EXTERN.h"
  2260. #include "common.h"
  2261. #include "search.h"
  2262. #include "term.h"
  2263. #include "util.h"
  2264. #include "intrp.h"
  2265. #include "bits.h"
  2266. #include "kfile.h"
  2267. #include "head.h"
  2268. #include "final.h"
  2269. #include "cheat.h"
  2270. #include "ng.h"
  2271. #include "artio.h"
  2272. #include "INTERN.h"
  2273. #include "artsrch.h"
  2274.  
  2275. void
  2276. artsrch_init()
  2277. {
  2278. #ifdef ARTSEARCH
  2279. #ifdef ZEROGLOB
  2280.     init_compex(&sub_compex);
  2281.     init_compex(&art_compex);
  2282. #endif
  2283. #endif
  2284. }
  2285.  
  2286. /* search for an article containing some pattern */
  2287.  
  2288. #ifdef ARTSEARCH
  2289. int
  2290. art_search(patbuf,patbufsiz,get_cmd)
  2291. char *patbuf;                /* if patbuf != buf, get_cmd must */
  2292. int patbufsiz;
  2293. int get_cmd;                /*   be set to FALSE!!! */
  2294. {
  2295.     char *pattern;            /* unparsed pattern */
  2296.     register char cmdchr = *patbuf;    /* what kind of search? */
  2297.     register char *s;
  2298.     bool backward = cmdchr == '?' || cmdchr == Ctl('p');
  2299.                     /* direction of search */
  2300.     COMPEX *compex;            /* which compiled expression */
  2301.     char *cmdlst = Nullch;        /* list of commands to do */
  2302.     int normal_return = SRCH_NOTFOUND;    /* assume no commands */
  2303.     bool saltaway = FALSE;        /* store in KILL file? */
  2304.     char howmuch;            /* search just the subjects */
  2305.     bool doread;            /* search read articles? */
  2306.     bool foldcase = TRUE;        /* fold upper and lower case? */
  2307.  
  2308.     int_count = 0;
  2309.     if (cmdchr == '/' || cmdchr == '?') {    /* normal search? */
  2310.     if (get_cmd && buf == patbuf)
  2311.         if (!finish_command(FALSE))    /* get rest of command */
  2312.         return SRCH_ABORT;
  2313.     compex = &art_compex;
  2314.     if (patbuf[1]) {
  2315.         howmuch = 0;
  2316.         doread = FALSE;
  2317.     }
  2318.     else {
  2319.         howmuch = art_howmuch;
  2320.         doread = art_doread;
  2321.     }
  2322.     s = cpytill(buf,patbuf+1,cmdchr);/* ok to cpy buf+1 to buf */
  2323.     pattern = buf;
  2324.     if (*pattern) {
  2325.         if (*lastpat)
  2326.         free(lastpat);
  2327.         lastpat = savestr(pattern);
  2328.     }
  2329.     if (*s) {            /* modifiers or commands? */
  2330.         for (s++; *s && index("Kharc",*s); s++) {
  2331.         if (*s == 'h')        /* scan header */
  2332.             howmuch = 1;
  2333.         else if (*s == 'a')    /* scan article */
  2334.             howmuch = 2;
  2335.         else if (*s == 'r')    /* scan read articles */
  2336.             doread = TRUE;
  2337.         else if (*s == 'K')    /* put into KILL file */
  2338.             saltaway = TRUE;
  2339.         else if (*s == 'c')    /* make search case sensitive */
  2340.             foldcase = FALSE;
  2341.         }
  2342.     }
  2343.     while (isspace(*s) || *s == ':')
  2344.         s++;
  2345.     if (*s) {
  2346.         if (*s == 'm' || *s == 'M')
  2347.         doread = TRUE;
  2348.         if (*s == 'k')        /* grandfather clause */
  2349.         *s = 'j';
  2350.         cmdlst = savestr(s);
  2351.         normal_return = SRCH_DONE;
  2352.     }
  2353.     art_howmuch = howmuch;
  2354.     art_doread = doread;
  2355.     if (srchahead)
  2356.         srchahead = -1;
  2357.     }
  2358.     else {
  2359.     register char *h;
  2360.  
  2361.     howmuch = 0;            /* just search subjects */
  2362.     doread = (cmdchr == Ctl('p'));
  2363.     if (cmdchr == Ctl('n'))
  2364.         normal_return = SRCH_SUBJDONE;
  2365.     compex = &sub_compex;
  2366.     pattern = patbuf+1;
  2367.     strcpy(pattern,": *");
  2368.     h = pattern + strlen(pattern);
  2369.     interp(h,patbufsiz - (h-patbuf),"%s");    /* fetch current subject */
  2370.     if (cmdchr == 'K') {
  2371.         saltaway = TRUE;
  2372.         cmdchr = 'k';
  2373.     }
  2374.     if (cmdchr == 'k') {
  2375.         normal_return = SRCH_DONE;
  2376.         cmdlst = savestr("j");
  2377.         mark_as_read(art);        /* this article has this subject */
  2378.         if (!*h) {
  2379. #ifdef VERBOSE
  2380.         IF(verbose)
  2381.             fputs("\nCannot delete null subject.\n",stdout) FLUSH;
  2382.         ELSE
  2383. #endif
  2384. #ifdef TERSE
  2385.             fputs("\nNull subject.\n",stdout) FLUSH;
  2386. #endif
  2387.         return SRCH_ABORT;
  2388.         }
  2389. #ifdef VERBOSE
  2390.         else if (verbose)
  2391.         printf("\nMarking subject \"%s\" as read.\n",h) FLUSH;
  2392. #endif
  2393.     }
  2394.     else if (!srchahead)
  2395.         srchahead = -1;
  2396.     h[24] = '\0';        /* compensate for notesfiles */
  2397.     while (*h) {
  2398.         if (index("/\\[.^*$'\"",*h) != Nullch)
  2399.         *h++ = '.';
  2400.         else
  2401.         h++;
  2402.     }
  2403. #ifdef DEBUGGING
  2404.     if (debug) {
  2405.         printf("\npattern = %s\n",pattern) FLUSH;
  2406.     }
  2407. #endif
  2408.     }
  2409.     if ((s = compile(compex,pattern,TRUE,foldcase)) != Nullch) {
  2410.                     /* compile regular expression */
  2411.     printf("\n%s\n",s) FLUSH;
  2412.     return SRCH_ABORT;
  2413.     }
  2414. #ifdef KILLFILES
  2415.     if (saltaway) {
  2416.     char saltbuf[LBUFLEN];
  2417.  
  2418.     s = saltbuf;
  2419.     sprintf(s,"/%s/",pattern);
  2420.     s += strlen(s);
  2421.     if (doread)
  2422.         *s++ = 'r';
  2423.     if (howmuch==1)
  2424.         *s++ = 'h';
  2425.     else if (howmuch==2)
  2426.         *s++ = 'a';
  2427.     *s++ = ':';
  2428.     if (!cmdlst)
  2429.         cmdlst = savestr("j");
  2430.     safecpy(s,cmdlst,LBUFLEN-(s-saltbuf));
  2431.     kf_append(saltbuf);
  2432.     }
  2433. #endif
  2434.     if (cmdlst && index(cmdlst,'='))
  2435.     normal_return = SRCH_ERROR;    /* listing subjects is an error? */
  2436.     if (get_cmd) {
  2437.     fputs("\nSearching...\n",stdout) FLUSH;
  2438.                     /* give them something to read */
  2439.     }
  2440.     if (backward) {
  2441.     if (cmdlst && art < lastart)
  2442.         art++;            /* include current article */
  2443.     if (doread)
  2444.         check_first(absfirst);
  2445.     }
  2446.     else {
  2447.     if (art > lastart)
  2448.         art = (doread ? absfirst : firstart) - 1;
  2449.     else if (cmdlst && art > absfirst)
  2450.         art--;            /* include current article */
  2451.     check_first(art);
  2452.     }
  2453.     if (srchahead > 0) {
  2454.     if (!backward)
  2455.         art = srchahead - 1;
  2456.     srchahead = -1;
  2457.     }
  2458.     assert(!cmdlst || *cmdlst);
  2459.     for (;;) {
  2460.     if (int_count) {
  2461.         int_count = 0;
  2462.         if (cmdlst)
  2463.         free(cmdlst);
  2464.         return SRCH_INTR;
  2465.     }
  2466.     if (backward ?
  2467.         (--art < absfirst || (!doread && art < firstart)) :
  2468.         (++art > lastart)
  2469.       ) {            /* out of articles? */
  2470.         if (cmdlst)
  2471.         free(cmdlst);
  2472.         return normal_return;
  2473.     }
  2474.     /*NOSTRICT*/
  2475.     if (doread || !was_read(art)) {
  2476.         if (wanted(compex,art,howmuch)) {
  2477.                     /* does the shoe fit? */
  2478.         if (cmdlst) {
  2479.             if (perform(cmdlst,TRUE)) {
  2480.             if (cmdlst)
  2481.                 free(cmdlst);
  2482.             return SRCH_INTR;
  2483.             }
  2484.         }
  2485.         else {
  2486.             if (cmdlst)
  2487.             free(cmdlst);
  2488.             return SRCH_FOUND;
  2489.         }
  2490.         }
  2491.         else if (!cmdlst && ! (art%50)) {
  2492.         printf("...%ld",(long)art);
  2493.         fflush(stdout);
  2494.         }
  2495.     }
  2496.     }
  2497. }
  2498.  
  2499. /* determine if article fits pattern */
  2500. /* returns TRUE if it exists and fits pattern, FALSE otherwise */
  2501.  
  2502. bool
  2503. wanted(compex, artnum, scope)
  2504. COMPEX *compex;
  2505. ART_NUM artnum;
  2506. char scope;
  2507. {
  2508.     if (!scope) {
  2509.     char subj_buf[266];
  2510.     
  2511.     strcpy(subj_buf, "Subject: ");
  2512.     strncpy(subj_buf+9,fetchsubj(artnum,FALSE,FALSE),256);
  2513. #ifdef DEBUGGING
  2514.     if (debug & DEB_SEARCH_AHEAD)
  2515.         printf("%s\n",subj_buf) FLUSH;
  2516. #endif
  2517.     return execute(compex,subj_buf) != Nullch;
  2518.     }
  2519. #ifdef CACHESUBJ
  2520.     else
  2521.     fetchsubj(artnum,FALSE,FALSE);/* might as well get subject handy */
  2522. #endif
  2523.     
  2524.     if (artopen(artnum) == Nullfp)    /* ensure that article is open */
  2525.     return FALSE;            /* if not, return NO MATCH */
  2526.     scope--;
  2527.     while (fgets(buf,LBUFLEN,artfp) != Nullch) {
  2528.                     /* for each line of article */
  2529.     if (!scope && index(buf,':') == Nullch && *buf != ' ' && *buf != '\t')
  2530.                     /* if headers only and out of header */
  2531.         return FALSE;        /* say no go */
  2532.     if (execute(compex,buf) != Nullch) {
  2533.                     /* does pattern matcher match? */
  2534.         return TRUE;        /* say Eureka */
  2535.     }
  2536.     }
  2537.     return FALSE;            /* out of article, so no match */
  2538. }
  2539. #endif
  2540.  
  2541. !STUFFY!FUNK!
  2542. echo Extracting inews.c.1.pat
  2543. cat >inews.c.1.pat <<'!STUFFY!FUNK!'
  2544. *** inews.c.1.std    Tue Oct  2 16:09:59 1984
  2545. --- inews.c.1    Fri Sep 21 14:50:49 1984
  2546. ***************
  2547. *** 483,488
  2548.   /*
  2549.    *    Link ARTICLE into dir for ngname and update active file.
  2550.    */
  2551.   localize(ngname)
  2552.   char    *ngname;
  2553.   {
  2554.  
  2555. --- 483,491 -----
  2556.   /*
  2557.    *    Link ARTICLE into dir for ngname and update active file.
  2558.    */
  2559. + #ifdef DOXREFS
  2560. + long
  2561. + #endif
  2562.   localize(ngname)
  2563.   char    *ngname;
  2564.   {
  2565. ***************
  2566. *** 515,520
  2567.       }
  2568.       for (;;) {
  2569.           sprintf(bfr, "%s/%ld", dirname(ngname), ngsize+1);
  2570.           if (link(ARTICLE, bfr) == 0) break;
  2571.           e = errno;    /* keep log from clobbering it */
  2572.           fprintf(stderr, "Cannot install article as %s\n", bfr);
  2573.  
  2574. --- 518,528 -----
  2575.       }
  2576.       for (;;) {
  2577.           sprintf(bfr, "%s/%ld", dirname(ngname), ngsize+1);
  2578. + #ifdef LINKART
  2579. +         if (mylink(ARTICLE, bfr) == 0) break;
  2580. +                 /* on first file inits ARTICLE, on subsequent */
  2581. +                 /* files "links" to first article */
  2582. + #else
  2583.           if (link(ARTICLE, bfr) == 0) break;
  2584.   #endif
  2585.           e = errno;    /* keep log from clobbering it */
  2586. ***************
  2587. *** 516,521
  2588.       for (;;) {
  2589.           sprintf(bfr, "%s/%ld", dirname(ngname), ngsize+1);
  2590.           if (link(ARTICLE, bfr) == 0) break;
  2591.           e = errno;    /* keep log from clobbering it */
  2592.           fprintf(stderr, "Cannot install article as %s\n", bfr);
  2593.           log("Cannot install article as %s", bfr);
  2594.  
  2595. --- 524,530 -----
  2596.                   /* files "links" to first article */
  2597.   #else
  2598.           if (link(ARTICLE, bfr) == 0) break;
  2599. + #endif
  2600.           e = errno;    /* keep log from clobbering it */
  2601.           fprintf(stderr, "Cannot install article as %s\n", bfr);
  2602.           log("Cannot install article as %s", bfr);
  2603. ***************
  2604. *** 542,547
  2605.           strcpy(firstbufname, bfr);
  2606.       sprintf(bfr, "%s/%ld ", ngname, ngsize+1);
  2607.       addhist(bfr);
  2608.       return TRUE;
  2609.   }
  2610.   
  2611.  
  2612. --- 551,557 -----
  2613.           strcpy(firstbufname, bfr);
  2614.       sprintf(bfr, "%s/%ld ", ngname, ngsize+1);
  2615.       addhist(bfr);
  2616. + #ifndef DOXREFS
  2617.       return TRUE;
  2618.   #else DOXREFS
  2619.       return ngsize+1;
  2620. ***************
  2621. *** 543,548
  2622.       sprintf(bfr, "%s/%ld ", ngname, ngsize+1);
  2623.       addhist(bfr);
  2624.       return TRUE;
  2625.   }
  2626.   
  2627.   /*
  2628.  
  2629. --- 553,561 -----
  2630.       addhist(bfr);
  2631.   #ifndef DOXREFS
  2632.       return TRUE;
  2633. + #else DOXREFS
  2634. +     return ngsize+1;
  2635. + #endif DOXREFS
  2636.   }
  2637.   
  2638.   /*
  2639. ***************
  2640. *** 553,558
  2641.       register char *ptr;
  2642.       register FILE *tfp;
  2643.       int badgroup = 0, goodgroup = 0;
  2644.   
  2645.       /* Fill up the rest of header. */
  2646.       if (mode != PROC) {
  2647.  
  2648. --- 566,574 -----
  2649.       register char *ptr;
  2650.       register FILE *tfp;
  2651.       int badgroup = 0, goodgroup = 0;
  2652. + #ifdef DOXREFS
  2653. +     register char *nextxref = header.xref; 
  2654. + #endif DOXREFS
  2655.   
  2656.       /* Fill up the rest of header. */
  2657.       if (mode != PROC) {
  2658. ***************
  2659. *** 565,570
  2660.       if (mode==PROC)
  2661.           log("from %s relay %s", header.from, header.relayversion);
  2662.   
  2663.       /* Write article to temp file. */
  2664.       tfp = xfopen(mktemp(ARTICLE), "w");
  2665.       lhwrite(&header, tfp);
  2666.  
  2667. --- 581,593 -----
  2668.       if (mode==PROC)
  2669.           log("from %s relay %s", header.from, header.relayversion);
  2670.   
  2671. + #ifdef LINKART
  2672. +     *ARTICLE = '\0';    /* tell mylink() to snarf the name */
  2673. + #else !LINKART
  2674. + #ifdef DOXREFS
  2675. +     /* Open temp file for article, but link before writing */
  2676. +     tfp = xfopen(mktemp(ARTICLE), "w");
  2677. + #else DOXREFS
  2678.       /* Write article to temp file. */
  2679.       tfp = xfopen(mktemp(ARTICLE), "w");
  2680.       lhwrite(&header, tfp);
  2681. ***************
  2682. *** 577,582
  2683.       }
  2684.       fclose(tfp);
  2685.       fclose(infp);
  2686.   
  2687.       if (is_ctl) {
  2688.           control(&header);
  2689.  
  2690. --- 600,607 -----
  2691.       }
  2692.       fclose(tfp);
  2693.       fclose(infp);
  2694. + #endif DOXREFS
  2695. + #endif LINKART
  2696.   
  2697.       if (is_ctl) {
  2698.           control(&header);
  2699. ***************
  2700. *** 593,598
  2701.               }
  2702.           }
  2703.       } else {
  2704.           for (ptr = nbuf; *ptr;) {
  2705.               if (*ptr == '-') {
  2706.                   while (*ptr++)
  2707.  
  2708. --- 618,627 -----
  2709.               }
  2710.           }
  2711.       } else {
  2712. + #ifdef DOXREFS
  2713. +         sprintf(nextxref,"%s ",SYSNAME);
  2714. +         nextxref += strlen(nextxref);
  2715. + #endif
  2716.           for (ptr = nbuf; *ptr;) {
  2717.               if (*ptr == '-') {
  2718.                   while (*ptr++)
  2719. ***************
  2720. *** 610,615
  2721.               }
  2722.               else
  2723.                   goodgroup++;
  2724.               if (*nbuf)
  2725.                   localize(ptr);
  2726.               while (*ptr++)
  2727.  
  2728. --- 639,645 -----
  2729.               }
  2730.               else
  2731.                   goodgroup++;
  2732. + #ifndef DOXREFS
  2733.               if (*nbuf)
  2734.                   localize(ptr);
  2735.   #else DOXREFS
  2736. ***************
  2737. *** 612,617
  2738.                   goodgroup++;
  2739.               if (*nbuf)
  2740.                   localize(ptr);
  2741.               while (*ptr++)
  2742.                   ;
  2743.           }
  2744.  
  2745. --- 642,653 -----
  2746.   #ifndef DOXREFS
  2747.               if (*nbuf)
  2748.                   localize(ptr);
  2749. + #else DOXREFS
  2750. +             if (*nbuf)
  2751. +                 sprintf(nextxref,"%s:%ld ",ptr,localize(ptr));
  2752. +             while (*nextxref)
  2753. +                 nextxref++;
  2754. + #endif DOXREFS
  2755.               while (*ptr++)
  2756.                   ;
  2757.           }
  2758. ***************
  2759. *** 616,621
  2760.                   ;
  2761.           }
  2762.       }
  2763.   
  2764.   #ifdef NOFORWARD
  2765.       if (*nbuf)
  2766.  
  2767. --- 652,663 -----
  2768.                   ;
  2769.           }
  2770.       }
  2771. + #ifdef DOXREFS
  2772. +     if (goodgroup < 2)
  2773. +         header.xref[0] = '\0';
  2774. +     else
  2775. +         *(nextxref-1) = '\0';
  2776. + #endif
  2777.   
  2778.   #ifdef LINKART
  2779.       tfp = xfopen(ARTICLE,"w");    /* open 1st article localized */
  2780. ***************
  2781. *** 617,622
  2782.           }
  2783.       }
  2784.   
  2785.   #ifdef NOFORWARD
  2786.       if (*nbuf)
  2787.   #endif
  2788.  
  2789. --- 659,683 -----
  2790.           *(nextxref-1) = '\0';
  2791.   #endif
  2792.   
  2793. + #ifdef LINKART
  2794. +     tfp = xfopen(ARTICLE,"w");    /* open 1st article localized */
  2795. + #endif
  2796. + 
  2797. + #if defined(LINKART) || defined(DOXREFS)
  2798. +     /* Now that xref is constructed, write article to temp file. */
  2799. +     /* (We ought to detect no room at this point and clean up.) */ 
  2800. +     lhwrite(&header, tfp);
  2801. +     while (fgets(bfr, BUFLEN, infp) != NULL) {
  2802. +         /*
  2803. +         if (!strncmp(bfr, "From ", 5))
  2804. +             putc('>', tfp);
  2805. +         */
  2806. +         fputs(bfr, tfp);
  2807. +     }
  2808. +     fclose(tfp);
  2809. +     fclose(infp);
  2810. + #endif LINKART || DOXREFS
  2811. + 
  2812.   #ifdef NOFORWARD
  2813.       if (*nbuf)
  2814.   #endif
  2815. ***************
  2816. *** 861,863
  2817.           mclose(fd);
  2818.       }
  2819.   }
  2820.  
  2821. --- 922,946 -----
  2822.           mclose(fd);
  2823.       }
  2824.   }
  2825. + 
  2826. + #ifdef LINKART
  2827. + mylink(tmpart,linkfrom)
  2828. + char *tmpart, *linkfrom;
  2829. + {
  2830. +     struct stat statbuf;
  2831. + 
  2832. +     if (stat(linkfrom,&statbuf)==0)
  2833. +     return -1;
  2834. +     if (!*tmpart)
  2835. +     strcpy(tmpart,linkfrom);
  2836. +     else {
  2837. +     FILE *linkfp = fopen(linkfrom,"w");
  2838. + 
  2839. +     if (!linkfp)
  2840. +         return -1;
  2841. +     fprintf(linkfp,"%s\n",tmpart);
  2842. +     fclose(linkfp);
  2843. +     }
  2844. +     return 0;
  2845. + }
  2846. + #endif LINKART
  2847. !STUFFY!FUNK!
  2848. echo ""
  2849. echo "End of kit 6 (of 9)"
  2850. cat /dev/null >kit6isdone
  2851. config=true
  2852. for iskit in 1 2 3 4 5 6 7 8 9; do
  2853.     if test -f kit${iskit}isdone; then
  2854.     echo "You have run kit ${iskit}."
  2855.     else
  2856.     echo "You still need to run kit ${iskit}."
  2857.     config=false
  2858.     fi
  2859. done
  2860. case $config in
  2861.     true)
  2862.     echo "You have run all your kits.  Please read README and then type Configure."
  2863.     chmod 755 Configure
  2864.     ;;
  2865. esac
  2866. : I do not append .signature, but someone might mail this.
  2867. exit
  2868.  
  2869.