home *** CD-ROM | disk | FTP | other *** search
/ Usenet 1994 October / usenetsourcesnewsgroupsinfomagicoctober1994disk2.iso / misc / volume42 / dist-3.0 / patch23 next >
Internet Message Format  |  1994-05-06  |  52KB
  1. From: Raphael Manfredi <ram@acri.fr>
  2. Newsgroups: comp.sources.misc
  3. Subject: v42i074:  dist-3.0 - Configure script generator and related tools, Patch23
  4. Date: 6 May 1994 14:15:02 -0500
  5. Organization: Advanced Computer Research Institute, Lyon, France
  6. Sender: kent@sparky.sterling.com
  7. Approved: kent@sparky.sterling.com
  8. Message-ID: <2qe4vm$46s@sparky.sterling.com>
  9. X-Md4-Signature: b46727082cbbb07b3bf59a8c47b8c0b5
  10.  
  11. Submitted-by: Raphael Manfredi <ram@acri.fr>
  12. Posting-number: Volume 42, Issue 74
  13. Archive-name: dist-3.0/patch23
  14. Environment: UNIX, Perl, RCS
  15. Patch-To: dist-3.0: Volume 39, Issue 5-32
  16.  
  17. [The latest patch for dist version 3.0 is #26.]
  18.  
  19. System: dist version 3.0
  20. Patch #: 23
  21. Priority: MEDIUM
  22. Subject: new kitpost script
  23. Subject: thanks to Andy Dougherty for his contributions
  24. Subject: from now on, Wayne Davison's changes are flagged 'WED'
  25. Subject: extended copyright notice to 1994
  26. Subject: new script kitpost
  27. Subject: created
  28. Subject: random code cleanup to follow pat tools style
  29. Subject: made configurable from dist profile
  30. Subject: now understands -V and -h options
  31. Subject: mails now flagged with a bulk precedence
  32. Subject: added X-Mailer header and now calls mailer via open()
  33. Subject: documented new -V and -h options
  34. Subject: now mentions kitpost and kitsend
  35. Subject: initials for Wayne Davison are now WED
  36. Subject: added initials for new unit contributor Andy Dougherty
  37. Subject: made sure error status from csh is propagated (WED)
  38. Subject: cppminus must be after other cppflags, not before
  39. Subject: added blank lines around 'End of Configure'
  40. Subject: getfile could be confused by file name in "locate" requests
  41. Subject: new 'p' directive to assume file is in people's path (WED)
  42. Subject: added support for osf1 hints
  43. Subject: new support for solaris and i386 systems (ADO)
  44. Subject: avoid ALIGNBYTES, since it conflicts on NetBSD
  45. Subject: added support for gcc version (ADO)
  46. Subject: -fpcc-struct-return only needed in gcc 1.x (ADO)
  47. Subject: cppflags now computed on an option-by-option basis
  48. Subject: magically added cc flags now only done the first time
  49. Subject: fixed user name computation from /etc/passwd in bsd systems
  50. Subject: login name now computed the hard way
  51. Subject: added AIX support to accept shared lib stub as termlib (WED)
  52. Subject: now also check for htonl() macro (ADO)
  53. Subject: avoid looping in the "see that again?" prompt (WED)
  54. Subject: added support for seekdir, telldir and rewinddir (ADO)
  55. Subject: ensure string is not optimized in read-only memory (ADO)
  56. Subject: new Shmat_t symbol to declare return type of shmat()
  57. Subject: fixed a typo (WED)
  58. Subject: renamed strerror into Strerror to protect name space (ADO)
  59. Subject: now explicitely ask whether vfork() should be used (ADO)
  60. Subject: protected gidtype setting via setvar (ADO)
  61. Subject: made Gid_t comment more explicit (ADO)
  62. Subject: avoid conflicts with <string.h>
  63. Subject: had forgotten cppminus in cppstdin test (ADO)
  64. Subject: added knowledge for <sys/filio.h> (WED)
  65. Subject: optimized amount of findhdr calls
  66. Subject: now include all three defines in config.h (ADO)
  67. Subject: avoid inclusion of <vfork.h> if no vfork() used (ADO)
  68. Subject: added trailing blank line for metalint
  69. Subject: added shared library knowledge (ADO and WED)
  70. Subject: now uses full library path instead of -l notation
  71. Subject: now asks for library directories to be searched (ADO)
  72. Subject: now includes ordered default libswanted variable (ADO)
  73. Subject: major cleanup for library lookups (ADO)
  74. Subject: added support for multi-state regions (WED)
  75. Subject: ensure full path value is used for rmail also
  76. Subject: added support for MYMALLOC, mainly  for perl5 (ADO)
  77. Subject: added lint hint, assuring that nroff is used
  78. Subject: added support for MMDF mailboxes (WED)
  79. Subject: ensure cc flags used when looking for prototype support
  80. Subject: signal list now formatted to avoid scroll-ups (ADO)
  81. Subject: ensure usrinc value is preserved accross sessions (WED)
  82. Subject: documented the new 'p' option in Getfile.U
  83. Subject: added -L switch to override public unit repository path
  84. Subject: two new warnings concerning last unit lines
  85. Subject: cleaned up the 'prepend' command
  86. Subject: now saves the last unit line value for metalint
  87. Subject: now warns for units ending with non-blank line
  88. Subject: warn for units where last line is not new-line terminated
  89. Subject: two new files
  90. Date: Fri May 06 17:28:44 MET DST 1994
  91. From: Raphael Manfredi <ram@acri.fr>
  92.  
  93. Description:
  94.  
  95.     Added new kitpost script to post kits. This is the pending of
  96.     kitsend, which mails kits produced by makekit.
  97.  
  98.     Getfile.U now supports a new 'p' options (WED) and is no
  99.     longer confused by the file name given for 'locate' style
  100.     requests.
  101.  
  102.     Metalint now has a new -L option. See the manual page for
  103.     more information.
  104.  
  105.     Various cleanup and integration in this set of patches. Most
  106.     contributions come from Wayne Davison (WED) and Andy Dougherty
  107.     (ADO).
  108.  
  109.     Here is a summary of Wayne Davison changes as I received them:
  110.  
  111.     In the Filexp.U unit it attempts to save off the return value of
  112.     the /bin/csh command, but only manages to save off a "0" from when
  113.     the script is unpacked.
  114.  
  115.     Added some AIX support to d_havetlib.u to have it accept a shared
  116.     library stub as the termlib.
  117.  
  118.     Twiddled d_nolnbuf.U to allow you to just press return and to
  119.     not loop on the "see that again?" prompt.
  120.  
  121.     There's a typo (of mine) in d_strccmp.U (strccmp ==> strcasecmp).
  122.  
  123.     Added a check for <sys/filio.h> to the i_sysioctl.U unit.  I
  124.     believe this file only exists on SunOS systems, and when used
  125.     in conjunction with <termios.h>, produces a runnable executable
  126.     that doesn't have lots of warnings.  Note that under SunOS you
  127.     can't use <sys/ioctl.h> with <termios.h> -- it doesn't work, and
  128.     it makes a lot of noise while it compiles.  Previously I had to
  129.     force SunOS systems to use sgtty.h with a hint file, but this
  130.     doesn't work under new SunOS 5.x systems.  From the programmer's
  131.     perspective you want to include <sys/filio.h> if I_SYS_FILIO is
  132.     defined, even if I_SYS_IOCTL is also defined.
  133.  
  134.     libc.U has been updated to search for libs that end in .so.
  135.        ditto, libs.U.
  136.  
  137.        locdist.U has been updated to prompt for the multi-state region.
  138.  
  139.     mboxchar.U was updated to accept a ^A as the first character in
  140.     a mailbox file and mention it as the MMDF standard.
  141.  
  142.     usrinc.U was updated to not replace the user's last answer to
  143.     the /usr/include question.
  144.  
  145.     Here is a summary of Andy Dougherty's changes:
  146.  
  147.  
  148.     alignbytes.U
  149.     changed to MEM_ALIGNBYTES to avoid name conflict on NetBSD.
  150.  
  151.     cc.U
  152.     Added test to see which version of gcc is being used.  (Used in
  153.     ccflags.U)
  154.    
  155.     ccflags.U
  156.     Adjust ccflags based on which version of gcc is being used.
  157.     -fpcc-struct-return is no longer needed on version 2 gcc.
  158.     
  159.     d_htonl.U
  160.     Added a test to see if htonl was defined as a macro (as it is on many
  161.     big-endian machines).  This is redundant (but reassuring) if the 
  162.     programmer uses #if defined(HAS_HTONL) || defined(htonl).
  163.     
  164.     d_readdir.U
  165.     Added tests for seekdir, rewinddir, telldir for the paranoid (like
  166.     Larry?) who don't necessarily believe that just because a system has
  167.     readdir it will have the companion routines as well.
  168.     
  169.     d_safebcpy.U
  170.     An ANSI compiler (like gcc) could put one of the strings in read-only
  171.     memory leading to a failed test even if bcpy were safe.
  172.     
  173.     d_safemcpy.U
  174.     see d_safebcpy.U.
  175.     
  176.     d_shmat.U
  177.     Check whether shmat() returns char* or void*.  I've received one report 
  178.     that this doesn't always work, but no suggested fixes.
  179.     
  180.     d_strerror.U
  181.     Rename the strerror macro to Strerror() to avoid name-space problems.
  182.     
  183.     d_vfork.U
  184.     vfork is unreliable (esp. on Solaris), according to many reports.  Add
  185.     a prompt to ask if the user actually wants to use vfork.
  186.     
  187.     gidtype.U
  188.     Improved description.
  189.     
  190.     i_memory.U
  191.     Check for conflict with string.h declarations (sometimes see char* in
  192.     one and void* in the other header file.)  Prefer string.h if it
  193.     contains the mem* declarations.
  194.     
  195.     i_pwd.U
  196.     Add missing $cppminus flag.
  197.     
  198.     i_termio.U
  199.     Be sure to include the undef'd ones as well.  This will help users
  200.     who have to fiddle with config.h in case their system has problems.
  201.     Some systems have incomplete termios.h, or have ones that 
  202.     conflict with other system headers.
  203.     
  204.     i_vfork.U
  205.     Added d_vfork dependency.  Only check if the user has (and is using)
  206.     vfork.
  207.     
  208.     libc.U
  209.     Look for shared library versions (e.g. libdl.so.1.0) in case a
  210.     non-shared version does not exist.
  211.     
  212.     libpth.U
  213.     Major changes here, mostly inspired by reported problems on Solaris.
  214.     plibpth is set to empty except on the mips.  Mainly, this is to avoid
  215.     forcing things like /usr/ucblib into the search patch.  Further,
  216.     offer the opportunity to remove directories from libpth.  A solaris
  217.     hints file could use this to remove /usr/ucblib, if needed.
  218.     
  219.     libs.U
  220.     Major changes here.  Mainly, trying to pick up shared library versions
  221.     (both SysV-style _s and SunOS-style libxx.so.1.0) even if non-shared 
  222.     ones are available.
  223.     
  224.     mallocsrc.U
  225.     Define MYMALLOC C preprocessor symbol.  Used in perl, but maybe
  226.     nowhere else.  Not sure if this is useful.
  227.     
  228.     sig_name.U
  229.     Format the listing of signal names so they don't all scroll off the
  230.     screen.
  231.  
  232.     ... End of contributions ...
  233.  
  234.     I (RAM) have taken the liberty to slightly change Andy's changes
  235.     when I thought it would be needed.
  236.  
  237.     I have also changed ccflags.U so that it now computes the cppflags
  238.     by testing for each cc flag and seeing whether cpp chokes on them
  239.     or not.
  240.  
  241.     I also included ccflags when testing for prototype support, in
  242.     case there is a C switch to manually activate/disable it.
  243.  
  244.     Other random cleanup in units. You may grep for 'patch23' in
  245.     the source code to locate all of them. A big thank you to
  246.     both Wayne and Andy for their contribution.
  247.  
  248.  
  249. Fix:    From rn, say "| patch -p -N -d DIR", where DIR is your dist source
  250.     directory.  Outside of rn, say "cd DIR; patch -p -N <thisarticle".
  251.     If you don't have the patch program, apply the following by hand,
  252.     or get patch (version 2.0, latest patchlevel).
  253.  
  254.     After patching:
  255.         *** DO NOTHING--INSTALL ALL PATCHES UP THROUGH #26 FIRST ***
  256.  
  257.     If patch indicates that patchlevel is the wrong version, you may need
  258.     to apply one or more previous patches, or the patch may already
  259.     have been applied.  See the patchlevel.h file to find out what has or
  260.     has not been applied.  In any event, don't continue with the patch.
  261.  
  262.     If you are missing previous patches they can be obtained from me:
  263.  
  264.         Raphael Manfredi <ram@acri.fr>
  265.  
  266.     If you send a mail message of the following form it will greatly speed
  267.     processing:
  268.  
  269.         Subject: Command
  270.         @SH mailpatch PATH dist 3.0 LIST
  271.                ^ note the c
  272.  
  273.     where PATH is a return path FROM ME TO YOU either in Internet notation,
  274.     or in bang notation from some well-known host, and LIST is the number
  275.     of one or more patches you need, separated by spaces, commas, and/or
  276.     hyphens.  Saying 35- says everything from 35 to the end.
  277.  
  278.     To get some more detailed instructions, send me the following mail:
  279.  
  280.         Subject: Command
  281.         @SH mailhelp PATH
  282.  
  283.  
  284. Index: patchlevel.h
  285. Prereq: 22
  286. 4c4
  287. < #define PATCHLEVEL 22
  288. ---
  289. > #define PATCHLEVEL 23
  290.  
  291. Index: kit/kitpost.SH
  292. *** kit/kitpost.SH.old    Fri May  6 17:28:06 1994
  293. --- kit/kitpost.SH    Fri May  6 17:28:06 1994
  294. ***************
  295. *** 0 ****
  296. --- 1,234 ----
  297. + case $CONFIG in
  298. + '')
  299. +     if test -f config.sh; then TOP=.;
  300. +     elif test -f ../config.sh; then TOP=..;
  301. +     elif test -f ../../config.sh; then TOP=../..;
  302. +     elif test -f ../../../config.sh; then TOP=../../..;
  303. +     elif test -f ../../../../config.sh; then TOP=../../../..;
  304. +     else
  305. +         echo "Can't find config.sh."; exit 1
  306. +     fi
  307. +     . $TOP/config.sh
  308. +     ;;
  309. + esac
  310. + case "$0" in
  311. + */*) cd `expr X$0 : 'X\(.*\)/'` ;;
  312. + esac
  313. + echo "Extracting kit/kitpost (with variable substitutions)"
  314. + cat >kitpost <<!GROK!THIS!
  315. + $startperl
  316. +     eval "exec perl -S \$0 \$*"
  317. +         if \$running_under_some_shell;
  318. + 
  319. + # $Id: kitpost.SH,v 3.0.1.1 1994/05/06 13:54:53 ram Exp $
  320. + #
  321. + #  Copyright (c) 1991-1993, Raphael Manfredi
  322. + #  
  323. + #  You may redistribute only under the terms of the Artistic Licence,
  324. + #  as specified in the README file that comes with the distribution.
  325. + #  You may reuse parts of this distribution only within the terms of
  326. + #  that same Artistic Licence; a copy of which may be found at the root
  327. + #  of the source tree for dist 3.0.
  328. + #
  329. + # $Log: kitpost.SH,v $
  330. + # Revision 3.0.1.1  1994/05/06  13:54:53  ram
  331. + # patch23: created
  332. + #
  333. + 
  334. + \$inews='${inews-/usr/lib/news/inews}';
  335. + \$mailer='$mailer';
  336. + \$orgname='$orgname';
  337. + \$version = '$VERSION';
  338. + \$patchlevel = '$PATCHLEVEL';
  339. + !GROK!THIS!
  340. + 
  341. + cat >>kitpost <<'!NO!SUBS!'
  342. + 
  343. + $progname = &profile;    # Read ~/.dist_profile
  344. + require 'getopts.pl';
  345. + &usage unless $#ARGV >= 0;
  346. + &usage unless &Getopts("hrVm:D:H:");
  347. + 
  348. + if ($opt_V) {
  349. +     print STDERR "$progname $version PL$patchlevel\n";
  350. +     exit 0;
  351. + } elsif ($opt_h) {
  352. +     &usage;
  353. + }
  354. + 
  355. + $RCSEXT = ',v' unless $RCSEXT;
  356. + if ($inews eq 'inews') {
  357. +     $inews = '/usr/lib/news/inews' if -f '/usr/lib/news/inews';
  358. + }
  359. + 
  360. + chdir '..' if -d '../bugs';
  361. + 
  362. + &readpackage;
  363. + 
  364. + $orgname = &tilda_expand($orgname);
  365. + chop($orgname = `cat $orgname`) if $orgname =~ m|^/|;
  366. + 
  367. + if ($opt_r) {
  368. +     $repost = ' (REPOST)';
  369. + }
  370. + 
  371. + while ($_ = shift) {
  372. +     if (/^(kit)?[1-9][\d\-]*$/) {
  373. +         s/^kit//;
  374. +         push(@argv,$_);
  375. +     } else {
  376. +         push(@ngroups,$_);
  377. +     }
  378. + }
  379. + $ngroups = join(',',@ngroups) unless $#ngroups < 0;
  380. + $dest = $opt_m;
  381. + &usage unless $ngroups || $dest;
  382. + 
  383. + @ARGV = @argv;
  384. + 
  385. + if (-f "$package.kit10") {
  386. +     @filelist = <$package.kit[0-9][0-9]>;
  387. + }
  388. + else {
  389. +     @filelist = <$package.kit[0-9]>;
  390. + }
  391. + pop(@filelist) =~ /(\d+)$/ && ($maxnum = $1 + 0);
  392. + 
  393. + if ($#ARGV < 0) {
  394. +     $argv = "1-$maxnum";
  395. +     @ARGV = $argv;
  396. + }
  397. + 
  398. + $argv = &rangeargs(@ARGV);
  399. + @ARGV = split(' ', $argv);
  400. + 
  401. + $argv =~ s/ $//;
  402. + 
  403. + if ($#ARGV < 0) {
  404. +     print STDERR "$progname: no kits specified.\n";
  405. +     &usage;
  406. + } else {
  407. +     local($s) = $#ARGV ? 's' : '';
  408. +     print "$progname: posting $package $baserev kit$s $argv to $ngroups...\n"
  409. +         if $ngroups;
  410. +     print "$progname: mailing $package $baserev kit$s $argv to $dest...\n"
  411. +         if $dest;
  412. + }
  413. + 
  414. + $desc = "$opt_D, " if $opt_D;
  415. + 
  416. + fork && exit;
  417. + 
  418. + # Compute a suitable root message ID that all parts will reference, so that
  419. + # threaded news readers will correctly process them.
  420. + # Unfortunately, this works only when all kits are sent.
  421. + ($sec, $min, $hour, $mday, $mon, $year, $wday, $yday, $isdst) =
  422. +     localtime(time);
  423. + $mon++;
  424. + $rootid = "$year$mon$mday$hour$min$sec.AA$$";
  425. + $first = $maxnum >= 10 ? "01" : "1";
  426. + $rootmsgid = "<$rootid.P$first.$maintloc>";
  427. + 
  428. + until ($#ARGV < 0) {
  429. +     $kitnum = shift;
  430. +     $kitnum = "0$kitnum" if $kitnum < 10 && $maxnum >= 10;
  431. +     open(FILE, "$package.kit$kitnum") ||
  432. +         die "$progname: can't open $package.kit$kitnum: $!\n";
  433. +     if ($ngroups) {
  434. +         open(INEWS,"|$inews -h") || die "$progname: can't fork $inews: $!\n";
  435. +     }
  436. +     if ($dest) {
  437. +         $opt = '-odq' if $mailer =~ /sendmail/;
  438. +         $dest =~ s/,/ /g;
  439. +         ($to = $dest) =~ s/\s+/, /g;
  440. +         open(MAILER,"|$mailer $opt $dest") ||
  441. +             die "$progname: can't fork $mailer: $!\n";
  442. +     }
  443. + 
  444. +     $msg_id = "<$rootid.P$kitnum.$maintloc>";
  445. +     $msg_id = $rootmsgid if $kitnum == 1;
  446. +     $msg_id .= "\nReferences: $rootmsgid" if $kitnum != 1;
  447. + 
  448. +     print INEWS "Newsgroups: $ngroups\n";
  449. +     print MAILER "To: $to\n";
  450. + $head = <<EOH;
  451. + Subject: $package $baserev - ${desc}part$kitnum/$maxnum$repost
  452. + Message-ID: $msg_id
  453. + Organization: $orgname
  454. + 
  455. + Submitted-by: $maintname <$maintloc>
  456. + Archive-name: $package-$baserev/part$kitnum
  457. + Environment: UNIX
  458. + 
  459. + EOH
  460. +     print INEWS $head;
  461. +     print MAILER $head;
  462. + 
  463. +     if ($kitnum == 1 && $opt_H) {
  464. +         open(HEAD, $opt_H) || warn "$progname: can't open $opt_H: $!\n";
  465. +         while (<HEAD>) {
  466. +             print INEWS;
  467. +             print MAILER;
  468. +         }
  469. +         close HEAD;
  470. +     }
  471. + 
  472. +     while (<FILE>) {
  473. +         print INEWS;
  474. +         print MAILER;
  475. +     }
  476. +     close FILE;
  477. +     close INEWS;
  478. +     die "$progname: could not post part$kitnum.\n" if $ngroups && $?;
  479. +     close MAILER;
  480. +     die "$progname: could not send part$kitnum.\n" if $dest && $?;
  481. + }
  482. + 
  483. + sub usage {
  484. +     print STDERR <<EOM;
  485. + Usage: $progname [-hrV] [-H file] [-D desc] [-m dest1,dest2] [kits] [newsgroups]
  486. +   -h : print this message and exit
  487. +   -m : set-up recipients for (additional) mailing
  488. +   -r : signals a repost
  489. +   -D : specify description string for subject line
  490. +   -H : specify file to be used as header for first part
  491. +   -V : print version number and exit
  492. + EOM
  493. +     exit 1;
  494. + }
  495. + 
  496. + sub rangeargs {
  497. +     local($result) = '';
  498. +     local($min,$max,$_);
  499. +     while ($#_ >= 0) {
  500. +         $_ = shift(@_);
  501. +         while (/^\s*\d/) {
  502. +             s/^\s*(\d+)//;
  503. +             $min = $1;
  504. +             if (s/^,//) {
  505. +                 $max = $min;
  506. +             }
  507. +             elsif (s/^-(\d*)//) {
  508. +                 $max = $1;
  509. +                 if ($max == 0 && $maxnum) {
  510. +                     $max = $maxnum;
  511. +                 }
  512. +                 s/^[^,],?//;
  513. +             }
  514. +             else {
  515. +                 $max = $min;
  516. +             }
  517. +             for ($i = $min; $i <= $max; ++$i) {
  518. +                 $result .= $i . ' ';
  519. +             }
  520. +         }
  521. +     }
  522. +     $result;
  523. + }
  524. + 
  525. + !NO!SUBS!
  526. + $grep -v '^;#' ../pl/package.pl >>kitpost
  527. + $grep -v '^;#' ../pl/tilde.pl >>kitpost
  528. + $grep -v '^;#' ../pl/profile.pl >>kitpost
  529. + chmod +x kitpost
  530. + $eunicefix kitpost
  531.  
  532. Index: mcon/U/i_sysioctl.U
  533. Prereq: 3.0.1.1
  534. *** mcon/U/i_sysioctl.U.old    Fri May  6 17:28:24 1994
  535. --- mcon/U/i_sysioctl.U    Fri May  6 17:28:24 1994
  536. ***************
  537. *** 1,4 ****
  538. ! ?RCS: $Id: i_sysioctl.U,v 3.0.1.1 1993/11/10 17:36:09 ram Exp $
  539.   ?RCS:
  540.   ?RCS: Copyright (c) 1991-1993, Raphael Manfredi
  541.   ?RCS: 
  542. --- 1,4 ----
  543. ! ?RCS: $Id: i_sysioctl.U,v 3.0.1.2 1994/05/06 15:04:57 ram Exp $
  544.   ?RCS:
  545.   ?RCS: Copyright (c) 1991-1993, Raphael Manfredi
  546.   ?RCS: 
  547. ***************
  548. *** 9,28 ****
  549.   ?RCS: of the source tree for dist 3.0.
  550.   ?RCS:
  551.   ?RCS: $Log: i_sysioctl.U,v $
  552.   ?RCS: Revision 3.0.1.1  1993/11/10  17:36:09  ram
  553.   ?RCS: patch14: now use a compiler check for TIOCNOTTY because of HP-UX 9.x
  554.   ?RCS:
  555.   ?RCS: Revision 3.0  1993/08/18  12:08:32  ram
  556.   ?RCS: Baseline for dist 3.0 netwide release.
  557.   ?RCS:
  558. ! ?MAKE:i_sysioctl i_bsdioctl i_syssockio d_voidtty: test contains cat \
  559. !     i_termio i_termios i_sgtty Setvar Findhdr +cc rm
  560.   ?MAKE:    -pick add $@ %<
  561.   ?S:i_sysioctl:
  562.   ?S:    This variable conditionally defines the I_SYS_IOCTL symbol, which
  563.   ?S:    indicates to the C program that <sys/ioctl.h> exists and should
  564.   ?S:    be included.
  565.   ?S:.
  566.   ?S:i_bsdioctl:
  567.   ?S:    This variable conditionally defines the I_SYS_BSDIOCTL symbol, which
  568.   ?S:    indicates to the C program that <sys/bsdioctl.h> exists and should
  569. --- 9,37 ----
  570.   ?RCS: of the source tree for dist 3.0.
  571.   ?RCS:
  572.   ?RCS: $Log: i_sysioctl.U,v $
  573. + ?RCS: Revision 3.0.1.2  1994/05/06  15:04:57  ram
  574. + ?RCS: patch23: added knowledge for <sys/filio.h> (WED)
  575. + ?RCS: patch23: optimized amount of findhdr calls
  576. + ?RCS:
  577.   ?RCS: Revision 3.0.1.1  1993/11/10  17:36:09  ram
  578.   ?RCS: patch14: now use a compiler check for TIOCNOTTY because of HP-UX 9.x
  579.   ?RCS:
  580.   ?RCS: Revision 3.0  1993/08/18  12:08:32  ram
  581.   ?RCS: Baseline for dist 3.0 netwide release.
  582.   ?RCS:
  583. ! ?MAKE:i_sysioctl i_bsdioctl i_sysfilio i_syssockio d_voidtty: test contains \
  584. !     cat i_termio i_termios i_sgtty Setvar Findhdr +cc rm Inhdr
  585.   ?MAKE:    -pick add $@ %<
  586.   ?S:i_sysioctl:
  587.   ?S:    This variable conditionally defines the I_SYS_IOCTL symbol, which
  588.   ?S:    indicates to the C program that <sys/ioctl.h> exists and should
  589.   ?S:    be included.
  590.   ?S:.
  591. + ?S:i_sysfilio:
  592. + ?S:    This variable conditionally defines the I_SYS_FILIO symbol, which
  593. + ?S:    indicates to the C program that <sys/filio.h> exists and should
  594. + ?S:    be included in preference to <sys/ioctl.h>.
  595. + ?S:.
  596.   ?S:i_bsdioctl:
  597.   ?S:    This variable conditionally defines the I_SYS_BSDIOCTL symbol, which
  598.   ?S:    indicates to the C program that <sys/bsdioctl.h> exists and should
  599. ***************
  600. *** 43,48 ****
  601. --- 52,61 ----
  602.   ?C:    This symbol, if defined, indicates that <sys/ioctl.h> exists and should
  603.   ?C:    be included. Otherwise, include <sgtty.h> or <termio.h>.
  604.   ?C:.
  605. + ?C:I_SYS_FILIO:
  606. + ?C:    This symbol, if defined, indicates that <sys/filio.h> exists and
  607. + ?C:    should be included instead of <sys/ioctl.h>.
  608. + ?C:.
  609.   ?C:I_SYS_BSDIOCTL (I_BSDIOCTL):
  610.   ?C:    This symbol, if defined, indicates that <sys/bsdioctl.h> exists and should
  611.   ?C:    be included. Otherwise, try <sys/ioctl.h>. This is primarly intended for
  612. ***************
  613. *** 59,80 ****
  614.   ?C:    decriptors and do a setpgrp().
  615.   ?C:.
  616.   ?H:#$i_sysioctl    I_SYS_IOCTL        /**/
  617.   ?H:#$i_bsdioctl    I_SYS_BSDIOCTL        /**/
  618.   ?H:#$i_syssockio I_SYS_SOCKIO    /**/
  619.   ?H:#$d_voidtty USE_TIOCNOTTY    /**/
  620.   ?H:.
  621.   ?T:xxx
  622. ! : see if ioctl defs are in sgtty/termio or sys/ioctl
  623.   echo " "
  624.   if $test `./findhdr sys/ioctl.h`; then
  625.       val="$define"
  626. !     echo "<sys/ioctl.h> found." >&4
  627.   else
  628.       val="$undef"
  629. !     $test $i_termio = "$define" && xxx="termio.h"
  630. !     $test $i_termios = "$define" && xxx="termios.h"
  631. !     $test $i_sgtty = "$define" && xxx="sgtty.h"
  632.   echo "No <sys/ioctl.h> found, assuming ioctl args are defined in <$xxx>." >&4
  633.   fi
  634.   ?LINT:set i_sysioctl
  635.   set i_sysioctl
  636. --- 72,101 ----
  637.   ?C:    decriptors and do a setpgrp().
  638.   ?C:.
  639.   ?H:#$i_sysioctl    I_SYS_IOCTL        /**/
  640. + ?H:#$i_sysfilio    I_SYS_FILIO        /**/
  641.   ?H:#$i_bsdioctl    I_SYS_BSDIOCTL        /**/
  642.   ?H:#$i_syssockio I_SYS_SOCKIO    /**/
  643.   ?H:#$d_voidtty USE_TIOCNOTTY    /**/
  644.   ?H:.
  645.   ?T:xxx
  646. ! : see if ioctl defs are in sgtty, termio, sys/filio or sys/ioctl
  647. ! ?LINT:set i_sysfilio
  648. ! set sys/filio.h i_sysfilio
  649. ! eval $inhdr
  650.   echo " "
  651.   if $test `./findhdr sys/ioctl.h`; then
  652.       val="$define"
  653. !     echo '<sys/ioctl.h> found.' >&4
  654.   else
  655.       val="$undef"
  656. !     if $test $i_sysfilio = "$define"; then
  657. !         echo '<sys/ioctl.h> NOT found.' >&4
  658. !     else
  659. !         $test $i_sgtty = "$define" && xxx="sgtty.h"
  660. !         $test $i_termio = "$define" && xxx="termio.h"
  661. !         $test $i_termios = "$define" && xxx="termios.h"
  662.   echo "No <sys/ioctl.h> found, assuming ioctl args are defined in <$xxx>." >&4
  663. +     fi
  664.   fi
  665.   ?LINT:set i_sysioctl
  666.   set i_sysioctl
  667. ***************
  668. *** 87,94 ****
  669.   ?X:
  670.   : see if socket ioctl defs are in sys/bsdioctl or sys/ioctl
  671.   echo " "
  672. ! if $test `./findhdr sys/bsdioctl.h`; then
  673. !     if $contains SIOCATMARK `./findhdr sys/bsdioctl.h` >/dev/null 2>&1; then
  674.           val="$define"
  675.           echo "You have socket ioctls defined in <sys/bsdioctl.h>." >&4
  676.       else
  677. --- 108,116 ----
  678.   ?X:
  679.   : see if socket ioctl defs are in sys/bsdioctl or sys/ioctl
  680.   echo " "
  681. ! xxx=`./findhdr sys/bsdioctl.h`
  682. ! if $test "$xxx"; then
  683. !     if $contains SIOCATMARK $xxx >/dev/null 2>&1; then
  684.           val="$define"
  685.           echo "You have socket ioctls defined in <sys/bsdioctl.h>." >&4
  686.       else
  687. ***************
  688. *** 107,114 ****
  689.   @if I_SYSSOCKIO || i_syssockio
  690.   : see if socket ioctl defs are in sys/sockio.h
  691.   echo " "
  692. ! if $test `./findhdr sys/sockio.h`; then
  693. !     if $contains SIOCATMARK `./findhdr sys/sockio.h` >/dev/null 2>&1; then
  694.           val="$define"
  695.           echo "You have socket ioctls defined in <sys/sockio.h>." >&4
  696.       else
  697. --- 129,137 ----
  698.   @if I_SYSSOCKIO || i_syssockio
  699.   : see if socket ioctl defs are in sys/sockio.h
  700.   echo " "
  701. ! xxx=`./findhdr sys/sockio.h`
  702. ! if $test "$xxx"; then
  703. !     if $contains SIOCATMARK $xxx >/dev/null 2>&1; then
  704.           val="$define"
  705.           echo "You have socket ioctls defined in <sys/sockio.h>." >&4
  706.       else
  707.  
  708. Index: mcon/U/ccflags.U
  709. Prereq: 3.0.1.3
  710. *** mcon/U/ccflags.U.old    Fri May  6 17:28:14 1994
  711. --- mcon/U/ccflags.U    Fri May  6 17:28:15 1994
  712. ***************
  713. *** 1,4 ****
  714. ! ?RCS: $Id: ccflags.U,v 3.0.1.3 1993/09/13 15:58:29 ram Exp $
  715.   ?RCS:
  716.   ?RCS: Copyright (c) 1991-1993, Raphael Manfredi
  717.   ?RCS: 
  718. --- 1,4 ----
  719. ! ?RCS: $Id: ccflags.U,v 3.0.1.4 1994/05/06 14:28:45 ram Exp $
  720.   ?RCS:
  721.   ?RCS: Copyright (c) 1991-1993, Raphael Manfredi
  722.   ?RCS: 
  723. ***************
  724. *** 9,14 ****
  725. --- 9,19 ----
  726.   ?RCS: of the source tree for dist 3.0.
  727.   ?RCS:
  728.   ?RCS: $Log: ccflags.U,v $
  729. + ?RCS: Revision 3.0.1.4  1994/05/06  14:28:45  ram
  730. + ?RCS: patch23: -fpcc-struct-return only needed in gcc 1.x (ADO)
  731. + ?RCS: patch23: cppflags now computed on an option-by-option basis
  732. + ?RCS: patch23: magically added cc flags now only done the first time
  733. + ?RCS:
  734.   ?RCS: Revision 3.0.1.3  1993/09/13  15:58:29  ram
  735.   ?RCS: patch10: explicitely mention -DDEBUG just in case they need it (WAD)
  736.   ?RCS: patch10: removed all the "tans" variable usage (WAD)
  737. ***************
  738. *** 23,29 ****
  739.   ?RCS: Baseline for dist 3.0 netwide release.
  740.   ?RCS:
  741.   ?MAKE:ccflags ldflags lkflags cppflags optimize: test cat Myread Guess \
  742. !     Oldconfig +cc mips_type +usrinc package contains
  743.   ?MAKE:    -pick add $@ %<
  744.   ?S:ccflags:
  745.   ?S:    This variable contains any additional C compiler flags desired by
  746. --- 28,35 ----
  747.   ?RCS: Baseline for dist 3.0 netwide release.
  748.   ?RCS:
  749.   ?MAKE:ccflags ldflags lkflags cppflags optimize: test cat Myread Guess \
  750. !     Oldconfig +cc +gccversion mips_type +usrinc package contains rm \
  751. !     cppstdin cppminus cpprun cpplast
  752.   ?MAKE:    -pick add $@ %<
  753.   ?S:ccflags:
  754.   ?S:    This variable contains any additional C compiler flags desired by
  755. ***************
  756. *** 45,51 ****
  757.   ?S:    This variable contains any additional C partial linker flags desired by
  758.   ?S:    the user.  It is up to the Makefile to use this.
  759.   ?S:.
  760. ! ?T:inctest thisincl xxx flag inclwanted
  761.   ?D:cppflags=''
  762.   ?D:ccflags=''
  763.   ?D:ldflags=''
  764. --- 51,57 ----
  765.   ?S:    This variable contains any additional C partial linker flags desired by
  766.   ?S:    the user.  It is up to the Makefile to use this.
  767.   ?S:.
  768. ! ?T:inctest thisincl xxx flag inclwanted ftry previous
  769.   ?D:cppflags=''
  770.   ?D:ccflags=''
  771.   ?D:ldflags=''
  772. ***************
  773. *** 54,61 ****
  774.   ?INIT:
  775.   : determine optimize, if desired, or use for debug flag also
  776.   case "$optimize" in
  777. ! ' ') dflt="none";;
  778. ! '') dflt="-O";;
  779.   *) dflt="$optimize";;
  780.   esac
  781.   $cat <<EOH
  782. --- 60,67 ----
  783.   ?INIT:
  784.   : determine optimize, if desired, or use for debug flag also
  785.   case "$optimize" in
  786. ! ' ') dflt='none';;
  787. ! '') dflt='-O';;
  788.   *) dflt="$optimize";;
  789.   esac
  790.   $cat <<EOH
  791. ***************
  792. *** 74,83 ****
  793.   'none') optimize=" ";;
  794.   esac
  795.   
  796.   case "$ccflags" in
  797.   '')    case "$cc" in
  798. !     *gcc*) dflt='-fpcc-struct-return';;
  799. !     *) dflt='';;
  800.       esac
  801.       case "$optimize" in
  802.       *-g*) dflt="$dflt -DDEBUG";;
  803. --- 80,93 ----
  804.   'none') optimize=" ";;
  805.   esac
  806.   
  807. + dflt=''
  808.   case "$ccflags" in
  809.   '')    case "$cc" in
  810. !     *gcc*)
  811. !         if $test "$gccversion" = '1'; then
  812. !             dflt='-fpcc-struct-return'
  813. !         fi
  814. !         ;;
  815.       esac
  816.       case "$optimize" in
  817.       *-g*) dflt="$dflt -DDEBUG";;
  818. ***************
  819. *** 92,98 ****
  820.           ;;
  821.       esac
  822.       ;;
  823. - *) dflt="$ccflags" ;;
  824.   esac
  825.   
  826.   ?X: In USG mode, a MIPS system may need some BSD includes
  827. --- 102,107 ----
  828. ***************
  829. *** 142,147 ****
  830. --- 151,160 ----
  831.   case "$dflt" in
  832.   '') dflt=none;;
  833.   esac
  834. + case "$ccflags" in
  835. + '') ;;
  836. + *) dflt="$ccflags";;
  837. + esac
  838.   $cat <<EOH
  839.   
  840.   Your C compiler may want other flags.  For this question you should include
  841. ***************
  842. *** 165,171 ****
  843.   : the following weeds options from ccflags that are of no interest to cpp
  844.   cppflags="$ccflags"
  845.   case "$cc" in
  846. ! *gcc*) cppflags="$cppflags -D__GNUC__";;
  847.   esac
  848.   case "$mips_type" in
  849.   '');;
  850. --- 178,188 ----
  851.   : the following weeds options from ccflags that are of no interest to cpp
  852.   cppflags="$ccflags"
  853.   case "$cc" in
  854. ! *gcc*)
  855. !     if $test "$gccversion" = "1"; then
  856. !         cppflags="$cppflags -D__GNUC__"
  857. !     fi
  858. !     ;;
  859.   esac
  860.   case "$mips_type" in
  861.   '');;
  862. ***************
  863. *** 173,189 ****
  864.   esac
  865.   case "$cppflags" in
  866.   '');;
  867. ! *)  set X $cppflags
  868.       cppflags=''
  869. !     for flag
  870.       do
  871. !         case $flag in
  872. !         -D*|-I*|-traditional|-ansi|-nostdinc) cppflags="$cppflags $flag";;
  873.           esac
  874.       done
  875.       case "$cppflags" in
  876. !     *-*)  echo "(C preprocessor flags: $cppflags)";;
  877.       esac
  878.       ;;
  879.   esac
  880.   
  881. --- 190,238 ----
  882.   esac
  883.   case "$cppflags" in
  884.   '');;
  885. ! *)
  886. !     echo " "
  887. !     echo "Let me guess what the preprocessor flags are..." >&4
  888. !     set X $cppflags
  889. !     shift
  890.       cppflags=''
  891. !     $cat >cpp.c <<'EOM'
  892. ! #define BLURFL foo
  893. ! 
  894. ! BLURFL xx LFRULB
  895. ! EOM
  896. ! ?X:
  897. ! ?X: For each cc flag, try it out with both cppstdin and cpprun, since the
  898. ! ?X: first is almost surely a cc wrapper. We have to try both in case
  899. ! ?X: of cc flags like '-Olimit 2900' that are actually two words...
  900. ! ?X:
  901. !     previous=''
  902. !     for flag in $*
  903.       do
  904. !         case "$flag" in
  905. !         -*) ftry="$flag";;
  906. !         *) ftry="$previous $flag";;
  907.           esac
  908. +         if $cppstdin -DLFRULB=bar $ftry $cppminus <cpp.c \
  909. +             >cpp1.out 2>/dev/null && \
  910. +             $cpprun -DLFRULB=bar $ftry $cpplast <cpp.c \
  911. +             >cpp2.out 2>/dev/null && \
  912. +             $contains 'foo.*xx.*bar' cpp1.out >/dev/null 2>&1 && \
  913. +             $contains 'foo.*xx.*bar' cpp2.out >/dev/null 2>&1
  914. +         then
  915. +             cppflags="$cppflags $ftry"
  916. +             previous=''
  917. +         else
  918. +             previous="$flag"
  919. +         fi
  920.       done
  921. +     set X $cppflags
  922. +     shift
  923. +     cppflags=${1+"$@"}
  924.       case "$cppflags" in
  925. !     *-*)  echo "They appear to be: $cppflags";;
  926.       esac
  927. +     $rm -f cpp.c cpp?.out
  928.       ;;
  929.   esac
  930.   
  931. ***************
  932. *** 220,226 ****
  933.   . ./myread
  934.   case "$ans" in
  935.   none) lkflags='';;
  936. ! *)    lkflags="$ans";;
  937.   esac
  938.   
  939.   @end
  940. --- 269,275 ----
  941.   . ./myread
  942.   case "$ans" in
  943.   none) lkflags='';;
  944. ! *) lkflags="$ans";;
  945.   esac
  946.   
  947.   @end
  948.  
  949. Index: mcon/U/libs.U
  950. Prereq: 3.0.1.1
  951. *** mcon/U/libs.U.old    Fri May  6 17:28:29 1994
  952. --- mcon/U/libs.U    Fri May  6 17:28:29 1994
  953. ***************
  954. *** 1,4 ****
  955. ! ?RCS: $Id: libs.U,v 3.0.1.1 1993/08/25 14:02:31 ram Exp $
  956.   ?RCS:
  957.   ?RCS: Copyright (c) 1991-1993, Raphael Manfredi
  958.   ?RCS: 
  959. --- 1,4 ----
  960. ! ?RCS: $Id: libs.U,v 3.0.1.2 1994/05/06 15:08:45 ram Exp $
  961.   ?RCS:
  962.   ?RCS: Copyright (c) 1991-1993, Raphael Manfredi
  963.   ?RCS: 
  964. ***************
  965. *** 9,30 ****
  966.   ?RCS: of the source tree for dist 3.0.
  967.   ?RCS:
  968.   ?RCS: $Log: libs.U,v $
  969.   ?RCS: Revision 3.0.1.1  1993/08/25  14:02:31  ram
  970.   ?RCS: patch6: added default for libs
  971.   ?RCS:
  972.   ?RCS: Revision 3.0  1993/08/18  12:09:03  ram
  973.   ?RCS: Baseline for dist 3.0 netwide release.
  974.   ?RCS:
  975. ! ?MAKE:libs: test cat Myread Oldconfig Loc libpth incpath package xlibpth
  976.   ?MAKE:    -pick add $@ %<
  977.   ?S:libs:
  978.   ?S:    This variable holds the additional libraries we want to use.
  979.   ?S: It is up to the Makefile to deal with it.
  980.   ?S:.
  981. ! ?T:xxx yyy thislib thatlib libswanted
  982.   ?D:libs=''
  983. ! ?INIT:: no additional library wanted by default
  984. ! ?INIT:libswanted=''
  985.   ?INIT:
  986.   : Looking for optional libraries
  987.   echo " "
  988. --- 9,48 ----
  989.   ?RCS: of the source tree for dist 3.0.
  990.   ?RCS:
  991.   ?RCS: $Log: libs.U,v $
  992. + ?RCS: Revision 3.0.1.2  1994/05/06  15:08:45  ram
  993. + ?RCS: patch23: now includes ordered default libswanted variable (ADO)
  994. + ?RCS: patch23: major cleanup for library lookups (ADO)
  995. + ?RCS:
  996.   ?RCS: Revision 3.0.1.1  1993/08/25  14:02:31  ram
  997.   ?RCS: patch6: added default for libs
  998.   ?RCS:
  999.   ?RCS: Revision 3.0  1993/08/18  12:09:03  ram
  1000.   ?RCS: Baseline for dist 3.0 netwide release.
  1001.   ?RCS:
  1002. ! ?MAKE:libs: test cat Myread Oldconfig Loc libpth package xlibpth
  1003.   ?MAKE:    -pick add $@ %<
  1004.   ?S:libs:
  1005.   ?S:    This variable holds the additional libraries we want to use.
  1006.   ?S: It is up to the Makefile to deal with it.
  1007.   ?S:.
  1008. ! ?T:xxx yyy zzz thislib thatlib libswanted
  1009.   ?D:libs=''
  1010. ! ?X:
  1011. ! ?X: This order is chosen so that libraries  -lndir, -ldir, -lucb, -lbsd,
  1012. ! ?X: -lBSD, -lPW, and -lx only get used if there are unresolved
  1013. ! ?X: routines at link time.  Usually, these are backwards compatability
  1014. ! ?X: libraries, and may not be as reliable as the standard c library.
  1015. ! ?X:
  1016. ! ?X: The -lsocket -linet -lnsl order has been reported to be necessary
  1017. ! ?X: for at least one SVR4 implementation.
  1018. ! ?X:
  1019. ! ?X: The ordering of c_s, posix, and cposix is a guess and almost
  1020. ! ?X: certainly wrong on about half of all systems.
  1021. ! ?X:
  1022. ! ?INIT:: default ordered library list
  1023. ! ?INIT:libswanted='net socket inet nsl nm sdbm gdbm ndbm dbm malloc dl'
  1024. ! ?INIT:libswanted="$libswanted dld sun m c_s posix cposix ndir dir ucb"
  1025. ! ?INIT:libswanted="$libswanted bsd BSD PW x"
  1026.   ?INIT:
  1027.   : Looking for optional libraries
  1028.   echo " "
  1029. ***************
  1030. *** 41,75 ****
  1031.       dbm) thatlib=ndbm;;
  1032.       *_s) thatlib=NONE;;
  1033.       *) thatlib="${thislib}_s";;
  1034. -     *) thatlib=NONE;;
  1035.       esac
  1036. !     yyy="$incpath/usr/ccs/lib $incpath/usr/lib $incpath/usr/ucblib"
  1037. !     yyy="$yyy $incpath/usr/local/lib $incpath/lib"
  1038. !     xxx=`./loc lib$thislib.a X $yyy`
  1039.       if $test -f $xxx; then
  1040.           echo "Found -l$thislib."
  1041. !         case "$dflt" in
  1042. !         *-l$thislib*|*-l$thatlib*);;
  1043.           *) dflt="$dflt -l$thislib";;
  1044.           esac
  1045.       else
  1046. !         xxx=`./loc lib$thislib.a X $libpth`
  1047.           if $test -f $xxx; then
  1048. !             echo "Found $xxx."
  1049. !             case "$dflt" in
  1050. !             *$xxx*);;
  1051. !             *) dflt="$dflt $xxx";;
  1052.               esac
  1053.           else
  1054. !             xxx=`./loc Slib$thislib.a X $xlibpth`
  1055.               if $test -f $xxx; then
  1056. !                 echo "Found -l$thislib."
  1057. !                 case "$dflt" in
  1058. !                 *-l$thislib*|*-l$thatlib*);;
  1059.                   *) dflt="$dflt -l$thislib";;
  1060.                   esac
  1061.               else
  1062. !                 echo "No -l$thislib."
  1063.               fi
  1064.           fi
  1065.       fi
  1066. --- 59,126 ----
  1067.       dbm) thatlib=ndbm;;
  1068.       *_s) thatlib=NONE;;
  1069.       *) thatlib="${thislib}_s";;
  1070.       esac
  1071. !     xxx=`./loc lib$thislib.a X $libpth`
  1072. !     yyy=`./loc lib$thatlib.a X $libpth`
  1073. !     zzz=`./loc lib$thislib.so.[0-9]'*' X $libpth`
  1074. ! ?X:
  1075. ! ?X: Comparaisons via case statement use the string " $dflt " to ensure that
  1076. ! ?X: each library is separated by a space. That way, by looking to something
  1077. ! ?X: like *"-l$thatlib "*, we ensure we find -lm and not -lmalloc (which was
  1078. ! ?X: the case with the old looking pattern *-l$thatlib*.
  1079. ! ?X:
  1080.       if $test -f $xxx; then
  1081.           echo "Found -l$thislib."
  1082. !         case " $dflt " in
  1083. !         *"-l$thislib "*|*"-l$thatlib "*);;
  1084. !         *) dflt="$dflt -l$thislib";;
  1085. !         esac
  1086. !     elif $test -f $yyy; then
  1087. !         echo "Found -l$thatlib."
  1088. !         case " $dflt " in
  1089. !         *"-l$thatlib "*);;
  1090. !         *) dflt="$dflt -l$thatlib";;
  1091. !         esac
  1092. !     elif $test -f $zzz; then
  1093. !         echo "Found -l$thislib (shared only)."
  1094. !         case " $dflt " in
  1095. !         *"-l$thislib "*|*"-l$thatlib "*);;
  1096.           *) dflt="$dflt -l$thislib";;
  1097.           esac
  1098.       else
  1099. !         xxx=`./loc Slib$thislib.a X $xlibpth`
  1100. !         yyy=`./loc Slib$thatlib.a X $xlibpth`
  1101.           if $test -f $xxx; then
  1102. !             echo "Found -l$thislib."
  1103. !             case " $dflt " in
  1104. !             *"-l$thislib "*|*"-l$thatlib "*);;
  1105. !             *) dflt="$dflt -l$thislib";;
  1106. !             esac
  1107. !         elif $test -f $yyy; then
  1108. !             echo "Found -l$thatlib."
  1109. !             case " $dflt " in
  1110. !             *"-l$thatlib "*);;
  1111. !             *) dflt="$dflt -l$thatlib";;
  1112.               esac
  1113.           else
  1114. !             xxx=`./loc lib$thislib.so X $libpth`
  1115.               if $test -f $xxx; then
  1116. !                 echo "Found -l$thislib (shared only)."
  1117. !                 case " $dflt " in
  1118. !                 *"-l$thislib "*|*"-l$thatlib "*);;
  1119.                   *) dflt="$dflt -l$thislib";;
  1120.                   esac
  1121.               else
  1122. !                 xxx=`./loc lib$thislib.so X $libpth`
  1123. !                 if $test -f $xxx; then
  1124. !                     echo "Found -l$thislib (shared only)."
  1125. !                     case "$dflt" in
  1126. !                     *-l$thislib*|*-l$thatlib*);;
  1127. !                     *) dflt="$dflt -l$thislib";;
  1128. !                     esac
  1129. !                 else
  1130. !                     echo "No -l$thislib."
  1131. !                 fi
  1132.               fi
  1133.           fi
  1134.       fi
  1135.  
  1136. Index: mcon/man/mlint.SH
  1137. Prereq: 3.0.1.4
  1138. *** mcon/man/mlint.SH.old    Fri May  6 17:28:37 1994
  1139. --- mcon/man/mlint.SH    Fri May  6 17:28:37 1994
  1140. ***************
  1141. *** 20,26 ****
  1142.   .TH METACONFIG $manext "Version $VERSION PL$PATCHLEVEL"
  1143.   ''' @(#) Manual page for metalint
  1144.   '''
  1145. ! ''' $Id: mlint.SH,v 3.0.1.4 1994/01/24 14:20:39 ram Exp $
  1146.   '''
  1147.   '''  Copyright (c) 1991-1993, Raphael Manfredi
  1148.   '''  
  1149. --- 20,26 ----
  1150.   .TH METACONFIG $manext "Version $VERSION PL$PATCHLEVEL"
  1151.   ''' @(#) Manual page for metalint
  1152.   '''
  1153. ! ''' $Id: mlint.SH,v 3.0.1.5 1994/05/06 15:20:30 ram Exp $
  1154.   '''
  1155.   '''  Copyright (c) 1991-1993, Raphael Manfredi
  1156.   '''  
  1157. ***************
  1158. *** 31,36 ****
  1159. --- 31,40 ----
  1160.   '''  of the source tree for dist 3.0.
  1161.   '''
  1162.   ''' $Log: mlint.SH,v $
  1163. + ''' Revision 3.0.1.5  1994/05/06  15:20:30  ram
  1164. + ''' patch23: added -L switch to override public unit repository path
  1165. + ''' patch23: two new warnings concerning last unit lines
  1166. + '''
  1167.   ''' Revision 3.0.1.4  1994/01/24  14:20:39  ram
  1168.   ''' patch16: can now easily suppress warning about made "special units"
  1169.   '''
  1170. ***************
  1171. *** 52,57 ****
  1172. --- 56,62 ----
  1173.   .SH SYNOPSIS
  1174.   .B metalint
  1175.   [ \-\fBhklsV\fR ]
  1176. + [ \-\fBL \fIdir\fR ]
  1177.   .SH DESCRIPTION
  1178.   .I Metalint
  1179.   parses the units and performs some extensive consistency checks, to make sure
  1180. ***************
  1181. *** 82,87 ****
  1182. --- 87,98 ----
  1183.   .B \-s
  1184.   Silent mode.
  1185.   .TP
  1186. + \fB\-L\fI dir\fR
  1187. + Override default library location. Normally only useful for metaconfig
  1188. + maintainers to locally check the units being developped instead of the
  1189. + publicly available ones. The \fIdir\fR specified is the one containing the
  1190. + units \fIU\fR directory.
  1191. + .TP
  1192.   .B \-V
  1193.   Print version number and exit.
  1194.   .SH DIAGNOSTICS
  1195. ***************
  1196. *** 189,194 ****
  1197. --- 200,213 ----
  1198.   "no ?MAKE: line describing dependencies."
  1199.   Every unit should have a dependency line, or it will be silently ignored by
  1200.   \fImetaconfig\fR.
  1201. + .TP
  1202. + "not ending with a blank line."
  1203. + Since all units are gathered together to form one big script, it is recommended
  1204. + (hence enforced by \fImetalint\fR) that every unit file end with an empty line.
  1205. + .TP
  1206. + "last line not ending with a new-line character."
  1207. + This is merely intended to users whose editor does not always append a
  1208. + new-line at the end of text files. Should not happen when you use \fIvi\fR.
  1209.   .TP
  1210.   "symbol '\$xxx' was not described."
  1211.   The shell symbol defined by this unit was not documented. Use the \fIdescribe\fR
  1212.  
  1213. Index: mcon/mlint.SH
  1214. Prereq: 3.0.1.2
  1215. *** mcon/mlint.SH.old    Fri May  6 17:28:38 1994
  1216. --- mcon/mlint.SH    Fri May  6 17:28:38 1994
  1217. ***************
  1218. *** 20,26 ****
  1219.       eval "exec perl -S \$0 \$*"
  1220.           if \$running_under_some_shell;
  1221.   
  1222. ! # $Id: mlint.SH,v 3.0.1.2 1994/01/24 14:21:00 ram Exp $
  1223.   #
  1224.   #  Copyright (c) 1991-1993, Raphael Manfredi
  1225.   #  
  1226. --- 20,26 ----
  1227.       eval "exec perl -S \$0 \$*"
  1228.           if \$running_under_some_shell;
  1229.   
  1230. ! # $Id: mlint.SH,v 3.0.1.3 1994/05/06 15:20:42 ram Exp $
  1231.   #
  1232.   #  Copyright (c) 1991-1993, Raphael Manfredi
  1233.   #  
  1234. ***************
  1235. *** 33,38 ****
  1236. --- 33,41 ----
  1237.   # Original Author: Harlan Stenn <harlan@mumps.pfcs.com>
  1238.   #
  1239.   # $Log: mlint.SH,v $
  1240. + # Revision 3.0.1.3  1994/05/06  15:20:42  ram
  1241. + # patch23: added -L switch to override public unit repository path
  1242. + #
  1243.   # Revision 3.0.1.2  1994/01/24  14:21:00  ram
  1244.   # patch16: added ~/.dist_profile awareness
  1245.   #
  1246. ***************
  1247. *** 52,67 ****
  1248.   !GROK!THIS!
  1249.   
  1250.   $spitshell >>mlint <<'!NO!SUBS!'
  1251. - chop($date = `date`);
  1252. - $MC = &tilda_expand($MC);        # ~name expansion
  1253. - chop($WD = `pwd`);                # Working directory
  1254. - chdir $MC || die "Can't chdir to $MC: $!\n";
  1255. - chop($MC = `pwd`);                # Real metalint lib path (no symbolic links)
  1256. - chdir $WD || die "Can't chdir back to $WD: $!\n";
  1257. - 
  1258.   &profile;                        # Read ~/.dist_profile
  1259.   require 'getopts.pl';
  1260. ! &usage unless &Getopts("hklV");
  1261.   
  1262.   if ($opt_V) {
  1263.       print STDERR "metalint $version PL$patchlevel\n";
  1264. --- 55,63 ----
  1265.   !GROK!THIS!
  1266.   
  1267.   $spitshell >>mlint <<'!NO!SUBS!'
  1268.   &profile;                        # Read ~/.dist_profile
  1269.   require 'getopts.pl';
  1270. ! &usage unless &Getopts("hklVL:");
  1271.   
  1272.   if ($opt_V) {
  1273.       print STDERR "metalint $version PL$patchlevel\n";
  1274. ***************
  1275. *** 70,75 ****
  1276. --- 66,79 ----
  1277.       &usage;
  1278.   }
  1279.   
  1280. + chop($date = `date`);
  1281. + $MC = $opt_L if $opt_L;            # May override library path
  1282. + $MC = &tilda_expand($MC);        # ~name expansion
  1283. + chop($WD = `pwd`);                # Working directory
  1284. + chdir $MC || die "Can't chdir to $MC: $!\n";
  1285. + chop($MC = `pwd`);                # Real metalint lib path (no symbolic links)
  1286. + chdir $WD || die "Can't chdir back to $WD: $!\n";
  1287. + 
  1288.   &init;                                    # Various initializations
  1289.   `mkdir .MT 2>&1` unless -d '.MT';        # For private temporary files
  1290.   
  1291. ***************
  1292. *** 109,119 ****
  1293.   # Print out metalint's usage and exits
  1294.   sub usage {
  1295.       print STDERR <<EOM;
  1296. ! Usage: metalint [-hklsV]
  1297.     -h : print this help message and exits.
  1298.     -k : keep temporary directory.
  1299.     -l : also report problems from library units.
  1300.     -s : silent mode.
  1301.     -V : print version number and exits.
  1302.   EOM
  1303.       exit 1;
  1304. --- 113,124 ----
  1305.   # Print out metalint's usage and exits
  1306.   sub usage {
  1307.       print STDERR <<EOM;
  1308. ! Usage: metalint [-hklsV] [-L dir]
  1309.     -h : print this help message and exits.
  1310.     -k : keep temporary directory.
  1311.     -l : also report problems from library units.
  1312.     -s : silent mode.
  1313. +   -L : specify main units repository.
  1314.     -V : print version number and exits.
  1315.   EOM
  1316.       exit 1;
  1317.  
  1318. Index: kit/kitsend.SH
  1319. Prereq: 3.0.1.1
  1320. *** kit/kitsend.SH.old    Fri May  6 17:28:07 1994
  1321. --- kit/kitsend.SH    Fri May  6 17:28:07 1994
  1322. ***************
  1323. *** 20,26 ****
  1324.       eval 'exec perl -S \$0 "\$@"'
  1325.           if \$running_under_some_shell;
  1326.   
  1327. ! # $Id: kitsend.SH,v 3.0.1.1 1993/08/19 06:42:15 ram Exp $
  1328.   #
  1329.   #  Copyright (c) 1991-1993, Raphael Manfredi
  1330.   #  
  1331. --- 20,26 ----
  1332.       eval 'exec perl -S \$0 "\$@"'
  1333.           if \$running_under_some_shell;
  1334.   
  1335. ! # $Id: kitsend.SH,v 3.0.1.2 1994/05/06 13:59:57 ram Exp $
  1336.   #
  1337.   #  Copyright (c) 1991-1993, Raphael Manfredi
  1338.   #  
  1339. ***************
  1340. *** 33,38 ****
  1341. --- 33,45 ----
  1342.   # Original Author: Harlan Stenn <harlan@mumps.pfcs.com>
  1343.   #
  1344.   # $Log: kitsend.SH,v $
  1345. + # Revision 3.0.1.2  1994/05/06  13:59:57  ram
  1346. + # patch23: random code cleanup to follow pat tools style
  1347. + # patch23: made configurable from dist profile
  1348. + # patch23: now understands -V and -h options
  1349. + # patch23: mails now flagged with a bulk precedence
  1350. + # patch23: added X-Mailer header and now calls mailer via open()
  1351. + #
  1352.   # Revision 3.0.1.1  1993/08/19  06:42:15  ram
  1353.   # patch1: leading config.sh searching was not aborting properly
  1354.   #
  1355. ***************
  1356. *** 42,50 ****
  1357. --- 49,71 ----
  1358.   
  1359.   \$orgname='$orgname';
  1360.   \$mailer='$mailer';
  1361. + \$version = '$VERSION';
  1362. + \$patchlevel = '$PATCHLEVEL';
  1363.   !GROK!THIS!
  1364.   cat >>kitsend <<'!NO!SUBS!'
  1365.   
  1366. + $progname = &profile;        # Read ~/.dist_profile
  1367. + require 'getopts.pl';
  1368. + &usage unless &Getopts('hV');
  1369. + 
  1370. + if ($opt_V) {
  1371. +     print STDERR "$progname $version PL$patchlevel\n";
  1372. +     exit 0;
  1373. + } elsif ($opt_h) {
  1374. +     &usage;
  1375. + }
  1376. + 
  1377. + $orgname = &tilda_expand($orgname);
  1378.   chop($orgname = `cat $orgname`) if $orgname =~ m|^/|;
  1379.   
  1380.   &readpackage;
  1381. ***************
  1382. *** 59,65 ****
  1383.       }
  1384.   }
  1385.   $dest = join(' ',@dest);
  1386. ! die "Usage: kitsend [kits] dest\n" unless $dest;
  1387.   
  1388.   @ARGV = @argv;
  1389.   
  1390. --- 80,86 ----
  1391.       }
  1392.   }
  1393.   $dest = join(' ',@dest);
  1394. ! &usage unless $dest;
  1395.   
  1396.   @ARGV = @argv;
  1397.   
  1398. ***************
  1399. *** 75,91 ****
  1400.       $argv = "1-$maxnum";
  1401.       @ARGV = $argv;
  1402.   }
  1403. ! $argv = do rangeargs(@ARGV);
  1404. ! @ARGV = split(' ',$argv);
  1405.   
  1406.   $argv =~ s/ $//;
  1407.   
  1408.   if ($#ARGV < 0) {
  1409. !     die "No kits specified.\n";
  1410.   } elsif ($#ARGV) {
  1411. !     print "Sending $package $baserev kits $argv to $dest...\n";
  1412.   } else {
  1413. !     print "Sending $package $baserev kit $argv to $dest...\n";
  1414.   }
  1415.   
  1416.   fork && exit;
  1417. --- 96,112 ----
  1418.       $argv = "1-$maxnum";
  1419.       @ARGV = $argv;
  1420.   }
  1421. ! $argv = &rangeargs(@ARGV);
  1422. ! @ARGV = split(' ', $argv);
  1423.   
  1424.   $argv =~ s/ $//;
  1425.   
  1426.   if ($#ARGV < 0) {
  1427. !     die "$progname: no kits specified.\n";
  1428.   } elsif ($#ARGV) {
  1429. !     print "$progname: sending $package $baserev kits $argv to $dest...\n";
  1430.   } else {
  1431. !     print "$progname: sending $package $baserev kit $argv to $dest...\n";
  1432.   }
  1433.   
  1434.   fork && exit;
  1435. ***************
  1436. *** 94,118 ****
  1437.   
  1438.   until ($#ARGV < 0) {
  1439.       $kitnum = shift;
  1440. !     open(XHEAD,">.xhead$$") || die "kitsend: can't create temp file: $!.\n";
  1441. !     print XHEAD
  1442. ! "To: $dest
  1443.   Subject: $package $baserev kit #$kitnum
  1444.   Organization: $orgname
  1445.   
  1446.   [There are $maxnum kits for $package version $baserev.]
  1447.   
  1448.   ";
  1449. !     $kitnum = "0$kitnum" if $kitnum < 10 && $maxnum >= 10;
  1450. !     open(PATCH,"$package.kit$kitnum") ||
  1451. !         die "kitsend: can't open $package.kit$kitnum: $!\n";
  1452. !     while (<PATCH>) {
  1453. !         print XHEAD;
  1454.       }
  1455. -     close XHEAD;
  1456. -     system "$mailer $opt $dest <.xhead$$";
  1457.   }
  1458. ! unlink ".xhead$$";
  1459.   
  1460.   sub rangeargs {
  1461.       local($result) = '';
  1462. --- 115,159 ----
  1463.   
  1464.   until ($#ARGV < 0) {
  1465.       $kitnum = shift;
  1466. ! 
  1467. !     # Provision for broken mailers...
  1468. !     @dest = split(' ', $dest);
  1469. !     while (@smalldest = splice(@dest, 0, 50)) {
  1470. !         $to = join(', ', @smalldest);    # Sensible To: for sendmail
  1471. !         $smalldest = join(' ', @smalldest);
  1472. ! 
  1473. !         open(MAILER, "|$mailer $opt $smalldest") ||
  1474. !             die "$progname: can't fork $mailer: $!\n";
  1475. !         print MAILER
  1476. ! "To: $to
  1477.   Subject: $package $baserev kit #$kitnum
  1478. + Precedence: bulk
  1479. + X-Mailer: dist [version $version PL$patchlevel]
  1480.   Organization: $orgname
  1481.   
  1482.   [There are $maxnum kits for $package version $baserev.]
  1483.   
  1484.   ";
  1485. !         $kitnum = "0$kitnum" if $kitnum < 10 && $maxnum >= 10;
  1486. !         open(FILE,"$package.kit$kitnum") ||
  1487. !             die "$progname: can't open $package.kit$kitnum: $!\n";
  1488. !         while (<FILE>) {
  1489. !             print MAILER;
  1490. !         }
  1491. !         close FILE;
  1492. !         close MAILER;
  1493. !         warn "$progname: ERROR mailing of $package.kit$kitnum to $dest\n" if $?;
  1494.       }
  1495.   }
  1496. ! 
  1497. ! sub usage {
  1498. !     print STDERR <<EOM;
  1499. ! Usage: $progname [-hV] [kits] dest
  1500. !   -h : print this message and exit
  1501. !   -V : print version number and exit
  1502. ! EOM
  1503. !     exit 1;
  1504. ! }
  1505.   
  1506.   sub rangeargs {
  1507.       local($result) = '';
  1508. ***************
  1509. *** 145,149 ****
  1510. --- 186,192 ----
  1511.   
  1512.   !NO!SUBS!
  1513.   $grep -v '^;#' ../pl/package.pl >>kitsend
  1514. + $grep -v '^;#' ../pl/tilde.pl >>kitsend
  1515. + $grep -v '^;#' ../pl/profile.pl >>kitsend
  1516.   chmod +x kitsend
  1517.   $eunicefix kitsend
  1518.  
  1519. Index: mcon/U/libpth.U
  1520. Prereq: 3.0
  1521. *** mcon/U/libpth.U.old    Fri May  6 17:28:28 1994
  1522. --- mcon/U/libpth.U    Fri May  6 17:28:28 1994
  1523. ***************
  1524. *** 1,4 ****
  1525. ! ?RCS: $Id: libpth.U,v 3.0 1993/08/18 12:09:02 ram Exp $
  1526.   ?RCS:
  1527.   ?RCS: Copyright (c) 1991-1993, Raphael Manfredi
  1528.   ?RCS: 
  1529. --- 1,4 ----
  1530. ! ?RCS: $Id: libpth.U,v 3.0.1.1 1994/05/06 15:07:53 ram Exp $
  1531.   ?RCS:
  1532.   ?RCS: Copyright (c) 1991-1993, Raphael Manfredi
  1533.   ?RCS: 
  1534. ***************
  1535. *** 9,21 ****
  1536.   ?RCS: of the source tree for dist 3.0.
  1537.   ?RCS:
  1538.   ?RCS: $Log: libpth.U,v $
  1539.   ?RCS: Revision 3.0  1993/08/18  12:09:02  ram
  1540.   ?RCS: Baseline for dist 3.0 netwide release.
  1541.   ?RCS:
  1542.   ?X:
  1543.   ?X:    This unit initializes the path for C library lookup.
  1544.   ?X:
  1545. ! ?MAKE:libpth xlibpth plibpth: mips incpath
  1546.   ?MAKE:    -pick add $@ %<
  1547.   ?S:libpth:
  1548.   ?S:    This variable holds the general path used to find libraries. It is
  1549. --- 9,24 ----
  1550.   ?RCS: of the source tree for dist 3.0.
  1551.   ?RCS:
  1552.   ?RCS: $Log: libpth.U,v $
  1553. + ?RCS: Revision 3.0.1.1  1994/05/06  15:07:53  ram
  1554. + ?RCS: patch23: now asks for library directories to be searched (ADO)
  1555. + ?RCS:
  1556.   ?RCS: Revision 3.0  1993/08/18  12:09:02  ram
  1557.   ?RCS: Baseline for dist 3.0 netwide release.
  1558.   ?RCS:
  1559.   ?X:
  1560.   ?X:    This unit initializes the path for C library lookup.
  1561.   ?X:
  1562. ! ?MAKE:libpth glibpth xlibpth plibpth: mips incpath test cat Myread Oldconfig
  1563.   ?MAKE:    -pick add $@ %<
  1564.   ?S:libpth:
  1565.   ?S:    This variable holds the general path used to find libraries. It is
  1566. ***************
  1567. *** 24,48 ****
  1568.   ?S:plibpth:
  1569.   ?S:    Holds the private path used by Configure to find out the libraries.
  1570.   ?S:    Its value is prepend to libpth. This variable takes care of special
  1571. ! ?S:    machines, like the mips.
  1572.   ?S:.
  1573.   ?INIT:: change the next line if compiling for Xenix/286 on Xenix/386
  1574.   ?INIT:xlibpth='/usr/lib/386 /lib/386'
  1575.   ?INIT:
  1576.   ?INIT:: general looking path for locating libraries
  1577. ! ?INIT:libpth='/usr/lib/large /lib '$xlibpth' /lib/large'
  1578. ! ?INIT:libpth=$libpth' /usr/lib/small /lib/small'
  1579.   ?INIT:
  1580. ! ?LINT:describe xlibpth
  1581.   ?LINT:use mips
  1582.   : Set private lib path
  1583.   case "$plibpth" in
  1584.   '') if mips; then
  1585.   ?X: on mips, we DO NOT want /lib, and we want $incpath/usr/lib
  1586.           plibpth="$incpath/usr/lib /usr/local/lib /usr/ccs/lib"
  1587. -     else
  1588. -         plibpth="/usr/ccs/lib /usr/lib /usr/ucblib /usr/local/lib"
  1589.       fi;;
  1590.   esac
  1591. ! libpth="$plibpth $libpth"
  1592.   
  1593. --- 27,94 ----
  1594.   ?S:plibpth:
  1595.   ?S:    Holds the private path used by Configure to find out the libraries.
  1596.   ?S:    Its value is prepend to libpth. This variable takes care of special
  1597. ! ?S:    machines, like the mips.  Usually, it should be empty.
  1598.   ?S:.
  1599. + ?T: xxx dlist
  1600.   ?INIT:: change the next line if compiling for Xenix/286 on Xenix/386
  1601.   ?INIT:xlibpth='/usr/lib/386 /lib/386'
  1602.   ?INIT:
  1603.   ?INIT:: general looking path for locating libraries
  1604. ! ?INIT:glibpth="/usr/lib/large /lib /usr/lib $xlibpth /lib/large"
  1605. ! ?INIT:glibpth="$libpth /usr/lib/small /lib/small"
  1606. ! ?INIT:glibpth="$libpth /usr/ccs/lib /usr/ucblib /usr/local/lib"
  1607. ! ?INIT:
  1608. ! ?INIT:: Private path used by Configure to find libraries.  Its value
  1609. ! ?INIT:: is prepended to libpth. This variable takes care of special
  1610. ! ?INIT:: machines, like the mips.  Usually, it should be empty.
  1611. ! ?INIT:plibpth=''
  1612.   ?INIT:
  1613. ! ?LINT:describe xlibpth glibpth
  1614.   ?LINT:use mips
  1615.   : Set private lib path
  1616.   case "$plibpth" in
  1617.   '') if mips; then
  1618.   ?X: on mips, we DO NOT want /lib, and we want $incpath/usr/lib
  1619.           plibpth="$incpath/usr/lib /usr/local/lib /usr/ccs/lib"
  1620.       fi;;
  1621.   esac
  1622. ! case "$libpth" in
  1623. ! ' ') dlist='';;
  1624. ! '') dlist="$plibpth $glibpth";;
  1625. ! *) dlist="$libpth";;
  1626. ! esac
  1627. ! 
  1628. ! : Now check and see which directories actually exist, avoiding duplicates
  1629. ! libpth=''
  1630. ! for xxx in $dlist
  1631. ! do
  1632. !     if $test -d $xxx; then
  1633. !         case " $libpth " in
  1634. !         *" $xxx "*) ;;
  1635. !         *) libpth="$libpth $xxx";;
  1636. !         esac
  1637. !     fi
  1638. ! done
  1639. ! $cat <<'EOM'
  1640. ! 
  1641. ! Some systems have incompatible or broken versions of libraries.  Among
  1642. ! the directories listed in the question below, please remove the one
  1643. ! you know not to be holding relevant libraries.  Say "none" for none.
  1644. ! 
  1645. ! EOM
  1646. ! case "$libpth" in
  1647. ! '') dflt='none';;
  1648. ! *)
  1649. ! ?X: strip leading space
  1650. !     set X $libpth
  1651. !     shift
  1652. !     dflt=${1+"$@"}
  1653. !     ;;
  1654. ! esac
  1655. ! rp="Directories to use for library searches?"
  1656. ! . ./myread
  1657. ! case "$ans" in
  1658. ! none) libpth=' ';;
  1659. ! *) libpth="$ans";;
  1660. ! esac
  1661.   
  1662.  
  1663. Index: mcon/U/Getfile.U
  1664. Prereq: 3.0.1.2
  1665. *** mcon/U/Getfile.U.old    Fri May  6 17:28:11 1994
  1666. --- mcon/U/Getfile.U    Fri May  6 17:28:11 1994
  1667. ***************
  1668. *** 1,4 ****
  1669. ! ?RCS: $Id: Getfile.U,v 3.0.1.2 1994/01/24 14:01:31 ram Exp $
  1670.   ?RCS:
  1671.   ?RCS: Copyright (c) 1991-1993, Raphael Manfredi
  1672.   ?RCS: 
  1673. --- 1,4 ----
  1674. ! ?RCS: $Id: Getfile.U,v 3.0.1.3 1994/05/06 14:23:36 ram Exp $
  1675.   ?RCS:
  1676.   ?RCS: Copyright (c) 1991-1993, Raphael Manfredi
  1677.   ?RCS: 
  1678. ***************
  1679. *** 9,14 ****
  1680. --- 9,18 ----
  1681.   ?RCS: of the source tree for dist 3.0.
  1682.   ?RCS:
  1683.   ?RCS: $Log: Getfile.U,v $
  1684. + ?RCS: Revision 3.0.1.3  1994/05/06  14:23:36  ram
  1685. + ?RCS: patch23: getfile could be confused by file name in "locate" requests
  1686. + ?RCS: patch23: new 'p' directive to assume file is in people's path (WED)
  1687. + ?RCS:
  1688.   ?RCS: Revision 3.0.1.2  1994/01/24  14:01:31  ram
  1689.   ?RCS: patch16: added metalint hint on changed 'ans' variable
  1690.   ?RCS:
  1691. ***************
  1692. *** 51,56 ****
  1693. --- 55,63 ----
  1694.   ?X:   . ./getfile
  1695.   ?X:   active="$ans"
  1696.   ?X: 
  1697. + ?X: If the 'p' (path) letter is specified along with 'l', then an answer
  1698. + ?X: without a leading / will be expected to be found in everyone's path.
  1699. + ?X:
  1700.   ?X: If the answer to the question is 'none', then the existence checks are
  1701.   ?X:    skipped and the empty string is returned.
  1702.   ?X:
  1703. ***************
  1704. *** 58,64 ****
  1705.   ?MAKE:    -pick add $@ %<
  1706.   ?V:ansexp:fn
  1707.   ?T:tilde type what orig_rp orig_dflt fullpath already redo skip none_ok \
  1708. !     value exp_file
  1709.   ?LINT:change ans
  1710.   : now set up to get a file name
  1711.   cat <<'EOSC' >getfile
  1712. --- 65,71 ----
  1713.   ?MAKE:    -pick add $@ %<
  1714.   ?V:ansexp:fn
  1715.   ?T:tilde type what orig_rp orig_dflt fullpath already redo skip none_ok \
  1716. !     value exp_file nopath_ok loc_file
  1717.   ?LINT:change ans
  1718.   : now set up to get a file name
  1719.   cat <<'EOSC' >getfile
  1720. ***************
  1721. *** 68,76 ****
  1722. --- 75,96 ----
  1723.   skip=''
  1724.   none_ok=''
  1725.   exp_file=''
  1726. + nopath_ok=''
  1727.   orig_rp="$rp"
  1728.   orig_dflt="$dflt"
  1729.   
  1730. + ?X:
  1731. + ?X: Catch up 'locate' requests early, so that we may strip the file name
  1732. + ?X: before looking at the one-letter commands, in case the file name contains
  1733. + ?X: one of them. Reported by Wayne Davison <davison@borland.com>.
  1734. + ?X:
  1735. + case "$fn" in
  1736. + *:*)
  1737. +     loc_file=`expr $fn : '.*:\(.*\)'`
  1738. +     fn=`expr $fn : '\(.*\):.*'`
  1739. +     ;;
  1740. + esac
  1741. + 
  1742.   case "$fn" in
  1743.   *~*) tilde=true;;
  1744.   esac
  1745. ***************
  1746. *** 86,96 ****
  1747.   case "$fn" in
  1748.   *e*) exp_file=true;;
  1749.   esac
  1750.   
  1751.   case "$fn" in
  1752.   *f*) type='File';;
  1753.   *d*) type='Directory';;
  1754. ! *l*) type='Locate'; fn=`expr $fn : '.*:\(.*\)'`;;
  1755.   esac
  1756.   
  1757.   what="$type"
  1758. --- 106,119 ----
  1759.   case "$fn" in
  1760.   *e*) exp_file=true;;
  1761.   esac
  1762. + case "$fn" in
  1763. + *p*) nopath_ok=true;;
  1764. + esac
  1765.   
  1766.   case "$fn" in
  1767.   *f*) type='File';;
  1768.   *d*) type='Directory';;
  1769. ! *l*) type='Locate';;
  1770.   esac
  1771.   
  1772.   what="$type"
  1773. ***************
  1774. *** 192,203 ****
  1775.                   ;;
  1776.               Locate)
  1777.                   if test -d "$value"; then
  1778. !                     echo "(Looking for $fn in directory $value.)"
  1779. !                     value="$value/$fn"
  1780.                   fi
  1781.                   if test -f "$value"; then
  1782.                       type=''
  1783.                   fi
  1784.                   ;;
  1785.               esac
  1786.   
  1787. --- 215,235 ----
  1788.                   ;;
  1789.               Locate)
  1790.                   if test -d "$value"; then
  1791. !                     echo "(Looking for $loc_file in directory $value.)"
  1792. !                     value="$value/$loc_file"
  1793.                   fi
  1794.                   if test -f "$value"; then
  1795.                       type=''
  1796.                   fi
  1797. +                 case "$nopath_ok" in
  1798. +                 true)    case "$value" in
  1799. +                     */*) ;;
  1800. +                     *)    echo "Assuming $value will be in people's path."
  1801. +                         type=''
  1802. +                         ;;
  1803. +                     esac
  1804. +                     ;;
  1805. +                 esac
  1806.                   ;;
  1807.               esac
  1808.   
  1809.  
  1810. *** End of Patch 23 ***
  1811.  
  1812. exit 0 # Just in case...
  1813.