home *** CD-ROM | disk | FTP | other *** search
/ Usenet 1994 October / usenetsourcesnewsgroupsinfomagicoctober1994disk2.iso / unix / volume16 / dist2 / part03 < prev    next >
Text File  |  1988-10-13  |  50KB  |  1,792 lines
  1. Subject:  v16i036:  Larry Wall's Configure generator, etc., Part03/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 36
  8. Archive-name: dist/part03
  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 3 (of 7).  If kit 3 is complete, the line"
  16. echo '"'"End of kit 3 (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 kit/makedist.SH
  21. sed >kit/makedist.SH <<'!STUFFY!FUNK!' -e 's/X//'
  22. Xcase $CONFIG in
  23. X'')
  24. X    if test ! -f config.sh; then
  25. X    ln ../config.sh . || \
  26. X    ln ../../config.sh . || \
  27. X    ln ../../../config.sh . || \
  28. X    (echo "Can't find config.sh."; exit 1)
  29. X    echo "Using config.sh from above..."
  30. X    fi
  31. X    . ./config.sh
  32. X    ;;
  33. Xesac
  34. Xecho "Extracting makedist (with variable substitutions)"
  35. X: This section of the file will have variable substitutions done on it.
  36. X: Move anything that needs config subs from !NO!SUBS! section to !GROK!THIS!.
  37. X: Protect any dollar signs and backticks that you do not want interpreted
  38. X: by putting a backslash in front.
  39. Xcat >makedist <<!GROK!THIS!
  40. X#!/usr/bin/perl
  41. X    eval "exec /usr/bin/perl -S \$0 \$*"
  42. X        if \$running_under_some_shell;
  43. X
  44. X# $Header: makedist.SH,v 2.0 88/06/28 23:12:17 lwall Locked $
  45. X#
  46. X# $Log:    makedist.SH,v $
  47. X# Revision 2.0  88/06/28  23:12:17  lwall
  48. X# Baseline.
  49. X# 
  50. X
  51. X\$DIST='`pwd`';
  52. X\$ENV{'DIST'} = \$DIST;
  53. X!GROK!THIS!
  54. X
  55. X: In the following dollars and backticks do not need the extra backslash.
  56. X$spitshell >>makedist <<'!NO!SUBS!'
  57. X
  58. Xdo 'getopt.pl';
  59. Xdo Getopt("s");
  60. X
  61. X$MAXKITSIZE = 50000 unless $MAXKITSIZE = $opt_s;
  62. X$KITOVERHEAD = 1700;
  63. X$FILEOVERHEAD = 90;
  64. X$NEWMANI = 'MANIFEST.new';
  65. X$MANI = 'MANIFEST';
  66. X
  67. Xdo readpackage();
  68. X
  69. X$ENV{'package'} = $package;
  70. X$ENV{'baserev'} = $baserev;
  71. X
  72. Xunlink <$package.kit? $package.kit??>;
  73. X
  74. Xdo manifake();
  75. X
  76. Xsub manifake {
  77. X    # make MANIFEST and MANIFEST.new say the same thing
  78. X    if (! -f $NEWMANI) {
  79. X    if (-f $MANI) {
  80. X        open(IN,$MANI) || die "Can't open $MANI";
  81. X        open(OUT,">$NEWMANI") || die "Can't create $NEWMANI";
  82. X        while (<IN>) {
  83. X        next if 1 .. /---/;
  84. X        s/(\s+)[0-9]*\s*/$1/;
  85. X        }
  86. X        close IN; close OUT;
  87. X    }
  88. X    else {
  89. Xdie "You need to make a MANIFEST.new file, with names and descriptions.\n";
  90. X    }
  91. X    }
  92. X}
  93. X
  94. Xdo kitlists();
  95. X
  96. Xsub kitlists {
  97. X    open(IN,$NEWMANI) || die "Can't open $NEWMANI";
  98. X    @files = <IN>;
  99. X    close IN;
  100. X    for (@files) {
  101. X    s/\s.*\n//;
  102. X    ($dev,$ino,$mode,$nlink,$uid,$gid,$rdev,$size,$atime,$mtime,$ctime,
  103. X       $blksize,$blocks) = stat($_);
  104. X    $size += 1000000 if /README/;
  105. X    $size{$_} = $size;
  106. X    }
  107. X
  108. X    sub revnum { $size{$a} < $size{$b} ? 1 : $size{$a} > $size{$b} ? -1 : 0; }
  109. X    @files = sort revnum @files;
  110. X
  111. X    for (@files) {
  112. X    $size = $size{$_};
  113. X    $size -= 1000000 if /README/;
  114. X    $i=1;
  115. X    while (($newtot = int($tot[$i] + $size + $size/40 + $FILEOVERHEAD)) >
  116. X        $MAXKITSIZE-$KITOVERHEAD && $tot[$i]) {
  117. X          $i++;
  118. X    }
  119. X    $tot[$i] = $newtot;
  120. X    print "Adding $_ to kit $i giving $newtot bytes\n" if $opt_v;
  121. X    $kit{$_} = $i;
  122. X    $list[$i] .= " $_";
  123. X    }
  124. X}
  125. X
  126. Xdo manimake();
  127. X
  128. X# make MANIFEST and MANIFEST.new say the same thing
  129. Xsub manimake {
  130. X    die "You don't have a $NEWMANI file.  Run manifake.\n"
  131. X    unless -f "$NEWMANI";
  132. X    open(NEWMANI,$NEWMANI) || die "Can't read $NEWMANI";
  133. X    while (<NEWMANI>) {
  134. X    ($key,$val) = ($_,'') unless ($key,$val) = /^(\S+)\s+(.*)/;
  135. X    $comment{$key} = $val;
  136. X    }
  137. X    close NEWMANI;
  138. X
  139. X    open(MANI,">$MANI") || die "Can't create $MANI.\n";
  140. X    print MANI
  141. X"After all the $package kits are run you should have the following files:
  142. X
  143. XFilename        Kit Description
  144. X--------        --- -----------
  145. X";
  146. X    for (sort keys(comment)) {
  147. X    printf MANI "%-24s%2s %s\n",$_,$kit{$_},$comment{$_};
  148. X    }
  149. X    close MANI;
  150. X}
  151. X
  152. X$numkits = $#list;
  153. Xif ($numkits > 9) {
  154. X    $sp = '%02d';
  155. X}
  156. Xelse {
  157. X    $sp = '%d';
  158. X}
  159. X
  160. Xfor ($kitnum = 1; $kitnum <= $numkits; $kitnum++) {
  161. X    $list = $list[$kitnum];
  162. X    $kit = sprintf("$package.kit" . $sp,$kitnum);
  163. X    print "*** Making $kit ***\n" if $opt_v;
  164. X    open(KIT,">$kit") || die "Can't create $kit.\n";
  165. X
  166. X    do kitleader();
  167. X
  168. X    @files = split(' ',$list);
  169. X    reset 'X';
  170. X    for $file (@files) {
  171. X    $_ = $file;
  172. X    while (s|^(.*)/.*$|$1|) {
  173. X        push(@Xdirs,$_) unless $Xseen{$_}++;
  174. X    }
  175. X    }
  176. X    print KIT "mkdir ",join(' ', sort @Xdirs)," 2>/dev/null\n";
  177. X
  178. X    foreach $file (@files) {
  179. X    print "\t",$file,"\n" if $opt_v;
  180. X    print KIT "echo Extracting $file\n";
  181. X    print KIT "sed >$file <<'!STUFFY!FUNK!' -e 's/X//'\n";
  182. X    open file;
  183. X    while (<file>) {
  184. X        print KIT 'X',$_;
  185. X    }
  186. X    close file;
  187. X    print KIT "!STUFFY!FUNK!\n";
  188. X    }
  189. X    do kittrailer();
  190. X    chmod 0755, $kit;
  191. X}
  192. X
  193. Xsub kitleader {
  194. X    print KIT
  195. X"#! /bin/sh
  196. X
  197. X# Make a new directory for the $package sources, cd to it, and run kits 1
  198. X# thru $numkits through sh.  When all $numkits kits have been run, read README.
  199. X
  200. Xecho \"This is $package $baserev kit $kitnum (of $numkits).  If kit $kitnum is complete, the line\"
  201. Xecho '\"'\"End of kit $kitnum (of $numkits)\"'\" will echo at the end.'
  202. Xecho \"\"
  203. Xexport PATH || (echo \"You didn't use sh, you clunch.\" ; kill \$\$)
  204. X";
  205. X}
  206. X
  207. Xsub kittrailer {
  208. X    $rangelist = '';
  209. X    for ($i = 1; $i <= $numkits; $i++) {
  210. X    $rangelist .= ' ' . $i;
  211. X    }
  212. X    print KIT
  213. X"echo \"\"
  214. Xecho \"End of kit $kitnum (of $numkits)\"
  215. Xcat /dev/null >kit${kitnum}isdone
  216. Xrun=''
  217. Xconfig=''
  218. Xfor iskit in$rangelist; do
  219. X    if test -f kit\${iskit}isdone; then
  220. X    run=\"\$run \$iskit\"
  221. X    else
  222. X    todo=\"\$todo \$iskit\"
  223. X    fi
  224. Xdone
  225. Xcase \$todo in
  226. X    '')
  227. X    echo \"You have run all your kits.  Please read README and then type Configure.\"
  228. X    chmod 755 Configure
  229. X    ;;
  230. X    *)  echo \"You have run\$run.\"
  231. X    echo \"You still need to run\$todo.\"
  232. X    ;;
  233. Xesac
  234. X: Someone might mail this, so...
  235. Xexit
  236. X";
  237. X}
  238. X!NO!SUBS!
  239. Xcat ../pl/package.pl >>makedist
  240. Xchmod +x makedist
  241. X$eunicefix makedist
  242. !STUFFY!FUNK!
  243. echo Extracting mcon/U/locdist.U
  244. sed >mcon/U/locdist.U <<'!STUFFY!FUNK!' -e 's/X//'
  245. X?RCS:$Header: locdist.U,v 2.0 88/06/28 23:16:59 lwall Locked $
  246. X?RCS: $Log:    locdist.U,v $
  247. X?RCS: Revision 2.0  88/06/28  23:16:59  lwall
  248. X?RCS: Baseline.
  249. X?RCS: 
  250. X?MAKE:locdist orgdist citydist statedist cntrydist contdist: test newslibexp sed hostname cat echo n c rm Myread Oldconfig
  251. X?MAKE:    -pick add $@ %*
  252. X?S:locdist:
  253. X?S:    This variable contains the eventual value of the LOCDIST symbol,
  254. X?S:    which is the local organization's distribution name for news.
  255. X?S:.
  256. X?S:orgdist:
  257. X?S:    This variable contains the eventual value of the ORGDIST symbol,
  258. X?S:    which is the organization's distribution name for news.
  259. X?S:.
  260. X?S:citydist:
  261. X?S:    This variable contains the eventual value of the CITYDIST symbol,
  262. X?S:    which is the city's distribution name for news.
  263. X?S:.
  264. X?S:statedist:
  265. X?S:    This variable contains the eventual value of the STATEDIST symbol,
  266. X?S:    which is the state's or province's distribution name for news.
  267. X?S:.
  268. X?S:cntrydist:
  269. X?S:    This variable contains the eventual value of the CNTRYDIST symbol,
  270. X?S:    which is the country's distribution name for news.
  271. X?S:.
  272. X?S:contdist:
  273. X?S:    This variable contains the eventual value of the CONTDIST symbol,
  274. X?S:    which is the continent's distribution name for news.
  275. X?S:.
  276. X?C:LOCDIST:
  277. X?C:    This symbol contains the distribution name for the news system that
  278. X?C:    restricts article distribution to the local organization.
  279. X?C:.
  280. X?C:ORGDIST:
  281. X?C:    This symbol contains the distribution name for the news system that
  282. X?C:    restricts article distribution to the organization.
  283. X?C:.
  284. X?C:CITYDIST:
  285. X?C:    This symbol contains the distribution name for the news system that
  286. X?C:    restricts article distribution to the city.
  287. X?C:.
  288. X?C:STATEDIST:
  289. X?C:    This symbol contains the distribution name for the news system that
  290. X?C:    restricts article distribution to the state or province.
  291. X?C:.
  292. X?C:CNTRYDIST:
  293. X?C:    This symbol contains the distribution name for the news system that
  294. X?C:    restricts article distribution to the country.
  295. X?C:.
  296. X?C:CONTDIST:
  297. X?C:    This symbol contains the distribution name for the news system that
  298. X?C:    restricts article distribution to the continent.
  299. X?C:.
  300. X?H:?%1:#define LOCDIST "$locdist"        /**/
  301. X?H:?%1:#define ORGDIST "$orgdist"        /**/
  302. X?H:?%1:#define CITYDIST "$citydist"        /**/
  303. X?H:?%1:#define STATEDIST "$statedist"        /**/
  304. X?H:?%1:#define CNTRYDIST "$cntrydist"        /**/
  305. X?H:?%1:#define CONTDIST "$contdist"        /**/
  306. X?H:?%1:
  307. X: get the local distributions
  308. Xif $test -f $newslibexp/sys ; then
  309. X    $sed -n -e "s/^$hostname://p" <$newslibexp/sys | \
  310. X    $sed -e "s/:.*//" -e "s/,/ /g" | tr ' ' '\012' | \
  311. X    $sed -e "/^to./d" -e "/^net$/d" -e "/^fa$/d" -e "/^mod$/d" -e "/^world$/d" \
  312. X       -e "/^comp$/d" -e "/^news$/d" -e "/^misc$/d" -e "/^soc$/d" \
  313. X       -e "/^talk$/d" -e "/^sci$/d" -e "/^rec$/d" > .distlist
  314. Xfi
  315. X
  316. X$cat <<'EOH'
  317. X 
  318. XDistribution groups are the things you use on the Distribution line to limit
  319. Xwhere an article will go to.  You are likely to be a member of several
  320. Xdistribution groups, such as organization, city, state, province, country,
  321. Xcontinent, etc.  For example, Los Angeles has the distribution code "la",
  322. XNew Jersey has the code "nj", and Europe has the code "eunet".
  323. X
  324. XThe categories you will be asked are: 
  325. X
  326. Xlocal organization    (Could be just one machine or a cluster or an office)
  327. Xorganization        att, dec, kgb, ...
  328. Xcity            la, ny, mosc, ...
  329. Xstate/province        ca, nj, bc, ...
  330. Xcountry            usa, can, rok, whatever
  331. Xcontinent        na (North America, not "Not Applicable"), asia, etc.
  332. X
  333. X(If you don't have a distribution code in any of these categories then
  334. Xjust hit return.)
  335. X
  336. XEOH
  337. Xif $test -f .distlist; then
  338. X    distlist=`tr '\012' ' ' <.distlist`
  339. X    if $test "$distlist" ; then
  340. X    echo "(These are the distributions in your sys file: $distlist)"
  341. X    echo " "
  342. X    fi
  343. Xfi
  344. Xrp="[Hit return to continue]"
  345. X$echo $n "$rp $c"
  346. X. myread
  347. Xif test -f $newslibexp/distributions; then
  348. X    echo "Here is your distributions file:"
  349. X    echo " "
  350. X    cat $newslibexp/distributions
  351. X    echo " "
  352. Xfi
  353. Xcase "$locdist" in
  354. X'') dflt="none";;
  355. X*)  dflt="$locdist";;
  356. Xesac
  357. Xrp="What is the distribution code for your local organization? [$dflt]"
  358. X$echo $n "$rp $c"
  359. X. myread
  360. Xlocdist="$ans"
  361. Xcase "$orgdist" in
  362. X'') dflt="none";;
  363. X*)  dflt="$orgdist";;
  364. Xesac
  365. Xrp="What is the distribution code for your organization? [$dflt]"
  366. X$echo $n "$rp $c"
  367. X. myread
  368. Xorgdist="$ans"
  369. Xcase "$citydist" in
  370. X'') dflt="none";;
  371. X*)  dflt="$citydist";;
  372. Xesac
  373. Xrp="What is the distribution code for your city? [$dflt]"
  374. X$echo $n "$rp $c"
  375. X. myread
  376. Xcitydist="$ans"
  377. Xcase "$statedist" in
  378. X'') dflt="none";;
  379. X*)  dflt="$statedist";;
  380. Xesac
  381. Xrp="What is the distribution code for your state/province? [$dflt]"
  382. X$echo $n "$rp $c"
  383. X. myread
  384. Xstatedist="$ans"
  385. Xcase "$cntrydist" in
  386. X'') dflt="none";;
  387. X*)  dflt="$cntrydist";;
  388. Xesac
  389. Xrp="What is the distribution code for your country? [$dflt]"
  390. X$echo $n "$rp $c"
  391. X. myread
  392. Xcntrydist="$ans"
  393. Xcase "$contdist" in
  394. X'') dflt="none";;
  395. X*)  dflt="$contdist";;
  396. Xesac
  397. Xrp="What is the distribution code for your continent? [$dflt]"
  398. X$echo $n "$rp $c"
  399. X. myread
  400. Xcontdist="$ans"
  401. X
  402. X$cat <'EOM'
  403. X  
  404. XIf you have any other distribution groups you will need to edit Pnews
  405. Xand newsetup to add them.
  406. X 
  407. XEOM
  408. X$rm -f .distlist
  409. X
  410. !STUFFY!FUNK!
  411. echo Extracting pat/patmake.SH
  412. sed >pat/patmake.SH <<'!STUFFY!FUNK!' -e 's/X//'
  413. Xcase $CONFIG in
  414. X'')
  415. X    if test ! -f config.sh; then
  416. X    ln ../config.sh . || \
  417. X    ln ../../config.sh . || \
  418. X    ln ../../../config.sh . || \
  419. X    (echo "Can't find config.sh."; exit 1)
  420. X    echo "Using config.sh from above..."
  421. X    fi
  422. X    . ./config.sh
  423. X    ;;
  424. Xesac
  425. X: This forces SH files to create target in same directory as SH file.
  426. X: This is so that make depend always knows where to find SH derivatives.
  427. Xcase "$0" in
  428. X*/*) cd `expr X$0 : 'X\(.*\)/'` ;;
  429. Xesac
  430. Xecho "Extracting patmake (with variable substitutions)"
  431. Xcat >patmake <<!GROK!THIS!
  432. X#!/usr/bin/perl
  433. X        eval "exec /usr/bin/perl -S \$0 \$*"
  434. X                if \$running_under_some_shell;
  435. X
  436. X# $Header: patmake.SH,v 2.0 88/06/28 23:19:46 lwall Locked $
  437. X#
  438. X# $Log:    patmake.SH,v $
  439. X# Revision 2.0  88/06/28  23:19:46  lwall
  440. X# Baseline.
  441. X# 
  442. X# 
  443. X
  444. X\$defeditor='$defeditor';
  445. X!GROK!THIS!
  446. X
  447. X: In the following dollars and backticks do not need the extra backslash.
  448. Xcat >>patmake <<'!NO!SUBS!'
  449. X
  450. Xdo readpackage();
  451. X
  452. Xif (-f 'patchlevel.h') {
  453. X    open(PL,"patchlevel.h") || die "Can't open patchlevel.h\n";
  454. X    while (<PL>) {
  455. X        $last = $1 if /^#define\s+PATCHLEVEL\s+(\d+)/;
  456. X    }
  457. X    die "Malformed patchlevel.h file.\n" if $last eq '';
  458. X    $bnum = $last + 1;
  459. X}
  460. Xelse {
  461. X    $bnum = 1;
  462. X    $last = '';
  463. X}
  464. X
  465. X$mf = `grep '^[a-z]*:' [Mm]akefile* 2>&1`;
  466. X$* = 1;
  467. X$after = '';
  468. X$after .= "\t\tConfigure -d\n" if -f 'Configure';
  469. X$after .= "\t\tmake depend\n" if $mf =~ /^depend:/;
  470. X$after .= "\t\tmake\n" if $mf;
  471. X$after .= "\t\tmake test\n" if $mf =~ /^test:/;
  472. X$after .= "\t\tmake install\n" if $mf =~ /^install:/;
  473. X$* = 0;
  474. X
  475. Xchdir 'bugs' if -d 'bugs';
  476. X
  477. Xdie "Patch #$bnum already exists.\n" if -f "patch$bnum";
  478. X
  479. X@patlist=<*.$bnum>;
  480. Xdie "No diff files for patch #$bnum.\n" if $patlist[0] =~ /^\*/;
  481. X
  482. Xif (-s ".logs$bnum") {
  483. X    $logs = '';
  484. X    open(LOGS,".logs$bnum");
  485. X    while (<LOGS>) {
  486. X    $logs .= $_ unless $logseen{$_};
  487. X    $logseen{$_} = 1;
  488. X    }
  489. X    close LOGS;
  490. X    $subs = $logs;
  491. X    $* = 1;
  492. X    $logs =~ s/^patch\d+:\s*/\t/g;
  493. X    $logs =~ s/\n/\n\n/g;
  494. X    $subs =~ s/^patch\d+:\s*/Subject: /g;
  495. X    $* = 0;
  496. X}
  497. Xelse {
  498. X    $subs = "Subject: \n";
  499. X}
  500. X
  501. X$hah = " (hah!)" if $bnum == 1;
  502. X
  503. Xopen(PATCH,">patch$bnum") || die "Can't create patch";
  504. Xprint PATCH
  505. X"System: $package version $baserev
  506. XPatch #: $bnum
  507. XPriority: 
  508. X${subs}From:
  509. X
  510. XDescription:
  511. X$logs
  512. XRepeat-By:
  513. X
  514. XFix:    From rn, say \"| patch -p -N -d DIR\", where DIR is your $package source
  515. X    directory.  Outside of rn, say \"cd DIR; patch -p -N <thisarticle\".
  516. X    If you don't have the patch program, apply the following by hand,
  517. X    or get patch (version 2.0, latest patchlevel).
  518. X
  519. X    After patching:
  520. X$after
  521. X    If patch indicates that patchlevel is the wrong version, you may need
  522. X    to apply one or more previous patches, or the patch may already
  523. X    have been applied.  See the patchlevel.h file to find out what has or
  524. X    has not been applied.  In any event, don't continue with the patch.
  525. X
  526. X    If you are missing previous patches$hah they can be obtained from me:
  527. X
  528. X    $maintname
  529. X    $maintloc
  530. X
  531. X    If you send a mail message of the following form it will greatly speed
  532. X    processing:
  533. X
  534. X    Subject: Command
  535. X    @SH mailpatch PATH $package $baserev LIST
  536. X           ^ note the c
  537. X
  538. X    where PATH is a return path FROM ME TO YOU either in Internet notation,
  539. X    or in bang notation from some well-known host, and LIST is the number
  540. X    of one or more patches you need, separated by spaces, commas, and/or
  541. X    hyphens.  Saying 35- says everything from 35 to the end.
  542. X
  543. X";
  544. Xif ($ftpsite) {
  545. X    print PATCH "
  546. X    You can also get the patches via anonymous FTP from
  547. X    $ftpsite.
  548. X";
  549. X}
  550. Xprint PATCH "
  551. XIndex: patchlevel.h
  552. X";
  553. X
  554. Xif ($last eq '') {
  555. X    `echo "#define PATCHLEVEL 1" >patchlevel.h`;
  556. X    `cp /dev/null patchlevel.h.null`;
  557. X    print PATCH `diff -c patchlevel.h.null patchlevel.h`;
  558. X    unlink 'patchlevel.h', 'patchlevel.h.null';
  559. X}
  560. Xelse {
  561. X    print PATCH
  562. X"Prereq: $last
  563. X1c1
  564. X< #define PATCHLEVEL $last
  565. X---
  566. X> #define PATCHLEVEL $bnum
  567. X";
  568. X}
  569. X
  570. X@ARGV = @patlist;
  571. Xwhile (<>) { print PATCH; }
  572. Xclose PATCH;
  573. X
  574. X$editor = $ENV{'VISUAL'};
  575. X$editor = $ENV{'EDITOR'} unless $editor;
  576. X$editor = $defeditor unless $editor;
  577. X$editor = 'vi' unless $editor;
  578. Xsystem $editor, "patch$bnum";
  579. Xif (-s "patch$bnum") {
  580. X    `echo "#define PATCHLEVEL $bnum" >../patchlevel.h`;
  581. X    open(PL,"patchlevel.h") || die "Can't open patchlevel.h\n";
  582. X    while (<PL>) {
  583. X    $bnum = $1 if /^#define\s+PATCHLEVEL\s+(\d+)/;
  584. X    }
  585. X    die "Malformed patchlevel.h file.\n" if $bnum eq '';
  586. X    
  587. X    if ($newsgroups) {
  588. X    print "\nDo you wish to post patch #$bnum to $newsgroups? [y] ";
  589. X    $ans = <stdin>;
  590. X    system 'patpost', $bnum unless $ans =~ /^n/i;
  591. X    }
  592. X    if ($recipients) {
  593. X    print "\nDo you wish to send patch #$bnum to $recipients? [y] ";
  594. X    $ans = <stdin>;
  595. X    system 'patsend', $bnum, $recipients unless $ans =~ /^n/i;
  596. X    }
  597. X    if ($ftpdir) {
  598. X    print "\nDo you wish to copy patch #$bnum to $ftpdir? [y] ";
  599. X    $ans = <stdin>;
  600. X    system 'patftp', $bnum unless $ans =~ /^n/i;
  601. X    }
  602. X    utime time, time, 'patchlevel.h';
  603. X}
  604. Xelse {
  605. X    unlink "patch$bnum";
  606. X    die "Aborted.\n";
  607. X}
  608. X
  609. X!NO!SUBS!
  610. Xcat ../pl/package.pl >>patmake
  611. Xchmod +x patmake
  612. X$eunicefix patmake
  613. !STUFFY!FUNK!
  614. echo Extracting mcon/U/hostname.U
  615. sed >mcon/U/hostname.U <<'!STUFFY!FUNK!' -e 's/X//'
  616. X?RCS:$Header: hostname.U,v 2.0 88/06/28 23:16:46 lwall Locked $
  617. X?RCS: $Log:    hostname.U,v $
  618. X?RCS: Revision 2.0  88/06/28  23:16:46  lwall
  619. X?RCS: Baseline.
  620. X?RCS: 
  621. X?MAKE:hostname phostname mydomain: echo contains sed test n c Myread Oldconfig Guess
  622. X?MAKE:    -pick add $@ %*
  623. X?S:hostname:
  624. X?S:    This variable contains the eventual value of the HOSTNAME symbol,
  625. X?S:    which is the name of the host the program is going to run on.
  626. X?S:    The domain is not kept with hostname, but must be gotten from mydomain.
  627. X?S:    The dot comes with mydomain, and need not be supplied by the program.
  628. X?S:.
  629. X?S:mydomain:
  630. X?S:    This variable contains the eventual value of the MYDOMAIN symbol,
  631. X?S:    which is the domain of the host the program is going to run on.
  632. X?S:    The domain must be appended to hostname to form a complete host name.
  633. X?S:    The dot comes with mydomain, and need not be supplied by the program.
  634. X?S:.
  635. X?S:phostname:
  636. X?S:    This variable contains the eventual value of the PHOSTNAME symbol,
  637. X?S:    which is a command that can be fed to popen() to get the host name.
  638. X?S:    The program should probably not presume that the domain is or isn't
  639. X?S:    there already.
  640. X?S:.
  641. X?C:HOSTNAME:
  642. X?C:    This symbol contains name of the host the program is going to run on.
  643. X?C:    The domain is not kept with hostname, but must be gotten from MYDOMAIN.
  644. X?C:    The dot comes with MYDOMAIN, and need not be supplied by the program.
  645. X?C:    If gethostname() or uname() exist, HOSTNAME may be ignored.
  646. X?C:.
  647. X?C:MYDOMAIN:
  648. X?C:    This symbol contains the domain of the host the program is going to
  649. X?C:    run on.  The domain must be appended to HOSTNAME to form a complete
  650. X?C:    host name.  The dot comes with MYDOMAIN, and need not be supplied by
  651. X?C:    the program.  If the host name is derived from PHOSTNAME, the domain
  652. X?C:    may or may not already be there, and the program should check.
  653. X?C:.
  654. X?H:?%1:#define HOSTNAME "$hostname"        /**/
  655. X?H:?%1:#define MYDOMAIN "$mydomain"        /**/
  656. X?H:?%1:
  657. X: now get the host name
  658. Xecho " "
  659. Xecho "Figuring out host name..."
  660. Xecho 'Maybe "hostname" will work...'
  661. Xif ans=`sh -c hostname 2>&1` ; then
  662. X    hostname=$ans
  663. X    phostname=hostname
  664. Xelse
  665. X    echo 'Oh, dear.  Maybe "/etc/systemid" is the key...'
  666. X    if ans=`cat /etc/systemid 2>&1` ; then
  667. X    hostname=$ans
  668. X    phostname='cat /etc/systemid'
  669. X    if xenix; then
  670. X        echo "Whadyaknow.  Xenix always was a bit strange..."
  671. X    else
  672. X        echo "What is a non-Xenix system doing with /etc/systemid?"
  673. X    fi
  674. X    else
  675. X    echo 'No, maybe "uuname -l" will work...'
  676. X    if ans=`sh -c 'uuname -l' 2>&1` ; then
  677. X        hostname=$ans
  678. X        phostname='uuname -l'
  679. X    else
  680. X        echo 'Strange.  Maybe "uname -n" will work...'
  681. X        if ans=`sh -c 'uname -n' 2>&1` ; then
  682. X        hostname=$ans
  683. X        phostname='uname -n'
  684. X        else
  685. X        echo 'Oh well, maybe I can mine it out of whoami.h...'
  686. X        if ans=`sh -c $contains' sysname /usr/include/whoami.h' 2>&1` ; then
  687. X            hostname=`echo "$ans" | $sed 's/^.*"\(.*\)"/\1/'`
  688. X            phostname="sed -n -e '"'/sysname/s/^.*\"\\(.*\\)\"/\1/{'"' -e p -e q -e '}' </usr/include/whoami.h"
  689. X        else
  690. X            case "$hostname" in
  691. X            '') echo "Does this machine have an identity crisis or something?"
  692. X            phostname=''
  693. X            ;;
  694. X            *)  echo "Well, you said $hostname before...";;
  695. X            esac
  696. X        fi
  697. X        fi
  698. X    fi
  699. X    fi
  700. Xfi
  701. X: you do not want to know about this
  702. Xset $hostname
  703. Xhostname=$1
  704. X
  705. X: translate upper to lower if necessary
  706. Xcase "$hostname" in
  707. X    *[A-Z]*)
  708. X    hostname=`echo $hostname | tr '[A-Z]' '[a-z]'`
  709. X    echo "(Normalizing case in your host name)"
  710. X    ;;
  711. Xesac
  712. X
  713. X: verify guess
  714. Xif $test "$hostname" ; then
  715. X    dflt=y
  716. X    echo 'Your host name appears to be "'$hostname'".'
  717. X    $echo $n "Is this correct? [$dflt] $c"
  718. X    rp="Sitename is $hostname? [$dflt]"
  719. X    . myread
  720. X    case "$ans" in
  721. X      y*)  ;;
  722. X      *)      hostname='' ;;
  723. X    esac
  724. Xfi
  725. X
  726. X: bad guess or no guess
  727. Xwhile $test "X$hostname" = X ; do
  728. X    dflt=''
  729. X    rp="Please type the (one word) name of your host:"
  730. X    $echo $n "$rp $c"
  731. X    . myread
  732. X    hostname="$ans"
  733. Xdone
  734. X
  735. Xecho " "
  736. Xcase "$hostname" in
  737. X*.*)
  738. X    dflt=`expr "X$hostname" : "X[^.]*\(\..*\)"`
  739. X    hostname=`expr "X$hostname" : "X\([^.]*\)\."`
  740. X    echo "(Trimming domain name from host name--host name is now $hostname)"
  741. X    ;;
  742. X*)
  743. X    dflt='.uucp'
  744. X    ;;
  745. Xesac
  746. Xrp="What is your domain name? [$dflt]"
  747. X$echo $n "$rp $c"
  748. X. myread
  749. Xcase "$ans" in
  750. X'') ;;
  751. X.*) ;;
  752. X*) ans=".$ans";;
  753. Xesac
  754. Xmydomain="$ans"
  755. X
  756. X: a little sanity check here
  757. Xcase "$phostname" in
  758. X'') ;;
  759. X*)  case `$phostname` in
  760. X    $hostname$mydomain|$hostname) ;;
  761. X    *)
  762. X    case "$phostname" in
  763. X    sed*)
  764. X        echo "(That doesn't agree with your whoami.h file, by the way.)"
  765. X        ;;
  766. X    *)
  767. X        echo "(That doesn't agree with your $phostname command, by the way.)"
  768. X        ;;
  769. X    esac
  770. X    phostname=''
  771. X    ;;
  772. X    esac
  773. X    ;;
  774. Xesac
  775. X
  776. !STUFFY!FUNK!
  777. echo Extracting pat/patdiff.SH
  778. sed >pat/patdiff.SH <<'!STUFFY!FUNK!' -e 's/X//'
  779. Xcase $CONFIG in
  780. X'')
  781. X    if test ! -f config.sh; then
  782. X    ln ../config.sh . || \
  783. X    ln ../../config.sh . || \
  784. X    ln ../../../config.sh . || \
  785. X    (echo "Can't find config.sh."; exit 1)
  786. X    fi
  787. X    . ./config.sh
  788. X    ;;
  789. Xesac
  790. X: This forces SH files to create target in same directory as SH file.
  791. X: This is so that make depend always knows where to find SH derivatives.
  792. Xcase "$0" in
  793. X*/*) cd `expr X$0 : 'X\(.*\)/'` ;;
  794. Xesac
  795. Xecho "Extracting patdiff (with variable substitutions)"
  796. Xcat >patdiff <<!GROK!THIS!
  797. X#!/usr/bin/perl
  798. X        eval "exec /usr/bin/perl -S \$0 \$*"
  799. X                if \$running_under_some_shell;
  800. X
  801. X# $Header: patdiff.SH,v 2.0 88/06/28 23:19:39 lwall Locked $
  802. X#
  803. X# $Log:    patdiff.SH,v $
  804. X# Revision 2.0  88/06/28  23:19:39  lwall
  805. X# Baseline.
  806. X# 
  807. X# 
  808. X
  809. X!GROK!THIS!
  810. X
  811. X: In the following dollars and backticks do not need the extra backslash.
  812. Xcat >>patdiff <<'!NO!SUBS!'
  813. X
  814. X$RCSEXT = ',v' unless $RCSEXT;
  815. X
  816. Xdie "patdiff [files]\n" unless $#ARGV >= 0;
  817. X
  818. Xdo readpackage();
  819. X
  820. Xsystem 'mkdir', 'bugs' unless -d 'bugs';
  821. X
  822. Xif (-f 'patchlevel.h') {
  823. X    open(PL,"patchlevel.h") || die "Can't open patchlevel.h\n";
  824. X    while (<PL>) {
  825. X        $bnum = $1 if /^#define\s+PATCHLEVEL\s+(\d+)/;
  826. X    }
  827. X    die "Malformed patchlevel.h file.\n" if $bnum eq '';
  828. X    ++$bnum;
  829. X}
  830. Xelse {
  831. X    $bnum=1;
  832. X}
  833. X
  834. X$update = 1;
  835. Xwhile ($ARGV[0] =~ /^-/) {
  836. X    $_ = shift;
  837. X    last if /--/;
  838. X    if ($_ eq '-n') {
  839. X        $update = 0;
  840. X    }
  841. X    elsif ($_ eq '-a') {
  842. X        $all++;
  843. X    }
  844. X    else {
  845. X        die "Unrecognized switch: $_\n";
  846. X    }
  847. X}
  848. X
  849. Xif ($all) {
  850. X    open(MANI,"MANIFEST.new") || die "No MANIFEST.new found.\n";
  851. X    @ARGV = ();
  852. X    while (<MANI>) {
  853. X        chop;
  854. X    ($_) = split(' ');
  855. X        push(@ARGV,$_);
  856. X    }
  857. X    close MANI;
  858. X}
  859. X
  860. Xforeach $file (@ARGV) {
  861. X    if (! -f $file) {
  862. X    print "$file not found.\n";
  863. X    }
  864. X    else {
  865. X    $files = do rcsargs($file);
  866. X    @files = split(' ',$files);
  867. X    $new='';
  868. X    $revs=0;
  869. X    $rlog = `rlog -rlastpat- $files 2>&1`;
  870. X    ($lastpat) = ($rlog =~ /lastpat: ([\d.]+)/);
  871. X    ($revs) = ($rlog =~ /selected revisions: (\d+)/);
  872. X    if (!$revs) {
  873. X        print "No cil has been done on $file.\n" ;;
  874. X    }
  875. X    elsif ($revs == 1) {
  876. X        ($base) = ($rlog =~ /.*\nrevision\s+(\S+)/);
  877. X        ($a,$b,$c,$d) = split(/\./,$base);
  878. X        if ($d ne '') {
  879. X        if ($update) {
  880. X            print "No changes in $file since last patch.  (Did you cil it?)\n";
  881. X        }
  882. X        else {
  883. X            $new='foo';
  884. X        }
  885. X        }
  886. X        else {
  887. X        $revs=0;
  888. X        $rlog = `rlog -r$revbranch- $files 2>&1`;
  889. X        ($revs) = ($rlog =~ /selected revisions: (\d+)/);
  890. X        if (!$revs) {
  891. X            print "No changes in $file since base version.  (Did you cil it?)\n";
  892. X        }
  893. X        else {
  894. X            ($new) = ($rlog =~ /\nrevision\s*(\d+\.\d+\.\d+\.\d+)/);
  895. X        }
  896. X        }
  897. X    }
  898. X    else {
  899. X        ($new) = ($rlog =~ /\nrevision\s*(\d+\.\d+\.\d+\.\d+)/);
  900. X    }
  901. X    if ($new ne '') {
  902. X        ($fname = $file) =~ s|.*/||;
  903. X        open(PATCH,">>bugs/$fname.$bnum") || die "Can't make patch";
  904. X        print PATCH "\nIndex: $file\n";
  905. X        open(CO,"co -p -rlastpat $files 2>/dev/null |");
  906. X        while (<CO>) {
  907. X        if (/\$Header/) {
  908. X            print PATCH "Prereq: $lastpat\n";
  909. X            last;
  910. X        }
  911. X        }
  912. X        close CO;
  913. X        if ($update) {
  914. X        if ($mydiff eq '') {
  915. X            open(DIFF,"rcsdiff -c -rlastpat -r$new $files |") ||
  916. X            die "Can't run rcsdiff";
  917. X            while (<DIFF>) {
  918. X            if ($. == 1) {s|\*\*\* \S+    |*** $file.old    |;}
  919. X            if ($. == 2) {s|--- \S+    |--- $file    |;}
  920. X            print PATCH;
  921. X            }
  922. X            close DIFF;
  923. X            system 'rcs', "-Nlastpat:$new", @files;
  924. X        }
  925. X        else {
  926. X            system "co -p -rlastpat $files >/tmp/pdo$$";
  927. X            system "co -p -r$new $files >/tmp/pdn$$";
  928. X            open(DIFF, "$mydiff /tmp/pdo$$ /tmp/pdn$$ |") ||
  929. X            die "Can't run $mydiff";
  930. X            while (<DIFF>) {
  931. X            if ($. == 1) {s|\*\*\* \S+    |*** $file.old    |;}
  932. X            if ($. == 2) {s|--- \S+    |--- $file    |;}
  933. X            print PATCH;
  934. X            }
  935. X            close DIFF;
  936. X            system 'rcs', "-Nlastpat:$new", @files;
  937. X            unlink "/tmp/pdn$$", "/tmp/pdo$$";
  938. X        }
  939. X        }
  940. X        else {
  941. X        if ($mydiff eq '') {
  942. X            open(DIFF,"rcsdiff -c -rlastpat $files |") ||
  943. X            die "Can't run rcsdiff";
  944. X            while (<DIFF>) {
  945. X            if ($. == 1) {s|\*\*\* \S+    |*** $file.old    |;}
  946. X            if ($. == 2) {s|--- \S+    |--- $file    |;}
  947. X            print PATCH;
  948. X            }
  949. X            close DIFF;
  950. X        }
  951. X        else {
  952. X            system "co -p -rlastpat $files >/tmp/pdo$$";
  953. X            system "cp $file /tmp/pdn$$";
  954. X            open(DIFF, "$mydiff /tmp/pdo$$ /tmp/pdn$$ |") ||
  955. X            die "Can't run $mydiff";
  956. X            while (<DIFF>) {
  957. X            if ($. == 1) {s|\*\*\* \S+    |*** $file.old    |;}
  958. X            if ($. == 2) {s|--- \S+    |--- $file    |;}
  959. X            print PATCH;
  960. X            }
  961. X            close DIFF;
  962. X            unlink "/tmp/pdn$$", "/tmp/pdo$$";
  963. X        }
  964. X        }
  965. X    }
  966. X    }
  967. X}
  968. Xunlink ".rlog$$";
  969. X
  970. X!NO!SUBS!
  971. Xcat ../pl/package.pl >>patdiff
  972. Xcat ../pl/rcsargs.pl >>patdiff
  973. Xchmod +x patdiff
  974. X$eunicefix patdiff
  975. !STUFFY!FUNK!
  976. echo Extracting mcon/U/d_gethname.U
  977. sed >mcon/U/d_gethname.U <<'!STUFFY!FUNK!' -e 's/X//'
  978. X?RCS:$Header: d_gethname.U,v 2.0 88/06/28 23:14:41 lwall Locked $
  979. X?RCS: $Log:    d_gethname.U,v $
  980. X?RCS: Revision 2.0  88/06/28  23:14:41  lwall
  981. X?RCS: Baseline.
  982. X?RCS: 
  983. X?MAKE:d_gethname d_douname d_phostname: contains echo phostname cat hostname package d_portable n c d_whoami Myread libc
  984. X?MAKE:    -pick add $@ %*
  985. X?S:d_gethname:
  986. X?S:    This variable conditionally defines the GETHOSTNAME symbol, which
  987. X?S:    indicates to the C program that the gethostname() routine may be
  988. X?S:    used to derive the host name.
  989. X?S:.
  990. X?S:d_douname:
  991. X?S:    This variable conditionally defines the DOUNAME symbol, which
  992. X?S:    indicates to the C program that the uname() routine may be
  993. X?S:    used to derive the host name.
  994. X?S:.
  995. X?S:d_phostname:
  996. X?S:    This variable conditionally defines the PHOSTNAME symbol, which
  997. X?S:    contains the shell command which, when fed to popen(), may be
  998. X?S:    used to derive the host name.
  999. X?S:.
  1000. X?C:GETHOSTNAME:
  1001. X?C:    This symbol, if defined, indicates that the C program may use the
  1002. X?C:    gethostname() routine to derive the host name.  See also DOUNAME
  1003. X?C:    and PHOSTNAME.
  1004. X?C:.
  1005. X?C:DOUNAME:
  1006. X?C:    This symbol, if defined, indicates that the C program may use the
  1007. X?C:    uname() routine to derive the host name.  See also GETHOSTNAME and
  1008. X?C:    PHOSTNAME.
  1009. X?C:.
  1010. X?C:PHOSTNAME:
  1011. X?C:    This symbol, if defined, indicates that the C program may use the
  1012. X?C:    contents of PHOSTNAME as a command to feed to the popen() routine
  1013. X?C:    to derive the host name.  See also GETHOSTNAME and DOUNAME.
  1014. X?C:.
  1015. X?H:?%1:#$d_gethname    GETHOSTNAME    /**/
  1016. X?H:?%1:#$d_douname    DOUNAME        /**/
  1017. X?H:?%1:#$d_phostname    PHOSTNAME "$phostname"    /**/
  1018. X?H:?%1:
  1019. X: see how we will look up host name
  1020. Xecho " "
  1021. Xd_douname="$undef"
  1022. Xd_gethname="$undef"
  1023. Xd_phostname="$undef"
  1024. X
  1025. Xif xenix; then
  1026. X    echo " "
  1027. X    echo "(Assuming Xenix uname() is broken.)"
  1028. Xelif $contains '^gethostname$' libc.list >/dev/null 2>&1 ; then
  1029. X    echo "gethostname() found."
  1030. X    d_gethname="$define"
  1031. X    ans=gethostname
  1032. Xelif $contains '^uname$' libc.list >/dev/null 2>&1 ; then
  1033. X    echo "uname() found."
  1034. X    d_douname="$define"
  1035. X    ans=uname
  1036. Xfi
  1037. X
  1038. Xcase "$d_douname$d_gethname" in
  1039. X*define*)
  1040. X    dflt=n
  1041. X    cat <<EOM
  1042. X 
  1043. XEvery now and then someone has a $ans() that lies about the hostname
  1044. Xbut can't be fixed for political or economic reasons.  Would you like to
  1045. XEOM
  1046. X    rp="pretend $ans() isn't there and maybe compile in the hostname? [$dflt]"
  1047. X    $echo $n "$rp $c"
  1048. X    . myread
  1049. X    case "$ans" in
  1050. X    y*) d_douname="$undef" d_gethname="$undef"
  1051. X    $echo $n "Okay... $c"
  1052. X    ;;
  1053. X    esac
  1054. X    ;;
  1055. Xesac
  1056. X
  1057. Xcase "$d_douname$d_gethname" in
  1058. X*define*) ;;
  1059. X*)
  1060. X    case "$phostname" in
  1061. X      '') ;;
  1062. X      *)
  1063. X    $cat <<EOT
  1064. X 
  1065. XThere is no gethostname() or uname() on this system.  You have two
  1066. Xpossibilities at this point:
  1067. X
  1068. X1)  You can have your host name ($hostname) compiled into $package, which
  1069. X    lets $package start up faster, but makes your binaries non-portable, or
  1070. X2)  you can have $package use a
  1071. X    
  1072. X    popen("$phostname","r")
  1073. X
  1074. X    which will start slower but be more portable.
  1075. X
  1076. XOption 1 will give you the option of using whoami.h if you have one.  If you
  1077. Xwant option 2 but with a different command, you can edit config.sh at the
  1078. Xend of this shell script.
  1079. X
  1080. XEOT
  1081. X    case "$d_phostname" in
  1082. X    "$define") dflt=n;;
  1083. X    "$undef")  dflt=y;;
  1084. X    '')
  1085. X        case "$d_portable" in
  1086. X        "$define") dflt=n ;;
  1087. X        *)      dflt=y ;;
  1088. X        esac
  1089. X        ;;
  1090. X    esac
  1091. X    rp="Do you want your host name compiled in? [$dflt]"
  1092. X    $echo $n "$rp $c"
  1093. X    . myread
  1094. X    case "$ans" in
  1095. X      n*) d_phostname="$define" ;;
  1096. X      *)  phostname=''
  1097. X          d_phostname="$undef"
  1098. X          ;;
  1099. X    esac
  1100. X    ;;
  1101. X    esac
  1102. X    case "$phostname" in
  1103. X      '')
  1104. X    case "$d_whoami" in
  1105. X      "$define")
  1106. X        dflt=y
  1107. X        $cat <<EOM
  1108. X 
  1109. XNo hostname function--you can either use the whoami.h file, which has this line:
  1110. X
  1111. X    `grep sysname /usr/include/whoami.h`
  1112. X
  1113. Xor you can have the name we came up with earlier ($hostname) hardwired in.
  1114. XEOM
  1115. X        rp="Use whoami.h to get hostname? [$dflt]"
  1116. X        $echo $n "$rp $c"
  1117. X        . myread
  1118. X        case "$ans" in
  1119. X        n*) d_whoami="$undef";;
  1120. X        esac
  1121. X        ;;
  1122. X      "$undef")
  1123. X        echo 'No hostname function and no whoami.h--hardwiring "'$hostname'".'
  1124. X        ;;
  1125. X    esac
  1126. X    ;;
  1127. X    esac
  1128. X    ;;
  1129. Xesac
  1130. X
  1131. !STUFFY!FUNK!
  1132. echo Extracting mcon/U/nametype.U
  1133. sed >mcon/U/nametype.U <<'!STUFFY!FUNK!' -e 's/X//'
  1134. X?RCS:$Header: nametype.U,v 2.0 88/06/28 23:17:33 lwall Locked $
  1135. X?RCS: $Log:    nametype.U,v $
  1136. X?RCS: Revision 2.0  88/06/28  23:17:33  lwall
  1137. X?RCS: Baseline.
  1138. X?RCS: 
  1139. X?MAKE:nametype d_passnames d_berknames d_usgnames passcat: echo n c Myread Guess Oldconfig test contains
  1140. X?MAKE:    -pick add $@ %*
  1141. X?S:nametype:
  1142. X?S:    This variable indicates how full names are stored on this system.
  1143. X?S:    Values are bsd, usg, and other.
  1144. X?S:.
  1145. X?S:d_passnames:
  1146. X?S:    This variable conditionally defines the PASSNAMES symbol,
  1147. X?S:    which indicates to the C program that full names are stored in
  1148. X?S:    the /etc/passwd file.
  1149. X?S:.
  1150. X?S:d_berknames:
  1151. X?S:    This variable conditionally defines the PASSNAMES symbol,
  1152. X?S:    which indicates to the C program that full names are stored in
  1153. X?S:    the /etc/passwd file in Berkeley format.
  1154. X?S:.
  1155. X?S:d_usgnames:
  1156. X?S:    This variable conditionally defines the PASSNAMES symbol,
  1157. X?S:    which indicates to the C program that full names are stored in
  1158. X?S:    the /etc/passwd file in USG format.
  1159. X?S:.
  1160. X?S:passcat:
  1161. X?S:    This variable contains a command that produces the text of the
  1162. X?S:    /etc/passwd file.  This is normally "cat passwd", but can be
  1163. X?S:    "ypcat passwd" on suns.
  1164. X?S:.
  1165. X?C:PASSNAMES:
  1166. X?C:    This symbol, if defined, indicates that full names are stored in
  1167. X?C:    the /etc/passwd file.
  1168. X?C:.
  1169. X?C:BERKNAMES:
  1170. X?C:    This symbol, if defined, indicates that full names are stored in
  1171. X?C:    the /etc/passwd file in Berkeley format (name first thing, everything
  1172. X?C:    up to first comma, with & replaced by capitalized login id, yuck).
  1173. X?C:.
  1174. X?C:USGNAMES:
  1175. X?C:    This symbol, if defined, indicates that full names are stored in
  1176. X?C:    the /etc/passwd file in USG format (everything after - and before ( is
  1177. X?C:    the name).
  1178. X?C:.
  1179. X?H:?%1:#$d_passnames    PASSNAMES /*  (undef to take name from ~/.fullname) */
  1180. X?H:?%1:#$d_berknames    BERKNAMES /* (that is, ":name,stuff:") */
  1181. X?H:?%1:#$d_usgnames    USGNAMES  /* (that is, ":stuff-name(stuff):") */
  1182. X?H:?%1:
  1183. X: find out how to find out full name
  1184. Xecho " "
  1185. Xcase "$d_berknames" in
  1186. X"$define")
  1187. X    dflt=y;;
  1188. X"$undef")
  1189. X    dflt=n;;
  1190. X*)
  1191. X    if bsd; then
  1192. X    dflt=y
  1193. X    else
  1194. X    dflt=n
  1195. X    fi
  1196. X    ;;
  1197. Xesac
  1198. Xecho "Does your /etc/passwd file keep full names in Berkeley/V7 format (name first"
  1199. X$echo $n "thing after ':' in GCOS field)? [$dflt] $c"
  1200. Xrp="Berkeley/V7 format full name? [$dflt]"
  1201. X. myread
  1202. Xcase "$ans" in
  1203. X  y*)
  1204. X    d_passnames="$define"
  1205. X    d_berknames="$define"
  1206. X    d_usgnames="$undef"
  1207. X    nametype=bsd
  1208. X    ;;
  1209. X  *)
  1210. X    echo " "
  1211. X    case "$d_usgnames" in
  1212. X    "$define")
  1213. X    dflt=y;;
  1214. X    "$undef")
  1215. X    dflt=n;;
  1216. X    *)
  1217. X    if usg; then
  1218. X        dflt=y
  1219. X    else
  1220. X        dflt=n
  1221. X    fi
  1222. X    ;;
  1223. X    esac
  1224. X    echo "Does your passwd file keep full names in USG format (name sandwiched"
  1225. X    $echo $n "between a '-' and a '(')? [$dflt] $c"
  1226. X    rp="USG format full name? [$dflt]"
  1227. X    . myread
  1228. X    case "$ans" in
  1229. X      n*)
  1230. X    echo "Full name will be taken from ~/.fullname"
  1231. X    d_passnames="$undef"
  1232. X    d_berknames="$undef"
  1233. X    d_usgnames="$undef"
  1234. X    nametype=other
  1235. X    ;;
  1236. X      *)
  1237. X    d_passnames="$define"
  1238. X    d_berknames="$undef"
  1239. X    d_usgnames="$define"
  1240. X    nametype=usg
  1241. X    ;;
  1242. X    esac
  1243. X    ;;
  1244. Xesac
  1245. X
  1246. X: see if we have to deal with yellow pages
  1247. Xif $test -d /usr/etc/yp; then
  1248. X    if $contains '^\+:' /etc/passwd; then
  1249. X    dflt=y
  1250. X    else
  1251. X    dflt=n
  1252. X    fi
  1253. X    rp="Are you getting the passwd file via yellow pages? [$dflt]"
  1254. X    $echo $n "$rp $c"
  1255. X    . myread
  1256. X    case "$ans" in
  1257. X    y*) passcat='ypcat passwd';;
  1258. X    *) passcat='cat /etc/passwd';;
  1259. X    esac
  1260. Xelse
  1261. X    passcat='cat /etc/passwd'
  1262. Xfi
  1263. X
  1264. !STUFFY!FUNK!
  1265. echo Extracting config.h.SH
  1266. sed >config.h.SH <<'!STUFFY!FUNK!' -e 's/X//'
  1267. Xcase $CONFIG in
  1268. X'')
  1269. X    if test ! -f config.sh; then
  1270. X    ln ../config.sh . || \
  1271. X    ln ../../config.sh . || \
  1272. X    ln ../../../config.sh . || \
  1273. X    (echo "Can't find config.sh."; exit 1)
  1274. X    echo "Using config.sh from above..."
  1275. X    fi
  1276. X    . ./config.sh
  1277. X    ;;
  1278. Xesac
  1279. Xecho "Extracting config.h (with variable substitutions)"
  1280. Xsed <<!GROK!THIS! >config.h -e 's!^#undef!/\*#undef!'
  1281. X/* config.h
  1282. X * This file was produced by running the config.h.SH script, which
  1283. X * gets its values from config.sh, which is generally produced by
  1284. X * running Configure.
  1285. X *
  1286. X * Feel free to modify any of this as the need arises.  Note, however,
  1287. X * that running config.h.SH again will wipe out any changes you've made.
  1288. X * For a more permanent change edit config.sh and rerun config.h.SH.
  1289. X */
  1290. X
  1291. X
  1292. X/* EUNICE:
  1293. X *    This symbol, if defined, indicates that the program is being compiled
  1294. X *    under the EUNICE package under VMS.  The program will need to handle
  1295. X *    things like files that don't go away the first time you unlink them,
  1296. X *    due to version numbering.  It will also need to compensate for lack
  1297. X *    of a respectable link() command.
  1298. X */
  1299. X/* VMS:
  1300. X *    This symbol, if defined, indicates that the program is running under
  1301. X *    VMS.  It is currently only set in conjunction with the EUNICE symbol.
  1302. X */
  1303. X#$d_eunice    EUNICE        /**/
  1304. X#$d_eunice    VMS        /**/
  1305. X
  1306. X/* DEFEDITOR:
  1307. X *    This symbol contains the name of the default editor.
  1308. X */
  1309. X#define DEFEDITOR "$defeditor"        /**/
  1310. X
  1311. X/* HOSTNAME:
  1312. X *    This symbol contains name of the host the program is going to run on.
  1313. X *    The domain is not kept with hostname, but must be gotten from MYDOMAIN.
  1314. X *    The dot comes with MYDOMAIN, and need not be supplied by the program.
  1315. X *    If gethostname() or uname() exist, HOSTNAME may be ignored.
  1316. X */
  1317. X/* MYDOMAIN:
  1318. X *    This symbol contains the domain of the host the program is going to
  1319. X *    run on.  The domain must be appended to HOSTNAME to form a complete
  1320. X *    host name.  The dot comes with MYDOMAIN, and need not be supplied by
  1321. X *    the program.  If the host name is derived from PHOSTNAME, the domain
  1322. X *    may or may not already be there, and the program should check.
  1323. X */
  1324. X#define HOSTNAME "$hostname"        /**/
  1325. X#define MYDOMAIN "$mydomain"        /**/
  1326. X
  1327. X/* PASSNAMES:
  1328. X *    This symbol, if defined, indicates that full names are stored in
  1329. X *    the /etc/passwd file.
  1330. X */
  1331. X/* BERKNAMES:
  1332. X *    This symbol, if defined, indicates that full names are stored in
  1333. X *    the /etc/passwd file in Berkeley format (name first thing, everything
  1334. X *    up to first comma, with & replaced by capitalized login id, yuck).
  1335. X */
  1336. X/* USGNAMES:
  1337. X *    This symbol, if defined, indicates that full names are stored in
  1338. X *    the /etc/passwd file in USG format (everything after - and before ( is
  1339. X *    the name).
  1340. X */
  1341. X#$d_passnames    PASSNAMES /*  (undef to take name from ~/.fullname) */
  1342. X#$d_berknames    BERKNAMES /* (that is, ":name,stuff:") */
  1343. X#$d_usgnames    USGNAMES  /* (that is, ":stuff-name(stuff):") */
  1344. X
  1345. X/* ORGNAME:
  1346. X *    This symbol contains either the organizaton name or the full pathname
  1347. X *    of a file containing the organization name, which the program must
  1348. X *    be prepared to open and substitute the contents of.
  1349. X */
  1350. X#define ORGNAME "$orgname"        /**/
  1351. X
  1352. X!GROK!THIS!
  1353. !STUFFY!FUNK!
  1354. echo Extracting mcon/U/Guess.U
  1355. sed >mcon/U/Guess.U <<'!STUFFY!FUNK!' -e 's/X//'
  1356. X?RCS:$Header: Guess.U,v 2.0 88/06/28 23:13:08 lwall Locked $
  1357. X?X: 
  1358. X?X: This unit hazards some guesses as to what the general nature of the system
  1359. X?X: is.  The information it collects here is used primarily to establish default
  1360. X?X: answers to other questions.
  1361. X?X: 
  1362. X?RCS: $Log:    Guess.U,v $
  1363. X?RCS: Revision 2.0  88/06/28  23:13:08  lwall
  1364. X?RCS: Baseline.
  1365. X?RCS: 
  1366. X?MAKE:Guess d_eunice eunicefix: n c contains libc
  1367. X?MAKE:    -pick add $@ %*
  1368. X?S:d_eunice:
  1369. X?S:    This variable conditionally defines the symbols EUNICE and VAX, which
  1370. X?S:    alerts the C program that it must deal with ideosyncracies of VMS.
  1371. X?S:.
  1372. X?S:eunicefix:
  1373. X?S:    When running under Eunice this variable contains a command which will
  1374. X?S:    convert a shell script to the proper form of text file for it to be
  1375. X?S:    executable by the shell.  On other systems it is a no-op.
  1376. X?S:.
  1377. X?C:EUNICE:
  1378. X?C:    This symbol, if defined, indicates that the program is being compiled
  1379. X?C:    under the EUNICE package under VMS.  The program will need to handle
  1380. X?C:    things like files that don't go away the first time you unlink them,
  1381. X?C:    due to version numbering.  It will also need to compensate for lack
  1382. X?C:    of a respectable link() command.
  1383. X?C:.
  1384. X?C:VMS:
  1385. X?C:    This symbol, if defined, indicates that the program is running under
  1386. X?C:    VMS.  It is currently only set in conjunction with the EUNICE symbol.
  1387. X?C:.
  1388. X?H:?%1:#$d_eunice    EUNICE        /**/
  1389. X?H:?%1:#$d_eunice    VMS        /**/
  1390. X?H:?%1:
  1391. X: make some quick guesses about what we are up against
  1392. Xecho " "
  1393. X$echo $n "Hmm...  $c"
  1394. Xif $contains SIGTSTP /usr/include/signal.h >/dev/null 2>&1 ; then
  1395. X    echo "Looks kind of like a BSD system, but we'll see..."
  1396. X    echo exit 0 >bsd
  1397. X    echo exit 1 >usg
  1398. X    echo exit 1 >v7
  1399. Xelif $contains '^fcntl$' libc.list >/dev/null 2>&1 ; then
  1400. X    echo "Looks kind of like a USG system, but we'll see..."
  1401. X    echo exit 1 >bsd
  1402. X    echo exit 0 >usg
  1403. X    echo exit 1 >v7
  1404. Xelse
  1405. X    echo "Looks kind of like a version 7 system, but we'll see..."
  1406. X    echo exit 1 >bsd
  1407. X    echo exit 1 >usg
  1408. X    echo exit 0 >v7
  1409. Xfi
  1410. Xif $contains '^vmssystem$' libc.list >/dev/null 2>&1 ; then
  1411. X    cat <<'EOI'
  1412. XThere is, however, a strange, musty smell in the air that reminds me of
  1413. Xsomething...hmm...yes...I've got it...there's a VMS nearby, or I'm a Blit.
  1414. XEOI
  1415. X    echo "exit 0" >eunice
  1416. X    eunicefix=unixtovms
  1417. X    d_eunice="$define"
  1418. X: it so happens the Eunice I know will not run shell scripts in Unix format
  1419. Xelse
  1420. X    echo " "
  1421. X    echo "Congratulations.  You aren't running Eunice."
  1422. X    eunicefix=':'
  1423. X    d_eunice="$undef"
  1424. X    echo "exit 1" >eunice
  1425. Xfi
  1426. Xif test -f /xenix; then
  1427. X    echo "Actually, this looks more like a XENIX system..."
  1428. X    echo "exit 0" >xenix
  1429. Xelse
  1430. X    echo " "
  1431. X    echo "It's not Xenix..."
  1432. X    echo "exit 1" >xenix
  1433. Xfi
  1434. Xchmod +x xenix
  1435. X$eunicefix xenix
  1436. Xif test -f /venix; then
  1437. X    echo "Actually, this looks more like a VENIX system..."
  1438. X    echo "exit 0" >venix
  1439. Xelse
  1440. X    echo " "
  1441. X    if xenix; then
  1442. X    : null
  1443. X    else
  1444. X    echo "Nor is it Venix..."
  1445. X    fi
  1446. X    echo "exit 1" >venix
  1447. Xfi
  1448. Xchmod +x bsd usg v7 eunice venix
  1449. X$eunicefix bsd usg v7 eunice venix
  1450. Xrmlist="$rmlist bsd usg v7 eunice venix xenix"
  1451. X
  1452. !STUFFY!FUNK!
  1453. echo Extracting mcon/U/voidflags.U
  1454. sed >mcon/U/voidflags.U <<'!STUFFY!FUNK!' -e 's/X//'
  1455. X?RCS:$Header: voidflags.U,v 2.0 88/06/28 23:18:38 lwall Locked $
  1456. X?RCS: $Log:    voidflags.U,v $
  1457. X?RCS: Revision 2.0  88/06/28  23:18:38  lwall
  1458. X?RCS: Baseline.
  1459. X?RCS: 
  1460. X?MAKE:voidflags defvoidused: echo n c cat rm contains
  1461. X?MAKE:    -pick add $@ %*
  1462. X?S:voidflags:
  1463. X?S:    This variable contains the eventual value of the VOIDFLAGS symbol,
  1464. X?S:    which indicates how much support of the void type is given by this
  1465. X?S:    compiler.  See VOIDFLAGS for more info.
  1466. X?S:.
  1467. X?C:VOIDFLAGS:
  1468. X?C:    This symbol indicates how much support of the void type is given by this
  1469. X?C:    compiler.  What various bits mean:
  1470. X?C:
  1471. X?C:        1 = supports declaration of void
  1472. X?C:        2 = supports arrays of pointers to functions returning void
  1473. X?C:        4 = supports comparisons between pointers to void functions and
  1474. X?C:            addresses of void functions
  1475. X?C:
  1476. X?C:    The package designer should define VOIDUSED to indicate the requirements
  1477. X?C:    of the package.  This can be done either by #defining VOIDUSED before
  1478. X?C:    including config.h, or by defining defvoidused in Myinit.U.  If the
  1479. X?C:    level of void support necessary is not present, defines void to int.
  1480. X?C:.
  1481. X?H:?%1:#ifndef VOIDUSED
  1482. X?H:?%1:#define VOIDUSED $defvoidused
  1483. X?H:?%1:#endif
  1484. X?H:?%1:#define VOIDFLAGS $voidflags
  1485. X?H:?%1:#if (VOIDFLAGS & VOIDUSED) != VOIDUSED
  1486. X?H:?%1:#$define void int        /* is void to be avoided? */
  1487. X?H:?%1:#$define M_VOID        /* Xenix strikes again */
  1488. X?H:?%1:#endif
  1489. X?H:?%1:
  1490. X?INIT:defvoidused=7
  1491. X: check for void type
  1492. Xecho " "
  1493. X$cat <<EOM
  1494. XChecking to see how well your C compiler groks the void type...
  1495. X
  1496. X  Support flag bits are:
  1497. X    1: basic void declarations.
  1498. X    2: arrays of pointers to functions returning void.
  1499. X    4: operations between pointers to and addresses of void functions.
  1500. X
  1501. XEOM
  1502. Xcase "$voidflags" in
  1503. X'')
  1504. X    $cat >try.c <<'EOCP'
  1505. X#if TRY & 1
  1506. Xvoid main() {
  1507. X#else
  1508. Xmain() {
  1509. X#endif
  1510. X    extern void *moo();
  1511. X    void *(*goo)();
  1512. X#if TRY & 2
  1513. X    void (*foo[10])();
  1514. X#endif
  1515. X
  1516. X#if TRY & 4
  1517. X    if(*goo == moo) {
  1518. X        exit(0);
  1519. X    }
  1520. X#endif
  1521. X    exit(0);
  1522. X}
  1523. XEOCP
  1524. X    if cc -S -DTRY=7 try.c >.out 2>&1 ; then
  1525. X    voidflags=7
  1526. X    echo "It appears to support void fully."
  1527. X    if $contains warning .out >/dev/null 2>&1; then
  1528. X        echo "However, you might get some warnings that look like this:"
  1529. X        $cat .out
  1530. X    fi
  1531. X    else
  1532. X    echo "Hmm, you compiler has some difficulty with void.  Checking further..."
  1533. X    if cc -S -DTRY=1 try.c >/dev/null 2>&1 ; then
  1534. X        echo "It supports 1..."
  1535. X        if cc -S -DTRY=3 try.c >/dev/null 2>&1 ; then
  1536. X        voidflags=3
  1537. X        echo "And it supports 2 but not 4."
  1538. X        else
  1539. X        echo "It doesn't support 2..."
  1540. X        if cc -S -DTRY=3 try.c >/dev/null 2>&1 ; then
  1541. X            voidflags=5
  1542. X            echo "But it supports 4."
  1543. X        else
  1544. X            voidflags=1
  1545. X            echo "And it doesn't support 4."
  1546. X        fi
  1547. X        fi
  1548. X    else
  1549. X        echo "There is no support at all for void."
  1550. X        voidflags=0
  1551. X    fi
  1552. X    fi
  1553. Xesac
  1554. Xdflt="$voidflags";
  1555. Xrp="Your void support flags add up to what? [$dflt]"
  1556. X$echo $n "$rp $c"
  1557. X. myread
  1558. Xvoidflags="$ans"
  1559. X$rm -f try.* .out
  1560. X
  1561. !STUFFY!FUNK!
  1562. echo Extracting pat/patpost.SH
  1563. sed >pat/patpost.SH <<'!STUFFY!FUNK!' -e 's/X//'
  1564. Xcase $CONFIG in
  1565. X'')
  1566. X    if test ! -f config.sh; then
  1567. X    ln ../config.sh . || \
  1568. X    ln ../../config.sh . || \
  1569. X    ln ../../../config.sh . || \
  1570. X    (echo "Can't find config.sh."; exit 1)
  1571. X    echo "Using config.sh from above..."
  1572. X    fi
  1573. X    . ./config.sh
  1574. X    ;;
  1575. Xesac
  1576. X: This forces SH files to create target in same directory as SH file.
  1577. X: This is so that make depend always knows where to find SH derivatives.
  1578. Xcase "$0" in
  1579. X*/*) cd `expr X$0 : 'X\(.*\)/'` ;;
  1580. Xesac
  1581. Xecho "Extracting patpost (with variable substitutions)"
  1582. Xcat >patpost <<!GROK!THIS!
  1583. X#!/usr/bin/perl
  1584. X    eval "exec /usr/bin/perl -S \$0 \$*"
  1585. X        if \$running_under_some_shell;
  1586. X
  1587. X# $Header: patpost.SH,v 2.0 88/06/28 23:19:50 lwall Locked $
  1588. X#
  1589. X# $Log:    patpost.SH,v $
  1590. X# Revision 2.0  88/06/28  23:19:50  lwall
  1591. X# Baseline.
  1592. X# 
  1593. X
  1594. X\$inews='${inews-/usr/lib/news/inews}';
  1595. X\$orgname='$orgname';
  1596. X!GROK!THIS!
  1597. X
  1598. X: In the following dollars and backticks do not need the extra backslash.
  1599. Xcat >>patpost <<'!NO!SUBS!'
  1600. Xif ($inews eq 'inews') {
  1601. X    $inews = '/usr/lib/news/inews' if -f '/usr/lib/news/inews';
  1602. X}
  1603. X
  1604. Xchdir '..' if -f '../.package';
  1605. X
  1606. Xdo readpackage();
  1607. X
  1608. Xchop($orgname = `cat $orgname`) if $orgname =~ m|^/|;
  1609. X
  1610. Xif ($ARGV[0] eq '-r') {
  1611. X    shift; $repost = ' (REPOST)';
  1612. X}
  1613. X
  1614. Xwhile ($_ = shift) {
  1615. X    if (/^(patch)?[1-9][\d\-]*$/) {
  1616. X    s/^patch//;
  1617. X    push(@argv,$_);
  1618. X    }
  1619. X    else {
  1620. X    push(@newsgroups,$_);
  1621. X    }
  1622. X}
  1623. X$newsgroups = join(',',@newsgroups) unless $#newsgroups < 0;
  1624. Xdie "patpost newsgroups [patches]\n" unless $newsgroups;
  1625. X
  1626. X@ARGV = @argv;
  1627. Xopen(PL,"patchlevel.h") || die "Can't open patchlevel.h\n";
  1628. Xwhile (<PL>) {
  1629. X    $maxnum = $1 if /^#define\s+PATCHLEVEL\s+(\d+)/;
  1630. X}
  1631. Xclose PL;
  1632. Xdie "Malformed patchlevel.h file.\n" if $maxnum eq '';
  1633. X
  1634. Xif ($#ARGV < 0) {
  1635. X    $argv = $maxnum;
  1636. X    @ARGV = $argv;
  1637. X}
  1638. Xelse {
  1639. X    $argv = do rangeargs(@ARGV);
  1640. X    @ARGV = split(' ',$argv);
  1641. X}
  1642. X
  1643. X$argv =~ s/ $//;
  1644. X
  1645. Xif ($#ARGV < 0) {
  1646. X    die "No patches specified.\n";
  1647. X}
  1648. Xelsif ($#ARGV) {
  1649. X    print "Posting $package $baserev patches $argv to $newsgroups...\n";
  1650. X}
  1651. Xelse {
  1652. X    print "Posting $package $baserev patch $argv to $newsgroups...\n";
  1653. X}
  1654. X
  1655. Xchdir 'bugs' || die "Can't cd to bugs\n";
  1656. X
  1657. Xfork && exit;
  1658. X
  1659. Xuntil ($#ARGV < 0) {
  1660. X    $patnum = shift;
  1661. X    open(XHEAD,">.xhead$$") || die "Can't create temp file.\n";
  1662. X    print XHEAD
  1663. X"Newsgroups: $newsgroups
  1664. XSubject: $package $baserev patch #$patnum$repost
  1665. XSummary: This is an official patch for $package $baserev.  Please apply it.
  1666. XExpires: 
  1667. XReferences: 
  1668. XSender: 
  1669. XDistribution: 
  1670. XOrganization: $orgname
  1671. XKeywords: 
  1672. X
  1673. X";
  1674. X    open(PATCH,"patch$patnum") || die "Can't open patch$_\n";
  1675. X    while (<PATCH>) {
  1676. X    print XHEAD;
  1677. X    }
  1678. X    close XHEAD;
  1679. X    system "$inews -h <.xhead$$";
  1680. X}
  1681. Xunlink ".xhead$$";
  1682. X
  1683. X!NO!SUBS!
  1684. Xcat ../pl/package.pl >>patpost
  1685. Xcat ../pl/rangeargs.pl >>patpost
  1686. Xchmod +x patpost
  1687. X$eunicefix patpost
  1688. !STUFFY!FUNK!
  1689. echo Extracting mcon/makegloss
  1690. sed >mcon/makegloss <<'!STUFFY!FUNK!' -e 's/X//'
  1691. X#!/usr/bin/perl
  1692. Xopen(G,">Glossary") || die "Can't create Glossary.\n";
  1693. Xprint G
  1694. X'[This Glossary is automatically generated from the Unit files.  Do not edit
  1695. Xthis file or your changes will be lost.  Edit the appropriate Unit instead.]
  1696. X
  1697. XThis file contains a listing of all the C preprocessor symbols and shell
  1698. Xvariables whose value can be determined by a Configure script.  For the
  1699. Xmost part, any symbol in UPPERCASE is a C preprocessor symbol, and
  1700. Xwill be defined in config.h.  Symbols in lowercase are shell variables,
  1701. Xand are defined in config.sh.
  1702. X
  1703. XIf you write your shell scripts and C programs in terms of these symbols,
  1704. Xmetaconfig can automatically build you a Configure script that will determine
  1705. Xthe value of those symbols.  See the README file for a description of how
  1706. Xto use metaconfig.
  1707. X
  1708. XIn the following listing, the Unit: line indicates the name of the unit
  1709. Xwhere this symbol is defined, and the Wants: line indicates what other
  1710. Xsymbols must be determined in order to figure out the value of this one.
  1711. XIf there is an "(Also defines ...)" entry, it indicates what other symbols
  1712. Xare defined by the Unit other than the one corresponding to the unit name.
  1713. X
  1714. XVariable of the form d_* either have the value "define" or "/*undef", and
  1715. Xcontrol whether some C preprocessor symbol gets defined or not.
  1716. X
  1717. X';
  1718. X
  1719. X@ARGV = <U/*.U>;
  1720. Xwhile (<>) {
  1721. X    if (/^\?MAKE:.*:/) {
  1722. X    ($unit,$also,$wants) = /^\?MAKE:\s*(\w+)\s*(.*):\s*(.*)/;
  1723. X    $head = '';
  1724. X    $_ = "Unit: $unit";
  1725. X    $_ .= " (Also defines $also)" if $also;
  1726. X    while (length($_) > 70) {
  1727. X        $tmp = substr($_,0,70);
  1728. X        $tmp =~ s/^(.*) .*/$1/;
  1729. X        $head .= "\t$tmp\n";
  1730. X        $_ = ' ' . substr($_,length($tmp),9999);
  1731. X    }
  1732. X    $head .= "\t$_\n";
  1733. X    $_ = "Wants: $wants";
  1734. X    while (length($_) > 70) {
  1735. X        $tmp = substr($_,0,70);
  1736. X        $tmp =~ s/^(.*) .*/$1/;
  1737. X        $head .= "\t$tmp\n";
  1738. X        $_ = ' ' . substr($_,length($tmp),9999);
  1739. X    }
  1740. X    $head .= "\t$_\n\n";
  1741. X    }
  1742. X    if (s/^\?[CS]:(\w+):*[     ]*$/$1:/) {
  1743. X    $sym = $1;
  1744. X    push(@syms,$sym);
  1745. X    $def{$sym} .= $_ . $head;
  1746. X    }
  1747. X    elsif (s/^\?[CS]://) {
  1748. X    if (/^\.$/) {
  1749. X        $def{$sym} .= "\n";
  1750. X        $sym = '';
  1751. X    }
  1752. X    else {
  1753. X        s/^(\t|  ? ? ? ? ? ? ?)//;
  1754. X        $def{$sym} .= "\t" . $_;
  1755. X    }
  1756. X    }
  1757. X}
  1758. X
  1759. Xforeach $sym (sort @syms) {
  1760. X    print G $def{$sym};
  1761. X}
  1762. Xclose G;
  1763. !STUFFY!FUNK!
  1764. echo Extracting patchlevel.h
  1765. sed >patchlevel.h <<'!STUFFY!FUNK!' -e 's/X//'
  1766. X#define PATCHLEVEL 0
  1767. !STUFFY!FUNK!
  1768. echo ""
  1769. echo "End of kit 3 (of 7)"
  1770. cat /dev/null >kit3isdone
  1771. run=''
  1772. config=''
  1773. for iskit in 1 2 3 4 5 6 7; do
  1774.     if test -f kit${iskit}isdone; then
  1775.     run="$run $iskit"
  1776.     else
  1777.     todo="$todo $iskit"
  1778.     fi
  1779. done
  1780. case $todo in
  1781.     '')
  1782.     echo "You have run all your kits.  Please read README and then type Configure."
  1783.     chmod 755 Configure
  1784.     ;;
  1785.     *)  echo "You have run$run."
  1786.     echo "You still need to run$todo."
  1787.     ;;
  1788. esac
  1789. : Someone might mail this, so...
  1790. exit
  1791.  
  1792.