This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Warnings-free for metalint-3.5-27. Woot!
authorH.Merijn Brand <h.m.brand@xs4all.nl>
Mon, 16 Jun 2008 14:06:26 +0000 (14:06 +0000)
committerH.Merijn Brand <h.m.brand@xs4all.nl>
Mon, 16 Jun 2008 14:06:26 +0000 (14:06 +0000)
Removed all files that are now identical to dist-3.5

p4raw-id: //depot/metaconfig@34062

26 files changed:
U/modified/Chk_MANI.U [deleted file]
U/modified/Extractall.U [deleted file]
U/modified/Getfile.U [deleted file]
U/modified/Inhdr.U [deleted file]
U/modified/Myread.U [deleted file]
U/modified/Options.U
U/modified/afs.U [deleted file]
U/modified/cc.U [deleted file]
U/modified/cf_email.U [deleted file]
U/modified/cpp_stuff.U
U/modified/cppstdin.U
U/modified/d_attribut.U
U/modified/d_crypt.U [deleted file]
U/modified/d_dosuid.U [deleted file]
U/modified/d_poll.U [deleted file]
U/modified/d_setgrps.U [deleted file]
U/modified/groupstype.U [deleted file]
U/modified/libc.U
U/modified/libnlist.U [deleted file]
U/modified/models.U
U/modified/pager.U [deleted file]
U/modified/sig_name.U
U/modified/so.U [deleted file]
U/modified/spitshell.U [deleted file]
U/modified/startsh.U [deleted file]
U/modified/stdchar.U

diff --git a/U/modified/Chk_MANI.U b/U/modified/Chk_MANI.U
deleted file mode 100644 (file)
index e71984e..0000000
+++ /dev/null
@@ -1,88 +0,0 @@
-?RCS: $Id: Chk_MANI.U 1 2006-08-24 12:32:52Z rmanfredi $
-?RCS:
-?RCS: Copyright (c) 1991-1997, 2004-2006, Raphael Manfredi
-?RCS:
-?RCS: You may redistribute only under the terms of the Artistic Licence,
-?RCS: as specified in the README file that comes with the distribution.
-?RCS: You may reuse parts of this distribution only within the terms of
-?RCS: that same Artistic Licence; a copy of which may be found at the root
-?RCS: of the source tree for dist 4.0.
-?RCS:
-?RCS: $Log: Chk_MANI.U,v $
-?RCS: Revision 3.0.1.2  1997/02/28  14:57:25  ram
-?RCS: patch61: added support for src.U
-?RCS:
-?RCS: Revision 3.0.1.1  1994/10/31  09:33:14  ram
-?RCS: patch44: now lists Begin instead of Myinit in its dependencies
-?RCS: patch44: leading comment now explains how this unit is included
-?RCS:
-?RCS: Revision 3.0  1993/08/18  12:04:45  ram
-?RCS: Baseline for dist 3.0 netwide release.
-?RCS:
-?X:
-?X: This unit checks the package by making sure every file listed in MANIFEST
-?X: is present. It is systematically "included" via the Finish unit (which
-?X: is always present in every Configure script), although it may result in
-?X: an empty inclusion when no MANIFEST is present.
-?X:
-?MAKE:Chk_MANI: Begin c n rsrc
-?MAKE: -pick wipe $@ %<
-?T:filelist ans tmppwd
-?X: This check happens at metaconfig-time, so it's ok to hard-code the path.
-@if {test -f ../MANIFEST}
-: Now test for existence of everything in MANIFEST
-echo " "
-if test -f "$rsrc/MANIFEST"; then
-       echo "First let's make sure your kit is complete.  Checking..." >&4
-?X:
-?X: Files spelled uppercased and beginning with PACK are produced by the
-?X: shell archive builder and may be removed by the user. Usually, they are
-?X: not listed in the MANIFEST file, but you never know...
-?X:
-?X: "split -l" is the new way of running a split, but we also try the older way
-?X:
-       awk '$1 !~ /PACK[A-Z]+/ {print $1}' "$rsrc/MANIFEST" |\
-               (split -l 50 2>/dev/null || split -50)
-       rm -f missing
-       tmppwd=`pwd`
-       for filelist in x??; do
-               (cd "$rsrc"; ls `cat "$tmppwd/$filelist"` \
-                       >/dev/null 2>>"$tmppwd/missing")
-       done
-       if test -s missing; then
-               cat missing >&4
-               cat >&4 <<'EOM'
-
-THIS PACKAGE SEEMS TO BE INCOMPLETE.
-
-You have the option of continuing the configuration process, despite the
-distinct possibility that your kit is damaged, by typing 'y'es.  If you
-do, don't blame me if something goes wrong.  I advise you to type 'n'o
-and contact the author (<MAINTLOC>).
-
-EOM
-?X: Can't use $echo at this early stage
-               echo $n "Continue? [n] $c" >&4
-               read ans
-               case "$ans" in
-               y*)
-                       echo "Continuing..." >&4
-                       rm -f missing
-                       ;;
-               *)
-?X:
-?X: Use kill and not exit, so that the trap gets executed to clean up
-?X:
-                       echo "ABORTING..." >&4
-                       kill $$
-                       ;;
-               esac
-       else
-               echo "Looks good..."
-       fi
-else
-       echo "There is no MANIFEST file.  I hope your kit is complete !"
-fi
-rm -f missing x??
-
-@end
diff --git a/U/modified/Extractall.U b/U/modified/Extractall.U
deleted file mode 100644 (file)
index 2d767d0..0000000
+++ /dev/null
@@ -1,51 +0,0 @@
-?RCS: $Id: Extractall.U,v 3.0.1.1 1997/02/28 15:00:43 ram Exp $
-?RCS:
-?RCS: Copyright (c) 1991-1993, Raphael Manfredi
-?RCS: 
-?RCS: You may redistribute only under the terms of the Artistic Licence,
-?RCS: as specified in the README file that comes with the distribution.
-?RCS: You may reuse parts of this distribution only within the terms of
-?RCS: that same Artistic Licence; a copy of which may be found at the root
-?RCS: of the source tree for dist 3.0.
-?RCS:
-?RCS: $Log: Extractall.U,v $
-?RCS: Revision 3.0.1.1  1997/02/28  15:00:43  ram
-?RCS: patch61: created
-?RCS:
-?X:
-?X: If extraction has been requested, load the configuration file, perform
-?X: the extraction and exit.
-?X:
-?X: This unit was originally a part of Options.U. It had to be removed from
-?X: it to prevent a dependency cycle: Extract -> src -> Options -> Extract
-?X: The Begin.U unit now requires us before beginning to do anything
-?X: interesting, to ensure proper semantics. -- RAM, 15/03/96
-?X:
-?MAKE:Extractall: Extract Options
-?MAKE: -pick wipe $@ %<
-: extract files and exit if asked to do so
-case "$extractsh" in
-true)
-?X: Undo the forced silent=true when -S was supplied, by probing realsilent
-?X: which was set iff -s was also given. See Options.U for details.
-       case "$realsilent" in
-       true) ;;
-       *) exec 1>&4;;
-       esac
-       case "$config_sh" in
-       '') config_sh='config.sh';;
-       esac
-       echo " "
-       echo "Fetching answers from $config_sh..."
-       cd ..
-       . $config_sh
-       test "$override" && . ./optdef.sh
-       echo " "
-?X: extract has to be run from the top directory, not within UU.
-       . UU/extract
-       rm -rf UU
-       echo "Extraction done."
-       exit 0
-       ;;
-esac
-
diff --git a/U/modified/Getfile.U b/U/modified/Getfile.U
deleted file mode 100644 (file)
index 1b1244a..0000000
+++ /dev/null
@@ -1,338 +0,0 @@
-?RCS: $Id: Getfile.U,v 3.0.1.7 1997/02/28 15:01:06 ram Exp $
-?RCS:
-?RCS: Copyright (c) 1991-1993, Raphael Manfredi
-?RCS: 
-?RCS: You may redistribute only under the terms of the Artistic Licence,
-?RCS: as specified in the README file that comes with the distribution.
-?RCS: You may reuse parts of this distribution only within the terms of
-?RCS: that same Artistic Licence; a copy of which may be found at the root
-?RCS: of the source tree for dist 3.0.
-?RCS:
-?RCS: $Log: Getfile.U,v $
-?RCS: Revision 3.0.1.7  1997/02/28  15:01:06  ram
-?RCS: patch61: getfile script now begins with "startsh"
-?RCS:
-?RCS: Revision 3.0.1.6  1995/02/15  14:11:00  ram
-?RCS: patch51: was not working if ~'s allowed with d_portable on (WED)
-?RCS:
-?RCS: Revision 3.0.1.5  1995/01/11  15:11:25  ram
-?RCS: patch45: added support for escaping answers to skip various checks
-?RCS: patch45: modified message issued after file expansion
-?RCS:
-?RCS: Revision 3.0.1.4  1994/10/29  15:53:19  ram
-?RCS: patch36: added ?F: line for metalint file checking
-?RCS:
-?RCS: Revision 3.0.1.3  1994/05/06  14:23:36  ram
-?RCS: patch23: getfile could be confused by file name in "locate" requests
-?RCS: patch23: new 'p' directive to assume file is in people's path (WED)
-?RCS:
-?RCS: Revision 3.0.1.2  1994/01/24  14:01:31  ram
-?RCS: patch16: added metalint hint on changed 'ans' variable
-?RCS:
-?RCS: Revision 3.0.1.1  1993/09/13  15:46:27  ram
-?RCS: patch10: minor format problems and misspellings fixed
-?RCS: patch10: now performs from package dir and not from UU subdir
-?RCS:
-?RCS: Revision 3.0  1993/08/18  12:04:56  ram
-?RCS: Baseline for dist 3.0 netwide release.
-?RCS:
-?X: 
-?X: This unit produces a bit of shell code that must be dotted in in order
-?X: to get a file name and make some sanity checks. Optionally, a ~name
-?X: expansion is performed.
-?X:    
-?X: To use this unit, $rp and $dflt must hold the question and the
-?X: default answer, which will be passed as-is to the myread script.
-?X: The $fn variable must hold the file type (f or d, for file/directory).
-?X: If $gfpth is set to a list of space-separated list of directories,
-?X: those are prefixes for the filename.  Unless $gfpthkeep is set to 'y',
-?X: gfpth is cleared on return from Getfile.
-?X:
-?X: If is is followed by a ~, then ~name substitution will occur. Upon return,
-?X: $ans is set with the filename value. If a / is specified, then only a full
-?X: path name is accepted (but ~ substitution occurs before, if needed). The
-?X: expanded path name is returned in that case.
-?X:
-?X: If a + is specified, the existence checks are skipped. This usually means
-?X: the file/directory is under the full control of the program.
-?X:
-?X: If the 'n' (none) type is used, then the user may answer none.
-?X: The 'e' (expand) switch may be used to bypass d_portable, expanding ~name.
-?X:
-?X: If the 'l' (locate) type is used, then it must end with a ':' and then a
-?X:    file name. If the answer is a directory, the file name will be appended
-?X: before testing for file existence. This is useful in locate-style
-?X: questions like "where is the active file?". In that case, one should
-?X: use:
-?X:
-?X:   dflt='~news/lib'
-?X:   fn='l~:active'
-?X:   rp='Where is the active file?'
-?X:   . ./getfile
-?X:   active="$ans"
-?X: 
-?X: If the 'p' (path) letter is specified along with 'l', then an answer
-?X: without a leading / will be expected to be found in everyone's path.
-?X:
-?X: It is also possible to include a comma-separated list of items within
-?X: parentheses to specify which items should be accepted as-is with no
-?X: further checks. This is useful when for instance a full path is expected
-?X: but the user may escape out via "magical" answers.
-?X:
-?X: If the answer to the question is 'none', then the existence checks are
-?X:    skipped and the empty string is returned.
-?X:
-?MAKE:Getfile: d_portable contains startsh Myread Filexp tr trnl
-?MAKE: -pick add $@ %<
-?V:ansexp:fn gfpth gfpthkeep
-?F:./getfile
-?T:tilde type what orig_rp orig_dflt fullpath already redo skip none_ok \
-       value exp_file nopath_ok loc_file fp pf dir direxp
-?LINT:change ans
-?LINT:change gfpth
-: now set up to get a file name
-cat <<EOS >getfile
-$startsh
-EOS
-cat <<'EOSC' >>getfile
-tilde=''
-fullpath=''
-already=''
-skip=''
-none_ok=''
-exp_file=''
-nopath_ok=''
-orig_rp="$rp"
-orig_dflt="$dflt"
-case "$gfpth" in
-'') gfpth='.' ;;
-esac
-
-?X: Begin by stripping out any (...) grouping.
-case "$fn" in
-*\(*)
-       : getfile will accept an answer from the comma-separated list
-       : enclosed in parentheses even if it does not meet other criteria.
-       expr "$fn" : '.*(\(.*\)).*' | $tr ',' $trnl >getfile.ok
-       fn=`echo $fn | sed 's/(.*)//'`
-       ;;
-esac
-
-?X: Catch up 'locate' requests early, so that we may strip the file name
-?X: before looking at the one-letter commands, in case the file name contains
-?X: one of them. Reported by Wayne Davison <davison@borland.com>.
-case "$fn" in
-*:*)
-       loc_file=`expr $fn : '.*:\(.*\)'`
-       fn=`expr $fn : '\(.*\):.*'`
-       ;;
-esac
-
-case "$fn" in
-*~*) tilde=true;;
-esac
-case "$fn" in
-*/*) fullpath=true;;
-esac
-case "$fn" in
-*+*) skip=true;;
-esac
-case "$fn" in
-*n*) none_ok=true;;
-esac
-case "$fn" in
-*e*) exp_file=true;;
-esac
-case "$fn" in
-*p*) nopath_ok=true;;
-esac
-
-case "$fn" in
-*f*) type='File';;
-*d*) type='Directory';;
-*l*) type='Locate';;
-esac
-
-what="$type"
-case "$what" in
-Locate) what='File';;
-esac
-
-case "$exp_file" in
-'')
-       case "$d_portable" in
-       "$define") ;;
-       *) exp_file=true;;
-       esac
-       ;;
-esac
-
-cd ..
-while test "$type"; do
-       redo=''
-       rp="$orig_rp"
-       dflt="$orig_dflt"
-       case "$tilde" in
-       true) rp="$rp (~name ok)";;
-       esac
-       . UU/myread
-?X: check for allowed escape sequence which may be accepted verbatim.
-       if test -f UU/getfile.ok && \
-               $contains "^$ans\$" UU/getfile.ok >/dev/null 2>&1
-       then
-               value="$ans"
-               ansexp="$ans"
-               break
-       fi
-       case "$ans" in
-       none)
-               value=''
-               ansexp=''
-               case "$none_ok" in
-               true) type='';;
-               esac
-               ;;
-       *)
-               case "$tilde" in
-               '') value="$ans"
-                       ansexp="$ans";;
-               *)
-                       value=`UU/filexp $ans`
-                       case $? in
-                       0)
-                               if test "$ans" != "$value"; then
-                                       echo "(That expands to $value on this system.)"
-                               fi
-                               ;;
-                       *) value="$ans";;
-                       esac
-                       ansexp="$value"
-                       case "$exp_file" in
-                       '') value="$ans";;
-                       esac
-                       ;;
-               esac
-               case "$fullpath" in
-               true)
-?X: Perform all the checks on ansexp and not value since when d_portable
-?X: is defined, the original un-expanded answer which is stored in value
-?X: would lead to "non-existent" error messages whilst ansexp has been
-?X: properly expanded. -- Fixed by Jan.Djarv@sa.erisoft.se (Jan Djarv)
-?X: Always expand ~user if '/' was requested 
-                       case "$ansexp" in
-                       /*) value="$ansexp" ;;
-                       [a-zA-Z]:/*) value="$ansexp" ;;
-                       *)
-                               redo=true
-                               case "$already" in
-                               true)
-                               echo "I shall only accept a full path name, as in /bin/ls." >&4
-                               echo "Use a ! shell escape if you wish to check pathnames." >&4
-                                       ;;
-                               *)
-                               echo "Please give a full path name, starting with slash." >&4
-                                       case "$tilde" in
-                                       true)
-                               echo "Note that using ~name is ok provided it expands well." >&4
-                                               already=true
-                                               ;;
-                                       esac
-                               esac
-                               ;;
-                       esac
-                       ;;
-               esac
-               case "$redo" in
-               '')
-                       case "$type" in
-                       File)
-                               for fp in $gfpth; do
-                                       if test "X$fp" = X.; then
-                                           pf="$ansexp"
-                                       else    
-                                           pf="$fp/$ansexp"
-                                       fi
-                                       if test -f "$pf"; then
-                                               type=''
-                                       elif test -r "$pf" || (test -h "$pf") >/dev/null 2>&1
-                                       then
-                                               echo "($value is not a plain file, but that's ok.)"
-                                               type=''
-                                       fi
-                                       if test X"$type" = X; then
-                                           value="$pf"
-                                           break
-                                       fi
-                               done
-                               ;;
-                       Directory)
-                               for fp in $gfpth; do
-                                       if test "X$fp" = X.; then
-                                           dir="$ans"
-                                           direxp="$ansexp"
-                                       else    
-                                           dir="$fp/$ansexp"
-                                           direxp="$fp/$ansexp"
-                                       fi
-                                       if test -d "$direxp"; then
-                                               type=''
-                                               value="$dir"
-                                               break
-                                       fi
-                               done
-                               ;;
-                       Locate)
-                               if test -d "$ansexp"; then
-                                       echo "(Looking for $loc_file in directory $value.)"
-                                       value="$value/$loc_file"
-                                       ansexp="$ansexp/$loc_file"
-                               fi
-                               if test -f "$ansexp"; then
-                                       type=''
-                               fi
-                               case "$nopath_ok" in
-                               true)   case "$value" in
-                                       */*) ;;
-                                       *)      echo "Assuming $value will be in people's path."
-                                               type=''
-                                               ;;
-                                       esac
-                                       ;;
-                               esac
-                               ;;
-                       esac
-
-                       case "$skip" in
-                       true) type='';
-                       esac
-
-                       case "$type" in
-                       '') ;;
-                       *)
-                               if test "$fastread" = yes; then
-                                       dflt=y
-                               else
-                                       dflt=n
-                               fi
-                               rp="$what $value doesn't exist.  Use that name anyway?"
-                               . UU/myread
-                               dflt=''
-                               case "$ans" in
-                               y*) type='';;
-                               *) echo " ";;
-                               esac
-                               ;;
-                       esac
-                       ;;
-               esac
-               ;;
-       esac
-done
-cd UU
-ans="$value"
-rp="$orig_rp"
-dflt="$orig_dflt"
-rm -f getfile.ok
-test "X$gfpthkeep" != Xy && gfpth=""
-EOSC
-
diff --git a/U/modified/Inhdr.U b/U/modified/Inhdr.U
deleted file mode 100644 (file)
index 10cd2bb..0000000
+++ /dev/null
@@ -1,77 +0,0 @@
-?RCS: $Id: Inhdr.U,v 3.0.1.2 1995/05/12 12:01:31 ram Exp $
-?RCS:
-?RCS: Copyright (c) 1991-1993, Raphael Manfredi
-?RCS:
-?RCS: You may redistribute only under the terms of the Artistic Licence,
-?RCS: as specified in the README file that comes with the distribution.
-?RCS: You may reuse parts of this distribution only within the terms of
-?RCS: that same Artistic Licence; a copy of which may be found at the root
-?RCS: of the source tree for dist 3.0.
-?RCS:
-?RCS: $Log: Inhdr.U,v $
-?RCS: Revision 3.0.1.2  1995/05/12  12:01:31  ram
-?RCS: patch54: deleted tabs that caused some /bin/sh to core dump (ADO)
-?RCS:
-?RCS: Revision 3.0.1.1  1994/10/29  15:55:01  ram
-?RCS: patch36: call ./whoa explicitely instead of relying on PATH
-?RCS:
-?RCS: Revision 3.0  1993/08/18  12:05:01  ram
-?RCS: Baseline for dist 3.0 netwide release.
-?RCS:
-?X:
-?X: This unit checks wether a set of header files exists or not.
-?X:    If the first header is not found, the function tries to locate
-?X: the next header, and so on, until one is found or there is no
-?X: more header in the list.
-?X:
-?X: To use it, say:
-?X: set header i_header [ header2 i_header2 ... ]
-?X: eval $inhdr
-?X:
-?MAKE:Inhdr: test Findhdr Whoa
-?MAKE: -pick add $@ %<
-?LINT:define inhdr
-?V:inhdr
-?S:inhdr:
-?S:    This shell variable is used internally by Configure to check
-?S:    wether a set of headers exist or not. A typical use is:
-?S:            set header i_header [ header2 i_header2 ... ]
-?S:            eval $inhdr
-?S:    That will print a message, saying wether header was found or
-?S:    not and set i_header* accordingly. If the first header is not
-?S: found, we try the next one, until the list is empty or one is found.
-?S:.
-?T:xxx xxf var td xxnf tu yyy instead was cont
-: define an alternate in-header-list? function
-inhdr='echo " "; td=$define; tu=$undef; yyy=$@;
-cont=true; xxf="echo \"<\$1> found.\" >&4";
-case $# in 2) xxnf="echo \"<\$1> NOT found.\" >&4";;
-*) xxnf="echo \"<\$1> NOT found, ...\" >&4";;
-esac;
-case $# in 4) instead=instead;; *) instead="at last";; esac;
-while $test "$cont"; do
-       xxx=`./findhdr $1`
-       var=$2; eval "was=\$$2";
-       if $test "$xxx" && $test -r "$xxx";
-       then eval $xxf;
-?X: Next line shifted left 1 tabstop to avoid sh core dump on MachTen 2.1.1.
-       eval "case \"\$$var\" in $undef) . ./whoa; esac"; eval "$var=\$td";
-               cont="";
-       else eval $xxnf;
-?X: Likewise, the next line has been shifted left 1 tabstop -- ADO, 08/03/95
-       eval "case \"\$$var\" in $define) . ./whoa; esac"; eval "$var=\$tu"; fi;
-       set $yyy; shift; shift; yyy=$@;
-       case $# in 0) cont="";;
-       2) xxf="echo \"but I found <\$1> $instead.\" >&4";
-               xxnf="echo \"and I did not find <\$1> either.\" >&4";;
-       *) xxf="echo \"but I found <\$1\> instead.\" >&4";
-               xxnf="echo \"there is no <\$1>, ...\" >&4";;
-       esac;
-done;
-?X: Remaining values are set to 'undef'
-while $test "$yyy";
-do set $yyy; var=$2; eval "was=\$$2";
-       eval "case \"\$$var\" in $define) . ./whoa; esac"; eval "$var=\$tu";
-       set $yyy; shift; shift; yyy=$@;
-done'
-
diff --git a/U/modified/Myread.U b/U/modified/Myread.U
deleted file mode 100644 (file)
index b2b612e..0000000
+++ /dev/null
@@ -1,199 +0,0 @@
-?RCS: $Id: Myread.U,v 3.0.1.6 1997/02/28 15:05:39 ram Exp $
-?RCS:
-?RCS: Copyright (c) 1991-1993, Raphael Manfredi
-?RCS: 
-?RCS: You may redistribute only under the terms of the Artistic Licence,
-?RCS: as specified in the README file that comes with the distribution.
-?RCS: You may reuse parts of this distribution only within the terms of
-?RCS: that same Artistic Licence; a copy of which may be found at the root
-?RCS: of the source tree for dist 3.0.
-?RCS:
-?RCS: $Log: Myread.U,v $
-?RCS: Revision 3.0.1.6  1997/02/28  15:05:39  ram
-?RCS: patch61: myread script now starts with a "startsh"
-?RCS: patch61: miscellaneous fixes
-?RCS:
-?RCS: Revision 3.0.1.5  1995/01/11  15:14:22  ram
-?RCS: patch45: added & escape allowing user to turn on -d from the prompt
-?RCS:
-?RCS: Revision 3.0.1.4  1994/10/31  09:48:04  ram
-?RCS: patch44: added Options to the MAKE line since it's no longer in Init.U
-?RCS:
-?RCS: Revision 3.0.1.3  1994/10/29  15:56:20  ram
-?RCS: patch36: added ?F: line for metalint file checking
-?RCS:
-?RCS: Revision 3.0.1.2  1993/08/30  08:57:59  ram
-?RCS: patch8: added new visible 'nostick' symbol, mainly for Finish.U
-?RCS:
-?RCS: Revision 3.0.1.1  1993/08/27  14:39:20  ram
-?RCS: patch7: now sticks to the question when no default and empty answer
-?RCS:
-?RCS: Revision 3.0  1993/08/18  12:05:08  ram
-?RCS: Baseline for dist 3.0 netwide release.
-?RCS:
-?X: 
-?X: This unit produces a bit of shell code that must be dotted in in order
-?X: to do a read.  It allows for shell escapes, default assignment and
-?X: parameter evaluation.
-?X:    
-?X: To use this unit, $rp and $dflt must hold the question and the
-?X: default answer. The question will be printed by the script itself.
-?X:    Neither $rp nor $dflt is altered by the script.
-?X: 
-?X: The myread script will stick to the question if no default is proposed
-?X: and the user answer is empty, which prevents mistakes. However, at the
-?X: end of Configure, there is an exception to this rule (Finish.U) where we
-?X: set nostick to a non-empty value to allow the Return key to play its role!
-?X:
-?MAKE:Myread: Options startsh n c trnl
-?MAKE: -pick add $@ %<
-?V:ans:dflt rp nostick
-?F:./myread
-?T:COLUMNS xxxm rp dflt answ aok myecho
-?LINT:change fastread
-?X: Some shells (Ultrix) do not understand ${COLUMNS:-80}, sigh!
-: compute the number of columns on the terminal for proper question formatting
-case "$COLUMNS" in
-'') COLUMNS='80';;
-esac
-
-: set up the echo used in my read
-?X:
-?X:    This variable is intended to be eval'ed. It will echo the two
-?X:    variables $rp and $dflt (provided this latter has a non null value).
-?X:    It is mainly used by the myread script to echo the questions.
-?X:
-?X: The $n and $c below are substituted before Loc does its silly echo check
-?X: so don't put a $ on the echo below so we get builtin, even if $echo is
-?X: pointing to /bin/echo.
-?X:
-myecho="case \"\$xxxm\" in
-'') echo $n \"\$rp $c\" >&4;;
-*) case \"\$rp\" in
-       '') echo $n \"[\$xxxm] $c\";;
-       *)
-               if test \`echo \"\$rp [\$xxxm]  \" | wc -c\` -ge $COLUMNS; then
-                       echo \"\$rp\" >&4
-                       echo $n \"[\$xxxm] $c\" >&4
-               else
-                       echo $n \"\$rp [\$xxxm] $c\" >&4
-               fi
-               ;;
-       esac;;
-esac"
-
-: now set up to do reads with possible shell escape and default assignment
-cat <<EOSC >myread
-$startsh
-?X:
-?X: Save value of default -- do not alter original in case of eval
-?X:
-xxxm=\$dflt
-$myecho
-?X:
-?X: If there is no default, then stop, regardless of the value in fastread.
-?X: In silent mode, no new-line is to be echoed if the question is empty,
-?X: since this is used to wait for the "return" key.
-?X:
-ans='!'
-case "\$fastread" in
-yes) case "\$dflt" in
-       '') ;;
-       *) ans='';
-               case "\$silent-\$rp" in
-               true-) ;;
-               *) echo " " >&4;;
-               esac;;
-       esac;;
-*) case "\$silent" in
-       true) case "\$rp" in
-               '') ans='';;
-               esac;;
-       esac;;
-esac
-while expr "X\$ans" : "X!" >/dev/null; do
-       read answ
-?X:
-?X: Run 'eval' on the answer, in order to do variable substitution, in case
-?X: the user types $HOME or $WHATEVER. Variables must be evaluated now.
-?X: Typing '\$HOME' won't currently prevent from substitution -- use '\\$HOME'
-?X: The $1 .. $9 and $*, as well as $@, are available to refer to the
-?X: default value.
-?X:
-       set x \$xxxm
-       shift
-       aok=''; eval "ans=\\"\$answ\\"" && aok=y
-       case  "\$answ" in
-?X:
-?X: Use "!" and not a plain ! because of a bug in BSD 4.4 shell
-?X: (reported by Wayne Davison)
-?X: We must handle the shell escapes before dealing with possible variable
-?X: substitution, since the shell we're launching in that case will be able
-?X: to do it as well as we can -- RAM, 15/03/96
-?X
-       "!")
-               sh 1>&4
-               echo " "
-               $myecho
-               ;;
-       !*)
-               set x \`expr "X\$ans" : "X!\(.*\)\$"\`
-               shift
-               sh 1>&4 -c "\$*"
-               echo " "
-               $myecho
-               ;;
-       "\$ans")
-               case "\$ans" in
-?X:
-?X: Answers starting with & are hooks allowing to dynamically turn on/off
-?X: some Configure options. That's for the future. -- RAM, 09/01/95
-?X: Today, we only recognize '& -d' to mean 'go on as if Configure -d, which
-?X: is a hardwired behaviour compatible with our general scheme.
-?X:
-               \\&*)
-                       set x \`expr "X\$ans" : "X&\(.*\)\$"\`
-                       shift
-                       case "\$1" in
-                       -d)
-                               fastread=yes
-                               echo "(OK, I'll run with -d after this question.)" >&4
-                               ;;
-                       -*)
-                               echo "*** Sorry, \$1 not supported yet." >&4
-                               ;;
-                       esac
-                       $myecho
-                       ans=!
-                       ;;
-               esac;;
-       *)
-               case "\$aok" in
-               y)
-                       echo "*** Substitution done -- please confirm."
-                       xxxm="\$ans"
-                       ans=\`echo $n "\$ans$c" | tr '$trnl' ' '\`
-                       xxxm="\$ans"
-                       ans=!
-                       ;;
-               *)
-                       echo "*** Error -- try again."
-                       ans=!
-                       ;;
-               esac
-               $myecho
-               ;;
-       esac
-?X: Stick in myread if no default answer and nothing was answered
-       case "\$ans\$xxxm\$nostick" in
-       '')
-               ans=!
-               $myecho
-               ;;
-       esac
-done
-case "\$ans" in
-'') ans="\$xxxm";;
-esac
-EOSC
-
index ad6be81..5bb4a21 100644 (file)
@@ -48,7 +48,7 @@
 ?V:reuseval alldone error realsilent silent extractsh fastread \
        override knowitall: config_sh
 ?T:arg argn symbol config_arg0 config_args config_argc xxx yyy zzz uuu
-?T:args_exp args_sep arg_exp libswanted ccflags
+?T:args_exp args_sep arg_exp ccflags
 ?F:!Configure
 ?F:./optdef.sh ./cmdline.opt ./posthint.sh ./cmdl.opt
 : Save command line options in file UU/cmdline.opt for later use in
diff --git a/U/modified/afs.U b/U/modified/afs.U
deleted file mode 100644 (file)
index e1516f4..0000000
+++ /dev/null
@@ -1,55 +0,0 @@
-?RCS: $Id: afs.U 1 2006-08-24 12:32:52Z rmanfredi $
-?RCS:
-?RCS: Copyright (c) 1991-1997, 2004-2006, Raphael Manfredi
-?RCS:
-?RCS: You may redistribute only under the terms of the Artistic Licence,
-?RCS: as specified in the README file that comes with the distribution.
-?RCS: You may reuse parts of this distribution only within the terms of
-?RCS: that same Artistic Licence; a copy of which may be found at the root
-?RCS: of the source tree for dist 4.0.
-?RCS:
-?RCS: $Log: afs.U,v $
-?RCS: Revision 3.0.1.2  1997/02/28  15:23:06  ram
-?RCS: patch61: can now explicitely tell Configure whether AFS is running
-?RCS:
-?RCS: Revision 3.0.1.1  1993/08/24  12:24:43  ram
-?RCS: patch3: created
-?RCS:
-?MAKE:afs afsroot: test
-?MAKE: -pick add $@ %<
-?S:afs:
-?S:    This variable is set to 'true' if AFS (Andrew File System) is used
-?S:    on the system, 'false' otherwise.  It is possible to override this
-?S:    with a hint value or command line option, but you'd better know
-?S:    what you are doing.
-?S:.
-?S:afsroot:
-?S:    This variable is by default set to '/afs'. In the unlikely case
-?S:    this is not the correct root, it is possible to override this with
-?S:    a hint value or command line option.  This will be used in subsequent
-?S:    tests for AFSness in the configure and test process.
-?S:.
-: allow them to override the AFS root
-case "$afsroot" in
-'')    afsroot=/afs ;;
-*)     afsroot=$afsroot ;;
-esac
-
-: is AFS running?
-echo " "
-case "$afs" in
-$define|true)  afs=true ;;
-$undef|false)  afs=false ;;
-*)     if $test -d $afsroot; then
-               afs=true
-       else
-               afs=false
-       fi
-       ;;
-esac
-if $afs; then
-       echo "AFS may be running... I'll be extra cautious then..." >&4
-else
-       echo "AFS does not seem to be running..." >&4
-fi
-
diff --git a/U/modified/cc.U b/U/modified/cc.U
deleted file mode 100644 (file)
index ebc8bc4..0000000
+++ /dev/null
@@ -1,58 +0,0 @@
-?RCS: $Id: cc.U 1 2006-08-24 12:32:52Z rmanfredi $
-?RCS:
-?RCS: Copyright (c) 1991-1997, 2004-2006, Raphael Manfredi
-?RCS:
-?RCS: You may redistribute only under the terms of the Artistic Licence,
-?RCS: as specified in the README file that comes with the distribution.
-?RCS: You may reuse parts of this distribution only within the terms of
-?RCS: that same Artistic Licence; a copy of which may be found at the root
-?RCS: of the source tree for dist 4.0.
-?RCS:
-?RCS: $Log: cc.U,v $
-?RCS: Revision 3.0.1.4  1995/05/12  12:06:47  ram
-?RCS: patch54: may now abort Configure when cc does not work
-?RCS:
-?RCS: Revision 3.0.1.3  1995/01/11  15:20:11  ram
-?RCS: patch45: changed gcc checking message to a more explicit one (WED)
-?RCS:
-?RCS: Revision 3.0.1.2  1994/10/29  16:04:29  ram
-?RCS: patch36: detect gcc even when not called as 'gcc' (ADO)
-?RCS: patch36: simplified gcc version checking (ADO)
-?RCS: patch36: added ?F: line for metalint file checking
-?RCS:
-?RCS: Revision 3.0.1.1  1994/05/06  14:26:06  ram
-?RCS: patch23: added support for gcc version (ADO)
-?RCS:
-?RCS: Revision 3.0  1993/08/18  12:05:30  ram
-?RCS: Baseline for dist 3.0 netwide release.
-?RCS:
-?MAKE:cc: Myread Oldconfig Checkcc test
-?MAKE: -pick add $@ %<
-?S:cc:
-?S:    This variable holds the name of a command to execute a C compiler which
-?S:    can resolve multiple global references that happen to have the same
-?S:    name.  Usual values are 'cc' and 'gcc'.
-?S:    Fervent ANSI compilers may be called 'c89'.  AIX has xlc.
-?S:.
-?F:!cc.cbu
-?D:cc='cc'
-: Determine the C compiler to be used
-echo " "
-case "$cc" in
-'') dflt=cc;;
-*) dflt="$cc";;
-esac
-rp="Use which C compiler?"
-. ./myread
-cc="$ans"
-
-: See whether they have no cc but they do have gcc
-. ./trygcc
-?X: Look for a hint-file generated 'call-back-unit'.  Now that the
-?X: user has specified the compiler, we may need to set or change some
-?X: other defaults.
-if $test -f cc.cbu; then
-    . ./cc.cbu
-fi
-. ./checkcc
-
diff --git a/U/modified/cf_email.U b/U/modified/cf_email.U
deleted file mode 100644 (file)
index d0e2022..0000000
+++ /dev/null
@@ -1,58 +0,0 @@
-?RCS: $Id: cf_email.U 1 2006-08-24 12:32:52Z rmanfredi $
-?RCS:
-?RCS: Copyright (c) 1991-1997, 2004-2006, Raphael Manfredi
-?RCS:
-?RCS: You may redistribute only under the terms of the Artistic Licence,
-?RCS: as specified in the README file that comes with the distribution.
-?RCS: You may reuse parts of this distribution only within the terms of
-?RCS: that same Artistic Licence; a copy of which may be found at the root
-?RCS: of the source tree for dist 4.0.
-?RCS:
-?RCS: $Log: cf_email.U,v $
-?RCS: Revision 3.0.1.1  1994/01/24  14:05:06  ram
-?RCS: patch16: created
-?RCS:
-?RCS:
-?MAKE:cf_email: cat cf_by myhostname mydomain Oldconfig Myread
-?MAKE: -pick add $@ %<
-?S:cf_email:
-?S:    Electronic mail address of the person who ran Configure. This can be
-?S:    used by units that require the user's e-mail, like MailList.U.
-?S:.
-?T:cont
-: determine the e-mail address of the user who is running us
-$cat <<EOM
-
-I need to get your e-mail address in Internet format if possible, i.e.
-something like user@host.domain. Please answer accurately since I have
-no easy means to double check it. The default value provided below
-is most probably close to reality but may not be valid from outside
-your organization...
-
-EOM
-cont=x
-while test "$cont"; do
-       case "$cf_email" in
-       '') dflt="$cf_by@$myhostname$mydomain";;
-       *) dflt="$cf_email";;
-       esac
-       rp='What is your e-mail address?'
-       . ./myread
-       cf_email="$ans"
-       case "$cf_email" in
-       *@*.*) cont='' ;;
-       *)
-               rp='Address does not look like an Internet one.  Use it anyway?'
-               case "$fastread" in
-               yes) dflt=y ;;
-               *) dflt=n ;;
-               esac
-               . ./myread
-               case "$ans" in
-               y*) cont='' ;;
-               *) echo " " ;;
-               esac
-               ;;
-       esac
-done
-
index c5c1f7f..047cfd6 100644 (file)
 ?H:?%<:#endif
 ?H:.
 ?W:%<:CAT2 CAT3 CAT4 CAT5 STRINGIFY SCAT2 SCAT3 SCAT4 SCAT5
+?F:!cpp_stuff.c
 ?LINT:known StGiFy
 ?LINT:known PeRl_CaTiFy
 ?LINT:known PeRl_StGiFy
index de6fc12..8fa2905 100644 (file)
@@ -1,12 +1,12 @@
-?RCS: $Id: cppstdin.U,v 3.0.1.4 1994/10/29 16:08:34 ram Exp $
+?RCS: $Id: cppstdin.U 1 2006-08-24 12:32:52Z rmanfredi $
 ?RCS:
-?RCS: Copyright (c) 1991-1993, Raphael Manfredi
+?RCS: Copyright (c) 1991-1997, 2004-2006, Raphael Manfredi
 ?RCS:
 ?RCS: You may redistribute only under the terms of the Artistic Licence,
 ?RCS: as specified in the README file that comes with the distribution.
 ?RCS: You may reuse parts of this distribution only within the terms of
 ?RCS: that same Artistic Licence; a copy of which may be found at the root
-?RCS: of the source tree for dist 3.0.
+?RCS: of the source tree for dist 4.0.
 ?RCS:
 ?RCS: $Log: cppstdin.U,v $
 ?RCS: Revision 3.0.1.4  1994/10/29  16:08:34  ram
@@ -82,7 +82,7 @@
 ?H:#define CPPRUN "$cpprun"
 ?H:#define CPPLAST "$cpplast"
 ?H:.
-?F:cppstdin
+?F:cppstdin !testcpp.out !testcpp.c
 ?T:wrapper x_cpp x_minus ok
 : see how we invoke the C preprocessor
 echo " "
index 68f5a82..6c1791c 100644 (file)
@@ -1,6 +1,6 @@
-?RCS: $Id: d_attribut.U,v 3.0.1.3 1995/01/30 14:33:45 ram Exp $
+?RCS: $Id: d_attribut.U 1 2006-08-24 12:32:52Z rmanfredi $
 ?RCS:
-?RCS: Copyright (c) 1991-1993, Raphael Manfredi
+?RCS: Copyright (c) 1991-1997, 2004-2006, Raphael Manfredi
 ?RCS:
 ?RCS: You may redistribute only under the terms of the Artistic Licence,
 ?RCS: as specified in the README file that comes with the distribution.
@@ -99,6 +99,7 @@
 ?H:?%<:#$d_attribute_unused HASATTRIBUTE_UNUSED        /**/
 ?H:?%<:#$d_attribute_warn_unused_result HASATTRIBUTE_WARN_UNUSED_RESULT        /**/
 ?H:.
+?F:!attrib !attrib.out !attrib.c
 ?LINT:set d_attribute_format
 ?LINT:set d_printf_format_null
 ?LINT:set d_attribute_malloc
diff --git a/U/modified/d_crypt.U b/U/modified/d_crypt.U
deleted file mode 100644 (file)
index aac73e8..0000000
+++ /dev/null
@@ -1,76 +0,0 @@
-?RCS: $Id: d_crypt.U 1 2006-08-24 12:32:52Z rmanfredi $
-?RCS:
-?RCS: Copyright (c) 1991-1997, 2004-2006, Raphael Manfredi
-?RCS:
-?RCS: You may redistribute only under the terms of the Artistic Licence,
-?RCS: as specified in the README file that comes with the distribution.
-?RCS: You may reuse parts of this distribution only within the terms of
-?RCS: that same Artistic Licence; a copy of which may be found at the root
-?RCS: of the source tree for dist 4.0.
-?RCS:
-?RCS: $Log: d_crypt.U,v $
-?RCS: Revision 3.0.1.1  1997/02/28  15:31:47  ram
-?RCS: patch61: replaced .a with $_a all over the place
-?RCS:
-?RCS: Revision 3.0  1993/08/18  12:05:52  ram
-?RCS: Baseline for dist 3.0 netwide release.
-?RCS:
-?MAKE:d_crypt cryptlib: Loc test xlibpth libpth Csym Setvar _a Inlibc
-?MAKE: -pick add $@ %<
-?S:d_crypt:
-?S:    This variable conditionally defines the CRYPT symbol, which
-?S:    indicates to the C program that the crypt() routine is available
-?S:    to encrypt passwords and the like.
-?S:.
-?S:cryptlib:
-?S:    This variable holds -lcrypt or the path to a libcrypt.a archive if
-?S:    the crypt() function is not defined in the standard C library. It is
-?S:    up to the Makefile to use this.
-?S:.
-?C:HAS_CRYPT (CRYPT):
-?C:    This symbol, if defined, indicates that the crypt routine is available
-?C:    to encrypt passwords and the like.
-?C:.
-?H:#$d_crypt HAS_CRYPT         /**/
-?H:.
-?LINT:set d_crypt
-?T:val
-: see if crypt exists
-echo " "
-set crypt d_crypt
-eval $inlibc
-case "$d_crypt" in
-$define) cryptlib='' ;;
-*)     if set crypt val -f d_crypt; eval $csym; $val; then
-               echo 'crypt() found.' >&4
-               val="$define"
-               cryptlib=''
-       else
-               cryptlib=`./loc Slibcrypt$_a "" $xlibpth`
-               if $test -z "$cryptlib"; then
-                       cryptlib=`./loc Mlibcrypt$_a "" $xlibpth`
-               else
-                       cryptlib=-lcrypt
-               fi
-               if $test -z "$cryptlib"; then
-                       cryptlib=`./loc Llibcrypt$_a "" $xlibpth`
-               else
-                       cryptlib=-lcrypt
-               fi
-               if $test -z "$cryptlib"; then
-                       cryptlib=`./loc libcrypt$_a "" $libpth`
-               else
-                       cryptlib=-lcrypt
-               fi
-               if $test -z "$cryptlib"; then
-                       echo 'crypt() NOT found.' >&4
-                       val="$undef"
-               else
-                       val="$define"
-               fi
-       fi
-       set d_crypt
-       eval $setvar
-       ;;
-esac
-
diff --git a/U/modified/d_dosuid.U b/U/modified/d_dosuid.U
deleted file mode 100644 (file)
index 4967ee2..0000000
+++ /dev/null
@@ -1,169 +0,0 @@
-?RCS: $Id: d_dosuid.U 1 2006-08-24 12:32:52Z rmanfredi $
-?RCS:
-?RCS: Copyright (c) 1991-1997, 2004-2006, Raphael Manfredi
-?RCS:
-?RCS: You may redistribute only under the terms of the Artistic Licence,
-?RCS: as specified in the README file that comes with the distribution.
-?RCS: You may reuse parts of this distribution only within the terms of
-?RCS: that same Artistic Licence; a copy of which may be found at the root
-?RCS: of the source tree for dist 4.0.
-?RCS:
-?RCS: Tye McQueen <tye@metronet.com> added safe setuid script checks.
-?RCS:
-?RCS: $Log: d_dosuid.U,v $
-?RCS: Revision 3.0.1.2  1997/02/28  15:33:03  ram
-?RCS: patch61: moved unit to TOP via a ?Y: layout directive
-?RCS: patch61: tell them /dev/fd is not about floppy disks
-?RCS:
-?RCS: Revision 3.0.1.1  1994/10/29  16:12:08  ram
-?RCS: patch36: added checks for secure setuid scripts (Tye McQueen)
-?RCS:
-?RCS: Revision 3.0  1993/08/18  12:05:55  ram
-?RCS: Baseline for dist 3.0 netwide release.
-?RCS:
-?MAKE:d_dosuid d_suidsafe: cat contains ls rm test Myread Setvar \
-       Oldconfig Guess package hint
-?MAKE: -pick add $@ %<
-?S:d_suidsafe:
-?S:    This variable conditionally defines SETUID_SCRIPTS_ARE_SECURE_NOW
-?S:    if setuid scripts can be secure.  This test looks in /dev/fd/.
-?S:.
-?S:d_dosuid:
-?S:    This variable conditionally defines the symbol DOSUID, which
-?S:    tells the C program that it should insert setuid emulation code
-?S:    on hosts which have setuid #! scripts disabled.
-?S:.
-?C:SETUID_SCRIPTS_ARE_SECURE_NOW:
-?C:    This symbol, if defined, indicates that the bug that prevents
-?C:    setuid scripts from being secure is not present in this kernel.
-?C:.
-?C:DOSUID:
-?C:    This symbol, if defined, indicates that the C program should
-?C:    check the script that it is executing for setuid/setgid bits, and
-?C:    attempt to emulate setuid/setgid on systems that have disabled
-?C:    setuid #! scripts because the kernel can't do it securely.
-?C:    It is up to the package designer to make sure that this emulation
-?C:    is done securely.  Among other things, it should do an fstat on
-?C:    the script it just opened to make sure it really is a setuid/setgid
-?C:    script, it should make sure the arguments passed correspond exactly
-?C:    to the argument on the #! line, and it should not trust any
-?C:    subprocesses to which it must pass the filename rather than the
-?C:    file descriptor of the script to be executed.
-?C:.
-?H:#$d_suidsafe SETUID_SCRIPTS_ARE_SECURE_NOW  /**/
-?H:#$d_dosuid DOSUID           /**/
-?H:.
-?Y:TOP
-?F:!reflect
-?LINT: set d_suidsafe
-?LINT: set d_dosuid
-: see if setuid scripts can be secure
-$cat <<EOM
-
-Some kernels have a bug that prevents setuid #! scripts from being
-secure.  Some sites have disabled setuid #! scripts because of this.
-
-First let's decide if your kernel supports secure setuid #! scripts.
-(If setuid #! scripts would be secure but have been disabled anyway,
-don't say that they are secure if asked.)
-
-EOM
-
-val="$undef"
-if $test -d /dev/fd; then
-       echo "#!$ls" >reflect
-       chmod +x,u+s reflect
-       ./reflect >flect 2>&1
-       if $contains "/dev/fd" flect >/dev/null; then
-               echo "Congratulations, your kernel has secure setuid scripts!" >&4
-               val="$define"
-       else
-               $cat <<EOM
-If you are not sure if they are secure, I can check but I'll need a
-username and password different from the one you are using right now.
-If you don't have such a username or don't want me to test, simply
-enter 'none'.
-
-EOM
-               rp='Other username to test security of setuid scripts with?'
-               dflt='none'
-               . ./myread
-               case "$ans" in
-               n|none)
-                       case "$d_suidsafe" in
-                       '')     echo "I'll assume setuid scripts are *not* secure." >&4
-                               dflt=n;;
-                       "$undef")
-                               echo "Well, the $hint value is *not* secure." >&4
-                               dflt=n;;
-                       *)      echo "Well, the $hint value *is* secure." >&4
-                               dflt=y;;
-                       esac
-                       ;;
-               *)
-                       $rm -f reflect flect
-                       echo "#!$ls" >reflect
-                       chmod +x,u+s reflect
-                       echo >flect
-                       chmod a+w flect
-                       echo '"su" will (probably) prompt you for '"$ans's password."
-                       su $ans -c './reflect >flect'
-                       if $contains "/dev/fd" flect >/dev/null; then
-                               echo "Okay, it looks like setuid scripts are secure." >&4
-                               dflt=y
-                       else
-                               echo "I don't think setuid scripts are secure." >&4
-                               dflt=n
-                       fi
-                       ;;
-               esac
-               rp='Does your kernel have *secure* setuid scripts?'
-               . ./myread
-               case "$ans" in
-               [yY]*)  val="$define";;
-               *)      val="$undef";;
-               esac
-       fi
-else
-       echo "I don't think setuid scripts are secure (no /dev/fd directory)." >&4
-       echo "(That's for file descriptors, not floppy disks.)"
-       val="$undef"
-fi
-set d_suidsafe
-eval $setvar
-
-$rm -f reflect flect
-
-: now see if they want to do setuid emulation
-echo " "
-val="$undef"
-case "$d_suidsafe" in
-"$define")
-       val="$undef"
-       echo "No need to emulate SUID scripts since they are secure here." >&4
-       ;;
-*)
-       $cat <<EOM
-Some systems have disabled setuid scripts, especially systems where
-setuid scripts cannot be secure.  On systems where setuid scripts have
-been disabled, the setuid/setgid bits on scripts are currently
-useless.  It is possible for $package to detect those bits and emulate
-setuid/setgid in a secure fashion.  This emulation will only work if
-setuid scripts have been disabled in your kernel.
-
-EOM
-       case "$d_dosuid" in
-       "$define") dflt=y ;;
-       *) dflt=n ;;
-       esac
-       rp="Do you want to do setuid/setgid emulation?"
-       . ./myread
-       case "$ans" in
-       [yY]*)  val="$define";;
-       *)      val="$undef";;
-       esac
-       ;;
-esac
-set d_dosuid
-eval $setvar
-
diff --git a/U/modified/d_poll.U b/U/modified/d_poll.U
deleted file mode 100644 (file)
index 0bfcb90..0000000
+++ /dev/null
@@ -1,36 +0,0 @@
-?RCS: $Id: d_poll.U 15 2006-08-30 18:21:51Z rmanfredi $
-?RCS:
-?RCS: Copyright (c) 1991-1997, 2004-2006, Raphael Manfredi
-?RCS:
-?RCS: You may redistribute only under the terms of the Artistic Licence,
-?RCS: as specified in the README file that comes with the distribution.
-?RCS: You may reuse parts of this distribution only within the terms of
-?RCS: that same Artistic Licence; a copy of which may be found at the root
-?RCS: of the source tree for dist 4.0.
-?RCS:
-?RCS: $Log: d_poll.U,v $
-?RCS: Revision 3.0.1.2  1997/02/28  15:38:17  ram
-?RCS: patch61: mention that <poll.h> can be included if HAS_POLL defined
-?RCS:
-?RCS: Revision 3.0.1.1  1995/01/11  15:26:31  ram
-?RCS: patch45: created
-?RCS:
-?MAKE:d_poll: Inlibc
-?MAKE: -pick add $@ %<
-?S:d_poll:
-?S:    This variable conditionally defines the HAS_POLL symbol, which
-?S:    indicates to the C program that the poll() routine is available
-?S:    to poll active file descriptors.
-?S:.
-?C:HAS_POLL :
-?C:    This symbol, if defined, indicates that the poll routine is
-?C:    available to poll active file descriptors.  Please check I_POLL and
-?C:    I_SYS_POLL to know which header should be included as well.
-?C:.
-?H:#$d_poll HAS_POLL           /**/
-?H:.
-?LINT:set d_poll
-: see if poll exists
-set poll d_poll
-eval $inlibc
-
diff --git a/U/modified/d_setgrps.U b/U/modified/d_setgrps.U
deleted file mode 100644 (file)
index 9cb4763..0000000
+++ /dev/null
@@ -1,33 +0,0 @@
-?RCS: $Id: d_setgrps.U 1 2006-08-24 12:32:52Z rmanfredi $
-?RCS:
-?RCS: Copyright (c) 1991-1997, 2004-2006, Raphael Manfredi
-?RCS:
-?RCS: You may redistribute only under the terms of the Artistic Licence,
-?RCS: as specified in the README file that comes with the distribution.
-?RCS: You may reuse parts of this distribution only within the terms of
-?RCS: that same Artistic Licence; a copy of which may be found at the root
-?RCS: of the source tree for dist 4.0.
-?RCS:
-?RCS: $Log: d_setgrps.U,v $
-?RCS: Revision 3.0  1993/08/18  12:06:08  ram
-?RCS: Baseline for dist 3.0 netwide release.
-?RCS:
-?MAKE:d_setgrps: Inlibc
-?MAKE: -pick add $@ %<
-?S:d_setgrps:
-?S:    This variable conditionally defines the HAS_SETGROUPS symbol, which
-?S:    indicates to the C program that the setgroups() routine is available
-?S:    to set the list of process groups.
-?S:.
-?C:HAS_SETGROUPS:
-?C:    This symbol, if defined, indicates that the setgroups() routine is
-?C:    available to set the list of process groups.  If unavailable, multiple
-?C:    groups are probably not supported.
-?C:.
-?H:#$d_setgrps HAS_SETGROUPS           /**/
-?H:.
-?LINT:set d_setgrps
-: see if setgroups exists
-set setgroups d_setgrps
-eval $inlibc
-
diff --git a/U/modified/groupstype.U b/U/modified/groupstype.U
deleted file mode 100644 (file)
index 9fc2d35..0000000
+++ /dev/null
@@ -1,63 +0,0 @@
-?RCS: $Id: groupstype.U,v 3.0.1.2 1994/10/29 16:18:08 ram Exp $
-?RCS:
-?RCS: Copyright (c) 1991-1993, Raphael Manfredi
-?RCS:
-?RCS: You may redistribute only under the terms of the Artistic Licence,
-?RCS: as specified in the README file that comes with the distribution.
-?RCS: You may reuse parts of this distribution only within the terms of
-?RCS: that same Artistic Licence; a copy of which may be found at the root
-?RCS: of the source tree for dist 3.0.
-?RCS:
-?RCS: Original Author: Andy Dougherty <doughera@lafcol.lafayette.edu>
-?RCS:
-?RCS: $Log: groupstype.U,v $
-?RCS: Revision 3.0.1.2  1994/10/29  16:18:08  ram
-?RCS: patch36: no longer uses Setvar to set 'groupstype' (ADO)
-?RCS: patch36: typo fix in the word 'argument' (ADO)
-?RCS:
-?RCS: Revision 3.0.1.1  1994/06/20  07:00:18  ram
-?RCS: patch30: created by ADO
-?RCS:
-?MAKE:groupstype: gidtype d_getgrps Myread Oldconfig Findhdr cat d_setgrps
-?MAKE: -pick add $@ %<
-?INIT:groupstype=''
-?S:groupstype:
-?S:    This variable defines Groups_t to be something like gid_t, int,
-?S:    ushort, or whatever type is used for the second argument to
-?S:    getgroups() and setgroups().  Usually, this is the same as
-?S:    gidtype (gid_t), but sometimes it isn't.
-?S:.
-?C:Groups_t (GROUPSTYPE):
-?C:    This symbol holds the type used for the second argument to
-?C:    getgroups() and setgroups().  Usually, this is the same as
-?C:    gidtype (gid_t) , but sometimes it isn't.
-?C:    It can be int, ushort, gid_t, etc...
-?C:    It may be necessary to include <sys/types.h> to get any
-?C:    typedef'ed information.  This is only required if you have
-?C:    getgroups() or setgroups()..
-?C:.
-?H:?%<:#if defined(HAS_GETGROUPS) || defined(HAS_SETGROUPS)
-?H:?%<:#define Groups_t $groupstype    /* Type for 2nd arg to [sg]etgroups() */
-?H:?%<:#endif
-?H:.
-?W:%<:getgroups HAS_GETGROUPS setgroups HAS_SETGROUPS
-: Find type of 2nd arg to 'getgroups()' and 'setgroups()'
-echo " "
-case "$d_getgrps$d_setgrps" in
-*define*)
-       case "$groupstype" in
-       '') dflt="$gidtype" ;;
-       *)  dflt="$groupstype" ;;
-       esac
-       $cat <<EOM
-What type of pointer is the second argument to getgroups() and setgroups()?
-Usually this is the same as group ids, $gidtype, but not always.
-
-EOM
-       rp='What type pointer is the second argument to getgroups() and setgroups()?'
-       . ./myread
-       groupstype="$ans"
-       ;;
-*)  groupstype="$gidtype";;
-esac
-
index 571a5cc..217b21b 100644 (file)
@@ -1,12 +1,12 @@
-?RCS: $Id: libc.U,v 3.0.1.10 1997/02/28 15:56:48 ram Exp $
+?RCS: $Id: libc.U 1 2006-08-24 12:32:52Z rmanfredi $
 ?RCS:
-?RCS: Copyright (c) 1991-1993, Raphael Manfredi
+?RCS: Copyright (c) 1991-1997, 2004-2006, Raphael Manfredi
 ?RCS:
 ?RCS: You may redistribute only under the terms of the Artistic Licence,
 ?RCS: as specified in the README file that comes with the distribution.
 ?RCS: You may reuse parts of this distribution only within the terms of
 ?RCS: that same Artistic Licence; a copy of which may be found at the root
-?RCS: of the source tree for dist 3.0.
+?RCS: of the source tree for dist 4.0.
 ?RCS:
 ?RCS: $Log: libc.U,v $
 ?RCS: Revision 3.0.1.10  1997/02/28  15:56:48  ram
 ?S:    internally by Configure.
 ?S:.
 ?T:thislib try libnames xxx xscan xrun thisname com tans file
-?F:!libnames
+?F:!libnames !libc.tmp !tmp.imp
 ?LINT:extern PASE
 ?LINT:extern libnames
 ?LINT:change nm_opt
 ?INIT:libnames=''
-: get list of predefined functions in a handy place
+: Figure out where the libc is located
 case "$runnm" in
 true)
 ?X: indentation is wrong on purpose--RAM
+: get list of predefined functions in a handy place
 echo " "
 case "$libc" in
 '') libc=unknown
@@ -344,31 +345,34 @@ else
                echo " "
                echo "$nm didn't seem to work right. Trying $ar instead..." >&4
                com=''
-               if $ar t $libc > libc.tmp && $contains '^fprintf$' libc.tmp >/dev/null 2>&1; then
+               if $ar t $libc > libc.tmp && \
+                       $contains '^fprintf$' libc.tmp >/dev/null 2>&1
+               then
                        for thisname in $libnames $libc; do
                                $ar t $thisname >>libc.tmp
                        done
                        $sed -e "s/\\$_o\$//" < libc.tmp > libc.list
                        echo "Ok." >&4
                elif test "X$osname" = "Xos2" && $ar tv $libc > libc.tmp; then
-                       # Repeat libc to extract forwarders to DLL entries too
+?X: Repeat libc to extract forwarders to DLL entries too
                        for thisname in $libnames $libc; do
                                $ar tv $thisname >>libc.tmp
-                               # Revision 50 of EMX has bug in $ar.
-                               # it will not extract forwarders to DLL entries
-                               # Use emximp which will extract exactly them.
+?X: Revision 50 of EMX has bug in ar: it will not extract forwarders
+?X: to DLL entries.  Use emximp which will extract exactly them.
                                emximp -o tmp.imp $thisname \
                                    2>/dev/null && \
                                    $sed -e 's/^\([_a-zA-Z0-9]*\) .*$/\1/p' \
                                    < tmp.imp >>libc.tmp
-                               $rm tmp.imp
+                               $rm -f tmp.imp
                        done
                        $sed -e "s/\\$_o\$//" -e 's/^ \+//' < libc.tmp > libc.list
                        echo "Ok." >&4
                else
                        echo "$ar didn't seem to work right." >&4
                        echo "Maybe this is a Cray...trying bld instead..." >&4
-                       if bld t $libc | $sed -e 's/.*\///' -e "s/\\$_o:.*\$//" > libc.list
+                       if  bld t $libc | \
+                               $sed -e 's/.*\///' -e "s/\\$_o:.*\$//" > libc.list &&
+                               $test -s libc.list
                        then
                                for thisname in $libnames; do
                                        bld t $libnames | \
@@ -393,7 +397,8 @@ define)
 *)  if $test -f /lib/syscalls.exp; then
        echo " "
        echo "Also extracting names from /lib/syscalls.exp for good ole AIX..." >&4
-       $sed -n 's/^\([^        ]*\)[   ]*syscall[0-9]*[        ]*$/\1/p' /lib/syscalls.exp >>libc.list
+       $sed -n 's/^\([^        ]*\)[   ]*syscall[0-9]*[        ]*$/\1/p' \
+               /lib/syscalls.exp >>libc.list
     fi
     ;;
 esac
diff --git a/U/modified/libnlist.U b/U/modified/libnlist.U
deleted file mode 100644 (file)
index 5b7894d..0000000
+++ /dev/null
@@ -1,49 +0,0 @@
-?RCS: $Id: libnlist.U,v 3.0.1.1 1997/02/28 16:08:02 ram Exp $
-?RCS:
-?RCS: Copyright (c) 1991-1993, Raphael Manfredi
-?RCS: 
-?RCS: You may redistribute only under the terms of the Artistic Licence,
-?RCS: as specified in the README file that comes with the distribution.
-?RCS: You may reuse parts of this distribution only within the terms of
-?RCS: that same Artistic Licence; a copy of which may be found at the root
-?RCS: of the source tree for dist 3.0.
-?RCS:
-?RCS: $Log: libnlist.U,v $
-?RCS: Revision 3.0.1.1  1997/02/28  16:08:02  ram
-?RCS: patch61: added usrinc and mips on the dependency line
-?RCS: patch61: make sure we call ./mips
-?RCS: patch61: added a ?LINT: hint
-?RCS:
-?RCS: Revision 3.0  1993/08/18  12:09:00  ram
-?RCS: Baseline for dist 3.0 netwide release.
-?RCS:
-?MAKE:libnlist: Loc libpth Guess usrinc _a
-?MAKE: -pick add $@ %<
-?S:libnlist (libmld):
-?S:    This variable contains the name of the library required to get the
-?S:    definition of the nlist() function.  On a MIPS RISC/OS box, it is -lmld.
-?S:    Under Sys Vr4, it is -lelf.  Otherwise, its value is empty.
-?S:.
-?T:xxx
-?LINT:use usrinc
-: see if we need a special library for 'nlist()'
-echo " "
-: How about doing this if nlist is not in libc...
-if ./mips ; then
-       libnlist='-lmld'
-else
-       xxx=`./loc libelf$_a x $libpth`
-       case "$xxx" in
-       x)  ;;
-       *)
-               libnlist="$xxx"
-               ;;
-       esac
-fi
-case "$libnlist" in
-'') echo "No special library for nlist() seems necessary." >&4
-       ;;
-*)  echo "nlist() can be found in $libnlist." >&4
-       ;;
-esac
-
index eb7f008..7b32efe 100644 (file)
@@ -1,12 +1,12 @@
-?RCS: $Id: models.U,v 3.0.1.2 1997/02/28 16:13:17 ram Exp $
+?RCS: $Id: models.U 1 2006-08-24 12:32:52Z rmanfredi $
 ?RCS:
-?RCS: Copyright (c) 1991-1993, Raphael Manfredi
+?RCS: Copyright (c) 1991-1997, 2004-2006, Raphael Manfredi
 ?RCS:
 ?RCS: You may redistribute only under the terms of the Artistic Licence,
 ?RCS: as specified in the README file that comes with the distribution.
 ?RCS: You may reuse parts of this distribution only within the terms of
 ?RCS: that same Artistic Licence; a copy of which may be found at the root
-?RCS: of the source tree for dist 3.0.
+?RCS: of the source tree for dist 4.0.
 ?RCS:
 ?RCS: $Log: models.U,v $
 ?RCS: Revision 3.0.1.2  1997/02/28  16:13:17  ram
@@ -55,8 +55,7 @@
 ?S:    model programs.  It is up to the Makefile to use this.
 ?S:.
 ?T:unsplit tans modelcc
-?X: This really is a temporary file, but Metalint gets fooled :-(.  --AD.
-?X:?F:!pdp11
+?F:!pdp11
 ?D:large=''
 ?LINT:extern cc
 : see what memory models we can support
diff --git a/U/modified/pager.U b/U/modified/pager.U
deleted file mode 100644 (file)
index 49eed80..0000000
+++ /dev/null
@@ -1,59 +0,0 @@
-?RCS: $Id: pager.U,v 3.0.1.2 1995/01/30 14:41:26 ram Exp $
-?RCS:
-?RCS: Copyright (c) 1991-1993, Raphael Manfredi
-?RCS: 
-?RCS: You may redistribute only under the terms of the Artistic Licence,
-?RCS: as specified in the README file that comes with the distribution.
-?RCS: You may reuse parts of this distribution only within the terms of
-?RCS: that same Artistic Licence; a copy of which may be found at the root
-?RCS: of the source tree for dist 3.0.
-?RCS:
-?RCS: $Log: pager.U,v $
-?RCS: Revision 3.0.1.2  1995/01/30  14:41:26  ram
-?RCS: patch49: ensure dflt gets initialized in case no pagers are found (WED)
-?RCS:
-?RCS: Revision 3.0.1.1  1994/10/29  16:27:45  ram
-?RCS: patch36: replaced Myread by Getfile in the dependency line
-?RCS:
-?RCS: Revision 3.0  1993/08/18  12:09:30  ram
-?RCS: Baseline for dist 3.0 netwide release.
-?RCS:
-?MAKE:pager: pg more less Getfile Oldconfig
-?MAKE: -pick add $@ %<
-?S:pager:
-?S:    This variable contains the name of the preferred pager on the system.
-?S:    Usual values are (the full pathnames of) more, less, pg, or cat.
-?S:.
-: locate the preferred pager for this system
-fn=f/
-case "$pager" in
-'')
-       dflt=''
-       case "$pg" in
-       /*) dflt=$pg;;
-       [a-zA-Z]:/*) dflt=$pg;;
-       esac
-       case "$more" in
-       /*) dflt=$more;;
-       [a-zA-Z]:/*) dflt=$more;;
-       esac
-       case "$less" in
-       /*) dflt=$less;;
-       [a-zA-Z]:/*) dflt=$less;;
-       esac
-       case "$dflt" in
-       '') dflt=/usr/ucb/more;;
-       esac
-       ;;
-*)     dflt="$pager"
-       : Instruct ./getfile to trust the hinted or previous pager value,
-       : even if it does not begin with a slash.  For example, on os2,
-       : pager might be cmd /c more.  See comments in UU/getfile.
-       fn="f/($pager)"
-       ;;
-esac
-echo " "
-rp='What pager is used on your system?'
-. ./getfile
-pager="$ans"
-
index 32ab5c2..376932b 100644 (file)
@@ -1,12 +1,12 @@
-?RCS: $Id: sig_name.U,v 3.0.1.5 1997/02/28 16:21:25 ram Exp $
+?RCS: $Id: sig_name.U 1 2006-08-24 12:32:52Z rmanfredi $
 ?RCS:
-?RCS: Copyright (c) 1991-1993, Raphael Manfredi
+?RCS: Copyright (c) 1991-1997, 2004-2006, Raphael Manfredi
 ?RCS:
 ?RCS: You may redistribute only under the terms of the Artistic Licence,
 ?RCS: as specified in the README file that comes with the distribution.
 ?RCS: You may reuse parts of this distribution only within the terms of
 ?RCS: that same Artistic Licence; a copy of which may be found at the root
-?RCS: of the source tree for dist 3.0.
+?RCS: of the source tree for dist 4.0.
 ?RCS:
 ?RCS: $Log: sig_name.U,v $
 ?RCS: Revision 3.0.1.5  1997/02/28  16:21:25  ram
 ?H:#define SIG_SIZE $sig_size                  /**/
 ?H:.
 ?T:i doinit
-?F:!signal_cmd
+?F:!= !signal_cmd
 ?X:    signal.cmd creates a file  signal.lst which has two columns:
 ?X:    NAME  number, e.g.
 ?X:     HUP 1
diff --git a/U/modified/so.U b/U/modified/so.U
deleted file mode 100644 (file)
index eefa87b..0000000
+++ /dev/null
@@ -1,50 +0,0 @@
-?RCS: $Id: so.U,v 3.0.1.2 1994/10/29 16:30:04 ram Exp $
-?RCS:
-?RCS: Copyright (c) 1991-1993, Raphael Manfredi
-?RCS: 
-?RCS: You may redistribute only under the terms of the Artistic Licence,
-?RCS: as specified in the README file that comes with the distribution.
-?RCS: You may reuse parts of this distribution only within the terms of
-?RCS: that same Artistic Licence; a copy of which may be found at the root
-?RCS: of the source tree for dist 3.0.
-?RCS:
-?RCS: $Log: so.U,v $
-?RCS: Revision 3.0.1.2  1994/10/29  16:30:04  ram
-?RCS: patch36: now tells user how he can suppress shared lib lookup (ADO)
-?RCS: patch36: removed echo at the top, since it's now in the here-doc (ADO)
-?RCS:
-?RCS: Revision 3.0.1.1  1994/06/20  07:07:02  ram
-?RCS: patch30: created
-?RCS:
-?X:
-?X:    This unit computes the shared-object / shared-lib extension
-?X:
-?MAKE:so: test libpth Loc Myread Oldconfig cat
-?MAKE: -pick add $@ %<
-?S:so:
-?S:    This variable holds the extension used to identify shared libraries
-?S:    (also known as shared objects) on the system. Usually set to 'so'.
-?S:.
-?T: xxx
-: compute shared library extension
-case "$so" in
-'')
-       if xxx=`./loc libc.sl X $libpth`; $test -f "$xxx"; then
-               dflt='sl'
-       else
-               dflt='so'
-       fi
-       ;;
-*) dflt="$so";;
-esac
-$cat <<EOM
-
-On some systems, shared libraries may be available.  Answer 'none' if
-you want to suppress searching of shared libraries for the remainder
-of this configuration.
-
-EOM
-rp='What is the file extension used for shared libraries?'
-. ./myread
-so="$ans"
-
diff --git a/U/modified/spitshell.U b/U/modified/spitshell.U
deleted file mode 100644 (file)
index 80f7db7..0000000
+++ /dev/null
@@ -1,106 +0,0 @@
-?RCS: $Id: spitshell.U,v 3.0.1.4 1997/02/28 16:22:12 ram Exp $
-?RCS:
-?RCS: Copyright (c) 1991-1993, Raphael Manfredi
-?RCS:
-?RCS: You may redistribute only under the terms of the Artistic Licence,
-?RCS: as specified in the README file that comes with the distribution.
-?RCS: You may reuse parts of this distribution only within the terms of
-?RCS: that same Artistic Licence; a copy of which may be found at the root
-?RCS: of the source tree for dist 3.0.
-?RCS:
-?RCS: $Log: spitshell.U,v $
-?RCS: Revision 3.0.1.4  1997/02/28  16:22:12  ram
-?RCS: patch61: removed useless chatter as this is now done very early
-?RCS:
-?RCS: Revision 3.0.1.3  1995/01/11  15:37:01  ram
-?RCS: patch45: use 'test -f' instead of 'test -r' for exec-only cat progs (WED)
-?RCS: patch45: protected "sh -c" within backquotes for Linux and SGI
-?RCS:
-?RCS: Revision 3.0.1.2  1994/08/29  16:33:00  ram
-?RCS: patch32: don't create spitshell under the UU directory
-?RCS: patch32: allow for cat in /bin or /usr/bin
-?RCS:
-?RCS: Revision 3.0.1.1  1993/09/13  16:12:58  ram
-?RCS: patch10: made #!-failure message more friendly (WAD)
-?RCS:
-?RCS: Revision 3.0  1993/08/18  12:09:49  ram
-?RCS: Baseline for dist 3.0 netwide release.
-?RCS:
-?MAKE:spitshell shsharp sharpbang: eunicefix sh Head
-?MAKE: -pick add $@ %<
-?S:spitshell:
-?S:    This variable contains the command necessary to spit out a runnable
-?S:    shell on this system.  It is either cat or a grep -v for # comments.
-?S:.
-?S:shsharp:
-?S:    This variable tells further Configure units whether your sh can
-?S:    handle # comments.
-?S:.
-?S:sharpbang:
-?S:    This variable contains the string #! if this system supports that
-?S:    construct.
-?S:.
-?T:xcat p
-?X: paths comes from Head
-?LINT:extern paths _exe
-: see if sh knows # comments
-?X: This is loaded up early, so avoid being chatty.
-?X: echo " "
-?X: echo "Checking your $sh to see if it knows about # comments..." >&2
-if `$sh -c '#' >/dev/null 2>&1`; then
-?X:    echo "Your $sh handles # comments correctly."
-       shsharp=true
-       spitshell=cat
-?X:    echo " "
-?X:    echo "Okay, let's see if #! works on this system..."
-       xcat=/bin/cat
-       test -f $xcat$_exe || xcat=/usr/bin/cat
-       if test ! -f $xcat$_exe; then
-               for p in `echo $PATH | sed -e "s/$p_/ /g"` $paths; do
-                       if test -f $p/cat$_exe; then
-                               xcat=$p/cat
-                               break
-                       fi
-               done
-               if test ! -f $xcat$_exe; then
-                       echo "Can't find cat anywhere!"
-                       exit 1
-               fi
-       fi
-       echo "#!$xcat" >sharp
-       $eunicefix sharp
-       chmod +x sharp
-       ./sharp > today
-       if test -s today; then
-?X:            echo "It does."
-               sharpbang='#!'
-       else
-               echo "#! $xcat" > sharp
-               $eunicefix sharp
-               chmod +x sharp
-               ./sharp > today
-               if test -s today; then
-?X:                    echo "It does."
-                       sharpbang='#! '
-               else
-?X:                    echo "Okay, let's see if #! works on this system..."
-?X:                    echo "It's just a comment."
-                       sharpbang=': use '
-               fi
-       fi
-else
-       echo " "
-       echo "Your $sh doesn't grok # comments--I will strip them later on."
-       shsharp=false
-?X: The spitshell script will be perused, so leave it out the UU directory
-       cd ..
-       echo "exec grep -v '^[  ]*#'" >spitshell
-       chmod +x spitshell
-       $eunicefix spitshell
-       spitshell=`pwd`/spitshell
-       cd UU
-       echo "I presume that if # doesn't work, #! won't work either!"
-       sharpbang=': use '
-fi
-rm -f sharp today
-
diff --git a/U/modified/startsh.U b/U/modified/startsh.U
deleted file mode 100644 (file)
index 93bc2e5..0000000
+++ /dev/null
@@ -1,50 +0,0 @@
-?RCS: $Id: startsh.U,v 3.0.1.1 1997/02/28 16:25:31 ram Exp $
-?RCS:
-?RCS: Copyright (c) 1991-1993, Raphael Manfredi
-?RCS: 
-?RCS: You may redistribute only under the terms of the Artistic Licence,
-?RCS: as specified in the README file that comes with the distribution.
-?RCS: You may reuse parts of this distribution only within the terms of
-?RCS: that same Artistic Licence; a copy of which may be found at the root
-?RCS: of the source tree for dist 3.0.
-?RCS:
-?RCS: $Log: startsh.U,v $
-?RCS: Revision 3.0.1.1  1997/02/28  16:25:31  ram
-?RCS: patch61: avoid needless chatter since this is now done very early
-?RCS:
-?RCS: Revision 3.0  1993/08/18  12:09:51  ram
-?RCS: Baseline for dist 3.0 netwide release.
-?RCS:
-?MAKE:startsh: sh sharpbang eunicefix
-?MAKE: -pick add $@ %<
-?S:startsh:
-?S:    This variable contains the string to put on the front of a shell
-?S:    script to make sure (hopefully) that it runs with sh and not some
-?S:    other shell.
-?S:.
-?F:!sharp
-: figure out how to guarantee sh startup
-?X: Avoid needless chatter since this is now done very early.
-?X: echo " "
-?X: echo "Checking out how to guarantee sh startup..." >&2
-case "$startsh" in
-'') startsh=${sharpbang}${sh} ;;
-*)
-?X: echo "Let's see if '$startsh' works..." ;;
-esac
-cat >sharp <<EOSS
-$startsh
-set abc
-test "$?abc" != 1
-EOSS
-
-chmod +x sharp
-$eunicefix sharp
-if ./sharp; then
-       : echo "Yup, it does."
-else
-       echo "Hmm... '$startsh' does not guarantee sh startup..."
-       echo "You may have to fix up the shell scripts to make sure $sh runs them."
-fi
-rm -f sharp
-
index 5c12cca..761f308 100644 (file)
@@ -1,12 +1,12 @@
-?RCS: $Id: stdchar.U,v 3.0 1993/08/18 12:09:52 ram Exp $
+?RCS: $Id: stdchar.U 1 2006-08-24 12:32:52Z rmanfredi $
 ?RCS:
-?RCS: Copyright (c) 1991-1993, Raphael Manfredi
+?RCS: Copyright (c) 1991-1997, 2004-2006, Raphael Manfredi
 ?RCS:
 ?RCS: You may redistribute only under the terms of the Artistic Licence,
 ?RCS: as specified in the README file that comes with the distribution.
 ?RCS: You may reuse parts of this distribution only within the terms of
 ?RCS: that same Artistic Licence; a copy of which may be found at the root
-?RCS: of the source tree for dist 3.0.
+?RCS: of the source tree for dist 4.0.
 ?RCS:
 ?RCS: $Log: stdchar.U,v $
 ?RCS: Revision 3.0  1993/08/18  12:09:52  ram
 ?C:.
 ?H:#define STDCHAR $stdchar    /**/
 ?H:.
-?F:stdioh
+?F:!stdioh
 : see what type of char stdio uses.
 echo " "
 ?X: untangle the #include nest
-echo '#include <stdio.h>' > stdio.c
-$cppstdin $cppminus < stdio.c > stdioh
+echo '#include <stdio.h>' | $cppstdin $cppminus > stdioh
 if $contains 'unsigned.*char.*_ptr;' stdioh >/dev/null 2>&1 ; then
        echo "Your stdio uses unsigned chars." >&4
        stdchar="unsigned char"
@@ -37,5 +36,5 @@ else
        echo "Your stdio uses signed chars." >&4
        stdchar="char"
 fi
-$rm -f stdio.* stdioh
+$rm -f stdioh