home *** CD-ROM | disk | FTP | other *** search
/ Source Code 1992 March / Source_Code_CD-ROM_Walnut_Creek_March_1992.iso / usenet / altsrcs / 1 / 1465 < prev    next >
Encoding:
Internet Message Format  |  1990-12-28  |  61.5 KB
  1. From: sob@lib.tmc.edu (Stan Barber)
  2. Newsgroups: alt.sources
  3. Subject: rrn/rn combo kit part 8 of 9
  4. Message-ID: <434@lib.tmc.edu>
  5. Date: 14 Jun 90 03:29:24 GMT
  6.  
  7. #! /bin/sh
  8.  
  9. # Make a new directory for the rn sources, cd to it, and run kits 1 thru 9 
  10. # through sh.  When all 9 kits have been run, read README.
  11.  
  12. echo "This is rn kit 8 (of 9).  If kit 8 is complete, the line"
  13. echo '"'"End of kit 8 (of 9)"'" will echo at the end.'
  14. echo ""
  15. export PATH || (echo "You didn't use sh, you clunch." ; kill $$)
  16. echo Extracting MANIFEST
  17. cat >MANIFEST <<'!STUFFY!FUNK!'
  18. After all the rn kits are run you should have the following files:
  19.  
  20. Filename    Kit Description
  21. --------    --- -----------
  22. Configure        2  A shell script that installs everything system dependent.
  23. EXTERN.h         9  When included, makes other includes not belong to me.
  24. HACKERSGUIDE     8  A brief guide to the contorted innards of rn.
  25. INIT             5  Sample system-wide switch file. (NEW)
  26. INTERN.h         9  When included, makes other includes belong to me.
  27. MANIFEST         8  This list of files.
  28. Makefile.SH      8  The makefile.
  29. NEW              8  List of new features with 4.3 rn.
  30. Pnews.1          8  Manual page for Pnews.
  31. Pnews.SH         6  A news posting shell script that knows about -h.
  32. README           8  Installation instructions.
  33. Rnmail.1         8  Manual page for Rnmail.
  34. Rnmail.SH        7  A mailer that knows about -h.
  35. Wishlist         9  What the next version wants in it.
  36. addng.c          1  Routines for scanning the active file for new newsgroups.
  37. addng.h          9  Public info regarding addng.c.
  38. art.c            5  Routines to display an article.
  39. art.h            7  Public info regarding art.c.
  40. art.help.SH      8  Shell script for help at the article level.
  41. artio.c          8  Reserved for the article abstract type, someday.
  42. artio.h          9  Public info regarding artio.c.
  43. artsrch.c        7  Routines for searching among articles.
  44. artsrch.h        4  Public info regarding artsrch.c.
  45. artstate.h       9  Info on the current state of the article.
  46. backpage.c       9  Routines for paging backwards in articles.
  47. backpage.h       9  Public info regarding backpage.c.
  48. bits.c           5  Bitmap management functions.
  49. bits.h           9  Public info regarding bits.c.
  50. cheat.c          8  Routines to do lookahead of several types.
  51. cheat.h          9  Public info regarding cheat.c.
  52. common.h         3  Global info.
  53. final.c          8  Finalization (exit) routines.
  54. final.h          9  Public info regarding final.c.
  55. getactive.c      9  Program used by shell scripts to the active file (RRN only)
  56. head.c           7  Header parsing routines.
  57. head.h           8  Public info regarding head.c.
  58. help.c           7  Help routines.
  59. help.h           9  Public info regarding help.c.
  60. init.c           7  Initialization (startup) routines.
  61. init.h           9  Public info regarding init.c.
  62. intrp.c          4  Filename expansion and % interpretation routines.
  63. intrp.h          9  Public info regarding intrp.c.
  64. kfile.c          7  KILL file routines.
  65. kfile.h          9  Public info regarding kfile.c.
  66. kitleader        2  Shell script to produce front of kit.
  67. kitlists.c       9  Knapsack packer.
  68. kittrailer       9  Shell script to produce end of kit.
  69. last.c           9  Routines for handling the .rnlast file.
  70. last.h           9  Public info regarding last.c.
  71. makedepend.SH    8  Shell script to generate make dependencies.
  72. makedir.SH       9  Shell script to make nested subdirectories.
  73. makedist         9  Shell script to make a distribution kit.
  74. makekit          9  Shell script to make a kit file.
  75. manifake         9  Shell script to make MANIFEST.new file.
  76. manimake         9  Shell script to make MANIFEST file.
  77. mbox.saver.SH    9  Shell script to save an article to a mailbox.
  78. ndir.c           9  4.2 directory routine emulation.
  79. ndir.h           8  Public info regarding ndir.c.
  80. newsetup.1       6  Manual page for newsetup.
  81. newsetup.SH      8  Shell script to create a .newsrc file.
  82. newsgroups.1     9  Manual page for newsgroups.
  83. newsgroups.SH    8  Shell script to list unsubscribed newsgroups.
  84. newsnews.SH      9  A motd-like file that rn may print at startup.
  85. ng.c             3  Routines to display a newsgroup.
  86. ng.h             9  Public info regarding ng.c.
  87. ng.help.SH       9  Shell script to do newsgroup selection help.
  88. ngdata.c         7  General data fetching routines for a newsgroup.
  89. ngdata.h         9  Public info regarding ngdata.c.
  90. ngsrch.c         8  Routines to search among newsgroups.
  91. ngsrch.h         9  Public info regarding ngsrch.c.
  92. ngstuff.c        2  Support routines for ng.c.
  93. ngstuff.h        3  Public info regarding ng.c.
  94. norm.saver.SH    9  Shell script to save an article to a normal file.
  95. only.c           9  Routines to perform newsgroup restriction.
  96. only.h           9  Public info regarding only.c.
  97. pager.help.SH    9  Shell script for help at the pager level.
  98. patchlevel       2  Indicates current patch level.
  99. range.c          9  Used when rebuilding the rn kit.
  100. rcln.c           3  Routines to mung a .newsrc line.
  101. rcln.h           9  Public info regarding rcln.c.
  102. rcstuff.c        5  Routines to mung the .newsrc file.
  103. rcstuff.h        9  Public info regarding rcstuff.c.
  104. respond.c        6  Various routines for doing things with articles.
  105. respond.h        9  Public info regarding respond.c.
  106. rn.1             1  Manual pages for rn. PLEASE READ.
  107. rn.c             6  Main program.
  108. rn.h             9  Public info regarding rn.c.
  109. search.c         4  Regular expression processing ala emacs.
  110. search.h         9  Public info regarding search.c.
  111. subs.help.SH     9  Shell script for help for escape substitutions.
  112. sw.c             6  Switch processing routines.
  113. sw.h             9  Public info regarding switch.c.
  114. term.c           4  Terminal interface routines.
  115. term.h           7  Public info regarding term.c.
  116. util.c           6  Utility routines.
  117. util.h           9  Public info regarding util.c.
  118. !STUFFY!FUNK!
  119. echo Extracting Makefile.SH
  120. cat >Makefile.SH <<'!STUFFY!FUNK!'
  121. case $CONFIG in
  122.     '') . ./config.sh ;;
  123. esac
  124. echo "Extracting Makefile (with variable substitutions)"
  125. cat >Makefile <<!GROK!THIS!
  126. # $Header: Makefile.SH,v 4.3.2.10 90/05/04 00:44:51 sob Exp $
  127. #
  128. # $Log:    Makefile.SH,v $
  129. # Revision 4.3.2.10  90/05/04  00:44:51  sob
  130. # Added socketlib to list of libs.
  131. # 
  132. # Revision 4.3.2.9  90/04/23  00:27:12  sob
  133. # Added better support for XENIX
  134. # 
  135. # Revision 4.3.2.8  89/12/20  23:20:14  sob
  136. # Added "hp-ux" to the list of files created by Configure.
  137. # 
  138. # Revision 4.3.2.7  89/12/09  01:49:48  sob
  139. # make clean cleans up better.
  140. # 
  141. # Revision 4.3.2.6  89/12/08  22:43:45  sob
  142. # Added suggestions by weening@gang-of-four.stanford.edu and 
  143. # jik@pit-manager.mit.edu. rrn manual page is now created when
  144. # doing an installation. getactive will only be made when rrn is being
  145. # created.
  146. # 
  147. # Revision 4.3.2.5  89/11/08  04:47:38  sob
  148. # Added VOIDSIG handling for SunOS 4.X
  149. # 
  150. # Revision 4.3.2.4  89/11/08  03:16:29  sob
  151. # Added server.h to list of things created by Configure
  152. # 
  153. # Revision 4.3.2.3  89/11/08  01:05:52  sob
  154. # Updated to work with RRN or RN
  155. # 
  156. # Revision 4.3.2.2  89/11/06  00:03:19  sob
  157. # Added RRN support originally distributed with NNTP 1.5
  158. # 
  159. # Revision 4.3.2.1  89/11/05  23:55:09  sob
  160. # RRN support branch
  161. #
  162. # Revision 4.3.1.2  85/05/13  17:21:18  lwall
  163. # System V make needs space before line-continuing backslash.
  164. # 
  165. # Revision 4.3.1.1  85/05/10  11:30:15  lwall
  166. # Branch for patches.
  167. # 
  168. # Revision 4.3  85/05/01  11:33:26  lwall
  169. # Baseline for release with 4.3bsd.
  170. # 
  171.  
  172. CC = $cc
  173. rnbin = $rnbin
  174. rnlib = $rnlib
  175. mansrc = $mansrc
  176. manext = $manext
  177. #NNTPNNTPDIR = $NNTPSRC
  178. #NNTPNNTPINC = $rrninclude
  179. CFLAGS = $iandd -O $include
  180. LDFLAGS = $iandd
  181. NDIRC = $ndirc
  182. NDIRO = $ndiro
  183.  
  184. libs = $ndirlib $termlib $jobslib $socketlib
  185. !GROK!THIS!
  186. cat >>Makefile <<'!NO!SUBS!'
  187. #NNTPnntp=getactive
  188. public = rn newsetup newsgroups Pnews Rnmail
  189. private = norm.saver mbox.saver ng.help art.help pager.help subs.help makedir filexp Pnews.header $(nntp)
  190. manpages = rn.1 Pnews.1 Rnmail.1 newsetup.1 newsgroups.1
  191. util = Makefile makedepend newsnews
  192.  
  193.  
  194. h1 = addng.h art.h artio.h artsrch.h backpage.h bits.h cheat.h common.h
  195. h2 = final.h head.h help.h init.h intrp.h kfile.h last.h ndir.h ng.h
  196. h3 = ngdata.h ngsrch.h ngstuff.h only.h rcln.h rcstuff.h
  197. h4 = respond.h rn.h search.h sw.h term.h util.h
  198. #NNTPh5 = server.h
  199.  
  200. h = $(h1) $(h2) $(h3) $(h4) $(h5)
  201.  
  202. c1 = addng.c art.c artio.c artsrch.c backpage.c bits.c cheat.c
  203. c2 = final.c head.c help.c init.c intrp.c kfile.c last.c $(NDIRC) ng.c
  204. c3 = ngdata.c ngsrch.c ngstuff.c only.c rcln.c rcstuff.c
  205. c4 = respond.c rn.c search.c sw.c term.c util.c
  206. #NNTPc5 = $(NNTPDIR)/common/clientlib.c
  207.  
  208. c = $(c1) $(c2) $(c3) $(c4) $(c5)
  209.  
  210. obj1 = addng.o art.o artio.o artsrch.o backpage.o bits.o cheat.o
  211. obj2 = final.o head.o help.o init.o intrp.o kfile.o last.o $(NDIRO) ng.o
  212. obj3 = ngdata.o ngsrch.o ngstuff.o only.o rcln.o rcstuff.o
  213. obj4 = respond.o rn.o search.o sw.o term.o util.o
  214. #NNTPobj5 =  $(NNTPDIR)/common/clientlib.o
  215.  
  216. obj = $(obj1) $(obj2) $(obj3) $(obj4) $(obj5)
  217.  
  218. lintflags = -phbvxac
  219.  
  220. add1 = Makefile.old Pnews Rnmail art.help
  221. add2 = bsd config.h config.sh eunice filexp
  222. add3 = loc makedepend makedir mbox.saver newsetup
  223. add4 = newsgroups newsnews ng.help norm.saver pager.help
  224. add5 = pdp11 rn subs.help usg v7 ultrix sun hp-ux sgi xenix server.h
  225.  
  226. addedbyconf = $(add1) $(add2) $(add3) $(add4) $(add5)
  227.  
  228. # grrr
  229. SHELL = /bin/sh
  230.  
  231. .c.o:
  232.     $(CC) -c $(CFLAGS) $*.c
  233.  
  234. all: $(public) $(private) $(util)
  235.     touch all
  236.  
  237. rn: $(obj)
  238.     $(CC) $(LDFLAGS) $(obj) $(libs) -o rn
  239.  
  240. #NNTPgetactive: getactive.o $(NNTPDIR)/common/clientlib.o
  241. #NNTP    $(CC) $(LDFLAGS) getactive.o $(NNTPDIR)/common/clientlib.o -o getactive $(libs)
  242.  
  243. # Eek! This is gross.
  244. $(NNTPDIR)/common/clientlib.o:
  245.     $(CC) -c $(CFLAGS) $(NNTPINC) $(NNTPDIR)/common/clientlib.c
  246.     mv clientlib.o $(NNTPDIR)/common/clientlib.o
  247.  
  248. # if a .h file depends on another .h file...
  249. $(h):
  250.     touch $@
  251.  
  252. install: rn
  253. # won't work with csh
  254.     export PATH || exit 1
  255.     - mv $(rnbin)/rn $(rnbin)/rn.old
  256. #NNTP    - ln -s rn $(rnbin)/rrn
  257.     - if test `pwd` != $(rnbin); then cp $(public) $(rnbin); fi
  258.     cd $(rnbin); chmod 755 $(public)
  259.     chmod 755 makedir
  260.     - ./makedir `./filexp $(rnlib)`
  261.     - if test `pwd` != `./filexp $(rnlib)`; then cp INIT $(private) `./filexp $(rnlib)`; fi
  262.     cd `./filexp $(rnlib)`; chmod 755 $(private)
  263.     - if test ! -f `./filexp $(rnlib)/newsnews`; then cp newsnews `./filexp $(rnlib)`; fi
  264.     - if test `pwd` != $(mansrc); then \
  265. for page in $(manpages); do \
  266. cp $$page $(mansrc)/`basename $$page .1`.$(manext); \
  267. done; \
  268. #NNTPecho ".so man$(manext)/rn.$(manext)" > $(mansrc)/rrn.$(manext) ; \
  269. fi
  270.  
  271. clean:
  272.     rm -f *.o
  273.  
  274. realclean:
  275.     rm -f rn *.o core $(addedbyconf) 
  276. #NNTP    rm -f $(NNTPDIR)/common/clientlib.o getactive
  277.  
  278. # The following lint has practically everything turned on.  Unfortunately,
  279. # you have to wade through a lot of mumbo jumbo that can't be suppressed.
  280. # If the source file has a /*NOSTRICT*/ somewhere, ignore the lint message
  281. # for that spot.
  282.  
  283. lint:
  284.     lint $(lintflags) $(defs) $(c) > rn.fuzz
  285.  
  286. depend:
  287.     ./makedepend
  288.  
  289. # AUTOMATICALLY GENERATED MAKE DEPENDENCIES--PUT NOTHING BELOW THIS LINE
  290. $(obj):
  291.     @ echo "You haven't done a "'"make depend" yet!'; exit 1
  292. !NO!SUBS!
  293. case "$isrrn" in
  294. define)  sed < Makefile -e '/^#NNTP/s/^#NNTP//' > Makefile.new ;;
  295. *) sed < Makefile -e '/^#NNTP/d' > Makefile.new ;;
  296. esac
  297. mv Makefile.new Makefile
  298. $eunicefix Makefile
  299. !STUFFY!FUNK!
  300. echo Extracting newsetup.SH
  301. cat >newsetup.SH <<'!STUFFY!FUNK!'
  302. case $CONFIG in
  303.     '') . ./config.sh ;;
  304. esac
  305. echo "Extracting newsetup (with variable substitutions)"
  306. $spitshell >newsetup <<!GROK!THIS!
  307. $startsh
  308.  
  309. # $Header: newsetup.SH,v 4.3.2.7 90/03/17 20:34:48 sob Exp $
  310. # 
  311. # $Log:    newsetup.SH,v $
  312. # Revision 4.3.2.7  90/03/17  20:34:48  sob
  313. # Remove the /tmp/n.* files created when generating the .newsrc.
  314. # 
  315. # Revision 4.3.2.6  90/03/17  17:26:42  sob
  316. # Some versions of sed only take 9 wfiles.
  317. # 
  318. # Revision 4.3.2.5  89/11/28  01:15:32  sob
  319. # Fixed a bug that caused the active file to be removed on non-NNTP-based
  320. # systems.
  321. # 
  322. # Revision 4.3.2.4  89/11/28  00:31:20  sob
  323. # Changed news.announce.newuser to news.announce.newusers.
  324. # 
  325. # Revision 4.3.2.3  89/11/08  01:13:15  sob
  326. # Finished modifications to make work with RN and RRN
  327. #
  328. # Revision 4.3.2.2  89/11/07  23:25:50  sob
  329. #
  330. # Added support such that RN and RRN can be made from the same sources.
  331. # 
  332. # Revision 4.3.1.2  86/09/05  15:41:04  lwall
  333. # Changes for newsgroup renaming.
  334. # 
  335. # Revision 4.3.1.1  85/05/10  11:35:43  lwall
  336. # Branch for patches.
  337. # 
  338. # Revision 4.3  85/05/01  11:43:05  lwall
  339. # Baseline for release with 4.3bsd.
  340. # 
  341.  
  342. export PATH || (echo "OOPS, this isn't sh.  Desperation time.  I will feed myself to sh."; sh \$0; kill \$\$)
  343.  
  344. : syntax: newsetup
  345.  
  346. : System dependencies
  347. : You will want to change the definitions below to reflect the distribution
  348. : areas around you.  If you have more areas than this you will need to modify
  349. : the sed below.
  350.  
  351. locorg="$locpref"
  352. organization="$orgpref"
  353. city="$citypref"
  354. state="$statepref"
  355. cntry="$cntrypref"
  356. cont="$contpref"
  357. #NORMALactive="${active-/usr/lib/news/active}"
  358. #NNTPactive="/tmp/active.\$\$"
  359.  
  360. dotdir="\${DOTDIR-\${HOME-\$LOGDIR}}"
  361. $rm -f \$dotdir/.oldnewsrc
  362. $echo "Creating .newsrc in \$dotdir to be used by news programs."
  363. #NNTPrnlib=$rnlib
  364. #NNTPcase \$rnlib in
  365. #NNTP~*) rnlib=\`$filexp \$rnlib\` ;;
  366. #NNTPesac
  367. #NNTP\$rnlib/getactive \$active
  368. #NORMALcase \$active in
  369. #NORMAL~*) active=\`$filexp \$active\` ;;
  370. #NORMALesac
  371.  
  372. : NOTE: SED WILL NOT TAKE MORE THAN 9 WFILES, SO BEWARE   
  373.  
  374. $sort <\$active | $sed >/tmp/n.tmp\$\$    \\
  375.     -e 's/^\([^ ]*\) .*\$/\1:/'    \\
  376.     -e '/^control:/{'        \\
  377.      -e "  s/:/!/"    \\
  378.     -e "  w /tmp/n.test\$\$"    \\
  379.     -e '  d'            \\
  380.     -e '}'                \\
  381.     -e '/^junk:/{'            \\
  382.      -e "  s/:/!/"    \\
  383.     -e "  w /tmp/n.test\$\$"    \\
  384.     -e '  d'            \\
  385.     -e '}'                \\
  386.     -e '/test:/{'            \\
  387.      -e "  s/:/!/"    \\
  388.     -e "  w /tmp/n.test\$\$"    \\
  389.     -e '  d'            \\
  390.     -e '}'                \\
  391.     -e "/^\$locorg\./{"        \\
  392.     -e "  w /tmp/n.\$locorg\$\$"    \\
  393.     -e '  d'            \\
  394.     -e '}'                \\
  395.     -e "/^\$organization\./{"    \\
  396.     -e "  w /tmp/n.\$organization\$\$"    \\
  397.     -e '  d'            \\
  398.     -e '}'                \\
  399.     -e "/^\$city\./{"        \\
  400.     -e "  w /tmp/n.\$city\$\$"    \\
  401.     -e '  d'            \\
  402.     -e '}'                \\
  403.     -e "/^\$cntry\./{"         \\
  404.     -e "  w /tmp/n.\$cntry\$\$"    \\
  405.     -e '  d'            \\
  406.     -e '}'                \\
  407.     -e "/^\$state\./{"         \\
  408.     -e "  w /tmp/n.\$state\$\$"    \\
  409.     -e '  d'            \\
  410.     -e '}'
  411.  
  412. $sed </tmp/n.tmp\$\$ >/tmp/n.local\$\$    \\
  413.     -e "/^\$cont\./{"         \\
  414.     -e "  w /tmp/n.\$cont\$\$"    \\
  415.     -e '  d'            \\
  416.     -e '}'
  417.  
  418. $sed </tmp/n.tmp\$\$ >/tmp/n.local\$\$    \\
  419.     -e "/^to\./{"            \\
  420.     -e "  s/:/!/"    \\
  421.     -e "  w /tmp/n.to\$\$"        \\
  422.     -e '  d'            \\
  423.     -e '}'                \\
  424.     -e "/^comp\./{"            \\
  425.     -e "  w /tmp/n.comp\$\$"    \\
  426.     -e '  d'            \\
  427.     -e '}'                \\
  428.     -e "/^news\./{"            \\
  429.     -e "  w /tmp/n.news\$\$"    \\
  430.     -e '  d'            \\
  431.     -e '}'                \\
  432.     -e "/^rec\./{"            \\
  433.     -e "  w /tmp/n.rec\$\$"        \\
  434.     -e '  d'            \\
  435.     -e '}'                \\
  436.     -e "/^sci\./{"            \\
  437.     -e "  w /tmp/n.sci\$\$"        \\
  438.     -e '  d'            \\
  439.     -e '}'                \\
  440.     -e "/^soc\./{"            \\
  441.     -e "  w /tmp/n.soc\$\$"        \\
  442.     -e '  d'            \\
  443.     -e '}'                \\
  444.     -e "/\./{"            \\
  445.     -e "  w /tmp/n.misc\$\$"    \\
  446.     -e '  d'            \\
  447.     -e '}'
  448.  
  449.  
  450. if $test -s \$dotdir/.newsrc ; then
  451.     $echo "Saving your current .newsrc as .oldnewsrc..."
  452.     $mv -f \$dotdir/.newsrc \$dotdir/.oldnewsrc
  453. fi
  454.  
  455. : newsrc order determined here
  456.  
  457. $sed <\$active '
  458.     /^to\./d
  459.     s/ .*//
  460.     s/^/ /
  461.     s/^ '\$locorg'\./01&/
  462.     s/^ '\$organization'\./02&/
  463.     s/^ '\$city'\./03&/
  464.     s/^ '\$state'\./04&/
  465.     s/^ '\$cntry'\./05&/
  466.     s/^ '\$cont'\./06&/
  467.     s/^ news\./07&/
  468.     s/^ comp\./08&/
  469.     s/^ sci\./09&/
  470.     s/^ rec\./10&/
  471.     s/^ soc\./11&/
  472.     s/^ talk\./13&/
  473.     s/^ control\$/14&/
  474.     s/^ junk\$/14&/
  475.     s/^ test\$/14&/
  476.     /\.test\$/s/^[0-9]*/14/
  477.     s/^ .*\./12&/
  478.     s/^ /00&/
  479. ' |
  480. $sort -u |
  481. $sed '
  482.     /^14 /!s/\$/:/
  483.     /^14 /s/\$/!/
  484.     s/^[0-9][0-9] //
  485. ' >\$dotdir/.newsrc
  486.  
  487. #NNTP$rm -f \$active
  488. $rm -f /tmp/n.misc\$\$ /tmp/n.sci\$\$ /tmp/n.soc\$\$ /tmp/n.news\$\$ /tmp/n.comp\$\$
  489. $rm -f /tmp/n.\$cont\$\$ /tmp/n.\$city\$\$ /tmp/n.\$cntry\$\$ /tmp/n.\$state\$\$
  490. $rm -f /tmp/n.to\$\$ /tmp/n.\$organization\$\$ /tmp/n.\$locorg\$\$ /tmp/n.test\$\$
  491. $rm -f /tmp/n.tmp\$\$ /tmp/n.local\$\$ /tmp/n.rec\$\$
  492.  
  493. $cat <<'EOH'
  494. Done.
  495.  
  496. If you have never used the news system before, you may find the articles
  497. in news.announce.newusers to be helpful.  There is also a manual entry for rn.
  498.  
  499. To get rid of newsgroups you aren't interested in, use the 'u' command.
  500. Type h for help at any time while running rn.
  501. EOH
  502. !GROK!THIS!
  503. case "$isrrn" in
  504. define)  sed < newsetup -e '/^#NNTP/s/^#NNTP//' -e '/^#NORMAL/d' > newsetup.new ;;
  505. *) sed < newsetup -e '/^#NNTP/d' -e '/^#NORMAL/s/^#NORMAL//' > newsetup.new ;;
  506. esac
  507. mv newsetup.new newsetup
  508. $eunicefix newsetup
  509. chmod 755 newsetup
  510. !STUFFY!FUNK!
  511. echo Extracting final.c
  512. cat >final.c <<'!STUFFY!FUNK!'
  513. /* $Header: final.c,v 4.3.2.8 90/04/14 19:37:14 sob Exp $
  514.  *
  515.  * $Log:    final.c,v $
  516.  * Revision 4.3.2.8  90/04/14  19:37:14  sob
  517.  * Added better support for the NeXT.
  518.  * 
  519.  * Revision 4.3.2.7  90/03/17  21:33:49  sob
  520.  * cleaned up a bit
  521.  * 
  522.  * Revision 4.3.2.6  90/03/17  16:48:25  sob
  523.  * Added changes to insure that rrn cleans up its temporary files when
  524.  * exiting.
  525.  * 
  526.  * Revision 4.3.2.5  89/11/28  01:51:28  sob
  527.  * Now handles SIGWINCH correctly.
  528.  * 
  529.  * Revision 4.3.2.4  89/11/27  01:30:24  sob
  530.  * Altered NNTP code per ideas suggested by Bela Lubkin
  531.  * <filbo@gorn.santa-cruz.ca.us>
  532.  * 
  533.  * Revision 4.3.2.3  89/11/08  02:25:07  sob
  534.  * Integrated modifications from other RRN patches colleceted from USENET
  535.  * 
  536.  * Revision 4.3.2.2  89/11/07  23:26:31  sob
  537.  * Added some fixes that relate to SIGSTP
  538.  * 
  539.  * Revision 4.3.2.1  89/11/06  00:16:08  sob
  540.  * Added RRN support from NNTP 1.5
  541.  *
  542.  * Revision 4.3  85/05/01  11:38:08  lwall
  543.  * Baseline for release with 4.3bsd.
  544.  * 
  545.  */
  546.  
  547. #include "EXTERN.h"
  548. #include "common.h"
  549. #include "util.h"
  550. #include "term.h"
  551. #include "ng.h"
  552. #include "init.h"
  553. #include "bits.h"
  554. #include "last.h"
  555. #include "rcstuff.h"
  556. #include "ngdata.h"
  557. #include "artio.h"
  558. #include "INTERN.h"
  559. #include "final.h"
  560.  
  561. void
  562. final_init()
  563. {
  564. #ifdef SIGTSTP
  565.     sigset(SIGTSTP, stop_catcher);    /* job control signals */
  566.     sigset(SIGTTOU, stop_catcher);    /* job control signals */
  567.     sigset(SIGTTIN, stop_catcher);    /* job control signals */
  568. #endif
  569.  
  570.     sigset(SIGINT, int_catcher);    /* always catch interrupts */
  571.     sigset(SIGHUP, sig_catcher);    /* and hangups */
  572. #ifndef lint
  573.     sigignore(SIGEMT);
  574. #endif lint
  575.  
  576.     sigset(SIGILL, sig_catcher);
  577.     sigset(SIGTRAP, sig_catcher);
  578.     sigset(SIGFPE, sig_catcher);
  579.     sigset(SIGBUS, sig_catcher);
  580.     sigset(SIGSEGV, sig_catcher);
  581.     sigset(SIGSYS, sig_catcher);
  582.     sigset(SIGTERM, sig_catcher);
  583. #ifdef SIGXCPU
  584.     sigset(SIGXCPU, sig_catcher);
  585. #endif
  586. #ifdef SIGXFSZ
  587.     sigset(SIGXFSZ, sig_catcher);
  588. #endif
  589. #ifdef SIGWINCH
  590.     sigset(SIGWINCH, winch_catcher);
  591. #endif
  592. }
  593.  
  594. void                    /* very much void */
  595. finalize(status)
  596. int status;
  597. {
  598. #ifdef SERVER
  599.     char artname[32];
  600. #endif SERVER
  601.  
  602.     if (bizarre)
  603.     resetty();
  604.     if (lockname && *lockname)
  605.      UNLINK(lockname);
  606. #ifdef SERVER
  607.     if (*active_name)
  608.     UNLINK(active_name);
  609.     if (openart) {
  610.      char artname[32];
  611.      sprintf(artname, "/tmp/rrn%ld.%d", (long)openart, getpid());
  612.      UNLINK(artname);
  613.     }
  614.     close_server();
  615. #endif SERVER
  616.     if (status < 0) {
  617.     chdir("/usr/tmp");
  618.     sigset(SIGILL,SIG_DFL);
  619.     abort();
  620.     }
  621.     exit(status);
  622. }
  623.  
  624. /* come here on interrupt */
  625.  
  626. int
  627. int_catcher()
  628. {
  629.     sigset(SIGINT,int_catcher);
  630. #ifdef DEBUGGING
  631.     if (debug)
  632.     write(2,"int_catcher\n",12);
  633. #endif
  634.     if (!waiting) {
  635.     if (int_count) {        /* was there already an interrupt? */
  636.         write(2,"\nBye-bye.\n",10);
  637.         sig_catcher(0);        /* emulate the other signals */
  638.     }
  639.     int_count++;
  640.     }
  641. }
  642.  
  643. /* come here on signal other than interrupt, stop, or cont */
  644.  
  645. int
  646. sig_catcher(signo)
  647. {
  648. #ifdef VERBOSE
  649.     static char *signame[] = {
  650.     "",
  651.     "HUP",
  652.     "INT",
  653.     "QUIT",
  654.     "ILL",
  655.     "TRAP",
  656.     "IOT",
  657.     "EMT",
  658.     "FPE",
  659.     "KILL",
  660.     "BUS",
  661.     "SEGV",
  662.     "SYS",
  663.     "PIPE",
  664.     "ALRM",
  665.     "TERM",
  666.     "???"
  667. #ifdef SIGTSTP
  668.     ,"STOP",
  669.     "TSTP",
  670.     "CONT",
  671.     "CHLD",
  672.     "TTIN",
  673.     "TTOU",
  674.     "TINT",
  675.     "XCPU",
  676.     "XFSZ"
  677. #ifdef SIGPROF
  678.     ,"VTALARM",
  679.     "PROF"
  680. #endif
  681. #endif
  682.     };
  683. #endif
  684.  
  685. #ifdef DEBUGGING
  686.     if (debug) {
  687.     printf("\nSIG%s--.newsrc not restored in debug\n",signame[signo]);
  688.     finalize(-1);
  689.     }
  690. #endif
  691.     if (panic)
  692.     abort();
  693.     (void) sigset(SIGILL,SIG_DFL);
  694.     panic = TRUE;            /* disable terminal I/O */
  695.     if (doing_ng) {            /* need we reconstitute rc line? */
  696.     yankback();
  697.     restore_ng();            /* then do so (hope this works) */
  698.     }
  699.     doing_ng = FALSE;
  700.     if (rc_changed)            /* need we write .newsrc out? */
  701.     write_rc();            /* then do so */
  702.     rc_changed = FALSE;
  703.     if (signo != SIGHUP)
  704. #ifdef VERBOSE
  705.     IF(verbose)
  706.         printf("\nCaught %s%s--.newsrc restored\n",
  707.         signo ? "a SIG" : "an internal error", signame[signo]);
  708.     ELSE
  709. #endif
  710. #ifdef TERSE
  711.         printf("\nSignal %d--bye bye\n",signo);
  712. #endif
  713.     switch (signo) {
  714.     case SIGBUS:
  715.     case SIGILL:
  716.     case SIGSEGV:
  717.     finalize(-signo);
  718.     }
  719.     finalize(1);                /* and blow up */
  720. }
  721.  
  722. #ifdef SIGTSTP
  723. /* come here on stop signal */
  724.  
  725. int
  726. stop_catcher(signo)
  727. int signo;
  728. {
  729.     if (!waiting) {
  730.     checkpoint_rc();        /* good chance of crash while stopped */
  731.     resetty();            /* this is the point of all this */
  732. #ifdef DEBUGGING
  733.     if (debug)
  734.         write(2,"stop_catcher\n",13);
  735. #endif
  736.     sigset(signo,SIG_DFL);    /* enable stop */
  737. #ifdef SIGBLOCK
  738.     sigsetmask(sigblock(0) & ~(1 << (signo-1)));
  739. #endif
  740.     kill(0,signo);        /* and do the stop */
  741.         savetty();
  742. #ifdef MAILCALL
  743.         mailcount = 0;            /* force recheck */
  744. #endif
  745.         if (!panic) {
  746.         if (!waiting) {
  747.             noecho();            /* set no echo */
  748.             crmode();            /* set cbreak mode */
  749.             forceme("\f");        /* cause a refresh */
  750.                     /* (defined only if TIOCSTI defined) */
  751.         errno = 0;            /* needed for getcmd */
  752.         }
  753.         }
  754.     }
  755.     sigset(signo,stop_catcher);    /* unenable the stop */
  756. }
  757. #endif
  758. !STUFFY!FUNK!
  759. echo Extracting artio.c
  760. cat >artio.c <<'!STUFFY!FUNK!'
  761. /* $Header: artio.c,v 4.3.2.5 90/03/22 23:04:04 sob Exp $
  762.  *
  763.  * $Log:    artio.c,v $
  764.  * Revision 4.3.2.5  90/03/22  23:04:04  sob
  765.  * Fixes provided by Wayne Davison <drivax!davison>
  766.  * 
  767.  * Revision 4.3.2.4  89/11/27  01:29:57  sob
  768.  * Altered NNTP code per ideas suggested by Bela Lubkin
  769.  * <filbo@gorn.santa-cruz.ca.us>
  770.  * 
  771.  * Revision 4.3.2.3  89/11/26  22:55:31  sob
  772.  * Add nntpopen() and nntpclose() routines to cut down on size of rrn
  773.  * 
  774.  * Revision 4.3.2.2  89/11/08  01:17:12  sob
  775.  * Added changes to insure that this will compile for RN or RRN with no
  776.  * changes to the source code.
  777.  * 
  778.  * Revision 4.3.2.1  89/11/06  00:07:25  sob
  779.  * Added RRN support from NNTP 1.5
  780.  * 
  781.  * Revision 4.3  85/05/01  11:35:39  lwall
  782.  * Baseline for release with 4.3bsd.
  783.  * 
  784.  */
  785.  
  786. #include "EXTERN.h"
  787. #include "common.h"
  788. #ifdef SERVER
  789. #include "server.h"
  790. #endif
  791. #include "INTERN.h"
  792. #include "artio.h"
  793.  
  794. void
  795. artio_init()
  796. {
  797.     ;
  798. }
  799.  
  800. /* open an article, unless it's already open */
  801.  
  802. FILE *
  803. artopen(artnum)
  804. ART_NUM artnum;
  805. {
  806. #ifdef SERVER
  807.     nntpopen(artnum,ARTICLE);
  808. #else
  809.     char artname[32];            /* filename of current article */
  810.  
  811.     if (artnum < 1)
  812.     return Nullfp;
  813.     if (openart == artnum) {        /* this article is already open? */
  814.     fseek(artfp,0L,0);        /* just get to the beginning */
  815.     return artfp;            /* and say we succeeded */
  816.     }
  817.     if (artfp != Nullfp) {        /* it was somebody else? */
  818.     fclose(artfp);            /* put them out of their misery */
  819.     openart = 0;            /* and remember them no more */
  820.     }
  821.     sprintf(artname,"%ld",(long)artnum);
  822.                     /* produce the name of the article */
  823.     if (artfp = fopen(artname,"r"))    /* if we can open it */
  824.     openart = artnum;        /* remember what we did here */
  825. #endif SERVER
  826. #ifdef LINKART
  827.     {
  828.     char tmpbuf[256];
  829.     char *s;
  830.  
  831.     if (fstat(artfp->_file,&filestat))
  832.         return artfp;
  833.     if (filestat.st_size < (sizeof tmpbuf)) {
  834.         fgets(tmpbuf,(sizeof tmpbuf),artfp);
  835.         if (*tmpbuf == '/') {    /* is a "link" to another article */
  836.         fclose(artfp);
  837.         if (s=index(tmpbuf,'\n'))
  838.             *s = '\0';
  839.         if (!(artfp = fopen(tmpbuf,"r")))
  840.             openart = 0;
  841.         else {
  842.             if (*linkartname)
  843.             free(linkartname);
  844.             linkartname = savestr(tmpbuf);
  845.         }
  846.         }
  847.         else
  848.         fseek(artfp,0L,0);        /* get back to the beginning */
  849.     }
  850.     }
  851. #endif
  852.     return artfp;            /* and return either fp or NULL */
  853. }
  854.  
  855. #ifdef SERVER
  856. static long our_pid;
  857.  
  858. FILE *
  859. nntpopen(artnum,function)
  860. ART_NUM artnum;
  861. ART_PART function;
  862. {
  863.     char ser_line[256];
  864.     char artname[32];            /* filename of current article */
  865.     if (our_pid == 0)
  866.     our_pid = getpid();
  867.     if (artnum < 1)
  868.     return Nullfp;
  869.     if ((openart == artnum) && (openpart >= function))
  870.     {                    /* this article is already open? */
  871.     fseek(artfp,0L,0);        /* just get to the beginning */
  872.     return artfp;            /* and say we succeeded */
  873.     }
  874.     if (artfp != Nullfp) {        /* it was somebody else? */
  875.     fclose(artfp);            /* put them out of their misery */
  876.     nntpclose();
  877.     openart = 0;            /* and remember them no more */
  878.     }
  879.     sprintf(artname,"/tmp/rrn%ld.%ld", (long) artnum, our_pid);
  880.     artfp = fopen(artname, "w+");    /* create the temporary article */
  881.     if (artfp == Nullfp) {
  882.     UNLINK(artname);
  883.     return Nullfp;
  884.     }
  885.     switch (function){
  886.         case STAT:
  887.         function = HEAD;    /* fall through */
  888.         case HEAD:
  889.         sprintf(ser_line, "HEAD %ld", (long)artnum);
  890.         break;
  891.         case ARTICLE:
  892.         sprintf(ser_line, "ARTICLE %ld", (long)artnum);
  893.         break;
  894.     }        
  895.     put_server(ser_line);        /* ask the server for the article */
  896.     if (get_server(ser_line, sizeof(ser_line)) < 0) {
  897.     fprintf(stderr, "rrn: Unexpected close of server socket.\n");
  898.     finalize(1);
  899.     }
  900.     if (*ser_line != CHAR_OK) {        /* and get it's reaction */
  901.     fclose(artfp);
  902.     artfp = Nullfp;
  903.     UNLINK(artname);
  904.      errno = ENOENT;        /* Simulate file-not-found */
  905.         return Nullfp;
  906.     }
  907.  
  908.     for (;;) {
  909.         if (get_server(ser_line, sizeof(ser_line)) < 0) {
  910.         fprintf(stderr, "rrn: Unexpected close of server socket.\n");
  911.         finalize(1);
  912.     }
  913.     if (ser_line[0] == '.' && ser_line[1] == '\0')
  914.         break;
  915.     fputs((ser_line[0] == '.' ? ser_line + 1 : ser_line), artfp);
  916.     putc('\n', artfp);
  917.     }
  918.     openpart = function;
  919.     if (function == HEAD)
  920.      putc('\n', artfp); /* req'd blank line after header */
  921.     fseek(artfp, 0L, 0);        /* Then get back to the start */
  922.     openart = artnum;
  923.     return artfp;            /* and return either fp or NULL */
  924. }
  925.  
  926. void
  927. nntpclose()
  928. {
  929.     char artname[32];            /* filename of current article */
  930.     if (our_pid == 0)
  931.     our_pid = getpid();
  932.     sprintf(artname, "/tmp/rrn%ld.%ld", (long) openart, our_pid);
  933.     UNLINK(artname);
  934. }
  935. #endif
  936. !STUFFY!FUNK!
  937. echo Extracting HACKERSGUIDE
  938. cat >HACKERSGUIDE <<'!STUFFY!FUNK!'
  939. Hacking Notes
  940.  
  941. If you aren't interested in mucking with the innards of rn, don't read this.
  942.  
  943. In the interests of both space and time optimization, things are done inside
  944. rn that don't always conform to the highest ideals of programming.  To the
  945. extent I felt it was practical, I've tried to conform to good programming
  946. practice, but you must realize that my goal was to make a better mousetrap,
  947. so certain conscious tradeoffs were made in the design of rn right from the
  948. start.  In particular, if you want to hack on rn (and I wouldn't blame you,
  949. it's fun), beware of the following:
  950.   
  951.   * buf and cmd_buf are reused all over the place.  11-squishing is a good
  952.     term for it.  No, I'm on a Vax now, but I've been there.
  953.  
  954.   * The article header is parsed on the fly, while it is being displayed.
  955.     In fact, practically everything is done on the fly within the article
  956.     display loop, and there are plenty of state variables.  The header
  957.     is never explicitly stored in memory; rather, pointers are kept into
  958.     the file.  The information required to backup pages is not stored in
  959.     memory, except for 1 buffer's worth.  The information required to do
  960.     the delayed mark as unread (M) is not stored in memory either.
  961.  
  962.   * Lots of contortions are gone through to avoid using static memory, or
  963.     allocating unnecessary memory, or losing track of allocated memory,
  964.     while at the same time allowing .newsrc lines and header lines to be
  965.     ANY length up to the amount of memory you have.  Rn spends a great deal
  966.     of effort being lazy.  Do not use a static buffer when you can use
  967.     growstr().
  968.  
  969.   * Lots of contortions are gone through to try to do things when people
  970.     aren't waiting, or have only been waiting a very short time.  Guessing
  971.     the next article to be opened and opening it, searching ahead for the
  972.     next article with the same subject, delaying the look up of the number
  973.     of articles in a newsgroup, writing the rest of the page while the
  974.     reader is examining the header, cacheing up subjects while the user
  975.     is reading, checkpointing the .newsrc only while the reader is in the
  976.     middle of an interesting article, are some of the strategies employed.
  977.   
  978.   * There are plenty of goto's.  Most of them involve going back to reprompt,
  979.     to reask for input, or to just plain do the unstructured things people
  980.     want to do when they are glaring at a terminal.  If they bother you
  981.     too much, just think of rn as a big state machine.  If they don't bother
  982.     you at all, I don't want you hacking on rn.
  983.  
  984.   * Put all includes at the front of the file, before the first function,
  985.     or makedepend will not work right.  I could relax this, but makedepend
  986.     would take about 5 times longer to run.
  987.  
  988. In general then, feel free to hack on rn.  Just don't broadcast untested
  989. patches to the net.  Remember that there are people with limited address
  990. spaces and limited cpu cycles.  If you add a wonderful new feature and
  991. want to publish a patch, put #ifdef's around it so that people who don't
  992. want it or can't afford it can work around it.  THIS MEANS YOU.  We don't
  993. need 57 varieties of mutually incompatible and incomprehensible rn floating
  994. about the net.  Consider telling me about your patch so that I can consider
  995. including it in the standard version.  A COMPLETE PATCH TAKES INTO ACCOUNT
  996. SYSTEM DEPENDENCIES AS DETERMINED BY THE CONFIGURE SCRIPT.
  997.  
  998. * Don't use ints where rn uses typedefs, in particular, for article numbers.
  999. * Don't use %d anywhere that someone might need a %ld.  (Just because YOU
  1000.     typedefed it as an int doesn't mean someone else won't need a long.)
  1001. * Don't use %D, that's archaic.
  1002. * Put FLUSHes after printf()s, fputs()es and putchar('\n')s for our poor
  1003.     brethern and sistern without line buffering.
  1004. * Declare the type of every function.  Use void, even if your C compiler
  1005.     doesn't.
  1006. * Follow the style that rn already uses!  This is my pet peeve.  Well, one of
  1007.     them, anyway.  I follow other people's strange styles when modifying
  1008.     their programs, so I'd be much obliged if you did likewise.
  1009. * Use lint.
  1010. * Use RCS.  Start a new branch, like 4.3.[2-9].  (I will use 4.3.1 myself.)
  1011. * Be structured wherever it doesn't interfere with practicality.
  1012. * Long live paranoid programming.  The rest of the program is out to get you.
  1013.     The world is out to destroy the program, not to mention the .newsrc.
  1014.     And then there's always bitrot...
  1015. * Stop reading this lugubrious trash and start thinking for yourself.
  1016. * Thank you and good night.
  1017. !STUFFY!FUNK!
  1018. echo Extracting README
  1019. cat >README <<'!STUFFY!FUNK!'
  1020.             Rn Kit, Version 4.3
  1021.  
  1022.             Copyright (c) 1985, Larry Wall
  1023.  
  1024. You may copy the rn kit in whole or in part as long as you don't try to
  1025. make money off it, or pretend that you wrote it.
  1026. --------------------------------------------------------------------------
  1027.  
  1028. Please read all the directions below before you proceed any further, and
  1029. then follow them carefully.  Failure to do so may void your warranty. :-)
  1030.  
  1031. After you have unpacked your kit, you should have all the files listed
  1032. in MANIFEST.
  1033.  
  1034. Installation
  1035.  
  1036. 1)  Run Configure.  This will figure out various things about your system.
  1037.     Some things Configure will figure out for itself, other things it will
  1038.     ask you about.  It will then proceed to make config.h, config.sh, Makefile,
  1039.     and a bunch of shell scripts.  It will also do a make depend for you.
  1040.     You might possibly have to trim # comments from the front of Configure
  1041.     if your sh doesn't handle them, but all other # comments will be taken
  1042.     care of.
  1043.  
  1044. 2)  Glance through config.h and common.h to make sure system dependencies
  1045.     are correct.  Most of them should have been taken care of by running
  1046.     the Configure script.
  1047.  
  1048.     If you have any additional changes to make to the C definitions, they
  1049.     can be done in the Makefile, in config.h, or in common.h.  If you have
  1050.     strange mailboxes on your system you should modify mbox.saver to correctly
  1051.     append an article to a mailbox or folder.
  1052.  
  1053.     If you are on a machine with limited address space, you may have to
  1054.     remove some of the special functions of rn to make it fit.  This is
  1055.     easily done by undefining symbols in the System Dependencies section
  1056.     of common.h.  You should run "make depend" again to be safe.
  1057.  
  1058. 3)  make
  1059.  
  1060.     This will attempt to make rn in the current directory.
  1061.  
  1062. 4)  make install
  1063.  
  1064.     This will put rn, newsetup, newsgroups, Pnews, and Rnmail into a public
  1065.     directory (normally /usr/local/bin), and put a number of files into the
  1066.     private rn library (normally /usr/lib/news/rn).  It will also try to put
  1067.     the man pages in a reasonable place.
  1068.  
  1069. 5)  Read the manual entry before running rn.  It's quite different from
  1070.     readnews.
  1071.  
  1072. 6)  If you are trying to make it work with NNTP, be sure you have 
  1073.     installed the NNTP inews and the file that contains the name of the
  1074.     NNTP server. RRN expects that the NNTP is at least version 1.5.
  1075.  
  1076. 7)  Try rn, and play with some of the switches.  You may want to make -/
  1077.     default on your system.  This is done in common.h.  You may want to modify
  1078.     which header lines are displayed by default--this is done in head.h.
  1079.  
  1080.     To change default values of enviroment variables on a system-wide basis
  1081.     without recompiling rn, put switches into file INIT in the rn library.
  1082.  
  1083. 8)  IMPORTANT!  Help save the world!  Communicate any problems and
  1084.     suggested patches to my faithful servant, sob@bcm.tmc.edu, so we can
  1085.     keep the world in sync.  If you have a problem, there's someone else
  1086.     out there who either has had or will have the same problem.
  1087.  
  1088.     If possible, send in patches such that the patch program will apply them.
  1089.     Context diffs are the best, then normal diffs.  Don't send ed scripts--
  1090.     I've probably changed my copy since the version you have.
  1091.  
  1092.     Watch for rn patches in news.software.b.  Patches will generally be
  1093.     applyable (is that a word?) by the patch program.  If you are just
  1094.     now bringing up news and aren't sure how many patches there are, write
  1095.     to sob@bcm.tmc.edu and he'll send any you don't have.
  1096.  
  1097. 9)  If you are going to hack on rn, please read the HACKERSGUIDE first.
  1098. !STUFFY!FUNK!
  1099. echo Extracting head.h
  1100. cat >head.h <<'!STUFFY!FUNK!'
  1101. /* $Header: head.h,v 4.3 85/05/01 11:38:31 lwall Exp $
  1102.  *
  1103.  * $Log:    head.h,v $
  1104.  * Revision 4.3  85/05/01  11:38:31  lwall
  1105.  * Baseline for release with 4.3bsd.
  1106.  * 
  1107.  */
  1108.  
  1109. #define HEAD_FIRST 1
  1110.  
  1111. /* types of header lines (if only C really believed in enums)
  1112.  * (These must stay in alphabetic order at least in the first letter.
  1113.  * Within each letter it helps to arrange in increasing likelihood.)
  1114.  */
  1115.  
  1116. #define PAST_HEADER    0    /* body */
  1117. #define SOME_LINE    1    /* unrecognized */
  1118. #define ARTID_LINE    2    /* article-i.d. */
  1119. #define APPR_LINE    3    /* approved */
  1120. #define DIST_LINE    4    /* distribution */
  1121. #define DATE_LINE    5    /* date */
  1122. #define RECEIVED_LINE    6    /* date-received */
  1123. #define EXPIR_LINE    7    /* expires */
  1124. #define FOLLOW_LINE    8    /* followup-to */
  1125. #define FROM_LINE    9    /* from */
  1126. #define KEYW_LINE    10    /* keywords */
  1127. #define LINES_LINE    11    /* lines */
  1128. #define MESSID_LINE    12    /* message-id */
  1129. #define NFFR_LINE    13    /* nf-from */
  1130. #define NFID_LINE    14    /* nf-id */
  1131. #define NGS_LINE    15    /* newsgroups */
  1132. #define ORG_LINE    16    /* organization */
  1133. #define PATH_LINE    17    /* path */
  1134. #define POSTED_LINE    18    /* posted */
  1135. #define PVER_LINE    19    /* posting-version */
  1136. #define REPLY_LINE    20    /* reply-to */
  1137. #define REFS_LINE    21    /* references */
  1138. #define RVER_LINE    22    /* relay-version */
  1139. #define SENDER_LINE    23    /* sender */
  1140. #define SUMRY_LINE    24    /* summary */
  1141. #define SUBJ_LINE    25    /* subject */
  1142. #define XREF_LINE    26    /* xref */
  1143.  
  1144. #define HEAD_LAST    27    /* one more than the last one above */
  1145.  
  1146. struct headtype {
  1147.     char *ht_name;        /* header line identifier */
  1148. #ifdef pdp11
  1149.     short ht_minpos;
  1150.     short ht_maxpos;
  1151. #else
  1152.     ART_POS ht_minpos;        /* pointer to beginning of line in article */
  1153.     ART_POS ht_maxpos;        /* pointer to end of line in article */
  1154. #endif
  1155.     char ht_length;        /* could make these into nybbles but */
  1156.     char ht_flags;        /* it wouldn't save space normally */
  1157. };                /* due to alignment considerations */
  1158.  
  1159. #define HT_HIDE 1    /* -h on this line */
  1160. #define HT_MAGIC 2    /* do any special processing on this line */
  1161.  
  1162. /* This array must stay in the same order as the list above */
  1163.  
  1164. #ifndef DOINIT
  1165. EXT struct headtype htype[HEAD_LAST];
  1166. #else
  1167. struct headtype htype[HEAD_LAST] = {
  1168.  /* name             minpos   maxpos  length   flag */
  1169.     {"BODY",        0,    0,    4,    0        },
  1170.     {"unrecognized",    0,    0,    12,    0        },
  1171.     {"article-i.d.",    0,    0,    12,    HT_HIDE        },
  1172.     {"approved",    0,    0,    8,    HT_HIDE        },
  1173.     {"distribution",    0,    0,    12,    0        },
  1174.     {"date",        0,    0,    4,    0        },
  1175.     {"date-received",    0,    0,    13,    0        },
  1176.     {"expires",        0,    0,    7,    HT_HIDE|HT_MAGIC},
  1177.     {"followup-to",    0,    0,    11,    0        },
  1178.     {"from",        0,    0,    4,    0        },
  1179.     {"keywords",    0,    0,    8,    0        },
  1180.     {"lines",        0,    0,    5,    0        },
  1181.     {"message-id",    0,    0,    10,    0        },
  1182.     {"nf-from",        0,    0,    7,    HT_HIDE        },
  1183.     {"nf-id",        0,    0,    5,    HT_HIDE        },
  1184.     {"newsgroups",    0,    0,    10,    HT_MAGIC|HT_HIDE},
  1185.     {"organization",    0,    0,    12,    0        },
  1186.     {"path",        0,    0,    4,    HT_HIDE        },
  1187.     {"posted",        0,    0,    6,    HT_HIDE        },
  1188.     {"posting-version",    0,    0,    15,    HT_HIDE        },
  1189.     {"reply-to",    0,    0,    8,    0        },
  1190.     {"references",    0,    0,    10,    0        },
  1191.     {"relay-version",    0,    0,    13,    HT_HIDE        },
  1192.     {"sender",        0,    0,    6,    0        },
  1193.     {"summary",        0,    0,    7,    0        },
  1194.     {"subject",        0,    0,    7,    HT_MAGIC    },
  1195.     {"xref",        0,    0,    4,    HT_HIDE        }
  1196. };
  1197. #endif
  1198.  
  1199. #ifdef ASYNC_PARSE
  1200. EXT ART_NUM parsed_art INIT(0);
  1201. #endif
  1202.  
  1203. EXT char in_header INIT(0);        /* are we decoding the header? */
  1204.  
  1205. #ifdef CACHESUBJ
  1206.     EXT char **subj_list INIT(Null(char **));
  1207. #endif
  1208.  
  1209. void    head_init();
  1210. int    set_line_type();
  1211. void    start_header();
  1212. bool    parseline();
  1213. #ifdef ASYNC_PARSE
  1214.     int        parse_maybe();
  1215. #endif
  1216. char    *fetchsubj();
  1217. char    *fetchlines();
  1218. !STUFFY!FUNK!
  1219. echo Extracting cheat.c
  1220. cat >cheat.c <<'!STUFFY!FUNK!'
  1221. /* $Header: cheat.c,v 4.3.2.2 89/11/27 01:30:18 sob Locked $
  1222.  *
  1223.  * $Log:    cheat.c,v $
  1224.  * Revision 4.3.2.2  89/11/27  01:30:18  sob
  1225.  * Altered NNTP code per ideas suggested by Bela Lubkin
  1226.  * <filbo@gorn.santa-cruz.ca.us>
  1227.  * 
  1228.  * Revision 4.3.2.1  89/11/26  22:54:21  sob
  1229.  * Added RRN support
  1230.  * 
  1231.  * Revision 4.3  85/05/01  11:36:46  lwall
  1232.  * Baseline for release with 4.3bsd.
  1233.  * 
  1234.  */
  1235.  
  1236. #include "EXTERN.h"
  1237. #include "common.h"
  1238. #include "intrp.h"
  1239. #include "search.h"
  1240. #include "ng.h"
  1241. #include "bits.h"
  1242. #include "artio.h"
  1243. #include "term.h"
  1244. #include "artsrch.h"
  1245. #include "head.h"
  1246. #include "INTERN.h"
  1247. #include "cheat.h"
  1248.  
  1249. /* see what we can do while they are reading */
  1250.  
  1251. #ifdef PENDING
  1252. #   ifdef ARTSEARCH
  1253.     COMPEX srchcompex;        /* compiled regex for searchahead */
  1254. #   endif
  1255. #endif
  1256.  
  1257. void
  1258. cheat_init()
  1259. {
  1260.     ;
  1261. }
  1262.  
  1263. #ifdef PENDING
  1264. void
  1265. look_ahead()
  1266. {
  1267. #ifdef ARTSEARCH
  1268.     register char *h, *s;
  1269.  
  1270. #ifdef DEBUGGING
  1271.     if (debug && srchahead) {
  1272.     printf("(%ld)",(long)srchahead);
  1273.     fflush(stdout);
  1274.     }
  1275. #endif
  1276.     if (srchahead && srchahead < art) {    /* in ^N mode? */
  1277.     char *pattern;
  1278.  
  1279.     pattern = buf+1;
  1280.     strcpy(pattern,": *");
  1281.     h = pattern + strlen(pattern);
  1282.     interp(h,(sizeof buf) - (h-buf),"%s");
  1283.     h[24] = '\0';        /* compensate for notesfiles */
  1284.     while (*h) {
  1285.         if (index("\\[.^*$'\"",*h) != Nullch)
  1286.         *h++ = '.';
  1287.         else
  1288.         h++;
  1289.     }
  1290. #ifdef DEBUGGING
  1291.     if (debug & DEB_SEARCH_AHEAD) {
  1292.         fputs("(hit CR)",stdout);
  1293.         fflush(stdout);
  1294.         gets(buf+128);
  1295.         printf("\npattern = %s\n",pattern);
  1296.     }
  1297. #endif
  1298.     if ((s = compile(&srchcompex,pattern,TRUE,TRUE)) != Nullch) {
  1299.                     /* compile regular expression */
  1300.         printf("\n%s\n",s);
  1301.         srchahead = 0;
  1302.     }
  1303.     if (srchahead) {
  1304.         srchahead = art;
  1305.         for (;;) {
  1306.         srchahead++;    /* go forward one article */
  1307.         if (srchahead > lastart) { /* out of articles? */
  1308. #ifdef DEBUGGING
  1309.             if (debug)
  1310.             fputs("(not found)",stdout);
  1311. #endif
  1312.             break;
  1313.         }
  1314.         if (!was_read(srchahead) &&
  1315.             wanted(&srchcompex,srchahead,0)) {
  1316.                     /* does the shoe fit? */
  1317. #ifdef DEBUGGING
  1318.             if (debug)
  1319.             printf("(%ld)",(long)srchahead);
  1320. #endif
  1321. #ifdef SERVER
  1322.             nntpopen(srchahead,HEAD);
  1323. #else
  1324.             artopen(srchahead);
  1325. #endif
  1326.             break;
  1327.         }
  1328.         if (input_pending())
  1329.             break;
  1330.         }
  1331.         fflush(stdout);
  1332.     }
  1333.     }
  1334.     else
  1335. #endif
  1336.     {
  1337.     if (art+1 <= lastart)/* how about a pre-fetch? */
  1338. #ifdef SERVER
  1339.         nntpopen(art+1,HEAD);    /* look for the next article */
  1340. #else
  1341.         artopen(art+1);    /* look for the next article */
  1342. #endif
  1343.     }
  1344. }
  1345. #endif
  1346.  
  1347. /* see what else we can do while they are reading */
  1348.  
  1349. void
  1350. collect_subjects()
  1351. {
  1352. #ifdef PENDING
  1353. # ifdef CACHESUBJ
  1354.     ART_NUM oldart = openart;
  1355.     ART_POS oldartpos;
  1356.  
  1357.     if (!in_ng || !srchahead)
  1358.     return;
  1359.     if (oldart)            /* remember where we were in art */
  1360.     oldartpos = ftell(artfp);
  1361.     if (srchahead >= subj_to_get)
  1362.     subj_to_get = srchahead+1;
  1363.     while (!input_pending() && subj_to_get <= lastart)
  1364.     fetchsubj(subj_to_get++,FALSE,FALSE);
  1365.     if (oldart) {
  1366.     artopen(oldart);
  1367.     fseek(artfp,oldartpos,0);    /* do not screw the pager */
  1368.     }
  1369. # endif
  1370. #endif
  1371. }
  1372.  
  1373. !STUFFY!FUNK!
  1374. echo Extracting Pnews.1
  1375. cat >Pnews.1 <<'!STUFFY!FUNK!'
  1376. ''' $Header: Pnews.1,v 4.3.1.2 85/08/01 14:22:48 lwall Exp $
  1377. ''' 
  1378. ''' $Log:    Pnews.1,v $
  1379. ''' Revision 4.3.1.2  85/08/01  14:22:48  lwall
  1380. ''' Added AUTHORCOPY.
  1381. ''' 
  1382. ''' Revision 4.3.1.1  85/05/10  11:30:30  lwall
  1383. ''' Branch for patches.
  1384. ''' 
  1385. ''' Revision 4.3  85/05/01  11:33:50  lwall
  1386. ''' Baseline for release with 4.3bsd.
  1387. ''' 
  1388. .de Sh
  1389. .br
  1390. .ne 5
  1391. .PP
  1392. \fB\\$1\fR
  1393. .PP
  1394. ..
  1395. .de Sp
  1396. .if t .sp .5v
  1397. .if n .sp
  1398. ..
  1399. '''
  1400. '''     Set up \*(-- to give an unbreakable dash;
  1401. '''     string Tr holds user defined translation string.
  1402. '''     Bell System Logo is used as a dummy character.
  1403. '''
  1404. .ie n \{\
  1405. .tr \(bs-\*(Tr
  1406. .ds -- \(bs-
  1407. .if (\n(.H=4u)&(1m=24u) .ds -- \(bs\h'-12u'\(bs\h'-12u'-\" diablo 10 pitch
  1408. .if (\n(.H=4u)&(1m=20u) .ds -- \(bs\h'-12u'\(bs\h'-8u'-\" diablo 12 pitch
  1409. .ds L" ""
  1410. .ds R" ""
  1411. .ds L' '
  1412. .ds R' '
  1413. 'br\}
  1414. .el\{\
  1415. .ds -- \(em\|
  1416. .tr \*(Tr
  1417. .ds L" ``
  1418. .ds R" ''
  1419. .ds L' `
  1420. .ds R' '
  1421. 'br\}
  1422. .TH PNEWS 1 LOCAL
  1423. .SH NAME
  1424. Pnews - a program for posting news articles
  1425. .SH SYNOPSIS
  1426. .B Pnews newsgroup title
  1427. .br
  1428.   or
  1429. .br
  1430. .B Pnews -h headerfile [oldarticle]
  1431. .br
  1432.   or
  1433. .br
  1434. .B Pnews
  1435. .SH DESCRIPTION
  1436. Pnews is a friendly interface for posting news articles.
  1437. It will ask several questions, then allow you to enter your article,
  1438. and then post it using the inews(1) program.
  1439. If you type h and a carriage return at any point,
  1440. .I Pnews
  1441. will tell you what it wants to know.
  1442. .PP
  1443. The -h form is used when invoked from
  1444. .IR rn .
  1445. If your editor can edit multiple files, and you want the article to which
  1446. you are replying to show up as an alternate file, define the environment
  1447. variable NEWSPOSTER as \*(L"Pnews -h %h %A\*(R".
  1448. You can also modify the the NEWSHEADER environment variable to change the
  1449. header file that
  1450. .I rn
  1451. passes to Pnews.
  1452. .SH ENVIRONMENT
  1453. .IP AUTHORCOPY 8
  1454. If defined, contains the name of a file to which the finished article will
  1455. be appended.
  1456. .Sp
  1457. Default: article not saved
  1458. .IP DOTDIR 8
  1459. Where to find your dot files, if they aren't in your home directory.
  1460. This is primarily for accounts which are shared by more than one person.
  1461. .Sp
  1462. Default: $HOME
  1463. .IP EDITOR 8
  1464. The editor you want to use, if VISUAL is undefined.
  1465. .Sp
  1466. Default: whatever your news administrator installed, usually vi.
  1467. .IP HOME 8
  1468. Your home directory.
  1469. .Sp
  1470. Default: $LOGDIR
  1471. .IP LOGDIR 8
  1472. Your home directory if HOME is undefined.
  1473. .IP LOGNAME 8
  1474. Your login name, if USER is undefined.
  1475. .Sp
  1476. Default: value of \*(L"whoami\*(R".
  1477. .IP NAME 8
  1478. Your full name.
  1479. .Sp
  1480. Default: name from /etc/passwd, or ~/.fullname.
  1481. .IP ORGANIZATION 8
  1482. Either the name of your organization, or the name of a file containing the
  1483. name of your organization.
  1484. .Sp
  1485. Default: whatever your news administrator chose.
  1486. .IP USER 8
  1487. Your login name.
  1488. .Sp
  1489. Default: $LOGNAME
  1490. .IP VISUAL 8
  1491. The editor you want to use.
  1492. .Sp
  1493. Default: $EDITOR
  1494. .SH FILES
  1495. $DOTDIR/.article
  1496. .br
  1497. ~/dead.article
  1498. .SH SEE ALSO
  1499. rn(1), Rnmail(1), inews(1)
  1500. .SH DIAGNOSTICS
  1501. .SH BUGS
  1502. Not the speediest program in the world, but maybe that's a blessing to the
  1503. net.
  1504. !STUFFY!FUNK!
  1505. echo Extracting NEW
  1506. cat >NEW <<'!STUFFY!FUNK!'
  1507.             NEW FEATURES WITH RN/RRN 4.3
  1508.  
  1509. New commands
  1510.     TAB (pager)    scan for end of quoted text.
  1511.     && (anywhere)    set or display macros.
  1512.     Q (art level)    exit this newsgroup but stay on it.
  1513.     x (ng level)    exit rn without changing .newsrc.
  1514.  
  1515. New switch
  1516.     -=TERM-switch    apply switch if terminal is TERM.        
  1517.  
  1518. New environment variables
  1519.     RNMACRO        name of your macro and keymap file, if any.
  1520.     SUBJLINE    controls format of = article listing.
  1521.  
  1522. New % interpolations.
  1523.     %I        inclusion indicator (-F argument).
  1524.     %m        current mode of rn (newsgroup, pager, etc.)
  1525.     %z        length of current article.
  1526.     %"prompt"    prompt for input from keyboard.
  1527.     %`command`    same as shell backquotes.
  1528.     ^char        now produces control-char.
  1529.  
  1530. Macros and Keymaps
  1531.     You may now define macros of any reasonable length and map those
  1532.     macros onto your keyboard in any way.  You can completely remap the
  1533.     keyboard if you wish.  Macros may contain % interpolations.
  1534.  
  1535. Global RNINIT file
  1536.     You can now set pseudo-environment variables on a system-wide basis
  1537.     in the file %X/INIT.  You don't have to recompile rn when you want 
  1538.     to try something different.
  1539.  
  1540. Pnews
  1541.     Can append your .signature if you like.
  1542.     Now knows how to mail to moderators.
  1543.     Runs somewhat faster now when invoked with -h.
  1544.     Will use %x/distributions if it exists.
  1545.     Doesn't ask for Distribution on local newsgroups.
  1546.     Doesn't ask for editor if EDITOR or VISUAL is set.
  1547.  
  1548. Terminal handling
  1549.     -L switch uses erase-to-end-of-line to leave info on screen as long
  1550.         as possible.
  1551.     rn -c will not flush typeahead in your login script now.
  1552.     In multi-character commands, \ now quotes the next character.
  1553.     Support for non-line-buffered machines.  Certain V7 machines will
  1554.         appreciate the speedup.
  1555.  
  1556. Configure
  1557.     Lets the poor people without job control do shell escapes.
  1558.     Now remembers your old answers and uses them for defaults.
  1559.     Searches much more widely for libraries.
  1560.     Looks for Mcc or cc -M if it needs to.
  1561.     Finds pg if it needs to.  (Note, pg users: you can use macros to
  1562.         reverse the sense of CR and SP in rn now.)
  1563.     Figures out where manual pages go.
  1564.     Figures out where mail is spooled.
  1565.     Looks for ioctl.h, if any.
  1566.     Determines if you have a builtin echo that works differently than
  1567.         /bin/echo.
  1568.     Asks if your mail takes Internet addresses.
  1569.     Works reasonably on more systems, such as "Pyramids".
  1570.  
  1571. Miscellaneous
  1572.     Commands may be typed directly to a help menu or subject list without
  1573.         having to type 'q' first.
  1574.     - command on first displayed article of a newsgroup takes you out to
  1575.         the previous newsgroup.  (Someday it will take you to the
  1576.         previous article in the previous newsgroup.)
  1577.     You can now easily get into a newsgroup with a KILL file and no
  1578.         unread articles.
  1579.     The catchup command at the top level now asks for confirmation.
  1580.     Interpretation routines now check for output buffer overflow.
  1581.     The pager no longer get hung up on non-initial ^L.
  1582.     The negative unread articles bug was fixed.
  1583.     Numerous small bug fixes.
  1584. !STUFFY!FUNK!
  1585. echo Extracting Rnmail.1
  1586. cat >Rnmail.1 <<'!STUFFY!FUNK!'
  1587. ''' $Header: Rnmail.1,v 4.3.1.2 85/08/01 14:22:08 lwall Exp $
  1588. ''' 
  1589. ''' $Log:    Rnmail.1,v $
  1590. ''' Revision 4.3.1.2  85/08/01  14:22:08  lwall
  1591. ''' Added MAILRECORD, DOTDIR.
  1592. ''' 
  1593. ''' Revision 4.3.1.1  85/05/10  11:30:44  lwall
  1594. ''' Branch for patches.
  1595. ''' 
  1596. ''' Revision 4.3  85/05/01  11:34:28  lwall
  1597. ''' Baseline for release with 4.3bsd.
  1598. ''' 
  1599. .de Sh
  1600. .br
  1601. .ne 5
  1602. .PP
  1603. \fB\\$1\fR
  1604. .PP
  1605. ..
  1606. .de Sp
  1607. .if t .sp .5v
  1608. .if n .sp
  1609. ..
  1610. '''
  1611. '''     Set up \*(-- to give an unbreakable dash;
  1612. '''     string Tr holds user defined translation string.
  1613. '''     Bell System Logo is used as a dummy character.
  1614. '''
  1615. .ie n \{\
  1616. .tr \(bs-\*(Tr
  1617. .ds -- \(bs-
  1618. .if (\n(.H=4u)&(1m=24u) .ds -- \(bs\h'-12u'\(bs\h'-12u'-\" diablo 10 pitch
  1619. .if (\n(.H=4u)&(1m=20u) .ds -- \(bs\h'-12u'\(bs\h'-8u'-\" diablo 12 pitch
  1620. .ds L" ""
  1621. .ds R" ""
  1622. .ds L' '
  1623. .ds R' '
  1624. 'br\}
  1625. .el\{\
  1626. .ds -- \(em\|
  1627. .tr \*(Tr
  1628. .ds L" ``
  1629. .ds R" ''
  1630. .ds L' `
  1631. .ds R' '
  1632. 'br\}
  1633. .TH RNMAIL 1 LOCAL
  1634. .SH NAME
  1635. Rnmail - a program for replying via mail
  1636. .SH SYNOPSIS
  1637. .B Rnmail destination_list
  1638. .br
  1639.   or
  1640. .br
  1641. .B Rnmail -h headerfile [oldarticle]
  1642. .br
  1643.   or
  1644. .br
  1645. .B Rnmail
  1646. .SH DESCRIPTION
  1647. Rnmail is a friendly interface for mailing replies to news articles.
  1648. It will ask several questions, then allow you to enter your letter,
  1649. and then mail it off.
  1650. If you type h and a carriage return at any point,
  1651. .I Rnmail
  1652. will tell you what it wants to know.
  1653. .PP
  1654. The -h form is used when invoked from
  1655. .IR rn .
  1656. If your editor can edit multiple files, and you want the article to which
  1657. you are replying to show up as an alternate file, define the environment
  1658. variable MAILPOSTER as \*(L"Rnmail -h %h %A\*(R".
  1659. You can also modify the the MAILHEADER environment variable to change the
  1660. header file that
  1661. .I rn
  1662. passes to Rnmail.
  1663. .SH ENVIRONMENT
  1664. .IP DOTDIR 8
  1665. If defined, specifies a place other than your home directory where 'dot' files
  1666. may be stored.
  1667. This is primarily for accounts which are shared by more than one person.
  1668. .Sp
  1669. Default: $HOME
  1670. .IP EDITOR 8
  1671. The editor you want to use, if VISUAL is undefined.
  1672. .Sp
  1673. Default: whatever your news administrator installed, usually vi.
  1674. .IP HOME 8
  1675. Your home directory.
  1676. .Sp
  1677. Default: $LOGDIR
  1678. .IP LOGDIR 8
  1679. Your home directory if HOME is undefined.
  1680. .IP LOGNAME 8
  1681. Your login name, if USER is undefined.
  1682. .Sp
  1683. Default: value of \*(L"whoami\*(R".
  1684. .IP MAILRECORD 8
  1685. If defined, contains the name of a file to which the finished message will
  1686. be appended.
  1687. .Sp
  1688. Default: message not saved
  1689. .IP ORGANIZATION 8
  1690. Either the name of your organization, or the name of a file containing the
  1691. name of your organization.
  1692. .Sp
  1693. Default: whatever your news administrator chose.
  1694. .IP USER 8
  1695. Your login name.
  1696. .Sp
  1697. Default: $LOGNAME
  1698. .IP VISUAL 8
  1699. The editor you want to use.
  1700. .Sp
  1701. Default: $EDITOR
  1702. .SH FILES
  1703. $DOTDIR/.letter
  1704. .br
  1705. ~/dead.letter
  1706. .SH SEE ALSO
  1707. rn(1), Pnews(1), mail(1)
  1708. .SH DIAGNOSTICS
  1709. .SH BUGS
  1710. Uses /bin/mail in the absence of sendmail.
  1711. !STUFFY!FUNK!
  1712. echo Extracting ngsrch.c
  1713. cat >ngsrch.c <<'!STUFFY!FUNK!'
  1714. /* $Header: ngsrch.c,v 4.3 85/05/01 11:44:51 lwall Exp $
  1715.  *
  1716.  * $Log:    ngsrch.c,v $
  1717.  * Revision 4.3  85/05/01  11:44:51  lwall
  1718.  * Baseline for release with 4.3bsd.
  1719.  * 
  1720.  */
  1721.  
  1722. #include "EXTERN.h"
  1723. #include "common.h"
  1724. #include "rcstuff.h"
  1725. #include "final.h"
  1726. #include "search.h"
  1727. #include "rn.h"
  1728. #include "util.h"
  1729. #include "term.h"
  1730. #include "rcln.h"
  1731. #include "INTERN.h"
  1732. #include "ngsrch.h"
  1733.  
  1734. #ifdef NGSORONLY
  1735.     COMPEX ngcompex;
  1736. #endif
  1737.  
  1738. void
  1739. ngsrch_init()
  1740. {
  1741. #ifdef ZEROGLOB
  1742.     init_compex(&ngcompex);
  1743. #endif    /* ZEROGLOB */
  1744.     ;
  1745. }
  1746.  
  1747. #ifdef NGSEARCH
  1748. int
  1749. ng_search(patbuf,get_cmd)
  1750. char *patbuf;                /* if patbuf != buf, get_cmd must */
  1751. int get_cmd;                /*   be set to FALSE!!! */
  1752. {
  1753.     char *pattern;            /* unparsed pattern */
  1754.     register char cmdchr = *patbuf;    /* what kind of search? */
  1755.     register char *s;
  1756.     bool backward = cmdchr == '?';    /* direction of search */
  1757.  
  1758.     int_count = 0;
  1759.     if (get_cmd && buf == patbuf)
  1760.     if (!finish_command(FALSE))        /* get rest of command */
  1761.         return NGS_ABORT;
  1762.     for (pattern = patbuf+1; *pattern == ' '; pattern++) ;
  1763.     if (*pattern) {
  1764.     ng_doread = FALSE;
  1765.     }
  1766.     s = rindex(pattern,cmdchr);
  1767.     if (s != Nullch && *(s-1) != '\\') {
  1768.     *s++ = '\0';
  1769.     if (index(s,'r') != Nullch)
  1770.         ng_doread = TRUE;
  1771.     }
  1772.     if ((s = ng_comp(&ngcompex,pattern,TRUE,TRUE)) != Nullch) {
  1773.                     /* compile regular expression */
  1774.     printf("\n%s\n",s) FLUSH;
  1775.     return NGS_ABORT;
  1776.     }
  1777.     fputs("\nSearching...",stdout) FLUSH;    /* give them something to read */
  1778.     fflush(stdout);
  1779.     for (;;) {
  1780.     if (int_count) {
  1781.         int_count = 0;
  1782.         return NGS_INTR;
  1783.     }
  1784.     if (backward) {
  1785.         if (ng > 0)
  1786.         --ng;
  1787.         else
  1788.         ng = nextrcline;
  1789.     }
  1790.     else {
  1791.         if (ng >= nextrcline)
  1792.         ng = 0;
  1793.         else
  1794.         ++ng;
  1795.     }
  1796.     if (ng == current_ng)
  1797.         return NGS_NOTFOUND;
  1798.     if (ng == nextrcline || toread[ng] < TR_NONE || !ng_wanted())
  1799.         continue;
  1800.     if (toread[ng] == TR_NONE)
  1801.         set_toread(ng);
  1802.     
  1803.     if (toread[ng] > TR_NONE)
  1804.         return NGS_FOUND;
  1805.     else if (toread[ng] == TR_NONE)
  1806.         if (ng_doread)
  1807.         return NGS_FOUND;
  1808.         else
  1809.         printf("\n[0 unread in %s--skipping]",rcline[ng]) FLUSH;
  1810.     }
  1811. }
  1812.  
  1813. bool
  1814. ng_wanted()
  1815. {
  1816.     return execute(&ngcompex,rcline[ng]) != Nullch;
  1817. }
  1818. #endif
  1819.  
  1820. #ifdef NGSORONLY
  1821. char *
  1822. ng_comp(compex,pattern,RE,fold)
  1823. COMPEX *compex;
  1824. char *pattern;
  1825. bool RE;
  1826. bool fold;
  1827. {
  1828.     char ng_pattern[128];
  1829.     register char *s = pattern, *d = ng_pattern;
  1830.  
  1831.     if (!*s)
  1832.     return Nullch;            /* reuse old pattern */
  1833.     for (; *s; s++) {
  1834.     if (*s == '.') {
  1835.         *d++ = '\\';
  1836.         *d++ = *s;
  1837.     }
  1838.     else if (*s == '?') {
  1839.         *d++ = '.';
  1840.     }
  1841.     else if (*s == '*') {
  1842.         *d++ = '.';
  1843.         *d++ = *s;
  1844.     }
  1845.     else if (strnEQ(s,"all",3)) {
  1846.         *d++ = '.';
  1847.         *d++ = '*';
  1848.         s += 2;
  1849.     }
  1850.     else
  1851.         *d++ = *s;
  1852.     }
  1853.     *d = '\0';
  1854.     return compile(compex,ng_pattern,RE,fold);
  1855. }
  1856. #endif
  1857.  
  1858. !STUFFY!FUNK!
  1859. echo Extracting art.help.SH
  1860. cat >art.help.SH <<'!STUFFY!FUNK!'
  1861. case $CONFIG in
  1862.     '') . config.sh ;;
  1863. esac
  1864. echo "Extracting art.help (with variable substitutions)"
  1865. $spitshell >art.help <<!GROK!THIS!
  1866. $startsh
  1867. # $Header: art.help.SH,v 4.3 85/05/01 11:35:34 lwall Exp $
  1868. # 
  1869. # $Log:    art.help.SH,v $
  1870. # Revision 4.3  85/05/01  11:35:34  lwall
  1871. # Baseline for release with 4.3bsd.
  1872. # 
  1873. # 
  1874. $pager <<'EOT'
  1875. Article Selection commands:
  1876.  
  1877. n,SP    Scan forward for next unread article.
  1878. N    Go to next article.
  1879. ^N    Scan forward for next unread article with same subject.
  1880. p,P,^P    Same as n,N,^N, only going backwards.
  1881. -    Go to previously displayed article.
  1882. number    Go to specified article.
  1883. range{,range} command{:command}
  1884.     Apply one or more commands to one or more ranges of articles.
  1885.     Ranges are of the form: number | number-number.  You may use . for
  1886.     the current article, and $ for the last article.
  1887.      Valid commands are: j, m, M, s, S, and !.
  1888. /pattern/modifiers
  1889.     Scan forward for article containing pattern in the subject line.
  1890.     (Use ?pat? to scan backwards; append h to scan headers, a to scan
  1891.     entire articles, r to scan read articles, c to make case sensitive.
  1892. /pattern/modifiers:command{:command}
  1893.     Apply one or more commands to the set of articles matching pattern.
  1894.     Use a K modifier to save entire command to the KILL file for this
  1895.     newsgroup.  Commands m and M, if first, imply an r modifier.
  1896.      Valid commands are: j, m, M, s, S, and !.
  1897. f,F    Submit a followup article (F = include this article).
  1898. r,R    Reply through net mail (R = include this article).
  1899. s ...    Save to file or pipe via sh.
  1900. S ...    Save via preferred shell.
  1901. w,W    Like s and S but save without the header.
  1902. | ...    Same as s|...
  1903. C    Cancel this article, if yours.
  1904. ^R,v    Restart article (v=verbose).
  1905. ^X    Restart article, rot13 mode.
  1906. c    Catch up (mark all articles as read).
  1907. ^B    Back up one page.
  1908. ^L    Refresh the screen.  You can get back to the pager with this.
  1909. X    Refresh screen in rot13 mode.
  1910. ^    Go to first unread article.  Disables subject search mode.
  1911. $    Go to end of newsgroup.  Disables subject search mode.
  1912. #       Print last article number.
  1913. &    Print current values of command-line switches.
  1914. &switch {switch}
  1915.     Set or unset more switches.
  1916. &&    Print current macro definitions.
  1917. &&def    Define a new macro.
  1918. j    Junk this article (mark it read).  Stays at end of article.
  1919. m    Mark article as still unread.
  1920. M    Mark article as still unread upon exiting newsgroup or Y command.
  1921. Y    Yank back articles marked temporarily read via M.
  1922. k    Mark current SUBJECT as read.
  1923. K    Mark current SUBJECT as read, and save command in KILL file.
  1924. =    List subjects of unread articles.
  1925. u    Unsubscribe to this newsgroup.
  1926. ^K    Edit local KILL file (the one for this newsgroup).
  1927. q    Quit this newsgroup for now.
  1928. Q    Quit newsgroup, staying at current newsgroup.
  1929. EOT
  1930.  
  1931. !GROK!THIS!
  1932. $eunicefix art.help
  1933. chmod 755 art.help
  1934. !STUFFY!FUNK!
  1935. echo Extracting newsgroups.SH
  1936. cat >newsgroups.SH <<'!STUFFY!FUNK!'
  1937. case $CONFIG in
  1938.     '') . ./config.sh ;;
  1939. esac
  1940. echo "Extracting newsgroups (with variable substitutions)"
  1941. $spitshell >newsgroups <<!GROK!THIS!
  1942. $startsh
  1943. # $Header: newsgroups.SH,v 4.3.2.7 90/04/23 19:30:41 sob Exp $
  1944. # 
  1945. # $Log:    newsgroups.SH,v $
  1946. # Revision 4.3.2.7  90/04/23  19:30:41  sob
  1947. # Extra space removed to make second part of newsgroups work.
  1948. # Sigh.
  1949. # 
  1950. # Revision 4.3.2.6  90/04/06  20:35:37  sob
  1951. # Added fixes for SCO Xenix sent by ronald@robobar.co.uk.
  1952. # 
  1953. # Revision 4.3.2.5  90/03/17  17:27:00  sob
  1954. # System V sed and BSD sed don't work quite alike. This change uses a
  1955. # syntax that is common between them.
  1956. # 
  1957. # Revision 4.3.2.4  89/11/08  01:13:35  sob
  1958. # Finished modifications to make work with RN and RRN
  1959. # 
  1960. # Revision 4.3.2.3  89/11/07  22:58:04  sob
  1961. # Added final changes to allow rn and rrn to be built from same sources.
  1962. # 
  1963. # Revision 4.3.2.2  89/11/07  22:52:22  sob
  1964. # Added prelimiary support to allow both rrn and rn to be built from same
  1965. # sources.
  1966. # 
  1967. # Revision 4.3.2.1  89/11/06  01:04:39  sob
  1968. # Added RRN support from NNTP 1.5
  1969. # 
  1970. # Revision 4.3  85/05/01  11:43:27  lwall
  1971. # Baseline for release with 4.3bsd.
  1972. # 
  1973.  
  1974. export PATH || (echo "OOPS, this isn't sh.  Desperation time.  I will feed myself to sh."; sh \$0; kill \$\$)
  1975.  
  1976. : syntax: newsgroups [pattern] [pipeflag]
  1977.  
  1978. : System Dependencies
  1979.  
  1980. : You might want to change pager to a "make column" program if you have one.
  1981. : On the other hand, if your kernel does paging, cat would probably do.
  1982. pager="${pager-/usr/ucb/more}"
  1983. #NORMALactive="${active-/usr/lib/news/active}"
  1984.  
  1985. #NORMALcase \$active in
  1986. #NORMAL~*) active=\`$filexp \$active\` ;;
  1987. #NORMALesac
  1988.  
  1989. #NNTPactive="/tmp/active.\$\$"
  1990.  
  1991. : End of system dependencies, hopefully
  1992.  
  1993. #NNTP$rnlib/getactive \$active
  1994.  
  1995. if $test \$# -ge 2 ; then
  1996.     pager=$cat
  1997. else
  1998.     $echo "Completely unsubscribed newsgroups:"
  1999. fi
  2000.  
  2001. dotdir=\${DOTDIR-\${HOME-\$LOGDIR}}
  2002.  
  2003. : Throwing .newsrc into the pot twice is a lovely hack to prevent
  2004. : bogus newsgroups from showing up as unsubscribed.
  2005.  
  2006. $cat \$dotdir/.newsrc \$dotdir/.newsrc \$active | \\
  2007. $sed -n    -e '/^options/d' \\
  2008.     -e '/^[     ]/d' \\
  2009.     -e '/^control/d' \\
  2010.     -e '/^to\./d' \\
  2011.     -e 's/^\([^ !:]*\)[ !:].*\$/\1/' \\
  2012.     -e "/.*\$1/p" | \\
  2013. $sort | $uniq -u | \$pager
  2014. if $test \$# -ge 2 ; then
  2015.     exit
  2016. fi
  2017. $echo $n "[Type return to continue] $c"
  2018. read tmp
  2019. $echo ""
  2020. $echo "Unsubscribed but mentioned in .newsrc:"
  2021. $sed -n < \$dotdir/.newsrc \\
  2022.     -e "/\$1.*!/"'s/^\([^!]*\)!.*\$/\1/p' | \\
  2023. $sort | \$pager
  2024. !GROK!THIS!
  2025. case "$isrrn" in
  2026. define)  sed < newsgroups -e '/^#NNTP/s/^#NNTP//' -e '/^#NORMAL/d' > newsgroups.new ;;
  2027. *) sed < newsgroups -e '/^#NNTP/d' -e '/^#NORMAL/s/^#NORMAL//' > newsgroups.new ;;
  2028. esac
  2029. mv newsgroups.new newsgroups
  2030. $eunicefix newsgroups
  2031. chmod 755 newsgroups
  2032. !STUFFY!FUNK!
  2033. echo Extracting makedepend.SH
  2034. cat >makedepend.SH <<'!STUFFY!FUNK!'
  2035. case $CONFIG in
  2036.     '') . ./config.sh ;;
  2037. esac
  2038. echo "Extracting makedepend (with variable substitutions)"
  2039. $spitshell >makedepend <<!GROK!THIS!
  2040. $startsh
  2041. # $Header: makedepend.SH,v 4.3.2.2 90/04/21 14:24:58 sob Exp $
  2042. #
  2043. # $Log:    makedepend.SH,v $
  2044. # Revision 4.3.2.2  90/04/21  14:24:58  sob
  2045. # Added a fix to deal with XENIX cc -E output.
  2046. # 
  2047. # Revision 4.3.2.1  89/12/17  02:52:46  sob
  2048. # Will only read config.sh from local directory.
  2049. # 
  2050. # Revision 4.3.1.2  85/05/13  15:53:42  lwall
  2051. # Made cpp look in /usr/local/include too.
  2052. # 
  2053. # Revision 4.3.1.1  85/05/10  11:35:10  lwall
  2054. # Branch for patches.
  2055. # 
  2056. # Revision 4.3  85/05/01  11:42:26  lwall
  2057. # Baseline for release with 4.3bsd.
  2058. # 
  2059.  
  2060. export PATH || (echo "OOPS, this isn't sh.  Desperation time.  I will feed myself to sh."; sh \$0; kill \$\$)
  2061.  
  2062. $cat /dev/null >.deptmp
  2063. $echo "(Note: this is going to take a while.)"
  2064. $rm -f X*.c
  2065. for file in *.c; do
  2066.     filebase=\`basename \$file .c\`
  2067.     $echo "Finding dependencies for \$filebase.o."
  2068.     $sed -n <\$file >X\$file \\
  2069.     -e "/^\${filebase}_init(/q" \\
  2070.     -e '/^#/{' \\
  2071.     -e 's|/\*.*$||' \\
  2072.     -e p \\
  2073.     -e '}'
  2074.     $cpp -I/usr/local/include X\$file | $sed  \\
  2075.     -e '/^#line/s/line//' \
  2076.     -e '/^# *[0-9]/!d' \\
  2077.     -e 's/^.*"\(.*\)".*\$/'\$filebase'.o: \1/' \\
  2078.     -e 's|: \./|: |' \\
  2079.     -e 's|: X|: |' | \\
  2080.     $uniq | $sort | $uniq >> .deptmp
  2081. done
  2082.  
  2083. for file in *.SH; do
  2084.     $echo \`basename \$file .SH\`: \$file config.sh \; /bin/sh \$file >> .deptmp
  2085. done
  2086.  
  2087. $sed <Makefile >Makefile.new -e '1,/^# AUTOMATICALLY/!d'
  2088.  
  2089. if $test -s .deptmp; then
  2090.     echo "Updating Makefile..."
  2091.     echo "# If this runs make out of memory, delete /usr/include lines." >>Makefile.new
  2092.     $cat .deptmp >>Makefile.new
  2093. else
  2094.     $echo "You don't seem to have a proper C preprocessor.  Using grep instead."
  2095.     $egrep '^#include ' *.c *.h >.deptmp
  2096.     echo "Updating Makefile..."
  2097.     <.deptmp $sed -n 's|c:#include "\(.*\)".*\$\$|o: \1|p' >> Makefile.new
  2098.     <.deptmp $sed -n 's|c:#include <\(.*\)>.*\$\$|o: /usr/include/\1|p' >> Makefile.new
  2099.     <.deptmp $sed -n 's|h:#include "\(.*\)".*\$\$|h: \1|p' >> Makefile.new
  2100.     <.deptmp $sed -n 's|h:#include <\(.*\)>.*\$\$|h: /usr/include/\1|p' >> Makefile.new
  2101. fi
  2102. $mv Makefile Makefile.old
  2103. $mv Makefile.new Makefile
  2104. $echo "# WARNING: Put nothing here or make depend will gobble it up!" >> Makefile
  2105. rm .deptmp X*.c
  2106.  
  2107. !GROK!THIS!
  2108. $eunicefix makedepend
  2109. chmod 755 makedepend
  2110. !STUFFY!FUNK!
  2111. echo Extracting ndir.h
  2112. cat >ndir.h <<'!STUFFY!FUNK!'
  2113. /* $Header: ndir.h,v 4.3.2.1 90/04/17 15:28:13 sob Exp $
  2114.  *
  2115.  * $Log:    ndir.h,v $
  2116.  * Revision 4.3.2.1  90/04/17  15:28:13  sob
  2117.  * Altered to include correct directory include file.
  2118.  * 
  2119.  * Revision 4.3  85/05/01  11:43:00  lwall
  2120.  * Baseline for release with 4.3bsd.
  2121.  * 
  2122.  */
  2123.  
  2124. #ifdef LIBNDIR
  2125. #   include <ndir.h>
  2126. #else
  2127. #   ifndef USENDIR
  2128. #    include DIRINC
  2129. #   else
  2130.  
  2131. #ifndef DEV_BSIZE
  2132. #define    DEV_BSIZE    512
  2133. #endif
  2134. #define DIRBLKSIZ    DEV_BSIZE
  2135. #define    MAXNAMLEN    255
  2136.  
  2137. struct    direct {
  2138.     long    d_ino;            /* inode number of entry */
  2139.     short    d_reclen;        /* length of this record */
  2140.     short    d_namlen;        /* length of string in d_name */
  2141.     char    d_name[MAXNAMLEN + 1];    /* name must be no longer than this */
  2142. };
  2143.  
  2144. /*
  2145.  * The DIRSIZ macro gives the minimum record length which will hold
  2146.  * the directory entry.  This requires the amount of space in struct direct
  2147.  * without the d_name field, plus enough space for the name with a terminating
  2148.  * null byte (dp->d_namlen+1), rounded up to a 4 byte boundary.
  2149.  */
  2150. #undef DIRSIZ
  2151. #define DIRSIZ(dp) \
  2152.     ((sizeof (struct direct) - (MAXNAMLEN+1)) + (((dp)->d_namlen+1 + 3) &~ 3))
  2153.  
  2154. /*
  2155.  * Definitions for library routines operating on directories.
  2156.  */
  2157. typedef struct _dirdesc {
  2158.     int    dd_fd;
  2159.     long    dd_loc;
  2160.     long    dd_size;
  2161.     char    dd_buf[DIRBLKSIZ];
  2162. } DIR;
  2163. #ifndef NULL
  2164. #define NULL 0
  2165. #endif
  2166. extern    DIR *opendir();
  2167. extern    struct direct *readdir();
  2168. extern    long telldir();
  2169. extern    void seekdir();
  2170. #define rewinddir(dirp)    seekdir((dirp), (long)0)
  2171. extern    void closedir();
  2172.  
  2173. #   endif
  2174. #endif
  2175. !STUFFY!FUNK!
  2176. echo ""
  2177. echo "End of kit 8 (of 9)"
  2178. cat /dev/null >kit8isdone
  2179. config=true
  2180. for iskit in 1 2 3 4 5 6 7 8 9 ; do
  2181.     if test -f kit${iskit}isdone; then
  2182.     echo "You have run kit ${iskit}."
  2183.     else
  2184.     echo "You still need to run kit ${iskit}."
  2185.     config=false
  2186.     fi
  2187. done
  2188. case $config in
  2189.     true)
  2190.     echo "You have run all your kits.  Please read README and then type Configure."
  2191.     chmod 755 Configure
  2192.     ;;
  2193. esac
  2194. : I do not append .signature, but someone might mail this.
  2195. exit
  2196.