home *** CD-ROM | disk | FTP | other *** search
/ Usenet 1994 October / usenetsourcesnewsgroupsinfomagicoctober1994disk2.iso / misc / volume41 / dist-3.0 / patch20 < prev    next >
Encoding:
Text File  |  1994-01-27  |  44.6 KB  |  1,589 lines
  1. Newsgroups: comp.sources.misc
  2. From: Raphael Manfredi <ram@acri.fr>
  3. Subject: v41i116:  dist-3.0 - Configure script generator and related tools, Patch20
  4. Message-ID: <1994Jan28.023436.2557@sparky.sterling.com>
  5. X-Md4-Signature: afdb77965094b368e194b23abd7c1671
  6. Sender: kent@sparky.sterling.com (Kent Landfield)
  7. Organization: Advanced Computer Research Institute, Lyon, France
  8. Date: Fri, 28 Jan 1994 02:34:36 GMT
  9. Approved: kent@sparky.sterling.com
  10.  
  11. Submitted-by: Raphael Manfredi <ram@acri.fr>
  12. Posting-number: Volume 41, Issue 116
  13. Archive-name: dist-3.0/patch20
  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 #22.]
  18.  
  19. System: dist version 3.0
  20. Patch #: 20
  21. Priority: LOW
  22. Subject: patch #16, continued
  23. Date: Mon Jan 24 15:54:21 MET 1994
  24. From: Raphael Manfredi <ram@acri.fr>
  25.  
  26. Description:
  27.     See patch #16.
  28.  
  29.  
  30. Fix:    From rn, say "| patch -p -N -d DIR", where DIR is your dist source
  31.     directory.  Outside of rn, say "cd DIR; patch -p -N <thisarticle".
  32.     If you don't have the patch program, apply the following by hand,
  33.     or get patch (version 2.0, latest patchlevel).
  34.  
  35.     After patching:
  36.         *** DO NOTHING--INSTALL ALL PATCHES UP THROUGH #22 FIRST ***
  37.  
  38.     If patch indicates that patchlevel is the wrong version, you may need
  39.     to apply one or more previous patches, or the patch may already
  40.     have been applied.  See the patchlevel.h file to find out what has or
  41.     has not been applied.  In any event, don't continue with the patch.
  42.  
  43.     If you are missing previous patches they can be obtained from me:
  44.  
  45.         Raphael Manfredi <ram@acri.fr>
  46.  
  47.     If you send a mail message of the following form it will greatly speed
  48.     processing:
  49.  
  50.         Subject: Command
  51.         @SH mailpatch PATH dist 3.0 LIST
  52.                ^ note the c
  53.  
  54.     where PATH is a return path FROM ME TO YOU either in Internet notation,
  55.     or in bang notation from some well-known host, and LIST is the number
  56.     of one or more patches you need, separated by spaces, commas, and/or
  57.     hyphens.  Saying 35- says everything from 35 to the end.
  58.  
  59.     To get some more detailed instructions, send me the following mail:
  60.  
  61.         Subject: Command
  62.         @SH mailhelp PATH
  63.  
  64.  
  65. Index: patchlevel.h
  66. Prereq: 19
  67. 4c4
  68. < #define PATCHLEVEL 19
  69. ---
  70. > #define PATCHLEVEL 20
  71.  
  72. Index: pat/patftp.SH
  73. Prereq: 3.0.1.2
  74. *** pat/patftp.SH.old    Mon Jan 24 15:35:21 1994
  75. --- pat/patftp.SH    Mon Jan 24 15:35:21 1994
  76. ***************
  77. *** 20,26 ****
  78.       eval "exec perl -S \$0 \$*"
  79.           if \$running_under_some_shell;
  80.   
  81. ! # $Id: patftp.SH,v 3.0.1.2 1993/08/24 12:16:57 ram Exp $
  82.   #
  83.   #  Copyright (c) 1991-1993, Raphael Manfredi
  84.   #  
  85. --- 20,26 ----
  86.       eval "exec perl -S \$0 \$*"
  87.           if \$running_under_some_shell;
  88.   
  89. ! # $Id: patftp.SH,v 3.0.1.3 1994/01/24 14:30:43 ram Exp $
  90.   #
  91.   #  Copyright (c) 1991-1993, Raphael Manfredi
  92.   #  
  93. ***************
  94. *** 33,38 ****
  95. --- 33,42 ----
  96.   # Original Author: Larry Wall <lwall@netlabs.com>
  97.   #
  98.   # $Log: patftp.SH,v $
  99. + # Revision 3.0.1.3  1994/01/24  14:30:43  ram
  100. + # patch16: now prefix error messages with program's name
  101. + # patch16: added ~/.dist_profile awareness
  102. + #
  103.   # Revision 3.0.1.2  1993/08/24  12:16:57  ram
  104.   # patch3: removed useless orgname variable
  105.   #
  106. ***************
  107. *** 48,58 ****
  108.   !GROK!THIS!
  109.   cat >>patftp <<'!NO!SUBS!'
  110.   
  111.   require 'getopts.pl';
  112.   &usage unless &Getopts("hV");
  113.   
  114.   if ($opt_V) {
  115. !     print STDERR "patftp $version PL$patchlevel\n";
  116.       exit 0;
  117.   } elsif ($opt_h) {
  118.       &usage;
  119. --- 52,63 ----
  120.   !GROK!THIS!
  121.   cat >>patftp <<'!NO!SUBS!'
  122.   
  123. + $progname = &profile;    # Read ~/.dist_profile
  124.   require 'getopts.pl';
  125.   &usage unless &Getopts("hV");
  126.   
  127.   if ($opt_V) {
  128. !     print STDERR "$progname $version PL$patchlevel\n";
  129.       exit 0;
  130.   } elsif ($opt_h) {
  131.       &usage;
  132. ***************
  133. *** 64,75 ****
  134.   &readpackage;
  135.   
  136.   if ($#ARGV < 0) {
  137. !     open(PL,"patchlevel.h") || die "Can't open patchlevel.h\n";
  138.       while (<PL>) {
  139.           $argv = $1 if /^#define\s+PATCHLEVEL\s+(\d+)/;
  140.       }
  141.       close PL;
  142. !     die "Malformed patchlevel.h file.\n" if $argv eq '';
  143.       @ARGV = $argv;
  144.   } else {
  145.       for (@ARGV) {
  146. --- 69,80 ----
  147.   &readpackage;
  148.   
  149.   if ($#ARGV < 0) {
  150. !     open(PL,"patchlevel.h") || die "$progname: can't open patchlevel.h: $!\n";
  151.       while (<PL>) {
  152.           $argv = $1 if /^#define\s+PATCHLEVEL\s+(\d+)/;
  153.       }
  154.       close PL;
  155. !     die "$progname: malformed patchlevel.h file.\n" if $argv eq '';
  156.       @ARGV = $argv;
  157.   } else {
  158.       for (@ARGV) {
  159. ***************
  160. *** 80,94 ****
  161.   }
  162.   
  163.   if ($#ARGV < 0) {
  164. !     print STDERR  "No patches specified.\n";
  165.       &usage;
  166.   } elsif ($#ARGV) {
  167. !     print "Copying $package $baserev patches $argv to $ftpdir...\n";
  168.   } else {
  169. !     print "Copying $package $baserev patch $argv to $ftpdir...\n";
  170.   }
  171.   
  172. ! chdir 'bugs' || die "Can't cd to bugs\n";
  173.   
  174.   until ($#ARGV < 0) {
  175.       $patnum = shift;
  176. --- 85,99 ----
  177.   }
  178.   
  179.   if ($#ARGV < 0) {
  180. !     print STDERR  "$progname: no patches specified.\n";
  181.       &usage;
  182.   } elsif ($#ARGV) {
  183. !     print "$progname: copying $package $baserev patches $argv to $ftpdir...\n";
  184.   } else {
  185. !     print "$progname: copying $package $baserev patch $argv to $ftpdir...\n";
  186.   }
  187.   
  188. ! chdir 'bugs' || die "$progname: can't cd to bugs: $!\n";
  189.   
  190.   until ($#ARGV < 0) {
  191.       $patnum = shift;
  192. ***************
  193. *** 96,104 ****
  194.   }
  195.   
  196.   sub usage {
  197. !     print STDERR "Usage: patftp [-hV] patchlist\n";
  198. !     print STDERR "  -h : print this message and exit\n";
  199. !     print STDERR "  -V : print version number and exit\n";
  200.       exit 1;
  201.   }
  202.   
  203. --- 101,111 ----
  204.   }
  205.   
  206.   sub usage {
  207. !     print STDERR <<EOM;
  208. ! Usage: $progname [-hV] patchlist
  209. !   -h : print this message and exit
  210. !   -V : print version number and exit
  211. ! EOM
  212.       exit 1;
  213.   }
  214.   
  215. ***************
  216. *** 105,109 ****
  217. --- 112,118 ----
  218.   !NO!SUBS!
  219.   $grep -v '^;#' ../pl/package.pl >>patftp
  220.   $grep -v '^;#' ../pl/rangeargs.pl >>patftp
  221. + $grep -v '^;#' ../pl/tilde.pl >>patftp
  222. + $grep -v '^;#' ../pl/profile.pl >>patftp
  223.   chmod +x patftp
  224.   $eunicefix patftp
  225.  
  226. Index: mcon/U/Oldconfig.U
  227. Prereq: 3.0.1.1
  228. *** mcon/U/Oldconfig.U.old    Mon Jan 24 15:34:50 1994
  229. --- mcon/U/Oldconfig.U    Mon Jan 24 15:34:51 1994
  230. ***************
  231. *** 1,4 ****
  232. ! ?RCS: $Id: Oldconfig.U,v 3.0.1.1 1993/09/13 15:56:32 ram Exp $
  233.   ?RCS:
  234.   ?RCS: Copyright (c) 1991-1993, Raphael Manfredi
  235.   ?RCS: 
  236. --- 1,4 ----
  237. ! ?RCS: $Id: Oldconfig.U,v 3.0.1.2 1994/01/24 14:05:02 ram Exp $
  238.   ?RCS:
  239.   ?RCS: Copyright (c) 1991-1993, Raphael Manfredi
  240.   ?RCS: 
  241. ***************
  242. *** 9,14 ****
  243. --- 9,18 ----
  244.   ?RCS: of the source tree for dist 3.0.
  245.   ?RCS:
  246.   ?RCS: $Log: Oldconfig.U,v $
  247. + ?RCS: Revision 3.0.1.2  1994/01/24  14:05:02  ram
  248. + ?RCS: patch16: added post-processing on myuname for Xenix targets
  249. + ?RCS: patch16: message proposing config.sh defaults made consistent
  250. + ?RCS:
  251.   ?RCS: Revision 3.0.1.1  1993/09/13  15:56:32  ram
  252.   ?RCS: patch10: force use of config.sh when -d option is used (WAD)
  253.   ?RCS: patch10: complain about non-existent hint files (WAD)
  254. ***************
  255. *** 25,31 ****
  256.       contains Loc Options
  257.   ?MAKE:    -pick wipe $@ %<
  258.   ?S:myuname:
  259. ! ?S: The output of 'uname -a' if available, otherwise the hostname.
  260.   ?S:.
  261.   ?S:hint:
  262.   ?S:    Gives the type of hints used for previous answers. May be one of "default",
  263. --- 29,37 ----
  264.       contains Loc Options
  265.   ?MAKE:    -pick wipe $@ %<
  266.   ?S:myuname:
  267. ! ?S:    The output of 'uname -a' if available, otherwise the hostname. On Xenix,
  268. ! ?S:    pseudo variables assignments in the output are stripped, thank you. The
  269. ! ?S:    whole thing is then lower-cased.
  270.   ?S:.
  271.   ?S:hint:
  272.   ?S:    Gives the type of hints used for previous answers. May be one of "default",
  273. ***************
  274. *** 41,46 ****
  275. --- 47,60 ----
  276.   ?X: on some machines to avoid the error message when uname is not found; e.g.
  277.   ?X: old SUN-OS 3.2 would not execute hostname in (uname -a || hostname). Sigh!
  278.   myuname=`( ($uname -a) 2>/dev/null || hostname) 2>&1`
  279. + ?X: Special mention for Xenix, whose 'uname -a' gives us output like this:
  280. + ?X:  sysname=XENIX
  281. + ?X:  nodename=whatever
  282. + ?X:  release=2.3.2 .. etc...
  283. + ?X: Therefore, we strip all this variable assignment junk and remove all the
  284. + ?X: new lines to keep the myuname variable sane... --RAM
  285. + myuname=`echo $myuname | $sed -e 's/^[^=]*=//' | \
  286. +     tr '[A-Z]' '[a-z]' | tr '\012' ' '`
  287.   dflt=n
  288.   if test "$fastread" = yes; then
  289.       dflt=y
  290. ***************
  291. *** 96,103 ****
  292.       $test -f /bin/mips && /bin/mips && dflt="$dflt mips"
  293.       $test -d /NextApps && test -f /usr/adm/software_version && dflt="$dflt next"
  294.       $test -d /usr/include/minix && dflt="$dflt minix"
  295.       if $test -f $uname; then
  296. !         set `$uname -a | tr '[A-Z]' '[a-z]'`
  297.   
  298.           $test -f $5.sh && dflt="$dflt $5"
  299.   
  300. --- 110,120 ----
  301.       $test -f /bin/mips && /bin/mips && dflt="$dflt mips"
  302.       $test -d /NextApps && test -f /usr/adm/software_version && dflt="$dflt next"
  303.       $test -d /usr/include/minix && dflt="$dflt minix"
  304. + ?X: If we have uname, we already computed a suitable uname -a output, correctly
  305. + ?X: formatted for Xenix, and it lies in $myuname.
  306.       if $test -f $uname; then
  307. !         set X $myuname
  308. !         shift
  309.   
  310.           $test -f $5.sh && dflt="$dflt $5"
  311.   
  312. ***************
  313. *** 197,203 ****
  314.   hint=default
  315.   if test -f ../config.sh; then
  316.       echo " "
  317. !     rp="I see a config.sh file.  Did Configure make it on THIS system?"
  318.       . ./myread
  319.       case "$ans" in
  320.       n*|N*) echo "OK, I'll ignore it.";;
  321. --- 214,220 ----
  322.   hint=default
  323.   if test -f ../config.sh; then
  324.       echo " "
  325. !     rp="I see a config.sh file.  Shall I use it to set the defaults?"
  326.       . ./myread
  327.       case "$ans" in
  328.       n*|N*) echo "OK, I'll ignore it.";;
  329.  
  330. Index: mcon/pl/common.pl
  331. Prereq: 3.0.1.1
  332. *** mcon/pl/common.pl.old    Mon Jan 24 15:35:13 1994
  333. --- mcon/pl/common.pl    Mon Jan 24 15:35:13 1994
  334. ***************
  335. *** 1,4 ****
  336. ! ;# $Id: common.pl,v 3.0.1.1 1993/10/16 13:53:29 ram Exp $
  337.   ;#
  338.   ;#  Copyright (c) 1991-1993, Raphael Manfredi
  339.   ;#  
  340. --- 1,4 ----
  341. ! ;# $Id: common.pl,v 3.0.1.2 1994/01/24 14:22:54 ram Exp $
  342.   ;#
  343.   ;#  Copyright (c) 1991-1993, Raphael Manfredi
  344.   ;#  
  345. ***************
  346. *** 9,14 ****
  347. --- 9,17 ----
  348.   ;#  of the source tree for dist 3.0.
  349.   ;#
  350.   ;# $Log: common.pl,v $
  351. + ;# Revision 3.0.1.2  1994/01/24  14:22:54  ram
  352. + ;# patch16: can now define "internal use only" variables on ?MAKE: lines
  353. + ;#
  354.   ;# Revision 3.0.1.1  1993/10/16  13:53:29  ram
  355.   ;# patch12: added support for ?M: lines and confmagic.h production
  356.   ;#
  357. ***************
  358. *** 97,111 ****
  359.       local($_) = @_;
  360.       local(@ary);                    # Locally defined symbols
  361.       local(@dep);                    # Dependencies
  362. !     if (/^[\w ]*:/) {                # Main dependency rule
  363.           s|^\s*||;                    # Remove leading spaces
  364. -         $dependencies .= $_;        # Append to already existing dependencies
  365.           chop;
  366.           s/:(.*)//;
  367.           @dep = split(' ', $1);            # Dependencies
  368.           @ary = split(' ');                # Locally defined symbols
  369. -         $defined = join(' ', @ary);        # Symbols defined by this unit
  370.           foreach $sym (@ary) {
  371.               # Only sumbols starting with a lowercase letter are to
  372.               # appear in config.sh, excepted the ones listed in Except.
  373.               if ($sym =~ /^[a-z]/ || $Except{$sym}) {
  374. --- 100,114 ----
  375.       local($_) = @_;
  376.       local(@ary);                    # Locally defined symbols
  377.       local(@dep);                    # Dependencies
  378. !     if (/^[\w+ ]*:/) {                # Main dependency rule
  379.           s|^\s*||;                    # Remove leading spaces
  380.           chop;
  381.           s/:(.*)//;
  382.           @dep = split(' ', $1);            # Dependencies
  383.           @ary = split(' ');                # Locally defined symbols
  384.           foreach $sym (@ary) {
  385. +             # Symbols starting with a '+' are meant for internal use only.
  386. +             next if $sym =~ s/^\+//;
  387.               # Only sumbols starting with a lowercase letter are to
  388.               # appear in config.sh, excepted the ones listed in Except.
  389.               if ($sym =~ /^[a-z]/ || $Except{$sym}) {
  390. ***************
  391. *** 114,127 ****
  392.               }
  393.           }
  394.           $condlist = '';                # List of conditional symbols
  395. !         foreach $sym (@dep) {
  396. !             if ($sym =~ /^\+[A-Za-z]/) {
  397. !                 $sym =~ s|^\+||;
  398.                   $condlist .= "$sym ";
  399.                   push(@Cond, $sym) unless $condseen{$sym};
  400.                   $condseen{$sym}++;        # Conditionally wanted
  401.               }
  402.           }
  403.           $dependencies .= "    -cond $condlist\n" if $condlist;
  404.       } else {
  405.           $dependencies .= $_;        # Building rules
  406. --- 117,138 ----
  407.               }
  408.           }
  409.           $condlist = '';                # List of conditional symbols
  410. !         local($sym);                # Symbol copy, avoid @dep alteration
  411. !         foreach $dep (@dep) {
  412. !             if ($dep =~ /^\+[A-Za-z]/) {
  413. !                 ($sym = $dep) =~ s|^\+||;
  414.                   $condlist .= "$sym ";
  415.                   push(@Cond, $sym) unless $condseen{$sym};
  416.                   $condseen{$sym}++;        # Conditionally wanted
  417.               }
  418.           }
  419. +         # Append to already existing dependencies. The 'defined' variable
  420. +         # is set for &write_out, used to implement ?L: and ?I: canvas. It is
  421. +         # reset each time a new unit is parsed.
  422. +         # NB: leading '+' for defined symbols (internal use only) have been
  423. +         # removed at this point, but conditional dependencies still bear it.
  424. +         $defined = join(' ', @ary);        # Symbols defined by this unit
  425. +         $dependencies .= $defined . ':' . join(' ', @dep) . "\n";
  426.           $dependencies .= "    -cond $condlist\n" if $condlist;
  427.       } else {
  428.           $dependencies .= $_;        # Building rules
  429.  
  430. Index: mcon/U/errnolist.U
  431. *** mcon/U/errnolist.U.old    Mon Jan 24 15:34:59 1994
  432. --- mcon/U/errnolist.U    Mon Jan 24 15:34:59 1994
  433. ***************
  434. *** 0 ****
  435. --- 1,102 ----
  436. + ?RCS: $Id: errnolist.U,v 3.0.1.1 1994/01/24 14:10:54 ram Exp $
  437. + ?RCS:
  438. + ?RCS: Copyright (c) 1991-1993, Raphael Manfredi
  439. + ?RCS: 
  440. + ?RCS: You may redistribute only under the terms of the Artistic Licence,
  441. + ?RCS: as specified in the README file that comes with the distribution.
  442. + ?RCS: You may reuse parts of this distribution only within the terms of
  443. + ?RCS: that same Artistic Licence; a copy of which may be found at the root
  444. + ?RCS: of the source tree for dist 3.0.
  445. + ?RCS:
  446. + ?RCS: $Log: errnolist.U,v $
  447. + ?RCS: Revision 3.0.1.1  1994/01/24  14:10:54  ram
  448. + ?RCS: patch16: created
  449. + ?RCS:
  450. + ?MAKE:errnolist errnolist_SH errnolist_a errnolist_c errnolist_o: cat +cc \
  451. +     +ccflags +libs +d_sysernlst
  452. + ?MAKE:    -pick add $@ %<
  453. + ?S:errnolist:
  454. + ?S:    This variable holds the base name of a file containing the
  455. + ?S:    definition of the sys_errnolist array, if the C library
  456. + ?S:    doesn't provide it already.  Otherwise, its value is empty.
  457. + ?S:    The following lines should be included in your Makefile.SH:
  458. + ?S:    
  459. + ?S:        case "$errnolist" in
  460. + ?S:        '') ;;
  461. + ?S:        *)
  462. + ?S:            $spitshell >>Makefile <<!GROK!THIS!
  463. + ?S:        $errnolist_c: $errnolist_SH $errnolist_a
  464. + ?S:            sh ./$errnolist_SH
  465. + ?S:    
  466. + ?S:        !GROK!THIS!
  467. + ?S:            ;;
  468. + ?S:        esac
  469. + ?S:    
  470. + ?S:    You may define the 'errnolist' variable in your Myinit.U if you
  471. + ?S:    wish to override its default value "errnolist".
  472. + ?S:.
  473. + ?S:errnolist_SH:
  474. + ?S:    This is the name of a file which will generate errnolistc.
  475. + ?S:.
  476. + ?S:errnolist_a:
  477. + ?S:    This is the name of the awk script called by errnolist_SH.
  478. + ?S:.
  479. + ?S:errnolist_c:
  480. + ?S:    This is the name of a generated C file which provides the
  481. + ?S:    definition of the sys_errnolist array.
  482. + ?S:.
  483. + ?S:errnolist_o:
  484. + ?S:    This is the name of the object file which provides the
  485. + ?S:    definition of the sys_errnolist array, if the C library
  486. + ?S:    doesn't provide it already.  Otherwise, its value is empty.
  487. + ?S:.
  488. + ?INIT:errnolist=errnolist
  489. + : check for sys_errnolist
  490. + @if d_sysernlst || HAS_SYS_ERRNOLIST
  491. + case "$d_sysernlst" in
  492. + "$define")
  493. +     errnolist=''
  494. +     errnolist_SH=''
  495. +     errnolist_a=''
  496. +     errnolist_c=''
  497. +     errnolist_o=''
  498. +     ;;
  499. + *)
  500. +     echo " "
  501. +     echo "I'll make sure your Makefile provides sys_errnolist in $errnolist.c"
  502. +     errnolist_SH=$errnolist.SH
  503. +     errnolist_a=$errnolist.a
  504. +     errnolist_c=$errnolist.c
  505. +     errnolist_o=$errnolist.o
  506. +     ;;
  507. + esac
  508. + @else
  509. + echo " "
  510. + $cat <<EOM
  511. + Checking to see if your C library provides us with sys_errnolist[]...
  512. + EOM
  513. + $cat >errnolist.c <<'EOCP'
  514. + extern char *sys_errnolist[];
  515. + main() {
  516. +     char *p0 = sys_errnolist[0];
  517. +     char *p1 = sys_errnolist[1];
  518. + 
  519. +     return (p0 == p1);    /* Make sure they're not optimized away */
  520. + }
  521. + EOCP
  522. + if $cc $ccflags -o errnolist errnolist.c $libs >/dev/null 2>&1 ; then
  523. +     echo "It does."
  524. +     errnolist=''
  525. +     errnolist_SH=''
  526. +     errnolist_a=''
  527. +     errnolist_c=''
  528. +     errnolist_o=''
  529. + else
  530. +     echo "I'll make sure your Makefile provides sys_errnolist in $errnolist.c"
  531. +     errnolist_SH=$errnolist.SH
  532. +     errnolist_a=$errnolist.a
  533. +     errnolist_c=$errnolist.c
  534. +     errnolist_o=$errnolist.o
  535. + fi
  536. + @end
  537. + 
  538.  
  539. Index: mcon/U/MailList.U
  540. *** mcon/U/MailList.U.old    Mon Jan 24 15:34:50 1994
  541. --- mcon/U/MailList.U    Mon Jan 24 15:34:50 1994
  542. ***************
  543. *** 0 ****
  544. --- 1,82 ----
  545. + ?RCS: $Id: MailList.U,v 3.0.1.1 1994/01/24 14:01:49 ram Exp $
  546. + ?RCS:
  547. + ?RCS: Copyright (c) 1991-1993, Raphael Manfredi
  548. + ?RCS: 
  549. + ?RCS: You may redistribute only under the terms of the Artistic Licence,
  550. + ?RCS: as specified in the README file that comes with the distribution.
  551. + ?RCS: You may reuse parts of this distribution only within the terms of
  552. + ?RCS: that same Artistic Licence; a copy of which may be found at the root
  553. + ?RCS: of the source tree for dist 3.0.
  554. + ?RCS: 
  555. + ?RCS: Original Author: Graham Stoney <greyham@research.canon.oz.au>
  556. + ?RCS:
  557. + ?RCS: $Log: MailList.U,v $
  558. + ?RCS: Revision 3.0.1.1  1994/01/24  14:01:49  ram
  559. + ?RCS: patch16: created
  560. + ?RCS:
  561. + ?RCS:
  562. + ?X:
  563. + ?X: This unit offers the user the option of subscribing to the mailing
  564. + ?X: list. To force inclusion of this unit, you must add it's name to the
  565. + ?X: dependancies on the MAKE line in your private copy of End.U.
  566. + ?X: The address of the mailing list server must be set via a "list_request=..."
  567. + ?X: entry in the .package file. This is usually done by running packinit and
  568. + ?X: answering the proper questions.
  569. + ?X:
  570. + ?MAKE:MailList: cat mailer package Myread cf_name cf_email
  571. + ?MAKE:    -pick wipe $@ %<
  572. + ?T:list_request list_sub list_unsub list_name
  573. + ?X:
  574. + ?X: The cf_name dependency is used through list_sub when the mailing list
  575. + ?X: manager happens to be listserv, whereas cf_email is used whith majordomo
  576. + ?X: or when the mailing list request address is scanned by a human. Since
  577. + ?X: they do not appear within the unit itself, we need a lint hint.
  578. + ?X:
  579. + ?LINT:use cf_name cf_email
  580. + : offer to join the mailing list
  581. + list_request='<$list_request>'
  582. + list_sub="<$list_sub>"
  583. + list_unsub="<$list_unsub>"
  584. + list_name="<$list_name>"
  585. + $cat <<EOM
  586. + 
  587. + There is a mailing list for discussion about $package and related issues.
  588. + This is the preferred place to ask questions about the program and discuss
  589. + modifications and additions with the author and other users.  If you are able
  590. + to send mail to the Internet, you are encouraged to subscribe.  You need only
  591. + ever subscribe once, and you can unsubscribe automatically at any time in the
  592. + future.  If you have already subscribed and you wish to unsubscribe now, you
  593. + may do so by answering "unsubscribe".  Answer "subscribe" to subscribe to the
  594. + list.
  595. + 
  596. + EOM
  597. + rp="Subscribe to or unsubscribe from the $list_name mailing list?"
  598. + dflt=neither
  599. + . ./myread
  600. + case "$ans" in
  601. + [sS]*)    $cat <<EOM
  602. + 
  603. + You will be sent a message from the list server to let you know when your
  604. + subscription has been successful and telling you how to submit articles and
  605. + how to unsubscribe again when necessary. You may also unsubscribe by running
  606. + this script again and asking it to do so for you.
  607. + 
  608. + EOM
  609. +     echo "Sending mail to subscribe you to the $list_name list..." >&4
  610. +     $mailer $list_request <<EOM >/dev/null 2>&1
  611. + Precedence: junk
  612. + To: $list_request
  613. + 
  614. + $list_sub
  615. + EOM
  616. +     ;;
  617. + [uU]*)    echo "Sending mail to unsubscribe you from the $list_name list..." >&4
  618. +     $mailer $list_request <<EOM >/dev/null 2>&1
  619. + Precedence: junk
  620. + To: $list_request
  621. + 
  622. + $list_unsub
  623. + EOM
  624. +     ;;
  625. + esac
  626. + 
  627.  
  628. Index: mcon/man/mlint.SH
  629. Prereq: 3.0.1.3
  630. *** mcon/man/mlint.SH.old    Mon Jan 24 15:35:10 1994
  631. --- mcon/man/mlint.SH    Mon Jan 24 15:35:11 1994
  632. ***************
  633. *** 20,26 ****
  634.   .TH METACONFIG $manext "Version $VERSION PL$PATCHLEVEL"
  635.   ''' @(#) Manual page for metalint
  636.   '''
  637. ! ''' $Id: mlint.SH,v 3.0.1.3 1993/11/10 17:37:39 ram Exp $
  638.   '''
  639.   '''  Copyright (c) 1991-1993, Raphael Manfredi
  640.   '''  
  641. --- 20,26 ----
  642.   .TH METACONFIG $manext "Version $VERSION PL$PATCHLEVEL"
  643.   ''' @(#) Manual page for metalint
  644.   '''
  645. ! ''' $Id: mlint.SH,v 3.0.1.4 1994/01/24 14:20:39 ram Exp $
  646.   '''
  647.   '''  Copyright (c) 1991-1993, Raphael Manfredi
  648.   '''  
  649. ***************
  650. *** 31,36 ****
  651. --- 31,39 ----
  652.   '''  of the source tree for dist 3.0.
  653.   '''
  654.   ''' $Log: mlint.SH,v $
  655. + ''' Revision 3.0.1.4  1994/01/24  14:20:39  ram
  656. + ''' patch16: can now easily suppress warning about made "special units"
  657. + '''
  658.   ''' Revision 3.0.1.3  1993/11/10  17:37:39  ram
  659.   ''' patch14: documents stale ?M: dependency check
  660.   '''
  661. ***************
  662. *** 90,96 ****
  663.   .TP
  664.   "(?MAKE) special unit 'Xxx' should not be listed as made."
  665.   A special unit symbol (first letter capitalized) may only be listed as made
  666. ! in the special unit itself.
  667.   .TP
  668.   "(?MAKE) '+xxx' is listed x times."
  669.   A conditional dependency is listed more than once. This is harmless though.
  670. --- 93,102 ----
  671.   .TP
  672.   "(?MAKE) special unit 'Xxx' should not be listed as made."
  673.   A special unit symbol (first letter capitalized) may only be listed as made
  674. ! in the special unit itself. To suppress this warning in legitimate cases,
  675. ! add a '+' in front of the offending symbol (note that for non-special units,
  676. ! the '+' in this position indicates an internal symbol which should not appear
  677. ! in the config.sh file).
  678.   .TP
  679.   "(?MAKE) '+xxx' is listed x times."
  680.   A conditional dependency is listed more than once. This is harmless though.
  681.  
  682. Index: mcon/mlint.SH
  683. Prereq: 3.0.1.1
  684. *** mcon/mlint.SH.old    Mon Jan 24 15:35:12 1994
  685. --- mcon/mlint.SH    Mon Jan 24 15:35:12 1994
  686. ***************
  687. *** 20,26 ****
  688.       eval "exec perl -S \$0 \$*"
  689.           if \$running_under_some_shell;
  690.   
  691. ! # $Id: mlint.SH,v 3.0.1.1 1993/08/19 06:42:27 ram Exp $
  692.   #
  693.   #  Copyright (c) 1991-1993, Raphael Manfredi
  694.   #  
  695. --- 20,26 ----
  696.       eval "exec perl -S \$0 \$*"
  697.           if \$running_under_some_shell;
  698.   
  699. ! # $Id: mlint.SH,v 3.0.1.2 1994/01/24 14:21:00 ram Exp $
  700.   #
  701.   #  Copyright (c) 1991-1993, Raphael Manfredi
  702.   #  
  703. ***************
  704. *** 33,38 ****
  705. --- 33,41 ----
  706.   # Original Author: Harlan Stenn <harlan@mumps.pfcs.com>
  707.   #
  708.   # $Log: mlint.SH,v $
  709. + # Revision 3.0.1.2  1994/01/24  14:21:00  ram
  710. + # patch16: added ~/.dist_profile awareness
  711. + #
  712.   # Revision 3.0.1.1  1993/08/19  06:42:27  ram
  713.   # patch1: leading config.sh searching was not aborting properly
  714.   #
  715. ***************
  716. *** 56,61 ****
  717. --- 59,65 ----
  718.   chop($MC = `pwd`);                # Real metalint lib path (no symbolic links)
  719.   chdir $WD || die "Can't chdir back to $WD: $!\n";
  720.   
  721. + &profile;                        # Read ~/.dist_profile
  722.   require 'getopts.pl';
  723.   &usage unless &Getopts("hklV");
  724.   
  725. ***************
  726. *** 123,127 ****
  727. --- 127,132 ----
  728.   $grep -v '^;#' pl/obsolete.pl >>mlint 
  729.   $grep -v '^;#' pl/tsort.pl >>mlint 
  730.   $grep -v '^;#' ../pl/tilde.pl >>mlint 
  731. + $grep -v '^;#' ../pl/profile.pl >>mlint
  732.   chmod +x mlint
  733.   $eunicefix mlint
  734.  
  735. Index: bin/packinit.man
  736. Prereq: 3.0
  737. *** bin/packinit.man.old    Mon Jan 24 15:34:33 1994
  738. --- bin/packinit.man    Mon Jan 24 15:34:33 1994
  739. ***************
  740. *** 1,4 ****
  741. ! ''' $Id: packinit.man,v 3.0 1993/08/18 12:04:06 ram Exp $
  742.   '''
  743.   '''  Copyright (c) 1991-1993, Raphael Manfredi
  744.   '''  
  745. --- 1,4 ----
  746. ! ''' $Id: packinit.man,v 3.0.1.1 1994/01/24 13:54:31 ram Exp $
  747.   '''
  748.   '''  Copyright (c) 1991-1993, Raphael Manfredi
  749.   '''  
  750. ***************
  751. *** 9,14 ****
  752. --- 9,17 ----
  753.   '''  of the source tree for dist 3.0.
  754.   '''
  755.   ''' $Log: packinit.man,v $
  756. + ''' Revision 3.0.1.1  1994/01/24  13:54:31  ram
  757. + ''' patch16: now documents variables set in .package by packinit
  758. + '''
  759.   ''' Revision 3.0  1993/08/18  12:04:06  ram
  760.   ''' Baseline for dist 3.0 netwide release.
  761.   '''
  762. ***************
  763. *** 32,37 ****
  764. --- 35,114 ----
  765.   .I Packinit
  766.   will create a single file and leave the remaining of
  767.   your directory undisturbed.
  768. + .SH VARIABLES
  769. + .I Packinit
  770. + defines the following variables in your \fI.package\fR file:
  771. + .TP 15
  772. + .PD 0
  773. + baserev
  774. + The baseline revision number.
  775. + .TP
  776. + copyright
  777. + Name of the file used for Copyright expansion.
  778. + .TP
  779. + ftpdir
  780. + Directory where patches are located on the FTP site.
  781. + .TP
  782. + ftpsite
  783. + Name of the FTP site where patches may be retrieved from.
  784. + .TP
  785. + list_addr
  786. + Address of the package mailing list where users may post messages to.
  787. + .TP
  788. + list_manager
  789. + Type of list manager attached to the list administrative request address.
  790. + .TP
  791. + list_name
  792. + Name of the package users mailing list.
  793. + .TP
  794. + list_request
  795. + Address where subscribe and unsubscribe requests for the package mailing
  796. + list should be sent to.
  797. + .TP
  798. + list_sub
  799. + Format of the subscribe requests.
  800. + .TP
  801. + list_unsub
  802. + Format of the unsubscribe requests.
  803. + .TP
  804. + list_users
  805. + A boolean string set to 'true' when there is a mailing list set up for
  806. + discussion about the package.
  807. + .TP
  808. + mailagent
  809. + A boolean string set to 'true' when people are allowed to retrieve
  810. + patches via mailagent \fI@SH mailpatch\fR commands.
  811. + .TP
  812. + maintloc
  813. + E-mail address of the package maintainer, preferably in Internet format.
  814. + .TP
  815. + maintname
  816. + Full name of the package maintainer.
  817. + .TP
  818. + mydiff
  819. + Name of the \fIdiff\fR program to be used when computing a patch.
  820. + .TP
  821. + newsgroups
  822. + Newsgroup list where new patches should be posted to, empty for no
  823. + postings.
  824. + .TP
  825. + orgname
  826. + Full name of the organization where the package maitainer resides, or
  827. + path to a file containing that name.
  828. + .TP
  829. + package
  830. + Name of the package.
  831. + .TP
  832. + packver
  833. + Version of the \fIpackinit\fR program that built the \fI.package\fR file.
  834. + .TP
  835. + patchbranch
  836. + Name of the RCS branch used to store subsequent updates of a file after
  837. + a baseline has been released.
  838. + .TP
  839. + recipients
  840. + People who should be sent newly issued patches.
  841. + .PD
  842.   .SH FILE
  843.   .TP 15
  844.   \&.package
  845.  
  846. Index: mcon/U/sbrksmart.U
  847. *** mcon/U/sbrksmart.U.old    Mon Jan 24 15:35:07 1994
  848. --- mcon/U/sbrksmart.U    Mon Jan 24 15:35:07 1994
  849. ***************
  850. *** 0 ****
  851. --- 1,79 ----
  852. + ?RCS: $Id: sbrksmart.U,v 3.0.1.1 1994/01/24 14:16:45 ram Exp $
  853. + ?RCS:
  854. + ?RCS: Copyright (c) 1991-1993, Raphael Manfredi
  855. + ?RCS: 
  856. + ?RCS: You may redistribute only under the terms of the Artistic Licence,
  857. + ?RCS: as specified in the README file that comes with the distribution.
  858. + ?RCS: You may reuse parts of this distribution only within the terms of
  859. + ?RCS: that same Artistic Licence; a copy of which may be found at the root
  860. + ?RCS: of the source tree for dist 3.0.
  861. + ?RCS:
  862. + ?RCS: $Log: sbrksmart.U,v $
  863. + ?RCS: Revision 3.0.1.1  1994/01/24  14:16:45  ram
  864. + ?RCS: patch16: created
  865. + ?RCS:
  866. + ?MAKE:sbrksmart: cat d_sbrk +cc +ccflags +libs rm
  867. + ?MAKE:    -pick add $@ %<
  868. + ?S:sbrksmart:
  869. + ?S:    This variable conditionally defines HAS_SMART_SBRK if the sbrk()
  870. + ?S:    routine honors a negative argument to lower the break value.
  871. + ?S:.
  872. + ?C:HAS_SMART_SBRK:
  873. + ?C:    This symbol is defined when the sbrk() system call may be used with
  874. + ?C:    a negative argument to lower the break value, therefore releasing
  875. + ?C:    core to the system. If not, you'd probably be better off using the
  876. + ?C:    mmap() system call.
  877. + ?C:.
  878. + ?H:#$sbrksmart HAS_SMART_SBRK /**/
  879. + ?H:.
  880. + ?T:dumb
  881. + : see if sbrk can release core to the kernel
  882. + echo " "
  883. + case "$d_sbrk" in
  884. + "$define")
  885. +     echo "Let's see if your sbrk() is smart enough to release core..." >&4
  886. +     $cat > sbrk.c <<'EOC'
  887. + #define INC 256        /* Small enough to be less than a page size */
  888. + 
  889. + main()
  890. + {
  891. +     char *obrk = (char *) sbrk(0);
  892. +     char *nbrk;
  893. + 
  894. +     nbrk = (char *) sbrk(INC);
  895. +     if (nbrk == (char *) -1)
  896. +         exit(1);    /* Not enough memory */
  897. +     if (nbrk != obrk)
  898. +         exit(2);    /* Unreliable sbrk() */
  899. +     nbrk = sbrk(-INC);
  900. +     if (nbrk == (char *) -1)
  901. +         exit(3);    /* May have understood negative arg as huge positive */
  902. +     if (obrk != (char *) sbrk(0))
  903. +         exit(4);    /* Not smart, definitely */
  904. + 
  905. +     exit(0);        /* Ok */
  906. + }
  907. + EOC
  908. +     sbrksmart="$undef"
  909. +     dumb='-- assuming dumb sbrk().'
  910. +     if $cc $ccflags -o sbrk sbrk.c $libs >/dev/null 2>&1; then
  911. +         ./sbrk >/dev/null 2>&1
  912. +         case $? in
  913. +         0) sbrksmart="$define"
  914. +             echo "Yes, it can be used with negative values." ;;
  915. +         1) echo "Sorry, not enough memory $dumb" ;;
  916. +         2) echo "No it's not, and besides it seems to be buggy..." ;;
  917. +         3) echo "No, it fails with negative values." ;;
  918. +         4) echo "Nope, your sbrk() is too dumb." ;;
  919. +         *) echo "Err... Unexpected result $dumb" ;;
  920. +         esac
  921. +     else
  922. +         echo "(Could not compile test program $dumb)"
  923. +     fi
  924. +     ;;
  925. + *)
  926. +     echo "Since you don't have sbrk(), let's forget about the smart test!"
  927. +     ;;
  928. + esac
  929. + $rm -f sbrk sbrk.* core
  930. + 
  931.  
  932. Index: pat/patsnap.SH
  933. Prereq: 3.0.1.1
  934. *** pat/patsnap.SH.old    Mon Jan 24 15:35:25 1994
  935. --- pat/patsnap.SH    Mon Jan 24 15:35:25 1994
  936. ***************
  937. *** 20,26 ****
  938.       eval "exec perl -S \$0 \$*"
  939.           if \$running_under_some_shell;
  940.   
  941. ! # $Id: patsnap.SH,v 3.0.1.1 1993/08/24 12:22:08 ram Exp $
  942.   #
  943.   #  Copyright (c) 1991-1993, Raphael Manfredi
  944.   #  
  945. --- 20,26 ----
  946.       eval "exec perl -S \$0 \$*"
  947.           if \$running_under_some_shell;
  948.   
  949. ! # $Id: patsnap.SH,v 3.0.1.2 1994/01/24 14:33:08 ram Exp $
  950.   #
  951.   #  Copyright (c) 1991-1993, Raphael Manfredi
  952.   #  
  953. ***************
  954. *** 31,36 ****
  955. --- 31,40 ----
  956.   #  of the source tree for dist 3.0.
  957.   #
  958.   # $Log: patsnap.SH,v $
  959. + # Revision 3.0.1.2  1994/01/24  14:33:08  ram
  960. + # patch16: now prefix error messages with program's name
  961. + # patch16: added ~/.dist_profile awareness
  962. + #
  963.   # Revision 3.0.1.1  1993/08/24  12:22:08  ram
  964.   # patch3: created
  965.   #
  966. ***************
  967. *** 40,47 ****
  968.   !GROK!THIS!
  969.   cat >>patsnap <<'!NO!SUBS!'
  970.   
  971. ! $progname = 'patsnap';        # My name
  972. ! 
  973.   require 'getopts.pl';
  974.   &usage unless $#ARGV >= 0;
  975.   &usage unless &Getopts("aho:V");
  976. --- 44,50 ----
  977.   !GROK!THIS!
  978.   cat >>patsnap <<'!NO!SUBS!'
  979.   
  980. ! $progname = &profile;        # Read ~/.dist_profile
  981.   require 'getopts.pl';
  982.   &usage unless $#ARGV >= 0;
  983.   &usage unless &Getopts("aho:V");
  984. ***************
  985. *** 62,68 ****
  986.   $SNAPSHOT = $opt_o if $opt_o;
  987.   
  988.   if ($opt_a) {
  989. !     open(MANI,"MANIFEST.new") || die "No MANIFEST.new found.\n";
  990.       @ARGV = ();
  991.       while (<MANI>) {
  992.           chop;
  993. --- 65,71 ----
  994.   $SNAPSHOT = $opt_o if $opt_o;
  995.   
  996.   if ($opt_a) {
  997. !     open(MANI,"MANIFEST.new") || die "$progname: can't read MANIFEST.new: $!\n";
  998.       @ARGV = ();
  999.       while (<MANI>) {
  1000.           chop;
  1001. ***************
  1002. *** 88,99 ****
  1003.           next;
  1004.       }
  1005.       elsif ($revs == 1) {
  1006. !         print "Last revision for $file is $baserev.\n";
  1007.           print SNAPSHOT "$file\t$baserev\n";
  1008.       }
  1009.       else {
  1010.           ($lastrev) = ($rlog =~ /revision $revbranch\.(\d+)/);
  1011. !         print "Last revision for $file is $revbranch.$lastrev.\n";
  1012.           print SNAPSHOT "$file\t$revbranch.$lastrev\n";
  1013.       }
  1014.   }
  1015. --- 91,102 ----
  1016.           next;
  1017.       }
  1018.       elsif ($revs == 1) {
  1019. !         print "$progname: last revision for $file is $baserev.\n";
  1020.           print SNAPSHOT "$file\t$baserev\n";
  1021.       }
  1022.       else {
  1023.           ($lastrev) = ($rlog =~ /revision $revbranch\.(\d+)/);
  1024. !         print "$progname: last revision for $file is $revbranch.$lastrev.\n";
  1025.           print SNAPSHOT "$file\t$revbranch.$lastrev\n";
  1026.       }
  1027.   }
  1028. ***************
  1029. *** 115,119 ****
  1030. --- 118,124 ----
  1031.   $grep -v '^;#' ../pl/package.pl >>patsnap
  1032.   $grep -v '^;#' ../pl/rcsargs.pl >>patsnap
  1033.   $grep -v '^;#' ../pl/comment.pl >>patsnap
  1034. + $grep -v '^;#' ../pl/tilde.pl >>patsnap
  1035. + $grep -v '^;#' ../pl/profile.pl >>patsnap
  1036.   chmod +x patsnap
  1037.   $eunicefix patsnap
  1038.  
  1039. Index: mcon/U/libflex.U
  1040. Prereq: 3.0
  1041. *** mcon/U/libflex.U.old    Mon Jan 24 15:35:02 1994
  1042. --- mcon/U/libflex.U    Mon Jan 24 15:35:02 1994
  1043. ***************
  1044. *** 1,4 ****
  1045. ! ?RCS: $Id: libflex.U,v 3.0 1993/08/18 12:08:59 ram Exp $
  1046.   ?RCS:
  1047.   ?RCS: Copyright (c) 1991-1993, Raphael Manfredi
  1048.   ?RCS: 
  1049. --- 1,4 ----
  1050. ! ?RCS: $Id: libflex.U,v 3.0.1.1 1994/01/24 14:13:25 ram Exp $
  1051.   ?RCS:
  1052.   ?RCS: Copyright (c) 1991-1993, Raphael Manfredi
  1053.   ?RCS: 
  1054. ***************
  1055. *** 9,32 ****
  1056.   ?RCS: of the source tree for dist 3.0.
  1057.   ?RCS:
  1058.   ?RCS: $Log: libflex.U,v $
  1059.   ?RCS: Revision 3.0  1993/08/18  12:08:59  ram
  1060.   ?RCS: Baseline for dist 3.0 netwide release.
  1061.   ?RCS:
  1062. ! ?MAKE:libflex: test Loc flex libpth
  1063.   ?MAKE:    -pick add $@ %<
  1064.   ?S:libflex:
  1065.   ?S:    This variable contains the argument to pass to the loader in order
  1066. ! ?S:    to get the flex library routines.  If there is no flex or flex
  1067.   ?S:    library, it is null.
  1068.   ?S:.
  1069.   ?T:xxx
  1070. - ?O: use libswanted='-lfl' instead (see libs.U)
  1071.   : see if we should include -lfl
  1072.   echo " "
  1073. ! case "$flex" in
  1074. ! */flex)
  1075.       if $test -r /usr/lib/libfl.a || $test -r /usr/local/lib/libfl.a ; then
  1076.           echo "-lfl found." >&4
  1077.       else
  1078.           xxx=`./loc libfl.a x $libpth`
  1079.           case "$xxx" in
  1080. --- 9,35 ----
  1081.   ?RCS: of the source tree for dist 3.0.
  1082.   ?RCS:
  1083.   ?RCS: $Log: libflex.U,v $
  1084. + ?RCS: Revision 3.0.1.1  1994/01/24  14:13:25  ram
  1085. + ?RCS: patch16: un-obsoleted this unit to allow smooth lex/flex compilations
  1086. + ?RCS:
  1087.   ?RCS: Revision 3.0  1993/08/18  12:08:59  ram
  1088.   ?RCS: Baseline for dist 3.0 netwide release.
  1089.   ?RCS:
  1090. ! ?MAKE:libflex: test Loc lex libpth
  1091.   ?MAKE:    -pick add $@ %<
  1092.   ?S:libflex:
  1093.   ?S:    This variable contains the argument to pass to the loader in order
  1094. ! ?S:    to get the flex/lex library routines.  If there is no flex or flex
  1095.   ?S:    library, it is null.
  1096.   ?S:.
  1097.   ?T:xxx
  1098.   : see if we should include -lfl
  1099.   echo " "
  1100. ! case "$lex" in
  1101. ! *flex)
  1102.       if $test -r /usr/lib/libfl.a || $test -r /usr/local/lib/libfl.a ; then
  1103.           echo "-lfl found." >&4
  1104. +         libflex='-lfl'
  1105.       else
  1106.           xxx=`./loc libfl.a x $libpth`
  1107.           case "$xxx" in
  1108. ***************
  1109. *** 40,47 ****
  1110.               ;;
  1111.           esac
  1112.       fi
  1113.   *)
  1114. ! echo "You don't seem to have flex, so I won't look for the flex library." >&4
  1115.       ;;
  1116.   esac
  1117.   
  1118. --- 43,69 ----
  1119.               ;;
  1120.           esac
  1121.       fi
  1122. +     ;;
  1123. + *lex)
  1124. +     if $test -r /usr/lib/libl.a || $test -r /usr/local/lib/libl.a ; then
  1125. +         echo "-ll found." >&4
  1126. +         libflex='-ll'
  1127. +     else
  1128. +         xxx=`./loc libl.a x $libpth`
  1129. +         case "$xxx" in
  1130. +         x)
  1131. +             echo "No lex library found." >&4
  1132. +             libflex=''
  1133. +             ;;
  1134. +         *)
  1135. +             echo "lex library found in $xxx." >&4
  1136. +             libflex="$xxx"
  1137. +             ;;
  1138. +         esac
  1139. +     fi
  1140. +     ;;
  1141.   *)
  1142. ! echo "You don't seem to have lex or flex, so I won't look for libraries." >&4
  1143.       ;;
  1144.   esac
  1145.   
  1146.  
  1147. Index: mcon/U/vaproto.U
  1148. Prereq: 3.0
  1149. *** mcon/U/vaproto.U.old    Mon Jan 24 15:35:07 1994
  1150. --- mcon/U/vaproto.U    Mon Jan 24 15:35:07 1994
  1151. ***************
  1152. *** 1,4 ****
  1153. ! ?RCS: $Id: vaproto.U,v 3.0 1993/08/18 12:09:59 ram Exp $
  1154.   ?RCS:
  1155.   ?RCS: Copyright (c) 1991-1993, Raphael Manfredi
  1156.   ?RCS: 
  1157. --- 1,4 ----
  1158. ! ?RCS: $Id: vaproto.U,v 3.0.1.1 1994/01/24 14:17:16 ram Exp $
  1159.   ?RCS:
  1160.   ?RCS: Copyright (c) 1991-1993, Raphael Manfredi
  1161.   ?RCS: 
  1162. ***************
  1163. *** 11,16 ****
  1164. --- 11,19 ----
  1165.   ?RCS: Orginal Author: Graham Stoney <greyham@research.canon.oz.au>
  1166.   ?RCS:
  1167.   ?RCS: $Log: vaproto.U,v $
  1168. + ?RCS: Revision 3.0.1.1  1994/01/24  14:17:16  ram
  1169. + ?RCS: patch16: definition of _V now appears only when needed
  1170. + ?RCS:
  1171.   ?RCS: Revision 3.0  1993/08/18  12:09:59  ram
  1172.   ?RCS: Baseline for dist 3.0 netwide release.
  1173.   ?RCS:
  1174. ***************
  1175. *** 25,31 ****
  1176.   ?C:    This variable is defined on systems supporting prototype declaration
  1177.   ?C:    of functions with a variable number of arguments.
  1178.   ?C:.
  1179. ! ?C:_V ~ %<:
  1180.   ?C:    This macro is used to declare function parameters in prototypes for
  1181.   ?C:    functions with a variable number of parameters. Use double parentheses.
  1182.   ?C:    For example:
  1183. --- 28,34 ----
  1184.   ?C:    This variable is defined on systems supporting prototype declaration
  1185.   ?C:    of functions with a variable number of arguments.
  1186.   ?C:.
  1187. ! ?C:_V:
  1188.   ?C:    This macro is used to declare function parameters in prototypes for
  1189.   ?C:    functions with a variable number of parameters. Use double parentheses.
  1190.   ?C:    For example:
  1191. ***************
  1192. *** 37,47 ****
  1193.   ?C:    have a non-effect _V() macro and still get prototypes via _().
  1194.   ?C:.
  1195.   ?H:?%<:#$vaproto CAN_VAPROTO    /**/
  1196. ! ?H:?%<:#ifdef CAN_VAPROTO
  1197. ! ?H:?%<:#define    _V(args) args
  1198. ! ?H:?%<:#else
  1199. ! ?H:?%<:#define    _V(args) ()
  1200. ! ?H:?%<:#endif
  1201.   ?H:.
  1202.   ?W:%<:_V
  1203.   ?LINT:set vaproto
  1204. --- 40,50 ----
  1205.   ?C:    have a non-effect _V() macro and still get prototypes via _().
  1206.   ?C:.
  1207.   ?H:?%<:#$vaproto CAN_VAPROTO    /**/
  1208. ! ?H:?_V:#ifdef CAN_VAPROTO
  1209. ! ?H:?_V:#define    _V(args) args
  1210. ! ?H:?_V:#else
  1211. ! ?H:?_V:#define    _V(args) ()
  1212. ! ?H:?_V:#endif
  1213.   ?H:.
  1214.   ?W:%<:_V
  1215.   ?LINT:set vaproto
  1216. ***************
  1217. *** 49,59 ****
  1218.   echo " "
  1219.   case "$prototype$i_stdarg" in
  1220.   $define$define)
  1221. !     echo "It appears we'll be able to prototype varargs functions."
  1222.       val="$define"
  1223.       ;;
  1224.   *)
  1225. !     echo "Too bad... We won't be using prototyped varargs functions..."
  1226.       val="$undef"
  1227.       ;;
  1228.   esac
  1229. --- 52,62 ----
  1230.   echo " "
  1231.   case "$prototype$i_stdarg" in
  1232.   $define$define)
  1233. !     echo "It appears we'll be able to prototype varargs functions." >&4
  1234.       val="$define"
  1235.       ;;
  1236.   *)
  1237. !     echo "Too bad... We won't be using prototyped varargs functions..." >&4
  1238.       val="$undef"
  1239.       ;;
  1240.   esac
  1241.  
  1242. Index: kit/makedist.SH
  1243. Prereq: 3.0.1.1
  1244. *** kit/makedist.SH.old    Mon Jan 24 15:34:37 1994
  1245. --- kit/makedist.SH    Mon Jan 24 15:34:37 1994
  1246. ***************
  1247. *** 17,23 ****
  1248.       eval "exec perl -S \$0 \$*"
  1249.           if \$running_under_some_shell;
  1250.   
  1251. ! # $Id: makedist.SH,v 3.0.1.1 1993/08/19 06:42:17 ram Exp $
  1252.   #
  1253.   #  Copyright (c) 1991-1993, Raphael Manfredi
  1254.   #  
  1255. --- 17,23 ----
  1256.       eval "exec perl -S \$0 \$*"
  1257.           if \$running_under_some_shell;
  1258.   
  1259. ! # $Id: makedist.SH,v 3.0.1.2 1994/01/24 13:58:20 ram Exp $
  1260.   #
  1261.   #  Copyright (c) 1991-1993, Raphael Manfredi
  1262.   #  
  1263. ***************
  1264. *** 28,33 ****
  1265. --- 28,38 ----
  1266.   #  of the source tree for dist 3.0.
  1267.   #
  1268.   # $Log: makedist.SH,v $
  1269. + # Revision 3.0.1.2  1994/01/24  13:58:20  ram
  1270. + # patch16: modified call to manifake to trap exceptions manually
  1271. + # patch16: removed final sed post-processing to allow 'make depend' target
  1272. + # patch16: added ~/.dist_profile awareness
  1273. + #
  1274.   # Revision 3.0.1.1  1993/08/19  06:42:17  ram
  1275.   # patch1: leading config.sh searching was not aborting properly
  1276.   #
  1277. ***************
  1278. *** 40,48 ****
  1279. --- 45,56 ----
  1280.   !GROK!THIS!
  1281.   $spitshell >>makedist <<'!NO!SUBS!'
  1282.   
  1283. + &profile;                    # Read ~/.dist_profile
  1284.   require 'getopts.pl';
  1285.   &usage unless &Getopts('c:f:dhvqs:V');
  1286.   
  1287. + $ENV{'DIST'} = '/dev/null';    # Disable ~/.dist_profile
  1288. + 
  1289.   if ($opt_V) {
  1290.       print STDERR "makedist $version PL$patchlevel\n";
  1291.       exit 0;
  1292. ***************
  1293. *** 67,74 ****
  1294.   
  1295.   &readpackage;
  1296.   &get_patchlevel;
  1297. - &manifake;
  1298.   
  1299.   if ($opt_c) {                # Copy distribution only, no shell archive
  1300.       &distcopy;
  1301.       exit 0;
  1302. --- 75,87 ----
  1303.   
  1304.   &readpackage;
  1305.   &get_patchlevel;
  1306.   
  1307. + eval '&manifake';            # Want to trap possible die and redirect to fatal
  1308. + if ($@ ne '') {
  1309. +     chop($@);
  1310. +     &fatal($@);
  1311. + }
  1312. + 
  1313.   if ($opt_c) {                # Copy distribution only, no shell archive
  1314.       &distcopy;
  1315.       exit 0;
  1316. ***************
  1317. *** 438,446 ****
  1318.   
  1319.   !NO!SUBS!
  1320.   $grep -v '^;#' ../pl/package.pl >>makedist
  1321. ! $grep -v '^;#' ../pl/manifake.pl | \
  1322. !     $sed -e 's|die \(.*\);|do fatal(\1);|' >>makedist
  1323.   $grep -v '^;#' ../pl/copyright.pl >>makedist
  1324.   $grep -v '^;#' ../pl/makedir.pl >>makedist
  1325.   chmod +x makedist
  1326.   $eunicefix makedist
  1327. --- 451,460 ----
  1328.   
  1329.   !NO!SUBS!
  1330.   $grep -v '^;#' ../pl/package.pl >>makedist
  1331. ! $grep -v '^;#' ../pl/manifake.pl >>makedist
  1332.   $grep -v '^;#' ../pl/copyright.pl >>makedist
  1333.   $grep -v '^;#' ../pl/makedir.pl >>makedist
  1334. + $grep -v '^;#' ../pl/tilde.pl >>makedist
  1335. + $grep -v '^;#' ../pl/profile.pl >>makedist
  1336.   chmod +x makedist
  1337.   $eunicefix makedist
  1338.  
  1339. Index: mcon/U/libyacc.U
  1340. Prereq: 3.0
  1341. *** mcon/U/libyacc.U.old    Mon Jan 24 15:35:03 1994
  1342. --- mcon/U/libyacc.U    Mon Jan 24 15:35:03 1994
  1343. ***************
  1344. *** 1,4 ****
  1345. ! ?RCS: $Id: libyacc.U,v 3.0 1993/08/18 12:09:04 ram Exp $
  1346.   ?RCS:
  1347.   ?RCS: Copyright (c) 1991-1993, Raphael Manfredi
  1348.   ?RCS: 
  1349. --- 1,4 ----
  1350. ! ?RCS: $Id: libyacc.U,v 3.0.1.1 1994/01/24 14:13:49 ram Exp $
  1351.   ?RCS:
  1352.   ?RCS: Copyright (c) 1991-1993, Raphael Manfredi
  1353.   ?RCS: 
  1354. ***************
  1355. *** 9,18 ****
  1356.   ?RCS: of the source tree for dist 3.0.
  1357.   ?RCS:
  1358.   ?RCS: $Log: libyacc.U,v $
  1359.   ?RCS: Revision 3.0  1993/08/18  12:09:04  ram
  1360.   ?RCS: Baseline for dist 3.0 netwide release.
  1361.   ?RCS:
  1362. ! ?MAKE:libyacc: Loc yacc libpth
  1363.   ?MAKE:    -pick add $@ %<
  1364.   ?S:libyacc:
  1365.   ?S:    This variable contains the argument to pass to the loader in order
  1366. --- 9,21 ----
  1367.   ?RCS: of the source tree for dist 3.0.
  1368.   ?RCS:
  1369.   ?RCS: $Log: libyacc.U,v $
  1370. + ?RCS: Revision 3.0.1.1  1994/01/24  14:13:49  ram
  1371. + ?RCS: patch16: un-obsoleted this unit for smooth yacc compilations
  1372. + ?RCS:
  1373.   ?RCS: Revision 3.0  1993/08/18  12:09:04  ram
  1374.   ?RCS: Baseline for dist 3.0 netwide release.
  1375.   ?RCS:
  1376. ! ?MAKE:libyacc: Loc yacc libpth test
  1377.   ?MAKE:    -pick add $@ %<
  1378.   ?S:libyacc:
  1379.   ?S:    This variable contains the argument to pass to the loader in order
  1380. ***************
  1381. *** 20,43 ****
  1382.   ?S:    library, it is null.
  1383.   ?S:.
  1384.   ?T:xxx
  1385. - ?O: use libswanted='-ly' instead (see libs.U)
  1386.   : see if we should include -ly
  1387.   echo " "
  1388.   case "$yacc" in
  1389.   *yacc)
  1390. !     xxx=`./loc liby.a x $libpth`
  1391. !     case "$xxx" in
  1392. !     x)
  1393. !         echo "No yacc library found." >&4
  1394. !         libyacc=''
  1395. !         ;;
  1396. !     *)
  1397. !         echo "yacc library found in $xxx." >&4
  1398. !         libyacc="$xxx"
  1399. !         ;;
  1400. !     esac
  1401.       ;;
  1402. ! */bison*)
  1403.       echo "You are using bison, so I won't look for a yacc library." >&4
  1404.       libyacc=''
  1405.       ;;
  1406. --- 23,50 ----
  1407.   ?S:    library, it is null.
  1408.   ?S:.
  1409.   ?T:xxx
  1410.   : see if we should include -ly
  1411.   echo " "
  1412.   case "$yacc" in
  1413.   *yacc)
  1414. !     if $test -r /usr/lib/liby.a || $test -r /usr/local/lib/liby.a ; then
  1415. !         echo "-ly found." >&4
  1416. !         libyacc='-ly'
  1417. !     else
  1418. !         xxx=`./loc liby.a x $libpth`
  1419. !         case "$xxx" in
  1420. !         x)
  1421. !             echo "No yacc library found." >&4
  1422. !             libyacc=''
  1423. !             ;;
  1424. !         *)
  1425. !             echo "yacc library found in $xxx." >&4
  1426. !             libyacc="$xxx"
  1427. !             ;;
  1428. !         esac
  1429. !     fi
  1430.       ;;
  1431. ! *bison*)
  1432.       echo "You are using bison, so I won't look for a yacc library." >&4
  1433.       libyacc=''
  1434.       ;;
  1435.  
  1436. Index: mcon/U/d_strerror.U
  1437. Prereq: 3.0
  1438. *** mcon/U/d_strerror.U.old    Mon Jan 24 15:34:57 1994
  1439. --- mcon/U/d_strerror.U    Mon Jan 24 15:34:57 1994
  1440. ***************
  1441. *** 1,4 ****
  1442. ! ?RCS: $Id: d_strerror.U,v 3.0 1993/08/18 12:07:35 ram Exp $
  1443.   ?RCS:
  1444.   ?RCS: Copyright (c) 1991-1993, Raphael Manfredi
  1445.   ?RCS: 
  1446. --- 1,4 ----
  1447. ! ?RCS: $Id: d_strerror.U,v 3.0.1.1 1994/01/24 14:08:56 ram Exp $
  1448.   ?RCS:
  1449.   ?RCS: Copyright (c) 1991-1993, Raphael Manfredi
  1450.   ?RCS: 
  1451. ***************
  1452. *** 9,14 ****
  1453. --- 9,18 ----
  1454.   ?RCS: of the source tree for dist 3.0.
  1455.   ?RCS:
  1456.   ?RCS: $Log: d_strerror.U,v $
  1457. + ?RCS: Revision 3.0.1.1  1994/01/24  14:08:56  ram
  1458. + ?RCS: patch16: protected code looking for sys_errnolist[] with @if
  1459. + ?RCS: patch16: added default value for d_sysernlst
  1460. + ?RCS:
  1461.   ?RCS: Revision 3.0  1993/08/18  12:07:35  ram
  1462.   ?RCS: Baseline for dist 3.0 netwide release.
  1463.   ?RCS:
  1464. ***************
  1465. *** 32,38 ****
  1466.   ?S:.
  1467.   ?C:HAS_STRERROR (STRERROR):
  1468.   ?C:    This symbol, if defined, indicates that the strerror routine is
  1469. ! ?C:    available to translate error numbers to strings.
  1470.   ?C:.
  1471.   ?C:HAS_SYS_ERRLIST (SYSERRLIST):
  1472.   ?C:    This symbol, if defined, indicates that the sys_errlist array is
  1473. --- 36,43 ----
  1474.   ?S:.
  1475.   ?C:HAS_STRERROR (STRERROR):
  1476.   ?C:    This symbol, if defined, indicates that the strerror routine is
  1477. ! ?C:    available to translate error numbers to strings. See the writeup
  1478. ! ?C:    of strerror() in this file before you try to define your own.
  1479.   ?C:.
  1480.   ?C:HAS_SYS_ERRLIST (SYSERRLIST):
  1481.   ?C:    This symbol, if defined, indicates that the sys_errlist array is
  1482. ***************
  1483. *** 54,59 ****
  1484. --- 59,65 ----
  1485.   ?H:#$d_sysernlst HAS_SYS_ERRNOLIST    /**/
  1486.   ?H:#$d_strerrm strerror(e) ((e)<0||(e)>=sys_nerr?"unknown":sys_errlist[e]) /**/
  1487.   ?H:.
  1488. + ?D:d_sysernlst=''
  1489.   ?T:xxx val
  1490.   : see if strerror and/or sys_errlist[] exist
  1491.   echo " "
  1492. ***************
  1493. *** 91,96 ****
  1494. --- 97,103 ----
  1495.       d_syserrlst="$undef"
  1496.       d_strerrm="$undef"
  1497.   fi
  1498. + @if d_sysernlst || HAS_SYS_ERRNOLIST
  1499.   if set sys_errnolist val -a d_sysernlst; eval $csym; $val; then
  1500.       echo "(Symbolic error codes can be fetched via the sys_errnolist[] array.)"
  1501.       d_sysernlst="$define"
  1502. ***************
  1503. *** 98,101 ****
  1504. --- 105,109 ----
  1505.       echo "(However, I can't extract the symbolic error code out of errno.)"
  1506.       d_sysernlst="$undef"
  1507.   fi
  1508. + @end
  1509.   
  1510.  
  1511. Index: mcon/U/cf_name.U
  1512. *** mcon/U/cf_name.U.old    Mon Jan 24 15:34:52 1994
  1513. --- mcon/U/cf_name.U    Mon Jan 24 15:34:52 1994
  1514. ***************
  1515. *** 0 ****
  1516. --- 1,68 ----
  1517. + ?RCS: $Id: cf_name.U,v 3.0.1.1 1994/01/24 14:05:11 ram Exp $
  1518. + ?RCS:
  1519. + ?RCS: Copyright (c) 1991-1993, Raphael Manfredi
  1520. + ?RCS: 
  1521. + ?RCS: You may redistribute only under the terms of the Artistic Licence,
  1522. + ?RCS: as specified in the README file that comes with the distribution.
  1523. + ?RCS: You may reuse parts of this distribution only within the terms of
  1524. + ?RCS: that same Artistic Licence; a copy of which may be found at the root
  1525. + ?RCS: of the source tree for dist 3.0.
  1526. + ?RCS: 
  1527. + ?RCS: Original Author: Graham Stoney <greyham@research.canon.oz.au>
  1528. + ?RCS:
  1529. + ?RCS: $Log: cf_name.U,v $
  1530. + ?RCS: Revision 3.0.1.1  1994/01/24  14:05:11  ram
  1531. + ?RCS: patch16: created
  1532. + ?RCS:
  1533. + ?RCS:
  1534. + ?MAKE:+cf_name: cf_by passcat Filexp nametype cat
  1535. + ?MAKE:    -pick add $@ %<
  1536. + ?S:cf_name:
  1537. + ?S:    Full name of the person who ran the Configure script and answered the
  1538. + ?S:    questions. This can be used by units that require the user's full name.
  1539. + ?S:    This variable is for internal use only.
  1540. + ?S:.
  1541. + ?T:xxx fn NAME
  1542. + : figure out their full name
  1543. + case "$NAME" in
  1544. + '') case "$nametype" in
  1545. +     other)
  1546. +         fn=`./filexp ~/.fullname`
  1547. +         xxx=usg
  1548. +         $test -f $fn && xxx=other
  1549. +         ;;
  1550. +     *)
  1551. +         xxx="$nametype"
  1552. +         ;;
  1553. +     esac
  1554. + 
  1555. +     case "$xxx" in
  1556. +     bsd)
  1557. +         cf_name=`$passcat | grep "^$cf_by:" | \
  1558. +             sed -e 's/^[^:]*:[^:]*:[^:]*:[^:]*:\([^:]*\):.*/\1/'`
  1559. +         ;;
  1560. +     usg)
  1561. +         cf_name=`$passcat | grep "^$cf_by:" | \
  1562. +             sed -e 's/^[^:]*:[^:]*:[^:]*:[^:]*:\([^:]*\):.*/\1/' \
  1563. +             -e 's/[^-]*-\(.*\)(.*)/\1/'`
  1564. +         ;;
  1565. +     *)
  1566. +         cf_name=`$cat $fn`
  1567. +         ;;
  1568. +     esac
  1569. +     ;;
  1570. + *)
  1571. +     cf_name="$NAME"
  1572. +     ;;
  1573. + esac
  1574. + ?X:
  1575. + ?X: In the original unit, Graham asked for the user name, in case the above
  1576. + ?X: code was unable to figure it out correctly. Since now cf_name has been
  1577. + ?X: made an internal variable only (i.e. it is not saved in config.sh), letting
  1578. + ?X: the user override the computed default each time would be a pain.
  1579. + ?X: Therefore, I have decided to trust the above code to get it right, and for
  1580. + ?X: those rare cases where it will fail, too bad :-) --RAM.
  1581. + ?X:
  1582. + echo " "
  1583. + echo "Pleased to meet you, $cf_name."
  1584. + 
  1585.  
  1586. *** End of Patch 20 ***
  1587.  
  1588. exit 0 # Just in case...
  1589.