home *** CD-ROM | disk | FTP | other *** search
/ Usenet 1994 January / usenetsourcesnewsgroupsinfomagicjanuary1994.iso / sources / unix / volume1 / rn / part05 < prev    next >
Encoding:
Internet Message Format  |  1986-11-30  |  61.7 KB
  1. Date: Tue, 7 May 85 13:53:58 pdt
  2. From: allegra!sdcrdcf!RDCF.SDC.UUCP!lwall (Larry Wall)
  3. Newsgroups: mod.sources
  4. Subject: rn version 4.3 (kit 5 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 5 (of 9).  If kit 5 is complete, the line"
  14. echo '"'"End of kit 5 (of 9)"'" will echo at the end.'
  15. echo ""
  16. export PATH || (echo "You didn't use sh, you clunch." ; kill $$)
  17. echo Extracting term.c
  18. cat >term.c <<'!STUFFY!FUNK!'
  19. /* $Header: term.c,v 4.3 85/05/01 11:51:10 lwall Exp $
  20.  *
  21.  * $Log:    term.c,v $
  22.  * Revision 4.3  85/05/01  11:51:10  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 "final.h"
  31. #include "help.h"
  32. #include "cheat.h"
  33. #include "intrp.h"
  34. #include "INTERN.h"
  35. #include "term.h"
  36.  
  37. char ERASECH;        /* rubout character */
  38. char KILLCH;        /* line delete character */
  39. char tcarea[TCSIZE];    /* area for "compiled" termcap strings */
  40.  
  41. /* guarantee capability pointer != Nullch */
  42. /* (I believe terminfo will ignore the &tmpaddr argument.) */
  43.  
  44. #define Tgetstr(key) ((tmpstr = tgetstr(key,&tmpaddr)) ? tmpstr : nullstr)
  45.  
  46. #ifdef PUSHBACK
  47. struct keymap {
  48.     char km_type[128];
  49.     union km_union {
  50.     struct keymap *km_km;
  51.     char *km_str;
  52.     } km_ptr[128];
  53. };
  54.  
  55. #define KM_NOTHIN 0
  56. #define KM_STRING 1
  57. #define KM_KEYMAP 2
  58. #define KM_BOGUS 3
  59.  
  60. #define KM_TMASK 3
  61. #define KM_GSHIFT 4
  62. #define KM_GMASK 7
  63.  
  64. typedef struct keymap KEYMAP;
  65.  
  66. KEYMAP *topmap INIT(Null(KEYMAP*));
  67.  
  68. void mac_init();
  69. KEYMAP *newkeymap();
  70. void show_keymap();
  71. void pushstring();
  72. #endif
  73.  
  74. /* terminal initialization */
  75.  
  76. void
  77. term_init()
  78. {
  79.     savetty();                /* remember current tty state */
  80.  
  81. #ifdef TERMIO
  82.     ospeed = _tty.c_cflag & CBAUD;    /* for tputs() */
  83.     ERASECH = _tty.c_cc[VERASE];    /* for finish_command() */
  84.     KILLCH = _tty.c_cc[VKILL];        /* for finish_command() */
  85. #else
  86.     ospeed = _tty.sg_ospeed;        /* for tputs() */
  87.     ERASECH = _tty.sg_erase;        /* for finish_command() */
  88.     KILLCH = _tty.sg_kill;        /* for finish_command() */
  89. #endif
  90.  
  91.     /* The following could be a table but I can't be sure that there isn't */
  92.     /* some degree of sparsity out there in the world. */
  93.  
  94.     switch (ospeed) {            /* 1 second of padding */
  95. #ifdef BEXTA
  96.         case BEXTA:  just_a_sec = 1920; break;
  97. #else
  98. #ifdef B19200
  99.         case B19200: just_a_sec = 1920; break;
  100. #endif
  101. #endif
  102.         case B9600:  just_a_sec =  960; break;
  103.         case B4800:  just_a_sec =  480; break;
  104.         case B2400:  just_a_sec =  240; break;
  105.         case B1800:  just_a_sec =  180; break;
  106.         case B1200:  just_a_sec =  120; break;
  107.         case B600:   just_a_sec =   60; break;
  108.     case B300:   just_a_sec =   30; break;
  109.     /* do I really have to type the rest of this??? */
  110.         case B200:   just_a_sec =   20; break;
  111.         case B150:   just_a_sec =   15; break;
  112.         case B134:   just_a_sec =   13; break;
  113.         case B110:   just_a_sec =   11; break;
  114.         case B75:    just_a_sec =    8; break;
  115.         case B50:    just_a_sec =    5; break;
  116.         default:     just_a_sec =  960; break;
  117.                     /* if we are running detached I */
  118.     }                    /*  don't want to know about it! */
  119. }
  120.  
  121. /* set terminal characteristics */
  122.  
  123. void
  124. term_set(tcbuf)
  125. char *tcbuf;        /* temp area for "uncompiled" termcap entry */
  126. {
  127.     char *tmpaddr;            /* must not be register */
  128.     register char *tmpstr;
  129.     char *tgetstr();
  130.     char *s;
  131.     int status;
  132.  
  133. #ifdef PENDING
  134. #ifndef FIONREAD
  135.     /* do no delay reads on something that always gets closed on exit */
  136.  
  137.     devtty = open("/dev/tty",0);
  138.     if (devtty < 0) {
  139.     printf(cantopen,"/dev/tty") FLUSH;
  140.     finalize(1);
  141.     }
  142.     fcntl(devtty,F_SETFL,O_NDELAY);
  143. #endif
  144. #endif
  145.     
  146.     /* get all that good termcap stuff */
  147.  
  148. #ifdef HAVETERMLIB
  149.     status = tgetent(tcbuf,getenv("TERM"));    /* get termcap entry */
  150.     if (status < 1) {
  151. #ifdef VERBOSE
  152.     printf("No termcap %s found.\n", status ? "file" : "entry") FLUSH;
  153. #else
  154.     fputs("Termcap botch\n",stdout) FLUSH
  155. #endif
  156.     finalize(1);
  157.     }
  158.     tmpaddr = tcarea;            /* set up strange tgetstr pointer */
  159.     s = Tgetstr("pc");            /* get pad character */
  160.     PC = *s;                /* get it where tputs wants it */
  161.     if (!tgetflag("bs"))        /* is backspace not used? */
  162.     BC = Tgetstr("bc");        /* find out what is */
  163.     else
  164.     BC = "\b";            /* make a backspace handy */
  165.     UP = Tgetstr("up");            /* move up a line */
  166.     if (!*UP)                /* no UP string? */
  167.     marking = 0;            /* disable any marking */
  168.     if (muck_up_clear)            /* this is for weird HPs */
  169.     CL = "\n\n\n\n";
  170.     else
  171.     CL = Tgetstr("cl");        /* get clear string */
  172.     CE = Tgetstr("ce");            /* clear to end of line string */
  173. #ifdef CLEAREOL
  174.     CM = Tgetstr("cm");            /* cursor motion - PWP */
  175.     HO = Tgetstr("ho");            /* home cursor if no CM - PWP */
  176.     CD = Tgetstr("cd");            /* clear to end of display - PWP */
  177.     if (!*CE || !*CD || (!*CM && !*HO))    /* can we CE, CD, and home? */
  178.     can_home_clear = FALSE;        /*  no, so disable use of clear eol */
  179. #endif CLEAREOL
  180.     SO = Tgetstr("so");            /* begin standout */
  181.     SE = Tgetstr("se");            /* end standout */
  182.     if ((SG = tgetnum("sg"))<0)
  183.     SG = 0;                /* blanks left by SG, SE */
  184.     US = Tgetstr("us");            /* start underline */
  185.     UE = Tgetstr("ue");            /* end underline */
  186.     if ((UG = tgetnum("ug"))<0)
  187.     UG = 0;                /* blanks left by US, UE */
  188.     if (*US)
  189.     UC = nullstr;            /* UC must not be NULL */
  190.     else
  191.     UC = Tgetstr("uc");        /* underline a character */
  192.     if (!*US && !*UC) {            /* no underline mode? */
  193.     US = SO;            /* substitute standout mode */
  194.     UE = SE;
  195.     UG = SG;
  196.     }
  197.     LINES = tgetnum("li");        /* lines per page */
  198.     COLS = tgetnum("co");        /* columns on page */
  199.     AM = tgetflag("am");        /* terminal wraps automatically? */
  200.     XN = tgetflag("xn");        /* then eats next newline? */
  201.     VB = Tgetstr("vb");
  202.     if (!*VB)
  203.     VB = "\007";
  204.     CR = Tgetstr("cr");
  205.     if (!*CR) {
  206.     if (tgetflag("nc") && *UP) {
  207.         CR = safemalloc((MEM_SIZE)strlen(UP)+2);
  208.         sprintf(CR,"%s\r",UP);
  209.     }
  210.     else
  211.         CR = "\r";
  212.     }
  213. #else
  214.     ??????                /* Roll your own... */
  215. #endif
  216.     if (LINES > 0) {            /* is this a crt? */
  217.     if (!initlines)            /* no -i? */
  218.         if (ospeed >= B9600)    /* whole page at >= 9600 baud */
  219.         initlines = LINES;
  220.         else if (ospeed >= B4800)    /* 16 lines at 4800 */
  221.         initlines = 16;
  222.         else            /* otherwise just header */
  223.         initlines = 8;
  224.     }
  225.     else {                /* not a crt */
  226.     LINES = 30000;            /* so don't page */
  227.     CL = "\n\n";            /* put a couple of lines between */
  228.     if (!initlines)            /* make initlines reasonable */
  229.         initlines = 8;
  230.     }
  231.     if (COLS <= 0)
  232.     COLS = 80;
  233.     noecho();                /* turn off echo */
  234.     crmode();                /* enter cbreak mode */
  235.  
  236. #ifdef PUSHBACK
  237.     mac_init(tcbuf);
  238. #endif
  239. }
  240.  
  241. #ifdef PUSHBACK
  242. void
  243. mac_init(tcbuf)
  244. char *tcbuf;
  245. {
  246.     char tmpbuf[1024];
  247.  
  248.     tmpfp = fopen(filexp(getval("RNMACRO",RNMACRO)),"r");
  249.     if (tmpfp != Nullfp) {
  250.     while (fgets(tcbuf,1024,tmpfp) != Nullch) {
  251.         mac_line(tcbuf,tmpbuf,(sizeof tmpbuf));
  252.     }
  253.     fclose(tmpfp);
  254.     }
  255. }
  256.  
  257. void
  258. mac_line(line,tmpbuf,tbsize)
  259. char *line;
  260. char *tmpbuf;
  261. int tbsize;
  262. {
  263.     register char *s, *m;
  264.     register KEYMAP *curmap;
  265.     register int ch;
  266.     register int garbage = 0;
  267.     static char override[] = "\nkeymap overrides string\n";
  268.  
  269.     if (topmap == Null(KEYMAP*))
  270.     topmap = newkeymap();
  271.     if (*line == '#' || *line == '\n')
  272.     return;
  273.     if (line[ch = strlen(line)-1] == '\n')
  274.     line[ch] = '\0';
  275.     m = dointerp(tmpbuf,tbsize,line," \t");
  276.     if (!*m)
  277.     return;
  278.     while (*m == ' ' || *m == '\t') m++;
  279.     for (s=tmpbuf,curmap=topmap; *s; s++) {
  280.     ch = *s & 0177;
  281.     if (s[1] == '+' && isdigit(s[2])) {
  282.         s += 2;
  283.         garbage = (*s & KM_GMASK) << KM_GSHIFT;
  284.     }
  285.     else
  286.         garbage = 0;
  287.     if (s[1]) {
  288.         if ((curmap->km_type[ch] & KM_TMASK) == KM_STRING) {
  289.         puts(override,stdout) FLUSH;
  290.         free(curmap->km_ptr[ch].km_str);
  291.         curmap->km_ptr[ch].km_str = Nullch;
  292.         }
  293.         curmap->km_type[ch] = KM_KEYMAP + garbage;
  294.         if (curmap->km_ptr[ch].km_km == Null(KEYMAP*))
  295.         curmap->km_ptr[ch].km_km = newkeymap();
  296.         curmap = curmap->km_ptr[ch].km_km;
  297.     }
  298.     else {
  299.         if ((curmap->km_type[ch] & KM_TMASK) == KM_KEYMAP)
  300.         puts(override,stdout) FLUSH;
  301.         else {
  302.         curmap->km_type[ch] = KM_STRING + garbage;
  303.         curmap->km_ptr[ch].km_str = savestr(m);
  304.         }
  305.     }
  306.     }
  307. }
  308.  
  309. KEYMAP*
  310. newkeymap()
  311. {
  312.     register int i;
  313.     register KEYMAP *map;
  314.  
  315. #ifndef lint
  316.     map = (KEYMAP*)safemalloc(sizeof(KEYMAP));
  317. #else
  318.     map = Null(KEYMAP*);
  319. #endif lint
  320.     for (i=127; i>=0; --i) {
  321.     map->km_ptr[i].km_km = Null(KEYMAP*);
  322.     map->km_type[i] = KM_NOTHIN;
  323.     }
  324.     return map;
  325. }
  326.  
  327. void
  328. show_macros()
  329. {
  330.     char prebuf[64];
  331.  
  332.     if (topmap != Null(KEYMAP*)) {
  333.     print_lines("Macros:\n",STANDOUT);
  334.     *prebuf = '\0';
  335.     show_keymap(topmap,prebuf);
  336.     }
  337. }
  338.  
  339. void
  340. show_keymap(curmap,prefix)
  341. register KEYMAP *curmap;
  342. char *prefix;
  343. {
  344.     register int i;
  345.     register char *next = prefix + strlen(prefix);
  346.     register int kt;
  347.  
  348.     for (i=0; i<128; i++) {
  349.     if (kt = curmap->km_type[i]) {
  350.         if (i < ' ')
  351.         sprintf(next,"^%c",i+64);
  352.         else if (i == ' ')
  353.         strcpy(next,"\\040");
  354.         else if (i == 127)
  355.         strcpy(next,"^?");
  356.         else
  357.         sprintf(next,"%c",i);
  358.         if ((kt >> KM_GSHIFT) & KM_GMASK) {
  359.         sprintf(cmd_buf,"+%d", (kt >> KM_GSHIFT) & KM_GMASK);
  360.         strcat(next,cmd_buf);
  361.         }
  362.         switch (kt & KM_TMASK) {
  363.         case KM_NOTHIN:
  364.         sprintf(cmd_buf,"%s    %c\n",prefix,i);
  365.         print_lines(cmd_buf,NOMARKING);
  366.         break;
  367.         case KM_KEYMAP:
  368.         show_keymap(curmap->km_ptr[(char)i].km_km, prefix);
  369.         break;
  370.         case KM_STRING:
  371.         sprintf(cmd_buf,"%s    %s\n",prefix,curmap->km_ptr[i].km_str);
  372.         print_lines(cmd_buf,NOMARKING);
  373.         break;
  374.         case KM_BOGUS:
  375.         sprintf(cmd_buf,"%s    BOGUS\n",prefix);
  376.         print_lines(cmd_buf,STANDOUT);
  377.         break;
  378.         }
  379.     }
  380.     }
  381. }
  382.  
  383. #endif
  384.  
  385. /* routine to pass to tputs */
  386.  
  387. char
  388. putchr(ch)
  389. register char ch;
  390. {
  391.     putchar(ch);
  392. #ifdef lint
  393.     ch = Null(char);
  394.     ch = ch;
  395. #endif
  396. }
  397.  
  398. /* input the 2nd and succeeding characters of a multi-character command */
  399. /* returns TRUE if command finished, FALSE if they rubbed out first character */
  400.  
  401. bool
  402. finish_command(donewline)
  403. int donewline;
  404. {
  405.     register char *s;
  406.     register bool quoteone = FALSE;
  407.  
  408.     s = buf;
  409.     if (s[1] != FINISHCMD)        /* someone faking up a command? */
  410.     return TRUE;
  411.     do {
  412.       top:
  413.     if (*s < ' ') {
  414.         putchar('^');
  415.         putchar(*s | 64);
  416.     }
  417.     else if (*s == '\177') {
  418.         putchar('^');
  419.         putchar('?');
  420.     }
  421.     else
  422.         putchar(*s);        /* echo previous character */
  423.     s++;
  424. re_read:
  425.     fflush(stdout);
  426.     getcmd(s);
  427.     if (quoteone) {
  428.         quoteone = FALSE;
  429.         continue;
  430.     }
  431.     if (errno || *s == Ctl('l')) {
  432.         *s = Ctl('r');        /* force rewrite on CONT */
  433.     }
  434.     if (*s == '\033') {        /* substitution desired? */
  435. #ifdef ESCSUBS
  436.         char tmpbuf[4], *cpybuf;
  437.  
  438.         tmpbuf[0] = '%';
  439.         read_tty(&tmpbuf[1],1);
  440. #ifdef RAWONLY
  441.         tmpbuf[1] &= 0177;
  442. #endif
  443.         tmpbuf[2] = '\0';
  444.         if (tmpbuf[1] == 'h') {
  445.         (void) help_subs();
  446.         *s = '\0';
  447.         reprint();
  448.         goto re_read;
  449.         }
  450.         else if (tmpbuf[1] == '\033') {
  451.         *s = '\0';
  452.         cpybuf = savestr(buf);
  453.         interp(buf, (sizeof buf), cpybuf);
  454.         free(cpybuf);
  455.         s = buf + strlen(buf);
  456.         reprint();
  457.         goto re_read;
  458.         }
  459.         else {
  460.         interp(s,(sizeof buf) - (s-buf),tmpbuf);
  461.         fputs(s,stdout);
  462.         s += strlen(s);
  463.         }
  464.         goto re_read;
  465. #else
  466.         notincl("^[");
  467.         *s = '\0';
  468.         reprint();
  469.         goto re_read;
  470. #endif
  471.     }
  472.     else if (*s == ERASECH) {    /* they want to rubout a char? */
  473.         rubout();
  474.         s--;            /* discount the char rubbed out */
  475.         if (*s < ' ' || *s == '\177')
  476.         rubout();
  477.         if (s == buf) {        /* entire string gone? */
  478.         fflush(stdout);        /* return to single char command mode */
  479.         return FALSE;
  480.         }
  481.         else
  482.         goto re_read;
  483.     }
  484.     else if (*s == KILLCH) {    /* wipe out the whole line? */
  485.         while (s-- != buf) {    /* emulate that many ERASEs */
  486.         rubout();
  487.         if (*s < ' ' || *s == '\177')
  488.             rubout();
  489.         }
  490.         fflush(stdout);
  491.         return FALSE;        /* return to single char mode */
  492.     }
  493. #ifdef WORDERASE
  494.     else if (*s == Ctl('w')) {    /* wipe out one word? */
  495.         *s-- = ' ';
  496.         while (!isspace(*s) || isspace(s[1])) {
  497.         rubout();
  498.         if (s-- == buf) {
  499.             fflush(stdout);
  500.             return FALSE;    /* return to single char mode */
  501.         }
  502.         if (*s < ' ' || *s == '\177')
  503.             rubout();
  504.         }
  505.         s++;
  506.         goto re_read;
  507.     }
  508. #endif
  509.     else if (*s == Ctl('r')) {
  510.         *s = '\0';
  511.         reprint();
  512.         goto re_read;
  513.     }
  514.     else if (*s == Ctl('v')) {
  515.         putchar('^');
  516.         backspace();
  517.         fflush(stdout);
  518.         getcmd(s);
  519.         goto top;
  520.     }
  521.     else if (*s == '\\') {
  522.         quoteone = TRUE;
  523.     }
  524.     } while (*s != '\n');        /* till a newline (not echoed) */
  525.     *s = '\0';                /* terminate the string nicely */
  526.     if (donewline)
  527.     putchar('\n') FLUSH;
  528.     return TRUE;            /* say we succeeded */
  529. }
  530.  
  531. /* discard any characters typed ahead */
  532.  
  533. void
  534. eat_typeahead()
  535. {
  536. #ifdef PUSHBACK
  537.     if (!typeahead && nextin==nextout)    /* cancel only keyboard stuff */
  538. #else
  539.     if (!typeahead)
  540. #endif
  541.     {
  542. #ifdef PENDING
  543.     while (input_pending())
  544.         read_tty(buf,sizeof(buf));
  545. #else /* this is probably v7 */
  546.     ioctl(_tty_ch,TIOCSETP,&_tty);
  547. #endif
  548.     }
  549. }
  550.  
  551. void
  552. settle_down()
  553. {
  554.     dingaling();
  555.     fflush(stdout);
  556.     sleep(1);
  557. #ifdef PUSHBACK
  558.     nextout = nextin;            /* empty circlebuf */
  559. #endif
  560.     eat_typeahead();
  561. }
  562.  
  563. #ifdef PUSHBACK
  564. /* read a character from the terminal, with multi-character pushback */
  565.  
  566. int
  567. read_tty(addr,size)
  568. char *addr;
  569. int size;
  570. {
  571.     if (nextout != nextin) {
  572.     *addr = circlebuf[nextout++];
  573.     nextout %= PUSHSIZE;
  574.     return 1;
  575.     }
  576.     else {
  577.     size = read(0,addr,size);
  578. #ifdef RAWONLY
  579.     *addr &= 0177;
  580. #endif
  581.     return size;
  582.     }
  583. }
  584.  
  585. #ifdef PENDING
  586. #ifndef FIONREAD
  587. int
  588. circfill()
  589. {
  590.     register int howmany = read(devtty,circlebuf+nextin,1);
  591.  
  592.     if (howmany) {
  593.     nextin += howmany;
  594.     nextin %= PUSHSIZE;
  595.     }
  596.     return howmany;
  597. }
  598. #endif PENDING
  599. #endif FIONREAD
  600.  
  601. void
  602. pushchar(c)
  603. char c;
  604. {
  605.     nextout--;
  606.     if (nextout < 0)
  607.     nextout = PUSHSIZE - 1;
  608.     if (nextout == nextin) {
  609.     fputs("\npushback buffer overflow\n",stdout) FLUSH;
  610.     sig_catcher(0);
  611.     }
  612.     circlebuf[nextout] = c;
  613. }
  614.  
  615. #else PUSHBACK
  616. #ifndef read_tty
  617. /* read a character from the terminal, with hacks for O_NDELAY reads */
  618.  
  619. int
  620. read_tty(addr,size)
  621. char *addr;
  622. int size;
  623. {
  624.     if (is_input) {
  625.     *addr = pending_ch;
  626.     is_input = FALSE;
  627.     return 1;
  628.     }
  629.     else {
  630.     size = read(0,addr,size)
  631. #ifdef RAWONLY
  632.     *addr &= 0177;
  633. #endif
  634.     return size;
  635.     }
  636. }
  637. #endif read_tty
  638. #endif PUSHBACK
  639.  
  640. /* print an underlined string, one way or another */
  641.  
  642. void
  643. underprint(s)
  644. register char *s;
  645. {
  646.     assert(UC);
  647.     if (*UC) {        /* char by char underline? */
  648.     while (*s) {
  649.         if (*s < ' ') {
  650.         putchar('^');
  651.         backspace();/* back up over it */
  652.         underchar();/* and do the underline */
  653.         putchar(*s+64);
  654.         backspace();/* back up over it */
  655.         underchar();/* and do the underline */
  656.         }
  657.         else {
  658.         putchar(*s);
  659.         backspace();/* back up over it */
  660.         underchar();/* and do the underline */
  661.         }
  662.         s++;
  663.     }
  664.     }
  665.     else {        /* start and stop underline */
  666.     underline();    /* start underlining */
  667.     while (*s) {
  668.         if (*s < ' ') {
  669.         putchar('^');
  670.         putchar(*s+64);
  671.         }
  672.         else
  673.         putchar(*s);
  674.         s++;
  675.     }
  676.     un_underline();    /* stop underlining */
  677.     }
  678. }
  679.  
  680. /* keep screen from flashing strangely on magic cookie terminals */
  681.  
  682. #ifdef NOFIREWORKS
  683. void
  684. no_sofire()
  685. {
  686.     if (*UP && *SE) {        /* should we disable fireworks? */
  687.     putchar('\n');
  688.     un_standout();
  689.     up_line();
  690.     carriage_return();
  691.     }
  692. }
  693.  
  694. void
  695. no_ulfire()
  696. {
  697.     if (*UP && *US) {        /* should we disable fireworks? */
  698.     putchar('\n');
  699.     un_underline();
  700.     up_line();
  701.     carriage_return();
  702.     }
  703. }
  704. #endif
  705.  
  706. /* get a character into a buffer */
  707.  
  708. void
  709. getcmd(whatbuf)
  710. register char *whatbuf;
  711. {
  712. #ifdef PUSHBACK
  713.     register KEYMAP *curmap;
  714.     register int i;
  715.     bool no_macros; 
  716.     int times = 0;            /* loop detector */
  717.     char scrchar;
  718.  
  719. tryagain:
  720.     curmap = topmap;
  721.     no_macros = (whatbuf != buf && nextin == nextout); 
  722. #endif
  723.     for (;;) {
  724.     int_count = 0;
  725.     errno = 0;
  726.     if (read_tty(whatbuf,1) < 0 && !errno)
  727.         errno = EINTR;
  728.     if (errno && errno != EINTR) {
  729.         perror(readerr);
  730.         sig_catcher(0);
  731.     }
  732. #ifdef PUSHBACK
  733.     if (*whatbuf & 0200 || no_macros) {
  734.         *whatbuf &= 0177;
  735.         goto got_canonical;
  736.     }
  737.     if (curmap == Null(KEYMAP*))
  738.         goto got_canonical;
  739.     for (i = (curmap->km_type[*whatbuf] >> KM_GSHIFT) & KM_GMASK; i; --i){
  740.         read_tty(&scrchar,1);
  741.     }
  742.     switch (curmap->km_type[*whatbuf] & KM_TMASK) {
  743.     case KM_NOTHIN:            /* no entry? */
  744.         if (curmap == topmap)    /* unmapped canonical */
  745.         goto got_canonical;
  746.         settle_down();
  747.         goto tryagain;
  748.     case KM_KEYMAP:            /* another keymap? */
  749.         curmap = curmap->km_ptr[*whatbuf].km_km;
  750.         assert(curmap != Null(KEYMAP*));
  751.         break;
  752.     case KM_STRING:            /* a string? */
  753.         pushstring(curmap->km_ptr[*whatbuf].km_str);
  754.         if (++times > 20) {        /* loop? */
  755.         fputs("\nmacro loop?\n",stdout);
  756.         settle_down();
  757.         }
  758.         no_macros = FALSE;
  759.         goto tryagain;
  760.     }
  761. #else
  762. #ifdef RAWONLY
  763.     *whatbuf &= 0177;
  764. #endif
  765.     break;
  766. #endif
  767.     }
  768.  
  769. got_canonical:
  770.     if (whatbuf == buf)
  771.     whatbuf[1] = FINISHCMD;        /* tell finish_command to work */
  772. }
  773.  
  774. #ifdef PUSHBACK
  775. void
  776. pushstring(str)
  777. char *str;
  778. {
  779.     register int i;
  780.     char tmpbuf[PUSHSIZE];
  781.     register char *s = tmpbuf;
  782.  
  783.     assert(str != Nullch);
  784.     interp(s,PUSHSIZE,str);
  785.     for (i = strlen(s)-1; i >= 0; --i) {
  786.     s[i] ^= 0200; 
  787.     pushchar(s[i]);
  788.     }
  789. }
  790. #endif
  791.  
  792. int
  793. get_anything()
  794. {
  795.     char tmpbuf[2];
  796.  
  797. reask_anything:
  798.     unflush_output();            /* disable any ^O in effect */
  799.     standout();
  800. #ifdef VERBOSE
  801.     IF(verbose)
  802.     fputs("[Type space to continue] ",stdout);
  803.     ELSE
  804. #endif
  805. #ifdef TERSE
  806.     fputs("[MORE] ",stdout);
  807. #endif
  808.     un_standout();
  809.     fflush(stdout);
  810.     eat_typeahead();
  811.     if (int_count) {
  812.     return -1;
  813.     }
  814.     collect_subjects();            /* loads subject cache until */
  815.                     /* input is pending */
  816.     getcmd(tmpbuf);
  817.     if (errno || *tmpbuf == '\f') {
  818.     putchar('\n') FLUSH;        /* if return from stop signal */
  819.     goto reask_anything;        /* give them a prompt again */
  820.     }
  821.     if (*tmpbuf == 'h') {
  822. #ifdef VERBOSE
  823.     IF(verbose)
  824.         fputs("\nType q to quit or space to continue.\n",stdout) FLUSH;
  825.     ELSE
  826. #endif
  827. #ifdef TERSE
  828.         fputs("\nq to quit, space to continue.\n",stdout) FLUSH;
  829. #endif
  830.     goto reask_anything;
  831.     }
  832.     else if (*tmpbuf != ' ' && *tmpbuf != '\n') {
  833.     carriage_return();
  834.     erase_eol();    /* erase the prompt */
  835.     return *tmpbuf == 'q' ? -1 : *tmpbuf;
  836.     }
  837.     if (*tmpbuf == '\n') {
  838.     page_line = LINES - 1;
  839.     carriage_return();
  840.     erase_eol();
  841.     }
  842.     else {
  843.     page_line = 1;
  844.     if (erase_screen)        /* -e? */
  845.         clear();            /* clear screen */
  846.     else {
  847.         carriage_return();
  848.         erase_eol();        /* erase the prompt */
  849.     }
  850.     }
  851.     return 0;
  852. }
  853.  
  854. void
  855. in_char(prompt)
  856. char *prompt;
  857. {
  858.     char oldmode = mode;
  859.  
  860. reask_in_char:
  861.     unflush_output();            /* disable any ^O in effect */
  862.     fputs(prompt,stdout);
  863.     fflush(stdout);
  864.     eat_typeahead();
  865.     mode = 'm';
  866.     getcmd(buf);
  867.     if (errno || *buf == '\f') {
  868.     putchar('\n') FLUSH;        /* if return from stop signal */
  869.     goto reask_in_char;        /* give them a prompt again */
  870.     }
  871.     mode = oldmode;
  872. }
  873.  
  874. int
  875. print_lines(what_to_print,hilite)
  876. char *what_to_print;
  877. int hilite;
  878. {
  879.     register char *s;
  880.     register int i;
  881.  
  882.     if (page_line < 0)            /* they do not want to see this? */
  883.     return -1;
  884.     for (s=what_to_print; *s; ) {
  885.     if (page_line >= LINES || int_count) {
  886.         if (i = -1, int_count || (i = get_anything())) {
  887.         page_line = -1;        /* disable further print_lines */
  888.         return i;
  889.         }
  890.     }
  891.     page_line++;
  892.     if (hilite == STANDOUT) {
  893. #ifdef NOFIREWORKS
  894.         if (erase_screen)
  895.         no_sofire();
  896. #endif
  897.         standout();
  898.     }
  899.     else if (hilite == UNDERLINE) {
  900. #ifdef NOFIREWORKS
  901.         if (erase_screen)
  902.         no_ulfire();
  903. #endif
  904.         underline();
  905.     }
  906.     for (i=0; i<COLS; i++) {
  907.         if (!*s)
  908.         break;
  909.         if (*s >= ' ')
  910.         putchar(*s);
  911.         else if (*s == '\t') {
  912.         putchar(*s);
  913.         i = ((i+8) & ~7) - 1; 
  914.         }
  915.         else if (*s == '\n') {
  916.         i = 32000;
  917.         }
  918.         else {
  919.         i++;
  920.         putchar('^');
  921.         putchar(*s + 64);
  922.         }
  923.         s++;
  924.     }
  925.     if (i) {
  926.         if (hilite == STANDOUT)
  927.         un_standout();
  928.         else if (hilite == UNDERLINE)
  929.         un_underline();
  930.         if (AM && i == COLS)
  931.         fflush(stdout);
  932.         else
  933.         putchar('\n') FLUSH;
  934.     }
  935.     }
  936.     return 0;
  937. }
  938.  
  939. void
  940. page_init()
  941. {
  942.     page_line = 1;
  943.     if (erase_screen)
  944.     clear();
  945.     else
  946.     putchar('\n') FLUSH;
  947. }
  948.  
  949. void
  950. pad(num)
  951. int num;
  952. {
  953.     register int i;
  954.  
  955.     for (i = num; i; --i)
  956.     putchar(PC);
  957.     fflush(stdout);
  958. }
  959.  
  960. /* echo the command just typed */
  961.  
  962. #ifdef VERIFY
  963. void
  964. printcmd()
  965. {
  966.     if (verify && buf[1] == FINISHCMD) {
  967.     if (*buf < ' ') {
  968.         putchar('^');
  969.         putchar(*buf | 64);
  970.         backspace();
  971.         backspace();
  972.     }
  973.     else {
  974.         putchar(*buf);
  975.         backspace();
  976.     }
  977.     fflush(stdout);
  978.     }
  979. }
  980. #endif
  981.  
  982. void
  983. rubout()
  984. {
  985.     backspace();            /* do the old backspace, */
  986.     putchar(' ');            /*   space, */
  987.     backspace();            /*     backspace trick */
  988. }
  989.  
  990. void
  991. reprint()
  992. {
  993.     register char *s;
  994.  
  995.     fputs("^R\n",stdout) FLUSH;
  996.     for (s = buf; *s; s++) {
  997.     if (*s < ' ') {
  998.         putchar('^');
  999.         putchar(*s | 64);
  1000.     }
  1001.     else
  1002.         putchar(*s);
  1003.     }
  1004. }
  1005.  
  1006. #ifdef CLEAREOL
  1007. /* start of additions by Paul Placeway (PWP) */
  1008.  
  1009. void
  1010. home_cursor()
  1011. {
  1012.     char *tgoto();
  1013.  
  1014.     if (!*HO) {            /* no home sequence? */
  1015.     if (!*CM) {        /* no cursor motion either? */
  1016.         fputs ("\n\n\n", stdout);
  1017.         return;        /* forget it. */
  1018.     }
  1019.     tputs (tgoto (CM, 0, 0), 1, putchr);    /* go to home via CM */
  1020.     return;
  1021.     }
  1022.     else {            /* we have home sequence */
  1023.     tputs (HO, 1, putchr);    /* home via HO */
  1024.     }
  1025. }
  1026. #endif CLEAREOL
  1027. !STUFFY!FUNK!
  1028. echo Extracting Pnews.SH
  1029. cat >Pnews.SH <<'!STUFFY!FUNK!'
  1030. case $CONFIG in
  1031.     '') . config.sh ;;
  1032. esac
  1033. echo "Extracting Pnews (with variable substitutions)"
  1034. $spitshell >Pnews <<!GROK!THIS!
  1035. $startsh
  1036. # $Header: Pnews.SH,v 4.3 85/05/01 12:20:33 lwall Exp $
  1037. #
  1038. # $Log:    Pnews.SH,v $
  1039. # Revision 4.3  85/05/01  12:20:33  lwall
  1040. # Baseline for release with 4.3bsd.
  1041. # 
  1042. #
  1043. # syntax: Pnews -h headerfile            or
  1044. #      Pnews -h headerfile oldarticle    or
  1045. #         Pnews newsgroup title            or just
  1046. #         Pnews
  1047.  
  1048. export PATH || (echo "OOPS, this isn't sh.  Desperation time.  I will feed myself to sh."; sh \$0; kill \$\$)
  1049.  
  1050. # System dependencies
  1051.  
  1052. mailer="${mailer-/bin/mail}"
  1053. # if you change this to something that does signatures, take out signature code
  1054.  
  1055. case $portable in
  1056. define)
  1057. # your site name
  1058. sitename=\`$hostcmd\`
  1059. # where recordings, distributions and moderators are kept
  1060. lib=\`$filexp $lib\`
  1061. # where important rn things are kept
  1062. rnlib=\`$filexp $rnlib\`
  1063. ;;
  1064. undef)
  1065. # your site name
  1066. sitename="$sitename"
  1067. # where recordings, distributions and moderators are kept
  1068. lib="$lib"
  1069. # where important rn things are kept
  1070. rnlib="$rnlib"
  1071. ;;
  1072. esac
  1073.  
  1074. # your organization name
  1075. orgname="$orgname"
  1076. # what pager you use--if you have kernal paging use cat
  1077. pager="\${PAGER-$pager}"
  1078. # how you derive full names, bsd, usg, or other
  1079. nametype="$nametype"
  1080. # default editor
  1081. defeditor="$defeditor"
  1082. # how not to echo with newline
  1083. n="$n"
  1084. c="$c"
  1085.  
  1086. # You should also look at the distribution warnings below marked !DIST!
  1087. # to make sure any distribution regions you are a member of are included.
  1088. # The following are some prototypical distribution groups.  If you do not
  1089. # use them all set the unused ones to a non-null string such as 'none'.
  1090. loc="$locpref"
  1091. org="$orgpref"
  1092. city="$citypref"
  1093. state="$statepref"
  1094. cntry="$cntrypref"
  1095. cont="$contpref"
  1096.  
  1097. test=${test-test}
  1098. sed=${sed-sed}
  1099. echo=${echo-echo}
  1100. cat=${cat-cat}
  1101. egrep=${egrep-egrep}
  1102. grep=${grep-grep}
  1103. rm=${rm-rm}
  1104. tr=${tr-tr}
  1105. inews=${inews-inews}
  1106.  
  1107. !GROK!THIS!
  1108. $spitshell >>Pnews <<'!NO!SUBS!'
  1109. if $test -f ${DOTDIR-${HOME-$LOGDIR}}/.pnewsexpert; then
  1110.     expertise=expert
  1111. else
  1112.     $cat <<'EOM'
  1113. I see you've never used this version of Pnews before.  I will give you extra
  1114. help this first time through, but then you must remember what you learned.
  1115. If you don't understand any question, type h and a CR (carriage return) for
  1116. help.
  1117.  
  1118. If you've never posted an article to the net before, it is HIGHLY recommended
  1119. that you read the netiquette document found in net.announce.newusers so
  1120. that you'll know to avoid the commonest blunders.  To do that, interrupt
  1121. Pnews, and get to the top-level prompt of rn.  Say "g net.announce.newusers"
  1122. and you are on your way.
  1123.  
  1124. EOM
  1125.     expertise=beginner
  1126. fi
  1127.  
  1128. case $cntry in
  1129.   can) stpr=Province ;;
  1130.   *)   stpr=State ;;
  1131. esac
  1132.  
  1133. tmpart=/tmp/article$$
  1134.  
  1135. headerfile=""
  1136. case $# in
  1137. 0) ;;
  1138. *)  case $1 in
  1139.     -h)
  1140.     headerfile="$2"
  1141.     shift
  1142.     shift
  1143.     case $# in
  1144.     0)
  1145.         oldart=""
  1146.         ;;
  1147.     *)
  1148.         oldart="$1"
  1149.         shift
  1150.         ;;
  1151.     esac
  1152.     ;;
  1153.     esac
  1154.     ;;
  1155. esac
  1156.  
  1157. case $headerfile in
  1158. '')
  1159.     . $rnlib/Pnews.header
  1160.     ;;
  1161. *)
  1162.     $cat < $headerfile  > $tmpart
  1163.     ;;
  1164. esac
  1165.     rescue="sleep 1; $cat $tmpart >>${HOME-$LOGDIR}/dead.article ; $echo saved in ${HOME-$LOGDIR}/dead.article ; $rm -f $tmpart; exit"
  1166.     trap "$rescue" 1
  1167.     trap "$rescue" 2
  1168.  
  1169. $echo ""
  1170. set X `$sed < $tmpart -n -e '/^Distribution: /{' -e p -e q -e '}' -e '/^$/q'`
  1171. shift
  1172. case $# in
  1173. 0|1)
  1174.     set X `$sed < $tmpart -n -e '/^Newsgroups: /{' -e p -e q -e '}'`
  1175.     shift
  1176.     case $# in
  1177.     0|1)
  1178.     set "x net.whatever"
  1179.     ;;
  1180.     esac
  1181.     ;;
  1182. *)
  1183.     set $1 $2.whatever
  1184.     ;;
  1185. esac
  1186. shift
  1187.  
  1188. #: play recorded message
  1189. #if $test -s ${lib}/recording ; then
  1190. #     ng=`$echo $1 | $sed "s/,.*//"`
  1191. #    _rec1=${lib}/`$sed -n "/^$ng/s/^.*    //p" ${lib}/recording`
  1192. #    _tmp=`$echo $ng |$sed "s/\..*//"`
  1193. #    _rec2=${lib}/`$cat -s ${lib}/recording|$grep ${_tmp}.all|$sed "s/^.*    //"`
  1194. #    if $test -f ${_rec1} ; then
  1195. #    $cat -s ${_rec1}
  1196. #    fi
  1197. #    if $test -f ${_rec2} ; then
  1198. #    $cat -s ${_rec2}
  1199. #    fi
  1200. #fi
  1201.  
  1202. # tell them what we think they are doing... !DIST!
  1203. case $1 in
  1204. net.*)
  1205.     $echo 'This program posts news to many hundreds of machines throughout the world.'
  1206.     ;;
  1207. $cont.*)
  1208.     $echo 'This program posts news to many machines throughout the continent.'
  1209.     ;;
  1210. $cntry.*)
  1211.     $echo 'This program posts news to many machines throughout the country.'
  1212.     ;;
  1213. $state.*)
  1214.     $echo 'This program posts news to many machines throughout the state.'
  1215.     ;;
  1216. $city.*)
  1217.     $echo 'This program posts news to many machines throughout the city.'
  1218.     ;;
  1219. $org.*)
  1220.     $echo 'This program posts news to machines throughout the organization.'
  1221.     ;;
  1222. $loc.*)
  1223.     $echo 'This program posts news to machines throughout the local organization.'
  1224.     ;;
  1225. *.*)
  1226.     $echo 'This program may post news to many machines.'
  1227.     ;;
  1228. *)
  1229.     $echo 'This program posts news to everyone on the machine.'
  1230.     ;;
  1231. esac
  1232. ans=""
  1233. while $test "$ans" = "" ; do
  1234.     $echo $n "Are you absolutely sure that you want to do this? [ny] $c"
  1235.     read ans
  1236.     case $ans in
  1237.     y*) ;;
  1238.     f*) suppressmess=y ;;
  1239.     h*) $cat <<'EOH'
  1240.  
  1241. Type n or CR to exit, y to post.
  1242.  
  1243. EOH
  1244.     ans="" ;;
  1245.     *) exit ;;
  1246.     esac
  1247. done
  1248.  
  1249. file=h
  1250. while $test "$file" = h ; do
  1251.     $echo ""
  1252.     $echo $n "Prepared file to include [none]: $c"
  1253.     read file
  1254.     case $file in
  1255.     h)
  1256.     $cat <<'EOH'
  1257.  
  1258. If you have already produced the body of your article, type the filename
  1259. for it here.  If you just want to proceed directly to the editor, type a
  1260. RETURN.  In any event, you will be allowed to edit as many times as you
  1261. want before you send off the article.
  1262. EOH
  1263.     ;;
  1264.     '')
  1265.     $echo "" >> $tmpart
  1266.     state=edit
  1267.     ;;
  1268.     *)
  1269.     $cat $file >>$tmpart
  1270.     state=ask
  1271.     ;;
  1272.     esac
  1273. done
  1274.  
  1275. $echo ""
  1276.  
  1277. while true ; do
  1278.     case $state in
  1279.     edit)
  1280.     case $expertise in
  1281.     beginner)
  1282.         $cat </dev/null >${DOTDIR-${HOME-$LOGDIR}}/.pnewsexpert
  1283.         $cat <<'EOMessage'
  1284. A temporary file has been created for you to edit.  Be sure to leave at
  1285. least one blank line between the header and the body of your message.
  1286. (And until a certain bug is fixed all over the net, don't start the body of
  1287. your message with any indentation, or it may get eaten.)
  1288.  
  1289. Within the header may be fields that you don't understand.  If you don't
  1290. understand a field (or even if you do), you can simply leave it blank, and
  1291. it will go away when the article is posted.
  1292.  
  1293. Type return to get the default editor, or type the name of your favorite
  1294. editor.
  1295.  
  1296. EOMessage
  1297.         ;;
  1298.     esac
  1299.     case "${VISUAL-${EDITOR-}}" in
  1300.     '')
  1301.         tmp=h
  1302.         ;;
  1303.     *)
  1304.         tmp=''
  1305.         ;;
  1306.     esac
  1307.     while $test "$tmp" = h ; do
  1308.         $echo $n "Editor [${VISUAL-${EDITOR-$defeditor}}]: $c"
  1309.         read tmp
  1310.         case $tmp in
  1311.         h)
  1312.         $cat <<'EOH'
  1313.  
  1314. Type a return to get the default editor, or type the name of the editor you
  1315. prefer.  The default editor depends on the VISUAL and EDITOR environment
  1316. variables.
  1317.  
  1318. EOH
  1319.         ;;
  1320.         '')
  1321.         ;;
  1322.         *)
  1323.         VISUAL=$tmp
  1324.         export VISUAL
  1325.         ;;
  1326.         esac
  1327.     done
  1328.     trap : 2
  1329.     ${VISUAL-${EDITOR-$defeditor}} $tmpart $oldart
  1330.     trap "$rescue" 2
  1331.     state=ask
  1332.     ;;
  1333.     
  1334.     ask)
  1335.     $echo ""
  1336.     $echo $n "Send, abort, edit, or list? $c"
  1337.     read ans
  1338.     
  1339.     case $ans in
  1340.     a*)
  1341.         state=rescue
  1342.         ;;
  1343.     e*)
  1344.         state=edit
  1345.         ;;
  1346.     l*)
  1347.         $pager $tmpart
  1348.         state=ask
  1349.         ;;
  1350.     s*)
  1351.         state=send
  1352.         ;;
  1353.     h*)
  1354.         $cat <<'EOH'
  1355.  
  1356. Type s to send the article, a to abort and append the article to dead.article,
  1357. e to edit the article again, or l to list the article.
  1358. EOH
  1359.     esac
  1360.     ;;
  1361.     
  1362.     send)
  1363.     set X `$sed < $tmpart -n -e '/^Newsgroups: /{' -e p -e q -e '}'`
  1364.     shift
  1365.     case $# in
  1366.     2)
  1367.         state=cleanup
  1368.         if $test -f $lib/moderators; then
  1369.         tryinews=no
  1370.         shift
  1371.         case "$1" in
  1372.         *,*) set `$echo $1 | tr ',' ' '`;;
  1373.         esac
  1374.         for newsgroup in $*; do
  1375. # the following screwy sed should prevent Eunice from hanging on no match
  1376.             moderator=`$sed <$lib/moderators \\
  1377.             -e "/^$newsgroup[     ]/!s/.*//" \\
  1378.             -e "s/^$newsgroup[     ]//"`
  1379.             case ${moderator}X in
  1380.             X)  tryinews=yes
  1381.             ;;
  1382.             *)
  1383.             $echo Mailing to moderator $moderator
  1384.             case "$mailer" in
  1385.             *recmail)
  1386.                 $echo To: $moderator | $cat - $tmpart | $mailer
  1387.                 ;;
  1388.             *)
  1389.                 $mailer $moderator < $tmpart
  1390.                 ;;
  1391.             esac
  1392.             case $? in
  1393.             0) ;;
  1394.             *)
  1395.                 $echo Unable to mail to moderator $moderator
  1396.                 state=rescue
  1397.                 ;;
  1398.             esac
  1399.             ;;
  1400.             esac
  1401.         done
  1402.         else
  1403.         tryinews=yes
  1404.         fi
  1405.         case "$tryinews" in
  1406.         yes)
  1407.         if $inews -h < $tmpart ; then
  1408.             : null
  1409.         else
  1410.             state=rescue
  1411.         fi
  1412.         ;;
  1413.         esac
  1414.         ;;
  1415.     *)
  1416.         $echo ""
  1417.         $echo "Malformed Newsgroups line."
  1418.         $echo ""
  1419.         sleep 1
  1420.         state=edit
  1421.         ;;
  1422.     esac
  1423.     ;;
  1424.     rescue)
  1425.     $cat $tmpart >> ${HOME-$LOGDIR}/dead.article
  1426.     $echo "Article saved to ${HOME-$LOGDIR}/dead.article"
  1427.     state=cleanup
  1428.     ;;
  1429.     cleanup)
  1430.     $rm -f $tmpart
  1431.     exit
  1432.     ;;
  1433.     esac
  1434. done
  1435. !NO!SUBS!
  1436. $eunicefix Pnews
  1437. chmod 755 Pnews
  1438. $spitshell >Pnews.header <<'!NO!SUBS!'
  1439. case $# in
  1440. 0)
  1441.     ng=h
  1442.     while $test "$ng" = h ; do
  1443.     $echo ""
  1444.     $echo $n "Newsgroup(s): $c"
  1445.     read ng
  1446.     case $ng in
  1447.     h)
  1448.         $cat <<'EOH'
  1449.  
  1450. Type the name of one or more newsgroups to which you wish to post an article.
  1451. If you want to post to multiple newsgroups, it is better to do them all at
  1452. once than to post to each newsgroup individually, which defeats the news
  1453. reading programs' strategies of eliminating duplicates.
  1454.  
  1455. Separate multiple newsgroup names with commas.
  1456. EOH
  1457.         ;;
  1458.     esac
  1459.     done
  1460.     ;;
  1461. *)
  1462.     ng=$1
  1463.     shift
  1464.     ;;
  1465. esac
  1466. case $ng in
  1467. *\ *)
  1468.     ng=`$echo "$ng" | $sed 's/[, ] */,/g'`
  1469.     ;;
  1470. esac
  1471. case $ng in
  1472. net.*|fa.*|mod.*)
  1473.     defdist=net
  1474.     dist=h
  1475.     ;;
  1476. *.*)
  1477.     defdist=`expr "X$ng" : 'X\([a-z0-9]*\)'`
  1478.     dist=h
  1479.     ;;
  1480. *)
  1481.     defdist=''
  1482.     dist=''
  1483.     ;;
  1484. esac
  1485.  
  1486. while $test "$dist" = h ; do
  1487.     if $test -f $lib/distributions; then
  1488.     $echo " "
  1489.     $echo "Your local distribution prefixes are:"
  1490.     $cat $lib/distributions
  1491.     else
  1492.     $egrep -v '[     ]none$' <<EOM
  1493.  
  1494. Your local distribution prefixes are:
  1495.     Local organization:    $loc
  1496.     Organization:        $org
  1497.     City:            $city
  1498.     $stpr:          $state
  1499.     Country:        $cntry
  1500.     Continent:        $cont
  1501.     Everywhere:        net,mod,fa
  1502.  
  1503. EOM
  1504.     fi
  1505.     $echo $n "Distribution ($defdist): $c"
  1506.     read dist
  1507.     case $dist in
  1508.     '') dist=$defdist ;;
  1509.     esac
  1510.     case $dist in
  1511.     h)
  1512.     $cat <<'EOH'
  1513.  
  1514. The Distribution line may be used to limit the distribution of an article
  1515. to some subset of the systems that would receive the article based only on
  1516. the Newsgroups line.  For example, if you want to sell your car in net.auto,
  1517. and you live in New Jersey, you might want to put "nj" on the Distribution
  1518. line to avoid advertising in California, which has enough problems of its own.
  1519. The actual area designators to use depend on where you are, of course.
  1520. EOH
  1521.     ;;
  1522.     ''|$loc*|$org*|$city*|$state*|$cntry*|$cont*|fa*|mod*)
  1523.     ;;
  1524.     net*|world*)
  1525.     dist=''
  1526.     ;;
  1527.     *)  
  1528.     if $test -f $lib/distributions && \
  1529.       $egrep "^$dist[     ]" $lib/distributions >$tmpart && \
  1530.       $test -s $tmpart; then
  1531.         : null
  1532.     else
  1533.         $echo "Unrecognized distribution prefix--type h for help."
  1534.         dist=h
  1535.     fi
  1536.     ;;
  1537.     esac
  1538. done
  1539.  
  1540. case $ng in
  1541. *net.general*)
  1542.     follow=`echo "$ng" | sed 's/net\.general/net.followup/g'`
  1543.     ;;
  1544. *)
  1545.     follow=""
  1546.     ;;
  1547. esac
  1548.  
  1549. case $# in
  1550. 0)
  1551.     title=h
  1552.     while $test "$title" = h ; do
  1553.     $echo ""
  1554.     $echo $n "Title/Subject: $c"
  1555.     read title
  1556.     case $title in
  1557.     h)
  1558.         $cat <<'EOH'
  1559.  
  1560. Type the title for your article.  Please make it as informative as possible
  1561. (within reason) so that people who aren't interested won't have to read the
  1562. article to find out they aren't interested.  This includes marking movie
  1563. spoilers as (spoiler), and rotated jokes as (rot 13).
  1564. EOH
  1565.     ;;
  1566.     esac
  1567.     done
  1568.     ;;
  1569. *)
  1570.     title="$*"
  1571.     ;;
  1572. esac
  1573.  
  1574. # now build a file with a header for them to edit
  1575.  
  1576. set X ${USER-${LOGNAME-`who am i`}}
  1577. shift
  1578. logname=$1
  1579. case $logname in
  1580. *!*) logname=`expr "$logname" : '!\(.*\)$'` ;;
  1581. esac
  1582. case ${NAME-$nametype} in
  1583. bsd)
  1584.     fullname=`$sed </etc/passwd -e "/^$logname:/{s/^[^:]*:[^:]*:[^:]*:[^:]*:\([^,:;]*\).*"'$'"/\1/" -e "q" -e "}" -e "d"`
  1585.     case $fullname in
  1586.     *'&'*) : GACK
  1587.     lname=`$echo $logname | $tr 'a-z' 'A-Z'`
  1588.     lname=`$echo $lname $logname | $sed 's/^\(.\)[^ ]* ./\1/'`
  1589.     fullname=`$echo "$fullname" | $sed "s/&/${lname}/"`
  1590.     ;;
  1591.     esac
  1592.     ;;
  1593. usg)
  1594.     fullname=`$sed </etc/passwd -e "/^$logname:/{s/^[^:]*:[^:]*:[^:]*:[^:]*:\([^(:]*\).*"'$'"/\1/" -e "s/^.*-//" -e "q" -e "}" -e "d"`
  1595.     ;;
  1596. *)
  1597.     fullname=${NAME-`$cat ${HOME-$LOGDIR}/.fullname`}
  1598.     ;;
  1599. esac
  1600.  
  1601. orgname=${ORGANIZATION-$orgname}
  1602. case $orgname in
  1603. /*) orgname=`$cat $orgname` ;;
  1604. esac
  1605.  
  1606. $cat > $tmpart <<EOHeader
  1607. Newsgroups: $ng
  1608. Subject: $title
  1609. Expires: 
  1610. References: 
  1611. Sender: 
  1612. Reply-To: $logname@$sitename.UUCP ($fullname)
  1613. Followup-To: $follow
  1614. Distribution: $dist
  1615. Organization: $orgname
  1616. Keywords: 
  1617.  
  1618. EOHeader
  1619.  
  1620. !NO!SUBS!
  1621. $eunicefix Pnews.header
  1622. !STUFFY!FUNK!
  1623. echo Extracting rn.c
  1624. cat >rn.c <<'!STUFFY!FUNK!'
  1625. /*  rn -- new readnews program
  1626.  *
  1627.  *  From: lwall@sdcrdcf.UUCP (Larry Wall)
  1628.  *  Organization: System Development Corporation, Santa Monica
  1629.  *
  1630.  *  begun:   01/14/83
  1631.  *    1.0: 04/08/83
  1632.  *      2.0: 09/01/83
  1633.  */
  1634.  
  1635. static char rnid[] = "@(#)$Header: rn.c,v 4.3 85/05/01 11:47:56 lwall Exp $";
  1636.  
  1637. /* $Log:    rn.c,v $
  1638.  * Revision 4.3  85/05/01  11:47:56  lwall
  1639.  * Baseline for release with 4.3bsd.
  1640.  * 
  1641.  */
  1642.  
  1643. #include "INTERN.h"
  1644. #include "common.h"
  1645. #include "rn.h"
  1646. #include "EXTERN.h"
  1647. #include "rcstuff.h"
  1648. #include "term.h"
  1649. #include "final.h"
  1650. #include "ngdata.h"
  1651. #include "util.h"
  1652. #include "only.h"
  1653. #include "ngsrch.h"
  1654. #include "help.h"
  1655. #include "last.h"
  1656. #include "init.h"
  1657. #include "intrp.h"
  1658. #include "rcln.h"
  1659. #include "sw.h"
  1660. #include "addng.h"
  1661. #include "ng.h"
  1662. #include "INTERN.h"
  1663.  
  1664. void
  1665. rn_init()
  1666. {
  1667.     ;
  1668. }
  1669.  
  1670. void
  1671. main(argc,argv)
  1672. int argc;
  1673. char *argv[];
  1674. {
  1675.     bool foundany = initialize(argc,argv);
  1676.     register char *s;
  1677.     bool oh_for_the_good_old_days = FALSE;
  1678.     
  1679.     if (maxngtodo)
  1680.     starthere = 0;
  1681.     else if (!foundany) {        /* nothing to do? */
  1682. #ifdef VERBOSE
  1683.     if (verbose)
  1684.         fputs("\
  1685. No unread news in subscribed-to newsgroups.  To subscribe to a new\n\
  1686. newsgroup use the g<newsgroup> command.\n\
  1687. ",stdout) FLUSH;
  1688. #endif
  1689.     starthere = nextrcline;
  1690.     }
  1691.  
  1692.     /* loop through all unread news */
  1693.  
  1694.     {
  1695.     char promptbuf[80];
  1696.     bool special = FALSE;        /* temporarily allow newsgroup */
  1697.                     /*   with no unread news? */
  1698.     bool retry;            /* cycle back to top of list? */
  1699.     NG_NUM recent_ng = 0;
  1700.     
  1701.     current_ng = 0;
  1702.     do {
  1703.         retry = FALSE;
  1704.         if (findlast) {
  1705.         findlast = FALSE;
  1706.         starthere = 0;
  1707.         if (*lastngname) {
  1708.             if ((ng = find_ng(lastngname)) == nextrcline)
  1709.             ng = 0;
  1710.             else {
  1711.             set_ngname(lastngname);
  1712.                 set_toread(ng);
  1713.             if (toread[ng] <= TR_NONE)
  1714.                 ng = 0;
  1715.             }
  1716.         }
  1717.         }
  1718.         else {
  1719.         ng = starthere;
  1720.         starthere = 0;
  1721.         }
  1722.         while (ng <= nextrcline) {    /* for each newsgroup */
  1723.         mode = 'n';
  1724.         if (ng >= nextrcline) {    /* after the last newsgroup? */
  1725.             ng = nextrcline;    /* force it to 1 after */
  1726. #ifdef ONLY
  1727.             if (maxngtodo) {
  1728.             if (retry)
  1729. #ifdef VERBOSE
  1730.                 IF(verbose)
  1731.                 printf("\nRestriction %s%s still in effect.\n",
  1732.                     ngtodo[0],
  1733.                     maxngtodo > 1 ? ", etc." : nullstr) FLUSH;
  1734.                 ELSE
  1735. #endif
  1736. #ifdef TERSE
  1737.                 fputs("\n(\"Only\" mode.)\n",stdout) FLUSH;
  1738. #endif
  1739.             else {
  1740. #ifdef VERBOSE
  1741.                 IF(verbose)
  1742.                 fputs("\nNo articles under restriction.",
  1743.                   stdout) FLUSH;
  1744.                 ELSE
  1745. #endif
  1746. #ifdef TERSE
  1747.                 fputs("\nNo \"only\" articles.",stdout) FLUSH;
  1748. #endif
  1749.                 end_only();    /* release the restriction */
  1750.                 retry = TRUE;
  1751.             }
  1752.             }
  1753. #endif
  1754.             dfltcmd = (retry ? "npq" : "qnp");
  1755. #ifdef VERBOSE
  1756.             IF(verbose)
  1757.             sprintf(promptbuf,
  1758.                 "\n******** End of newsgroups--what next? [%s] ",
  1759.                 dfltcmd);
  1760.             ELSE
  1761. #endif
  1762. #ifdef TERSE
  1763.             sprintf(promptbuf,
  1764.                 "\n**** End--next? [%s] ", dfltcmd);
  1765. #endif
  1766.         }
  1767.         else {
  1768.             bool shoe_fits;    /* newsgroup matches restriction? */
  1769.  
  1770.             if (toread[ng] >= TR_NONE) {    /* recalc toread? */
  1771.             set_ngname(rcline[ng]);
  1772.             if (shoe_fits = (special || inlist(ngname)))
  1773.                 set_toread(ng);
  1774.             if (paranoid) {
  1775.                 recent_ng = current_ng;
  1776.                 current_ng = ng;
  1777.                 cleanup_rc();
  1778.                     /* this may move newsgroups around */
  1779.                 ng = current_ng;
  1780.                 set_ngname(rcline[ng]);
  1781.             }
  1782.             }
  1783.             if (toread[ng] < (maxngtodo||special ? TR_NONE : TR_ONE) || !shoe_fits) {
  1784.                     /* unwanted newsgroup? */
  1785.             ng++;        /* then skip it */
  1786.             continue;
  1787.             }
  1788.             dfltcmd = "ynq";
  1789. #ifdef VERBOSE
  1790.             IF(verbose)
  1791.             sprintf(promptbuf,
  1792.                 "\n******** %3ld unread article%c in %s--read now? [%s] ",
  1793.                 (long)toread[ng], (toread[ng]==TR_ONE ? ' ' : 's'),
  1794.                 ngname, dfltcmd);    /* format prompt string */
  1795.             ELSE
  1796. #endif
  1797. #ifdef TERSE
  1798.             sprintf(promptbuf,
  1799.                 "\n**** %3ld in %s--read? [%s] ",
  1800.                 (long)toread[ng],
  1801.                 ngname,dfltcmd);    /* format prompt string */
  1802. #endif
  1803.         }
  1804.         special = FALSE;    /* go back to normal mode */
  1805.         if (ng != current_ng) {
  1806.             recent_ng = current_ng;
  1807.                     /* remember previous newsgroup */
  1808.             current_ng = ng;    /* remember current newsgroup */
  1809.         }
  1810.     reask_newsgroup:
  1811.         unflush_output();    /* disable any ^O in effect */
  1812.         fputs(promptbuf,stdout) FLUSH;/* print prompt */
  1813.         fflush(stdout);
  1814.     reinp_newsgroup:
  1815.         eat_typeahead();
  1816.         getcmd(buf);
  1817.         if (errno || *buf == '\f') {
  1818.             putchar('\n') FLUSH; /* if return from stop signal */
  1819.             goto reask_newsgroup;    /* give them a prompt again */
  1820.         }
  1821.         setdef(buf,dfltcmd);
  1822. #ifdef VERIFY
  1823.         printcmd();
  1824. #endif
  1825.         switch (*buf) {
  1826.         case 'p':        /* find previous unread newsgroup */
  1827.             do {
  1828.             if (ng <= 0)
  1829.                 break;
  1830.             ng--;
  1831.             if (toread[ng] == TR_NONE)
  1832.                 set_toread(ng);
  1833.             } while (toread[ng] <= TR_NONE);
  1834.             break;
  1835.         case 'P':        /* goto previous newsgroup */
  1836.             do {
  1837.             if (ng <= 0)
  1838.                 break;
  1839.             ng--;
  1840.             } while (toread[ng] < TR_NONE);
  1841.             special = TRUE;    /* don't skip it if toread==0 */
  1842.             break;
  1843.         case '-':
  1844.             ng = recent_ng;    /* recall previous newsgroup */
  1845.             special = TRUE;    /* don't skip it if toread==0 */
  1846.             break;
  1847.         case 'q': case 'Q': case 'x':    /* quit? */
  1848.             oh_for_the_good_old_days = (*buf == 'x');
  1849.             putchar('\n') FLUSH;
  1850.             ng = nextrcline+1;    /* satisfy */
  1851.             retry = FALSE;    /*   loop conditions */
  1852.             break;
  1853.         case '^':
  1854.             putchar('\n') FLUSH;
  1855.             ng = 0;
  1856.             break;
  1857.         case 'n': case '+':    /* find next unread newsgroup */
  1858.             if (ng == nextrcline) {
  1859.             putchar('\n') FLUSH;
  1860.             retry = TRUE;
  1861.             }
  1862.             else if (toread[ng] > TR_NONE)
  1863.             retry = TRUE;
  1864.             ng++;
  1865.             break;
  1866.         case 'N':        /* goto next newsgroup */
  1867.             ng++;
  1868.             special = TRUE;    /* and don't skip it if toread==0 */
  1869.             break;
  1870.         case '1':        /* goto 1st newsgroup */
  1871.             ng = 0;
  1872.             special = TRUE;    /* and don't skip it if toread==0 */
  1873.             break;
  1874.         case '$':
  1875.             ng = nextrcline;    /* goto last newsgroup */
  1876.             retry = TRUE;
  1877.             break;
  1878.         case 'L':
  1879.             list_newsgroups();
  1880.             goto reask_newsgroup;
  1881.         case '/': case '?':    /* scan for newsgroup pattern */
  1882. #ifdef NGSEARCH
  1883.             switch (ng_search(buf,TRUE)) {
  1884.             case NGS_ABORT:
  1885.             goto reinp_newsgroup;
  1886.             case NGS_INTR:
  1887. #ifdef VERBOSE
  1888.             IF(verbose)
  1889.                 fputs("\n(Interrupted)\n",stdout) FLUSH;
  1890.             ELSE
  1891. #endif
  1892. #ifdef TERSE
  1893.                 fputs("\n(Intr)\n",stdout) FLUSH;
  1894. #endif
  1895.             ng = current_ng;
  1896.             goto reask_newsgroup;
  1897.             case NGS_FOUND:
  1898.             special = TRUE;    /* don't skip it if toread==0 */
  1899.             break;
  1900.             case NGS_NOTFOUND:
  1901. #ifdef VERBOSE
  1902.             IF(verbose)
  1903.                 fputs("\n\nNot found--use g to add newsgroups\n",
  1904.                 stdout) FLUSH;
  1905.             ELSE
  1906. #endif
  1907. #ifdef TERSE
  1908.                 fputs("\n\nNot found\n",stdout) FLUSH;
  1909. #endif
  1910.             goto reask_newsgroup;
  1911.             }
  1912. #else
  1913.             notincl("/");
  1914. #endif
  1915.             break;
  1916.         case 'm':
  1917. #ifndef RELOCATE
  1918.             notincl("m");
  1919.             break;
  1920. #endif            
  1921.         case 'g':    /* goto named newsgroup */
  1922.             if (!finish_command(FALSE))
  1923.                     /* if they didn't finish command */
  1924.             goto reinp_newsgroup;    /* go try something else */
  1925.             for (s = buf+1; *s == ' '; s++);
  1926.                     /* skip leading spaces */
  1927.             if (!*s)
  1928.             strcpy(s,ngname);
  1929. #ifdef RELOCATE
  1930.             if (!get_ng(s,*buf=='m'))    /* try to find newsgroup */
  1931. #else
  1932.             if (!get_ng(s,FALSE))    /* try to find newsgroup */
  1933. #endif
  1934.             ng = current_ng;/* if not found, go nowhere */
  1935.             special = TRUE;    /* don't skip it if toread==0 */
  1936.             break;
  1937. #ifdef DEBUGGING
  1938.         case 'D':
  1939.             printf("\nTries: %d Hits: %d\n",
  1940.             softtries,softtries-softmisses) FLUSH;
  1941.             goto reask_newsgroup;
  1942. #endif
  1943.         case '!':        /* shell escape */
  1944.             if (escapade())     /* do command */
  1945.             goto reinp_newsgroup;
  1946.                     /* if rubbed out, re input */
  1947.             goto reask_newsgroup;
  1948.         case Ctl('k'):        /* edit global KILL file */
  1949.             edit_kfile();
  1950.             goto reask_newsgroup;
  1951.         case 'c':        /* catch up */
  1952. #ifdef CATCHUP
  1953. reask_catchup:
  1954. #ifdef VERBOSE
  1955.             in_char("\nDo you really want to mark everything as read? [yn] ");
  1956. #else
  1957.             in_char("\nReally? [ynh] ");
  1958. #endif
  1959.             putchar('\n') FLUSH;
  1960.             setdef(buf,"y");
  1961.             if (*buf == 'h') {
  1962. #ifdef VERBOSE
  1963.             printf("Type y or SP to mark all articles as read.\n");
  1964.             printf("Type n to leave articles marked as they are.\n");
  1965. #else
  1966.             printf("y or SP to mark all read.\n");
  1967.             printf("n to forget it.\n");
  1968. #endif
  1969.             goto reask_catchup;
  1970.             }
  1971.             else if (*buf!=' ' && *buf!='y' && *buf!='n' && *buf!='q') {
  1972.             printf(hforhelp);
  1973.             settle_down();
  1974.             goto reask_catchup;
  1975.             } else if ( (*buf == ' ' || *buf == 'y') && ng<nextrcline )
  1976.             catch_up(ng);
  1977.             else
  1978.             retry = TRUE;
  1979.             ng++;
  1980. #else
  1981.             notincl("c");
  1982. #endif
  1983.             break;
  1984.         case 'u':        /* unsubscribe */
  1985.             if (ng < nextrcline && toread[ng] >= TR_NONE) {
  1986.                     /* unsubscribable? */
  1987.             printf(unsubto,rcline[ng]) FLUSH;
  1988.             rcchar[ng] = NEGCHAR;
  1989.                     /* unsubscribe to (from?) it */
  1990.             toread[ng] = TR_UNSUB;
  1991.                     /* and make line invisible */
  1992.             ng++;        /* do an automatic 'n' */
  1993.             }
  1994.             break;
  1995.         case 'h': {        /* help */
  1996.             int cmd;
  1997.  
  1998.             if ((cmd = help_ng()) > 0)
  1999.             pushchar(cmd);
  2000.             goto reask_newsgroup;
  2001.         }
  2002.         case 'a':
  2003. #ifndef FINDNEWNG
  2004.             notincl("a");
  2005.             goto reask_newsgroup;
  2006. #else
  2007.             /* FALL THROUGH */
  2008. #endif
  2009.         case 'o':
  2010. #ifdef ONLY
  2011.         {
  2012. #ifdef FINDNEWNG
  2013.             bool doscan = (*buf == 'a');
  2014. #endif
  2015.  
  2016.             if (!finish_command(TRUE)) /* get rest of command */
  2017.             goto reinp_newsgroup;    /* if rubbed out, try something else */
  2018.             end_only();
  2019.             if (buf[1]) {
  2020.             bool minusd = instr(buf+1,"-d") != Nullch;
  2021.  
  2022.             sw_list(buf+1);
  2023.             if (minusd)
  2024.                 cwd_check();
  2025.             putchar('\n') FLUSH;
  2026. #ifdef FINDNEWNG
  2027.             if (doscan && maxngtodo)
  2028.                 scanactive();
  2029. #endif
  2030.             }
  2031.             ng = 0;        /* simulate ^ */
  2032.             retry = FALSE;
  2033.             break;
  2034.         }
  2035. #else
  2036.             notincl("o");
  2037.             goto reask_newsgroup;
  2038. #endif
  2039.         case '&':
  2040.             if (switcheroo()) /* get rest of command */
  2041.             goto reinp_newsgroup;    /* if rubbed out, try something else */
  2042.             goto reask_newsgroup;
  2043.         case 'l': {        /* list other newsgroups */
  2044.             if (!finish_command(TRUE)) /* get rest of command */
  2045.             goto reinp_newsgroup;    /* if rubbed out, try something else */
  2046.             for (s = buf+1; *s == ' '; s++);
  2047.                         /* skip leading spaces */
  2048.             sprintf(cmd_buf,"%s '%s'",filexp(NEWSGROUPS),s);
  2049.             resetty();
  2050.             if (doshell(sh,cmd_buf))
  2051. #ifdef VERBOSE
  2052.             IF(verbose)
  2053.                 fputs("    (Error from newsgroups program)\n",
  2054.                 stdout) FLUSH;
  2055.             ELSE
  2056. #endif
  2057. #ifdef TERSE
  2058.                 fputs("(Error)\n",stdout) FLUSH;
  2059. #endif
  2060.             noecho();
  2061.             crmode();
  2062.             goto reask_newsgroup;
  2063.         }
  2064.         case '.': case '=':
  2065.         case 'y': case 'Y': /* do normal thing */
  2066.             if (ng >= nextrcline) {
  2067.             fputs("\nNot on a newsgroup.",stdout) FLUSH;
  2068.             goto reask_newsgroup;
  2069.             }
  2070.             if (*buf == '=')
  2071.             s = savestr("=");
  2072.             else if (*buf == '.') {    /* start command? */
  2073.             if (!finish_command(FALSE)) /* get rest of command */
  2074.                 goto reinp_newsgroup;
  2075.             s = savestr(buf+1);
  2076.                     /* do_newsgroup will free it */
  2077.             }
  2078.             else
  2079.             s = Nullch;
  2080.             if (toread[ng])
  2081.             retry = TRUE;
  2082.             switch (do_newsgroup(s)) {
  2083.             case NG_ERROR:
  2084.             case NG_NORM:
  2085.             ng++;
  2086.             break;
  2087.             case NG_ASK:
  2088.             goto reask_newsgroup;
  2089.             case NG_MINUS:
  2090.             ng = recent_ng;    /* recall previous newsgroup */
  2091.             special = TRUE;    /* don't skip it if toread==0 */
  2092.             break;
  2093.             }
  2094.             break;
  2095. #ifdef STRICTCR
  2096.         case '\n':
  2097.             fputs(badcr,stdout) FLUSH;
  2098.             goto reask_newsgroup;
  2099. #endif
  2100.         case 'v':
  2101.             printf("\n%s\n",rnid) FLUSH;
  2102.             goto reask_newsgroup;
  2103.         default:
  2104.             printf("\n%s",hforhelp) FLUSH;
  2105.             settle_down();
  2106.             goto reask_newsgroup;
  2107.         }
  2108.         }
  2109.     } while (retry);
  2110.     }
  2111.  
  2112.     /* now write .newsrc back out */
  2113.  
  2114.     write_rc();
  2115.  
  2116.     if (oh_for_the_good_old_days)
  2117.     get_old_rc();
  2118.  
  2119.     finalize(0);            /* and exit */
  2120. }
  2121.  
  2122. /* set current newsgroup */
  2123.  
  2124. void
  2125. set_ngname(what)
  2126. char *what;
  2127. {
  2128.     int len = strlen(what)+1;
  2129.  
  2130.     growstr(&ngname,&ngnlen,len);
  2131.     strcpy(ngname,what);
  2132.     growstr(&ngdir,&ngdlen,len);
  2133.     strcpy(ngdir,getngdir(ngname));
  2134. }
  2135.  
  2136. static char *myngdir;
  2137. static int ngdirlen = 0;
  2138.  
  2139. char *
  2140. getngdir(ngnam)
  2141. char *ngnam;
  2142. {
  2143.     register char *s;
  2144.  
  2145.     growstr(&myngdir,&ngdirlen,strlen(ngnam)+1);
  2146.     strcpy(myngdir,ngnam);
  2147.     for (s = myngdir; *s; s++)
  2148.     if (*s == '.')
  2149.         *s = '/';
  2150.     return myngdir;
  2151. }
  2152.  
  2153. !STUFFY!FUNK!
  2154. echo Extracting rcln.c
  2155. cat >rcln.c <<'!STUFFY!FUNK!'
  2156. /* $Header: rcln.c,v 4.3 85/05/01 11:45:36 lwall Exp $
  2157.  *
  2158.  * $Log:    rcln.c,v $
  2159.  * Revision 4.3  85/05/01  11:45:36  lwall
  2160.  * Baseline for release with 4.3bsd.
  2161.  * 
  2162.  */
  2163.  
  2164. #include "EXTERN.h"
  2165. #include "common.h"
  2166. #include "util.h"
  2167. #include "rcstuff.h"
  2168. #include "ngdata.h"
  2169. #include "INTERN.h"
  2170. #include "rcln.h"
  2171.  
  2172. void
  2173. rcln_init()
  2174. {
  2175.     ;
  2176. }
  2177.  
  2178. #ifdef CATCHUP
  2179. void
  2180. catch_up(ngx)
  2181. NG_NUM ngx;
  2182. {
  2183.     char tmpbuf[128];
  2184.     
  2185. #ifdef VERBOSE
  2186.     IF(verbose)
  2187.     printf("\nMarking %s as all read.\n",rcline[ngx]) FLUSH;
  2188.     ELSE
  2189. #endif
  2190. #ifdef TERSE
  2191.     fputs("\nMarked read\n",stdout) FLUSH;
  2192. #endif
  2193.     sprintf(tmpbuf,"%s: 1-%ld", rcline[ngx],(long)getngsize(ngx));
  2194.     free(rcline[ngx]);
  2195.     rcline[ngx] = savestr(tmpbuf);
  2196.     *(rcline[ngx] + rcnums[ngx] - 1) = '\0';
  2197.     write_rc();
  2198. }
  2199. #endif
  2200.  
  2201. /* add an article number to a newsgroup, if it isn't already read */
  2202.  
  2203. int
  2204. addartnum(artnum,ngnam)
  2205. ART_NUM artnum;
  2206. char *ngnam;
  2207. {
  2208.     register NG_NUM ngnum = find_ng(ngnam);
  2209.     register char *s, *t, *maxt = Nullch;
  2210.     ART_NUM min = 0, max = -1, lastnum = 0;
  2211.     char *mbuf;
  2212.     bool morenum;
  2213.  
  2214.     if (!artnum)
  2215.     return 0;
  2216.     if (ngnum == nextrcline || !rcnums[ngnum])
  2217.                     /* not found in newsrc? */
  2218.     return 0;
  2219. #ifdef CACHEFIRST
  2220.     if (!abs1st[ngnum])
  2221. #else
  2222.     if (!toread[ngnum])
  2223. #endif
  2224.                     /* now is a good time to trim down */
  2225.     set_toread(ngnum);        /* the list due to expires if we */
  2226.                     /* have not yet. */
  2227. #ifdef DEBUGGING
  2228.     if (artnum > ngmax[ngnum] + 10    /* allow for incoming articles */
  2229.        ) {
  2230.     printf("\nCorrupt Xref line!!!  %ld --> %s(1..%ld)\n",
  2231.         artnum,ngnam,
  2232.         ngmax[ngnum]) FLUSH;
  2233.     paranoid = TRUE;        /* paranoia reigns supreme */
  2234.     return -1;            /* hope this was the first newsgroup */
  2235.     }
  2236. #endif
  2237.  
  2238.     if (toread[ngnum] == TR_BOGUS)
  2239.     return 0;
  2240. #ifdef DEBUGGING
  2241.     if (debug & DEB_XREF_MARKER) {
  2242.     printf("%ld->\n%s%c%s\n",(long)artnum,rcline[ngnum],rcchar[ngnum],
  2243.       rcline[ngnum] + rcnums[ngnum]) FLUSH;
  2244.     }
  2245. #endif
  2246.     s = rcline[ngnum] + rcnums[ngnum];
  2247.     while (*s == ' ') s++;        /* skip spaces */
  2248.     t = s;
  2249.     while (isdigit(*s) && artnum >= (min = atol(s))) {
  2250.                     /* while it might have been read */
  2251.     for (t = s; isdigit(*t); t++) ;    /* skip number */
  2252.     if (*t == '-') {        /* is it a range? */
  2253.         t++;            /* skip to next number */
  2254.         if (artnum <= (max = atol(t)))
  2255.         return 0;        /* it is in range => already read */
  2256.         lastnum = max;        /* remember it */
  2257.         maxt = t;            /* remember position in case we */
  2258.                     /* want to overwrite the max */
  2259.         while (isdigit(*t)) t++;    /* skip second number */
  2260.     }
  2261.     else {
  2262.         if (artnum == min)        /* explicitly a read article? */
  2263.         return 0;
  2264.         lastnum = min;        /* remember what the number was */
  2265.         maxt = Nullch;        /* last one was not a range */
  2266.     }
  2267.     while (*t && !isdigit(*t)) t++;    /* skip comma and any spaces */
  2268.     s = t;
  2269.     }
  2270.     
  2271.     /* we have not read it, so insert the article number before s */
  2272.     
  2273.     morenum = isdigit(*s);        /* will it need a comma after? */
  2274.     *(rcline[ngnum] + rcnums[ngnum] - 1) = rcchar[ngnum];
  2275.     mbuf = safemalloc((MEM_SIZE)(strlen(s) + (s-rcline[ngnum]) + 8));
  2276.     strcpy(mbuf,rcline[ngnum]);        /* make new rc line */
  2277.     if (maxt && lastnum && artnum == lastnum+1)
  2278.                         /* can we just extend last range? */
  2279.     t = mbuf + (maxt-rcline[ngnum]);/* then overwrite previous max */
  2280.     else {
  2281.     t = mbuf + (t-rcline[ngnum]);    /* point t into new line instead */
  2282.     if (lastnum) {            /* have we parsed any line? */
  2283.         if (!morenum)        /* are we adding to the tail? */
  2284.         *t++ = ',';        /* supply comma before */
  2285.         if (!maxt && artnum == lastnum+1 && *(t-1) == ',')
  2286.                     /* adjacent singletons? */
  2287.         *(t-1) = '-';        /* turn them into a range */
  2288.     }
  2289.     }
  2290.     if (morenum) {            /* is there more to life? */
  2291.     if (min == artnum+1) {        /* can we consolidate further? */
  2292.         bool range_before = (*(t-1) == '-');
  2293.         bool range_after;
  2294.         char *nextmax;
  2295.  
  2296.         for (nextmax = s; isdigit(*nextmax); nextmax++) ;
  2297.         range_after = *nextmax++ == '-';
  2298.         
  2299.         if (range_before)
  2300.         *t = '\0';        /* artnum is redundant */
  2301.         else
  2302.         sprintf(t,"%ld-",(long)artnum);/* artnum will be new min */
  2303.         
  2304.         if (range_after)
  2305.         s = nextmax;        /* *s is redundant */
  2306.     /*  else
  2307.         s = s */        /* *s is new max */
  2308.     }
  2309.     else
  2310.         sprintf(t,"%ld,",(long)artnum);    /* put the number and comma */
  2311.     }
  2312.     else
  2313.     sprintf(t,"%ld",(long)artnum);    /* put the number there (wherever) */
  2314.     strcat(t,s);            /* copy remainder of line */
  2315. #ifdef DEBUGGING
  2316.     if (debug & DEB_XREF_MARKER) {
  2317.     printf("%s\n",mbuf) FLUSH;
  2318.     }
  2319. #endif
  2320.     free(rcline[ngnum]);
  2321.     rcline[ngnum] = mbuf;        /* pull the switcheroo */
  2322.     *(rcline[ngnum] + rcnums[ngnum] - 1) = '\0';
  2323.                     /* wipe out : or ! */
  2324.     if (toread[ngnum] > TR_NONE)    /* lest we turn unsub into bogus */
  2325.     --toread[ngnum];
  2326.     return 0;
  2327. }
  2328.  
  2329. #ifdef MCHASE
  2330. /* delete an article number from a newsgroup, if it is there */
  2331.  
  2332. void
  2333. subartnum(artnum,ngnam)
  2334. register ART_NUM artnum;
  2335. char *ngnam;
  2336. {
  2337.     register NG_NUM ngnum = find_ng(ngnam);
  2338.     register char *s, *t;
  2339.     register ART_NUM min, max;
  2340.     char *mbuf;
  2341.     int curlen;
  2342.  
  2343.     if (!artnum)
  2344.     return;
  2345.     if (ngnum == nextrcline || !rcnums[ngnum])
  2346.     return;                /* not found in newsrc? */
  2347. #ifdef DEBUGGING
  2348.     if (debug & DEB_XREF_MARKER) {
  2349.     printf("%ld<-\n%s%c%s\n",(long)artnum,rcline[ngnum],rcchar[ngnum],
  2350.       rcline[ngnum] + rcnums[ngnum]) FLUSH;
  2351.     }
  2352. #endif
  2353.     s = rcline[ngnum] + rcnums[ngnum];
  2354.     while (*s == ' ') s++;        /* skip spaces */
  2355.     
  2356.     /* a little optimization, since it is almost always the last number */
  2357.     
  2358.     for (t=s; *t; t++) ;        /* find end of string */
  2359.     curlen = t-rcline[ngnum];
  2360.     for (t--; isdigit(*t); t--) ;    /* find previous delim */
  2361.     if (*t == ',' && atol(t+1) == artnum) {
  2362.     *t = '\0';
  2363.     if (toread[ngnum] >= TR_NONE)
  2364.         ++toread[ngnum];
  2365. #ifdef DEBUGGING
  2366.     if (debug & DEB_XREF_MARKER)
  2367.         printf("%s%c %s\n",rcline[ngnum],rcchar[ngnum],s) FLUSH;
  2368. #endif
  2369.     return;
  2370.     }
  2371.  
  2372.     /* not the last number, oh well, we may need the length anyway */
  2373.  
  2374.     while (isdigit(*s) && artnum >= (min = atol(s))) {
  2375.                     /* while it might have been read */
  2376.     for (t = s; isdigit(*t); t++) ;    /* skip number */
  2377.     if (*t == '-') {        /* is it a range? */
  2378.         t++;            /* skip to next number */
  2379.         max = atol(t);
  2380.         while (isdigit(*t)) t++;    /* skip second number */
  2381.         if (artnum <= max) {
  2382.                     /* it is in range => already read */
  2383.         if (artnum == min) {
  2384.             min++;
  2385.             artnum = 0;
  2386.         }
  2387.         else if (artnum == max) {
  2388.             max--;
  2389.             artnum = 0;
  2390.         }
  2391.         *(rcline[ngnum] + rcnums[ngnum] - 1) = rcchar[ngnum];
  2392.         mbuf = safemalloc((MEM_SIZE)(curlen + (artnum?15:2)));
  2393.         *s = '\0';
  2394.         strcpy(mbuf,rcline[ngnum]);    /* make new rc line */
  2395.         s = mbuf + (s-rcline[ngnum]);
  2396.                     /* point s into mbuf now */
  2397.         if (artnum) {        /* split into two ranges? */
  2398.             prange(s,min,artnum-1);
  2399.             s += strlen(s);
  2400.             *s++ = ',';
  2401.             prange(s,artnum+1,max);
  2402.         }
  2403.         else            /* only one range */
  2404.             prange(s,min,max);
  2405.         s += strlen(s);
  2406.         strcpy(s,t);        /* copy remainder over */
  2407. #ifdef DEBUGGING
  2408.         if (debug & DEB_XREF_MARKER) {
  2409.             printf("%s\n",mbuf) FLUSH;
  2410.         }
  2411. #endif
  2412.         free(rcline[ngnum]);
  2413.         rcline[ngnum] = mbuf;    /* pull the switcheroo */
  2414.         *(rcline[ngnum] + rcnums[ngnum] - 1) = '\0';
  2415.                     /* wipe out : or ! */
  2416.         if (toread[ngnum] >= TR_NONE)
  2417.             ++toread[ngnum];
  2418.         return;
  2419.         }
  2420.     }
  2421.     else {
  2422.         if (artnum == min) {    /* explicitly a read article? */
  2423.         if (*t == ',')        /* pick a comma, any comma */
  2424.             t++;
  2425.         else if (s[-1] == ',')
  2426.             s--;
  2427.         else if (s[-2] == ',')    /* (in case of space) */
  2428.             s -= 2;
  2429.         strcpy(s,t);        /* no need to realloc */
  2430.         if (toread[ngnum] >= TR_NONE)
  2431.             ++toread[ngnum];
  2432. #ifdef DEBUGGING
  2433.         if (debug & DEB_XREF_MARKER) {
  2434.             printf("%s%c%s\n",rcline[ngnum],rcchar[ngnum],
  2435.               rcline[ngnum] + rcnums[ngnum]) FLUSH;
  2436.         }
  2437. #endif
  2438.         return;
  2439.         }
  2440.     }
  2441.     while (*t && !isdigit(*t)) t++;    /* skip comma and any spaces */
  2442.     s = t;
  2443.     }
  2444. }
  2445.  
  2446. void
  2447. prange(where,min,max)
  2448. char *where;
  2449. ART_NUM min,max;
  2450. {
  2451.     if (min == max)
  2452.     sprintf(where,"%ld",(long)min);
  2453.     else
  2454.     sprintf(where,"%ld-%ld",(long)min,(long)max);
  2455. }
  2456. #endif
  2457.  
  2458. /* calculate the number of unread articles for a newsgroup */
  2459.  
  2460. void
  2461. set_toread(ngnum)
  2462. register NG_NUM ngnum;
  2463. {
  2464.     register char *s, *c, *h;
  2465.     char tmpbuf[64], *mybuf = tmpbuf;
  2466.     char *nums;
  2467.     int length;
  2468. #ifdef CACHEFIRST
  2469.     bool virgin_ng = (!abs1st[ngnum]);
  2470. #endif
  2471.     ART_NUM ngsize = getngsize(ngnum);
  2472.     ART_NUM unread = ngsize;
  2473.     ART_NUM newmax;
  2474.  
  2475. #ifdef DEBUGGING
  2476.     ngmax[ngnum] = ngsize;        /* for checking out-of-range Xrefs */
  2477. #endif
  2478.     if (ngsize == TR_BOGUS) {
  2479.     printf("Warning!  Bogus newsgroup: %s\n",rcline[ngnum]) FLUSH;
  2480.     paranoid = TRUE;
  2481.     toread[ngnum] = TR_BOGUS;
  2482.     return;
  2483.     }
  2484. #ifdef CACHEFIRST
  2485.     if (virgin_ng)
  2486. #else
  2487.     if (!toread[ngnum])
  2488. #endif
  2489.     {
  2490.     sprintf(tmpbuf," 1-%ld",(long)ngsize);
  2491.     if (strNE(tmpbuf,rcline[ngnum]+rcnums[ngnum]))
  2492.         checkexpired(ngnum,ngsize);    /* this might realloc rcline */
  2493.     }
  2494.     nums = rcline[ngnum]+rcnums[ngnum];
  2495.     length = strlen(nums);
  2496.     if (length >= 60)
  2497.     mybuf = safemalloc((MEM_SIZE)(length+5));
  2498.     strcpy(mybuf,nums);
  2499.     mybuf[length++] = ',';
  2500.     mybuf[length] = '\0';
  2501.     for (s = mybuf; isspace(*s); s++)
  2502.         ;
  2503.     for ( ; (c = index(s,',')) != Nullch ; s = ++c) {
  2504.                     /* for each range */
  2505.     *c = '\0';            /* keep index from running off */
  2506.     if ((h = index(s,'-')) != Nullch)    /* find - in range, if any */
  2507.         unread -= (newmax = atol(h+1)) - atol(s) + 1;
  2508.     else if (newmax = atol(s))
  2509.         unread--;        /* recalculate length */
  2510.     if (newmax > ngsize) {    /* paranoia check */
  2511.         unread = -1;
  2512.         break;
  2513.     }
  2514.     }
  2515.     if (unread >= 0)        /* reasonable number? */
  2516.     toread[ngnum] = (ART_UNREAD)unread;
  2517.                     /* remember how many are left */
  2518.     else {                /* SOMEONE RESET THE NEWSGROUP!!! */
  2519.     toread[ngnum] = (ART_UNREAD)ngsize;
  2520.                     /* assume nothing carried over */
  2521.     printf("Warning!  Somebody reset %s--assuming nothing read.\n",
  2522.         rcline[ngnum]) FLUSH;
  2523.     *(rcline[ngnum] + rcnums[ngnum]) = '\0';
  2524.     paranoid = TRUE;        /* enough to make a guy paranoid */
  2525.     }
  2526.     if (mybuf != tmpbuf)
  2527.     free(mybuf);
  2528.     if (rcchar[ngnum] == NEGCHAR)
  2529.     toread[ngnum] = TR_UNSUB;
  2530. }
  2531.  
  2532. /* make sure expired articles are marked as read */
  2533.  
  2534. void
  2535. checkexpired(ngnum,ngsize)
  2536. register NG_NUM ngnum;
  2537. ART_NUM ngsize;
  2538. {
  2539.     register ART_NUM a1st = getabsfirst(ngnum,ngsize);
  2540.     register char *s, *t;
  2541.     register ART_NUM num, lastnum = 0;
  2542.     char *mbuf, *newnum;
  2543.  
  2544.     if (a1st<=1)
  2545.     return;
  2546. #ifdef DEBUGGING
  2547.     if (debug & DEB_XREF_MARKER) {
  2548.     printf("1-%ld->\n%s%c%s\n",(long)(a1st-1),rcline[ngnum],rcchar[ngnum],
  2549.       rcline[ngnum] + rcnums[ngnum]) FLUSH;
  2550.     }
  2551. #endif
  2552.     for (s = rcline[ngnum] + rcnums[ngnum]; isspace(*s); s++);
  2553.     while (*s && (num = atol(s)) <= a1st) {
  2554.     while (isdigit(*s)) s++;
  2555.     while (*s && !isdigit(*s)) s++;
  2556.     lastnum = num;
  2557.     }
  2558.     if (*s) {
  2559.     if (s[-1] == '-') {            /* landed in a range? */
  2560.         if (lastnum != 1)
  2561.         sprintf(rcline[ngnum]+rcnums[ngnum]," 1-%s",s);
  2562.         goto ret;
  2563.     }
  2564.     }
  2565.     /* s now points to what should follow first range */
  2566.     if (s - rcline[ngnum] > rcnums[ngnum] + 10) 
  2567.     mbuf = rcline[ngnum];
  2568.     else {
  2569.     mbuf = safemalloc((MEM_SIZE)(rcnums[ngnum] + strlen(s) + 10));
  2570.     strcpy(mbuf,rcline[ngnum]);
  2571.     }
  2572.     newnum = t = mbuf+rcnums[ngnum];
  2573.     sprintf(t," 1-%ld",(long)(a1st - (lastnum != a1st)));
  2574.     if (*s) {
  2575.     t += strlen(t);
  2576.     *t++ = ',';
  2577.     strcpy(t,s);
  2578.     }
  2579.     if (mbuf == rcline[ngnum]) {
  2580.     rcline[ngnum] = saferealloc(rcline[ngnum],
  2581.         (MEM_SIZE)(rcnums[ngnum] + strlen(newnum) + 1));
  2582.     }
  2583.     else {
  2584.     free(rcline[ngnum]);
  2585.     rcline[ngnum] = mbuf;
  2586.     }
  2587.  
  2588. ret:;        /* semicolon in case DEBUGGING undefined */
  2589. #ifdef DEBUGGING
  2590.     if (debug & DEB_XREF_MARKER) {
  2591.     printf("%s%c%s\n",rcline[ngnum],rcchar[ngnum],
  2592.       rcline[ngnum] + rcnums[ngnum]) FLUSH;
  2593.     }
  2594. #endif
  2595. }
  2596.  
  2597. !STUFFY!FUNK!
  2598. echo Extracting HACKERSGUIDE
  2599. cat >HACKERSGUIDE <<'!STUFFY!FUNK!'
  2600. Hacking Notes
  2601.  
  2602. If you aren't interested in mucking with the innards of rn, don't read this.
  2603.  
  2604. In the interests of both space and time optimization, things are done inside
  2605. rn that don't always conform to the highest ideals of programming.  To the
  2606. extent I felt it was practical, I've tried to conform to good programming
  2607. practice, but you must realize that my goal was to make a better mousetrap,
  2608. so certain conscious tradeoffs were made in the design of rn right from the
  2609. start.  In particular, if you want to hack on rn (and I wouldn't blame you,
  2610. it's fun), beware of the following:
  2611.   
  2612.   * buf and cmd_buf are reused all over the place.  11-squishing is a good
  2613.     term for it.  No, I'm on a Vax now, but I've been there.
  2614.  
  2615.   * The article header is parsed on the fly, while it is being displayed.
  2616.     In fact, practically everything is done on the fly within the article
  2617.     display loop, and there are plenty of state variables.  The header
  2618.     is never explicitly stored in memory; rather, pointers are kept into
  2619.     the file.  The information required to backup pages is not stored in
  2620.     memory, except for 1 buffer's worth.  The information required to do
  2621.     the delayed mark as unread (M) is not stored in memory either.
  2622.  
  2623.   * Lots of contortions are gone through to avoid using static memory, or
  2624.     allocating unnecessary memory, or losing track of allocated memory,
  2625.     while at the same time allowing .newsrc lines and header lines to be
  2626.     ANY length up to the amount of memory you have.  Rn spends a great deal
  2627.     of effort being lazy.  Do not use a static buffer when you can use
  2628.     growstr().
  2629.  
  2630.   * Lots of contortions are gone through to try to do things when people
  2631.     aren't waiting, or have only been waiting a very short time.  Guessing
  2632.     the next article to be opened and opening it, searching ahead for the
  2633.     next article with the same subject, delaying the look up of the number
  2634.     of articles in a newsgroup, writing the rest of the page while the
  2635.     reader is examining the header, cacheing up subjects while the user
  2636.     is reading, checkpointing the .newsrc only while the reader is in the
  2637.     middle of an interesting article, are some of the strategies employed.
  2638.   
  2639.   * There are plenty of goto's.  Most of them involve going back to reprompt,
  2640.     to reask for input, or to just plain do the unstructured things people
  2641.     want to do when they are glaring at a terminal.  If they bother you
  2642.     too much, just think of rn as a big state machine.  If they don't bother
  2643.     you at all, I don't want you hacking on rn.
  2644.  
  2645.   * Put all includes at the front of the file, before the first function,
  2646.     or makedepend will not work right.  I could relax this, but makedepend
  2647.     would take about 5 times longer to run.
  2648.  
  2649. In general then, feel free to hack on rn.  Just don't broadcast untested
  2650. patches to the net.  Remember that there are people with limited address
  2651. spaces and limited cpu cycles.  If you add a wonderful new feature and
  2652. want to publish a patch, put #ifdef's around it so that people who don't
  2653. want it or can't afford it can work around it.  THIS MEANS YOU.  We don't
  2654. need 57 varieties of mutually incompatible and incomprehensible rn floating
  2655. about the net.  Consider telling me about your patch so that I can consider
  2656. including it in the standard version.  A COMPLETE PATCH TAKES INTO ACCOUNT
  2657. SYSTEM DEPENDENCIES AS DETERMINED BY THE CONFIGURE SCRIPT.
  2658.  
  2659. * Don't use ints where rn uses typedefs, in particular, for article numbers.
  2660. * Don't use %d anywhere that someone might need a %ld.  (Just because YOU
  2661.     typedefed it as an int doesn't mean someone else won't need a long.)
  2662. * Don't use %D, that's archaic.
  2663. * Put FLUSHes after printf()s, fputs()es and putchar('\n')s for our poor
  2664.     brethern and sistern without line buffering.
  2665. * Declare the type of every function.  Use void, even if your C compiler
  2666.     doesn't.
  2667. * Follow the style that rn already uses!  This is my pet peeve.  Well, one of
  2668.     them, anyway.  I follow other people's strange styles when modifying
  2669.     their programs, so I'd be much obliged if you did likewise.
  2670. * Use lint.
  2671. * Use RCS.  Start a new branch, like 4.3.[2-9].  (I will use 4.3.1 myself.)
  2672. * Be structured wherever it doesn't interfere with practicality.
  2673. * Long live paranoid programming.  The rest of the program is out to get you.
  2674.     The world is out to destroy the program, not to mention the .newsrc.
  2675.     And then there's always bitrot...
  2676. * Stop reading this lugubrious trash and start thinking for yourself.
  2677. * Thank you and good night.
  2678. !STUFFY!FUNK!
  2679. echo ""
  2680. echo "End of kit 5 (of 9)"
  2681. cat /dev/null >kit5isdone
  2682. config=true
  2683. for iskit in 1 2 3 4 5 6 7 8 9; do
  2684.     if test -f kit${iskit}isdone; then
  2685.     echo "You have run kit ${iskit}."
  2686.     else
  2687.     echo "You still need to run kit ${iskit}."
  2688.     config=false
  2689.     fi
  2690. done
  2691. case $config in
  2692.     true)
  2693.     echo "You have run all your kits.  Please read README and then type Configure."
  2694.     chmod 755 Configure
  2695.     ;;
  2696. esac
  2697. : I do not append .signature, but someone might mail this.
  2698. exit
  2699.  
  2700.