home *** CD-ROM | disk | FTP | other *** search
/ Usenet 1994 October / usenetsourcesnewsgroupsinfomagicoctober1994disk2.iso / unix / volume16 / dist2 / part04 < prev    next >
Text File  |  1988-10-13  |  50KB  |  1,916 lines
  1. Subject:  v16i037:  Larry Wall's Configure generator, etc., Part04/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 37
  8. Archive-name: dist2/part04
  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 4 (of 7).  If kit 4 is complete, the line"
  16. echo '"'"End of kit 4 (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/U/d_news.U
  21. sed >mcon/U/d_news.U <<'!STUFFY!FUNK!' -e 's/X//'
  22. X?RCS:$Header: d_news.U,v 2.0 88/06/28 23:15:12 lwall Locked $
  23. X?RCS: 
  24. X?RCS: Revision 1.0  87/05/22  12:30:34  siegel
  25. X?RCS: This unit looks to see what window system you are using
  26. X?RCS: Initial revision
  27. X?RCS: 
  28. X?MAKE:d_news d_news0 d_newshome d_textcan: contains echo n Myread c
  29. X?MAKE:    -pick add $@ %*
  30. X?INIT:d_newshome="../../NeWS"
  31. X?S:d_news:
  32. X?S:    Set if running NeWS 1.1
  33. X?S:.
  34. X?S:d_news0:
  35. X?S:    Set if running NeWS 1.0
  36. X?S:.
  37. X?S:d_newshome:
  38. X?S:    Path to the top directory of the NeWS structure.
  39. X?S:.
  40. X?S:d_textcan:
  41. X?S:    Path to where the textcan.ps stuff is...
  42. X?S:.
  43. X?C:NEWS1_1:
  44. X?C:    This symbol defined if running NeWS 1.1.
  45. X?C:.
  46. X?C:NEWS1_0:
  47. X?C:    This symbol defined if running NeWS 1.0.
  48. X?C:.
  49. X?C:TEXTCAN:
  50. X?C:    Tells path to where the textcan.ps stuff is...
  51. X?C:.
  52. X?H:?%1:#$d_news            NEWS1_1     /**/
  53. X?H:?%1:#$d_news0        NEWS1_0     /**/
  54. X?H:?%1:#define TEXTCAN    $d_textcan /**/
  55. X?H:?%1:
  56. X: Check to see what version of NeWS is being run?
  57. Xcd ..
  58. Xecho " "
  59. X$echo "Now for the interesting stuff... Lets see what kind of NeWS"
  60. X$echo "they grow round here...."
  61. Xecho " "
  62. X
  63. Xdflt='y'
  64. X
  65. Xans='foobar'
  66. X
  67. Xif $test -d $d_newshome; then
  68. Xd_newshome=`(cd $d_newshome ; /bin/pwd)`
  69. X$echo "Ah...found myself a NeWS in $d_newshome..."
  70. X$echo $n "Is this the NeWS you want your children to grow up with? [$dflt] $c"
  71. Xrp="use $d_newshome? [$dflt] "
  72. X. UU/myread
  73. Xfi
  74. X
  75. Xwhile $test $ans = "n" -o ! -d $d_newshome; do
  76. X    ans='y'
  77. X    $echo $n "Path to NeWS you want [$d_newshome] $c"
  78. X    rp="NeWS to use [$d_newshome] "
  79. X    . UU/myread
  80. X    d_newshome=$ans
  81. X    if $test ! -d $d_newshome; then
  82. X    $echo "No directory with the name of $d_newshome.."
  83. X    fi
  84. X    ans='y'
  85. Xdone
  86. X
  87. Xecho " "
  88. Xif $test ! -d $d_newshome/lib; then
  89. X    $echo "ARG!  No lib directory in $d_newshome!!!"
  90. X    $rm -f kit*isdone
  91. X    $rm -rf UU
  92. X    set -t; $echo " sorry... no NeWS is bad news..."
  93. Xfi
  94. X
  95. Xif $test -r $d_newshome/lib/NeWS/colors.ps ; then
  96. X    $echo 'Ahh... your running NeWS 1.1!  Boy... that makes stuff'
  97. X    $echo 'easy....'
  98. X    echo " "
  99. X    d_news="$define" 
  100. X    d_news0="$undef"
  101. X    if $test -r $d_newshome/lib/NeWS/textcan.ps; then
  102. X    d_textcan=$d_newshome/lib/NeWS
  103. X    $echo "The textcan.ps stuff seems to be in :"
  104. X    $echo $n "   "
  105. X    $echo $d_textcan
  106. X    else
  107. X    d_textcan=$d_newshome/clientsrc/client/nterm
  108. X    if $test ! -r $d_textcan/textcan.ps; then
  109. X            d_news="$undef"
  110. X            d_news0="$define"
  111. X        $echo 'Hmm... must have been fooled... gotta be NeWS 1.1 beta!'
  112. X    else
  113. X        $echo "The textcan.ps stuff seems to be in :"
  114. X        $echo $n "   "
  115. X        $echo $d_textcan
  116. X    fi
  117. X    fi
  118. Xelse
  119. X    $echo 'snif... snif... I smell the dilapidated smell of NeWS 1.0..'
  120. X    $echo 'Some things will not work under NeWS 1.0...'
  121. X    echo " "
  122. X    d_news="$undef"
  123. X    d_news0="$define"
  124. Xfi
  125. Xcd UU
  126. X
  127. !STUFFY!FUNK!
  128. echo Extracting pat/mailagent
  129. sed >pat/mailagent <<'!STUFFY!FUNK!' -e 's/X//'
  130. X#!/usr/bin/perl
  131. X
  132. X# You'll need to set up a .forward file that feeds your mail to this script.
  133. X# Mine looks like this:
  134. X#   "| /a/lwall/bin/mailagent /a/lwall lwall Larry >>/usr/spool/mail/lwall 2>&1"
  135. X# Actually, this doesn't work real good, since I don't lock the mail file.
  136. X# Someday I'll fix this.  For now, put something like
  137. X#   lwall, "| /a/lwall/bin/mailagent /a/lwall lwall Larry >>/a/lwall/.bak 2>&1"
  138. X
  139. X($HOME, $USER, $NAME) = @ARGV;
  140. X
  141. X$ENV{'PATH'}="$1:/bin:/usr/bin:/usr/ucb";
  142. X$ENV{'IFS'} = '' if $ENV{'IFS'};
  143. X
  144. X$hostname = `hostname`;
  145. X
  146. Xexec '/bin/cat' unless $NAME;
  147. Xexec '/bin/cat' unless chdir $HOME;
  148. Xexec '/bin/cat' unless $hostname =~ /vax/;
  149. X
  150. X$HOME=`pwd`;
  151. Xchop($HOME);
  152. X$ENV{'HOME'} = $HOME;
  153. X$ENV{'USER'} = $USER;
  154. X$ENV{'NAME'} = $NAME;
  155. X
  156. Xumask(022);
  157. X
  158. Xif (open(commands,".commands")) {
  159. X    while (<commands>) {
  160. X    chop;
  161. X    $command{$_} = 1;
  162. X    }
  163. X    close(commands);
  164. X}
  165. X
  166. X$dest = $USER;
  167. X$cmd = "set -x\n";
  168. Xline: while (<stdin>) {
  169. X    $all .= $_;
  170. X    s/^From ([^     ]*).*$/$1/ && ($dest = $1);
  171. X    /@RR/ && ($ack = 1);
  172. X    if (1 .. /^$/) {
  173. X    if (/^Apparently-To:.*admin/) { $admin = 1; }
  174. X    if (/^To:.*admin/) { $admin = 1; }
  175. X    if (/^Cc:.*admin/) { $admin = 1; }
  176. X    }
  177. X    if (/^Subject:[ \t]*(.*)/) { $subj = $1; }
  178. X    if (/^Title:[ \t]*(.*)/) { $subj = $1; }
  179. X    if (/^Subject:[     ]*[Cc]ommand[     ]*$/ .. 99) {
  180. X    s/^    @SH/@SH/;
  181. X    if (/^@SH/) {
  182. X        s/\\!/!/g;
  183. X        if (/[=$^&*([{}`\\|;>?]/) {
  184. X        s/^@SH/bad cmd:/;
  185. X        $bad .= $_;
  186. X        next line;
  187. X        }
  188. X        s/ PATH/ $dest/;
  189. X        s/SH mailpath/SH mailpatch/;
  190. X        s/@SH[     ]*//;
  191. X        if (/^([^ \t]+)[ \t]/) {
  192. X        $first = $1;
  193. X        }
  194. X        else {
  195. X        $first = $_;
  196. X        chop($first);
  197. X        }
  198. X        if (!$command{$first}) {
  199. X        s/^/unk cmd: /;
  200. X        $bad .= $_;
  201. X        next line;
  202. X        }
  203. X        $cmd .= $_;
  204. X    }
  205. X    }
  206. X}
  207. X
  208. Xif ($dest ne $USER) {
  209. X
  210. X    if ($cmd ne "set -x\n") {
  211. X    open(cmd,">/tmp/mess.cmd$$");
  212. X    print cmd $cmd;
  213. X    close cmd;
  214. X    $tmp = `sh -x /tmp/mess.cmd$$ 2>&1`;
  215. X    if ($?) {
  216. X        open(mailer,"|/bin/mail $dest $USER");
  217. X        print mailer
  218. X"Subject: the following returned a non-zero status
  219. XTo: $dest
  220. X
  221. X$tmp
  222. X
  223. Xmailagent speaking for $USER
  224. X";
  225. X        close mailer;
  226. X    }
  227. X    unlink "/tmp/mess.cmd$$";
  228. X    }
  229. X
  230. X    if ($ack) {
  231. X    open(mailer,"|/bin/mail $dest $USER");
  232. X    print mailer
  233. X"Subject: $subj
  234. XTo: $dest
  235. X
  236. XHere is the receipt you requested.
  237. X
  238. Xmailagent speaking for $USER
  239. X";
  240. X    close mailer;
  241. X    }
  242. X
  243. X    if ($bad) {
  244. X    open(mailer,"|/bin/mail $dest $USER");
  245. X    print mailer
  246. X"Subject: the following commands were not executed
  247. XTo: $dest
  248. X
  249. X$bad
  250. X
  251. XIf $NAME can figure out what you wanted he may do it anyway.
  252. X
  253. Xmailagent speaking for $USER
  254. X";
  255. X    close mailer;
  256. X    }
  257. X}
  258. X
  259. Xif ($admin) {
  260. X    open(out,">>.junk");
  261. X    select(out);
  262. X}
  263. X
  264. Xprint $all,"\n\n";
  265. X
  266. !STUFFY!FUNK!
  267. echo Extracting mcon/U/registers.U
  268. sed >mcon/U/registers.U <<'!STUFFY!FUNK!' -e 's/X//'
  269. X?RCS:$Header: registers.U,v 2.0 88/06/28 23:18:11 lwall Locked $
  270. X?RCS: $Log:    registers.U,v $
  271. X?RCS: Revision 2.0  88/06/28  23:18:11  lwall
  272. X?RCS: Baseline.
  273. X?RCS: 
  274. X?MAKE:registers reg1 reg2 reg3 reg4 reg5 reg6 reg7 reg8 reg9 reg10 reg11 reg12 reg13 reg14 reg15 reg16: Cppsym echo n c Myread Oldconfig
  275. X?MAKE:    -pick add $@ %*
  276. X?S:registers:
  277. X?S:    This variable contains the number of register declarations paid
  278. X?S:    attention to by the C compiler.
  279. X?S:.
  280. X?S:reg1:
  281. X?S:    This variable, along with reg2, reg3, etc. contains the eventual
  282. X?S:    value for the symbols Reg1, Reg2, Reg3, etc.  It has either the
  283. X?S:    value "register" or is null.
  284. X?S:.
  285. X?C:Reg1:
  286. X?C:    This symbol, along with Reg2, Reg3, etc. is either the word "register"
  287. X?C:    or null, depending on whether the C compiler pays attention to this
  288. X?C:    many register declarations.  The intent is that you don't have to
  289. X?C:    order your register declarations in the order of importance, so you
  290. X?C:    can freely declare register variables in sub-blocks of code and as
  291. X?C:    function parameters.  Do not use Reg<n> more than once per routine.
  292. X?C:.
  293. X?H:?%1:
  294. X?H:?%1:#define Reg1 $reg1        /**/
  295. X?H:?%1:#define Reg2 $reg2        /**/
  296. X?H:?%1:#define Reg3 $reg3        /**/
  297. X?H:?%1:#define Reg4 $reg4        /**/
  298. X?H:?%1:#define Reg5 $reg5        /**/
  299. X?H:?%1:#define Reg6 $reg6        /**/
  300. X?H:?%1:#define Reg7 $reg7        /**/
  301. X?H:?%1:#define Reg8 $reg8        /**/
  302. X?H:?%1:#define Reg9 $reg9        /**/
  303. X?H:?%1:#define Reg10 $reg10        /**/
  304. X?H:?%1:#define Reg11 $reg11        /**/
  305. X?H:?%1:#define Reg12 $reg12        /**/
  306. X?H:?%1:#define Reg13 $reg13        /**/
  307. X?H:?%1:#define Reg14 $reg14        /**/
  308. X?H:?%1:#define Reg15 $reg15        /**/
  309. X?H:?%1:#define Reg16 $reg16        /**/
  310. X?H:?%1:
  311. X: see how many register declarations we want to use
  312. Xcase "$registers" in
  313. X'')
  314. X    if Cppsym vax; then
  315. X    dflt=6
  316. X    elif Cppsym sun mc68000; then
  317. X    dflt=10
  318. X    elif Cppsym pyr; then
  319. X    dflt=14
  320. X    elif Cppsym ns32000 ns16000; then
  321. X    dflt=5
  322. X    elif Cppsym $smallmach; then
  323. X    dflt=3
  324. X    else
  325. X    : if you have any other numbers for me, send them in
  326. X    dflt=6
  327. X    fi
  328. X    ;;
  329. X*)  dflt=$registers ;;
  330. Xesac
  331. Xcat <<EOM
  332. X 
  333. XDifferent C compilers on different machines pay attention to different
  334. Xnumbers of register declarations.  About how many register declarations in
  335. XEOM
  336. X$echo $n "each routine does your C compiler pay attention to? (OK to guess) [$dflt] $c"
  337. Xrp="# register declarations used? [$dflt]"
  338. X. myread
  339. Xregisters=$ans
  340. Xreg1=''
  341. Xawk "BEGIN { for (i=1; i<=16; i++) printf \"reg%d=''\n\", i}" </dev/null >.foo
  342. X. .foo
  343. Xawk "BEGIN { for (i=1; i<=$registers; i++) printf \"reg%d=register\n\", i}" \
  344. X    </dev/null >.foo
  345. X. .foo
  346. Xrm -f .foo
  347. X
  348. !STUFFY!FUNK!
  349. echo Extracting pat/pat.SH
  350. sed >pat/pat.SH <<'!STUFFY!FUNK!' -e 's/X//'
  351. Xcase $CONFIG in
  352. X'')
  353. X    if test ! -f config.sh; then
  354. X    ln ../config.sh . || \
  355. X    ln ../../config.sh . || \
  356. X    ln ../../../config.sh . || \
  357. X    (echo "Can't find config.sh."; exit 1)
  358. X    echo "Using config.sh from above..."
  359. X    fi
  360. X    . ./config.sh
  361. X    ;;
  362. Xesac
  363. X: This forces SH files to create target in same directory as SH file.
  364. X: This is so that make depend always knows where to find SH derivatives.
  365. Xcase "$0" in
  366. X*/*) cd `expr X$0 : 'X\(.*\)/'` ;;
  367. Xesac
  368. Xecho "Extracting pat (with variable substitutions)"
  369. Xcat >pat <<!GROK!THIS!
  370. X#!/usr/bin/perl
  371. X    eval "exec /usr/bin/perl -S \$0 \$*"
  372. X        if \$running_under_some_shell;
  373. X
  374. X# $Header: pat.SH,v 2.0 88/06/28 23:19:17 lwall Locked $
  375. X#
  376. X# $Log:    pat.SH,v $
  377. X# Revision 2.0  88/06/28  23:19:17  lwall
  378. X# Baseline.
  379. X# 
  380. X# 
  381. X
  382. X!GROK!THIS!
  383. X
  384. X: In the following dollars and backticks do not need the extra backslash.
  385. Xcat >>pat <<'!NO!SUBS!'
  386. X
  387. Xdie "pat [files]\n" unless $#ARGV >= 0;
  388. X
  389. Xdo readpackage();
  390. X
  391. Xif ($ARGV[0] eq '-n') {
  392. X    open(FIND, "find . -type f -newer patchlevel.h -print | sort |") ||
  393. X    die "Can't run find.\n";
  394. X    open(NEWER,">.newer") || die "Can't create .newer.\n";
  395. X    open(MANI,"MANIFEST.new");
  396. X    while (<MANI>) {
  397. X        ($name,$foo) = split;
  398. X        $mani{$name} = 1;
  399. X    }
  400. X    close MANI;
  401. X    while (<FIND>) {
  402. X    s|^\./||;
  403. X    chop;
  404. X    if (!$mani{$_}) {
  405. X        next if m|^MANIFEST.new$|;
  406. X        next if m|^Wanted$|;
  407. X        next if m|^bugs|;
  408. X        next if m|^UU/|;
  409. X        next if m|^RCS/|;
  410. X        next if m|/RCS/|;
  411. X        next if m|^config.sh$|;
  412. X        next if m|/config.sh$|;
  413. X        next if m|^make.out$|;
  414. X        next if m|/make.out$|;
  415. X        next if m|^all$|;
  416. X        next if m|/all$|;
  417. X        next if m|^core$|;
  418. X        next if m|/core$|;
  419. X        next if m|^foo|;
  420. X        next if m|/foo|;
  421. X        next if m|^blurfl|;
  422. X        next if m|/blurfl|;
  423. X        next if m|^\.|;
  424. X        next if m|/\.|;
  425. X        next if m|\.o$|;
  426. X        next if m|\.old$|;
  427. X        next if m|\.orig$|;
  428. X        next if $mani{$_ . ".SH"};
  429. X        next if m|(.*)\.c$| && $mani{$1 . ".y"};
  430. X        next if -x $_;
  431. X    }
  432. X    print NEWER $_,"\n";
  433. X    }
  434. X    close FIND;
  435. X    close NEWER;
  436. X    print "Please remove unwanted files...\n";
  437. X    sleep(2);
  438. X    system '${EDITOR-vi} .newer';
  439. X    @ARGV = split(' ',`cat .newer`);
  440. X}
  441. Xelsif ($ARGV[0] eq '-a') {
  442. X    open(MANI,"MANIFEST.new") || die "No MANIFEST.new found.\n";
  443. X    @ARGV = ();
  444. X    while (<MANI>) {
  445. X    chop;
  446. X    ($_) = split(' ');
  447. X    push(@ARGV,$_);
  448. X    }
  449. X    close MANI;
  450. X}
  451. X
  452. Xunlink <bugs/*.[1-9] bugs/*.[1-9][0-9]>;
  453. X
  454. Xsystem 'perl', '-S', 'patcil', '-p', @ARGV;
  455. Xsystem 'perl', '-S', 'patdiff', @ARGV;
  456. Xsystem 'perl', '-S', 'patmake';
  457. X
  458. X!NO!SUBS!
  459. Xcat ../pl/package.pl >>pat
  460. Xchmod +x pat
  461. X$eunicefix pat
  462. !STUFFY!FUNK!
  463. echo Extracting pat/patsend.SH
  464. sed >pat/patsend.SH <<'!STUFFY!FUNK!' -e 's/X//'
  465. Xcase $CONFIG in
  466. X'')
  467. X    if test ! -f config.sh; then
  468. X    ln ../config.sh . || \
  469. X    ln ../../config.sh . || \
  470. X    ln ../../../config.sh . || \
  471. X    (echo "Can't find config.sh."; exit 1)
  472. X    echo "Using config.sh from above..."
  473. X    fi
  474. X    . ./config.sh
  475. X    ;;
  476. Xesac
  477. X: This forces SH files to create target in same directory as SH file.
  478. X: This is so that make depend always knows where to find SH derivatives.
  479. Xcase "$0" in
  480. X*/*) cd `expr X$0 : 'X\(.*\)/'` ;;
  481. Xesac
  482. Xecho "Extracting patsend (with variable substitutions)"
  483. Xcat >patsend <<!GROK!THIS!
  484. X#!/usr/bin/perl
  485. X        eval "exec /usr/bin/perl -S \$0 \$*"
  486. X                if \$running_under_some_shell;
  487. X
  488. X# $Header: patsend.SH,v 2.0 88/06/28 23:19:54 lwall Locked $
  489. X#
  490. X# $Log:    patsend.SH,v $
  491. X# Revision 2.0  88/06/28  23:19:54  lwall
  492. X# Baseline.
  493. X# 
  494. X
  495. X\$orgname='$orgname';
  496. X!GROK!THIS!
  497. X
  498. X: In the following dollars and backticks do not need the extra backslash.
  499. Xcat >>patsend <<'!NO!SUBS!'
  500. X
  501. Xchop($orgname = `cat $orgname`) if $orgname =~ m|^/|;
  502. X
  503. Xchdir '..' if -f '../.package';
  504. X
  505. Xdo readpackage();
  506. X
  507. Xwhile ($_ = shift) {
  508. X    if (/^(patch)?[1-9][\d,-]*$/) {
  509. X    s/^patch//;
  510. X    push(@argv,$_);
  511. X    }
  512. X    else {
  513. X    push(@dest,$_);
  514. X    }
  515. X}
  516. X$dest = join(' ',@dest);
  517. Xdie "patsend dest [patches]\n" unless $dest;
  518. X
  519. X@ARGV = @argv;
  520. X
  521. Xopen(PL,"patchlevel.h") || die "Can't open patchlevel.h\n";
  522. Xwhile (<PL>) {
  523. X    $maxnum = $1 if /^#define\s+PATCHLEVEL\s+(\d+)/;
  524. X}
  525. Xclose PL;
  526. Xdie "Malformed patchlevel.h file.\n" if $maxnum eq '';
  527. X
  528. Xif ($#ARGV < 0) {
  529. X    $argv = $maxnum;
  530. X    @ARGV = $argv;
  531. X}
  532. Xelse {
  533. X    $argv = do rangeargs(@ARGV);
  534. X    @ARGV = split(' ',$argv);
  535. X}
  536. X
  537. X$argv =~ s/ $//;
  538. X
  539. Xif ($#ARGV < 0) {
  540. X    die "No patches specified.\n";
  541. X}
  542. Xelsif ($#ARGV) {
  543. X    print "Sending $package $baserev patches $argv to $dest...\n";
  544. X}
  545. Xelse {
  546. X    print "Sending $package $baserev patch $argv to $dest...\n";
  547. X}
  548. X
  549. Xchdir 'bugs' || die "Can't cd to bugs\n";
  550. X
  551. Xfork && exit;
  552. X
  553. Xuntil ($#ARGV < 0) {
  554. X    $patnum = shift;
  555. X    open(XHEAD,">.xhead$$") || die "Can't create temp file.\n";
  556. X    print XHEAD
  557. X"Subject: $package $baserev patch #$patnum
  558. XOrganization: $orgname
  559. X
  560. X[The latest patch for $package version $baserev is #$maxnum.]
  561. X
  562. X";
  563. X    open(PATCH,"patch$patnum") || die "Can't open patch$_\n";
  564. X    while (<PATCH>) {
  565. X        print XHEAD;
  566. X    }
  567. X    close XHEAD;
  568. X    system "/bin/mail $dest <.xhead$$";
  569. X}
  570. Xunlink ".xhead$$";
  571. X
  572. X!NO!SUBS!
  573. Xcat ../pl/package.pl >>patsend
  574. Xcat ../pl/rangeargs.pl >>patsend
  575. Xchmod +x patsend
  576. X$eunicefix patsend
  577. !STUFFY!FUNK!
  578. echo Extracting mcon/U/d_havetlib.U
  579. sed >mcon/U/d_havetlib.U <<'!STUFFY!FUNK!' -e 's/X//'
  580. X?RCS:$Header: d_havetlib.U,v 2.0 88/06/28 23:14:50 lwall Locked $
  581. X?RCS: $Log:    d_havetlib.U,v $
  582. X?RCS: Revision 2.0  88/06/28  23:14:50  lwall
  583. X?RCS: Baseline.
  584. X?RCS: 
  585. X?MAKE:d_havetlib termlib: echo contains n c Myread Loc Filexp Oldconfig
  586. X?MAKE:    -pick add $@ %*
  587. X?S:d_havetlib:
  588. X?S:    This variable conditionally defines the HAVETERMLIB symbol, which
  589. X?S:    indicates to the C program that termlib-style routines are available.
  590. X?S:.
  591. X?S:termlib:
  592. X?S:    This variable contains the argument to pass to the loader to get
  593. X?S:    termlib-style routines.  It is up to the Makefile.SH to make sure
  594. X?S:    the value gets to the right command.  Note that on many systems the
  595. X?S:    termlib routines are emulated by the curses or terminfo library.
  596. X?S:.
  597. X?C:HAVETERMLIB:
  598. X?C:    This symbol, when defined, indicates that termlib-style routines
  599. X?C:    are available.  There is nothing to include.
  600. X?C:.
  601. X?H:?%1:#$d_havetlib    HAVETERMLIB    /**/
  602. X?H:?%1:
  603. X: where do we get termlib routines from
  604. Xecho " "
  605. Xans=`loc libcurses.a x $libpth`
  606. Xcase "$ans" in
  607. X/*)
  608. X    ar t $ans >grimble
  609. X    if $contains tputs.o grimble >/dev/null 2>&1; then
  610. X    termlib='-lcurses'
  611. X    d_havetlib="$define"
  612. X    echo "Terminfo library found."
  613. X    else
  614. X    ans=x
  615. X    fi
  616. X    rm -f grimble
  617. X    ;;
  618. Xesac
  619. Xcase "$ans" in
  620. Xx)
  621. X    ans=`loc libtermlib.a x $libpth`
  622. X    case "$ans" in
  623. X    /usr/lib*|/lib*)
  624. X    termlib='-ltermlib'
  625. X    d_havetlib="$define"
  626. X    echo "Termlib library found."
  627. X    ;;
  628. X    /*)
  629. X    termlib="$ans"
  630. X    d_havetlib="$define"
  631. X    echo "Termlib library found."
  632. X    ;;
  633. X    *)
  634. X    ans=`loc libtermcap.a x $libpth`
  635. X    case "$ans" in
  636. X    /usr/lib*|/lib*)
  637. X        termlib='-ltermcap'
  638. X        d_havetlib="$define"
  639. X        echo "Termcap library found."
  640. X        ;;
  641. X    /*)
  642. X        termlib="$ans"
  643. X        d_havetlib="$define"
  644. X        echo "Termcap library found."
  645. X        ;;
  646. X    *)
  647. X        case "$termlib" in
  648. X        '')
  649. X        dflt=y
  650. X        rp="Your system appears to NOT have termlib-style routines.  Is this true? [$dflt]"
  651. X        $echo $n "$rp $c"
  652. X        . myread
  653. X        case "$ans" in
  654. X            n*|f*) d_havetlib="$define"
  655. X              echo "Then where are the termlib-style routines kept (specify either -llibname"
  656. X              $echo $n " or full pathname (~name ok))? $c"
  657. X              rp='Specify termlib:'
  658. X              . myread
  659. X              termlib=`filexp $ans`
  660. X              ;;
  661. X            *)    d_havetlib="$undef"
  662. X              termlib=''
  663. X              echo "You will have to play around with term.c then."
  664. X              ;;
  665. X        esac
  666. X        echo " "
  667. X        ;;
  668. X        *)  echo "You said termlib was $termlib before."
  669. X        ;;
  670. X        esac
  671. X        ;;
  672. X    esac
  673. X    ;;
  674. X    esac
  675. X    ;;
  676. Xesac
  677. X
  678. !STUFFY!FUNK!
  679. echo Extracting mcon/U/Instruct.U
  680. sed >mcon/U/Instruct.U <<'!STUFFY!FUNK!' -e 's/X//'
  681. X?RCS:$Header: Instruct.U,v 2.0 88/06/28 23:13:21 lwall Locked $
  682. X?X: 
  683. X?X: This unit spew out the directions that we want everyone to read.  I try to
  684. X?X: keep the first "pagefull" much less than a page since they don't know it
  685. X?X: isn't going to go shooting off the top of the screen, and we don't want
  686. X?X: to panic them yet.
  687. X?X: 
  688. X?RCS: $Log:    Instruct.U,v $
  689. X?RCS: Revision 2.0  88/06/28  23:13:21  lwall
  690. X?RCS: Baseline.
  691. X?RCS: 
  692. X?MAKE:Instruct: package n c Myread
  693. X?MAKE:    -pick add $@ %*
  694. X: general instructions
  695. Xcat <<EOH
  696. X 
  697. XThis installation shell script will examine your system and ask you questions
  698. Xto determine how the $package package should be installed.  If you get stuck
  699. Xon a question, you may use a ! shell escape to start a subshell or execute
  700. Xa command.  Many of the questions will have default answers in square
  701. Xbrackets--typing carriage return will give you the default.
  702. X
  703. XOn some of the questions which ask for file or directory names you are
  704. Xallowed to use the ~name construct to specify the login directory belonging
  705. Xto "name", even if you don't have a shell which knows about that.  Questions
  706. Xwhere this is allowed will be marked "(~name ok)".
  707. X
  708. XEOH
  709. Xrp="[Type carriage return to continue]"
  710. X?X: echo not set yet so use builtin, not $echo
  711. Xecho $n "$rp $c"
  712. X. myread
  713. Xcat <<EOH
  714. X
  715. XMuch effort has been expended to ensure that this shell script will run
  716. Xon any Unix system.  If despite that it blows up on you, your best bet is
  717. Xto edit Configure and run it again. Also, let me (lwall@jpl-devvax.jpl.nasa.gov)
  718. Xknow how I blew it.  If you can't run Configure for some reason, you'll have
  719. Xto generate a config.sh file by hand.
  720. X
  721. XThis installation script affects things in two ways: 1) it may do direct
  722. Xvariable substitutions on some of the files included in this kit, and
  723. X2) it builds a config.h file for inclusion in C programs.  You may edit
  724. Xany of these files as the need arises after running this script.
  725. X
  726. XIf you make a mistake on a question, there is no easy way to back up to it
  727. Xcurrently.  The easiest thing to do is to edit config.sh and rerun all the
  728. XSH files.  Configure will offer to let you do this before it runs the SH files.
  729. X
  730. XEOH
  731. Xrp="[Type carriage return to continue]"
  732. Xecho $n "$rp $c"
  733. X. myread
  734. X
  735. !STUFFY!FUNK!
  736. echo Extracting pat/mailpatch
  737. sed >pat/mailpatch <<'!STUFFY!FUNK!' -e 's/X//'
  738. X#!/bin/sh
  739. X
  740. X# You'll have to customize this to know about your own packages.  Also, copy
  741. X# rangeargs to your private bin directory, or change invocations below.
  742. X
  743. Xcmd=`date`"  $@ "
  744. Xcd $HOME
  745. X
  746. Xdest=$1
  747. Xshift
  748. Xsystem=$1
  749. Xshift
  750. Xversion=$1
  751. Xshift
  752. Xcase "$system" in
  753. Xdist)
  754. X    cd /u/sfoc/lwall/src/dist/bugs
  755. X    maxnum=`/bin/sed -n -e 's/^[^0-9]*\([1-9][0-9]*\).*$/\1/p' ../patchlevel.h`
  756. X    curversion='1.0'
  757. X    ;;
  758. Xperl)
  759. X    cd /usr/local/src/perl/bugs
  760. X    maxnum=`/bin/sed -n -e 's/^[^0-9]*\([1-9][0-9]*\).*$/\1/p' ../patchlevel.h`
  761. X    curversion='2.0'
  762. X    ;;
  763. Xrn)
  764. X    cd /u/sfoc/lwall/src/rn/bugs
  765. X    maxnum=`/bin/sed -n -e 's/^[^0-9]*\([1-9][0-9]*\).*$/\1/p' ../patchlevel`
  766. X    curversion='4.3'
  767. X    ;;
  768. Xpatch)
  769. X    cd /u/sfoc/lwall/src/patch/bugs
  770. X    maxnum=`/bin/sed -n -e 's/^[^0-9]*\([1-9][0-9]*\).*$/\1/p' ../patchlevel.h`
  771. X    curversion='2.0'
  772. X    ;;
  773. Xwarp)
  774. X    cd /u/sfoc/lwall/src/warp/bugs
  775. X    maxnum=`/bin/sed -n -e 's/^[^0-9]*\([1-9][0-9]*\).*$/\1/p' ../patchlevel.h`
  776. X    curversion='7.0'
  777. X    ;;
  778. Xcdiff)
  779. X    cd /u/sfoc/lwall/src/cdiff/bugs
  780. X    maxnum=`/bin/sed -n -e 's/^[^0-9]*\([1-9][0-9]*\).*$/\1/p' ../patchlevel.h`
  781. X    curversion='1.1'
  782. X    ;;
  783. X*)
  784. X    /bin/mail $dest $USER <<EOM
  785. XI don't know how to send patches for a program called $system.  Sorry.
  786. X
  787. XIf $NAME can figure out what you meant you'll get the patches anyway.
  788. X
  789. Xmailpatch speaking for $USER
  790. XEOM
  791. X    echo $cmd FAILED >> $HOME/.patchlog
  792. X    exit 1
  793. X    ;;
  794. Xesac
  795. X
  796. Xcase "$version" in
  797. X$curversion) ;;
  798. X*)
  799. X    /bin/mail $dest $USER <<EOM
  800. XI don't know how to send patches for version $version of $system.  Sorry.
  801. X
  802. XIf $NAME can figure out what you meant you'll get the patches anyway.
  803. X
  804. Xmailpatch speaking for $USER
  805. XEOM
  806. X    echo $cmd FAILED >> $HOME/.patchlog
  807. X    exit 1
  808. X    ;;
  809. Xesac
  810. X
  811. Xargs="$*"
  812. X
  813. Xset `$HOME/bin/rangeargs -m "$maxnum" $*`
  814. X
  815. Xcase $# in
  816. X0) set `$HOME/bin/rangeargs -m 100 $args`
  817. X    set $1
  818. X    ;;
  819. Xesac
  820. X
  821. Xfor num do
  822. X    /bin/cat <<EOM >/tmp/mp$$
  823. XSubject: $system version $version patch #$num
  824. X
  825. X[The latest patch for $system version $version is #$maxnum.]
  826. X
  827. Xmailpatch speaking for $USER
  828. X
  829. XEOM
  830. X    if test -f patch$num; then
  831. X    /bin/cat <patch$num >>/tmp/mp$$
  832. X    fi
  833. X    /bin/mail $dest </tmp/mp$$
  834. Xdone
  835. Xrm -f /tmp/mp$$
  836. Xecho $cmd OK >> $HOME/.patchlog
  837. !STUFFY!FUNK!
  838. echo Extracting kit/makedist.man
  839. sed >kit/makedist.man <<'!STUFFY!FUNK!' -e 's/X//'
  840. X.rn '' }`
  841. X''' $Header: makedist.man,v 2.0 88/06/28 23:12:21 lwall Locked $
  842. X''' 
  843. X''' $Log:    makedist.man,v $
  844. X''' Revision 2.0  88/06/28  23:12:21  lwall
  845. X''' Baseline.
  846. X''' 
  847. X''' 
  848. X.de Sh
  849. X.br
  850. X.ne 5
  851. X.PP
  852. X\fB\\$1\fR
  853. X.PP
  854. X..
  855. X.de Sp
  856. X.if t .sp .5v
  857. X.if n .sp
  858. X..
  859. X'''
  860. X'''     Set up \*(-- to give an unbreakable dash;
  861. X'''     string Tr holds user defined translation string.
  862. X'''     Bell System Logo is used as a dummy character.
  863. X'''
  864. X.ie n \{\
  865. X.tr \(*W-\*(Tr
  866. X.ds -- \(*W-
  867. X.if (\n(.H=4u)&(1m=24u) .ds -- \(*W\h'-12u'\(*W\h'-12u'-\" diablo 10 pitch
  868. X.if (\n(.H=4u)&(1m=20u) .ds -- \(*W\h'-12u'\(*W\h'-8u'-\" diablo 12 pitch
  869. X.ds L" ""
  870. X.ds R" ""
  871. X.ds L' '
  872. X.ds R' '
  873. X'br\}
  874. X.el\{\
  875. X.ds -- \(em\|
  876. X.tr \*(Tr
  877. X.ds L" ``
  878. X.ds R" ''
  879. X.ds L' `
  880. X.ds R' '
  881. X'br\}
  882. X.TH MAKEDIST 1 LOCAL
  883. X.SH NAME
  884. Xmakedist - a distribution kit maker
  885. X.SH SYNOPSIS
  886. X.B makedist
  887. X[options] 
  888. X.SH DESCRIPTION
  889. X.I Makedist
  890. Xis a rather simpleminded shar program that knows how to pack files
  891. Xinto multiple kits of approximately 50000 bytes each.
  892. XThe shar scripts produced assume very little about the target machine;
  893. Xthere is correspondingly little error checking done compared to other
  894. Xshar programs.
  895. X.PP
  896. XIn order to run makedist you have to do two things:
  897. X.IP 1) 4
  898. XCreate a .package file in the package's top-level directory by running packinit.
  899. XThis program will ask you about your package and remember what you tell
  900. Xit so that all the dist programs can be smart.
  901. X.IP 2) 4
  902. XCreate a MANIFEST.new file in your top-level directory that lists all the
  903. Xfiles in your package.
  904. XThe filename should be the first field on each line.
  905. XAfter some whitespace you can add a comment which will end up in MANIFEST.
  906. X.PP
  907. XThe only option is a \-v, which turns on verbose mode.
  908. XAfter running makedist, you will have a set of kits in your top-level directory.
  909. XIf your package name is "foo", they will be named foo.kit1, foo.kit2, etc.
  910. X.SH AUTHOR
  911. XLarry Wall <lwall@jpl-devvax.jpl.nasa.gov>
  912. X.SH ENVIRONMENT
  913. XNo environment variables are used by
  914. X.IR makedist .
  915. X.SH FILES
  916. XCreates ./$package.kit*.
  917. X.SH SEE ALSO
  918. Xpat(1)
  919. X.br
  920. Xmetaconfig(1)
  921. X.SH DIAGNOSTICS
  922. X.SH BUGS
  923. XIt ought to know how to split and recombine files longer than 50000 bytes.
  924. X.rn }` ''
  925. !STUFFY!FUNK!
  926. echo Extracting pat/patbase.SH
  927. sed >pat/patbase.SH <<'!STUFFY!FUNK!' -e 's/X//'
  928. Xcase $CONFIG in
  929. X'')
  930. X    if test ! -f config.sh; then
  931. X    ln ../config.sh . || \
  932. X    ln ../../config.sh . || \
  933. X    ln ../../../config.sh . || \
  934. X    (echo "Can't find config.sh."; exit 1)
  935. X    fi
  936. X    . ./config.sh
  937. X    ;;
  938. Xesac
  939. X: This forces SH files to create target in same directory as SH file.
  940. X: This is so that make depend always knows where to find SH derivatives.
  941. Xcase "$0" in
  942. X*/*) cd `expr X$0 : 'X\(.*\)/'` ;;
  943. Xesac
  944. Xecho "Extracting patbase (with variable substitutions)"
  945. Xcat >patbase <<!GROK!THIS!
  946. X#!/usr/bin/perl
  947. X        eval "exec /usr/bin/perl -S \$0 \$*"
  948. X                if \$running_under_some_shell;
  949. X
  950. X# $Header: patbase.SH,v 2.0 88/06/28 23:19:25 lwall Locked $
  951. X#
  952. X# $Log:    patbase.SH,v $
  953. X# Revision 2.0  88/06/28  23:19:25  lwall
  954. X# Baseline.
  955. X# 
  956. X# 
  957. X
  958. X!GROK!THIS!
  959. X
  960. X: In the following dollars and backticks do not need the extra backslash.
  961. Xcat >>patbase <<'!NO!SUBS!'
  962. X
  963. Xdie "pat [files]\n" unless $#ARGV >= 0;
  964. X
  965. Xdo readpackage();
  966. X
  967. X$RCSEXT = ',v' unless $RCSEXT;
  968. X
  969. Xif ($ARGV[0] eq '-a') {
  970. X    open(MANI,"MANIFEST.new") || die "No MANIFEST.new found.\n";
  971. X    @ARGV = ();
  972. X    while (<MANI>) {
  973. X        chop;
  974. X    ($_) = split(' ');
  975. X        push(@ARGV,$_);
  976. X    }
  977. X    close MANI;
  978. X}
  979. X
  980. Xforeach $file (@ARGV) {
  981. X    $files = do rcsargs($file);
  982. X    @files = split(' ',$files);
  983. X    $revs=0;
  984. X    $rlog = `rlog -r$baserev -r$revbranch $files 2>&1`;
  985. X    ($revs) = ($rlog =~ /selected revisions: (\d+)/);
  986. X    if (!$revs) {
  987. X    print "patbase: $file has never been checked in--checking in...\n";
  988. X    $comment = rcscomment($file);
  989. X    system 'rcs', '-i', "-c$comment", @files if $comment;
  990. X    (system 'ci', "-l$baserev", @files) ||
  991. X      (system 'rcs', "-Nlastpat:$baserev", @files);
  992. X    }
  993. X    elsif ($revs == 1) {
  994. X    print "Last revision for $file is $baserev.\n";
  995. X    system 'rcs', "-Nlastpat:$baserev", @files;
  996. X    }
  997. X    else {
  998. X    ($lastrev) = ($rlog =~ /revision $revbranch\.(\d+)/);
  999. X    print "Last revision for $file is $revbranch.$lastrev.\n";
  1000. X    system 'rcs', "-Nlastpat:$revbranch.$lastrev", @files;
  1001. X    }
  1002. X}
  1003. Xunlink ".rlog$$";
  1004. X
  1005. X!NO!SUBS!
  1006. Xcat ../pl/package.pl >>patbase
  1007. Xcat ../pl/rcsargs.pl >>patbase
  1008. Xcat ../pl/comment.pl >>patbase
  1009. Xchmod +x patbase
  1010. X$eunicefix patbase
  1011. !STUFFY!FUNK!
  1012. echo Extracting mcon/U/Finish.U
  1013. sed >mcon/U/Finish.U <<'!STUFFY!FUNK!' -e 's/X//'
  1014. X?RCS:$Header: Finish.U,v 2.0 88/06/28 23:13:02 lwall Locked $
  1015. X?X: 
  1016. X?X: This unit is the very last one in the Configure script.  It runs all the
  1017. X?X: SH files, which among other things produce config.h and (usually) Makefile.
  1018. X?X: It offers to do a make depend if the Makefile contains that target.
  1019. X?X: 
  1020. X?RCS: $Log:    Finish.U,v $
  1021. X?RCS: Revision 2.0  88/06/28  23:13:02  lwall
  1022. X?RCS: Baseline.
  1023. X?RCS: 
  1024. X?MAKE:Finish: grep echo n c rm contains Myread Config_sh Config_h expr
  1025. X?MAKE:    -pick add $@ %*
  1026. XCONFIG=true
  1027. X
  1028. Xecho " "
  1029. Xdflt=''
  1030. Xfastread=''
  1031. Xecho "If you didn't make any mistakes, then just type a carriage return here."
  1032. Xrp="If you need to edit config.sh, do it as a shell escape here:"
  1033. X$echo $n "$rp $c"
  1034. X. UU/myread
  1035. Xcase "$ans" in
  1036. X'') ;;
  1037. X*) : in case they cannot read
  1038. X    eval $ans;;
  1039. Xesac
  1040. X. ./config.sh
  1041. X
  1042. Xecho " "
  1043. Xecho "Doing variable substitutions on .SH files..."
  1044. Xset x `awk '{print $1}' <MANIFEST | $grep '\.SH'`
  1045. Xshift
  1046. Xcase $# in
  1047. X0) set x *.SH; shift;;
  1048. Xesac
  1049. Xif test ! -f $1; then
  1050. X    shift
  1051. Xfi
  1052. Xfor file in $*; do
  1053. X    case "$file" in
  1054. X    */*)
  1055. X    dir=`$expr X$file : 'X\(.*\)/'`
  1056. X    file=`$expr X$file : 'X.*/\(.*\)'`
  1057. X    (cd $dir && . $file)
  1058. X    ;;
  1059. X    *)
  1060. X    . $file
  1061. X    ;;
  1062. X    esac
  1063. Xdone
  1064. Xif test -f config.h.SH; then
  1065. X    if test ! -f config.h; then
  1066. X    : oops, they left it out of MANIFEST, probably, so do it anyway.
  1067. X    . config.h.SH
  1068. X    fi
  1069. Xfi
  1070. X
  1071. Xif $contains '^depend:' Makefile >/dev/null 2>&1; then
  1072. X    dflt=n
  1073. X    $cat <<EOM
  1074. X
  1075. XNow you need to generate make dependencies by running "make depend".
  1076. XYou might prefer to run it in background: "make depend > makedepend.out &"
  1077. XIt can take a while, so you might not want to run it right now.
  1078. X
  1079. XEOM
  1080. X    rp="Run make depend now? [$dflt]"
  1081. X    $echo $n "$rp $c"
  1082. X    . UU/myread
  1083. X    case "$ans" in
  1084. X    y*) make depend
  1085. X    echo "Now you must run a make."
  1086. X    ;;
  1087. X    *)  echo "You must run 'make depend' then 'make'."
  1088. X    ;;
  1089. X    esac
  1090. Xelif test -f Makefile; then
  1091. X    echo " "
  1092. X    echo "Now you must run a make."
  1093. Xelse
  1094. X    echo "Done."
  1095. Xfi
  1096. X
  1097. X$rm -f kit*isdone
  1098. X: the following is currently useless
  1099. Xcd UU && $rm -f $rmlist
  1100. X: since this removes it all anyway
  1101. Xcd .. && $rm -rf UU
  1102. X: end of Configure
  1103. !STUFFY!FUNK!
  1104. echo Extracting mcon/U/libc.U
  1105. sed >mcon/U/libc.U <<'!STUFFY!FUNK!' -e 's/X//'
  1106. X?RCS:$Header: libc.U,v 2.0 88/06/28 23:16:50 lwall Locked $
  1107. X?RCS: $Log:    libc.U,v $
  1108. X?RCS: Revision 2.0  88/06/28  23:16:50  lwall
  1109. X?RCS: Baseline.
  1110. X?RCS: 
  1111. X?MAKE:libc: echo n c Myread Oldconfig Loc
  1112. X?MAKE:    -pick add $@ %*
  1113. X?S:libc:
  1114. X?S:    This variable contains the location of the C library.
  1115. X?S:.
  1116. X: get list of predefined functions in a handy place
  1117. Xecho " "
  1118. Xif test -f /lib/libc.a; then
  1119. X    echo "Your C library is in /lib/libc.a.  You're normal."
  1120. X    libc=/lib/libc.a
  1121. Xelse
  1122. X    ans=`loc libc.a blurfl/dyick $libpth`
  1123. X    if test ! -f $ans; then
  1124. X    ans=`loc clib blurfl/dyick $libpth`
  1125. X    fi
  1126. X    if test ! -f $ans; then
  1127. X    ans=`loc libc blurfl/dyick $libpth`
  1128. X    fi
  1129. X    if test -f $ans; then
  1130. X    echo "Your C library is in $ans, of all places."
  1131. X    libc=$ans
  1132. X    else
  1133. X    if test -f "$libc"; then
  1134. X        echo "Your C library is in $libc, like you said before."
  1135. X    else
  1136. X        cat <<EOM
  1137. X 
  1138. XI can't seem to find your C library.  I've looked in the following places:
  1139. X
  1140. X    $libpth
  1141. X
  1142. XNone of these seems to contain your C library.  What is the full name
  1143. XEOM
  1144. X        dflt=None
  1145. X        $echo $n "of your C library? $c"
  1146. X        rp='C library full name?'
  1147. X        . myread
  1148. X        libc="$ans"
  1149. X    fi
  1150. X    fi
  1151. Xfi
  1152. Xecho " "
  1153. X$echo $n "Extracting names from $libc for later perusal...$c"
  1154. Xnm $libc 2>/dev/null | sed -n -e 's/^.* T _//p' -e 's/^.* T //p' > libc.list
  1155. Xif $contains '^printf$' libc.list >/dev/null 2>&1; then
  1156. X    echo "done"
  1157. Xelse
  1158. X    nm $libc 2>/dev/null | sed -n -e 's/^.* D _//p' -e 's/^.* D //p' > libc.list
  1159. X    if $contains '^printf$' libc.list >/dev/null 2>&1; then
  1160. X    echo "done"
  1161. X    else
  1162. X    echo " "
  1163. X    echo "nm didn't seem to work right."
  1164. X    echo "Trying ar instead..."
  1165. X    rmlist="$rmlist libc.tmp"
  1166. X    if ar t $libc > libc.tmp; then
  1167. X        sed -e 's/\.o$//' < libc.tmp > libc.list
  1168. X        echo "Ok."
  1169. X    else
  1170. X        echo "ar didn't seem to work right."
  1171. X        echo "Maybe this is a Cray...trying bld instead..."
  1172. X        if bld t $libc | sed -e 's/.*\///' -e 's/\.o:.*$//' > libc.list; then
  1173. X        echo "Ok."
  1174. X        else
  1175. X            echo "That didn't work either.  Giving up."
  1176. X            exit 1
  1177. X        fi
  1178. X    fi
  1179. X    fi
  1180. Xfi
  1181. Xrmlist="$rmlist libc.list"
  1182. X
  1183. !STUFFY!FUNK!
  1184. echo Extracting mcon/U/Cppsym.U
  1185. sed >mcon/U/Cppsym.U <<'!STUFFY!FUNK!' -e 's/X//'
  1186. X?RCS:$Header: Cppsym.U,v 2.0 88/06/28 23:12:50 lwall Locked $
  1187. X?X: 
  1188. X?X: This unit produces a shell script called Cppsym, which can be used to
  1189. X?X: determine whether any in a list of symbols is defined by the C preprocessor.
  1190. X?X: It can determine the status of any symbol, though the symbols in attrlist
  1191. X?X: are more easily determined.  If you want to add to attrlist you can do
  1192. X?X: it in Myinit.U.
  1193. X?X: 
  1194. X?RCS: $Log:    Cppsym.U,v $
  1195. X?RCS: Revision 2.0  88/06/28  23:12:50  lwall
  1196. X?RCS: Baseline.
  1197. X?RCS: 
  1198. X?MAKE:Cppsym: eunicefix Guess cppstdin cat tr sed rm
  1199. X?MAKE:    -pick add $@ %*
  1200. X?INIT:attrlist="mc68000 sun gcos unix ibm gimpel interdata tss os mert pyr"
  1201. X?INIT:attrlist="$attrlist vax pdp11 i8086 z8000 u3b2 u3b5 u3b20 u3b200"
  1202. X?INIT:attrlist="$attrlist ns32000 ns16000 iAPX286 mc300 mc500 mc700 sparc"
  1203. X?INIT:attrlist="$attrlist nsc32000 sinix xenix venix posix ansi M_XENIX"
  1204. X?INIT:attrlist="$attrlist $mc68k __STDC__"
  1205. X: get C preprocessor symbols handy
  1206. Xecho " "
  1207. Xecho $attrlist | $tr '[ - ]' '[\012-\012]' >Cppsym.know
  1208. X$cat <<EOSS >Cppsym
  1209. X$startsh
  1210. Xcase "\$1" in
  1211. X-l) list=true
  1212. X    shift
  1213. X    ;;
  1214. Xesac
  1215. Xunknown=''
  1216. Xcase "\$list\$#" in
  1217. X1|2)
  1218. X    for sym do
  1219. X    if $contains "^\$1$" Cppsym.true >/dev/null 2>&1; then
  1220. X        exit 0
  1221. X    elif $contains "^\$1$" Cppsym.know >/dev/null 2>&1; then
  1222. X        :
  1223. X    else
  1224. X        unknown="\$unknown \$sym"
  1225. X    fi
  1226. X    done
  1227. X    set X \$unknown
  1228. X    shift
  1229. X    ;;
  1230. Xesac
  1231. Xcase \$# in
  1232. X0) exit 1;;
  1233. Xesac
  1234. Xecho \$* | $tr '[ - ]' '[\012-\012]' | $sed -e 's/\(.*\)/\\
  1235. X#ifdef \1\\
  1236. Xexit 0; _ _ _ _\1\\     \1\\
  1237. X#endif\\
  1238. X/' >/tmp/Cppsym\$\$
  1239. Xecho exit 1 >>/tmp/Cppsym\$\$
  1240. X$cppstdin $cppminus </tmp/Cppsym\$\$ >/tmp/Cppsym2\$\$
  1241. Xcase "\$list" in
  1242. Xtrue) awk 'NF > 5 {print substr(\$6,2,100)}' </tmp/Cppsym2\$\$ ;;
  1243. X*)
  1244. X    sh /tmp/Cppsym2\$\$
  1245. X    status=\$?
  1246. X    ;;
  1247. Xesac
  1248. X$rm -f /tmp/Cppsym\$\$ /tmp/Cppsym2\$\$
  1249. Xexit \$status
  1250. XEOSS
  1251. Xchmod +x Cppsym
  1252. X$eunicefix Cppsym
  1253. Xecho "Your C preprocessor defines the following symbols:"
  1254. XCppsym -l $attrlist >Cppsym.true
  1255. Xcat Cppsym.true
  1256. Xrmlist="$rmlist Cppsym Cppsym.know Cppsym.true"
  1257. X
  1258. !STUFFY!FUNK!
  1259. echo Extracting mcon/U/d_nolnbuf.U
  1260. sed >mcon/U/d_nolnbuf.U <<'!STUFFY!FUNK!' -e 's/X//'
  1261. X?RCS:$Header: d_nolnbuf.U,v 2.0 88/06/28 23:15:22 lwall Locked $
  1262. X?RCS: $Log:    d_nolnbuf.U,v $
  1263. X?RCS: Revision 2.0  88/06/28  23:15:22  lwall
  1264. X?RCS: Baseline.
  1265. X?RCS: 
  1266. X?MAKE:d_nolnbuf: Guess n c echo test Myread
  1267. X?MAKE:    -pick add $@ %*
  1268. X?S:d_nolnbuf:
  1269. X?S:    This variable conditionally defines the NOLINEBUF symbol, which
  1270. X?S:    indicates to the C program that stdout is not buffered, so that
  1271. X?S:    the program can call setbuf() or setlinebuf() for efficiency.
  1272. X?S:.
  1273. X?C:NOLINEBUF:
  1274. X?C:    This symbol, if defined, indicates that stdout is not buffered, so that
  1275. X?C:    the program can call setbuf() or setlinebuf() for efficiency.
  1276. X?C:.
  1277. X?H:?%1:#$d_nolnbuf    NOLINEBUF    /**/
  1278. X?H:?%1:
  1279. X: check for buffering of stdout
  1280. Xecho " "
  1281. Xcase "$d_nolnbuf" in
  1282. X'')
  1283. X    cat <<'EOT' >blurfl.c
  1284. X#include <stdio.h>
  1285. Xmain()
  1286. X{
  1287. X    int i;
  1288. X
  1289. X    for (i=0; i<5; i++) {
  1290. X    putchar(i+'a');
  1291. X    sleep(1);
  1292. X    }
  1293. X    putchar('\n');
  1294. X}
  1295. XEOT
  1296. X    cc blurfl.c -o blurfl
  1297. X    rm -f blurfl.c
  1298. X    cat <<'EOM'
  1299. XChecking for buffering of stdout to terminal.
  1300. X
  1301. XObserve the following characters as they are printed out, to see whether they
  1302. Xprint out all at once, or with a 1 second pause between each of them.  If they
  1303. Xprint out one by one, you don't have buffering.  If they print together (after
  1304. Xabout a 5 second pause), you do have buffering.
  1305. X
  1306. XEOM
  1307. X    rp="Type return to start printing the test characters:"
  1308. X    $echo $n "$rp $c"
  1309. X    . myread
  1310. X    ans=y
  1311. X    while $test "$ans" = 'y'; do
  1312. X    blurfl
  1313. X    dflt=n
  1314. X    rp='Would you like to see that again? [n]'
  1315. X    $echo $n "$rp $c"
  1316. X    . myread
  1317. X    done
  1318. X    dflt=y
  1319. X    rp="Do you have buffering (printed all at once)? [$dflt]"
  1320. X    $echo $n "$rp $c"
  1321. X    . myread
  1322. X    case "$ans" in
  1323. X    n*) d_nolnbuf="$define";;
  1324. X    *)  d_nolnbuf="$undef";;
  1325. X    esac
  1326. X    ;;
  1327. X*)
  1328. X    case "$d_nolnbuf" in
  1329. X    "$define") dflt=n;;
  1330. X    *)        dflt=y;;
  1331. X    esac
  1332. X    rp="Do you have buffering on stdout to terminals? [$dflt]"
  1333. X    $echo $n "$rp $c"
  1334. X    . myread
  1335. X    case "$ans" in
  1336. X    n*) d_nolnbuf="$define";;
  1337. X    *)  d_nolnbuf="$undef";;
  1338. X    esac
  1339. X    ;;
  1340. Xesac
  1341. X
  1342. !STUFFY!FUNK!
  1343. echo Extracting pat/Makefile.SH
  1344. sed >pat/Makefile.SH <<'!STUFFY!FUNK!' -e 's/X//'
  1345. Xcase $CONFIG in
  1346. X'')
  1347. X    if test ! -f config.sh; then
  1348. X    ln ../config.sh . || \
  1349. X    ln ../../config.sh . || \
  1350. X    ln ../../../config.sh . || \
  1351. X    (echo "Can't find config.sh."; exit 1)
  1352. X    echo "Using config.sh from above..."
  1353. X    fi
  1354. X    . ./config.sh
  1355. X    ;;
  1356. Xesac
  1357. X: This forces SH files to create target in same directory as SH file.
  1358. X: This is so that make depend always knows where to find SH derivatives.
  1359. Xcase "$0" in
  1360. X*/*) cd `expr X$0 : 'X\(.*\)/'` ;;
  1361. Xesac
  1362. Xecho "Extracting Makefile (with variable substitutions)"
  1363. Xcat >Makefile <<!GROK!THIS!
  1364. X# $Header: Makefile.SH,v 2.0 88/06/28 23:19:00 lwall Locked $
  1365. X#
  1366. X# $Log:    Makefile.SH,v $
  1367. X# Revision 2.0  88/06/28  23:19:00  lwall
  1368. X# Baseline.
  1369. X# 
  1370. X
  1371. Xbin = $bin
  1372. Xmansrc = $mansrc
  1373. Xmanext = $manext
  1374. X
  1375. X!GROK!THIS!
  1376. Xcat >>Makefile <<'!NO!SUBS!'
  1377. X
  1378. Xpublic = pat patcil patbase patdiff patmake patpost patsend patftp \
  1379. X    patindex
  1380. Xprivate = 
  1381. Xmanpages = pat.man
  1382. Xutil = Makefile
  1383. X
  1384. Xc = 
  1385. X
  1386. Xobj = 
  1387. X
  1388. Xaddedbyconf = pat patmake patpost patsend
  1389. X
  1390. X# grrr
  1391. XSHELL = /bin/sh
  1392. X
  1393. Xall: $(public) $(private) $(util)
  1394. X    touch all
  1395. Xpat: pat.SH ../pl/package.pl
  1396. X    sh pat.SH
  1397. X
  1398. Xpatbase: patbase.SH ../pl/package.pl ../pl/rcsargs.pl ../pl/comment.pl
  1399. X    sh patbase.SH
  1400. X
  1401. Xpatcil: patcil.SH ../pl/package.pl ../pl/rcsargs.pl ../pl/comment.pl
  1402. X    sh patcil.SH
  1403. X
  1404. Xpatdiff: patdiff.SH ../pl/package.pl ../pl/rcsargs.pl
  1405. X    sh patdiff.SH
  1406. X
  1407. Xpatmake: patmake.SH ../pl/package.pl
  1408. X    sh patmake.SH
  1409. X
  1410. Xpatpost: patpost.SH ../pl/package.pl ../pl/rangeargs.pl
  1411. X    sh patpost.SH
  1412. X
  1413. Xpatsend: patsend.SH ../pl/package.pl ../pl/rangeargs.pl
  1414. X    sh patsend.SH
  1415. X
  1416. Xpatftp: patftp.SH ../pl/package.pl ../pl/rangeargs.pl
  1417. X    sh patftp.SH
  1418. X
  1419. XMakefile: Makefile.SH
  1420. X    sh Makefile.SH
  1421. X
  1422. X# won't work with csh
  1423. Xinstall: $(public)
  1424. X    export PATH || exit 1
  1425. X    - if test `pwd` != $(bin); then cp $(public) $(bin); fi
  1426. X    cd $(bin); chmod +x $(public)
  1427. X    - if test `pwd` != $(mansrc); then \
  1428. Xfor page in $(manpages); do \
  1429. Xcp $$page $(mansrc)/`basename $$page .man`.$(manext); \
  1430. Xdone; \
  1431. Xfi
  1432. X
  1433. Xclean:
  1434. X
  1435. Xrealclean:
  1436. X    rm -f core $(addedbyconf)
  1437. X
  1438. X!NO!SUBS!
  1439. X$eunicefix Makefile
  1440. !STUFFY!FUNK!
  1441. echo Extracting mcon/U/d_dosuid.U
  1442. sed >mcon/U/d_dosuid.U <<'!STUFFY!FUNK!' -e 's/X//'
  1443. X?RCS:$Header: d_dosuid.U,v 2.0 88/06/29 00:18:20 lwall Locked $
  1444. X?RCS: $Log:    d_dosuid.U,v $
  1445. X?RCS: Revision 2.0  88/06/29  00:18:20  lwall
  1446. X?RCS: Baseline.
  1447. X?RCS: 
  1448. X?MAKE:d_dosuid: echo contains sed test n c Myread Oldconfig Guess
  1449. X?MAKE:    -pick add $@ %*
  1450. X?S:d_dosuid:
  1451. X?S:    This variable conditionally defines the symbol DOSUID, which
  1452. X?S:    tells the C program that it should insert setuid emulation code
  1453. X?S:    on hosts which have setuid #! scripts disabled.
  1454. X?S:.
  1455. X?C:DOSUID:
  1456. X?C:    This symbol, if defined, indicates that the C program should
  1457. X?C:    check the script that it is executing for setuid/setgid bits, and
  1458. X?C:    attempt to emulate setuid/setgid on systems that have disabled
  1459. X?C:    setuid #! scripts because the kernel can't do it securely.
  1460. X?C:    It is up to the package designer to make sure that this emulation
  1461. X?C:    is done securely.  Among other things, it should do an fstat on
  1462. X?C:    the script it just opened to make sure it really is a setuid/setgid
  1463. X?C:    script, it should make sure the arguments passed correspond exactly
  1464. X?C:    to the argument on the #! line, and it should not trust any
  1465. X?C:    subprocesses to which it must pass the filename rather than the
  1466. X?C:    file descriptor of the script to be executed.
  1467. X?C:.
  1468. X?H:?%1:#$d_dosuid DOSUID        /**/
  1469. X?H:?%1:
  1470. X: now see if they want to do setuid emulation
  1471. Xcase "$d_dosuid" in
  1472. X'') if bsd; then
  1473. X    dflt=y
  1474. X    else
  1475. X    dflt=n
  1476. X    fi
  1477. X    ;;
  1478. X*undef*) dflt=n;;
  1479. X*) dflt=y;;
  1480. Xesac
  1481. Xcat <<EOM
  1482. X 
  1483. XSome sites have disabled setuid #! scripts because of a bug in the kernel
  1484. Xthat prevents them from being secure.  If you are on such a system, the
  1485. Xsetuid/setgid bits on scripts are currently useless.  It is possible for
  1486. X$package to detect those bits and emulate setuid/setgid in a secure fashion
  1487. Xuntil a better solution is devised for the kernel problem.
  1488. X
  1489. XEOM
  1490. Xrp="Do you want to do setuid/setgid emulation? [$dflt]"
  1491. Xecho $n "$rp $c"
  1492. X. myread
  1493. Xcase "$ans" in
  1494. X'') $ans="$dflt";;
  1495. Xesac
  1496. Xcase "$ans" in
  1497. Xy*)  d_dosuid="$define";;
  1498. X*) d_dosuid="$undef";;
  1499. Xesac
  1500. X
  1501. !STUFFY!FUNK!
  1502. echo Extracting mcon/U/d_hidnet.U
  1503. sed >mcon/U/d_hidnet.U <<'!STUFFY!FUNK!' -e 's/X//'
  1504. X?RCS:$Header: d_hidnet.U,v 2.0 88/06/28 23:14:54 lwall Locked $
  1505. X?RCS: $Log:    d_hidnet.U,v $
  1506. X?RCS: Revision 2.0  88/06/28  23:14:54  lwall
  1507. X?RCS: Baseline.
  1508. X?RCS: 
  1509. X?MAKE:d_hidnet hiddennet: echo contains sed test n c Myread Oldconfig Guess
  1510. X?MAKE:    -pick add $@ %*
  1511. X?S:d_hidnet:
  1512. X?S:    This variable conditionally defines the symbol HIDDENNET, which
  1513. X?S:    tells the C program that it should pretend it is on a different
  1514. X?S:    host for purposes of advertising a mailing address.
  1515. X?S:.
  1516. X?S:hiddennet:
  1517. X?S:    This variable contains the value eventually given to the symbol
  1518. X?S:    HIDDENNET, if d_hidnet defines it.  If defined, it's the name
  1519. X?S:    of the host which serves as the mail server for a network that
  1520. X?S:    is invisible to the outside world.
  1521. X?S:.
  1522. X?C:HIDDENNET:
  1523. X?C:    This symbol, if defined, contains the host name that you want to
  1524. X?C:    advertise to the outside world.  This name can be different from
  1525. X?C:    your actual host name, as long as the machine you specify knows
  1526. X?C:    how to forward mail to you.
  1527. X?C:.
  1528. X?H:?%1:#$d_hidnet HIDDENNET "$hiddennet"    /**/
  1529. X?H:?%1:
  1530. X: now get the host name to advertise as our mailing address
  1531. Xcase "$hiddennet" in
  1532. X'') dflt=n;;
  1533. X*) dflt=y;;
  1534. Xesac
  1535. Xcat <<EOM
  1536. X 
  1537. XSome sites are on "hidden" networks, in the sense that the network appears
  1538. Xto the outside world as a single machine.  The advertised name of any host
  1539. Xon this hidden network is the name of one machine on the local network which
  1540. Xknows how to forward mail to any other host on the hidden network.
  1541. X
  1542. XDo you wish to advertise a different hostname to the world than the one your
  1543. XEOM
  1544. Xrp="own host ($hostname$mydomain) has? [$dflt]"
  1545. Xecho $n "$rp $c"
  1546. Xrp="Use HIDDENNET? [$dflt]"
  1547. X. myread
  1548. Xcase "$ans" in
  1549. Xn*) d_hidnet="$undef" hiddennet='';;
  1550. X*)
  1551. X    d_hidnet="$define"
  1552. X    echo " "
  1553. X    case "$hiddennet" in
  1554. X    '') dflt='???';;
  1555. X    *) dflt="$hiddennet";;
  1556. X    esac
  1557. X    rp="What hostname do you wish to advertise? [$dflt]"
  1558. X    echo $n "$rp $c"
  1559. X    . myread
  1560. X    hiddennet="$ans"
  1561. X    ;;
  1562. Xesac
  1563. X
  1564. !STUFFY!FUNK!
  1565. echo Extracting pat/patftp.SH
  1566. sed >pat/patftp.SH <<'!STUFFY!FUNK!' -e 's/X//'
  1567. Xcase $CONFIG in
  1568. X'')
  1569. X    if test ! -f config.sh; then
  1570. X    ln ../config.sh . || \
  1571. X    ln ../../config.sh . || \
  1572. X    ln ../../../config.sh . || \
  1573. X    (echo "Can't find config.sh."; exit 1)
  1574. X    echo "Using config.sh from above..."
  1575. X    fi
  1576. X    . ./config.sh
  1577. X    ;;
  1578. Xesac
  1579. X: This forces SH files to create target in same directory as SH file.
  1580. X: This is so that make depend always knows where to find SH derivatives.
  1581. Xcase "$0" in
  1582. X*/*) cd `expr X$0 : 'X\(.*\)/'` ;;
  1583. Xesac
  1584. Xecho "Extracting patftp (with variable substitutions)"
  1585. Xcat >patftp <<!GROK!THIS!
  1586. X#!/usr/bin/perl
  1587. X        eval "exec /usr/bin/perl -S \$0 \$*"
  1588. X                if \$running_under_some_shell;
  1589. X
  1590. X# $Header: patftp.SH,v 2.0 88/06/28 23:19:57 lwall Locked $
  1591. X#
  1592. X# $Log:    patftp.SH,v $
  1593. X# Revision 2.0  88/06/28  23:19:57  lwall
  1594. X# Baseline.
  1595. X# 
  1596. X
  1597. X\$orgname='$orgname';
  1598. X!GROK!THIS!
  1599. X
  1600. X: In the following dollars and backticks do not need the extra backslash.
  1601. Xcat >>patftp <<'!NO!SUBS!'
  1602. X
  1603. Xchop($orgname = `cat $orgname`) if $orgname =~ m|^/|;
  1604. X
  1605. Xchdir '..' if -f '../.package';
  1606. X
  1607. Xdo readpackage();
  1608. X
  1609. Xif ($#ARGV < 0) {
  1610. X    open(PL,"patchlevel.h") || die "Can't open patchlevel.h\n";
  1611. X    while (<PL>) {
  1612. X        $argv = $1 if /^#define\s+PATCHLEVEL\s+(\d+)/;
  1613. X    }
  1614. X    close PL;
  1615. X    die "Malformed patchlevel.h file.\n" if $argv eq '';
  1616. X    @ARGV = $argv;
  1617. X}
  1618. Xelse {
  1619. X    for (@ARGV) {
  1620. X    s/^patch//;
  1621. X    }
  1622. X    $argv = do rangeargs(@ARGV);
  1623. X    @ARGV = split(' ',$argv);
  1624. X}
  1625. X
  1626. Xif ($#ARGV < 0) {
  1627. X    die "No patches specified.\n";
  1628. X}
  1629. Xelsif ($#ARGV) {
  1630. X    print "Copying $package $baserev patches $argv to $ftpdir...\n";
  1631. X}
  1632. Xelse {
  1633. X    print "Copying $package $baserev patch $argv to $ftpdir...\n";
  1634. X}
  1635. X
  1636. Xchdir 'bugs' || die "Can't cd to bugs\n";
  1637. X
  1638. Xuntil ($#ARGV < 0) {
  1639. X    $patnum = shift;
  1640. X    `cp patch$patnum $ftpdir`;
  1641. X}
  1642. X
  1643. X!NO!SUBS!
  1644. Xcat ../pl/package.pl >>patftp
  1645. Xcat ../pl/rangeargs.pl >>patftp
  1646. Xchmod +x patftp
  1647. X$eunicefix patftp
  1648. !STUFFY!FUNK!
  1649. echo Extracting mcon/U/newslib.U
  1650. sed >mcon/U/newslib.U <<'!STUFFY!FUNK!' -e 's/X//'
  1651. X?RCS:$Header: newslib.U,v 2.0 88/06/28 23:17:41 lwall Locked $
  1652. X?RCS: $Log:    newslib.U,v $
  1653. X?RCS: Revision 2.0  88/06/28  23:17:41  lwall
  1654. X?RCS: Baseline.
  1655. X?RCS: 
  1656. X?MAKE:newslib newslibexp: test echo n c d_portable inews Myread Filexp Oldconfig
  1657. X?MAKE:    -pick add $@ %*
  1658. X?S:newslib:
  1659. X?S:    This variable contains the eventual value of the NEWSLIB symbol,
  1660. X?S:    which holds the name of the directory serving as the news library.
  1661. X?S:    It may have a ~ on the front.  See newslibexp for expanded version.
  1662. X?S:.
  1663. X?S:newslibexp
  1664. X?S:    This variable contains the ~ expanded name of the news library
  1665. X?S:    directory.  See newslib.
  1666. X?S:.
  1667. X?C:NEWSLIB
  1668. X?C:    This symbol contains the name of the directory serving as the news
  1669. X?C:    library.  The program must be prepared to do ~ expansion on it.
  1670. X?C:.
  1671. X?H:?%1:#define NEWSLIB "$newslib"        /**/
  1672. X?H:?%1:
  1673. X: figure out news library
  1674. Xcase "$newslib" in
  1675. X'')
  1676. X    dflt=/usr/lib/news
  1677. X    ;;
  1678. X*)  dflt=$newslib ;;
  1679. Xesac
  1680. Xnewslibexp=$newslib
  1681. Xnewslibexp='blurfl/dyick'
  1682. Xcont=true
  1683. Xwhile $test "$cont"; do
  1684. X    echo " "
  1685. X    rp="Where is your news library (~name okay)? [$dflt]"
  1686. X    $echo $n "$rp $c"
  1687. X    . myread
  1688. X    newslib="$ans"
  1689. X    case "$newslib" in
  1690. X    ~*)
  1691. X    newslibexp=`filexp $newslib`
  1692. X    echo "(That is $newslibexp on this particular system.)"
  1693. X    case "$d_portable" in
  1694. X      "$undef") newslib=$newslibexp ;;
  1695. X    esac
  1696. X    ;;
  1697. X    *)
  1698. X    newslibexp=$newslib
  1699. X    ;;
  1700. X    esac
  1701. X    if test -d $newslibexp; then
  1702. X    cont=''
  1703. X    else
  1704. X    dflt=n
  1705. X    rp="Directory $newslibexp doesn't exist.  Use that name anyway? [$dflt]"
  1706. X    $echo $n "$rp $c"
  1707. X    . myread
  1708. X    dflt=''
  1709. X    case "$ans" in
  1710. X    y*) cont='';;
  1711. X    esac
  1712. X    fi
  1713. Xdone
  1714. Xif $test -f $newslibexp/inews; then
  1715. X    echo "Aha!  Inews is really in $newslibexp!  Maybe this is 2.10.2..."
  1716. X    case "$inews" in
  1717. X    inews) 
  1718. X    : null
  1719. X    ;;
  1720. X    *)
  1721. X    echo "(Make sure $inews isn't an old version.)"
  1722. X    ;;
  1723. X    esac
  1724. X    inews=$newslibexp/inews
  1725. Xfi
  1726. X
  1727. !STUFFY!FUNK!
  1728. echo Extracting kit/Makefile.SH
  1729. sed >kit/Makefile.SH <<'!STUFFY!FUNK!' -e 's/X//'
  1730. Xcase $CONFIG in
  1731. X'')
  1732. X    if test ! -f config.sh; then
  1733. X    ln ../config.sh . || \
  1734. X    ln ../../config.sh . || \
  1735. X    ln ../../../config.sh . || \
  1736. X    (echo "Can't find config.sh."; exit 1)
  1737. X    echo "Using config.sh from above..."
  1738. X    fi
  1739. X    . ./config.sh
  1740. X    ;;
  1741. Xesac
  1742. X: This forces SH files to create target in same directory as SH file.
  1743. X: This is so that make depend always knows where to find SH derivatives.
  1744. Xcase "$0" in
  1745. X*/*) cd `expr X$0 : 'X\(.*\)/'` ;;
  1746. Xesac
  1747. Xecho "Extracting Makefile (with variable substitutions)"
  1748. Xcat >Makefile <<!GROK!THIS!
  1749. X# $Header: Makefile.SH,v 2.0 88/06/28 23:12:03 lwall Locked $
  1750. X#
  1751. X# $Log:    Makefile.SH,v $
  1752. X# Revision 2.0  88/06/28  23:12:03  lwall
  1753. X# Baseline.
  1754. X# 
  1755. X
  1756. Xbin = $bin
  1757. Xmansrc = $mansrc
  1758. Xmanext = $manext
  1759. XCFLAGS = -O
  1760. XLDFLAGS = $iandd
  1761. X
  1762. X!GROK!THIS!
  1763. Xcat >>Makefile <<'!NO!SUBS!'
  1764. X
  1765. XCC = cc
  1766. Xpublic = makedist makeSH
  1767. Xprivate = 
  1768. Xmanpages = makedist.man
  1769. Xutil = Makefile
  1770. X
  1771. Xc =
  1772. X
  1773. Xobj =
  1774. X
  1775. Xlintflags = -phbvxac
  1776. X
  1777. Xaddedbyconf = Makefile makedist
  1778. X
  1779. X# grrr
  1780. XSHELL = /bin/sh
  1781. X
  1782. X.c.o:
  1783. X    $(CC) -c $(CFLAGS) $*.c
  1784. X
  1785. Xall: $(public) $(private) $(util)
  1786. X    touch all
  1787. X
  1788. Xmakedist: makedist.SH
  1789. X    sh makedist.SH
  1790. X
  1791. X# won't work with csh
  1792. Xinstall: $(public)
  1793. X    export PATH || exit 1
  1794. X    - if test `pwd` != $(bin); then cp $(public) $(bin); fi
  1795. X    cd $(bin); chmod +x $(public)
  1796. X    - if test `pwd` != $(mansrc); then \
  1797. Xfor page in $(manpages); do \
  1798. Xcp $$page $(mansrc)/`basename $$page .man`.$(manext); \
  1799. Xdone; \
  1800. Xfi
  1801. X
  1802. Xclean:
  1803. X    rm -f *.o
  1804. X
  1805. Xrealclean:
  1806. X    rm -f kitlists *.o core $(addedbyconf)
  1807. X
  1808. X# The following lint has practically everything turned on.  Unfortunately,
  1809. X# you have to wade through a lot of mumbo jumbo that can't be suppressed.
  1810. X# If the source file has a /*NOSTRICT*/ somewhere, ignore the lint message
  1811. X# for that spot.
  1812. X
  1813. Xlint:
  1814. X    lint $(lintflags) $(defs) $(c) > kitlists.fuzz
  1815. X
  1816. X!NO!SUBS!
  1817. X$eunicefix Makefile
  1818. !STUFFY!FUNK!
  1819. echo Extracting mcon/U/d_usendir.U
  1820. sed >mcon/U/d_usendir.U <<'!STUFFY!FUNK!' -e 's/X//'
  1821. X?RCS:$Header: d_usendir.U,v 2.0 88/06/28 23:16:19 lwall Locked $
  1822. X?RCS: $Log:    d_usendir.U,v $
  1823. X?RCS: Revision 2.0  88/06/28  23:16:19  lwall
  1824. X?RCS: Baseline.
  1825. X?RCS: 
  1826. X?MAKE:d_usendir d_libndir ndirc ndiro: test contains libc
  1827. X?MAKE:    -pick add $@ %*
  1828. X?S:d_usendir:
  1829. X?S:    This variable conditionally defines the USENDIR symbol, which
  1830. X?S:    indicates to the C program that it should compile the ndir.c code
  1831. X?S:    provided with the package.
  1832. X?S:.
  1833. X?S:d_libndir:
  1834. X?S:    This variable conditionally defines the LIBNDIR symbol, which
  1835. X?S:    indicates to the C program that it should include the system's
  1836. X?S:    version of ndir.h, rather than the one with this package.
  1837. X?S:.
  1838. X?C:USENDIR:
  1839. X?C:    This symbol, if defined, indicates that the program should compile
  1840. X?C:    the ndir.c code provided with the package.
  1841. X?C:.
  1842. X?C:LIBNDIR:
  1843. X?C:    This symbol, if defined, indicates that the program should include the
  1844. X?C:    system's version of ndir.h, rather than the one with this package.
  1845. X?C:.
  1846. X?H:?%1:#$d_usendir    USENDIR        /**/
  1847. X?H:?%1:#$d_libndir    LIBNDIR        /**/
  1848. X?H:?%1:
  1849. X: see if there are directory access routines out there
  1850. Xecho " "
  1851. Xif $test -r /usr/include/ndir.h && \
  1852. X      ( $test -r /usr/lib/libndir.a || $test -r /usr/local/lib/libndir.a ); then
  1853. X    echo "Ndir library found."
  1854. X    if $test -r /usr/lib/libndir.a; then
  1855. X    ndirlib='-lndir'
  1856. X    else
  1857. X    ndirlib="/usr/local/lib/libndir.a"
  1858. X    fi
  1859. X    d_libndir="$define"
  1860. X    d_usendir="$undef"
  1861. X    ndirc=''
  1862. X    ndiro=''
  1863. Xelse
  1864. X    ndirlib=''
  1865. X    d_libndir="$undef"
  1866. X    if bsd && $contains '^readdir$' libc.list >/dev/null 2>&1 ; then
  1867. X    echo "No ndir library found, but you have readdir() so we'll use that."
  1868. X    d_usendir="$undef"
  1869. X    ndirc=''
  1870. X    ndiro=''
  1871. X    else
  1872. X    echo "No ndir library found--using ./ndir.c."
  1873. X    d_usendir="$define"
  1874. X    ndirc='ndir.c'
  1875. X    ndiro='ndir.o'
  1876. X    fi
  1877. Xfi
  1878. X
  1879. !STUFFY!FUNK!
  1880. echo Extracting Makefile
  1881. sed >Makefile <<'!STUFFY!FUNK!' -e 's/X//'
  1882. Xall:
  1883. X    cd mcon && make
  1884. X    cd pat && make
  1885. X    cd kit && make
  1886. X
  1887. Xinstall:
  1888. X    cd mcon && make install
  1889. X    cd pat && make install
  1890. X    cd kit && make install
  1891. !STUFFY!FUNK!
  1892. echo ""
  1893. echo "End of kit 4 (of 7)"
  1894. cat /dev/null >kit4isdone
  1895. run=''
  1896. config=''
  1897. for iskit in 1 2 3 4 5 6 7; do
  1898.     if test -f kit${iskit}isdone; then
  1899.     run="$run $iskit"
  1900.     else
  1901.     todo="$todo $iskit"
  1902.     fi
  1903. done
  1904. case $todo in
  1905.     '')
  1906.     echo "You have run all your kits.  Please read README and then type Configure."
  1907.     chmod 755 Configure
  1908.     ;;
  1909.     *)  echo "You have run$run."
  1910.     echo "You still need to run$todo."
  1911.     ;;
  1912. esac
  1913. : Someone might mail this, so...
  1914. exit
  1915.  
  1916.