home *** CD-ROM | disk | FTP | other *** search
/ Usenet 1994 January / usenetsourcesnewsgroupsinfomagicjanuary1994.iso / sources / unix / volume16 / dist2 / part01 next >
Encoding:
Internet Message Format  |  1988-10-13  |  48.9 KB
  1. Subject:  v16i034:  Larry Wall's Configure generator, etc., Part01/07
  2. Newsgroups: comp.sources.unix
  3. Sender: sources
  4. Approved: rsalz@uunet.UU.NET
  5.  
  6. Submitted-by: lwall@jpl-devvax.jpl.nasa.gov (Larry Wall)
  7. Posting-number: Volume 16, Issue 34
  8. Archive-name: dist2/part01
  9.  
  10. #! /bin/sh
  11.  
  12. # Make a new directory for the dist sources, cd to it, and run kits 1
  13. # thru 7 through sh.  When all 7 kits have been run, read README.
  14.  
  15. echo "This is dist 2.0 kit 1 (of 7).  If kit 1 is complete, the line"
  16. echo '"'"End of kit 1 (of 7)"'" will echo at the end.'
  17. echo ""
  18. export PATH || (echo "You didn't use sh, you clunch." ; kill $$)
  19. mkdir kit mcon mcon/U pat 2>/dev/null
  20. echo Extracting mcon/README
  21. sed >mcon/README <<'!STUFFY!FUNK!' -e 's/X//'
  22. XHow to create a Configuration script:
  23. X
  24. X     1) Consult the Glossary and write your shell scripts and C programs
  25. X    in terms of the symbols that metaconfig knows how to define.  If
  26. X    your Glossary is out of date you can rebuild it by saying make gloss.
  27. X
  28. X     2) Copy any .U files that you want to modify to your private U directory
  29. X    in the current directory.  Any .U files in your private U directory
  30. X    will be used in preference to the standard one.  One way to force
  31. X    inclusion of any unit is to copy the End.U file to your .U directory
  32. X    and add the name of the unit you want as a dependency on the end
  33. X    of the ?MAKE: line.  Certain units can ONLY be forced in this way,
  34. X    namely those of the form Warn_*.U and Chk_*.U.  You can also customize
  35. X    certain default Configure variables by copying Myinit.U to your
  36. X    package's private U directory and setting the variables in that.
  37. X    For example, you can specify what types of void support your program
  38. X    needs--see $defvoidused in voidflags.U.
  39. X
  40. X     3) If you have run metaconfig before in this directory, it created a
  41. X    Wanted file.  If you want to reuse this file, use the -w switch with
  42. X    metaconfig, and it will skip the scan of your programs for symbols.
  43. X    This is useful when you are developing a new unit file for metaconfig,
  44. X    and the programs in question haven't really changed.  If you HAVE
  45. X    changed the symbols you refer to, do not use the -w switch, and
  46. X    a new Wanted file will be created.  Note that you can force inclusion
  47. X    of a unit by adding its name to the Wanted file, but if you delete
  48. X    the Wanted file you'll lose that info.
  49. X
  50. X     4) Say "metaconfig".  This should eventually produce Configure.
  51. X
  52. XHow to add a new unit:
  53. X
  54. X     1) Copy a similar unit to a new .U file.  The name you choose should
  55. X    be the name of a variable generated by the unit.  It should be 12
  56. X    or less characters to prevent filename chopping.  Actually, it
  57. X    should probably be 10 or less so that those who want to use RCS
  58. X    can have a .U,v on the end without chopping.  Metaconfig uses
  59. X    the case of the first letter to determine if any variable is
  60. X    actually produced by this unit, so don't Capitalize your unit
  61. X    name if it is supposed to produce a shell variable variable.
  62. X
  63. X     2) Edit the new .U file to do what you want.  The first ?MAKE: line
  64. X    indicates the dependencies; list before the final colon all the
  65. X    variables defined, and after the final colon all the variables (or
  66. X    other units) on which this unit depends.  It is very important that
  67. X    these lists be accurate.  IMPORTANT: The first symbol after ?MAKE:
  68. X    *must* be the name of the file without the .U.
  69. X
  70. X     3) To the extent possible, parameterize your unit based on shell
  71. X    variable defined on ?INIT: lines.  This will move the variable
  72. X    definitions up to the Init.U unit, where they can be overridden
  73. X    by definitions in Myinit.U, which is included after Init.U.
  74. X
  75. X     4) Add the definition of any C symbols desired as ?H: lines.  A line
  76. X    beginning with ?H:?%1: in the .U file will be added to the eventual
  77. X    config.h file if and only if metaconfig decides that the first symbol
  78. X    on the ?MAKE: line is needed.  The %1 stands for that first symbol,
  79. X    which happens to be the name of the file too (without .U).  Always put
  80. X    a comment on each ?H: line in case one of the variable substitutions
  81. X    earlier on the line starts a comment without finishing it.  Any shell
  82. X    variable starting with d_ may do this, so beware.
  83. X
  84. X     5) Add glossary definitions as ?S: lines for shell variables and ?C:
  85. X    lines for C preprocessor variables.  Entries are sorted by lines
  86. X    that match /[a-zA-Z_]:/ (after the ?[CS]:), so start any continuation
  87. X    lines with tabs (after the ?[CS]:).  See a current unit for examples.
  88. X    It is VERY important to start each entry with a left justified symbol
  89. X    name, and end each entry with with a ?C:. or ?S:. line.  The algorithm
  90. X    that translates C preprocessor symbol entries for the Glossary into
  91. X    comments for config.h depends on this.
  92. X
  93. X     6) Make sure the order of all your ? lines is right.  The correct order is:
  94. X
  95. X    ?RCS: and ?X: lines        -- basically just comments
  96. X    ?MAKE: lines            -- metaconfig dependencies
  97. X    ?C: and ?S: lines        -- Glossary definitions
  98. X    ?H: lines            -- config.h definitions
  99. X
  100. X    ?INIT: lines can go anywhere.
  101. X
  102. X     7) Rerun metaconfig.
  103. X
  104. X     8) Send unit to lwall@jpl-devvax.jpl.nasa.gov (Larry Wall) for inclusion
  105. X    in the master copy, if you think it's of general interest.
  106. X
  107. XHow to add a new program to be located:
  108. X
  109. X     1) Edit Loc.U, and add the name of the program both to the ?MAKE: line
  110. X    (between the two colons) and to either loclist or trylist (depending
  111. X    on whether the program is mandatory or not).
  112. X
  113. X     2) Rerun metaconfig.
  114. X
  115. X     8) Send unit to lwall@jpl-devvax.jpl.nasa.gov (Larry Wall) for inclusion
  116. X    in the master copy, if you think it's of general interest.
  117. X
  118. XNotes for writing .U files:
  119. X
  120. X    Always use "rm -f" because there are systems where rm is interactive by
  121. X    default.  Files which need to be removed at the end of Configure
  122. X    should be added to the rmlist variable.  (rmlist="$rmlist tmpfile")
  123. X
  124. X    Always use echo " " (with a space) because of Eunice systems.
  125. X
  126. X    Use only programs that came with V7, so that you know everyone has
  127. X    them.
  128. X
  129. X    Use $contains when you want to grep conditionally, since not all
  130. X    greps return a reasonable status.
  131. X
  132. X    Use "if test" rather than "if [...]" since not every sh knows the
  133. X    latter construct.
  134. X
  135. X    Use the myread script for inputs so that they can do shell escapes
  136. X    and default evaluation.  The general form is
  137. X
  138. X        case "$grimble" in
  139. X        '') dflt=452;;
  140. X        *) dflt="$grimble";;
  141. X        esac
  142. X        rp="How many grimbles do you have? [$dflt]"
  143. X        echo $n "$rp $c"
  144. X        . myread
  145. X        grimble="$ans"
  146. X
  147. X    Always try to determine whether a feature is present in the most
  148. X    specific way--don't say "if bsd" when you can grep libc.  There
  149. X    are many hybrid systems out there, and each feature should stand
  150. X    or fall by itself.
  151. X
  152. X    When in doubt, set a default and ask.  Don't assume anything.
  153. X
  154. X    If you think the user is wrong, allow for the fact that he may be right.
  155. X    For instance, he could be running Configure on a different system than
  156. X    he is going to use the final product on.
  157. X
  158. XMetaconfig reserves the following names in your directory, and if you use such
  159. Xa name it may get clobbered or have other unforeseen effects:
  160. X
  161. X    .MT/*
  162. X    Configure
  163. X    Wanted
  164. X    UU/*
  165. X
  166. XAdditionally, Configure may clobber these names in the directory it is run in:
  167. X
  168. X    UU/*
  169. X    config.sh
  170. X    config.h
  171. !STUFFY!FUNK!
  172. echo Extracting README
  173. sed >README <<'!STUFFY!FUNK!' -e 's/X//'
  174. X            Dist Kit, Version 2.0
  175. X
  176. X            Copyright (c) 1988, Larry Wall
  177. X
  178. XYou may copy the dist kit in whole or in part as long as you don't try to
  179. Xmake money off it, or pretend that you wrote it.
  180. X--------------------------------------------------------------------------
  181. X
  182. XPlease read all the directions below before you proceed any further, and
  183. Xthen follow them carefully.  Failure to do so may void your warranty. :-)
  184. X
  185. XAfter you have unpacked your kit, you should have all the files listed
  186. Xin MANIFEST.  Be sure to put everything in a place that is visible to
  187. Xeveryone who will be using this package, since there are files in various
  188. Xsubdirectories that are referenced.  Somewhere in /usr/lib might be
  189. Xappropriate.
  190. X
  191. XInstallation
  192. X
  193. X1)  Run Configure.  This will figure out various things about your system.
  194. X    Some things Configure will figure out for itself, other things it will
  195. X    ask you about.  It will then proceed to make config.h, config.sh, and
  196. X    Makefile.
  197. X
  198. X    You might possibly have to trim # comments from the front of Configure
  199. X    if your sh doesn't handle them, but all other # comments will be taken
  200. X    care of.
  201. X
  202. X3)  make
  203. X
  204. X    This will attempt to make various things.
  205. X
  206. X4)  make install
  207. X
  208. X    This will put several executables into a public directory.  It will
  209. X    also try to put the man pages in a reasonable place.
  210. X
  211. X5)  Read the manual entries before running.
  212. X
  213. X6)  IMPORTANT!  Help save the world!  Communicate any problems and
  214. X    suggested patches to me, lwall@jpl-devvax.jpl.nasa.gov (Larry Wall),
  215. X    so we can keep the world in sync.  If you have a problem, there's
  216. X    someone else out there who either has had or will have the same problem.
  217. X
  218. X    If possible, send in patches such that the patch program will apply them.
  219. X    Context diffs are the best, then normal diffs.  Don't send ed scripts--
  220. X    I've probably changed my copy since the version you have.
  221. X
  222. X    Watch for dist patches in comp.sources.bugs.  If you are just now bringing
  223. X    up dist and aren't sure how many patches there are, write to me and I'll
  224. X    send any you don't have.  In fact, I have an automatic patch sender--if
  225. X    you read a current patch it will tell you how to get any old ones.
  226. X
  227. X------------------------------------------------------------------------
  228. X
  229. XThe dist package consists of three parts:
  230. X
  231. X    1) The Configure generator (metaconfig) and its supporting files.
  232. X    2) The distribution kit maker (makedist) and its supporting files.
  233. X    3) The patch distribution system (pat*) and its supporting files.
  234. X
  235. XEach of these can be used separately from the others.  Before you can use
  236. Xany of them, however, the directory containing your package (not this
  237. Xpackage) must be initialized by putting a .package file into it.  This
  238. Xcan be done by running packinit in that directory.
  239. X
  240. X
  241. XNotes:
  242. X
  243. X    If you are running on a system with <= 14 char filenames, don't
  244. X    distribute any files with filenames longer than 11 chars (with the
  245. X    exception of patchlevel.h), so that there will be room for a
  246. X    2-digit extension indicating patch number in your bugs direcory.
  247. X    This includes .SH files, so any shell script built by a .SH file
  248. X    should be 8 or less characters.  On systems with flexfilenames you
  249. X    don't have to worry about it.
  250. !STUFFY!FUNK!
  251. echo Extracting pat/README
  252. sed >pat/README <<'!STUFFY!FUNK!' -e 's/X//'
  253. XThis directory contains an automatic patch generator.  You must have RCS
  254. Xto use this.  You must also have run packinit in the top level directory
  255. Xof your package to create a .package file.
  256. X
  257. XWhen you've modified a file in your package, the pat program is used to
  258. Xcontrol the whole process.  The other programs can be called by hand, but
  259. Xusually needn't be.  Run pat from the top level directory of your package.
  260. X
  261. XThere is also program called mailagent that will read your incoming mail and
  262. Xmail patches to people automatically.  You'll have to customize mailpatch
  263. Xfor yourself.
  264. X
  265. XThe pat, patcil, patdiff, and patbase programs take a list of filenames as
  266. Xarguments.  Alternately, a -a means all files listed in MANIFEST.new.
  267. X
  268. XPatcil will create an RCS directory if necessary.  However, it may not check in
  269. Xthings which require special initializaton properly.  For example, if you
  270. Xwant to check in a shell script, you'd better make your RCS directory yourself
  271. Xand then say
  272. X
  273. X    rcs -i -c'# ' blurfl.xsh
  274. X
  275. Xbefore running pat or patcil.  Otherwise the RCS log may not be commented
  276. Xproperly.
  277. X
  278. XPatdiff will create a bugs directory in your top level directory, and will want
  279. Xto find a patchlevel.h file in that same directory.  Everything is done from
  280. Xthat top level directory--don't put any patchlevel.h or bugs directories in
  281. Xyour subdirectories.  Each subdirectory has its own RCS directory though.
  282. X
  283. XPatpost, patsend and patftp may be used to post to Usenet, mail to someone,
  284. Xor copy patches to your ftp directory.  They take a destination and a list
  285. Xof patches to process.
  286. !STUFFY!FUNK!
  287. echo Extracting kit/README
  288. sed >kit/README <<'!STUFFY!FUNK!' -e 's/X//'
  289. XThis directory contains a rudimentary kit maker.  Depending on where you
  290. Xare going to send your kits you might prefer to use Rich $alz's kit maker
  291. Xinstead--it makes more robust kits but assumes more about the target
  292. Xsystem.
  293. X
  294. XYou run makedist in the top level directory of your package and it uses
  295. Xthe MANIFEST.new file to generate shar scripts of about 50000 bytes each.
  296. X
  297. XMakedist takes no arguments (except a -v for verbose).  Just make sure
  298. XMANIFEST.new contains everything you want, including any Configure,
  299. Xconfig.h.SH, or patchlevel.h files.  A prototype patchlevel.h may be
  300. Xfound in ../pat/patchlevel.h
  301. !STUFFY!FUNK!
  302. echo Extracting Configure
  303. sed >Configure <<'!STUFFY!FUNK!' -e 's/X//'
  304. X#! /bin/sh
  305. X#
  306. X# If these # comments don't work, trim them.  Don't worry about any other
  307. X# shell scripts, Configure will trim # comments from them for you.
  308. X#
  309. X# (If you are trying to port this package to a machine without sh, I would
  310. X# suggest you cut out the prototypical config.h from the end of Configure
  311. X# and edit it to reflect your system.  Some packages may include samples
  312. X# of config.h for certain machines, so you might look for one of those.)
  313. X#
  314. X# $Header: Configure,v 2.0 88/06/28 23:11:40 lwall Locked $
  315. X#
  316. X# Yes, you may rip this off to use in other distribution packages.
  317. X# (Note: this Configure script was generated automatically.  Rather than
  318. X# working with this copy of Configure, you may wish to get metaconfig.)
  319. X
  320. X: sanity checks
  321. XPATH='.:/bin:/usr/bin:/usr/local/bin:/usr/ucb:/usr/local:/usr/lbin:/etc:/usr/new:/usr/new/bin:/usr/nbin'
  322. Xexport PATH || (echo "OOPS, this isn't sh.  Desperation time.  I will feed myself to sh."; sh $0; kill $$)
  323. X
  324. Xif test ! -t 0; then
  325. X    echo "Say 'sh Configure', not 'sh <Configure'"
  326. X    exit 1
  327. Xfi
  328. X
  329. X(alias) >/dev/null 2>&1 && \
  330. X    echo "(I see you are using the Korn shell.  Some ksh's blow up on Configure," && \
  331. X    echo "especially on exotic machines.  If yours does, try the Bourne shell instead.)"
  332. X
  333. Xif test ! -d ../UU; then
  334. X    if test ! -d UU; then
  335. X    mkdir UU
  336. X    fi
  337. X    cd UU
  338. Xfi
  339. X
  340. Xcase "$1" in
  341. X-d) shift; fastread='yes';;
  342. Xesac
  343. X
  344. Xd_eunice=''
  345. Xeunicefix=''
  346. Xdefine=''
  347. Xloclist=''
  348. Xexpr=''
  349. Xsed=''
  350. Xecho=''
  351. Xcat=''
  352. Xrm=''
  353. Xmv=''
  354. Xcp=''
  355. Xtail=''
  356. Xtr=''
  357. Xmkdir=''
  358. Xsort=''
  359. Xuniq=''
  360. Xgrep=''
  361. Xtrylist=''
  362. Xtest=''
  363. Xinews=''
  364. Xegrep=''
  365. Xmore=''
  366. Xpg=''
  367. XMcc=''
  368. Xvi=''
  369. Xmailx=''
  370. Xmail=''
  371. Xcpp=''
  372. XLog=''
  373. XHeader=''
  374. Xbin=''
  375. Xcontains=''
  376. Xdefeditor=''
  377. Xhostname=''
  378. Xphostname=''
  379. Xmydomain=''
  380. Xlibc=''
  381. Xmansrc=''
  382. Xmanext=''
  383. Xn=''
  384. Xc=''
  385. Xnametype=''
  386. Xd_passnames=''
  387. Xd_berknames=''
  388. Xd_usgnames=''
  389. Xpasscat=''
  390. Xorgname=''
  391. Xpackage=''
  392. Xspitshell=''
  393. Xshsharp=''
  394. Xsharpbang=''
  395. Xstartsh=''
  396. XCONFIG=''
  397. X: set package name
  398. Xpackage=dist
  399. X
  400. Xecho " "
  401. Xecho "Beginning of configuration questions for $package kit."
  402. X: Eunice requires " " instead of "", can you believe it
  403. Xecho " "
  404. X
  405. Xdefine='define'
  406. Xundef='undef'
  407. Xlibpth='/usr/lib /usr/local/lib /lib'
  408. Xsmallmach='pdp11 i8086 z8000 i80286 iAPX286'
  409. Xrmlist='kit[1-9]isdone kit[1-9][0-9]isdone'
  410. Xtrap 'echo " "; rm -f $rmlist; exit 1' 1 2 3
  411. X
  412. X: We must find out about Eunice early
  413. Xeunicefix=':'
  414. Xif test -f /etc/unixtovms; then
  415. X    eunicefix=/etc/unixtovms
  416. Xfi
  417. Xif test -f /etc/unixtovms.exe; then
  418. X    eunicefix=/etc/unixtovms.exe
  419. Xfi
  420. X
  421. Xattrlist="mc68000 sun gcos unix ibm gimpel interdata tss os mert pyr"
  422. Xattrlist="$attrlist vax pdp11 i8086 z8000 u3b2 u3b5 u3b20 u3b200"
  423. Xattrlist="$attrlist ns32000 ns16000 iAPX286 mc300 mc500 mc700 sparc"
  424. Xattrlist="$attrlist nsc32000 sinix xenix venix posix ansi M_XENIX"
  425. Xattrlist="$attrlist $mc68k __STDC__"
  426. Xpth="/usr/ucb /bin /usr/bin /usr/local /usr/local/bin /usr/lbin /etc /usr/lib /lib"
  427. Xd_newshome="../../NeWS"
  428. Xdefvoidused=7
  429. X
  430. X: some greps do not return status, grrr.
  431. Xecho "grimblepritz" >grimble
  432. Xif grep blurfldyick grimble >/dev/null 2>&1 ; then
  433. X    contains=contains
  434. Xelif grep grimblepritz grimble >/dev/null 2>&1 ; then
  435. X    contains=grep
  436. Xelse
  437. X    contains=contains
  438. Xfi
  439. Xrm -f grimble
  440. X: the following should work in any shell
  441. Xcase "$contains" in
  442. Xcontains*)
  443. X    echo " "
  444. X    echo "AGH!  Grep doesn't return a status.  Attempting remedial action."
  445. X    cat >contains <<'EOSS'
  446. Xgrep "$1" "$2" >.greptmp && cat .greptmp && test -s .greptmp
  447. XEOSS
  448. Xchmod +x contains
  449. Xesac
  450. X
  451. X: first determine how to suppress newline on echo command
  452. Xecho "Checking echo to see how to suppress newlines..."
  453. X(echo "hi there\c" ; echo " ") >.echotmp
  454. Xif $contains c .echotmp >/dev/null 2>&1 ; then
  455. X    echo "...using -n."
  456. X    n='-n'
  457. X    c=''
  458. Xelse
  459. X    cat <<'EOM'
  460. X...using \c
  461. XEOM
  462. X    n=''
  463. X    c='\c'
  464. Xfi
  465. Xecho $n "Type carriage return to continue.  Your cursor should be here-->$c"
  466. Xread ans
  467. Xrm -f .echotmp
  468. X
  469. X: now set up to do reads with possible shell escape and default assignment
  470. Xcat <<EOSC >myread
  471. Xcase "\$fastread" in
  472. Xyes) ans=''; echo " " ;;
  473. X*) ans='!';;
  474. Xesac
  475. Xwhile expr "X\$ans" : "X!" >/dev/null; do
  476. X    read ans
  477. X    case "\$ans" in
  478. X    !)
  479. X    sh
  480. X    echo " "
  481. X    echo $n "\$rp $c"
  482. X    ;;
  483. X    !*)
  484. X    set \`expr "X\$ans" : "X!\(.*\)\$"\`
  485. X    sh -c "\$*"
  486. X    echo " "
  487. X    echo $n "\$rp $c"
  488. X    ;;
  489. X    esac
  490. Xdone
  491. Xrp='Your answer:'
  492. Xcase "\$ans" in
  493. X'') ans="\$dflt";;
  494. Xesac
  495. XEOSC
  496. X
  497. X: general instructions
  498. Xcat <<EOH
  499. X 
  500. XThis installation shell script will examine your system and ask you questions
  501. Xto determine how the $package package should be installed.  If you get stuck
  502. Xon a question, you may use a ! shell escape to start a subshell or execute
  503. Xa command.  Many of the questions will have default answers in square
  504. Xbrackets--typing carriage return will give you the default.
  505. X
  506. XOn some of the questions which ask for file or directory names you are
  507. Xallowed to use the ~name construct to specify the login directory belonging
  508. Xto "name", even if you don't have a shell which knows about that.  Questions
  509. Xwhere this is allowed will be marked "(~name ok)".
  510. X
  511. XEOH
  512. Xrp="[Type carriage return to continue]"
  513. Xecho $n "$rp $c"
  514. X. myread
  515. Xcat <<EOH
  516. X
  517. XMuch effort has been expended to ensure that this shell script will run
  518. Xon any Unix system.  If despite that it blows up on you, your best bet is
  519. Xto edit Configure and run it again. Also, let me (lwall@jpl-devvax.jpl.nasa.gov)
  520. Xknow how I blew it.  If you can't run Configure for some reason, you'll have
  521. Xto generate a config.sh file by hand.
  522. X
  523. XThis installation script affects things in two ways: 1) it may do direct
  524. Xvariable substitutions on some of the files included in this kit, and
  525. X2) it builds a config.h file for inclusion in C programs.  You may edit
  526. Xany of these files as the need arises after running this script.
  527. X
  528. XIf you make a mistake on a question, there is no easy way to back up to it
  529. Xcurrently.  The easiest thing to do is to edit config.sh and rerun all the
  530. XSH files.  Configure will offer to let you do this before it runs the SH files.
  531. X
  532. XEOH
  533. Xrp="[Type carriage return to continue]"
  534. Xecho $n "$rp $c"
  535. X. myread
  536. X
  537. X: get old answers, if there is a config file out there
  538. Xif test -f ../config.sh; then
  539. X    echo " "
  540. X    dflt=y
  541. X    rp="I see a config.sh file.  Did Configure make it on THIS system? [$dflt]"
  542. X    echo $n "$rp $c"
  543. X    . myread
  544. X    case "$ans" in
  545. X    n*) echo "OK, I'll ignore it.";;
  546. X    *)  echo "Fetching default answers from your old config.sh file..."
  547. X    tmp="$n"
  548. X    ans="$c"
  549. X        . ../config.sh
  550. X    n="$tmp"
  551. X    c="$ans"
  552. X    ;;
  553. X    esac
  554. Xfi
  555. X
  556. X: find out where common programs are
  557. Xecho " "
  558. Xecho "Locating common programs..."
  559. Xcat <<EOSC >loc
  560. X$startsh
  561. Xcase \$# in
  562. X0) exit 1;;
  563. Xesac
  564. Xthing=\$1
  565. Xshift
  566. Xdflt=\$1
  567. Xshift
  568. Xfor dir in \$*; do
  569. X    case "\$thing" in
  570. X    .)
  571. X    if test -d \$dir/\$thing; then
  572. X        echo \$dir
  573. X        exit 0
  574. X    fi
  575. X    ;;
  576. X    *)
  577. X    if test -f \$dir/\$thing; then
  578. X        echo \$dir/\$thing
  579. X        exit 0
  580. X    elif test -f \$dir/\$thing.exe; then
  581. X        : on Eunice apparently
  582. X        echo \$dir/\$thing
  583. X        exit 0
  584. X    fi
  585. X    ;;
  586. X    esac
  587. Xdone
  588. Xecho \$dflt
  589. Xexit 1
  590. XEOSC
  591. Xchmod +x loc
  592. X$eunicefix loc
  593. Xloclist="
  594. Xexpr
  595. Xsed
  596. Xecho
  597. Xcat
  598. Xrm
  599. Xgrep
  600. X"
  601. Xtrylist="
  602. Xtest
  603. Xinews
  604. Xvi
  605. X"
  606. Xfor file in $loclist; do
  607. X    xxx=`loc $file $file $pth`
  608. X    eval $file=$xxx
  609. X    eval _$file=$xxx
  610. X    case "$xxx" in
  611. X    /*)
  612. X    echo $file is in $xxx.
  613. X    ;;
  614. X    *)
  615. X    echo "I don't know where $file is.  I hope it's in everyone's PATH."
  616. X    ;;
  617. X    esac
  618. Xdone
  619. Xecho " "
  620. Xecho "Don't worry if any of the following aren't found..."
  621. Xans=offhand
  622. Xfor file in $trylist; do
  623. X    xxx=`loc $file $file $pth`
  624. X    eval $file=$xxx
  625. X    eval _$file=$xxx
  626. X    case "$xxx" in
  627. X    /*)
  628. X    echo $file is in $xxx.
  629. X    ;;
  630. X    *)
  631. X    echo "I don't see $file out there, $ans."
  632. X    ans=either
  633. X    ;;
  634. X    esac
  635. Xdone
  636. Xcase "$egrep" in
  637. Xegrep)
  638. X    echo "Substituting grep for egrep."
  639. X    egrep=$grep
  640. X    ;;
  641. Xesac
  642. Xcase "$test" in
  643. Xtest)
  644. X    echo "Hopefully test is built into your sh."
  645. X    ;;
  646. X/bin/test)
  647. X    echo " "
  648. X    dflt=n
  649. X    rp="Is your "'"'"test"'"'" built into sh? [$dflt] (OK to guess)"
  650. X    echo $n "$rp $c"
  651. X    . myread
  652. X    case "$ans" in
  653. X    y*) test=test ;;
  654. X    esac
  655. X    ;;
  656. X*)
  657. X    test=test
  658. X    ;;
  659. Xesac
  660. Xcase "$echo" in
  661. Xecho)
  662. X    echo "Hopefully echo is built into your sh."
  663. X    ;;
  664. X/bin/echo)
  665. X    echo " "
  666. X    echo "Checking compatibility between /bin/echo and builtin echo (if any)..."
  667. X    $echo $n "hi there$c" >foo1
  668. X    echo $n "hi there$c" >foo2
  669. X    if cmp foo1 foo2 >/dev/null 2>&1; then
  670. X    echo "They are compatible.  In fact, they may be identical."
  671. X    else
  672. X    case "$n" in
  673. X    '-n') n='' c='\c' ans='\c' ;;
  674. X    *) n='-n' c='' ans='-n' ;;
  675. X    esac
  676. X    cat <<FOO
  677. XThey are not compatible!  You are probably running ksh on a non-USG system.
  678. XI'll have to use /bin/echo instead of the builtin, since Bourne shell doesn't
  679. Xhave echo built in and we may have to run some Bourne shell scripts.  That
  680. Xmeans I'll have to use $ans to suppress newlines now.  Life is ridiculous.
  681. X
  682. XFOO
  683. X    rp="Your cursor should be here-->"
  684. X    $echo $n "$rp$c"
  685. X    . myread
  686. X    fi
  687. X    $rm -f foo1 foo2
  688. X    ;;
  689. X*)
  690. X    : cross your fingers
  691. X    echo=echo
  692. X    ;;
  693. Xesac
  694. Xrmlist="$rmlist loc"
  695. X
  696. X: get list of predefined functions in a handy place
  697. Xecho " "
  698. Xif test -f /lib/libc.a; then
  699. X    echo "Your C library is in /lib/libc.a.  You're normal."
  700. X    libc=/lib/libc.a
  701. Xelse
  702. X    ans=`loc libc.a blurfl/dyick $libpth`
  703. X    if test ! -f $ans; then
  704. X    ans=`loc clib blurfl/dyick $libpth`
  705. X    fi
  706. X    if test ! -f $ans; then
  707. X    ans=`loc libc blurfl/dyick $libpth`
  708. X    fi
  709. X    if test -f $ans; then
  710. X    echo "Your C library is in $ans, of all places."
  711. X    libc=$ans
  712. X    else
  713. X    if test -f "$libc"; then
  714. X        echo "Your C library is in $libc, like you said before."
  715. X    else
  716. X        cat <<EOM
  717. X 
  718. XI can't seem to find your C library.  I've looked in the following places:
  719. X
  720. X    $libpth
  721. X
  722. XNone of these seems to contain your C library.  What is the full name
  723. XEOM
  724. X        dflt=None
  725. X        $echo $n "of your C library? $c"
  726. X        rp='C library full name?'
  727. X        . myread
  728. X        libc="$ans"
  729. X    fi
  730. X    fi
  731. Xfi
  732. Xecho " "
  733. X$echo $n "Extracting names from $libc for later perusal...$c"
  734. Xnm $libc 2>/dev/null | sed -n -e 's/^.* T _//p' -e 's/^.* T //p' > libc.list
  735. Xif $contains '^printf$' libc.list >/dev/null 2>&1; then
  736. X    echo "done"
  737. Xelse
  738. X    nm $libc 2>/dev/null | sed -n -e 's/^.* D _//p' -e 's/^.* D //p' > libc.list
  739. X    if $contains '^printf$' libc.list >/dev/null 2>&1; then
  740. X    echo "done"
  741. X    else
  742. X    echo " "
  743. X    echo "nm didn't seem to work right."
  744. X    echo "Trying ar instead..."
  745. X    rmlist="$rmlist libc.tmp"
  746. X    if ar t $libc > libc.tmp; then
  747. X        sed -e 's/\.o$//' < libc.tmp > libc.list
  748. X        echo "Ok."
  749. X    else
  750. X        echo "ar didn't seem to work right."
  751. X        echo "Maybe this is a Cray...trying bld instead..."
  752. X        if bld t $libc | sed -e 's/.*\///' -e 's/\.o:.*$//' > libc.list; then
  753. X        echo "Ok."
  754. X        else
  755. X            echo "That didn't work either.  Giving up."
  756. X            exit 1
  757. X        fi
  758. X    fi
  759. X    fi
  760. Xfi
  761. Xrmlist="$rmlist libc.list"
  762. X
  763. X: make some quick guesses about what we are up against
  764. Xecho " "
  765. X$echo $n "Hmm...  $c"
  766. Xif $contains SIGTSTP /usr/include/signal.h >/dev/null 2>&1 ; then
  767. X    echo "Looks kind of like a BSD system, but we'll see..."
  768. X    echo exit 0 >bsd
  769. X    echo exit 1 >usg
  770. X    echo exit 1 >v7
  771. Xelif $contains '^fcntl$' libc.list >/dev/null 2>&1 ; then
  772. X    echo "Looks kind of like a USG system, but we'll see..."
  773. X    echo exit 1 >bsd
  774. X    echo exit 0 >usg
  775. X    echo exit 1 >v7
  776. Xelse
  777. X    echo "Looks kind of like a version 7 system, but we'll see..."
  778. X    echo exit 1 >bsd
  779. X    echo exit 1 >usg
  780. X    echo exit 0 >v7
  781. Xfi
  782. Xif $contains '^vmssystem$' libc.list >/dev/null 2>&1 ; then
  783. X    cat <<'EOI'
  784. XThere is, however, a strange, musty smell in the air that reminds me of
  785. Xsomething...hmm...yes...I've got it...there's a VMS nearby, or I'm a Blit.
  786. XEOI
  787. X    echo "exit 0" >eunice
  788. X    eunicefix=unixtovms
  789. X    d_eunice="$define"
  790. X: it so happens the Eunice I know will not run shell scripts in Unix format
  791. Xelse
  792. X    echo " "
  793. X    echo "Congratulations.  You aren't running Eunice."
  794. X    eunicefix=':'
  795. X    d_eunice="$undef"
  796. X    echo "exit 1" >eunice
  797. Xfi
  798. Xif test -f /xenix; then
  799. X    echo "Actually, this looks more like a XENIX system..."
  800. X    echo "exit 0" >xenix
  801. Xelse
  802. X    echo " "
  803. X    echo "It's not Xenix..."
  804. X    echo "exit 1" >xenix
  805. Xfi
  806. Xchmod +x xenix
  807. X$eunicefix xenix
  808. Xif test -f /venix; then
  809. X    echo "Actually, this looks more like a VENIX system..."
  810. X    echo "exit 0" >venix
  811. Xelse
  812. X    echo " "
  813. X    if xenix; then
  814. X    : null
  815. X    else
  816. X    echo "Nor is it Venix..."
  817. X    fi
  818. X    echo "exit 1" >venix
  819. Xfi
  820. Xchmod +x bsd usg v7 eunice venix
  821. X$eunicefix bsd usg v7 eunice venix
  822. Xrmlist="$rmlist bsd usg v7 eunice venix xenix"
  823. X
  824. X: see if sh knows # comments
  825. Xecho " "
  826. Xecho "Checking your sh to see if it knows about # comments..."
  827. Xif sh -c '#' >/dev/null 2>&1 ; then
  828. X    echo "Your sh handles # comments correctly."
  829. X    shsharp=true
  830. X    spitshell=cat
  831. X    echo " "
  832. X    echo "Okay, let's see if #! works on this system..."
  833. X    echo "#!/bin/echo hi" > try
  834. X    $eunicefix try
  835. X    chmod +x try
  836. X    try > today
  837. X    if $contains hi today >/dev/null 2>&1; then
  838. X    echo "It does."
  839. X    sharpbang='#!'
  840. X    else
  841. X    echo "#! /bin/echo hi" > try
  842. X    $eunicefix try
  843. X    chmod +x try
  844. X    try > today
  845. X    if test -s today; then
  846. X        echo "It does."
  847. X        sharpbang='#! '
  848. X    else
  849. X        echo "It doesn't."
  850. X        sharpbang=': use '
  851. X    fi
  852. X    fi
  853. Xelse
  854. X    echo "Your sh doesn't grok # comments--I will strip them later on."
  855. X    shsharp=false
  856. X    echo "exec grep -v '^#'" >spitshell
  857. X    chmod +x spitshell
  858. X    $eunicefix spitshell
  859. X    spitshell=`pwd`/spitshell
  860. X    echo "I presume that if # doesn't work, #! won't work either!"
  861. X    sharpbang=': use '
  862. Xfi
  863. X
  864. X: figure out how to guarantee sh startup
  865. Xecho " "
  866. Xecho "Checking out how to guarantee sh startup..."
  867. Xstartsh=$sharpbang'/bin/sh'
  868. Xecho "Let's see if '$startsh' works..."
  869. Xcat >try <<EOSS
  870. X$startsh
  871. Xset abc
  872. Xtest "$?abc" != 1
  873. XEOSS
  874. X
  875. Xchmod +x try
  876. X$eunicefix try
  877. Xif try; then
  878. X    echo "Yup, it does."
  879. Xelse
  880. X    echo "Nope.  You may have to fix up the shell scripts to make sure sh runs them."
  881. Xfi
  882. Xrm -f try today
  883. X
  884. X: preserve RCS keywords in files with variable substitution, grrr
  885. XLog='$Log'
  886. XHeader='$Header'
  887. X
  888. X: set up shell script to do ~ expansion
  889. Xcat >filexp <<EOSS
  890. X$startsh
  891. X: expand filename
  892. Xcase "\$1" in
  893. X ~/*|~)
  894. X    echo \$1 | $sed "s|~|\${HOME-\$LOGDIR}|"
  895. X    ;;
  896. X ~*)
  897. X    if $test -f /bin/csh; then
  898. X    /bin/csh -f -c "glob \$1"
  899. X    echo ""
  900. X    else
  901. X    name=\`$expr x\$1 : '..\([^/]*\)'\`
  902. X    dir=\`$sed -n -e "/^\${name}:/{s/^[^:]*:[^:]*:[^:]*:[^:]*:[^:]*:\([^:]*\).*"'\$'"/\1/" -e p -e q -e '}' </etc/passwd\`
  903. X    if $test ! -d "\$dir"; then
  904. X        me=\`basename \$0\`
  905. X        echo "\$me: can't locate home directory for: \$name" >&2
  906. X        exit 1
  907. X    fi
  908. X    case "\$1" in
  909. X    */*)
  910. X        echo \$dir/\`$expr x\$1 : '..[^/]*/\(.*\)'\`
  911. X        ;;
  912. X    *)
  913. X        echo \$dir
  914. X        ;;
  915. X    esac
  916. X    fi
  917. X    ;;
  918. X*)
  919. X    echo \$1
  920. X    ;;
  921. Xesac
  922. XEOSS
  923. Xchmod +x filexp
  924. X$eunicefix filexp
  925. X
  926. X: determine where public executables go
  927. Xcase "$bin" in
  928. X'')
  929. X    dflt=`loc . /bin /usr/local/bin /usr/lbin /usr/local /usr/bin`
  930. X    ;;
  931. X*)  dflt="$bin"
  932. X    ;;
  933. Xesac
  934. Xcont=true
  935. Xwhile $test "$cont" ; do
  936. X    echo " "
  937. X    rp="Where do you want to put the public executables? [$dflt]"
  938. X    $echo $n "$rp $c"
  939. X    . myread
  940. X    bin="$ans"
  941. X    bin=`filexp $bin`
  942. X    if test -d $bin; then
  943. X    cont=''
  944. X    else
  945. X    dflt=n
  946. X    rp="Directory $bin doesn't exist.  Use that name anyway? [$dflt]"
  947. X    $echo $n "$rp $c"
  948. X    . myread
  949. X    dflt=''
  950. X    case "$ans" in
  951. X    y*) cont='';;
  952. X    esac
  953. X    fi
  954. Xdone
  955. X
  956. X: determine default editor
  957. Xcase "$defeditor" in
  958. X'')
  959. X    case "$_vi" in
  960. X    */*) dflt="$_vi";;
  961. X    *) dflt=/usr/ucb/vi;;
  962. X    esac
  963. X    ;;
  964. X*)  dflt="$defeditor"
  965. X    ;;
  966. Xesac
  967. Xcont=true
  968. Xwhile $test "$cont" ; do
  969. X    echo " "
  970. X    rp="What is the default editor on your system? [$dflt]"
  971. X    $echo $n "$rp $c"
  972. X    . myread
  973. X    defeditor="$ans"
  974. X    if test -f $ans; then
  975. X    cont=''
  976. X    else
  977. X    dflt=n
  978. X    rp="File $ans doesn't exist.  Use that name anyway? [$dflt]"
  979. X    $echo $n "$rp $c"
  980. X    . myread
  981. X    dflt=''
  982. X    case "$ans" in
  983. X    y*) cont='';;
  984. X    esac
  985. X    fi
  986. Xdone
  987. X
  988. X: now get the host name
  989. Xecho " "
  990. Xecho "Figuring out host name..."
  991. Xecho 'Maybe "hostname" will work...'
  992. Xif ans=`sh -c hostname 2>&1` ; then
  993. X    hostname=$ans
  994. X    phostname=hostname
  995. Xelse
  996. X    echo 'Oh, dear.  Maybe "/etc/systemid" is the key...'
  997. X    if ans=`cat /etc/systemid 2>&1` ; then
  998. X    hostname=$ans
  999. X    phostname='cat /etc/systemid'
  1000. X    if xenix; then
  1001. X        echo "Whadyaknow.  Xenix always was a bit strange..."
  1002. X    else
  1003. X        echo "What is a non-Xenix system doing with /etc/systemid?"
  1004. X    fi
  1005. X    else
  1006. X    echo 'No, maybe "uuname -l" will work...'
  1007. X    if ans=`sh -c 'uuname -l' 2>&1` ; then
  1008. X        hostname=$ans
  1009. X        phostname='uuname -l'
  1010. X    else
  1011. X        echo 'Strange.  Maybe "uname -n" will work...'
  1012. X        if ans=`sh -c 'uname -n' 2>&1` ; then
  1013. X        hostname=$ans
  1014. X        phostname='uname -n'
  1015. X        else
  1016. X        echo 'Oh well, maybe I can mine it out of whoami.h...'
  1017. X        if ans=`sh -c $contains' sysname /usr/include/whoami.h' 2>&1` ; then
  1018. X            hostname=`echo "$ans" | $sed 's/^.*"\(.*\)"/\1/'`
  1019. X            phostname="sed -n -e '"'/sysname/s/^.*\"\\(.*\\)\"/\1/{'"' -e p -e q -e '}' </usr/include/whoami.h"
  1020. X        else
  1021. X            case "$hostname" in
  1022. X            '') echo "Does this machine have an identity crisis or something?"
  1023. X            phostname=''
  1024. X            ;;
  1025. X            *)  echo "Well, you said $hostname before...";;
  1026. X            esac
  1027. X        fi
  1028. X        fi
  1029. X    fi
  1030. X    fi
  1031. Xfi
  1032. X: you do not want to know about this
  1033. Xset $hostname
  1034. Xhostname=$1
  1035. X
  1036. X: translate upper to lower if necessary
  1037. Xcase "$hostname" in
  1038. X    *[A-Z]*)
  1039. X    hostname=`echo $hostname | tr '[A-Z]' '[a-z]'`
  1040. X    echo "(Normalizing case in your host name)"
  1041. X    ;;
  1042. Xesac
  1043. X
  1044. X: verify guess
  1045. Xif $test "$hostname" ; then
  1046. X    dflt=y
  1047. X    echo 'Your host name appears to be "'$hostname'".'
  1048. X    $echo $n "Is this correct? [$dflt] $c"
  1049. X    rp="Sitename is $hostname? [$dflt]"
  1050. X    . myread
  1051. X    case "$ans" in
  1052. X      y*)  ;;
  1053. X      *)      hostname='' ;;
  1054. X    esac
  1055. Xfi
  1056. X
  1057. X: bad guess or no guess
  1058. Xwhile $test "X$hostname" = X ; do
  1059. X    dflt=''
  1060. X    rp="Please type the (one word) name of your host:"
  1061. X    $echo $n "$rp $c"
  1062. X    . myread
  1063. X    hostname="$ans"
  1064. Xdone
  1065. X
  1066. Xecho " "
  1067. Xcase "$hostname" in
  1068. X*.*)
  1069. X    dflt=`expr "X$hostname" : "X[^.]*\(\..*\)"`
  1070. X    hostname=`expr "X$hostname" : "X\([^.]*\)\."`
  1071. X    echo "(Trimming domain name from host name--host name is now $hostname)"
  1072. X    ;;
  1073. X*)
  1074. X    dflt='.uucp'
  1075. X    ;;
  1076. Xesac
  1077. Xrp="What is your domain name? [$dflt]"
  1078. X$echo $n "$rp $c"
  1079. X. myread
  1080. Xcase "$ans" in
  1081. X'') ;;
  1082. X.*) ;;
  1083. X*) ans=".$ans";;
  1084. Xesac
  1085. Xmydomain="$ans"
  1086. X
  1087. X: a little sanity check here
  1088. Xcase "$phostname" in
  1089. X'') ;;
  1090. X*)  case `$phostname` in
  1091. X    $hostname$mydomain|$hostname) ;;
  1092. X    *)
  1093. X    case "$phostname" in
  1094. X    sed*)
  1095. X        echo "(That doesn't agree with your whoami.h file, by the way.)"
  1096. X        ;;
  1097. X    *)
  1098. X        echo "(That doesn't agree with your $phostname command, by the way.)"
  1099. X        ;;
  1100. X    esac
  1101. X    phostname=''
  1102. X    ;;
  1103. X    esac
  1104. X    ;;
  1105. Xesac
  1106. X
  1107. X: determine where manual pages go
  1108. Xcase "$mansrc" in
  1109. X'')
  1110. X    dflt=`loc . /usr/man/man1 /usr/man/mann /usr/man/local/man1 /usr/man/u_man/man1 /usr/man/man1`
  1111. X    ;;
  1112. X*)  dflt="$mansrc"
  1113. X    ;;
  1114. Xesac
  1115. Xcont=true
  1116. Xwhile $test "$cont" ; do
  1117. X    echo " "
  1118. X    rp="Where do the manual pages (source) go? [$dflt]"
  1119. X    $echo $n "$rp $c"
  1120. X    . myread
  1121. X    mansrc=`filexp "$ans"`
  1122. X    if test -d $mansrc; then
  1123. X    cont=''
  1124. X    else
  1125. X    dflt=n
  1126. X    rp="Directory $mansrc doesn't exist.  Use that name anyway? [$dflt]"
  1127. X    $echo $n "$rp $c"
  1128. X    . myread
  1129. X    dflt=''
  1130. X    case "$ans" in
  1131. X    y*) cont='';;
  1132. X    esac
  1133. X    fi
  1134. Xdone
  1135. Xcase "$mansrc" in
  1136. X*l)
  1137. X    manext=l
  1138. X    ;;
  1139. X*n)
  1140. X    manext=n
  1141. X    ;;
  1142. X*C)
  1143. X    manext=C
  1144. X    ;;
  1145. X*)
  1146. X    manext=1
  1147. X    ;;
  1148. Xesac
  1149. X
  1150. X: find out how to find out full name
  1151. Xecho " "
  1152. Xcase "$d_berknames" in
  1153. X"$define")
  1154. X    dflt=y;;
  1155. X"$undef")
  1156. X    dflt=n;;
  1157. X*)
  1158. X    if bsd; then
  1159. X    dflt=y
  1160. X    else
  1161. X    dflt=n
  1162. X    fi
  1163. X    ;;
  1164. Xesac
  1165. Xecho "Does your /etc/passwd file keep full names in Berkeley/V7 format (name first"
  1166. X$echo $n "thing after ':' in GCOS field)? [$dflt] $c"
  1167. Xrp="Berkeley/V7 format full name? [$dflt]"
  1168. X. myread
  1169. Xcase "$ans" in
  1170. X  y*)
  1171. X    d_passnames="$define"
  1172. X    d_berknames="$define"
  1173. X    d_usgnames="$undef"
  1174. X    nametype=bsd
  1175. X    ;;
  1176. X  *)
  1177. X    echo " "
  1178. X    case "$d_usgnames" in
  1179. X    "$define")
  1180. X    dflt=y;;
  1181. X    "$undef")
  1182. X    dflt=n;;
  1183. X    *)
  1184. X    if usg; then
  1185. X        dflt=y
  1186. X    else
  1187. X        dflt=n
  1188. X    fi
  1189. X    ;;
  1190. X    esac
  1191. X    echo "Does your passwd file keep full names in USG format (name sandwiched"
  1192. X    $echo $n "between a '-' and a '(')? [$dflt] $c"
  1193. X    rp="USG format full name? [$dflt]"
  1194. X    . myread
  1195. X    case "$ans" in
  1196. X      n*)
  1197. X    echo "Full name will be taken from ~/.fullname"
  1198. X    d_passnames="$undef"
  1199. X    d_berknames="$undef"
  1200. X    d_usgnames="$undef"
  1201. X    nametype=other
  1202. X    ;;
  1203. X      *)
  1204. X    d_passnames="$define"
  1205. X    d_berknames="$undef"
  1206. X    d_usgnames="$define"
  1207. X    nametype=usg
  1208. X    ;;
  1209. X    esac
  1210. X    ;;
  1211. Xesac
  1212. X
  1213. X: see if we have to deal with yellow pages
  1214. Xif $test -d /usr/etc/yp; then
  1215. X    if $contains '^\+:' /etc/passwd; then
  1216. X    dflt=y
  1217. X    else
  1218. X    dflt=n
  1219. X    fi
  1220. X    rp="Are you getting the passwd file via yellow pages? [$dflt]"
  1221. X    $echo $n "$rp $c"
  1222. X    . myread
  1223. X    case "$ans" in
  1224. X    y*) passcat='ypcat passwd';;
  1225. X    *) passcat='cat /etc/passwd';;
  1226. X    esac
  1227. Xelse
  1228. X    passcat='cat /etc/passwd'
  1229. Xfi
  1230. X
  1231. X: get organizaton name
  1232. Xlongshots='/usr/src/new /usr/src/local /usr/local/src'
  1233. Xcase "$orgname" in
  1234. X'') if xxx=`loc news/src/defs.h x $longshots`; then
  1235. X    dflt=`$sed -n 's/^.*MYORG[     ]*"\(.*\)".*$/\1/p' $xxx`
  1236. X    else
  1237. X    dflt='no default'
  1238. X    fi
  1239. X    ;;
  1240. X*)  dflt="$orgname";;
  1241. Xesac
  1242. X$cat << 'EOH'
  1243. X 
  1244. XPlease type the name of your organization as you want it to appear on the
  1245. XOrganization line of outgoing articles.  (It's nice if this also specifies
  1246. Xyour location.  Your city name is probably sufficient if well known.)
  1247. XFor example:
  1248. X
  1249. X    University of Southern North Dakota, Hoople
  1250. X
  1251. XYou may also put the name of a file, as long as it begins with a slash.
  1252. XFor example:
  1253. X
  1254. X    /etc/organization
  1255. X
  1256. XEOH
  1257. Xorgname="no default"
  1258. Xwhile test "X$orgname" = "Xno default"; do
  1259. X    rp="Organization: [$dflt]"
  1260. X    $echo $n "$rp $c"
  1261. X    . myread
  1262. X    orgname="$ans"
  1263. Xdone
  1264. X
  1265. Xecho " "
  1266. Xecho "End of configuration questions."
  1267. Xecho " "
  1268. X
  1269. X: create config.sh file
  1270. Xecho " "
  1271. Xif test -d ../UU; then
  1272. X    cd ..
  1273. Xfi
  1274. Xecho "Creating config.sh..."
  1275. X$spitshell <<EOT >config.sh
  1276. X$startsh
  1277. X# config.sh
  1278. X# This file was produced by running the Configure script.
  1279. X
  1280. Xd_eunice='$d_eunice'
  1281. Xeunicefix='$eunicefix'
  1282. Xdefine='$define'
  1283. Xloclist='$loclist'
  1284. Xexpr='$expr'
  1285. Xsed='$sed'
  1286. Xecho='$echo'
  1287. Xcat='$cat'
  1288. Xrm='$rm'
  1289. Xmv='$mv'
  1290. Xcp='$cp'
  1291. Xtail='$tail'
  1292. Xtr='$tr'
  1293. Xmkdir='$mkdir'
  1294. Xsort='$sort'
  1295. Xuniq='$uniq'
  1296. Xgrep='$grep'
  1297. Xtrylist='$trylist'
  1298. Xtest='$test'
  1299. Xinews='$inews'
  1300. Xegrep='$egrep'
  1301. Xmore='$more'
  1302. Xpg='$pg'
  1303. XMcc='$Mcc'
  1304. Xvi='$vi'
  1305. Xmailx='$mailx'
  1306. Xmail='$mail'
  1307. Xcpp='$cpp'
  1308. XLog='$Log'
  1309. XHeader='$Header'
  1310. Xbin='$bin'
  1311. Xcontains='$contains'
  1312. Xdefeditor='$defeditor'
  1313. Xhostname='$hostname'
  1314. Xphostname='$phostname'
  1315. Xmydomain='$mydomain'
  1316. Xlibc='$libc'
  1317. Xmansrc='$mansrc'
  1318. Xmanext='$manext'
  1319. Xn='$n'
  1320. Xc='$c'
  1321. Xnametype='$nametype'
  1322. Xd_passnames='$d_passnames'
  1323. Xd_berknames='$d_berknames'
  1324. Xd_usgnames='$d_usgnames'
  1325. Xpasscat='$passcat'
  1326. Xorgname='$orgname'
  1327. Xpackage='$package'
  1328. Xspitshell='$spitshell'
  1329. Xshsharp='$shsharp'
  1330. Xsharpbang='$sharpbang'
  1331. Xstartsh='$startsh'
  1332. XCONFIG=true
  1333. XEOT
  1334. X
  1335. XCONFIG=true
  1336. X
  1337. Xecho " "
  1338. Xdflt=''
  1339. Xfastread=''
  1340. Xecho "If you didn't make any mistakes, then just type a carriage return here."
  1341. Xrp="If you need to edit config.sh, do it as a shell escape here:"
  1342. X$echo $n "$rp $c"
  1343. X. UU/myread
  1344. Xcase "$ans" in
  1345. X'') ;;
  1346. X*) : in case they cannot read
  1347. X    eval $ans;;
  1348. Xesac
  1349. X. ./config.sh
  1350. X
  1351. Xecho " "
  1352. Xecho "Doing variable substitutions on .SH files..."
  1353. Xset x `awk '{print $1}' <MANIFEST | $grep '\.SH'`
  1354. Xshift
  1355. Xcase $# in
  1356. X0) set x *.SH; shift;;
  1357. Xesac
  1358. Xif test ! -f $1; then
  1359. X    shift
  1360. Xfi
  1361. Xfor file in $*; do
  1362. X    case "$file" in
  1363. X    */*)
  1364. X    dir=`$expr X$file : 'X\(.*\)/'`
  1365. X    file=`$expr X$file : 'X.*/\(.*\)'`
  1366. X    (cd $dir && . $file)
  1367. X    ;;
  1368. X    *)
  1369. X    . $file
  1370. X    ;;
  1371. X    esac
  1372. Xdone
  1373. Xif test -f config.h.SH; then
  1374. X    if test ! -f config.h; then
  1375. X    : oops, they left it out of MANIFEST, probably, so do it anyway.
  1376. X    . config.h.SH
  1377. X    fi
  1378. Xfi
  1379. X
  1380. Xif $contains '^depend:' Makefile >/dev/null 2>&1; then
  1381. X    dflt=n
  1382. X    $cat <<EOM
  1383. X
  1384. XNow you need to generate make dependencies by running "make depend".
  1385. XYou might prefer to run it in background: "make depend > makedepend.out &"
  1386. XIt can take a while, so you might not want to run it right now.
  1387. X
  1388. XEOM
  1389. X    rp="Run make depend now? [$dflt]"
  1390. X    $echo $n "$rp $c"
  1391. X    . UU/myread
  1392. X    case "$ans" in
  1393. X    y*) make depend
  1394. X    echo "Now you must run a make."
  1395. X    ;;
  1396. X    *)  echo "You must run 'make depend' then 'make'."
  1397. X    ;;
  1398. X    esac
  1399. Xelif test -f Makefile; then
  1400. X    echo " "
  1401. X    echo "Now you must run a make."
  1402. Xelse
  1403. X    echo "Done."
  1404. Xfi
  1405. X
  1406. X$rm -f kit*isdone
  1407. X: the following is currently useless
  1408. Xcd UU && $rm -f $rmlist
  1409. X: since this removes it all anyway
  1410. Xcd .. && $rm -rf UU
  1411. X: end of Configure
  1412. !STUFFY!FUNK!
  1413. echo Extracting mcon/metaconfig.SH
  1414. sed >mcon/metaconfig.SH <<'!STUFFY!FUNK!' -e 's/X//'
  1415. Xcase $CONFIG in
  1416. X'')
  1417. X    if test ! -f config.sh; then
  1418. X    ln ../config.sh . || \
  1419. X    ln ../../config.sh . || \
  1420. X    ln ../../../config.sh . || \
  1421. X    (echo "Can't find config.sh."; exit 1)
  1422. X    echo "Using config.sh from above..."
  1423. X    fi
  1424. X    . ./config.sh
  1425. X    ;;
  1426. Xesac
  1427. X: This forces SH files to create target in same directory as SH file.
  1428. X: This is so that make depend always knows where to find SH derivatives.
  1429. Xcase "$0" in
  1430. X*/*) cd `expr X$0 : 'X\(.*\)/'` ;;
  1431. Xesac
  1432. Xecho "Extracting metaconfig (with variable substitutions)"
  1433. Xcat >metaconfig <<!GROK!THIS!
  1434. X#!/usr/bin/perl
  1435. X        eval "exec /usr/bin/perl -S \$0 \$*"
  1436. X        if \$running_under_some_shell;
  1437. X
  1438. X# $Header: metaconfig.SH,v 2.0 88/06/28 23:18:46 lwall Locked $
  1439. X#
  1440. X# $Log:    metaconfig.SH,v $
  1441. X# Revision 2.0  88/06/28  23:18:46  lwall
  1442. X# Baseline.
  1443. X# 
  1444. X
  1445. X\$MC='`pwd`';
  1446. X!GROK!THIS!
  1447. X
  1448. X: in the following dollars and backticks do not need the extra backslash
  1449. X$spitshell >>metaconfig <<'!NO!SUBS!'
  1450. X$ENV{'MC'} = $MC;
  1451. Xchop($WD=`pwd`);
  1452. X$ENV{'WD'} = $WD;
  1453. X
  1454. Xdo 'getopt.pl';
  1455. Xdo Getopt("");
  1456. X
  1457. X++$opt_v if $opt_V;
  1458. X
  1459. Xunlink 'Wanted' unless $opt_w;
  1460. X
  1461. X$NEWMANI = 'MANIFEST.new';
  1462. X$MANI = 'MANIFEST';
  1463. X
  1464. Xdo readpackage();
  1465. X
  1466. X$ENV{'package'} = $package;
  1467. X
  1468. X`mkdir .MT 2>&1` unless -d '.MT';
  1469. X
  1470. Xprint "Locating units...\n" if $opt_v;
  1471. Xif (-d 'U') {
  1472. X    chdir 'U';
  1473. X    foreach $file (<*.U>) {
  1474. X    push(@myUlist,"$WD/U/$file");
  1475. X    $myUseen{$file} = 1;
  1476. X    }
  1477. X    chdir '..';
  1478. X}
  1479. X
  1480. Xchdir "$MC/U" || die "Can't find $MC/U.\n";
  1481. Xforeach $file (<*.U>) {
  1482. X    if ($myUseen{$file}) {
  1483. X    print "    Your private U/$file overrides the public one.\n" if $opt_v;
  1484. X    }
  1485. X    else {
  1486. X    push(@ARGV,$file);
  1487. X    }
  1488. X}
  1489. Xpush(@ARGV,@myUlist);
  1490. X
  1491. Xif ($opt_V) {
  1492. X    print "\t";
  1493. X    $, = "\n\t";
  1494. X    print @ARGV;
  1495. X    $, = '';
  1496. X    print "\n";
  1497. X}
  1498. X
  1499. Xprint "Extracting dependency lists from units...\n" if $opt_v;
  1500. X$dependencies = ' ' x 10000;    # pre-extend
  1501. X$dependencies = '';
  1502. Xopen(INIT,">$WD/.MT/.Init.U")      || die "Can't create $WD/.MT/.Init.U\n";
  1503. Xopen(CONF_H,">$WD/.MT/.Config_h.U") || die "Can't create $WD/.MT/.Config_h.U\n";
  1504. Xline: while (<>) {
  1505. X    if (/^\?MAKE:[\w ]*:/) {
  1506. X    s|^\?MAKE:\s*||;
  1507. X    $dependencies .= $_;
  1508. X    chop;
  1509. X    s/:.*//;
  1510. X    @ary = split(' ');
  1511. X    $hold = join(' ',@ary);
  1512. X    $unit = $ary[0];
  1513. X    foreach $sym (@ary) {
  1514. X        if ($sym =~ /^([a-z]|Mcc|Log|Header)/) {
  1515. X        $shmaster{"\$$sym"} = '#';
  1516. X        push(@Master,"?$unit:$sym=''\n");
  1517. X        }
  1518. X    }
  1519. X    next line;
  1520. X    }
  1521. X    if (/^\?C:/) {
  1522. X    s|^\?C:([A-Za-z_])|?H:?%1:/* $1|;
  1523. X    s|^\?C:\.\s*$|?H:?%1: */\n|;
  1524. X    s|^\?C:(.*)|?H:?%1: *$1|;
  1525. X    }
  1526. X    s/%\*/$hold/;
  1527. X    s/%1/$unit/;
  1528. X    $dependencies .= $_        if s|^\?MAKE:||;
  1529. X    print INIT            if s|^\?INIT:||;
  1530. X    print CONF_H        if s|^\?H:||;
  1531. X}
  1532. Xprint $dependencies if $opt_V;
  1533. Xprint CONF_H "!GROK!THIS!\n";
  1534. Xclose DEP;
  1535. Xclose INIT;
  1536. Xclose CONF_H;
  1537. Xclose MASTER;
  1538. X
  1539. Xchdir $WD;
  1540. X
  1541. Xunless (-f 'Wanted') {
  1542. X    print "Building a Wanted file...\n" if $opt_v;
  1543. X    open(WANTED,"| sort | uniq >Wanted") || die "Can't create Wanted.\n";
  1544. X    unless (-f $NEWMANI) {
  1545. X    do manifake();
  1546. X    die "No $NEWMANI--can't build a Wanted file.\n" unless -f $NEWMANI;
  1547. X    }
  1548. X
  1549. X    print "    Extracting filenames (*.[chy] and *.SH) from $NEWMANI...\n"
  1550. X      if $opt_v;
  1551. X    open(NEWMANI,$NEWMANI) || die "Can't open $NEWMANI";
  1552. X    while (<NEWMANI>) {
  1553. X    ($file) = split(' ');
  1554. X    next if $file eq 'config.h.SH';
  1555. X    push(@SHlist,$file) if $file =~ /\.SH$/;
  1556. X    push(@clist,$file) if $file =~ /\.[chy]$/;
  1557. X    }
  1558. X
  1559. X    print "    Extracting symbols from Config_h.U...\n" if $opt_v;
  1560. X    if (-f 'U/Config_h.U') {
  1561. X    @ARGV = ('U/Config_h.U', '.MT/.Config_h.U');
  1562. X    }
  1563. X    else {
  1564. X    @ARGV = ("$MC/U/Config_h.U", '.MT/.Config_h.U');
  1565. X    }
  1566. X    while (<>) {
  1567. X    next unless /^\?\w*:#.*\$/;
  1568. X    s|^[^#]*#||;
  1569. X    if (s|^\$(\w+)\s*(\w+).*\$(\w+).*$|$2 $1\n$2 $3|) {
  1570. X        $cmaster{$2} = '#';
  1571. X        $cwanted{$2} = "$1\n$3";
  1572. X    }
  1573. X    elsif (s|^\$(\w+)\s*(\w+).*$|$2 $1|) {
  1574. X        $cmaster{$2} = '#';
  1575. X        $cwanted{$2} = $1;
  1576. X    }
  1577. X    elsif (s|^define\s*(\w+).*\$(\w+).*$|$1 $2|) {
  1578. X        $cmaster{$1} = '#';
  1579. X        $cwanted{$1} = $2;
  1580. X    }
  1581. X    }
  1582. X
  1583. X    # Now we are a little clever, and build a loop to eval so that we don't
  1584. X    # have to recompile our patterns on every file.  We also use "study" since
  1585. X    # we are searching the same string for many different things.  Hauls!
  1586. X
  1587. X    unless ($#clist < 0) {
  1588. X    print "    Scanning .c and .h files for symbols...\n" if $opt_v;
  1589. X    $search = "while (<>) {study;\n";    # init loop over ARGV
  1590. X    foreach $key (keys(cmaster)) {
  1591. X        $search .= "\$cmaster{'$key'}++ if /\\b$key\\b/;\n";
  1592. X    }
  1593. X    $search .= "}\n";            # terminate loop
  1594. X    @ARGV = @clist;
  1595. X    $/ = "\001";    # swallow each file whole (delete if memory is limited)
  1596. X    eval $search;
  1597. X    $/ = "\n";
  1598. X    while (($key,$value) = each(cmaster)) {
  1599. X        if ($value ne '#') {
  1600. X        print WANTED $cwanted{$key}, "\n";
  1601. X        }
  1602. X    }
  1603. X    }
  1604. X
  1605. X    print "    Scanning .SH files for symbols...\n" if $opt_v;
  1606. X    close WANTED;
  1607. X    open(WANTED,"| sort | uniq >>Wanted") || die "Can't create Wanted.\n";
  1608. X    $search = "while (<>) {study;\n";
  1609. X    foreach $key (keys(shmaster)) {
  1610. X    $search .= "\$shmaster{'$key'}++ if /\\$key\\b/;\n";
  1611. X    }
  1612. X    $search .= "}\n";
  1613. X    @ARGV = @SHlist;
  1614. X    $/ = "\001";        # (delete if memory is limited)
  1615. X    eval $search;
  1616. X    $/ = "\n";
  1617. X#    while (<>) {
  1618. X#    @ary = split(/[^\w\$]+/);
  1619. X#    for (@ary) {
  1620. X#        $shmaster{$_}++ if $shmaster{$_};    # assuming most don't match
  1621. X#    }
  1622. X#    }
  1623. X    while (($key,$value) = each(shmaster)) {
  1624. X    if ($value ne '#') {
  1625. X        $key =~ s/^\$//;
  1626. X        print WANTED $key, "\n";
  1627. X    }
  1628. X    }
  1629. X}
  1630. Xclose WANTED;
  1631. X
  1632. Xdie "No desirable symbols found--aborting.\n" unless -s 'Wanted';
  1633. X
  1634. Xprint "Building private make file...\n" if $opt_v;
  1635. X$/ = "\001";            # change record separtor to nonexistent char
  1636. Xopen(WANTED,"Wanted") || die "Can't reopen Wanted.\n";
  1637. X$_ = <WANTED>;            # slurp whole file;
  1638. X$/ = "\n";
  1639. Xy/\n/ /;
  1640. Xopen(MAKEFILE,">.MT/.Makefile") || die "Can't create .MT/.Makefile.\n";
  1641. Xprint MAKEFILE "W = $_\n";
  1642. Xprint MAKEFILE $dependencies;
  1643. Xclose MAKEFILE;
  1644. X
  1645. Xprint "Determining the correct order for the units...\n" if $opt_v;
  1646. Xchdir '.MT' || die "Can't chdir to .MT";
  1647. Xopen(MAKE, "make -n -f .Makefile|") || die "Can't run make";
  1648. Xwhile (<MAKE>) {
  1649. X    print "\t$_" if $opt_V;
  1650. X    if (/^pick/) {
  1651. X    ($pick,$cmd,$symbol,$unit) = split(' ');
  1652. X    $symwanted{$symbol}++;
  1653. X    unless ($unitseen{$unit}++) {
  1654. X        push(@cmdwanted,"$cmd $unit");
  1655. X        $symwanted{$unit}++;
  1656. X    }
  1657. X    }
  1658. X    else {
  1659. X    chop;
  1660. X    system;
  1661. X    }
  1662. X}
  1663. Xclose MAKE;
  1664. X
  1665. Xprint "Creating Configure...\n" if $opt_v;
  1666. Xopen(CONFIGURE,">$WD/Configure") || die "Can't create Configure.\n";
  1667. Xopen(CONF_H,">$WD/config.h.SH") || die "Can't create config.h.SH.\n";
  1668. Xfor (@cmdwanted) {
  1669. X    ($cmd,$unit) = split;
  1670. X    $dir = ($myUseen{$unit} ? $WD : $MC);
  1671. X    $unit .= '.U';
  1672. X    if (m|/|) {
  1673. X    $file = $unit;            # they must know what they're doing
  1674. X    }
  1675. X    elsif ($myUseen{$unit}) {
  1676. X    $file = "$WD/U/$unit";        # they MIGHT know what they're doing
  1677. X    }
  1678. X    else {
  1679. X    $file = "$MC/U/$unit";        # normal case
  1680. X    }
  1681. X    die "Can't open $file" unless open(UNIT,$file);
  1682. X    print "\t$cmd $file\n" if $opt_V;
  1683. X    if ($cmd eq 'add') {
  1684. X    while (<UNIT>) {
  1685. X        print CONFIGURE unless /^\?/;
  1686. X    }
  1687. X    }
  1688. X    elsif ($cmd eq 'weed') {
  1689. X    while (<UNIT>) {
  1690. X        if (/^\?(\w+):/) {
  1691. X        s/^\?\w+:// if $symwanted{$1};
  1692. X        }
  1693. X        print CONFIGURE unless /^\?/;
  1694. X    }
  1695. X    }
  1696. X    elsif ($cmd eq 'add.package') {
  1697. X    while (<UNIT>) {
  1698. X        s/PACKAGENAME/$package/g;
  1699. X        print CONFIGURE unless /^\?/;
  1700. X    }
  1701. X    }
  1702. X    elsif ($cmd eq 'add.Null') {
  1703. X    for (@Master) {
  1704. X        if (/^\?(\w+):/) {
  1705. X        s/^\?\w+:// if $symwanted{$1};
  1706. X        }
  1707. X        print CONFIGURE unless /^\?/;
  1708. X    }
  1709. X    while (<UNIT>) {
  1710. X        print CONFIGURE unless /^\?/;
  1711. X    }
  1712. X    print CONFIGURE "CONFIG=''\n";
  1713. X    }
  1714. X    elsif ($cmd eq 'add.Config_sh') {
  1715. X    while (<UNIT>) {
  1716. X        print CONFIGURE unless /^\?/;
  1717. X    }
  1718. X    for (@Master) {
  1719. X        if (/^\?(\w+):/) {
  1720. X        s/^\?\w+:// if $symwanted{$1};
  1721. X        }
  1722. X        s/^(\w+)=''/$1='\$$1'/;
  1723. X        print CONFIGURE unless /^\?/;
  1724. X    }
  1725. X    print CONFIGURE "CONFIG=true\nEOT\n\n";
  1726. X    }
  1727. X    elsif ($cmd eq 'c_h_weed') {
  1728. X    while (<UNIT>) {
  1729. X        if (/^\?(\w+):/) {
  1730. X        s/^\?\w+:// if $symwanted{$1};
  1731. X        }
  1732. X        print CONF_H unless /^\?/;
  1733. X    }
  1734. X    }
  1735. X    else {
  1736. X    die "Unrecognized command from .Makefile: $cmd\n";
  1737. X    }
  1738. X    close UNIT;
  1739. X}
  1740. Xclose CONFIGURE;
  1741. Xclose CONF_H;
  1742. X
  1743. Xchdir $WD || die "Can't cd back to $WD\n";
  1744. X`chmod +x Configure`;
  1745. X
  1746. Xif (-f 'config.h.SH') {
  1747. X    open(NEWMANI,$NEWMANI);
  1748. X    $/ = "\001";
  1749. X    $_ = <NEWMANI>;
  1750. X    $/ = "\n";
  1751. X    close NEWMANI;
  1752. X    unless (/config\.h\.SH/) {
  1753. X    print "Adding config.h.SH to your $NEWMANI file...\n" if $opt_v;
  1754. X    `echo "config.h.SH    Produces config.h." >>$NEWMANI`;
  1755. X    }
  1756. X}
  1757. Xif ($opt_V) {
  1758. X    print "Leaving subdirectory .MT unremoved so you can peruse it.\n";
  1759. X}
  1760. Xelse {
  1761. X    `rm -rf .MT 2>&1`;
  1762. X}
  1763. Xprint "Done.\n" if $opt_v;
  1764. X
  1765. Xsub readpackage {
  1766. X    if (! -f '.package') {
  1767. X        if (-f '../.package' || -f '../../.package') {
  1768. X            die "Run in top level directory only.\n";
  1769. X        }
  1770. X        else {
  1771. X            die "No .package file!  Run packinit.\n";
  1772. X        }
  1773. X    }
  1774. X    open(package,'.package');
  1775. X    while (<package>) {
  1776. X        next if /^:/;
  1777. X        next if /^#/;
  1778. X        if (($var,$val) = /^\s*(\w+)=(.*)/) {
  1779. X            $val = "\"$val\"" unless $val =~ /^['"]/;
  1780. X            eval "\$$var = $val;";
  1781. X        }
  1782. X    }
  1783. X    close package;
  1784. X}
  1785. X
  1786. Xsub manifake {
  1787. X    # make MANIFEST and MANIFEST.new say the same thing
  1788. X    if (! -f $NEWMANI) {
  1789. X        if (-f $MANI) {
  1790. X            open(IN,$MANI) || die "Can't open $MANI";
  1791. X            open(OUT,">$NEWMANI") || die "Can't create $NEWMANI";
  1792. X            while (<IN>) {
  1793. X                next if 1 .. /---/;
  1794. X                s/(\s+)[0-9]*\s*/$1/;
  1795. X            }
  1796. X            close IN; close OUT;
  1797. X        }
  1798. X        else {
  1799. Xdie "You need to make a MANIFEST.new file, with names and descriptions.\n";
  1800. X        }
  1801. X    }
  1802. X}
  1803. X!NO!SUBS!
  1804. Xchmod +x metaconfig
  1805. X$eunicefix metaconfig
  1806. !STUFFY!FUNK!
  1807. echo Extracting mcon/U/mailfile.U
  1808. sed >mcon/U/mailfile.U <<'!STUFFY!FUNK!' -e 's/X//'
  1809. X?RCS:$Header: mailfile.U,v 2.0 88/06/28 23:17:09 lwall Locked $
  1810. X?RCS: $Log:    mailfile.U,v $
  1811. X?RCS: Revision 2.0  88/06/28  23:17:09  lwall
  1812. X?RCS: Baseline.
  1813. X?RCS: 
  1814. X?MAKE:mailfile: test echo n c Myread Loc Filexp Oldconfig
  1815. X?MAKE:    -pick add $@ %*
  1816. X?S:mailfile:
  1817. X?S:    This variable contains the eventual value of the MAILFILE symbol,
  1818. X?S:    which contains an interpretable name of the mail spool file for the
  1819. X?S:    current user.
  1820. X?S:.
  1821. X?C:MAILFILE:
  1822. X?C:    This symbol contains the interpretable name of the mail spool file
  1823. X?C:    for the current user.  The program must be prepared to substitute
  1824. X?C:    the HOME directory for %~, and the login id for %L.
  1825. X?C:.
  1826. X?H:?%1:#define MAILFILE "$mailfile"        /**/
  1827. X?H:?%1:
  1828. X: determine where mail is spooled
  1829. Xcase "$mailfile" in
  1830. X'')
  1831. X    dflt=`loc . XXX /usr/spool/mail /usr/mail`
  1832. X    case "$dflt" in
  1833. X    XXX) dflt='%~/mailbox';;
  1834. X    *) dflt="$dflt/%L";;
  1835. X    esac
  1836. X    ;;
  1837. X*)  dflt="$mailfile"
  1838. X    ;;
  1839. Xesac
  1840. Xcat <<'EOM'
  1841. X
  1842. XIn the following question, you may use %~ to represent the user's home
  1843. Xdirectory, and %L to represent a users name.
  1844. X
  1845. XEOM
  1846. Xrp="Where is yet-to-be-read mail spooled? [$dflt]"
  1847. X$echo $n "$rp $c"
  1848. X. myread
  1849. Xmailfile=`filexp "$ans"`
  1850. X
  1851. !STUFFY!FUNK!
  1852. echo ""
  1853. echo "End of kit 1 (of 7)"
  1854. cat /dev/null >kit1isdone
  1855. run=''
  1856. config=''
  1857. for iskit in 1 2 3 4 5 6 7; do
  1858.     if test -f kit${iskit}isdone; then
  1859.     run="$run $iskit"
  1860.     else
  1861.     todo="$todo $iskit"
  1862.     fi
  1863. done
  1864. case $todo in
  1865.     '')
  1866.     echo "You have run all your kits.  Please read README and then type Configure."
  1867.     chmod 755 Configure
  1868.     ;;
  1869.     *)  echo "You have run$run."
  1870.     echo "You still need to run$todo."
  1871.     ;;
  1872. esac
  1873. : Someone might mail this, so...
  1874. exit
  1875.  
  1876.