core.sh

Go to the documentation of this file.

# ============================================================================
# Copyright (c) 2011-2012 University of Pennsylvania
# Copyright (c) 2013-2016 Andreas Schuh
# All rights reserved.
#
# See COPYING file for license information or visit
# https://cmake-basis.github.io/download.html#license
# ============================================================================

##############################################################################
# @file  core.sh
# @brief Core functions for Bash development.
#
# This is the core module of the BASIS utilities for Bash. It implements
# fundamental functions for the development in Bash. Therefore, this module
# has to be kept independent of any other modules and shall only make use
# of Bash builtin's and basic commands.
##############################################################################

[ "${_BASIS_CORE_INCLUDED}" == 'true' ] || {
_BASIS_CORE_INCLUDED='true'


. "`cd -P -- \`dirname -- "${BASH_SOURCE}"\` && pwd`/config.sh" || exit 1


## @addtogroup BasisBashUtilities
#  @{


# ============================================================================
# module import
# ============================================================================

# ----------------------------------------------------------------------------
## @brief Import Bash module.
#
# This function can be used to import, i.e., source, a named module, where the
# module is searched for in the directories specified by the @c BASHPATH
# (environment) variable. Modules can be prepended by the names of the
# subdirectories they are located in relative to a directory listed in the
# @c BASHPATH, where dots (.) can be used instead of slashes to separate the
# parts of the relative module path. A <tt>.sh</tt> file name extension of the
# modules is appended to the module name when looking for a matching Bash
# module file. It must not be included in the \p module name to avoid
# confusion with the dot used as path / submodule separator. The module name
# "utils.sh" thus translates to the file path "utils/sh.sh"!
#
# Example:
# @code
# import sbia.basis.core
# import -o optional.module
# if [ $? -eq 0 ]; then
#     echo "Module optional.module imported successfully"
# else
#     echo "Module optional.module not found"
# fi
# @endcode
#
# @note The directories listed in the @c BASHPATH must be absolute paths
#       starting with a forward slash (/).
#
# @param [in] options Option flags. The only possible option is -o. If this
#                     option is given before the module name, the function
#                     returns with return value 1 on error. Otherwise, it
#                     calls the exit function with this exit code.
#                     It can therefore be used for optional modules, which
#                     do not necessarily need to be imported.
# @param [in] module  Name of the module to import (excl. .sh file name extension).
#
# @returns Only on success or if the -o option is given. Otherwise it calls
#          the exit function if an error occurs.
#
# @retval 0 if the module was loaded successfully.
# @retval 1 on error if -o option is given.
import()
{
    if [[ -z "${BASHPATH}" ]]; then
        echo "import: BASHPATH not specified!" 1>&2
        exit 1
    fi
    local exitonerror='true'
    while [ $# -gt 0 ]; do
        case "$1" in
            -o) exitonerror='false'; ;;
            *)  break; ;;
        esac
        shift
    done
    local module="${1//.//}" # replace dots (.) by forward slashes (/)
    if [[ -z "${module}" ]]; then
        echo "import: missing module name argument!" 1>&2
        exit 1
    fi
    if [[ $# -gt 1 ]]; then
        echo "import: too many arguments!" 1>&2
        exit 1
    fi
    [[ ${module: -3} == '.sh' ]] || module="${module}.sh"
    local path="${BASHPATH}:" # ATTENTION: Trailing ':' required to terminate while loop!
    local root=
    while [[ -n "${path}" ]]; do
        root="${path%%:*}"
        if [[ "${root:0:1}" == '/' && -f "${root}/${module}" ]]; then
            . "${root}/${module}"
            return 0
        fi
        path="${path#*:}"
    done
    if [[ ${exitonerror} == 'true' ]]; then
        echo "import: module '$1' not found!" 1>&2
        exit 1
    fi
    return 1
}

# ============================================================================
# pattern matching
# ============================================================================

# ----------------------------------------------------------------------------
## @brief This function implements a more portable way to do pattern matching.
#
# Unfortunately, there are significant differences in the way patterns have
# to be matched when using different shells. This function considers which
# shell is used (at the moment only BASH), and uses the appropriate syntax
# for the pattern matching.
#
# @param [in] value   The string to match against pattern.
# @param [in] pattern The pattern to match.
#
# @returns Whether the given string matches the given pattern.
#
# @retval 0 On match.
# @retval 1 Otherwise.
match()
{
    [ $# -eq 2 ] || return 1

    local value=$1
    local pattern=$2

    if [ -z "${value}" ]; then
        [ -z "${pattern}" ]
    elif [ -z "${pattern}" ]; then
        [ -z "${value}" ]
    else
        if [ ${BASH_VERSION_MAJOR} -gt 2 ]; then
            # GNU bash, version 3.00.15(1)-release (x86_64-redhat-linux-gnu)
            # throws an error when a regular expression with groups
            # such as in '^(a|b|c)' is used. Here, quotes are required.
            if [ ${BASH_VERSION_MAJOR} -eq 3 -a ${BASH_VERSION_MINOR} -eq 0 ]; then
                [[ "${value}" =~ "${pattern}" ]]
            # GNU bash, version 3.2.25(1)-release (x86_64-redhat-linux-gnu)
            # works with either quotes or not. However, on Mac OS Snow Leopard,
            # GNU bash, version 3.2.48(1)-release (x86_64-apple-darwin10.0)
            # requires that no quotes are used. The quotes are otherwise
            # considered to be part of the pattern.
            else
                [[ "${value}" =~ ${pattern} ]]
            fi
        else
            echo "${value}" | egrep -q "${pattern}"
        fi
    fi
}

# ============================================================================
# upvar(s)
# ============================================================================

# ----------------------------------------------------------------------------
## @brief Assign variable one scope above the caller.
#
# This function can be used inside functions to return values by assigning
# them to a variable in the scope of the caller.
#
# @note For assigning multiple variables, use upvars(). Do NOT use multiple
#       upvar() calls, since one upvar() call might reassign a variable to
#       be used by another upvar() call.
#
# Example:
# @code
# foo ()
# {
#     local "$1" && upvar $1 "Hello, World!"
# }
#
# foo greeting
# echo ${greeting}
# @endcode
#
# @param [in] var    Variable name to assign value to
# @param [in] values Value(s) to assign. If multiple values, an array is
#                    assigned, otherwise a single value is assigned.
#
# @returns Nothing.
#
# @retval 0 On success.
# @retval 1 On failure.
#
# @sa upvars()
# @sa http://fvue.nl/wiki/Bash:_Passing_variables_by_reference
upvar()
{
    if unset -v "$1"; then           # Unset & validate varname
        if (( $# == 2 )); then
            eval $1=\"\$2\"          # Return single value
        else
            eval $1=\(\"\${@:2}\"\)  # Return array
        fi
    fi
}

# ----------------------------------------------------------------------------
## @brief Assign variables one scope above the caller.
#
# @par Synopsis
# local varname [varname ...] && 
# upvars [-v varname value] | [-aN varname [value ...]] ...
#
# @par Options:
# - -aN  Assign next N values to varname as array
# - -v   Assign single value to varname#
#
# @retval 0 On success.
# @retval 1 On failure.
#
# @sa http://fvue.nl/wiki/Bash:_Passing_variables_by_reference
upvars()
{
    if ! (( $# )); then
        echo "${FUNCNAME[0]}: usage: ${FUNCNAME[0]} [-v varname"\
            "value] | [-aN varname [value ...]] ..." 1>&2
        return 2
    fi
    while (( $# )); do
        case $1 in
            -a*)
                # Error checking
                [[ ${1#-a} ]] || { echo "bash: ${FUNCNAME[0]}: \`$1': missing"\
                    "number specifier" 1>&2; return 1; }
                printf %d "${1#-a}" &> /dev/null || { echo "bash:"\
                    "${FUNCNAME[0]}: \`$1': invalid number specifier" 1>&2
                    return 1; }
                # Assign array of -aN elements
                [[ "$2" ]] && unset -v "$2" && eval $2=\(\"\${@:3:${1#-a}}\"\) && 
                shift $((${1#-a} + 2)) || { echo "bash: ${FUNCNAME[0]}:"\
                    "\`$1${2+ }$2': missing argument(s)" 1>&2; return 1; }
                ;;
            -v)
                # Assign single value
                [[ "$2" ]] && unset -v "$2" && eval $2=\"\$3\" &&
                shift 3 || { echo "bash: ${FUNCNAME[0]}: $1: missing"\
                "argument(s)" 1>&2; return 1; }
                ;;
            --help) echo "\
Usage: local varname [varname ...] &&
   ${FUNCNAME[0]} [-v varname value] | [-aN varname [value ...]] ...
Available OPTIONS:
-aN VARNAME [value ...]   assign next N values to varname as array
-v VARNAME value          assign single value to varname
--help                    display this help and exit
--version                 output version information and exit"
                return 0 ;;
            --version) echo "\
${FUNCNAME[0]}-0.9.dev
Copyright (C) 2010 Freddy Vulto
License GPLv3+: GNU GPL version 3 or later <http://gnu.org/licenses/gpl.html>
This is free software: you are free to change and redistribute it.
There is NO WARRANTY, to the extent permitted by law."
                return 0 ;;
            *)
                echo "bash: ${FUNCNAME[0]}: $1: invalid option" 1>&2
                return 1 ;;
        esac
    done
}


## @}
# end of Doxygen group


} # _BASIS_CORE_INCLUDED