Allow ghcup to be sourced
This commit is contained in:
parent
72acd59025
commit
91f046f6e9
403
ghcup
403
ghcup
@ -43,7 +43,9 @@ VERSION=0.0.6
|
|||||||
|
|
||||||
# @VARIABLE: SCRIPT
|
# @VARIABLE: SCRIPT
|
||||||
# @DESCRIPTION:
|
# @DESCRIPTION:
|
||||||
# Name of this script.
|
# Name of this script. This will be the
|
||||||
|
# shell name if this script is sourced, so
|
||||||
|
# only rely on this for echos and trivial things.
|
||||||
SCRIPT="$(basename "$0")"
|
SCRIPT="$(basename "$0")"
|
||||||
|
|
||||||
# @VARIABLE: VERBOSE
|
# @VARIABLE: VERBOSE
|
||||||
@ -905,6 +907,34 @@ posix_realpath() {
|
|||||||
unset mysource mydir posix_realpath_error
|
unset mysource mydir posix_realpath_error
|
||||||
}
|
}
|
||||||
|
|
||||||
|
# @FUNCTION: is_sourced
|
||||||
|
# @DESCRIPTION:
|
||||||
|
# Tries to figure out if we are being sourced. Based on
|
||||||
|
# https://stackoverflow.com/a/28776166
|
||||||
|
# @RETURNS: 0 if we are being sourced, 1 otherwise
|
||||||
|
is_sourced() {
|
||||||
|
if [ -n "$ZSH_EVAL_CONTEXT" ]; then
|
||||||
|
case $ZSH_EVAL_CONTEXT in
|
||||||
|
*:file)
|
||||||
|
return 0 ;;
|
||||||
|
esac
|
||||||
|
elif [ -n "$KSH_VERSION" ]; then
|
||||||
|
# shellcheck disable=SC2154
|
||||||
|
[ "$(cd "$(dirname -- "$0")" && pwd -P)/$(basename -- "$0")" != "$(cd "$(dirname -- "${.sh.file}")" && pwd -P)/$(basename -- "${.sh.file}")" ] && return 0
|
||||||
|
elif [ -n "$BASH_VERSION" ]; then
|
||||||
|
# shellcheck disable=SC2128
|
||||||
|
[ "$0" != "$BASH_SOURCE" ] && return 0
|
||||||
|
else # All other shells: examine $0 for known shell binary filenames
|
||||||
|
# Detects `sh` and `dash`; add additional shell filenames as needed.
|
||||||
|
case ${0##*/} in
|
||||||
|
sh|dash)
|
||||||
|
return 0 ;;
|
||||||
|
esac
|
||||||
|
fi
|
||||||
|
|
||||||
|
# assume we are not sourced, if our above checks didn't find it
|
||||||
|
return 1
|
||||||
|
}
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
@ -1428,9 +1458,11 @@ if [ -z "$HOME" ] ; then
|
|||||||
die "HOME env not set, cannot operate"
|
die "HOME env not set, cannot operate"
|
||||||
fi
|
fi
|
||||||
|
|
||||||
edo mkdir -p "${INSTALL_BASE}"
|
if ! is_sourced ; then
|
||||||
edo mkdir -p "${BIN_LOCATION}"
|
edo mkdir -p "${INSTALL_BASE}"
|
||||||
edo mkdir -p "${CACHE_LOCATION}"
|
edo mkdir -p "${BIN_LOCATION}"
|
||||||
|
edo mkdir -p "${CACHE_LOCATION}"
|
||||||
|
fi
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
@ -1439,192 +1471,193 @@ edo mkdir -p "${CACHE_LOCATION}"
|
|||||||
#--[ Command line parsing and entry point ]--#
|
#--[ Command line parsing and entry point ]--#
|
||||||
##############################################
|
##############################################
|
||||||
|
|
||||||
|
if ! is_sourced ; then
|
||||||
|
|
||||||
[ $# -lt 1 ] && usage
|
[ $# -lt 1 ] && usage
|
||||||
|
|
||||||
while [ $# -gt 0 ] ; do
|
while [ $# -gt 0 ] ; do
|
||||||
case $1 in
|
case $1 in
|
||||||
-v|--verbose)
|
-v|--verbose)
|
||||||
VERBOSE=true
|
VERBOSE=true
|
||||||
shift 1
|
shift 1
|
||||||
if [ $# -lt 1 ] ; then
|
if [ $# -lt 1 ] ; then
|
||||||
usage
|
usage
|
||||||
fi
|
fi
|
||||||
;;
|
;;
|
||||||
-V|--version)
|
-V|--version)
|
||||||
printf "%s" "${VERSION}"
|
printf "%s" "${VERSION}"
|
||||||
exit 0;;
|
exit 0;;
|
||||||
-h|--help)
|
-h|--help)
|
||||||
usage;;
|
usage;;
|
||||||
-w|--wget)
|
-w|--wget)
|
||||||
DOWNLOADER="wget"
|
DOWNLOADER="wget"
|
||||||
DOWNLOADER_OPTS=""
|
DOWNLOADER_OPTS=""
|
||||||
shift 1
|
shift 1
|
||||||
if [ $# -lt 1 ] ; then
|
if [ $# -lt 1 ] ; then
|
||||||
usage
|
usage
|
||||||
fi
|
fi
|
||||||
;;
|
;;
|
||||||
-c|--cache)
|
-c|--cache)
|
||||||
CACHING=true
|
CACHING=true
|
||||||
shift 1
|
shift 1
|
||||||
if [ $# -lt 1 ] ; then
|
if [ $# -lt 1 ] ; then
|
||||||
usage
|
usage
|
||||||
fi
|
fi
|
||||||
;;
|
;;
|
||||||
*)
|
*)
|
||||||
# check for available commands
|
# check for available commands
|
||||||
for com in ${DOWNLOADER} awk uname basename tar xz gzip mktemp dirname ; do
|
for com in ${DOWNLOADER} awk uname basename tar xz gzip mktemp dirname ; do
|
||||||
command_exists "${com}" || die "Command \"${com}\" is required, but does not exist! Please install."
|
command_exists "${com}" || die "Command \"${com}\" is required, but does not exist! Please install."
|
||||||
done
|
|
||||||
unset com
|
|
||||||
|
|
||||||
case $1 in
|
|
||||||
install)
|
|
||||||
shift 1
|
|
||||||
while [ $# -gt 0 ] ; do
|
|
||||||
case $1 in
|
|
||||||
-h|--help) install_usage;;
|
|
||||||
-f|--force) FORCE=true
|
|
||||||
shift 1;;
|
|
||||||
*) GHC_VER=$1
|
|
||||||
break;;
|
|
||||||
esac
|
|
||||||
done
|
done
|
||||||
if [ -z "${GHC_VER}" ] ; then
|
unset com
|
||||||
_tool_ver="$(get_tool_ver_from_tag "ghc" "recommended")"
|
case $1 in
|
||||||
if [ -z "${_tool_ver}" ] ; then
|
install)
|
||||||
die "Could not find a recommended GHC version, please report a bug at ${BUG_URL}!"
|
shift 1
|
||||||
|
while [ $# -gt 0 ] ; do
|
||||||
|
case $1 in
|
||||||
|
-h|--help) install_usage;;
|
||||||
|
-f|--force) FORCE=true
|
||||||
|
shift 1;;
|
||||||
|
*) GHC_VER=$1
|
||||||
|
break;;
|
||||||
|
esac
|
||||||
|
done
|
||||||
|
if [ -z "${GHC_VER}" ] ; then
|
||||||
|
_tool_ver="$(get_tool_ver_from_tag "ghc" "recommended")"
|
||||||
|
if [ -z "${_tool_ver}" ] ; then
|
||||||
|
die "Could not find a recommended GHC version, please report a bug at ${BUG_URL}!"
|
||||||
|
fi
|
||||||
|
install_ghc "${_tool_ver}"
|
||||||
|
else
|
||||||
|
install_ghc "${GHC_VER}"
|
||||||
fi
|
fi
|
||||||
install_ghc "${_tool_ver}"
|
break;;
|
||||||
else
|
set)
|
||||||
install_ghc "${GHC_VER}"
|
shift 1
|
||||||
fi
|
while [ $# -gt 0 ] ; do
|
||||||
break;;
|
case $1 in
|
||||||
set)
|
-h|--help) set_usage;;
|
||||||
shift 1
|
*) GHC_VER=$1
|
||||||
while [ $# -gt 0 ] ; do
|
break;;
|
||||||
case $1 in
|
esac
|
||||||
-h|--help) set_usage;;
|
done
|
||||||
*) GHC_VER=$1
|
[ "${GHC_VER}" ] || set_usage
|
||||||
break;;
|
set_ghc "${GHC_VER}"
|
||||||
esac
|
break;;
|
||||||
done
|
self-update)
|
||||||
[ "${GHC_VER}" ] || set_usage
|
shift 1
|
||||||
set_ghc "${GHC_VER}"
|
while [ $# -gt 0 ] ; do
|
||||||
break;;
|
case $1 in
|
||||||
self-update)
|
-h|--help) self_update_usage;;
|
||||||
shift 1
|
*) TARGET_LOCATION=$1
|
||||||
while [ $# -gt 0 ] ; do
|
break;;
|
||||||
case $1 in
|
esac
|
||||||
-h|--help) self_update_usage;;
|
done
|
||||||
*) TARGET_LOCATION=$1
|
if [ "${TARGET_LOCATION}" ] ; then
|
||||||
break;;
|
self_update "${TARGET_LOCATION}"
|
||||||
esac
|
else
|
||||||
done
|
self_update "$(dirname "$(posix_realpath "${SOURCE}")")"
|
||||||
if [ "${TARGET_LOCATION}" ] ; then
|
|
||||||
self_update "${TARGET_LOCATION}"
|
|
||||||
else
|
|
||||||
self_update "$(dirname "$(posix_realpath "${SOURCE}")")"
|
|
||||||
fi
|
|
||||||
break;;
|
|
||||||
show)
|
|
||||||
SHOW_INSTALLED=false
|
|
||||||
shift 1
|
|
||||||
while [ $# -gt 0 ] ; do
|
|
||||||
case $1 in
|
|
||||||
-h|--help) show_usage;;
|
|
||||||
-i|--installed) SHOW_INSTALLED=true
|
|
||||||
break;;
|
|
||||||
*) show_usage;;
|
|
||||||
esac
|
|
||||||
done
|
|
||||||
if ${SHOW_INSTALLED} ; then
|
|
||||||
show_ghc_installed
|
|
||||||
else
|
|
||||||
show_ghc
|
|
||||||
fi
|
|
||||||
break;;
|
|
||||||
rm)
|
|
||||||
shift 1
|
|
||||||
while [ $# -gt 0 ] ; do
|
|
||||||
case $1 in
|
|
||||||
-h|--help) rm_usage;;
|
|
||||||
-f|--force) FORCE=true
|
|
||||||
shift 1;;
|
|
||||||
*) GHC_VER=$1
|
|
||||||
break;;
|
|
||||||
esac
|
|
||||||
done
|
|
||||||
[ "${GHC_VER}" ] || rm_usage
|
|
||||||
rm_ghc "${GHC_VER}"
|
|
||||||
break;;
|
|
||||||
install-cabal)
|
|
||||||
shift 1
|
|
||||||
while [ $# -gt 0 ] ; do
|
|
||||||
case $1 in
|
|
||||||
-h|--help) install_cabal_usage;;
|
|
||||||
-f|--force) FORCE=true
|
|
||||||
shift 1;;
|
|
||||||
*) CABAL_VER=$1
|
|
||||||
break;;
|
|
||||||
esac
|
|
||||||
done
|
|
||||||
if [ -n "${CABAL_VER}" ] ; then
|
|
||||||
install_cabal "${CABAL_VER}"
|
|
||||||
else
|
|
||||||
_cabal_ver="$(get_tool_ver_from_tag "cabal-install" "recommended")"
|
|
||||||
if [ -z "${_cabal_ver}" ] ; then
|
|
||||||
die "Could not find a recommended cabal-install version, please report a bug at ${BUG_URL}!"
|
|
||||||
fi
|
fi
|
||||||
install_cabal "${_cabal_ver}"
|
break;;
|
||||||
fi
|
show)
|
||||||
|
SHOW_INSTALLED=false
|
||||||
|
shift 1
|
||||||
|
while [ $# -gt 0 ] ; do
|
||||||
|
case $1 in
|
||||||
|
-h|--help) show_usage;;
|
||||||
|
-i|--installed) SHOW_INSTALLED=true
|
||||||
|
break;;
|
||||||
|
*) show_usage;;
|
||||||
|
esac
|
||||||
|
done
|
||||||
|
if ${SHOW_INSTALLED} ; then
|
||||||
|
show_ghc_installed
|
||||||
|
else
|
||||||
|
show_ghc
|
||||||
|
fi
|
||||||
|
break;;
|
||||||
|
rm)
|
||||||
|
shift 1
|
||||||
|
while [ $# -gt 0 ] ; do
|
||||||
|
case $1 in
|
||||||
|
-h|--help) rm_usage;;
|
||||||
|
-f|--force) FORCE=true
|
||||||
|
shift 1;;
|
||||||
|
*) GHC_VER=$1
|
||||||
|
break;;
|
||||||
|
esac
|
||||||
|
done
|
||||||
|
[ "${GHC_VER}" ] || rm_usage
|
||||||
|
rm_ghc "${GHC_VER}"
|
||||||
|
break;;
|
||||||
|
install-cabal)
|
||||||
|
shift 1
|
||||||
|
while [ $# -gt 0 ] ; do
|
||||||
|
case $1 in
|
||||||
|
-h|--help) install_cabal_usage;;
|
||||||
|
-f|--force) FORCE=true
|
||||||
|
shift 1;;
|
||||||
|
*) CABAL_VER=$1
|
||||||
|
break;;
|
||||||
|
esac
|
||||||
|
done
|
||||||
|
if [ -n "${CABAL_VER}" ] ; then
|
||||||
|
install_cabal "${CABAL_VER}"
|
||||||
|
else
|
||||||
|
_cabal_ver="$(get_tool_ver_from_tag "cabal-install" "recommended")"
|
||||||
|
if [ -z "${_cabal_ver}" ] ; then
|
||||||
|
die "Could not find a recommended cabal-install version, please report a bug at ${BUG_URL}!"
|
||||||
|
fi
|
||||||
|
install_cabal "${_cabal_ver}"
|
||||||
|
fi
|
||||||
|
break;;
|
||||||
|
compile)
|
||||||
|
shift 1
|
||||||
|
while [ $# -gt 0 ] ; do
|
||||||
|
case $1 in
|
||||||
|
-h|--help) compile_usage;;
|
||||||
|
-f|--force) FORCE=true
|
||||||
|
shift 1;;
|
||||||
|
-j|--jobs) JOBS=$2
|
||||||
|
shift 2;;
|
||||||
|
-c|--build-config) BUILD_CONFIG=$2
|
||||||
|
shift 2;;
|
||||||
|
*) GHC_VER=$1
|
||||||
|
BOOTSTRAP_GHC=$2
|
||||||
|
break;;
|
||||||
|
esac
|
||||||
|
done
|
||||||
|
[ "${GHC_VER}" ] || compile_usage
|
||||||
|
[ "${BOOTSTRAP_GHC}" ] || compile_usage
|
||||||
|
compile_ghc "${GHC_VER}" "${BOOTSTRAP_GHC}" "${BUILD_CONFIG}"
|
||||||
|
break;;
|
||||||
|
debug-info)
|
||||||
|
shift 1
|
||||||
|
while [ $# -gt 0 ] ; do
|
||||||
|
case $1 in
|
||||||
|
-h|--help) debug_info_usage;;
|
||||||
|
*) debug_info_usage;;
|
||||||
|
esac
|
||||||
|
done
|
||||||
|
print_debug_info
|
||||||
|
break;;
|
||||||
|
list)
|
||||||
|
shift 1
|
||||||
|
while [ $# -gt 0 ] ; do
|
||||||
|
case $1 in
|
||||||
|
-h|--help) list_usage;;
|
||||||
|
-t|--tool) TOOL=$2
|
||||||
|
shift 2;;
|
||||||
|
*) list_usage;;
|
||||||
|
esac
|
||||||
|
done
|
||||||
|
list "${TOOL}"
|
||||||
|
break;;
|
||||||
|
*) usage;;
|
||||||
|
esac
|
||||||
break;;
|
break;;
|
||||||
compile)
|
esac
|
||||||
shift 1
|
done
|
||||||
while [ $# -gt 0 ] ; do
|
fi # is_sourced
|
||||||
case $1 in
|
|
||||||
-h|--help) compile_usage;;
|
|
||||||
-f|--force) FORCE=true
|
|
||||||
shift 1;;
|
|
||||||
-j|--jobs) JOBS=$2
|
|
||||||
shift 2;;
|
|
||||||
-c|--build-config) BUILD_CONFIG=$2
|
|
||||||
shift 2;;
|
|
||||||
*) GHC_VER=$1
|
|
||||||
BOOTSTRAP_GHC=$2
|
|
||||||
break;;
|
|
||||||
esac
|
|
||||||
done
|
|
||||||
[ "${GHC_VER}" ] || compile_usage
|
|
||||||
[ "${BOOTSTRAP_GHC}" ] || compile_usage
|
|
||||||
compile_ghc "${GHC_VER}" "${BOOTSTRAP_GHC}" "${BUILD_CONFIG}"
|
|
||||||
break;;
|
|
||||||
debug-info)
|
|
||||||
shift 1
|
|
||||||
while [ $# -gt 0 ] ; do
|
|
||||||
case $1 in
|
|
||||||
-h|--help) debug_info_usage;;
|
|
||||||
*) debug_info_usage;;
|
|
||||||
esac
|
|
||||||
done
|
|
||||||
print_debug_info
|
|
||||||
break;;
|
|
||||||
list)
|
|
||||||
shift 1
|
|
||||||
while [ $# -gt 0 ] ; do
|
|
||||||
case $1 in
|
|
||||||
-h|--help) list_usage;;
|
|
||||||
-t|--tool) TOOL=$2
|
|
||||||
shift 2;;
|
|
||||||
*) list_usage;;
|
|
||||||
esac
|
|
||||||
done
|
|
||||||
list "${TOOL}"
|
|
||||||
break;;
|
|
||||||
*) usage;;
|
|
||||||
esac
|
|
||||||
break;;
|
|
||||||
esac
|
|
||||||
done
|
|
||||||
|
|
||||||
# vim: tabstop=4 shiftwidth=4 expandtab
|
# vim: tabstop=4 shiftwidth=4 expandtab
|
||||||
|
|||||||
Loading…
Reference in New Issue
Block a user