Remove is_sourced functionality, it's not needed anymore
This commit is contained in:
parent
4c548c1037
commit
9cc652e34d
477
ghcup
477
ghcup
@ -1003,34 +1003,6 @@ 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
|
|
||||||
}
|
|
||||||
|
|
||||||
# @FUNCTION: get_meta_version_file
|
# @FUNCTION: get_meta_version_file
|
||||||
# @DESCRIPTION:
|
# @DESCRIPTION:
|
||||||
@ -1689,237 +1661,234 @@ fi
|
|||||||
#--[ 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
|
||||||
|
case $1 in
|
||||||
|
-v|--verbose)
|
||||||
|
VERBOSE=true
|
||||||
|
shift 1
|
||||||
|
if [ $# -lt 1 ] ; then
|
||||||
|
usage
|
||||||
|
fi
|
||||||
|
;;
|
||||||
|
-V|--version)
|
||||||
|
printf "%s" "${VERSION}"
|
||||||
|
exit 0;;
|
||||||
|
-h|--help)
|
||||||
|
usage;;
|
||||||
|
-w|--wget)
|
||||||
|
DOWNLOADER="wget"
|
||||||
|
DOWNLOADER_OPTS=""
|
||||||
|
shift 1
|
||||||
|
if [ $# -lt 1 ] ; then
|
||||||
|
usage
|
||||||
|
fi
|
||||||
|
;;
|
||||||
|
-c|--cache)
|
||||||
|
CACHING=true
|
||||||
|
shift 1
|
||||||
|
if [ $# -lt 1 ] ; then
|
||||||
|
usage
|
||||||
|
fi
|
||||||
|
;;
|
||||||
|
*) ## startup tasks ##
|
||||||
|
|
||||||
while [ $# -gt 0 ] ; do
|
edo mkdir -p "${INSTALL_BASE}"
|
||||||
case $1 in
|
edo mkdir -p "${BIN_LOCATION}"
|
||||||
-v|--verbose)
|
edo mkdir -p "${CACHE_LOCATION}"
|
||||||
VERBOSE=true
|
|
||||||
shift 1
|
|
||||||
if [ $# -lt 1 ] ; then
|
|
||||||
usage
|
|
||||||
fi
|
|
||||||
;;
|
|
||||||
-V|--version)
|
|
||||||
printf "%s" "${VERSION}"
|
|
||||||
exit 0;;
|
|
||||||
-h|--help)
|
|
||||||
usage;;
|
|
||||||
-w|--wget)
|
|
||||||
DOWNLOADER="wget"
|
|
||||||
DOWNLOADER_OPTS=""
|
|
||||||
shift 1
|
|
||||||
if [ $# -lt 1 ] ; then
|
|
||||||
usage
|
|
||||||
fi
|
|
||||||
;;
|
|
||||||
-c|--cache)
|
|
||||||
CACHING=true
|
|
||||||
shift 1
|
|
||||||
if [ $# -lt 1 ] ; then
|
|
||||||
usage
|
|
||||||
fi
|
|
||||||
;;
|
|
||||||
*) ## startup tasks ##
|
|
||||||
|
|
||||||
edo mkdir -p "${INSTALL_BASE}"
|
# clean up old meta files
|
||||||
edo mkdir -p "${BIN_LOCATION}"
|
if [ -e "${CACHE_LOCATION}/$(basename "${META_VERSION_URL}")" ] ; then
|
||||||
edo mkdir -p "${CACHE_LOCATION}"
|
edo rm "${CACHE_LOCATION}/$(basename "${META_VERSION_URL}")"
|
||||||
|
fi
|
||||||
|
if [ -e "${CACHE_LOCATION}/$(basename "${META_DOWNLOAD_URL}")" ] ; then
|
||||||
|
edo rm "${CACHE_LOCATION}/$(basename "${META_DOWNLOAD_URL}")"
|
||||||
|
fi
|
||||||
|
|
||||||
# clean up old meta files
|
# check for available commands
|
||||||
if [ -e "${CACHE_LOCATION}/$(basename "${META_VERSION_URL}")" ] ; then
|
missing_commands="$(check_required_commands ${DOWNLOADER})"
|
||||||
edo rm "${CACHE_LOCATION}/$(basename "${META_VERSION_URL}")"
|
if [ -n "${missing_commands}" ] ; then
|
||||||
|
die "Following commands are required, but missing, please install: ${missing_commands}"
|
||||||
|
fi
|
||||||
|
unset missing_commands
|
||||||
|
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
|
||||||
|
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
|
||||||
|
# could be a version or a tag, let's check
|
||||||
|
if array_contains "${GHC_VER}" "$(known_tool_versions "ghc")" ; then
|
||||||
|
install_ghc "${GHC_VER}"
|
||||||
|
elif array_contains "${GHC_VER}" "$(known_tool_tags "ghc")" ; then
|
||||||
|
install_ghc "$(get_tool_ver_from_tag "ghc" "${GHC_VER}")"
|
||||||
|
else
|
||||||
|
die "\"${GHC_VER}\" is not a known version or tag!"
|
||||||
|
fi
|
||||||
fi
|
fi
|
||||||
if [ -e "${CACHE_LOCATION}/$(basename "${META_DOWNLOAD_URL}")" ] ; then
|
|
||||||
edo rm "${CACHE_LOCATION}/$(basename "${META_DOWNLOAD_URL}")"
|
|
||||||
fi
|
|
||||||
|
|
||||||
# check for available commands
|
|
||||||
missing_commands="$(check_required_commands ${DOWNLOADER})"
|
|
||||||
if [ -n "${missing_commands}" ] ; then
|
|
||||||
die "Following commands are required, but missing, please install: ${missing_commands}"
|
|
||||||
fi
|
|
||||||
unset missing_commands
|
|
||||||
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
|
|
||||||
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
|
|
||||||
# could be a version or a tag, let's check
|
|
||||||
if array_contains "${GHC_VER}" "$(known_tool_versions "ghc")" ; then
|
|
||||||
install_ghc "${GHC_VER}"
|
|
||||||
elif array_contains "${GHC_VER}" "$(known_tool_tags "ghc")" ; then
|
|
||||||
install_ghc "$(get_tool_ver_from_tag "ghc" "${GHC_VER}")"
|
|
||||||
else
|
|
||||||
die "\"${GHC_VER}\" is not a known version or tag!"
|
|
||||||
fi
|
|
||||||
fi
|
|
||||||
break;;
|
|
||||||
set)
|
|
||||||
shift 1
|
|
||||||
while [ $# -gt 0 ] ; do
|
|
||||||
case $1 in
|
|
||||||
-h|--help) set_usage;;
|
|
||||||
*) 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
|
|
||||||
set_ghc "${_tool_ver}"
|
|
||||||
else
|
|
||||||
# could be a version or a tag, let's check
|
|
||||||
if array_contains "${GHC_VER}" "$(known_tool_versions "ghc")" ; then
|
|
||||||
set_ghc "${GHC_VER}"
|
|
||||||
elif array_contains "${GHC_VER}" "$(known_tool_tags "ghc")" ; then
|
|
||||||
set_ghc "$(get_tool_ver_from_tag "ghc" "${GHC_VER}")"
|
|
||||||
else
|
|
||||||
die "\"${GHC_VER}\" is not a known version or tag!"
|
|
||||||
fi
|
|
||||||
fi
|
|
||||||
|
|
||||||
break;;
|
|
||||||
upgrade)
|
|
||||||
shift 1
|
|
||||||
while [ $# -gt 0 ] ; do
|
|
||||||
case $1 in
|
|
||||||
-h|--help) upgrade_usage;;
|
|
||||||
*) TARGET_LOCATION=$1
|
|
||||||
break;;
|
|
||||||
esac
|
|
||||||
done
|
|
||||||
if [ -n "${TARGET_LOCATION}" ] ; then
|
|
||||||
upgrade "${TARGET_LOCATION}"
|
|
||||||
else
|
|
||||||
upgrade "$(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
|
|
||||||
[ -n "${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
|
|
||||||
# could be a version or a tag, let's check
|
|
||||||
if array_contains "${CABAL_VER}" "$(known_tool_versions "cabal-install")" ; then
|
|
||||||
install_cabal "${CABAL_VER}"
|
|
||||||
elif array_contains "${CABAL_VER}" "$(known_tool_tags "cabal-install")" ; then
|
|
||||||
install_cabal "$(get_tool_ver_from_tag "cabal-install" "${CABAL_VER}")"
|
|
||||||
else
|
|
||||||
die "\"${CABAL_VER}\" is not a known version or tag!"
|
|
||||||
fi
|
|
||||||
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
|
|
||||||
[ -n "${GHC_VER}" ] || compile_usage
|
|
||||||
[ -n "${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;;
|
||||||
esac
|
set)
|
||||||
done
|
shift 1
|
||||||
fi # is_sourced
|
while [ $# -gt 0 ] ; do
|
||||||
|
case $1 in
|
||||||
|
-h|--help) set_usage;;
|
||||||
|
*) 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
|
||||||
|
set_ghc "${_tool_ver}"
|
||||||
|
else
|
||||||
|
# could be a version or a tag, let's check
|
||||||
|
if array_contains "${GHC_VER}" "$(known_tool_versions "ghc")" ; then
|
||||||
|
set_ghc "${GHC_VER}"
|
||||||
|
elif array_contains "${GHC_VER}" "$(known_tool_tags "ghc")" ; then
|
||||||
|
set_ghc "$(get_tool_ver_from_tag "ghc" "${GHC_VER}")"
|
||||||
|
else
|
||||||
|
die "\"${GHC_VER}\" is not a known version or tag!"
|
||||||
|
fi
|
||||||
|
fi
|
||||||
|
|
||||||
|
break;;
|
||||||
|
upgrade)
|
||||||
|
shift 1
|
||||||
|
while [ $# -gt 0 ] ; do
|
||||||
|
case $1 in
|
||||||
|
-h|--help) upgrade_usage;;
|
||||||
|
*) TARGET_LOCATION=$1
|
||||||
|
break;;
|
||||||
|
esac
|
||||||
|
done
|
||||||
|
if [ -n "${TARGET_LOCATION}" ] ; then
|
||||||
|
upgrade "${TARGET_LOCATION}"
|
||||||
|
else
|
||||||
|
upgrade "$(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
|
||||||
|
[ -n "${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
|
||||||
|
# could be a version or a tag, let's check
|
||||||
|
if array_contains "${CABAL_VER}" "$(known_tool_versions "cabal-install")" ; then
|
||||||
|
install_cabal "${CABAL_VER}"
|
||||||
|
elif array_contains "${CABAL_VER}" "$(known_tool_tags "cabal-install")" ; then
|
||||||
|
install_cabal "$(get_tool_ver_from_tag "cabal-install" "${CABAL_VER}")"
|
||||||
|
else
|
||||||
|
die "\"${CABAL_VER}\" is not a known version or tag!"
|
||||||
|
fi
|
||||||
|
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
|
||||||
|
[ -n "${GHC_VER}" ] || compile_usage
|
||||||
|
[ -n "${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