diff --git a/ghcup b/ghcup
index 432a16da274eeb8331a5718f6603792b943fe195..3dcb4701c3d27aeceee23decd4e3d23f82190776 100755
--- a/ghcup
+++ b/ghcup
@@ -1003,34 +1003,6 @@ posix_realpath() {
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
# @DESCRIPTION:
@@ -1689,237 +1661,234 @@ fi
#--[ Command line parsing and entry point ]--#
##############################################
-if ! is_sourced ; then
-
- [ $# -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 ##
+[ $# -lt 1 ] && usage
- edo mkdir -p "${INSTALL_BASE}"
- edo mkdir -p "${BIN_LOCATION}"
- edo mkdir -p "${CACHE_LOCATION}"
-
- # clean up old meta files
- if [ -e "${CACHE_LOCATION}/$(basename "${META_VERSION_URL}")" ] ; then
- 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
-
- # 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
+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 ##
+
+ edo mkdir -p "${INSTALL_BASE}"
+ edo mkdir -p "${BIN_LOCATION}"
+ edo mkdir -p "${CACHE_LOCATION}"
+
+ # clean up old meta files
+ if [ -e "${CACHE_LOCATION}/$(basename "${META_VERSION_URL}")" ] ; then
+ 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
+
+ # 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
- 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}"
+ 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
- # 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
+ die "\"${GHC_VER}\" is not a known version or tag!"
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;;
+ 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
- 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
+ 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
- show_ghc
+ die "\"${GHC_VER}\" is not a known version or tag!"
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
+ 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
- _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}"
+ 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
- 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
+ install_cabal "${_cabal_ver}"
+ fi
break;;
- esac
- done
-fi # is_sourced
+ 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