+++ /dev/null
-?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
+++ /dev/null
-?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
-
+++ /dev/null
-?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
-
+++ /dev/null
-?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'
-
+++ /dev/null
-?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
-
?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
+++ /dev/null
-?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
-
+++ /dev/null
-?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
-
+++ /dev/null
-?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
-
?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
-?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
?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 " "
-?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.
?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
+++ /dev/null
-?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
-
+++ /dev/null
-?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
-
+++ /dev/null
-?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
-
+++ /dev/null
-?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
-
+++ /dev/null
-?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
-
-?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
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 | \
*) 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
+++ /dev/null
-?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
-
-?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
?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
+++ /dev/null
-?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"
-
-?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
+++ /dev/null
-?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"
-
+++ /dev/null
-?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
-
+++ /dev/null
-?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
-
-?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"
echo "Your stdio uses signed chars." >&4
stdchar="char"
fi
-$rm -f stdio.* stdioh
+$rm -f stdioh
https://perl5.git.perl.org / metaconfig.git / commitdiff