home *** CD-ROM | disk | FTP | other *** search
/ Usenet 1994 October / usenetsourcesnewsgroupsinfomagicoctober1994disk2.iso / unix / volume1 / rn / part08 < prev    next >
Internet Message Format  |  1986-11-30  |  63KB
  1. Date: Tue, 7 May 85 14:05:44 pdt
  2. From: allegra!sdcrdcf!RDCF.SDC.UUCP!lwall (Larry Wall)
  3. Newsgroups: mod.sources
  4. Subject: rn version 4.3 (kit 8 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 8 (of 9).  If kit 8 is complete, the line"
  14. echo '"'"End of kit 8 (of 9)"'" will echo at the end.'
  15. echo ""
  16. export PATH || (echo "You didn't use sh, you clunch." ; kill $$)
  17. echo Extracting addng.c
  18. cat >addng.c <<'!STUFFY!FUNK!'
  19. /* $Header: addng.c,v 4.3 85/05/01 11:34:41 lwall Exp $
  20.  *
  21.  * $Log:    addng.c,v $
  22.  * Revision 4.3  85/05/01  11:34:41  lwall
  23.  * Baseline for release with 4.3bsd.
  24.  * 
  25.  */
  26.  
  27. #include "EXTERN.h"
  28. #include "common.h"
  29. #include "rn.h"
  30. #include "ngdata.h"
  31. #include "last.h"
  32. #include "util.h"
  33. #include "intrp.h"
  34. #include "only.h"
  35. #include "rcstuff.h"
  36. #include "INTERN.h"
  37. #include "addng.h"
  38.  
  39. void
  40. addng_init()
  41. {
  42.     ;
  43. }
  44.  
  45. #ifdef FINDNEWNG
  46. /* generate a list of new newsgroups from active file */
  47.  
  48. bool
  49. newlist(munged,checkinlist)
  50. bool munged;                /* are we scanning the whole file? */
  51. bool checkinlist;
  52. {
  53.     char *tmpname;
  54.     register char *s;
  55.     long birthof();
  56.  
  57.     tmpname = savestr(filexp("/tmp/rnew.%$"));
  58.     tmpfp = fopen(tmpname,"w");
  59.     if (tmpfp == Nullfp) {
  60.     printf(cantcreate,tmpname) FLUSH;
  61.     return FALSE;
  62.     }
  63.     while (fgets(buf,LBUFLEN,actfp) != Nullch) {
  64.     if (s = index(buf,' ')) {
  65.         *s++ = '\0';
  66.         if (strnEQ(buf,"to.",3))
  67.         continue;
  68.         if (find_ng(buf) == nextrcline &&
  69.             (checkinlist ?
  70.             (inlist(buf)) :
  71.             (birthof(buf,(ART_NUM)atol(s)) > lasttime)
  72.             )
  73.         ) {
  74.                     /* if not in .newsrc and younger */
  75.                     /* than the last time we checked */
  76.         fprintf(tmpfp,"%s\n",buf);
  77.                     /* then remember said newsgroup */
  78.         }
  79. #ifdef FASTNEW
  80.         else {            /* not really a new group */
  81.         if (!munged) {        /* did we assume not munged? */
  82.             fclose(tmpfp);    /* then go back, knowing that */
  83.             UNLINK(tmpname);
  84.             free(tmpname);
  85.             return TRUE;    /* active file was indeed munged */
  86.         }
  87.         }
  88. #endif
  89.     }
  90. #ifdef DEBUGGING
  91.     else
  92.         printf("Bad active record: %s\n",buf) FLUSH;
  93. #endif
  94.     }
  95.  
  96.     /* we have successfully generated the list */
  97.  
  98.     fclose(tmpfp);
  99.     tmpfp = fopen(tmpname,"r");
  100.     UNLINK(tmpname);            /* be nice to the world */
  101.     if (tmpfp == Nullfp) {
  102.     printf(cantopen,tmpname) FLUSH;
  103.     return FALSE;
  104.     }
  105.     while (fgets(buf,LBUFLEN,tmpfp) != Nullch) {
  106.     buf[strlen(buf)-1] = '\0';
  107.     get_ng(buf,TRUE);        /* add newsgroup, maybe */
  108.     }
  109.     fclose(tmpfp);            /* be nice to ourselves */
  110.     free(tmpname);
  111.     return FALSE;            /* do not call us again */
  112. }
  113.  
  114. /* return creation time of newsgroup */
  115.  
  116. long
  117. birthof(ngnam,ngsize)
  118. char *ngnam;
  119. ART_NUM ngsize;
  120. {
  121.     char tst[128];
  122.  
  123.     sprintf(tst, ngsize ? "%s/%s/1" : "%s/%s" ,spool,getngdir(ngnam));
  124.     if (stat(tst,&filestat) < 0)
  125.     return 0L;            /* not there, assume ancient */
  126.     else
  127.     return filestat.st_mtime;
  128. }
  129.  
  130. bool
  131. scanactive()
  132. {
  133.     NG_NUM oldnext = nextrcline;    /* remember # lines in newsrc */
  134.  
  135.     fseek(actfp,0L,0);
  136.     newlist(TRUE,TRUE);
  137.     if (nextrcline != oldnext) {    /* did we add any new groups? */
  138.     return TRUE;
  139.     }
  140.     return FALSE;
  141. }
  142.  
  143. #endif
  144.  
  145. !STUFFY!FUNK!
  146. echo Extracting Pnews.1
  147. cat >Pnews.1 <<'!STUFFY!FUNK!'
  148. ''' $Header: Pnews.1,v 4.3 85/05/01 11:33:50 lwall Exp $
  149. ''' 
  150. ''' $Log:    Pnews.1,v $
  151. ''' Revision 4.3  85/05/01  11:33:50  lwall
  152. ''' Baseline for release with 4.3bsd.
  153. ''' 
  154. .de Sh
  155. .br
  156. .ne 5
  157. .PP
  158. \fB\\$1\fR
  159. .PP
  160. ..
  161. .de Sp
  162. .if t .sp .5v
  163. .if n .sp
  164. ..
  165. '''
  166. '''     Set up \*(-- to give an unbreakable dash;
  167. '''     string Tr holds user defined translation string.
  168. '''     Bell System Logo is used as a dummy character.
  169. '''
  170. .ie n \{\
  171. .tr \(bs-\*(Tr
  172. .ds -- \(bs-
  173. .if (\n(.H=4u)&(1m=24u) .ds -- \(bs\h'-12u'\(bs\h'-12u'-\" diablo 10 pitch
  174. .if (\n(.H=4u)&(1m=20u) .ds -- \(bs\h'-12u'\(bs\h'-8u'-\" diablo 12 pitch
  175. .ds L" ""
  176. .ds R" ""
  177. .ds L' '
  178. .ds R' '
  179. 'br\}
  180. .el\{\
  181. .ds -- \(em\|
  182. .tr \*(Tr
  183. .ds L" ``
  184. .ds R" ''
  185. .ds L' `
  186. .ds R' '
  187. 'br\}
  188. .TH PNEWS 1 LOCAL
  189. .SH NAME
  190. Pnews - a program for posting news articles
  191. .SH SYNOPSIS
  192. .B Pnews newsgroup title
  193. .br
  194.   or
  195. .br
  196. .B Pnews -h headerfile [oldarticle]
  197. .br
  198.   or
  199. .br
  200. .B Pnews
  201. .SH DESCRIPTION
  202. Pnews is a friendly interface for posting news articles.
  203. It will ask several questions, then allow you to enter your article,
  204. and then post it using the inews(1) program.
  205. If you type h and a carriage return at any point,
  206. .I Pnews
  207. will tell you what it wants to know.
  208. .PP
  209. The -h form is used when invoked from
  210. .IR rn .
  211. If your editor can edit multiple files, and you want the article to which
  212. you are replying to show up as an alternate file, define the environment
  213. variable NEWSPOSTER as \*(L"Pnews -h %h %A\*(R".
  214. You can also modify the the NEWSHEADER environment variable to change the
  215. header file that
  216. .I rn
  217. passes to Pnews.
  218. .SH ENVIRONMENT
  219. .IP DOTDIR 8
  220. Where to find your dot files, if they aren't in your home directory.
  221. .Sp
  222. Default: $HOME
  223. .IP EDITOR 8
  224. The editor you want to use, if VISUAL is undefined.
  225. .Sp
  226. Default: whatever your news administrator installed, usually vi.
  227. .IP HOME 8
  228. Your home directory.
  229. .Sp
  230. Default: $LOGDIR
  231. .IP LOGDIR 8
  232. Your home directory if HOME is undefined.
  233. .IP LOGNAME 8
  234. Your login name, if USER is undefined.
  235. .Sp
  236. Default: value of \*(L"whoami\*(R".
  237. .IP NAME 8
  238. Your full name.
  239. .Sp
  240. Default: name from /etc/passwd, or ~/.fullname.
  241. .IP ORGANIZATION 8
  242. Either the name of your organization, or the name of a file containing the
  243. name of your organization.
  244. .Sp
  245. Default: whatever your news administrator chose.
  246. .IP USER 8
  247. Your login name.
  248. .Sp
  249. Default: $LOGNAME
  250. .IP VISUAL 8
  251. The editor you want to use.
  252. .Sp
  253. Default: $EDITOR
  254. .SH FILES
  255. /tmp/article$$
  256. .br
  257. ~/dead.article
  258. .SH SEE ALSO
  259. rn(1), Rnmail(1), inews(1)
  260. .SH DIAGNOSTICS
  261. .SH BUGS
  262. Not the speediest program in the world, but maybe that's a blessing to the
  263. net.
  264. !STUFFY!FUNK!
  265. echo Extracting Rnmail.1
  266. cat >Rnmail.1 <<'!STUFFY!FUNK!'
  267. ''' $Header: Rnmail.1,v 4.3 85/05/01 11:34:28 lwall Exp $
  268. ''' 
  269. ''' $Log:    Rnmail.1,v $
  270. ''' Revision 4.3  85/05/01  11:34:28  lwall
  271. ''' Baseline for release with 4.3bsd.
  272. ''' 
  273. .de Sh
  274. .br
  275. .ne 5
  276. .PP
  277. \fB\\$1\fR
  278. .PP
  279. ..
  280. .de Sp
  281. .if t .sp .5v
  282. .if n .sp
  283. ..
  284. '''
  285. '''     Set up \*(-- to give an unbreakable dash;
  286. '''     string Tr holds user defined translation string.
  287. '''     Bell System Logo is used as a dummy character.
  288. '''
  289. .ie n \{\
  290. .tr \(bs-\*(Tr
  291. .ds -- \(bs-
  292. .if (\n(.H=4u)&(1m=24u) .ds -- \(bs\h'-12u'\(bs\h'-12u'-\" diablo 10 pitch
  293. .if (\n(.H=4u)&(1m=20u) .ds -- \(bs\h'-12u'\(bs\h'-8u'-\" diablo 12 pitch
  294. .ds L" ""
  295. .ds R" ""
  296. .ds L' '
  297. .ds R' '
  298. 'br\}
  299. .el\{\
  300. .ds -- \(em\|
  301. .tr \*(Tr
  302. .ds L" ``
  303. .ds R" ''
  304. .ds L' `
  305. .ds R' '
  306. 'br\}
  307. .TH RNMAIL 1 LOCAL
  308. .SH NAME
  309. Rnmail - a program for replying via mail
  310. .SH SYNOPSIS
  311. .B Rnmail destination_list
  312. .br
  313.   or
  314. .br
  315. .B Rnmail -h headerfile [oldarticle]
  316. .br
  317.   or
  318. .br
  319. .B Rnmail
  320. .SH DESCRIPTION
  321. Rnmail is a friendly interface for mailing replies to news articles.
  322. It will ask several questions, then allow you to enter your letter,
  323. and then mail it off.
  324. If you type h and a carriage return at any point,
  325. .I Rnmail
  326. will tell you what it wants to know.
  327. .PP
  328. The -h form is used when invoked from
  329. .IR rn .
  330. If your editor can edit multiple files, and you want the article to which
  331. you are replying to show up as an alternate file, define the environment
  332. variable MAILPOSTER as \*(L"Rnmail -h %h %A\*(R".
  333. You can also modify the the MAILHEADER environment variable to change the
  334. header file that
  335. .I rn
  336. passes to Rnmail.
  337. .SH ENVIRONMENT
  338. .IP EDITOR 8
  339. The editor you want to use, if VISUAL is undefined.
  340. .Sp
  341. Default: whatever your news administrator installed, usually vi.
  342. .IP HOME 8
  343. Your home directory.
  344. .Sp
  345. Default: $LOGDIR
  346. .IP LOGDIR 8
  347. Your home directory if HOME is undefined.
  348. .IP LOGNAME 8
  349. Your login name, if USER is undefined.
  350. .Sp
  351. Default: value of \*(L"whoami\*(R".
  352. .IP ORGANIZATION 8
  353. Either the name of your organization, or the name of a file containing the
  354. name of your organization.
  355. .Sp
  356. Default: whatever your news administrator chose.
  357. .IP USER 8
  358. Your login name.
  359. .Sp
  360. Default: $LOGNAME
  361. .IP VISUAL 8
  362. The editor you want to use.
  363. .Sp
  364. Default: $EDITOR
  365. .SH FILES
  366. /tmp/rnmail$$
  367. .br
  368. ~/dead.letter
  369. .SH SEE ALSO
  370. rn(1), Pnews(1), mail(1)
  371. .SH DIAGNOSTICS
  372. .SH BUGS
  373. Uses /bin/mail in the absence of sendmail.
  374. !STUFFY!FUNK!
  375. echo Extracting only.c
  376. cat >only.c <<'!STUFFY!FUNK!'
  377. /* $Header: only.c,v 4.3 85/05/01 11:45:21 lwall Exp $
  378.  *
  379.  * $Log:    only.c,v $
  380.  * Revision 4.3  85/05/01  11:45:21  lwall
  381.  * Baseline for release with 4.3bsd.
  382.  * 
  383.  */
  384.  
  385. #include "EXTERN.h"
  386. #include "common.h"
  387. #include "search.h"
  388. #include "util.h"
  389. #include "final.h"
  390. #include "ngsrch.h"
  391. #include "INTERN.h"
  392. #include "only.h"
  393.  
  394. void
  395. only_init()
  396. {
  397.     ;
  398. }
  399.  
  400. void
  401. setngtodo(pat)
  402. char *pat;
  403. {
  404.     char *s;
  405.  
  406. #ifdef ONLY
  407.     if (!*pat)
  408.     return;
  409.     if (maxngtodo < NGMAX) {
  410.     ngtodo[maxngtodo] = savestr(pat);
  411. #ifdef SPEEDOVERMEM
  412. #ifndef lint
  413.     compextodo[maxngtodo] = (COMPEX*)safemalloc(sizeof(COMPEX));
  414. #endif lint
  415.     init_compex(compextodo[maxngtodo]);
  416.     compile(compextodo[maxngtodo],pat,TRUE,TRUE);
  417.     if ((s = ng_comp(compextodo[maxngtodo],pat,TRUE,TRUE)) != Nullch) {
  418.                         /* compile regular expression */
  419.         printf("\n%s\n",s) FLUSH;
  420.         finalize(1);
  421.     }
  422. #endif
  423.     maxngtodo++;
  424.     }
  425. #else
  426.     notincl("o");
  427. #endif
  428. }
  429.  
  430. /* if command line list is non-null, is this newsgroup wanted? */
  431.  
  432. bool
  433. inlist(ngnam)
  434. char *ngnam;
  435. {
  436. #ifdef ONLY
  437.     register int i;
  438. #ifdef SPEEDOVERMEM
  439.  
  440.     if (maxngtodo == 0)
  441.     return TRUE;
  442.     for (i=0; i<maxngtodo; i++) {
  443.     if (execute(compextodo[i],ngnam))
  444.         return TRUE;
  445.     }
  446.     return FALSE;
  447. #else
  448.     COMPEX ilcompex;
  449.     char *s;
  450.  
  451.     if (maxngtodo == 0)
  452.     return TRUE;
  453.     init_compex(&ilcompex);
  454.     for (i=0; i<maxngtodo; i++) {
  455.     if ((s = ng_comp(&ilcompex,ngtodo[i],TRUE,TRUE)) != Nullch) {
  456.                         /* compile regular expression */
  457.         printf("\n%s\n",s) FLUSH;
  458.         finalize(1);
  459.     }
  460.     
  461.     if (execute(&ilcompex,ngnam) != Nullch) {
  462.         free_compex(&ilcompex);
  463.         return TRUE;
  464.     }
  465.     }
  466.     free_compex(&ilcompex);
  467.     return FALSE;
  468. #endif
  469. #else
  470.     return TRUE;
  471. #endif
  472. }
  473.  
  474. #ifdef ONLY
  475. void
  476. end_only()
  477. {
  478.     if (maxngtodo) {            /* did they specify newsgroup(s) */
  479.     int whicharg;
  480.  
  481. #ifdef VERBOSE
  482.     IF(verbose)
  483.         printf("\nRestriction %s%s removed.\n",ngtodo[0],
  484.         maxngtodo > 1 ? ", etc." : nullstr) FLUSH;
  485.     ELSE
  486. #endif
  487. #ifdef TERSE
  488.         fputs("\nExiting \"only\".\n",stdout) FLUSH;
  489. #endif
  490.     for (whicharg = 0; whicharg < maxngtodo; whicharg++) {
  491.         free(ngtodo[whicharg]);
  492. #ifdef SPEEDOVERMEM
  493.         free_compex(compextodo[whicharg]);
  494. #ifndef lint
  495.         free((char*)compextodo[whicharg]);
  496. #endif lint
  497. #endif
  498.     }
  499.     maxngtodo = 0;
  500.     }
  501. }
  502. #endif
  503. !STUFFY!FUNK!
  504. echo Extracting backpage.c
  505. cat >backpage.c <<'!STUFFY!FUNK!'
  506. /* $Header: backpage.c,v 4.3 85/05/01 11:36:03 lwall Exp $
  507.  *
  508.  * $Log:    backpage.c,v $
  509.  * Revision 4.3  85/05/01  11:36:03  lwall
  510.  * Baseline for release with 4.3bsd.
  511.  * 
  512.  */
  513.  
  514. #include "EXTERN.h"
  515. #include "common.h"
  516. #include "intrp.h"
  517. #include "final.h"
  518. #include "INTERN.h"
  519. #include "backpage.h"
  520.  
  521. ART_LINE maxindx = -1;
  522. long lseek();
  523.  
  524. void
  525. backpage_init()
  526. {
  527.     char *varyname;
  528.     
  529.     varyname = filexp(VARYNAME);
  530.     close(creat(varyname,0600));
  531.     varyfd = open(varyname,2);
  532.     UNLINK(varyname);
  533.     if (varyfd < 0) {
  534.     printf(cantopen,varyname) FLUSH;
  535.     sig_catcher(0);
  536.     }
  537.     
  538. }
  539.  
  540. /* virtual array read */
  541.  
  542. ART_POS
  543. vrdary(indx)
  544. ART_LINE indx;
  545. {
  546.     int subindx;
  547.     long offset;
  548.  
  549. #ifdef DEBUGGING
  550.     if (indx > maxindx) {
  551.     printf("vrdary(%ld) > %ld\n",(long)indx, (long)maxindx) FLUSH;
  552.     return 0;
  553.     }
  554. #endif
  555.     if (indx < 0)
  556.     return 0;
  557.     subindx = indx % VARYSIZE;
  558.     offset = (indx - subindx) * sizeof(varybuf[0]);
  559.     if (offset != oldoffset) {
  560.     if (oldoffset >= 0) {
  561. #ifndef lint
  562.         (void)lseek(varyfd,oldoffset,0);
  563.         write(varyfd, (char *)varybuf,sizeof(varybuf));
  564. #endif lint
  565.     }
  566. #ifndef lint
  567.     (void)lseek(varyfd,offset,0);
  568.     read(varyfd,(char *)varybuf,sizeof(varybuf));
  569. #endif lint
  570.     oldoffset = offset;
  571.     }
  572.     return varybuf[subindx];
  573. }
  574.  
  575. /* write to virtual array */
  576.  
  577. void
  578. vwtary(indx,newvalue)
  579. ART_LINE indx;
  580. ART_POS newvalue;
  581. {
  582.     int subindx;
  583.     long offset;
  584.  
  585. #ifdef DEBUGGING
  586.     if (indx < 0)
  587.     printf("vwtary(%ld)\n",(long)indx) FLUSH;
  588.     if (!indx)
  589.     maxindx = 0;
  590.     if (indx > maxindx) {
  591.     if (indx != maxindx + 1)
  592.         printf("indx skipped %d-%d\n",maxindx+1,indx-1) FLUSH;
  593.     maxindx = indx;
  594.     }
  595. #endif
  596.     subindx = indx % VARYSIZE;
  597.     offset = (indx - subindx) * sizeof(varybuf[0]);
  598.     if (offset != oldoffset) {
  599.     if (oldoffset >= 0) {
  600. #ifndef lint
  601.         (void)lseek(varyfd,oldoffset,0);
  602.         write(varyfd,(char *)varybuf,sizeof(varybuf));
  603. #endif lint
  604.     }
  605. #ifndef lint
  606.     (void)lseek(varyfd,offset,0);
  607.     read(varyfd,(char *)varybuf,sizeof(varybuf));
  608. #endif lint
  609.     oldoffset = offset;
  610.     }
  611.     varybuf[subindx] = newvalue;
  612. }
  613.  
  614. !STUFFY!FUNK!
  615. echo Extracting makedepend.SH
  616. cat >makedepend.SH <<'!STUFFY!FUNK!'
  617. case $CONFIG in
  618.     '') . config.sh ;;
  619. esac
  620. echo "Extracting makedepend (with variable substitutions)"
  621. $spitshell >makedepend <<!GROK!THIS!
  622. $startsh
  623. # $Header: makedepend.SH,v 4.3 85/05/01 11:42:26 lwall Exp $
  624. #
  625. # $Log:    makedepend.SH,v $
  626. # Revision 4.3  85/05/01  11:42:26  lwall
  627. # Baseline for release with 4.3bsd.
  628. # 
  629.  
  630. export PATH || (echo "OOPS, this isn't sh.  Desperation time.  I will feed myself to sh."; sh \$0; kill \$\$)
  631.  
  632. $cat /dev/null >.deptmp
  633. $echo "(Note: this is going to take a while.)"
  634. $rm -f X*.c
  635. for file in *.c; do
  636.     filebase=\`basename \$file .c\`
  637.     $echo "Finding dependencies for \$filebase.o."
  638.     $sed -n <\$file >X\$file \\
  639.     -e "/^\${filebase}_init(/q" \\
  640.     -e '/^#/{' \\
  641.     -e 's|/\*.*$||' \\
  642.     -e p \\
  643.     -e '}'
  644.     $cpp X\$file | $sed  \\
  645.     -e '/^# *[0-9]/!d' \\
  646.     -e 's/^.*"\(.*\)".*\$/'\$filebase'.o: \1/' \\
  647.     -e 's|: \./|: |' \\
  648.     -e 's|: X|: |' | \\
  649.     $uniq | $sort | $uniq >> .deptmp
  650. done
  651.  
  652. for file in *.SH; do
  653.     $echo \`basename \$file .SH\`: \$file config.sh \; /bin/sh \$file >> .deptmp
  654. done
  655.  
  656. $sed <Makefile >Makefile.new -e '1,/^# AUTOMATICALLY/!d'
  657.  
  658. if $test -s .deptmp; then
  659.     echo "Updating Makefile..."
  660.     echo "# If this runs make out of memory, delete /usr/include lines." >>Makefile.new
  661.     $cat .deptmp >>Makefile.new
  662. else
  663.     $echo "You don't seem to have a proper C preprocessor.  Using grep instead."
  664.     $egrep '^#include ' *.c *.h >.deptmp
  665.     echo "Updating Makefile..."
  666.     <.deptmp $sed -n 's|c:#include "\(.*\)".*\$\$|o: \1|p' >> Makefile.new
  667.     <.deptmp $sed -n 's|c:#include <\(.*\)>.*\$\$|o: /usr/include/\1|p' >> Makefile.new
  668.     <.deptmp $sed -n 's|h:#include "\(.*\)".*\$\$|h: \1|p' >> Makefile.new
  669.     <.deptmp $sed -n 's|h:#include <\(.*\)>.*\$\$|h: /usr/include/\1|p' >> Makefile.new
  670. fi
  671. $mv Makefile Makefile.old
  672. $mv Makefile.new Makefile
  673. $echo "# WARNING: Put nothing here or make depend will gobble it up!" >> Makefile
  674. rm .deptmp X*.c
  675.  
  676. !GROK!THIS!
  677. $eunicefix makedepend
  678. chmod 755 makedepend
  679. !STUFFY!FUNK!
  680. echo Extracting subs.help.SH
  681. cat >subs.help.SH <<'!STUFFY!FUNK!'
  682. case $CONFIG in
  683.     '') . config.sh ;;
  684. esac
  685. echo "Extracting subs.help (with variable substitutions)"
  686. $spitshell >subs.help <<!GROK!THIS!
  687. $startsh
  688. # $Header: subs.help.SH,v 4.3 85/05/01 11:50:50 lwall Exp $
  689. # 
  690. # $Log:    subs.help.SH,v $
  691. # Revision 4.3  85/05/01  11:50:50  lwall
  692. # Baseline for release with 4.3bsd.
  693. # 
  694.  
  695. $pager <<'EOT'
  696. Valid substitutions are:
  697.  
  698. a    Current article number
  699. A    Full name of current article (%P/%c/%a)
  700. b    Destination of last save command, often a mailbox
  701. B    Bytes to ignore at beginning of last saved article
  702. c    Current newsgroup, directory form
  703. C    Current newsgroup, dot form
  704. d    Full name of newsgroup directory (%P/%c)
  705. D    Distribution line from current article\
  706. f    Who the current article is from
  707. F    Newsgroups to followup to (from Newsgroups and Followup-To)
  708. h    (This help message)
  709. H    Host name (yours)
  710. i    Message-I.D. line from current article, with <>
  711. I    Reference indicator mark (see -F switch)
  712. l    News administrator's login name, if any
  713. L    Login name (yours)
  714. m    Current mode, first letter of (init,newsgroup,article,pager,misc)
  715. M    Number of article marked with M
  716. n    Newsgroups from current article
  717. N    Full name (yours)
  718. o    Organization (yours)
  719. O    Original working directory (where you ran rn from)
  720. p    Your private news directory (from -d)
  721. P    Public news spool directory
  722. r    Last reference (parent article id)
  723. R    References list for followup article
  724. s    Subject, with all Re's and (nf)'s stripped off
  725. S    Subject, with one Re stripped off\
  726. t    New To line derived from From and Reply-To (Internet format)
  727. T    New To line derived from Path
  728. u    Number of unread articles
  729. U    Number of unread articles not counting current article
  730. x    News library directory
  731. X    Rn library directory
  732. z    Length of current article in bytes
  733. ~    Your home directory
  734. .    Directory containing . files
  735. $    Current process number
  736. /    Last search string
  737. ESC    Run preceding command through % interpretation
  738. EOT
  739. !GROK!THIS!
  740. $eunicefix subs.help
  741. chmod 755 subs.help
  742. !STUFFY!FUNK!
  743. echo Extracting ndir.c
  744. cat >ndir.c <<'!STUFFY!FUNK!'
  745. /* $Header: ndir.c,v 4.3 85/05/01 11:42:55 lwall Exp $
  746.  *
  747.  * $Log:    ndir.c,v $
  748.  * Revision 4.3  85/05/01  11:42:55  lwall
  749.  * Baseline for release with 4.3bsd.
  750.  * 
  751.  */
  752.  
  753. #include "EXTERN.h"
  754. #include "common.h"
  755. #include "INTERN.h"
  756. #include "ndir.h"
  757.  
  758. #ifdef USENDIR
  759. /*
  760.  * support for Berkeley directory reading routine on a V7 file system
  761.  */
  762.  
  763. /*
  764.  * open a directory.
  765.  */
  766. DIR *
  767. opendir(name)
  768. char *name;
  769. {
  770.     register DIR *dirp;
  771.     register int fd;
  772.  
  773.     if ((fd = open(name, 0)) == -1)
  774.         return NULL;
  775.     if ((dirp = (DIR *)malloc(sizeof(DIR))) == NULL) {
  776.         close (fd);
  777.         return NULL;
  778.     }
  779.     dirp->dd_fd = fd;
  780.     dirp->dd_loc = 0;
  781.     return dirp;
  782. }
  783.  
  784. /*
  785.  * read an old style directory entry and present it as a new one
  786.  */
  787. #ifndef pyr
  788. #define    ODIRSIZ    14
  789.  
  790. struct    olddirect {
  791.     short    od_ino;
  792.     char    od_name[ODIRSIZ];
  793. };
  794. #else    an Pyramid in the ATT universe
  795. #define    ODIRSIZ    248
  796.  
  797. struct    olddirect {
  798.     long    od_ino;
  799.     short    od_fill1, od_fill2;
  800.     char    od_name[ODIRSIZ];
  801. };
  802. #endif
  803.  
  804. /*
  805.  * get next entry in a directory.
  806.  */
  807. struct direct *
  808. readdir(dirp)
  809. register DIR *dirp;
  810. {
  811.     register struct olddirect *dp;
  812.     static struct direct dir;
  813.  
  814.     for (;;) {
  815.         if (dirp->dd_loc == 0) {
  816.             dirp->dd_size = read(dirp->dd_fd, dirp->dd_buf,
  817.                 DIRBLKSIZ);
  818.             if (dirp->dd_size <= 0)
  819.                 return NULL;
  820.         }
  821.         if (dirp->dd_loc >= dirp->dd_size) {
  822.             dirp->dd_loc = 0;
  823.             continue;
  824.         }
  825.         dp = (struct olddirect *)(dirp->dd_buf + dirp->dd_loc);
  826.         dirp->dd_loc += sizeof(struct olddirect);
  827.         if (dp->od_ino == 0)
  828.             continue;
  829.         dir.d_ino = dp->od_ino;
  830.         strncpy(dir.d_name, dp->od_name, ODIRSIZ);
  831.         dir.d_name[ODIRSIZ] = '\0'; /* insure null termination */
  832.         dir.d_namlen = strlen(dir.d_name);
  833.         dir.d_reclen = DIRSIZ(&dir);
  834.         return (&dir);
  835.     }
  836. }
  837.  
  838. /*
  839.  * close a directory.
  840.  */
  841. void
  842. closedir(dirp)
  843. register DIR *dirp;
  844. {
  845.     close(dirp->dd_fd);
  846.     dirp->dd_fd = -1;
  847.     dirp->dd_loc = 0;
  848.     free(dirp);
  849. }
  850. #endif USENDIR
  851. !STUFFY!FUNK!
  852. echo Extracting header.c.1.pat
  853. cat >header.c.1.pat <<'!STUFFY!FUNK!'
  854. NOTE: the preceding context may be different under 2.10.2, but you should
  855. be able to figure it out anyway.
  856.  
  857. *** header.old.c    Fri Apr 27 11:30:49 1984
  858. --- header.c    Mon Feb 27 10:44:03 1984
  859. ***************
  860. *** 107,112
  861.   #define NUMLINES    19
  862.   #define KEYWORDS    20
  863.   #define APPROVED    21
  864.   #define OTHER        99
  865.   
  866.   char *malloc();
  867.  
  868. --- 107,115 -----
  869.   #define NUMLINES    19
  870.   #define KEYWORDS    20
  871.   #define APPROVED    21
  872. + #ifdef DOXREFS
  873. + #define XREF        98
  874. + #endif DOXREFS
  875.   #define OTHER        99
  876.   
  877.   char *malloc();
  878. ***************
  879. *** 201,206
  880.                   seenrelay = 1;
  881.               }
  882.               break;
  883.           case OTHER:
  884.               if (unreccnt < NUNREC) {
  885.                   hp->unrec[unreccnt] = malloc(strlen(bfr) + 1);
  886.  
  887. --- 204,214 -----
  888.                   seenrelay = 1;
  889.               }
  890.               break;
  891. + #ifdef DOXREFS
  892. +         case XREF:
  893. +             getfield(hp->xref);
  894. +             break;
  895. + #endif DOXREFS
  896.           case OTHER:
  897.               if (unreccnt < NUNREC) {
  898.                   hp->unrec[unreccnt] = malloc(strlen(bfr) + 1);
  899. ***************
  900. *** 398,403
  901.           return KEYWORDS;
  902.       if (its("Approved: "))
  903.           return APPROVED;
  904.       return OTHER;
  905.   }
  906.   
  907.  
  908. --- 406,415 -----
  909.           return KEYWORDS;
  910.       if (its("Approved: "))
  911.           return APPROVED;
  912. + #ifdef DOXREFS
  913. +     if (its("Xref: "))
  914. +         return XREF;
  915. + #endif DOXREFS
  916.       return OTHER;
  917.   }
  918.   
  919. ***************
  920. *** 507,512
  921.           fprintf(fp, "Keywords: %s\n", hp->keywords);
  922.       if (*hp->approved)
  923.           fprintf(fp, "Approved: %s\n", hp->approved);
  924.       for (iu = 0; iu < NUNREC; iu++) {
  925.           if (hp->unrec[iu])
  926.               fprintf(fp, "%s", &hp->unrec[iu][0]);
  927.  
  928. --- 519,528 -----
  929.           fprintf(fp, "Keywords: %s\n", hp->keywords);
  930.       if (*hp->approved)
  931.           fprintf(fp, "Approved: %s\n", hp->approved);
  932. + #ifdef DOXREFS
  933. +     if (wr == 1 && *hp->xref)
  934. +         fprintf(fp, "Xref: %s\n", hp->xref);
  935. + #endif DOXREFS
  936.       for (iu = 0; iu < NUNREC; iu++) {
  937.           if (hp->unrec[iu])
  938.               fprintf(fp, "%s", &hp->unrec[iu][0]);
  939. !STUFFY!FUNK!
  940. echo Extracting ng.help.SH
  941. cat >ng.help.SH <<'!STUFFY!FUNK!'
  942. case $CONFIG in
  943.     '') . config.sh ;;
  944. esac
  945. echo "Extracting ng.help (with variable substitutions)"
  946. $spitshell >ng.help <<!GROK!THIS!
  947. $startsh
  948. # $Header: ng.help.SH,v 4.3 85/05/01 11:44:34 lwall Exp $
  949. # 
  950. # $Log:    ng.help.SH,v $
  951. # Revision 4.3  85/05/01  11:44:34  lwall
  952. # Baseline for release with 4.3bsd.
  953. # 
  954.  
  955. $pager <<'EOT'
  956. Newsgroup Selection commands:
  957.  
  958. y,SP    Do this newsgroup now.
  959. .cmd    Do this newsgroup, executing cmd as first command.
  960. =    Equivalent to .=<carriage return>.
  961. u    Unsubscribe from this newsgroup.
  962. c    Catch up (mark this newsgroup all read).
  963.  
  964. n    Go to the next newsgroup with unread news.
  965. N    Go to the next newsgroup.
  966. p    Go to the previous newsgroup with unread news.
  967. P    Go to the previous newsgroup.
  968. -    Go to the previously displayed newsgroup.
  969. 1    Go to the first newsgroup.
  970. ^    Go to the first newsgroup with unread news.
  971. $    Go to the last newsgroup.
  972. g name    Go to the named newsgroup.  Subscribe to new newsgroups this way too.
  973. /pat    Search forward for newsgroup matching pattern.
  974. ?pat    Search backward for newsgroup matching pattern.
  975.     (Use * and ? style patterns.  Append r to include read newsgroups.)
  976. l pat    List unsubscribed newsgroups containing pattern.
  977. m name    Move named newsgroup elsewhere (no name moves current newsgroup).
  978. o pat    Only display newsgroups matching pattern.  Omit pat to unrestrict.
  979. a pat    Like o, but also scans for unsubscribed newsgroups matching pattern.
  980. L    List current .newsrc.
  981. &    Print current command-line switch settings.
  982. &switch {switch}
  983.     Set (or unset) more command-line switches.
  984. &&    Print current macro definitions.
  985. &&def    Define a new macro.
  986. !cmd    Shell escape.
  987. q    Quit rn.
  988. ^K    Edit the global KILL file.  Use commands like /pattern/j to suppress
  989.     pattern in every newsgroup.
  990. v    Print version.
  991. EOT
  992. !GROK!THIS!
  993. $eunicefix ng.help
  994. chmod 755 ng.help
  995. !STUFFY!FUNK!
  996. echo Extracting header.c.2.pat
  997. cat >header.c.2.pat <<'!STUFFY!FUNK!'
  998. *** header.old.c    Tue Apr 30 14:33:53 1985
  999. --- header.c        Tue Apr 30 14:33:56 1985
  1000. ***************
  1001. *** 119,124
  1002.   #define APPROVED    21
  1003.   #define NFID        22
  1004.   #define NFFROM        23
  1005.   #define OTHER        99
  1006.   
  1007.   char *malloc();
  1008.  
  1009. --- 119,127 -----
  1010.   #define APPROVED    21
  1011.   #define NFID        22
  1012.   #define NFFROM        23
  1013. + #ifdef DOXREFS
  1014. + #define XREF        98
  1015. + #endif DOXREFS
  1016.   #define OTHER        99
  1017.   
  1018.   char *malloc();
  1019. ***************
  1020. *** 214,219
  1021.                   getfield(hp->relayversion);
  1022.               }
  1023.               break;
  1024.           case OTHER:
  1025.               if (unreccnt < NUNREC) {
  1026.                   if ((hp->unrec[unreccnt] = malloc((unsigned)(strlen(bfr) + 1))) != NULL ) {
  1027.  
  1028. --- 217,227 -----
  1029.                   getfield(hp->relayversion);
  1030.               }
  1031.               break;
  1032. + #ifdef DOXREFS
  1033. +         case XREF:
  1034. +             getfield(hp->xref);
  1035. +             break;
  1036. + #endif DOXREFS
  1037.           case OTHER:
  1038.               if (unreccnt < NUNREC) {
  1039.                   if ((hp->unrec[unreccnt] = malloc((unsigned)(strlen(bfr) + 1))) != NULL ) {
  1040. ***************
  1041. *** 422,427
  1042.           return NFID;
  1043.       if (its("Nf-From: "))
  1044.           return NFFROM;
  1045.       return OTHER;
  1046.   }
  1047.   
  1048.  
  1049. --- 430,439 -----
  1050.           return NFID;
  1051.       if (its("Nf-From: "))
  1052.           return NFFROM;
  1053. + #ifdef DOXREFS
  1054. +     if (its("Xref: "))
  1055. +         return XREF;
  1056. + #endif DOXREFS
  1057.       return OTHER;
  1058.   }
  1059.   
  1060. ***************
  1061. *** 536,541
  1062.           fprintf(fp, "Nf-ID: %s\n", hp->nf_id);
  1063.       if (*hp->nf_from)
  1064.           fprintf(fp, "Nf-From: %s\n", hp->nf_from);
  1065.       for (iu = 0; iu < NUNREC; iu++) {
  1066.           if (hp->unrec[iu])
  1067.               fprintf(fp, "%s", &hp->unrec[iu][0]);
  1068.  
  1069. --- 548,557 -----
  1070.           fprintf(fp, "Nf-ID: %s\n", hp->nf_id);
  1071.       if (*hp->nf_from)
  1072.           fprintf(fp, "Nf-From: %s\n", hp->nf_from);
  1073. + #ifdef DOXREFS
  1074. +     if (wr == 1 && *hp->xref)
  1075. +         fprintf(fp, "Xref: %s\n", hp->xref);
  1076. + #endif DOXREFS
  1077.       for (iu = 0; iu < NUNREC; iu++) {
  1078.           if (hp->unrec[iu])
  1079.               fprintf(fp, "%s", &hp->unrec[iu][0]);
  1080. !STUFFY!FUNK!
  1081. echo Extracting newsgroups.1
  1082. cat >newsgroups.1 <<'!STUFFY!FUNK!'
  1083. ''' $Header: newsgroups.1,v 4.3 85/05/01 11:43:32 lwall Exp $
  1084. ''' 
  1085. ''' $Log:    newsgroups.1,v $
  1086. ''' Revision 4.3  85/05/01  11:43:32  lwall
  1087. ''' Baseline for release with 4.3bsd.
  1088. ''' 
  1089. ''' 
  1090. .de Sh
  1091. .br
  1092. .ne 5
  1093. .PP
  1094. \fB\\$1\fR
  1095. .PP
  1096. ..
  1097. .de Sp
  1098. .if t .sp .5v
  1099. .if n .sp
  1100. ..
  1101. '''
  1102. '''     Set up \*(-- to give an unbreakable dash;
  1103. '''     string Tr holds user defined translation string.
  1104. '''     Bell System Logo is used as a dummy character.
  1105. '''
  1106. .ie n \{\
  1107. .tr \(bs-\*(Tr
  1108. .ds -- \(bs-
  1109. .if (\n(.H=4u)&(1m=24u) .ds -- \(bs\h'-12u'\(bs\h'-12u'-\" diablo 10 pitch
  1110. .if (\n(.H=4u)&(1m=20u) .ds -- \(bs\h'-12u'\(bs\h'-8u'-\" diablo 12 pitch
  1111. .ds L" ""
  1112. .ds R" ""
  1113. .ds L' '
  1114. .ds R' '
  1115. 'br\}
  1116. .el\{\
  1117. .ds -- \(em\|
  1118. .tr \*(Tr
  1119. .ds L" ``
  1120. .ds R" ''
  1121. .ds L' `
  1122. .ds R' '
  1123. 'br\}
  1124. .TH NEWSGROUPS 1 LOCAL
  1125. .SH NAME
  1126. newsgroups - a program to list unsubscribed newsgroups.
  1127. .SH SYNOPSIS
  1128. .B newsgroups pattern flag
  1129. .SH DESCRIPTION
  1130. The
  1131. .I newsgroups
  1132. program compares your .newsrc file with the file of active newsgroups,
  1133. and prints a list of unsubscribed newsgroups matching pattern.
  1134. If the second argument \*(L"flag\*(R" is present, only newsgroups not
  1135. found in your .newsrc are listed, and the display is not paged.
  1136. If the second argument is missing, the display is paged, and an additional
  1137. list of unsubscribed newsgroups occurring in your .newsrc is printed.
  1138. .SH ENVIRONMENT
  1139. .IP DOTDIR 8
  1140. Where to find your .newsrc, if not in your home directory.
  1141. .Sp
  1142. Default: $HOME
  1143. .IP HOME 8
  1144. Your home directory.
  1145. .Sp
  1146. Default: $LOGDIR
  1147. .IP LOGDIR 8
  1148. Your home directory if HOME is undefined.
  1149. .SH FILES
  1150. /usr/lib/news/active or a reasonable facsimile
  1151. .br
  1152. ${DOTDIR-{$HOME-$LOGDIR}}/.newsrc
  1153. .SH SEE ALSO
  1154. rn(1), newsrc(5)
  1155. .SH DIAGNOSTICS
  1156. .SH BUGS
  1157. The flag argument is a kludge.
  1158. !STUFFY!FUNK!
  1159. echo Extracting bits.h
  1160. cat >bits.h <<'!STUFFY!FUNK!'
  1161. /* $Header: bits.h,v 4.3 85/05/01 11:36:39 lwall Exp $
  1162.  *
  1163.  * $Log:    bits.h,v $
  1164.  * Revision 4.3  85/05/01  11:36:39  lwall
  1165.  * Baseline for release with 4.3bsd.
  1166.  * 
  1167.  */
  1168.  
  1169. EXT char *ctlarea INIT(Nullch);    /* one bit for each article in current newsgroup */
  1170.             /* with the following interpretation: */
  1171.             /*    0 => unread  */
  1172.             /*    1 => read    */
  1173.  
  1174. /* if subscripting is faster than shifting on your machine, define this */
  1175. #undef USESUBSCRIPT
  1176. #ifdef USESUBSCRIPT
  1177. EXT char powerof2[] INIT({1,2,4,8,16,32,64,128});
  1178. #define pow2(x) powerof2[x]
  1179. #else
  1180. #define pow2(x) (1 << (x))
  1181. #endif
  1182.  
  1183. #ifdef lint
  1184. EXT bool nonesuch INIT(FALSE);
  1185. #define ctl_set(a)
  1186. #define ctl_clear(a)
  1187. #define ctl_read(a) nonesuch
  1188. #define was_read(a) nonesuch
  1189. #else
  1190. #define ctl_set(a) (ctlarea[(OFFSET(a)) / BITSPERBYTE] |= pow2((OFFSET(a)) % BITSPERBYTE))
  1191. #define ctl_clear(a) (ctlarea[(OFFSET(a)) / BITSPERBYTE] &= ~pow2((OFFSET(a)) % BITSPERBYTE))
  1192. #define ctl_read(a) ((ctlarea[(OFFSET(a)) / BITSPERBYTE] & pow2((OFFSET(a)) % BITSPERBYTE)) != 0)
  1193.  
  1194. #define was_read(a) ((a)<firstart || ctl_read(a))
  1195. #endif lint
  1196.  
  1197. EXT ART_NUM absfirst INIT(0);    /* 1st real article in current newsgroup */
  1198. EXT ART_NUM firstart INIT(0);    /* minimum unread article number in newsgroup */
  1199. EXT ART_NUM lastart INIT(0);    /* maximum article number in newsgroup */
  1200.  
  1201. #ifdef DELAYMARK
  1202. EXT FILE *dmfp INIT(Nullfp);
  1203. EXT char *dmname INIT(Nullch);
  1204. EXT int dmcount INIT(0);
  1205. #endif
  1206.  
  1207. void    bits_init();
  1208. void    checkpoint_rc();
  1209. void    restore_ng();
  1210. void    onemore();
  1211. void    oneless();
  1212. void    unmark_as_read();
  1213. void    delay_unmark();
  1214. void    mark_as_read();
  1215. void    check_first();
  1216. #ifdef DELAYMARK
  1217.     void    yankback();
  1218. #endif
  1219. int    chase_xrefs();
  1220. int    initctl();
  1221. void    grow_ctl();
  1222. !STUFFY!FUNK!
  1223. echo Extracting pager.help.SH
  1224. cat >pager.help.SH <<'!STUFFY!FUNK!'
  1225. case $CONFIG in
  1226.     '') . config.sh ;;
  1227. esac
  1228. echo "Extracting pager.help (with variable substitutions)"
  1229. $spitshell >pager.help <<!GROK!THIS!
  1230. $startsh
  1231. # $Header: pager.help.SH,v 4.3 85/05/01 11:45:31 lwall Exp $
  1232. #
  1233. # $Log:    pager.help.SH,v $
  1234. # Revision 4.3  85/05/01  11:45:31  lwall
  1235. # Baseline for release with 4.3bsd.
  1236. # 
  1237.  
  1238. $pager <<'EOT'
  1239. Paging commands:
  1240.  
  1241. SP    Display the next page.
  1242. x    Display the next page decrypted (rot13).
  1243. d    Display half a page more.
  1244. CR    Display one more line.
  1245. ^R,v,^X    Restart the current article (v=verbose header, ^X=rot13).
  1246. ^B    Back up one page.
  1247. ^L,X    Refresh the screen (X=rot13).
  1248. g pat    Go to (search forward within article for) pattern.
  1249. G    Search again for current pattern within article.
  1250. ^G    Search for next line beginning with \"Subject:\".
  1251. TAB    Search for next line beginning with a different character.
  1252. q    Quit the pager, go to end of article.  Leave article read or unread.
  1253. j    Junk this article (mark it read).  Goes to end of article.
  1254.  
  1255. The following commands skip the rest of the current article, then behave
  1256. just as if typed to the 'What next?' prompt at the end of the article:
  1257.  
  1258. n    Scan forward for next unread article.
  1259. N    Go to next article.
  1260. ^N    Scan forward for next unread article with same title.
  1261. p,P,^P    Same as n,N,^N, only going backwards.
  1262. -    Go to previously displayed article.
  1263.  
  1264. The following commands also take you to the end of the article.
  1265. Type h at end of article for a description of these commands:
  1266.  
  1267.     # $ & / = ? c C f F k K ^K m M number r R ^R s S u v w W Y ^ |
  1268.  
  1269. (To return to the middle of the article after one of these commands, type ^L.)
  1270. EOT
  1271. !GROK!THIS!
  1272. $eunicefix pager.help
  1273. chmod 755 pager.help
  1274. !STUFFY!FUNK!
  1275. echo Extracting artio.c
  1276. cat >artio.c <<'!STUFFY!FUNK!'
  1277. /* $Header: artio.c,v 4.3 85/05/01 11:35:39 lwall Exp $
  1278.  *
  1279.  * $Log:    artio.c,v $
  1280.  * Revision 4.3  85/05/01  11:35:39  lwall
  1281.  * Baseline for release with 4.3bsd.
  1282.  * 
  1283.  */
  1284.  
  1285. #include "EXTERN.h"
  1286. #include "common.h"
  1287. #include "INTERN.h"
  1288. #include "artio.h"
  1289.  
  1290. void
  1291. artio_init()
  1292. {
  1293.     ;
  1294. }
  1295.  
  1296. /* open an article, unless it's already open */
  1297.  
  1298. FILE *
  1299. artopen(artnum)
  1300. ART_NUM artnum;
  1301. {
  1302.     char artname[8];            /* filename of current article */
  1303.  
  1304.     if (artnum < 1)
  1305.     return Nullfp;
  1306.     if (openart == artnum) {        /* this article is already open? */
  1307.     fseek(artfp,0L,0);        /* just get to the beginning */
  1308.     return artfp;            /* and say we succeeded */
  1309.     }
  1310.     if (artfp != Nullfp) {        /* it was somebody else? */
  1311.     fclose(artfp);            /* put them out of their misery */
  1312.     openart = 0;            /* and remember them no more */
  1313.     }
  1314.     sprintf(artname,"%ld",(long)artnum);
  1315.                     /* produce the name of the article */
  1316.     if (artfp = fopen(artname,"r"))    /* if we can open it */
  1317.     openart = artnum;        /* remember what we did here */
  1318. #ifdef LINKART
  1319.     {
  1320.     char tmpbuf[256];
  1321.     char *s;
  1322.  
  1323.     if (fstat(artfp->_file,&filestat))
  1324.         return artfp;
  1325.     if (filestat.st_size < (sizeof tmpbuf)) {
  1326.         fgets(tmpbuf,(sizeof tmpbuf),artfp);
  1327.         if (*tmpbuf == '/') {    /* is a "link" to another article */
  1328.         fclose(artfp);
  1329.         if (s=index(tmpbuf,'\n'))
  1330.             *s = '\0';
  1331.         if (!(artfp = fopen(tmpbuf,"r")))
  1332.             openart = 0;
  1333.         else {
  1334.             if (*linkartname)
  1335.             free(linkartname);
  1336.             linkartname = savestr(tmpbuf);
  1337.         }
  1338.         }
  1339.         else
  1340.         fseek(artfp,0L,0);        /* get back to the beginning */
  1341.     }
  1342.     }
  1343. #endif
  1344.     return artfp;            /* and return either fp or NULL */
  1345. }
  1346.  
  1347. !STUFFY!FUNK!
  1348. echo Extracting newsetup.1
  1349. cat >newsetup.1 <<'!STUFFY!FUNK!'
  1350. ''' $Header: newsetup.1,v 4.3 85/05/01 11:43:22 lwall Exp $
  1351. ''' 
  1352. ''' $Log:    newsetup.1,v $
  1353. ''' Revision 4.3  85/05/01  11:43:22  lwall
  1354. ''' Baseline for release with 4.3bsd.
  1355. ''' 
  1356. ''' 
  1357. .de Sh
  1358. .br
  1359. .ne 5
  1360. .PP
  1361. \fB\\$1\fR
  1362. .PP
  1363. ..
  1364. .de Sp
  1365. .if t .sp .5v
  1366. .if n .sp
  1367. ..
  1368. '''
  1369. '''     Set up \*(-- to give an unbreakable dash;
  1370. '''     string Tr holds user defined translation string.
  1371. '''     Bell System Logo is used as a dummy character.
  1372. '''
  1373. .ie n \{\
  1374. .tr \(bs-\*(Tr
  1375. .ds -- \(bs-
  1376. .if (\n(.H=4u)&(1m=24u) .ds -- \(bs\h'-12u'\(bs\h'-12u'-\" diablo 10 pitch
  1377. .if (\n(.H=4u)&(1m=20u) .ds -- \(bs\h'-12u'\(bs\h'-8u'-\" diablo 12 pitch
  1378. .ds L" ""
  1379. .ds R" ""
  1380. .ds L' '
  1381. .ds R' '
  1382. 'br\}
  1383. .el\{\
  1384. .ds -- \(em\|
  1385. .tr \*(Tr
  1386. .ds L" ``
  1387. .ds R" ''
  1388. .ds L' `
  1389. .ds R' '
  1390. 'br\}
  1391. .TH NEWSETUP 1 LOCAL
  1392. .SH NAME
  1393. newsetup - a program to set up a .newsrc file
  1394. .SH SYNOPSIS
  1395. .B newsetup
  1396. .SH DESCRIPTION
  1397. The
  1398. .I newsetup
  1399. program creates a new .newsrc file containing all of the currently active
  1400. newsgroups.
  1401. It tries to put them in a reasonable order, i.e. local newsgroups earlier,
  1402. but you'll probably want to change the ordering anyway (if you use
  1403. .IR rn )
  1404. in order to put interesting newsgroups first.
  1405. If you already have a .newsrc, it will be backed up with the name
  1406. \*(L".oldnewsrc\*(R".
  1407. .SH ENVIRONMENT
  1408. .IP DOTDIR 8
  1409. Where to put your .newsrc, if not in your home directory.
  1410. .Sp
  1411. Default: $HOME
  1412. .IP HOME 8
  1413. Your home directory.
  1414. .Sp
  1415. Default: $LOGDIR
  1416. .IP LOGDIR 8
  1417. Your home directory if HOME is undefined.
  1418. .SH FILES
  1419. /usr/lib/news/active or a reasonable facsimile
  1420. .br
  1421. ${DOTDIR-{$HOME-$LOGDIR}}/.newsrc
  1422. .SH SEE ALSO
  1423. rn(1), newsrc(5)
  1424. .SH DIAGNOSTICS
  1425. .SH BUGS
  1426. !STUFFY!FUNK!
  1427. echo Extracting newsgroups.SH
  1428. cat >newsgroups.SH <<'!STUFFY!FUNK!'
  1429. case $CONFIG in
  1430.     '') . config.sh ;;
  1431. esac
  1432. echo "Extracting newsgroups (with variable substitutions)"
  1433. $spitshell >newsgroups <<!GROK!THIS!
  1434. $startsh
  1435. # $Header: newsgroups.SH,v 4.3 85/05/01 11:43:27 lwall Exp $
  1436. # 
  1437. # $Log:    newsgroups.SH,v $
  1438. # Revision 4.3  85/05/01  11:43:27  lwall
  1439. # Baseline for release with 4.3bsd.
  1440. # 
  1441.  
  1442. export PATH || (echo "OOPS, this isn't sh.  Desperation time.  I will feed myself to sh."; sh \$0; kill \$\$)
  1443.  
  1444. : syntax: newsgroups [pattern] [pipeflag]
  1445.  
  1446. : System Dependencies
  1447.  
  1448. : You might want to change pager to a "make column" program if you have one.
  1449. : On the other hand, if your kernel does paging, cat would probably do.
  1450. pager="${pager-/usr/ucb/more}"
  1451. active="${active-/usr/lib/news/active}"
  1452.  
  1453. : End of system dependencies, hopefully
  1454.  
  1455. case \$active in
  1456. ~*) active=\`$filexp \$active\` ;;
  1457. esac
  1458.  
  1459. if $test \$# -ge 2 ; then
  1460.     pager=$cat
  1461. else
  1462.     $echo "Completely unsubscribed newsgroups:"
  1463. fi
  1464.  
  1465. dotdir=\${DOTDIR-\${HOME-\$LOGDIR}}
  1466.  
  1467. : Throwing .newsrc into the pot twice is a lovely hack to prevent
  1468. : bogus newsgroups from showing up as unsubscribed.
  1469.  
  1470. $cat \$dotdir/.newsrc \$dotdir/.newsrc \$active | \\
  1471. $sed    -e '/^options/d' \\
  1472.     -e '/^[     ]/d' \\
  1473.     -e '/^control/d' \\
  1474.     -e '/^to\./d' \\
  1475.     -e 's/^\([^ !:]*\)[ !:].*\$/\1/' \\
  1476.     -e "/.*\$1/p" \\
  1477.     -e 'd' | \\
  1478. $sort | $uniq -u | \$pager
  1479. if $test \$# -ge 2 ; then
  1480.     exit
  1481. fi
  1482. $echo $n "[Type return to continue] $c"
  1483. read tmp
  1484. $echo ""
  1485. $echo "Unsubscribed but mentioned in .newsrc:"
  1486. $sed < \$dotdir/.newsrc \\
  1487.     -e "/\$1.*!/"'s/^\([^!]*\)!.*\$/\1/p' \\
  1488.     -e 'd' | \\
  1489. $sort | \$pager
  1490. !GROK!THIS!
  1491. $eunicefix newsgroups
  1492. chmod 755 newsgroups
  1493. !STUFFY!FUNK!
  1494. echo Extracting ndir.h
  1495. cat >ndir.h <<'!STUFFY!FUNK!'
  1496. /* $Header: ndir.h,v 4.3 85/05/01 11:43:00 lwall Exp $
  1497.  *
  1498.  * $Log:    ndir.h,v $
  1499.  * Revision 4.3  85/05/01  11:43:00  lwall
  1500.  * Baseline for release with 4.3bsd.
  1501.  * 
  1502.  */
  1503.  
  1504. #ifdef LIBNDIR
  1505. #   include <ndir.h>
  1506. #else
  1507. #   ifndef USENDIR
  1508. #    include <sys/dir.h>
  1509. #   else
  1510.  
  1511. #ifndef DEV_BSIZE
  1512. #define    DEV_BSIZE    512
  1513. #endif
  1514. #define DIRBLKSIZ    DEV_BSIZE
  1515. #define    MAXNAMLEN    255
  1516.  
  1517. struct    direct {
  1518.     long    d_ino;            /* inode number of entry */
  1519.     short    d_reclen;        /* length of this record */
  1520.     short    d_namlen;        /* length of string in d_name */
  1521.     char    d_name[MAXNAMLEN + 1];    /* name must be no longer than this */
  1522. };
  1523.  
  1524. /*
  1525.  * The DIRSIZ macro gives the minimum record length which will hold
  1526.  * the directory entry.  This requires the amount of space in struct direct
  1527.  * without the d_name field, plus enough space for the name with a terminating
  1528.  * null byte (dp->d_namlen+1), rounded up to a 4 byte boundary.
  1529.  */
  1530. #undef DIRSIZ
  1531. #define DIRSIZ(dp) \
  1532.     ((sizeof (struct direct) - (MAXNAMLEN+1)) + (((dp)->d_namlen+1 + 3) &~ 3))
  1533.  
  1534. /*
  1535.  * Definitions for library routines operating on directories.
  1536.  */
  1537. typedef struct _dirdesc {
  1538.     int    dd_fd;
  1539.     long    dd_loc;
  1540.     long    dd_size;
  1541.     char    dd_buf[DIRBLKSIZ];
  1542. } DIR;
  1543. #ifndef NULL
  1544. #define NULL 0
  1545. #endif
  1546. extern    DIR *opendir();
  1547. extern    struct direct *readdir();
  1548. extern    long telldir();
  1549. extern    void seekdir();
  1550. #define rewinddir(dirp)    seekdir((dirp), (long)0)
  1551. extern    void closedir();
  1552.  
  1553. #   endif
  1554. #endif
  1555. !STUFFY!FUNK!
  1556. echo Extracting newsnews.SH
  1557. cat >newsnews.SH <<'!STUFFY!FUNK!'
  1558. case $CONFIG in
  1559.     '') . config.sh ;;
  1560. esac
  1561. echo "Extracting newsnews (with variable substitutions)"
  1562. cat >newsnews <<!GROK!THIS!
  1563.             *** NEWS NEWS ***
  1564.  
  1565. Welcome to rn.  There are more options to rn than you want to think about, so
  1566. we won't list them here.  If you want to find out about them, read the manual
  1567. page(s).  There are some important things to remember, though:
  1568.  
  1569.   * Rn is not a modified readnews.  Don't expect the commands to be identical.
  1570.   * Rn runs in cbreak mode.  This means you don't have to type carriage return
  1571.     on single character commands.  (There are some multi-character commands.)
  1572.   * At ANY prompt in rn, you may type 'h' for help.  There are many different
  1573.     help menus, depending on where you are in rn.  Typing <esc>h in the
  1574.     middle of a multi-character command will list escape substitutions.
  1575.   * Typing a space to any prompt means to do the normal thing.  You could
  1576.     spend all day reading news and never hit anything but the space bar.
  1577.  
  1578. This particular message comes from $rnlib/newsnews.  You will only
  1579. see it once.  You news administrator should feel free to substitute his or
  1580. her own message whenever something new happens to rn, and then the file
  1581. will again be displayed, just once for each person.
  1582.  
  1583. Larry Wall    sdcrdcf!lwall
  1584. !GROK!THIS!
  1585. $eunicefix newsnews
  1586. !STUFFY!FUNK!
  1587. echo Extracting rcstuff.h
  1588. cat >rcstuff.h <<'!STUFFY!FUNK!'
  1589. /* $Header: rcstuff.h,v 4.3 85/05/01 11:46:49 lwall Exp $
  1590.  *
  1591.  * $Log:    rcstuff.h,v $
  1592.  * Revision 4.3  85/05/01  11:46:49  lwall
  1593.  * Baseline for release with 4.3bsd.
  1594.  * 
  1595.  */
  1596.  
  1597. EXT char *rcline[MAXRCLINE];/* pointers to lines of .newsrc */
  1598. EXT ART_UNREAD toread[MAXRCLINE];
  1599.             /* number of articles to be read in newsgroup */
  1600.             /* <0 => invalid or unsubscribed newsgroup */
  1601. #define TR_ONE ((ART_UNREAD) 1)
  1602. #define TR_NONE ((ART_UNREAD) 0)
  1603. #define TR_UNSUB ((ART_UNREAD) -1)
  1604.             /* keep this one as -1, some tests use >= TR_UNSUB */
  1605. #define TR_BOGUS ((ART_UNREAD) -2)
  1606. #define TR_JUNK ((ART_UNREAD) -3)
  1607.  
  1608. EXT char rcchar[MAXRCLINE]; /* holds the character : or ! while spot is \0 */
  1609. EXT char rcnums[MAXRCLINE]; /* offset from rcline to numbers on line */
  1610. EXT ACT_POS softptr[MAXRCLINE];
  1611.             /* likely ptr to active file entry for newsgroup */
  1612. EXT bool paranoid INIT(FALSE);    /* did we detect some inconsistency in .newsrc? */
  1613.  
  1614. bool    rcstuff_init();
  1615. bool    get_ng();    /* return TRUE if newsgroup can be found or added */
  1616. NG_NUM    add_newsgroup();
  1617. #ifdef RELOCATE
  1618.     NG_NUM    relocate_newsgroup();    /* move newsgroup around */
  1619. #endif
  1620. void    list_newsgroups();
  1621. NG_NUM    find_ng();    /* return index of newsgroup */
  1622. void    cleanup_rc();
  1623. void    sethash();
  1624. int    hash();
  1625. void    newsrc_check();
  1626. void    write_rc();
  1627. void    get_old_rc();
  1628. !STUFFY!FUNK!
  1629. echo Extracting kitlists.c
  1630. cat >kitlists.c <<'!STUFFY!FUNK!'
  1631. /* $Header: kitlists.c,v 4.3 85/05/01 11:42:08 lwall Exp $
  1632.  *
  1633.  * $Log:    kitlists.c,v $
  1634.  * Revision 4.3  85/05/01  11:42:08  lwall
  1635.  * Baseline for release with 4.3bsd.
  1636.  * 
  1637.  */
  1638.  
  1639. #include <stdio.h>
  1640.  
  1641. #define MAXKIT 100
  1642. #define MAXKITSIZE 63000
  1643. #define KITOVERHEAD 700
  1644. #define FILEOVERHEAD 80
  1645.  
  1646. long tot[MAXKIT];
  1647. FILE *outfp[MAXKIT];        /* of course, not this many file descriptors */
  1648.  
  1649. main(argc,argv)
  1650. int argc;
  1651. char **argv;
  1652. {
  1653.     FILE *inp, *popen();
  1654.     char buf[1024], filnam[128];
  1655.     char *index();
  1656.     register char *s;
  1657.     register int i, newtot;
  1658.     
  1659.     sprintf(buf,"\
  1660. ls -l `awk '{print $1}' <%s'` | awk '{print $8 \" \" $4}' | sort +1nr\
  1661. ", argc > 1 ? argv[1] : "MANIFEST.new");
  1662.     inp = popen(buf,"r");
  1663.  
  1664.     while (fgets(buf,1024,inp) != Nullch) {
  1665.     s = index(buf,' ');
  1666.     *s++ = '\0';
  1667.     for (i=1;
  1668.       (newtot = tot[i] + atol(s) + FILEOVERHEAD) > MAXKITSIZE-KITOVERHEAD;
  1669.       i++) 
  1670.         ;
  1671.     if (!tot[i]) {
  1672.         sprintf(filnam,"kit%d.list",i);
  1673.         outfp[i] = fopen(filnam,"w");
  1674.     }
  1675.     tot[i] = newtot;
  1676.     printf("Adding %s to kit %d giving %d bytes\n",buf,i,newtot);
  1677.     fprintf(outfp[i],"%s\n",buf);
  1678.     }
  1679. }
  1680. !STUFFY!FUNK!
  1681. echo Extracting makedir.SH
  1682. cat >makedir.SH <<'!STUFFY!FUNK!'
  1683. case $CONFIG in
  1684.     '') . config.sh ;;
  1685. esac
  1686. echo "Extracting makedir (with variable substitutions)"
  1687. $spitshell >makedir <<!GROK!THIS!
  1688. $startsh
  1689. # $Header: makedir.SH,v 4.3 85/05/01 11:42:31 lwall Exp $
  1690. # 
  1691. # $Log:    makedir.SH,v $
  1692. # Revision 4.3  85/05/01  11:42:31  lwall
  1693. # Baseline for release with 4.3bsd.
  1694. # 
  1695.  
  1696. export PATH || (echo "OOPS, this isn't sh.  Desperation time.  I will feed myself to sh."; sh \$0; kill \$\$)
  1697.  
  1698. case \$# in
  1699.   0)
  1700.     $echo "makedir pathname filenameflag"
  1701.     exit 1
  1702.     ;;
  1703. esac
  1704.  
  1705. : guarantee one slash before 1st component
  1706. case \$1 in
  1707.   /*) ;;
  1708.   *)  set ./\$1 \$2 ;;
  1709. esac
  1710.  
  1711. : strip last component if it is to be a filename
  1712. case X\$2 in
  1713.   X1) set \`$echo \$1 | $sed 's:\(.*\)/[^/]*\$:\1:'\` ;;
  1714.   *)  set \$1 ;;
  1715. esac
  1716.  
  1717. : return reasonable status if nothing to be created
  1718. if $test -d "\$1" ; then
  1719.     exit 0
  1720. fi
  1721.  
  1722. list=''
  1723. while true ; do
  1724.     case \$1 in
  1725.     */*)
  1726.     list="\$1 \$list"
  1727.     set \`echo \$1 | $sed 's:\(.*\)/:\1 :'\`
  1728.     ;;
  1729.     *)
  1730.     break
  1731.     ;;
  1732.     esac
  1733. done
  1734.  
  1735. set \$list
  1736.  
  1737. for dir do
  1738.     $mkdir \$dir >/dev/null 2>&1
  1739. done
  1740. !GROK!THIS!
  1741. $eunicefix makedir
  1742. chmod 755 makedir
  1743. !STUFFY!FUNK!
  1744. echo Extracting search.h
  1745. cat >search.h <<'!STUFFY!FUNK!'
  1746. /* $Header: search.h,v 4.3 85/05/01 11:50:46 lwall Exp $
  1747.  *
  1748.  * $Log:    search.h,v $
  1749.  * Revision 4.3  85/05/01  11:50:46  lwall
  1750.  * Baseline for release with 4.3bsd.
  1751.  * 
  1752.  */
  1753.  
  1754. #ifndef NBRA
  1755. #define    NBRA    10        /* the maximum number of meta-brackets in an
  1756.                    RE -- \( \) */
  1757. #define NALTS    10        /* the maximum number of \|'s */
  1758.  
  1759. typedef struct {    
  1760.     char *expbuf;        /* The compiled search string */
  1761.     int eblen;            /* Length of above buffer */
  1762.     char *alternatives[NALTS];    /* The list of \| seperated alternatives */
  1763.     char *braslist[NBRA];    /* RE meta-bracket start list */
  1764.     char *braelist[NBRA];    /* RE meta-bracket end list */
  1765.     char *brastr;        /* saved match string after execute() */
  1766.     char nbra;            /* The number of meta-brackets int the most
  1767.                    recenlty compiled RE */
  1768.     bool do_folding;        /* fold upper and lower case? */
  1769. } COMPEX;
  1770.  
  1771. void    search_init();
  1772. void    init_compex();
  1773. void    free_compex();
  1774. char    *getbracket();
  1775. void    case_fold();
  1776. char    *compile(); 
  1777. void    grow_eb();
  1778. char    *execute(); 
  1779. bool    advance();
  1780. bool    backref(); 
  1781. bool    cclass(); 
  1782. #endif
  1783. !STUFFY!FUNK!
  1784. echo Extracting last.c
  1785. cat >last.c <<'!STUFFY!FUNK!'
  1786. /* $Header: last.c,v 4.3 85/05/01 11:42:16 lwall Exp $
  1787.  *
  1788.  * $Log:    last.c,v $
  1789.  * Revision 4.3  85/05/01  11:42:16  lwall
  1790.  * Baseline for release with 4.3bsd.
  1791.  * 
  1792.  */
  1793.  
  1794. #include "EXTERN.h"
  1795. #include "common.h"
  1796. #include "rn.h"
  1797. #include "util.h"
  1798. #include "intrp.h"
  1799. #include "INTERN.h"
  1800. #include "last.h"
  1801.  
  1802. char *lastname = Nullch;    /* path name of .rnlast file */
  1803.  
  1804. void
  1805. last_init(tcbuf)
  1806. char *tcbuf;
  1807. {
  1808.     lastname = savestr(filexp(LASTNAME));
  1809.     if ((tmpfp = fopen(lastname,"r")) != Nullfp) {
  1810.     fgets(tcbuf,1024,tmpfp);
  1811.     tcbuf[strlen(tcbuf)-1] = '\0';
  1812.     lastngname = savestr(tcbuf);
  1813.     fgets(tcbuf,1024,tmpfp);
  1814.     lasttime = atol(tcbuf);
  1815.     fgets(tcbuf,1024,tmpfp);
  1816.     lastactsiz = atol(tcbuf);
  1817.     fclose(tmpfp);
  1818.     }
  1819.     else {
  1820.     lastngname = nullstr;
  1821.     lasttime = 0;
  1822.     lastactsiz = 0;
  1823.     }
  1824. }
  1825.  
  1826. /* put out certain values for next run of rn */
  1827.  
  1828. void
  1829. writelast()
  1830. {
  1831.     if ((tmpfp = fopen(lastname,"w")) != Nullfp) {
  1832.     fprintf(tmpfp,"%s\n%ld\n%ld\n",ngname,(long)lasttime,(long)lastactsiz);
  1833.     fclose(tmpfp);
  1834.     }
  1835.     else
  1836.     printf(cantcreate,lastname) FLUSH;
  1837. }
  1838. !STUFFY!FUNK!
  1839. echo Extracting artsrch.h
  1840. cat >artsrch.h <<'!STUFFY!FUNK!'
  1841. /* $Header: artsrch.h,v 4.3 85/05/01 11:35:55 lwall Exp $
  1842.  *
  1843.  * $Log:    artsrch.h,v $
  1844.  * Revision 4.3  85/05/01  11:35:55  lwall
  1845.  * Baseline for release with 4.3bsd.
  1846.  * 
  1847.  */
  1848.  
  1849. #ifndef NBRA
  1850. #include "search.h"
  1851. #endif
  1852.  
  1853. #ifdef ARTSEARCH
  1854.  
  1855. #define SRCH_ABORT 0
  1856. #define SRCH_INTR 1
  1857. #define SRCH_FOUND 2
  1858. #define SRCH_NOTFOUND 3
  1859. #define SRCH_DONE 4
  1860. #define SRCH_SUBJDONE 5
  1861. #define SRCH_ERROR 6
  1862. #endif
  1863.  
  1864. EXT char *lastpat INIT(nullstr);    /* last search pattern */
  1865. #ifdef ARTSEARCH
  1866.     EXT COMPEX sub_compex;        /* last compiled subject search */
  1867.     EXT COMPEX art_compex;        /* last compiled normal search */
  1868. #   ifdef CONDSUB
  1869.     EXT COMPEX *bra_compex INIT(&art_compex);
  1870.                     /* current compex with brackets */
  1871. #   endif
  1872.     EXT char art_howmuch;        /* search just the subjects */
  1873.     EXT bool art_doread;        /* search read articles? */
  1874. #endif
  1875.  
  1876. void    artsrch_init();
  1877. #ifdef ARTSEARCH
  1878.     int        art_search();
  1879.     bool    wanted();    /* return TRUE if current article matches pattern */
  1880. #endif
  1881. !STUFFY!FUNK!
  1882. echo Extracting mbox.saver.SH
  1883. cat >mbox.saver.SH <<'!STUFFY!FUNK!'
  1884. case $CONFIG in
  1885.     '') . config.sh ;;
  1886. esac
  1887. echo "Extracting mbox.saver (with variable substitutions)"
  1888. $spitshell >mbox.saver <<!GROK!THIS!
  1889. $startsh
  1890. # $Header: mbox.saver.SH,v 4.3 85/05/01 11:42:51 lwall Exp $
  1891. # 
  1892. # $Log:    mbox.saver.SH,v $
  1893. # Revision 4.3  85/05/01  11:42:51  lwall
  1894. # Baseline for release with 4.3bsd.
  1895. # 
  1896. # 
  1897. #    Arguments:
  1898. #    1 Full name of article (%A)
  1899. #    2 Public news spool directory (%P)
  1900. #    3 Directory of current newsgroup (%c)
  1901. #    4 Article number (%a)
  1902. #    5 Where in article to start (%B)
  1903. #    6 Newsgroup name (%C)
  1904. #    7 Save destination (%b)
  1905. #    8 First line of message, normally From...
  1906. #
  1907. export PATH || (echo "OOPS, this isn't sh.  Desperation time.  I will feed myself to sh."; sh \$0; kill \$\$)
  1908.  
  1909. ( $echo "\$8"
  1910.   case "$5" in
  1911.   0) $echo "Article \$4 of \$6:" ;;
  1912.   esac
  1913.   $tail +\$5c \$1 | $sed "s/^From/>From/"
  1914.   $echo ""
  1915.   $echo "" ) >> \$7
  1916. !GROK!THIS!
  1917. $eunicefix mbox.saver
  1918. chmod 755 mbox.saver
  1919. !STUFFY!FUNK!
  1920. echo Extracting util.h
  1921. cat >util.h <<'!STUFFY!FUNK!'
  1922. /* $Header: util.h,v 4.3 85/05/01 11:51:58 lwall Exp $
  1923.  *
  1924.  * $Log:    util.h,v $
  1925.  * Revision 4.3  85/05/01  11:51:58  lwall
  1926.  * Baseline for release with 4.3bsd.
  1927.  * 
  1928.  */
  1929.  
  1930. EXT bool waiting INIT(FALSE);        /* are we waiting for subprocess (in doshell)? */
  1931. EXT int len_last_line_got INIT(0);
  1932.             /* strlen of some_buf after */
  1933.             /*  some_buf = get_a_line(bufptr,buffersize,fp) */
  1934.  
  1935. /* is the string for makedir a directory name or a filename? */
  1936.  
  1937. #define MD_DIR 0
  1938. #define MD_FILE 1
  1939.  
  1940. void    util_init();
  1941. int    doshell();
  1942. char    *safemalloc();
  1943. char    *saferealloc();
  1944. char    *safecpy();
  1945. char    *safecat();
  1946. char    *cpytill();
  1947. char    *instr();
  1948. #ifdef SETUIDGID
  1949.     int        eaccess();
  1950. #endif
  1951. char    *getwd();
  1952. void    cat();
  1953. void    prexit();
  1954. char    *get_a_line();
  1955. char    *savestr();
  1956. int    makedir();
  1957. void    setenv();
  1958. int    envix();
  1959. void    notincl();
  1960. char    *getval();
  1961. void    growstr();
  1962. void    setdef();
  1963. !STUFFY!FUNK!
  1964. echo Extracting norm.saver.SH
  1965. cat >norm.saver.SH <<'!STUFFY!FUNK!'
  1966. case $CONFIG in
  1967.     '') . config.sh ;;
  1968. esac
  1969. echo "Extracting norm.saver (with variable substitutions)"
  1970. $spitshell >norm.saver <<!GROK!THIS!
  1971. $startsh
  1972. # $Header: norm.saver.SH,v 4.3 85/05/01 11:45:16 lwall Exp $
  1973. # 
  1974. # $Log:    norm.saver.SH,v $
  1975. # Revision 4.3  85/05/01  11:45:16  lwall
  1976. # Baseline for release with 4.3bsd.
  1977. # 
  1978. # 
  1979. #    Arguments:
  1980. #    1 Full name of article (%A)
  1981. #    2 Public news spool directory (%P)
  1982. #    3 Directory of current newsgroup (%c)
  1983. #    4 Article number (%a)
  1984. #    5 Where in article to start (%B)
  1985. #    6 Newsgroup name (%C)
  1986. #    7 Save destination (%b)
  1987. #
  1988. export PATH || (echo "OOPS, this isn't sh.  Desperation time.  I will feed myself to sh."; sh \$0; kill \$\$)
  1989.  
  1990. ( case "$5" in
  1991.   0) $echo "Article \$4 of \$6:" ;;
  1992.   esac
  1993.   $tail +\$5c \$1
  1994.   $echo ""
  1995.   $echo "" ) >> \$7
  1996. !GROK!THIS!
  1997. $eunicefix norm.saver
  1998. chmod 755 norm.saver
  1999. !STUFFY!FUNK!
  2000. echo Extracting rn.h
  2001. cat >rn.h <<'!STUFFY!FUNK!'
  2002. /* $Header: rn.h,v 4.3 85/05/01 11:48:19 lwall Exp $
  2003.  *
  2004.  * $Log:    rn.h,v $
  2005.  * Revision 4.3  85/05/01  11:48:19  lwall
  2006.  * Baseline for release with 4.3bsd.
  2007.  * 
  2008.  */
  2009.  
  2010. EXT char *ngname INIT(Nullch);        /* name of current newsgroup */
  2011. EXT int ngnlen INIT(0);            /* current malloced size of ngname */
  2012. EXT char *ngdir INIT(Nullch);        /* same thing in directory name form */
  2013. EXT int ngdlen INIT(0);            /* current malloced size of ngdir */
  2014.  
  2015. EXT NG_NUM ng INIT(0);        /* current newsgroup index into rcline and toread */
  2016. EXT NG_NUM current_ng INIT(0);    /* stable current newsgroup so we can ditz with ng */
  2017. EXT NG_NUM starthere INIT(0);   /* set to the first newsgroup with unread news on startup */
  2018. EXT char *spool INIT(Nullch);        /* public news spool directory */
  2019.  
  2020. void    rn_init();
  2021. void    main();
  2022. void    set_ngname();
  2023. char    *getngdir();
  2024. !STUFFY!FUNK!
  2025. echo Extracting Wishlist
  2026. cat >Wishlist <<'!STUFFY!FUNK!'
  2027. Generalized article set manipulation
  2028.     Interface to subject listing.
  2029.     Recursive newsgroup visitation.
  2030. Virtual article abstract type to allow the following:
  2031.     Personalized header munging via % subs.
  2032.     Undigestification.
  2033.     Personal archive perusal.
  2034.     Mail handling.
  2035.     Remotely stored news.
  2036. Parent command (waiting for ARTFILE interface and recursive newsgroups).
  2037. Merge Pnews and postnews.
  2038. Vnews duplicate suppression algorithm for sites that can't do Xref patch.
  2039. Dynamic allocation of stuff currently restricted by MAXRCLINE.
  2040.     (And pull parallel arrays into array of structs).
  2041. Separation of .newsrc functions and newsgroup functions to separate processes
  2042.     communicating via pipes (to make fit on non-separate-I-and-D pdp11,
  2043.     or unreasonable facsimiles thereof).
  2044. Faster!!!
  2045. Smaller!!!
  2046. More general!!!
  2047. Perfect?
  2048. !STUFFY!FUNK!
  2049. echo Extracting intrp.h
  2050. cat >intrp.h <<'!STUFFY!FUNK!'
  2051. /* $Header: intrp.h,v 4.3 85/05/01 11:41:48 lwall Exp $
  2052.  *
  2053.  * $Log:    intrp.h,v $
  2054.  * Revision 4.3  85/05/01  11:41:48  lwall
  2055.  * Baseline for release with 4.3bsd.
  2056.  * 
  2057.  */
  2058.  
  2059. EXT char *lib INIT(Nullch);        /* news library */
  2060. EXT char *rnlib INIT(Nullch);        /* private news program library */
  2061. EXT char *origdir INIT(Nullch);        /* cwd when rn invoked */
  2062. EXT char *homedir INIT(Nullch);        /* login directory */
  2063. EXT char *dotdir INIT(Nullch);        /* where . files go */
  2064. EXT char *logname INIT(Nullch);        /* login id */
  2065. EXT char *sitename INIT(Nullch);    /* host name */
  2066.  
  2067. #ifdef NEWSADMIN
  2068.     EXT char newsadmin[] INIT(NEWSADMIN);/* news administrator */
  2069.     EXT int newsuid INIT(0);
  2070. #endif
  2071.  
  2072. void    intrp_init();
  2073. char    *filexp();
  2074. char    *dointerp();
  2075. void    interp();
  2076. void    refscpy();
  2077. char    *getrealname();
  2078. !STUFFY!FUNK!
  2079. echo Extracting makekit
  2080. cat >makekit <<'!STUFFY!FUNK!'
  2081. #!/bin/sh
  2082. # $Header: makekit,v 4.3 85/05/01 11:42:38 lwall Exp $
  2083. #
  2084. # $Log:    makekit,v $
  2085. # Revision 4.3  85/05/01  11:42:38  lwall
  2086. # Baseline for release with 4.3bsd.
  2087. # 
  2088.  
  2089. numkits=$#
  2090. for kitlist in $*; do
  2091.     kit=`basename $kitlist .list`
  2092.     kitnum=`expr "$kit" : 'kit\([0-9][0-9]*\)'`
  2093.     echo "*** Making $kit ***"
  2094.     kitleader "$kit" "$kitnum" "$numkits"
  2095.     for file in `/bin/cat $kitlist`; do
  2096.     echo $file
  2097.     echo "echo Extracting $file" >> $kit
  2098.     if egrep '^\.$' $file; then
  2099.         echo "sed >$file <<'!STUFFY!FUNK!' -e 's/X//'" >> $kit
  2100.         sed <$file >>$kit -e 's/^/X/'
  2101.     else
  2102.         echo "cat >$file <<'!STUFFY!FUNK!'" >> $kit
  2103.         /bin/cat $file >> $kit
  2104.     fi
  2105.     echo "!STUFFY!FUNK!" >> $kit
  2106.     done
  2107.     kittrailer "$kit" "$kitnum" "$numkits"
  2108. done
  2109. !STUFFY!FUNK!
  2110. echo Extracting artstate.h
  2111. cat >artstate.h <<'!STUFFY!FUNK!'
  2112. /* $Header: artstate.h,v 4.3 85/05/01 11:35:59 lwall Exp $
  2113.  *
  2114.  * $Log:    artstate.h,v $
  2115.  * Revision 4.3  85/05/01  11:35:59  lwall
  2116.  * Baseline for release with 4.3bsd.
  2117.  * 
  2118.  */
  2119.  
  2120. EXT bool reread INIT(FALSE);        /* consider current art temporarily */
  2121.                     /* unread? */
  2122. EXT bool do_fseek INIT(FALSE);    /* should we back up in article file? */
  2123.  
  2124. EXT bool oldsubject INIT(FALSE);    /* not 1st art in subject thread */
  2125. EXT ART_LINE topline INIT(-1);        /* top line of current screen */
  2126. EXT bool do_hiding INIT(TRUE);        /* hide header lines with -h? */
  2127. #ifdef ROTATION
  2128. EXT bool rotate INIT(FALSE);        /* has rotation been requested? */
  2129. #endif
  2130. EXT char *prompt;            /* pointer to current prompt */
  2131.  
  2132. EXT char *firstline INIT(Nullch);            /* special first line? */
  2133. !STUFFY!FUNK!
  2134. echo Extracting final.h
  2135. cat >final.h <<'!STUFFY!FUNK!'
  2136. /* $Header: final.h,v 4.3 85/05/01 11:38:17 lwall Exp $
  2137.  * 
  2138.  * $Log:    final.h,v $
  2139.  * Revision 4.3  85/05/01  11:38:17  lwall
  2140.  * Baseline for release with 4.3bsd.
  2141.  * 
  2142.  */
  2143.  
  2144. /* cleanup status for fast exits */
  2145.  
  2146. EXT bool panic INIT(FALSE);        /* we got hung up or something-- */
  2147.                     /*  so leave tty alone */
  2148. EXT bool rc_changed INIT(FALSE);    /* need we rewrite .newsrc? */
  2149. EXT bool doing_ng INIT(FALSE);        /* do we need to reconstitute */
  2150.                     /* current rc line? */
  2151.  
  2152. EXT char int_count INIT(0);        /* how many interrupts we've had */
  2153.  
  2154. /* signal catching routines */
  2155.  
  2156. int    int_catcher();
  2157. int    sig_catcher();
  2158. #ifdef SIGTSTP
  2159.     int    stop_catcher();
  2160.     int    cont_catcher();
  2161. #endif
  2162.  
  2163. void    final_init();
  2164. void    finalize();
  2165. !STUFFY!FUNK!
  2166. echo Extracting manimake
  2167. cat >manimake <<'!STUFFY!FUNK!'
  2168. #!/bin/sh
  2169. # $Header: manimake,v 4.3 85/05/01 11:42:46 lwall Exp $
  2170. #
  2171. # $Log:    manimake,v $
  2172. # Revision 4.3  85/05/01  11:42:46  lwall
  2173. # Baseline for release with 4.3bsd.
  2174. # 
  2175.  
  2176. : make MANIFEST and MANIFEST.new say the same thing
  2177. if test -f MANIFEST.new; then
  2178.     cat <<'EOH' > MANIFEST
  2179. After all the rn kits are run you should have the following files:
  2180.  
  2181. Filename    Kit Description
  2182. --------    --- -----------
  2183. EOH
  2184.     sort MANIFEST.new >.mani
  2185.     grep . kit*.list | sed 's/^kit\(.*\)\.list:\$*\(.*\)$/\2 |\1|/' | \
  2186.     sort | \
  2187.     join -a1 - .mani | \
  2188.     awk -F'|' '{printf "%-16s%2s %s\n",$1,$2,$3}' | \
  2189.     unexpand >> MANIFEST
  2190.     rm .mani
  2191. else
  2192.     echo "You don't have a MANIFEST.new file.  Run manifake."
  2193. fi
  2194. !STUFFY!FUNK!
  2195. echo Extracting kittrailer
  2196. cat >kittrailer <<'!STUFFY!FUNK!'
  2197. #! /bin/sh
  2198. # $Header: kittrailer,v 4.3 85/05/01 11:42:11 lwall Exp $
  2199. #
  2200. # $Log:    kittrailer,v $
  2201. # Revision 4.3  85/05/01  11:42:11  lwall
  2202. # Baseline for release with 4.3bsd.
  2203. # 
  2204.  
  2205. rangelist=`range 1 $3`
  2206. cat >>$1 <<EOT
  2207. echo ""
  2208. echo "End of kit $2 (of $3)"
  2209. cat /dev/null >kit${2}isdone
  2210. config=true
  2211. for iskit in $rangelist; do
  2212.     if test -f kit\${iskit}isdone; then
  2213.     echo "You have run kit \${iskit}."
  2214.     else
  2215.     echo "You still need to run kit \${iskit}."
  2216.     config=false
  2217.     fi
  2218. done
  2219. case \$config in
  2220.     true)
  2221.     echo "You have run all your kits.  Please read README and then type Configure."
  2222.     chmod 755 Configure
  2223.     ;;
  2224. esac
  2225. : I do not append .signature, but someone might mail this.
  2226. exit
  2227. EOT
  2228. !STUFFY!FUNK!
  2229. echo Extracting only.h
  2230. cat >only.h <<'!STUFFY!FUNK!'
  2231. /* $Header: only.h,v 4.3 85/05/01 11:45:27 lwall Exp $
  2232.  *
  2233.  * $Log:    only.h,v $
  2234.  * Revision 4.3  85/05/01  11:45:27  lwall
  2235.  * Baseline for release with 4.3bsd.
  2236.  * 
  2237.  */
  2238.  
  2239. #ifndef NBRA
  2240. #include "search.h"
  2241. #endif
  2242.  
  2243. #ifdef ONLY
  2244.     EXT char *ngtodo[NGMAX];        /* restrictions in effect */
  2245. #   ifdef SPEEDOVERMEM
  2246.     EXT COMPEX *compextodo[NGMAX];    /* restrictions in compiled form */
  2247. #   endif
  2248. #endif
  2249.  
  2250. EXT int maxngtodo INIT(0);            /*  0 => no restrictions */
  2251.                     /* >0 => # of entries in ngtodo */
  2252.  
  2253. void    only_init();
  2254. bool    inlist();    /* return TRUE if ngname is in command line list */
  2255.             /* or if there was no list */
  2256. void    setngtodo();
  2257. #ifdef ONLY
  2258.     void    end_only();
  2259. #endif
  2260. !STUFFY!FUNK!
  2261. echo Extracting header.h.1.pat
  2262. cat >header.h.1.pat <<'!STUFFY!FUNK!'
  2263. NOTE: the preceding context may be different under 2.10.2, but you should
  2264. be able to figure it out anyway.
  2265.  
  2266. *** header.old.h    Fri Apr 27 11:30:49 1984
  2267. --- header.h    Thu May 10 15:19:55 1984
  2268. ***************
  2269. *** 34,38
  2270.       int    intnumlines;        /* Integer version    */
  2271.       char    keywords[BUFLEN];    /* Keywords:        */
  2272.       char    approved[BUFLEN];    /* Approved:        */
  2273.       char    *unrec[NUNREC];        /* unrecognized lines    */
  2274.   };
  2275.  
  2276. --- 34,41 -----
  2277.       int    intnumlines;        /* Integer version    */
  2278.       char    keywords[BUFLEN];    /* Keywords:        */
  2279.       char    approved[BUFLEN];    /* Approved:        */
  2280. + #ifdef DOXREFS
  2281. +     char    xref[BUFLEN];        /* Xref:        */
  2282. + #endif
  2283.       char    *unrec[NUNREC];        /* unrecognized lines    */
  2284.   };
  2285. !STUFFY!FUNK!
  2286. echo Extracting artio.h
  2287. cat >artio.h <<'!STUFFY!FUNK!'
  2288. /* $Header: artio.h,v 4.3 85/05/01 11:35:43 lwall Exp $
  2289.  *
  2290.  * $Log:    artio.h,v $
  2291.  * Revision 4.3  85/05/01  11:35:43  lwall
  2292.  * Baseline for release with 4.3bsd.
  2293.  * 
  2294.  */
  2295.  
  2296. EXT ART_POS artpos INIT(0);    /* byte position in article file */
  2297.  
  2298. EXT ART_LINE artline INIT(0);        /* current line number in article file */
  2299. EXT FILE *artfp INIT(Nullfp);        /* current article file pointer */
  2300. EXT ART_NUM openart INIT(0);        /* what is the currently open article number? */
  2301. #ifdef LINKART
  2302.     EXT char *linkartname INIT(nullstr);/* real name of article for Eunice */
  2303. #endif
  2304.  
  2305. void    artio_init();
  2306. FILE    *artopen();            /* open an article unless already opened */
  2307. !STUFFY!FUNK!
  2308. echo Extracting ngdata.h
  2309. cat >ngdata.h <<'!STUFFY!FUNK!'
  2310. /* $Header: ngdata.h,v 4.3 85/05/01 11:44:48 lwall Exp $
  2311.  *
  2312.  * $Log:    ngdata.h,v $
  2313.  * Revision 4.3  85/05/01  11:44:48  lwall
  2314.  * Baseline for release with 4.3bsd.
  2315.  * 
  2316.  */
  2317.  
  2318. EXT FILE *actfp INIT(Nullfp);    /* the active file */
  2319. EXT bool writesoft INIT(FALSE);    /* rewrite the soft pointer file? */
  2320. EXT int softtries INIT(0), softmisses INIT(0);
  2321.  
  2322. #ifdef CACHEFIRST
  2323.     EXT ART_NUM abs1st[MAXRCLINE];    /* 1st real article in newsgroup */
  2324. #else
  2325. # ifdef MININACT
  2326.     EXT ART_NUM abs1st INIT(0);
  2327. # endif
  2328. #endif
  2329.  
  2330.  
  2331. void    ngdata_init();
  2332. ART_NUM    getngsize();
  2333. ACT_POS findact();
  2334. ART_NUM    getabsfirst();
  2335. ART_NUM    getngmin();
  2336. !STUFFY!FUNK!
  2337. echo Extracting kitleader
  2338. cat >kitleader <<'!STUFFY!FUNK!'
  2339. #! /bin/sh
  2340. # $Header: kitleader,v 4.3 85/05/01 11:42:03 lwall Exp $
  2341. #
  2342. # $Log:    kitleader,v $
  2343. # Revision 4.3  85/05/01  11:42:03  lwall
  2344. # Baseline for release with 4.3bsd.
  2345. # 
  2346.  
  2347. cat >$1 <<EOT
  2348. #! /bin/sh
  2349.  
  2350. # Make a new directory for the rn sources, cd to it, and run kits 1 thru $3 
  2351. # through sh.  When all $3 kits have been run, read README.
  2352.  
  2353. echo "This is rn kit $2 (of $3).  If kit $2 is complete, the line"
  2354. echo '"'"End of kit $2 (of $3)"'" will echo at the end.'
  2355. echo ""
  2356. export PATH || (echo "You didn't use sh, you clunch." ; kill \$\$)
  2357. EOT
  2358. !STUFFY!FUNK!
  2359. echo Extracting kfile.h
  2360. cat >kfile.h <<'!STUFFY!FUNK!'
  2361. /* $Header: kfile.h,v 4.3 85/05/01 11:42:00 lwall Exp $
  2362.  *
  2363.  * $Log:    kfile.h,v $
  2364.  * Revision 4.3  85/05/01  11:42:00  lwall
  2365.  * Baseline for release with 4.3bsd.
  2366.  * 
  2367.  */
  2368.  
  2369. #define KF_GLOBAL 0
  2370. #define KF_LOCAL 1
  2371.  
  2372. #ifdef KILLFILES
  2373. EXT FILE *globkfp INIT(Nullfp);        /* global article killer file */
  2374. EXT FILE *localkfp INIT(Nullfp);    /* local (for this newsgroup) */
  2375.                     /*  article killer file */
  2376. #endif
  2377.  
  2378. void    kfile_init();
  2379. int    do_kfile();
  2380. void    kill_unwanted();
  2381. int    edit_kfile();
  2382. void    open_kfile();
  2383. void    kf_append();
  2384. void    setthru();
  2385.  
  2386. !STUFFY!FUNK!
  2387. echo Extracting backpage.h
  2388. cat >backpage.h <<'!STUFFY!FUNK!'
  2389. /* $Header: backpage.h,v 4.3 85/05/01 11:36:11 lwall Exp $
  2390.  *
  2391.  * $Log:    backpage.h,v $
  2392.  * Revision 4.3  85/05/01  11:36:11  lwall
  2393.  * Baseline for release with 4.3bsd.
  2394.  * 
  2395.  */
  2396.  
  2397. /* things for doing the 'back page' command */
  2398.  
  2399. EXT int varyfd INIT(0);            /* virtual array file for storing  */
  2400.                     /* file offsets */
  2401. EXT ART_POS varybuf[VARYSIZE];        /* current window onto virtual array */
  2402.  
  2403. EXT long oldoffset INIT(-1);        /* offset to block currently in window */
  2404.  
  2405. void    backpage_init();
  2406. ART_POS    vrdary();
  2407. void    vwtary();
  2408. !STUFFY!FUNK!
  2409. echo Extracting ngsrch.h
  2410. cat >ngsrch.h <<'!STUFFY!FUNK!'
  2411. /* $Header: ngsrch.h,v 4.3 85/05/01 11:44:56 lwall Exp $
  2412.  *
  2413.  * $Log:    ngsrch.h,v $
  2414.  * Revision 4.3  85/05/01  11:44:56  lwall
  2415.  * Baseline for release with 4.3bsd.
  2416.  * 
  2417.  */
  2418.  
  2419. #ifdef NGSEARCH
  2420. #define NGS_ABORT 0
  2421. #define NGS_FOUND 1
  2422. #define NGS_INTR 2
  2423. #define NGS_NOTFOUND 3
  2424.  
  2425. EXT bool ng_doread INIT(FALSE);        /* search read newsgroups? */
  2426. #endif
  2427.  
  2428. void    ngsrch_init();
  2429. #ifdef NGSEARCH 
  2430.     int        ng_search();
  2431.     bool    ng_wanted();
  2432. #endif
  2433. #ifdef NGSORONLY
  2434.     char    *ng_comp();
  2435. #endif
  2436. !STUFFY!FUNK!
  2437. echo Extracting manifake
  2438. cat >manifake <<'!STUFFY!FUNK!'
  2439. #!/bin/sh
  2440. # $Header: manifake,v 4.3 85/05/01 11:42:41 lwall Exp $
  2441. #
  2442. # $Log:    manifake,v $
  2443. # Revision 4.3  85/05/01  11:42:41  lwall
  2444. # Baseline for release with 4.3bsd.
  2445. # 
  2446.  
  2447. : make MANIFEST and MANIFEST.new say the same thing
  2448. if test ! -f MANIFEST.new; then
  2449.     if test -f MANIFEST; then
  2450.     sed <MANIFEST >MANIFEST.new \
  2451.         -e '1,/---/d' \
  2452.         -e 's/\([     ][     ]*\)[0-9]*  */\1/'
  2453.     else
  2454.     echo "Make a MANIFEST.new file, with names and descriptions."
  2455.     fi
  2456. fi
  2457. !STUFFY!FUNK!
  2458. echo Extracting respond.h
  2459. cat >respond.h <<'!STUFFY!FUNK!'
  2460. /* $Header: respond.h,v 4.3 85/05/01 11:47:50 lwall Exp $
  2461.  *
  2462.  * $Log:    respond.h,v $
  2463.  * Revision 4.3  85/05/01  11:47:50  lwall
  2464.  * Baseline for release with 4.3bsd.
  2465.  * 
  2466.  */
  2467.  
  2468. EXT char *savedest INIT(Nullch);    /* value of %b */
  2469. EXT ART_POS savefrom INIT(0);        /* value of %B */
  2470. EXT char *headname INIT(Nullch);
  2471.  
  2472. #define SAVE_ABORT 0
  2473. #define SAVE_DONE 1
  2474.  
  2475. void    respond_init();
  2476. int    save_article();
  2477. int    cancel_article();
  2478. void    reply();
  2479. void    followup();
  2480. void    invoke();
  2481. !STUFFY!FUNK!
  2482. echo Extracting cheat.h
  2483. cat >cheat.h <<'!STUFFY!FUNK!'
  2484. /* $Header: cheat.h,v 4.3 85/05/01 11:36:58 lwall Exp $
  2485.  *
  2486.  * $Log:    cheat.h,v $
  2487.  * Revision 4.3  85/05/01  11:36:58  lwall
  2488.  * Baseline for release with 4.3bsd.
  2489.  * 
  2490.  */
  2491.  
  2492. #ifdef ARTSEARCH
  2493. EXT ART_NUM srchahead INIT(0);     /* are we in subject scan mode? */
  2494.                 /* (if so, contains art # found or -1) */
  2495. #endif
  2496.  
  2497. #ifdef PENDING
  2498. #   ifdef CACHESUBJ
  2499.     EXT ART_NUM subj_to_get;
  2500. #   endif
  2501. #endif
  2502.  
  2503. void    cheat_init();
  2504. void    look_ahead();
  2505. void    collect_subjects();
  2506. !STUFFY!FUNK!
  2507. echo Extracting last.h
  2508. cat >last.h <<'!STUFFY!FUNK!'
  2509. /* $Header: last.h,v 4.3 85/05/01 11:42:22 lwall Exp $
  2510.  *
  2511.  * $Log:    last.h,v $
  2512.  * Revision 4.3  85/05/01  11:42:22  lwall
  2513.  * Baseline for release with 4.3bsd.
  2514.  * 
  2515.  */
  2516.  
  2517. EXT char *lastngname INIT(Nullch);    /* last newsgroup read, from .rnlast file */
  2518. EXT long lasttime INIT(0);    /* time last rn was started up */
  2519. EXT long lastactsiz INIT(0);    /* size of active file when rn last started up */
  2520.  
  2521. void    last_init();
  2522. void    writelast();
  2523. !STUFFY!FUNK!
  2524. echo Extracting rcln.h
  2525. cat >rcln.h <<'!STUFFY!FUNK!'
  2526. /* $Header: rcln.h,v 4.3 85/05/01 11:45:52 lwall Exp $
  2527.  *
  2528.  * $Log:    rcln.h,v $
  2529.  * Revision 4.3  85/05/01  11:45:52  lwall
  2530.  * Baseline for release with 4.3bsd.
  2531.  * 
  2532.  */
  2533.  
  2534. #ifdef DEBUGGING
  2535. EXT ART_NUM ngmax[MAXRCLINE];
  2536. #endif
  2537.  
  2538. void    rcln_init();
  2539. #ifdef CATCHUP
  2540.     void    catch_up();
  2541. #endif
  2542. int    addartnum();
  2543. #ifdef MCHASE
  2544.     void    subartnum();
  2545. #endif
  2546. void    prange();
  2547. void    set_toread();
  2548. void    checkexpired();
  2549. !STUFFY!FUNK!
  2550. echo Extracting art.h
  2551. cat >art.h <<'!STUFFY!FUNK!'
  2552. /* $Header: art.h,v 4.3 85/05/01 11:35:29 lwall Exp $
  2553.  *
  2554.  * $Log:    art.h,v $
  2555.  * Revision 4.3  85/05/01  11:35:29  lwall
  2556.  * Baseline for release with 4.3bsd.
  2557.  * 
  2558.  */
  2559.  
  2560. /* do_article() return values */
  2561.  
  2562. #define DA_NORM 0
  2563. #define DA_RAISE 1
  2564. #define DA_CLEAN 2
  2565. #define DA_TOEND 3
  2566.  
  2567. void    art_init();
  2568. int    do_article();
  2569. int    page_switch();
  2570. bool    innermore();
  2571. !STUFFY!FUNK!
  2572. echo Extracting ngstuff.h
  2573. cat >ngstuff.h <<'!STUFFY!FUNK!'
  2574. /* $Header: ngstuff.h,v 4.3 85/05/01 11:45:12 lwall Exp $
  2575.  *
  2576.  * $Log:    ngstuff.h,v $
  2577.  * Revision 4.3  85/05/01  11:45:12  lwall
  2578.  * Baseline for release with 4.3bsd.
  2579.  * 
  2580.  */
  2581.  
  2582. #define NN_NORM 0
  2583. #define NN_INP 1
  2584. #define NN_REREAD 2
  2585. #define NN_ASK 3
  2586.  
  2587. void    ngstuff_init();
  2588. int    escapade();
  2589. int    switcheroo();
  2590. int    numnum();
  2591. int    perform();
  2592. !STUFFY!FUNK!
  2593. echo ""
  2594. echo "End of kit 8 (of 9)"
  2595. cat /dev/null >kit8isdone
  2596. config=true
  2597. for iskit in 1 2 3 4 5 6 7 8 9; do
  2598.     if test -f kit${iskit}isdone; then
  2599.     echo "You have run kit ${iskit}."
  2600.     else
  2601.     echo "You still need to run kit ${iskit}."
  2602.     config=false
  2603.     fi
  2604. done
  2605. case $config in
  2606.     true)
  2607.     echo "You have run all your kits.  Please read README and then type Configure."
  2608.     chmod 755 Configure
  2609.     ;;
  2610. esac
  2611. : I do not append .signature, but someone might mail this.
  2612. exit
  2613.  
  2614.