Rewrote large parts of the unix installer script.
It's now simpler, shorter, and better. Some of the text is revised, accepts environment variables when asked for the path, some additional fixes in misc places. original commit: 3589a703087038a58ae3c3cb27a5dc7d2e4aec47
This commit is contained in:
Eli Barzilay
parent
cad38d5a36
commit
f8effc0a72
|
|
@ -20,9 +20,10 @@ failwith() {
|
||||||
fi
|
fi
|
||||||
exit 1
|
exit 1
|
||||||
}
|
}
|
||||||
exithandler() {
|
# intentional aborts
|
||||||
failwith "Aborting..."
|
abort() { failwith "abort."; }
|
||||||
}
|
# unexpected exits
|
||||||
|
exithandler() { failwith "Aborting..."; }
|
||||||
|
|
||||||
trap exithandler 2 3 9 15
|
trap exithandler 2 3 9 15
|
||||||
|
|
||||||
|
|
@ -40,11 +41,6 @@ lookfor() {
|
||||||
failwith "could not find \"$1\"."
|
failwith "could not find \"$1\"."
|
||||||
}
|
}
|
||||||
|
|
||||||
link() { # args are source, target, where we are
|
|
||||||
"$rm" -f "$2" || failwith "could not remove \"$2\" in \"$3\"."
|
|
||||||
"$ln" -s "$1" "$2" || failwith "could not link \"$2\" in \"$3\"."
|
|
||||||
}
|
|
||||||
|
|
||||||
lookfor rm
|
lookfor rm
|
||||||
lookfor ls
|
lookfor ls
|
||||||
lookfor ln
|
lookfor ln
|
||||||
|
|
@ -62,6 +58,12 @@ _POSIX2_VERSION=199209
|
||||||
export _POSIX2_VERSION
|
export _POSIX2_VERSION
|
||||||
|
|
||||||
origwd="`pwd`"
|
origwd="`pwd`"
|
||||||
|
installer_file="$0"
|
||||||
|
cat_installer() {
|
||||||
|
oldwd="`pwd`"; cd "$origwd"
|
||||||
|
"$tail" +"$BINSTARTLINE" "$installer_file"
|
||||||
|
cd "$oldwd"
|
||||||
|
}
|
||||||
|
|
||||||
echo "This program will extract and install $DISTNAME."
|
echo "This program will extract and install $DISTNAME."
|
||||||
echo ""
|
echo ""
|
||||||
|
|
@ -97,6 +99,7 @@ done
|
||||||
|
|
||||||
###############################################################################
|
###############################################################################
|
||||||
## Where do you want it?
|
## Where do you want it?
|
||||||
|
## sets $where to the location: target path for wholedir, prefix for unixstyle
|
||||||
|
|
||||||
echo ""
|
echo ""
|
||||||
if test "$unixstyle" = "Y"; then
|
if test "$unixstyle" = "Y"; then
|
||||||
|
|
@ -119,183 +122,89 @@ else
|
||||||
fi
|
fi
|
||||||
echon "> "
|
echon "> "
|
||||||
read where
|
read where
|
||||||
case "$where" in
|
|
||||||
"~/"* ) where="$HOME/${where#\~/}" ;;
|
# numeric choice (make "." and "./" synonym for 4)
|
||||||
"~"* ) failwith "cannot use '~user' paths" ;;
|
if test "$unixstyle" = "Y"; then TARGET1=""
|
||||||
esac
|
else TARGET1="/$TARGET"; fi
|
||||||
case "$unixstyle$where" in
|
case "x$where" in
|
||||||
? | ?1 ) where="/usr" ;;
|
x | x1 ) where="/usr$TARGET1" ;;
|
||||||
?2 ) where="/usr/local" ;;
|
x2 ) where="/usr/local${TARGET1}" ;;
|
||||||
?3 ) where="$HOME" ;;
|
x3 ) where="${HOME}${TARGET1}" ;;
|
||||||
?4 | ?. ) where="`pwd`" ;;
|
x4 | x. | x./ ) where="`pwd`${TARGET1}" ;;
|
||||||
N/* ) TARGET="`\"$basename\" \"$where\"`"
|
|
||||||
where="`\"$dirname\" \"$where\"`" ;;
|
|
||||||
Y/* ) ;;
|
|
||||||
N* ) TARGET="`\"$basename\" \"$where\"`"
|
|
||||||
where="`\"$dirname\" \"$where\"`"
|
|
||||||
if test -d "$where"; then cd "$where"; where="`pwd`"; cd "$origwd"
|
|
||||||
else where="`pwd`/$where"; fi ;;
|
|
||||||
Y* ) if test -d "$where"; then cd "$where"; where="`pwd`"; cd "$origwd"
|
|
||||||
else where="`pwd`/$where"; fi ;;
|
|
||||||
esac
|
esac
|
||||||
|
|
||||||
if test "$unixstyle" = "N"; then
|
# substitute env vars and tildes
|
||||||
# can happen when choosing the root
|
where="`eval \"echo \\\"$where\\\"\"`"
|
||||||
if test "$TARGET" = "/"; then
|
|
||||||
failwith "refusing to remove your root"
|
|
||||||
fi
|
|
||||||
fi
|
|
||||||
|
|
||||||
# BASE can be used with "$BASE/$TARGET" to avoid a double slash
|
|
||||||
case "$where" in
|
|
||||||
"" ) failwith "internal error (empty \$where)" ;;
|
|
||||||
"/" ) BASE="" ;;
|
|
||||||
*"/" ) failwith "internal error (\$where ends in a slash)" ;;
|
|
||||||
"/"* ) BASE="$where" ;;
|
|
||||||
* ) failwith "internal error (\$where is not absolute)" ;;
|
|
||||||
esac
|
|
||||||
|
|
||||||
if test ! -d "$where"; then
|
|
||||||
failwith "the directory \"$where\" does not exist."
|
|
||||||
fi
|
|
||||||
if test ! -w "$where"; then
|
|
||||||
failwith "cannot write to \"$where\"."
|
|
||||||
fi
|
|
||||||
|
|
||||||
###############################################################################
|
###############################################################################
|
||||||
## Deal with Unix-style path questions
|
## Default system directories prefixed by $1, mimic configure behavior
|
||||||
|
## used for unixstyle targets and for wholedir links
|
||||||
|
|
||||||
set_prefix() {
|
set_dirs() {
|
||||||
BASE="$1"
|
# unixstyle: uses all of these
|
||||||
# default dirs -- mimic configure behavior
|
# wholedir: uses only bindir & mandir, no need for the others
|
||||||
bindir="$BASE/bin"
|
bindir="$1/bin"
|
||||||
collectsdir="$BASE/lib/racket/collects"
|
libdir="$1/lib"
|
||||||
if test -d "$BASE/share"; then docdir="$BASE/share/racket/doc"
|
incrktdir="$1/include/$TARGET"
|
||||||
elif test -d "$BASE/doc"; then docdir="$BASE/doc/racket"
|
librktdir="$1/lib/$TARGET"
|
||||||
else docdir="$BASE/share/racket/doc"
|
collectsdir="$1/lib/$TARGET/collects"
|
||||||
|
has_share="N"
|
||||||
|
if test -d "$1/share"; then has_share="Y"; fi
|
||||||
|
if test "$has_share" = "N" && test -d "$1/doc"; then docdir="$1/doc/$TARGET"
|
||||||
|
else docdir="$1/share/$TARGET/doc"
|
||||||
|
fi
|
||||||
|
if test "$has_share" = "N" && test -d "$1/man"; then mandir="$1/man"
|
||||||
|
else mandir="$1/share/man"
|
||||||
fi
|
fi
|
||||||
libdir="$BASE/lib"
|
|
||||||
includerktdir="$BASE/include/racket"
|
|
||||||
librktdir="$BASE/lib/racket"
|
|
||||||
mandir="$BASE/man"
|
|
||||||
# The source tree is always removed -- no point keeping it if it won't work
|
# The source tree is always removed -- no point keeping it if it won't work
|
||||||
# if test -d "$BASE/share"; then srcdir="$BASE/share/racket/src"
|
# if test "$has_share" = "N" && test -d "$1/src"; then srcdir="$1/src/$TARGET"
|
||||||
# elif test -d "$BASE/src"; then srcdir="$BASE/src/racket"
|
# else srcdir="$1/share/$TARGET/src"
|
||||||
# else srcdir="$BASE/share/racket/src"
|
|
||||||
# fi
|
# fi
|
||||||
}
|
}
|
||||||
|
|
||||||
dir_createable() {
|
|
||||||
test_dir="`\"$dirname\" \"$1\"`"
|
|
||||||
if test -d "$test_dir" && test -w "$test_dir"; then return 0
|
|
||||||
elif test "$test_dir" = "/"; then return 1
|
|
||||||
else dir_createable "$test_dir"; fi
|
|
||||||
}
|
|
||||||
|
|
||||||
show_dir_var() {
|
|
||||||
if test -f "$2"; then dir_status="(error: not a directory!)"; err="Y"
|
|
||||||
elif test ! -d "$2"; then
|
|
||||||
if dir_createable "$2"; then dir_status="(will be created)"
|
|
||||||
else dir_status="(error: not writable!)"; err="Y"; fi
|
|
||||||
elif test ! -w "$2"; then dir_status="(error: not writable!)"; err="Y"
|
|
||||||
else dir_status="(exists)"
|
|
||||||
fi
|
|
||||||
echo " $1 $2 $dir_status"
|
|
||||||
}
|
|
||||||
|
|
||||||
read_dir() {
|
|
||||||
echon "New directory: "
|
|
||||||
read new_dir
|
|
||||||
case "$new_dir" in
|
|
||||||
"/"* ) echo "$new_dir" ;;
|
|
||||||
* ) echo "$BASE/$new_dir" ;;
|
|
||||||
esac
|
|
||||||
}
|
|
||||||
|
|
||||||
if test "$unixstyle" = "Y"; then
|
|
||||||
set_prefix "$BASE"
|
|
||||||
# loop for possible changes
|
|
||||||
done="N"
|
|
||||||
while test ! "$done" = "Y"; do
|
|
||||||
echo ""
|
|
||||||
echo "Target Directories:"
|
|
||||||
err="N"
|
|
||||||
show_dir_var "[e] Executables " "$bindir"
|
|
||||||
show_dir_var "[s] Scheme Code " "$collectsdir"
|
|
||||||
show_dir_var "[d] Core Docs " "$docdir"
|
|
||||||
show_dir_var "[l] C Libraries " "$libdir"
|
|
||||||
show_dir_var "[h] C headers " "$includerktdir"
|
|
||||||
show_dir_var "[o] Extra C Objs " "$librktdir"
|
|
||||||
show_dir_var "[m] Man Pages " "$mandir"
|
|
||||||
if test "$PNAME" = "full"; then
|
|
||||||
echo " (C sources are not kept)"
|
|
||||||
# show_dir_var "[r] Source Tree " "$srcdir"
|
|
||||||
fi
|
|
||||||
if test "$err" = "Y"; then echo "*** Errors in some paths ***"; fi
|
|
||||||
echo "Enter a letter to change an entry, a new prefix, or enter to continue"
|
|
||||||
echon "> "
|
|
||||||
read change_what
|
|
||||||
case "$change_what" in
|
|
||||||
[eE]* ) bindir="`read_dir`" ;;
|
|
||||||
[sS]* ) collectsdir="`read_dir`" ;;
|
|
||||||
[dD]* ) docdir="`read_dir`" ;;
|
|
||||||
[lL]* ) libdir="`read_dir`" ;;
|
|
||||||
[hH]* ) includerktdir="`read_dir`" ;;
|
|
||||||
[oO]* ) librktdir="`read_dir`" ;;
|
|
||||||
[mM]* ) mandir="`read_dir`" ;;
|
|
||||||
# [rR]* ) if test "$PNAME" = "full"; then
|
|
||||||
# srcdir="`read_dir`"
|
|
||||||
# else
|
|
||||||
# echo "Invalid response"
|
|
||||||
# fi ;;
|
|
||||||
"/"* ) set_prefix "$change_what" ;;
|
|
||||||
"" ) done="Y" ;;
|
|
||||||
* ) echo "Invalid response" ;;
|
|
||||||
esac
|
|
||||||
done
|
|
||||||
if test "$err" = "Y"; then failwith "errors in some paths"; fi
|
|
||||||
fi
|
|
||||||
|
|
||||||
###############################################################################
|
###############################################################################
|
||||||
## Integrity check
|
## Integrity check and unpack into $1
|
||||||
|
## also sets $INSTDIR to the directory in its canonical form
|
||||||
|
|
||||||
|
unpack_installation() {
|
||||||
|
T="$1"
|
||||||
|
# integrity check
|
||||||
echo ""
|
echo ""
|
||||||
echon "Checking the integrity of the binary archive... "
|
echon "Checking the integrity of the binary archive... "
|
||||||
SUM="`\"$tail\" +\"$BINSTARTLINE\" \"$0\" | \"$cksum\"`" \
|
SUM="`cat_installer | \"$cksum\"`" || failwith "problems running cksum."
|
||||||
|| failwith "problems running cksum."
|
|
||||||
SUM="`set $SUM; echo $1`"
|
SUM="`set $SUM; echo $1`"
|
||||||
test "$BINSUM" = "$SUM" || failwith "bad CRC checksum."
|
test "$BINSUM" = "$SUM" || failwith "bad CRC checksum."
|
||||||
echo "ok."
|
echo "ok."
|
||||||
|
# test that the target does not exists
|
||||||
###############################################################################
|
if test -d "$T" || test -f "$T"; then
|
||||||
## Unpacking into $BASE/$TARGET
|
if test -d "$T"; then
|
||||||
|
# use the real name, so "/foo/.." shows as an explicit "/"
|
||||||
unpack_installation() {
|
oldwd="`pwd`"; cd "$T"; T="`pwd`"; cd "$oldwd"; echon "\"$T\" exists"
|
||||||
# test that no TARGET exists
|
else
|
||||||
if test -d "$BASE/$TARGET" || test -f "$BASE/$TARGET"; then
|
echon "\"$T\" exists (as a file)"
|
||||||
echon "\"$BASE/$TARGET\" exists, delete? "
|
fi
|
||||||
|
echon ", delete? "
|
||||||
read R
|
read R
|
||||||
case "$R" in
|
case "$R" in
|
||||||
[yY]* )
|
[yY]* )
|
||||||
echon "Deleting old \"$BASE/$TARGET\"... "
|
echon "Deleting old \"$T\"... "
|
||||||
"$rm" -rf "$BASE/$TARGET" \
|
"$rm" -rf "$T" || failwith "could not delete \"$T\"."
|
||||||
|| failwith "could not delete \"$BASE/$TARGET\"."
|
|
||||||
echo "done."
|
echo "done."
|
||||||
;;
|
;;
|
||||||
* ) failwith "aborting because \"$BASE/$TARGET\" exists." ;;
|
* ) abort ;;
|
||||||
esac
|
esac
|
||||||
fi
|
fi
|
||||||
# unpack
|
# unpack
|
||||||
echon "Unpacking into \"$BASE/$TARGET\"... "
|
rm_on_abort="$T"
|
||||||
rm_on_abort="$BASE/$TARGET"
|
"$mkdir" -p "$T" || failwith "could not create directory: $T"
|
||||||
"$mkdir" "$BASE/$TARGET"
|
oldwd="`pwd`"; cd "$T"; INSTDIR="`pwd`"; cd "$oldwd"
|
||||||
"$tail" +"$BINSTARTLINE" "$0" | "$gunzip" -c \
|
echon "Unpacking into \"$INSTDIR\" (Ctrl+C to abort)... "
|
||||||
| { cd "$BASE/$TARGET"
|
cat_installer | "$gunzip" -c \
|
||||||
|
| { cd "$INSTDIR"
|
||||||
"$tar" xf - || failwith "problems during unpacking of binary archive."
|
"$tar" xf - || failwith "problems during unpacking of binary archive."
|
||||||
}
|
}
|
||||||
cd "$BASE/$TARGET"
|
test -d "$INSTDIR/collects" \
|
||||||
test -d "collects" \
|
|| failwith "unpack failed (could not find \"$T/collects\")."
|
||||||
|| failwith "unpack failed (could not find \"$BASE/$TARGET/collects\")."
|
|
||||||
echo "done."
|
echo "done."
|
||||||
}
|
}
|
||||||
|
|
||||||
|
|
@ -304,133 +213,48 @@ unpack_installation() {
|
||||||
|
|
||||||
wholedir_install() {
|
wholedir_install() {
|
||||||
|
|
||||||
unpack_installation
|
unpack_installation "$where"
|
||||||
rm_on_abort=""
|
rm_on_abort=""
|
||||||
|
|
||||||
cd "$BASE"
|
|
||||||
if test -d "bin"; then
|
|
||||||
echo "Do you want to install new system links within the bin, lib, include,"
|
|
||||||
echo " man, and doc subdirectories of \"$BASE\", possibly overriding"
|
|
||||||
echon " existing links? "
|
|
||||||
read R
|
|
||||||
case "$R" in
|
|
||||||
[yY]* ) sysdir="$BASE" ;;
|
|
||||||
* ) sysdir="" ;;
|
|
||||||
esac
|
|
||||||
else
|
|
||||||
cd "$origwd"
|
|
||||||
echo ""
|
echo ""
|
||||||
echo "If you want to install new system links within the bin, lib, include,"
|
echo "If you want to install new system links within the \"bin\" and"
|
||||||
echo " man, and doc subdirectories of a common directory prefix (for"
|
echo " \"man\" subdirectories of a common directory prefix (for example,"
|
||||||
echo " example, \"/usr/local\") then enter the prefix you want to use."
|
echo " \"/usr/local\") then enter the prefix of an existing directory"
|
||||||
|
echo " that you want to use. This might overwrite existing symlinks,"
|
||||||
|
echo " but not files."
|
||||||
echon "(default: skip links) > "
|
echon "(default: skip links) > "
|
||||||
read sysdir
|
read SYSDIR
|
||||||
if test ! "x$sysdir" = "x"; then
|
if test "x$SYSDIR" = "x"; then :
|
||||||
if test ! -d "$sysdir"; then
|
elif test ! -d "$SYSDIR"; then
|
||||||
echo "Directory \"$sysdir\" does not exist, skipping links."
|
echo "\"$SYSDIR\" does not exist, skipping links."
|
||||||
sysdir=""
|
elif test ! -w "$SYSDIR"; then
|
||||||
elif test ! -w "$sysdir"; then
|
echo "\"$SYSDIR\" is not writable, skipping links."
|
||||||
echo "Directory \"$sysdir\" is not writable, skipping links."
|
|
||||||
sysdir=""
|
|
||||||
else
|
else
|
||||||
cd "$sysdir"
|
oldwd="`pwd`"; cd "$SYSDIR"; SYSDIR="`pwd`"; cd "$oldwd"
|
||||||
sysdir="`pwd`"
|
set_dirs "$SYSDIR"
|
||||||
fi
|
install_links() { # tgtdir(absolute) srcdir(relative to INSTDIR)
|
||||||
fi
|
if ! test -d "$1"; then
|
||||||
fi
|
echo "\"$1\" does not exist, skipping."
|
||||||
|
elif ! test -w "$1"; then
|
||||||
if test ! "x$sysdir" = "x"; then
|
echo "\"$1\" is not writable, skipping"
|
||||||
# binaries
|
else
|
||||||
cd "$sysdir"
|
echo "Installing links in \"$1\"..."
|
||||||
if test -d "bin" && test -w "bin"; then
|
|
||||||
echo "Installing links in \"$sysdir/bin\"..."
|
|
||||||
printsep=" "
|
printsep=" "
|
||||||
cd "bin"
|
cd "$1"
|
||||||
for x in `cd "$BASE/$TARGET/bin"; ls`; do
|
for x in `cd "$INSTDIR/$2"; ls`; do
|
||||||
if test -x "$BASE/$TARGET/bin/$x"; then
|
echon "${printsep}$x"; printsep=", "
|
||||||
echon "${printsep}$x"
|
if test -h "$x"; then rm -f "$x"; fi
|
||||||
printsep=", "
|
if test -d "$x" || test -f "$x"; then
|
||||||
link "$BASE/$TARGET/bin/$x" "$x" "$sysdir/bin"
|
echon " skipped (non-link exists)"
|
||||||
|
elif ! "$ln" -s "$INSTDIR/$2/$x" "$x"; then
|
||||||
|
echon " skipped (symlink failed)"
|
||||||
fi
|
fi
|
||||||
done
|
done
|
||||||
echo ""
|
echo ""; echo " done."
|
||||||
echo "Done. (see \"$BASE/$TARGET/bin\" for other executables)"
|
|
||||||
else
|
|
||||||
echo "Skipping \"$sysdir/bin\" (does not exist or not writable)."
|
|
||||||
fi
|
|
||||||
# man pages
|
|
||||||
cd "$sysdir"
|
|
||||||
if test -d "man" && test -d "man/man1" && test -w "man/man1"; then
|
|
||||||
mandir="man/man1"
|
|
||||||
elif test -d "share" && test -d "share/man" && test -d "share/man/man1" \
|
|
||||||
&& test -w "share/man/man1"; then
|
|
||||||
mandir="share/man/man1"
|
|
||||||
else
|
|
||||||
mandir=""
|
|
||||||
fi
|
|
||||||
if test "x$mandir" = "x"; then
|
|
||||||
echo "Skipping \"$sysdir/man/man1\" (does not exist or not writable)."
|
|
||||||
else
|
|
||||||
cd "$mandir"
|
|
||||||
echo "Installing links in \"$sysdir/$mandir\"..."
|
|
||||||
printsep=" "
|
|
||||||
for x in `cd "$BASE/$TARGET/man/man1/"; "$ls"`; do
|
|
||||||
echon "${printsep}$x"
|
|
||||||
printsep=", "
|
|
||||||
link "$BASE/$TARGET/man/man1/$x" "$x" "$sysdir/$mandir"
|
|
||||||
done
|
|
||||||
echo ""
|
|
||||||
echo "Done"
|
|
||||||
fi
|
|
||||||
# lib link
|
|
||||||
cd "$sysdir"
|
|
||||||
if test -d "lib" && test -w "lib"; then
|
|
||||||
libdir="lib"
|
|
||||||
elif test -d "share" && test -d "share/lib" && test -w "share/lib"; then
|
|
||||||
libdir="share/lib"
|
|
||||||
else
|
|
||||||
libdir=""
|
|
||||||
fi
|
|
||||||
if test "x$libdir" = "x"; then
|
|
||||||
echo "Skipping \"$sysdir/lib\" (does not exist or not writable)."
|
|
||||||
else
|
|
||||||
cd "$libdir"
|
|
||||||
echo "Installing \"$sysdir/$libdir/$TARGET\"."
|
|
||||||
link "$BASE/$TARGET/lib" "$TARGET" "$sysdir/$libdir"
|
|
||||||
fi
|
|
||||||
# include link
|
|
||||||
cd "$sysdir"
|
|
||||||
if test -d "include" && test -w "include"; then
|
|
||||||
incdir="include"
|
|
||||||
elif test -d "share" && test -d "share/include" \
|
|
||||||
&& test -w "share/include"; then
|
|
||||||
incdir="share/include"
|
|
||||||
else
|
|
||||||
incdir=""
|
|
||||||
fi
|
|
||||||
if test "x$incdir" = "x"; then
|
|
||||||
echo "Skipping \"$sysdir/include\" (does not exist or not writable)."
|
|
||||||
else
|
|
||||||
cd "$incdir"
|
|
||||||
echo "Installing \"$sysdir/$incdir/$TARGET\"."
|
|
||||||
link "$BASE/$TARGET/include" "$TARGET" "$sysdir/$incdir"
|
|
||||||
fi
|
|
||||||
# doc link
|
|
||||||
cd "$sysdir"
|
|
||||||
if test -d "doc" && test -w "doc"; then
|
|
||||||
docdir="doc"
|
|
||||||
elif test -d "share" && test -d "share/doc" && test -w "share/doc"; then
|
|
||||||
docdir="share/doc"
|
|
||||||
else
|
|
||||||
docdir=""
|
|
||||||
fi
|
|
||||||
if test "x$docdir" = "x"; then
|
|
||||||
echo "Skipping \"$sysdir/doc\" (does not exist or not writable)."
|
|
||||||
else
|
|
||||||
cd "$docdir"
|
|
||||||
echo "Installing \"$sysdir/$docdir/$TARGET\"."
|
|
||||||
link "$BASE/$TARGET/doc" "$TARGET" "$sysdir/$docdir"
|
|
||||||
fi
|
fi
|
||||||
|
}
|
||||||
|
install_links "$bindir" "bin"
|
||||||
|
install_links "$mandir/man1" "man/man1"
|
||||||
fi
|
fi
|
||||||
|
|
||||||
}
|
}
|
||||||
|
|
@ -438,18 +262,78 @@ fi
|
||||||
###############################################################################
|
###############################################################################
|
||||||
## Unix-style installations
|
## Unix-style installations
|
||||||
|
|
||||||
|
dir_createable() {
|
||||||
|
test_dir="`\"$dirname\" \"$1\"`"
|
||||||
|
if test -d "$test_dir" && test -w "$test_dir"; then return 0
|
||||||
|
elif test "$test_dir" = "/"; then return 1
|
||||||
|
else dir_createable "$test_dir"; fi
|
||||||
|
}
|
||||||
|
show_dir_var() {
|
||||||
|
if test -f "$2"; then status="error: not a directory!"; err="Y"
|
||||||
|
elif test ! -d "$2"; then
|
||||||
|
if dir_createable "$2"; then status="will be created"
|
||||||
|
else status="error: not writable!"; err="Y"; fi
|
||||||
|
elif test ! -w "$2"; then status="error: not writable!"; err="Y"
|
||||||
|
else status="exists"
|
||||||
|
fi
|
||||||
|
echo " $1 $2 ($status)"
|
||||||
|
}
|
||||||
|
|
||||||
unixstyle_install() {
|
unixstyle_install() {
|
||||||
|
|
||||||
TARGET="$TARGET-tmp-install"
|
if test -f "$where"; then
|
||||||
if test -e "$BASE/$TARGET"; then
|
failwith "The entered base directory exists as a file: $where"
|
||||||
echo "\"$BASE/$TARGET\" already exists (needed for the installation),"
|
elif test ! -d "$where"; then
|
||||||
echon " ok to remove? "
|
echo "Base directory does not exist: $where"
|
||||||
read R
|
echon " should I create it? (default: yes) "
|
||||||
case "$R" in
|
read R; case "$R" in [nN]* ) abort ;; esac
|
||||||
[yY]* ) "$rm" -rf "$BASE/$TARGET" ;;
|
"$mkdir" -p "$where" || failwith "could not create directory: $where"
|
||||||
* ) failwith "abort..." ;;
|
|
||||||
esac
|
|
||||||
fi
|
fi
|
||||||
|
cd "$where" || failwith "Base directory does not exist: $where"
|
||||||
|
where="`pwd`"; cd "$origwd"
|
||||||
|
|
||||||
|
set_dirs "$where"
|
||||||
|
# loop for possible changes
|
||||||
|
done="N"
|
||||||
|
while test ! "$done" = "Y" || test "x$err" = "xY" ; do
|
||||||
|
echo ""
|
||||||
|
echo "Target Directories:"
|
||||||
|
err="N"
|
||||||
|
show_dir_var "[e] Executables " "$bindir"
|
||||||
|
show_dir_var "[r] Racket Code " "$collectsdir"
|
||||||
|
show_dir_var "[d] Core Docs " "$docdir"
|
||||||
|
show_dir_var "[l] C Libraries " "$libdir"
|
||||||
|
show_dir_var "[h] C headers " "$incrktdir"
|
||||||
|
show_dir_var "[o] Extra C Objs " "$librktdir"
|
||||||
|
show_dir_var "[m] Man Pages " "$mandir"
|
||||||
|
if test "$PNAME" = "full"; then
|
||||||
|
echo " (C sources are not kept)"
|
||||||
|
# show_dir_var "[s] Source Tree " "$srcdir"
|
||||||
|
fi
|
||||||
|
echo "Enter a letter to change an entry, or enter to continue"
|
||||||
|
echon "> "; read change_what
|
||||||
|
read_dir() {
|
||||||
|
echon "New directory (absolute or relative to $where): "; read new_dir
|
||||||
|
case "$new_dir" in
|
||||||
|
"/"* ) echo "$new_dir" ;;
|
||||||
|
* ) echo "$where/$new_dir" ;;
|
||||||
|
esac
|
||||||
|
}
|
||||||
|
case "$change_what" in
|
||||||
|
[eE]* ) bindir="`read_dir`" ;;
|
||||||
|
[rR]* ) collectsdir="`read_dir`" ;;
|
||||||
|
[dD]* ) docdir="`read_dir`" ;;
|
||||||
|
[lL]* ) libdir="`read_dir`" ;;
|
||||||
|
[hH]* ) incrktdir="`read_dir`" ;;
|
||||||
|
[oO]* ) librktdir="`read_dir`" ;;
|
||||||
|
[mM]* ) mandir="`read_dir`" ;;
|
||||||
|
# [sS]* ) if test "$PNAME" = "full"; then srcdir="`read_dir`"
|
||||||
|
# else echo "Invalid response"; fi ;;
|
||||||
|
"" ) if test "$err" = "N"; then done="Y"
|
||||||
|
else echo "*** Please fix erroneous paths to proceed"; fi ;;
|
||||||
|
* ) echo "Invalid response" ;;
|
||||||
|
esac
|
||||||
|
done
|
||||||
|
|
||||||
if test -x "$bindir/racket-uninstall"; then
|
if test -x "$bindir/racket-uninstall"; then
|
||||||
echo "A previous Racket uninstaller is found at"
|
echo "A previous Racket uninstaller is found at"
|
||||||
|
|
@ -457,25 +341,31 @@ if test -x "$bindir/racket-uninstall"; then
|
||||||
echon " should I run it? (default: yes) "
|
echon " should I run it? (default: yes) "
|
||||||
read R
|
read R
|
||||||
case "$R" in
|
case "$R" in
|
||||||
[nN]* ) failwith "abort..." ;;
|
[nN]* ) abort ;;
|
||||||
* ) echon " running uninstaller..."
|
* ) echon " running uninstaller..."
|
||||||
"$bindir/racket-uninstall" || failwith "problems during uninstall"
|
"$bindir/racket-uninstall" || failwith "problems during uninstall"
|
||||||
echo " done." ;;
|
echo " done." ;;
|
||||||
esac
|
esac
|
||||||
fi
|
fi
|
||||||
|
|
||||||
unpack_installation
|
tmp="$where/$TARGET-tmp-install"
|
||||||
|
if test -f "$tmp" || test -d "$tmp"; then
|
||||||
|
echo "\"$tmp\" already exists (needed for the installation),"
|
||||||
|
echon " ok to remove it? "
|
||||||
|
read R; case "$R" in [yY]* ) "$rm" -rf "$tmp" ;; * ) abort ;; esac
|
||||||
|
fi
|
||||||
|
unpack_installation "$tmp"
|
||||||
|
|
||||||
cd "$BASE"
|
cd "$where"
|
||||||
"$TARGET/bin/racket" "$TARGET/collects/setup/unixstyle-install.rkt" \
|
"$tmp/bin/racket" "$tmp/collects/setup/unixstyle-install.rkt" \
|
||||||
"move" "$BASE/$TARGET" "$bindir" "$collectsdir" "$docdir" "$libdir" \
|
"move" "$tmp" "$bindir" "$collectsdir" "$docdir" "$libdir" \
|
||||||
"$includerktdir" "$librktdir" "$mandir" \
|
"$incrktdir" "$librktdir" "$mandir" \
|
||||||
|| failwith "installation failed"
|
|| failwith "installation failed"
|
||||||
|
|
||||||
}
|
}
|
||||||
|
|
||||||
###############################################################################
|
###############################################################################
|
||||||
## Done
|
## Run the right installer now
|
||||||
|
|
||||||
if test "$unixstyle" = "Y"; then unixstyle_install; else wholedir_install; fi
|
if test "$unixstyle" = "Y"; then unixstyle_install; else wholedir_install; fi
|
||||||
|
|
||||||
|
|
|
||||||
Loading…
Reference in New Issue
Block a user