Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with HTTPS or Subversion.

Download ZIP
Fetching contributors…

Cannot retrieve contributors at this time

executable file 393 lines (378 sloc) 8.504 kb
#!/bin/sh
uname=`which uname`
sed=`which sed`
tr=`which tr`
myuname=''
newmyuname=''
trnl=''
case "$test" in
test)
echo "Hopefully test is built into your sh."
;;
*)
if `sh -c "PATH= test true" >/dev/null 2>&1`; then
# echo "Using the test built into your sh."
test=test
_test=test
fi
;;
esac
: Find the appropriate value for a newline for tr
if test -n "$DJGPP"; then
trnl='\012'
fi
if test X"$trnl" = X; then
case "`echo foo|tr '\n' x 2>/dev/null`" in
foox) trnl='\n' ;;
esac
fi
if test X"$trnl" = X; then
case "`echo foo|tr '\012' x 2>/dev/null`" in
foox) trnl='\012' ;;
esac
fi
if test X"$trnl" = X; then
case "`echo foo|tr '\r\n' xy 2>/dev/null`" in
fooxy) trnl='\n\r' ;;
esac
fi
if test X"$trnl" = X; then
cat <<EOM >&2
$me: Fatal Error: cannot figure out how to translate newlines with 'tr'.
EOM
exit 1
fi
myuname=`$uname -a 2>/dev/null`
$test -z "$myuname" && myuname=`hostname 2>/dev/null`
# tr '[A-Z]' '[a-z]' would not work in EBCDIC
# because the A-Z/a-z are not consecutive.
myuname=`echo $myuname | $sed -e 's/^[^=]*=//' -e "s,['/],,g" | \
$tr '[A-Z]' '[a-z]' | $tr $trnl ' '`
newmyuname="$myuname"
: Half the following guesses are probably wrong... If you have better
: tests or hints, please send them to perlbug@perl.org
: The metaconfig authors would also appreciate a copy...
$test -f /irix && osname=irix
$test -f /xenix && osname=sco_xenix
$test -f /dynix && osname=dynix
$test -f /dnix && osname=dnix
$test -f /lynx.os && osname=lynxos
$test -f /unicos && osname=unicos && osvers=`$uname -r`
$test -f /unicosmk && osname=unicosmk && osvers=`$uname -r`
$test -f /unicosmk.ar && osname=unicosmk && osvers=`$uname -r`
$test -f /bin/mips && /bin/mips && osname=mips
$test -d /NextApps && set X `hostinfo | grep 'NeXT Mach.*:' | \
$sed -e 's/://' -e 's/\./_/'` && osname=next && osvers=$4
$test -d /usr/apollo/bin && osname=apollo
$test -f /etc/saf/_sactab && osname=svr4
$test -d /usr/include/minix && osname=minix
$test -f /system/gnu_library/bin/ar.pm && osname=vos
if $test -d /MachTen -o -d /MachTen_Folder; then
osname=machten
if $test -x /sbin/version; then
osvers=`/sbin/version | $awk '{print $2}' |
$sed -e 's/[A-Za-z]$//'`
elif $test -x /usr/etc/version; then
osvers=`/usr/etc/version | $awk '{print $2}' |
$sed -e 's/[A-Za-z]$//'`
else
osvers="$2.$3"
fi
fi
$test -f /sys/posix.dll &&
$test -f /usr/bin/what &&
set X `/usr/bin/what /sys/posix.dll` &&
$test "$3" = UWIN &&
osname=uwin &&
osvers="$5"
if $test -f $uname; then
set X $myuname
shift
case "$5" in
fps*) osname=fps ;;
mips*)
case "$4" in
umips) osname=umips ;;
*) osname=mips ;;
esac;;
[23]100) osname=mips ;;
next*) osname=next ;;
i386*)
tmp=`/bin/uname -X 2>/dev/null|awk '/3\.2v[45]/{ print $(NF) }'`
if $test "$tmp" != "" -a "$3" = "3.2" -a -f '/etc/systemid'; then
osname='sco'
osvers=$tmp
elif $test -f /etc/kconfig; then
osname=isc
if test "$lns" = "$ln -s"; then
osvers=4
elif $contains _SYSV3 /usr/include/stdio.h > /dev/null 2>&1 ; then
osvers=3
elif $contains _POSIX_SOURCE /usr/include/stdio.h > /dev/null 2>&1 ; then
osvers=2
fi
fi
tmp=''
;;
pc*)
if test -n "$DJGPP"; then
osname=dos
osvers=djgpp
fi
;;
esac
case "$1" in
aix) osname=aix
tmp=`( (oslevel) 2>/dev/null || echo "not found") 2>&1`
case "$tmp" in
# oslevel can fail with:
# oslevel: Unable to acquire lock.
*not\ found) osvers="$4"."$3" ;;
'<3240'|'<>3240') osvers=3.2.0 ;;
'=3240'|'>3240'|'<3250'|'<>3250') osvers=3.2.4 ;;
'=3250'|'>3250') osvers=3.2.5 ;;
*) osvers=$tmp;;
esac
;;
bsd386) osname=bsd386
osvers=`$uname -r`
;;
cygwin*) osname=cygwin
osvers="$3"
;;
*dc.osx) osname=dcosx
osvers="$3"
;;
dnix) osname=dnix
osvers="$3"
;;
domainos) osname=apollo
osvers="$3"
;;
dgux) osname=dgux
osvers="$3"
;;
dragonfly) osname=dragonfly
osvers="$3"
;;
dynixptx*) osname=dynixptx
osvers=`echo "$4"|sed 's/^v//'`
;;
freebsd) osname=freebsd
osvers="$3" ;;
genix) osname=genix ;;
gnu) osname=gnu
osvers="$3" ;;
hp*) osname=hpux
osvers=`echo "$3" | $sed 's,.*\.\([0-9]*\.[0-9]*\),\1,'`
;;
irix*) osname=irix
case "$3" in
4*) osvers=4 ;;
5*) osvers=5 ;;
*) osvers="$3" ;;
esac
;;
linux) osname=linux
case "$3" in
*) osvers="$3" ;;
esac
;;
MiNT) osname=mint
;;
netbsd*) osname=netbsd
osvers="$3"
;;
news-os) osvers="$3"
case "$3" in
4*) osname=newsos4 ;;
*) osname=newsos ;;
esac
;;
next*) osname=next ;;
nonstop-ux) osname=nonstopux ;;
openbsd) osname=openbsd
osvers="$3"
;;
os2) osname=os2
osvers="$4"
;;
POSIX-BC | posix-bc ) osname=posix-bc
osvers="$3"
;;
powerux | power_ux | powermax_os | powermaxos | \
powerunix | power_unix) osname=powerux
osvers="$3"
;;
qnx) osname=qnx
osvers="$4"
;;
solaris) osname=solaris
case "$3" in
5*) osvers=`echo $3 | $sed 's/^5/2/g'` ;;
*) osvers="$3" ;;
esac
;;
sunos) osname=sunos
case "$3" in
5*) osname=solaris
osvers=`echo $3 | $sed 's/^5/2/g'` ;;
*) osvers="$3" ;;
esac
;;
titanos) osname=titanos
case "$3" in
1*) osvers=1 ;;
2*) osvers=2 ;;
3*) osvers=3 ;;
4*) osvers=4 ;;
*) osvers="$3" ;;
esac
;;
ultrix) osname=ultrix
osvers="$3"
;;
osf1|mls+) case "$5" in
alpha)
osname=dec_osf
osvers=`sizer -v | awk -FUNIX '{print $2}' | awk '{print $1}' | tr '[A-Z]' '[a-z]' | sed 's/^[xvt]//'`
case "$osvers" in
[1-9].[0-9]*) ;;
*) osvers=`echo "$3" | sed 's/^[xvt]//'` ;;
esac
;;
hp*) osname=hp_osf1 ;;
mips) osname=mips_osf1 ;;
esac
;;
# UnixWare 7.1.2 is known as Open UNIX 8
openunix|unixware) osname=svr5
osvers="$4"
;;
uts) osname=uts
osvers="$3"
;;
vos) osvers="$3"
;;
$2) case "$osname" in
*isc*) ;;
*freebsd*) ;;
svr*)
: svr4.x or possibly later
case "svr$3" in
${osname}*)
osname=svr$3
osvers=$4
;;
esac
case "$osname" in
svr4.0)
: Check for ESIX
if test -f /stand/boot ; then
eval `grep '^INITPROG=[a-z/0-9]*$' /stand/boot`
if test -n "$INITPROG" -a -f "$INITPROG"; then
isesix=`strings -a $INITPROG|grep 'ESIX SYSTEM V/386 Release 4.0'`
if test -n "$isesix"; then
osname=esix4
fi
fi
fi
;;
esac
;;
*) if test -f /etc/systemid; then
osname=sco
set `echo $3 | $sed 's/\./ /g'` $4
if $test -f $src/hints/sco_$1_$2_$3.sh; then
osvers=$1.$2.$3
elif $test -f $src/hints/sco_$1_$2.sh; then
osvers=$1.$2
elif $test -f $src/hints/sco_$1.sh; then
osvers=$1
fi
else
case "$osname" in
'') : Still unknown. Probably a generic Sys V.
osname="sysv"
osvers="$3"
;;
esac
fi
;;
esac
;;
*) case "$osname" in
'') : Still unknown. Probably a generic BSD.
osname="$1"
osvers="$3"
;;
esac
;;
esac
else
if test -f /vmunix -a -f $src/hints/news_os.sh; then
(what /vmunix | UU/tr '[A-Z]' '[a-z]') > UU/kernel.what 2>&1
if $contains news-os UU/kernel.what >/dev/null 2>&1; then
osname=news_os
fi
$rm -f UU/kernel.what
elif test -d c:/. -o -n "$is_os2" ; then
set X $myuname
osname=os2
osvers="$5"
fi
fi
case "$targetarch" in
'') ;;
*) hostarch=$osname
osname=`echo $targetarch|sed 's,^[^-]*-,,'`
osvers=''
;;
esac
: Now look for a hint file osname_osvers, unless one has been
: specified already.
case "$hintfile" in
''|' ')
file=`echo "${osname}_${osvers}" | $sed -e 's%\.%_%g' -e 's%_$%%'`
: Also try without trailing minor version numbers.
xfile=`echo $file | $sed -e 's%_[^_]*$%%'`
xxfile=`echo $xfile | $sed -e 's%_[^_]*$%%'`
xxxfile=`echo $xxfile | $sed -e 's%_[^_]*$%%'`
xxxxfile=`echo $xxxfile | $sed -e 's%_[^_]*$%%'`
case "$file" in
'') dflt=none ;;
*) case "$osvers" in
'') dflt=$file
;;
*) if $test -f $src/hints/$file.sh ; then
dflt=$file
elif $test -f $src/hints/$xfile.sh ; then
dflt=$xfile
elif $test -f $src/hints/$xxfile.sh ; then
dflt=$xxfile
elif $test -f $src/hints/$xxxfile.sh ; then
dflt=$xxxfile
elif $test -f $src/hints/$xxxxfile.sh ; then
dflt=$xxxxfile
elif $test -f "$src/hints/${osname}.sh" ; then
dflt="${osname}"
else
dflt=none
fi
;;
esac
;;
esac
if $test -f Policy.sh ; then
case "$dflt" in
*Policy*) ;;
none) dflt="Policy" ;;
*) dflt="Policy $dflt" ;;
esac
fi
;;
*)
dflt=`echo $hintfile | $sed 's/\.sh$//'`
;;
esac
echo $osname
Jump to Line
Something went wrong with that request. Please try again.