#!/bin/bash # # util.sh - general utility functions # # Copyright (c) 2006-2018 Pacman Development Team # Copyright (c) 2002-2006 by Judd Vinet # # This program is free software; you can redistribute it and/or modify # it under the terms of the GNU General Public License as published by # the Free Software Foundation; either version 2 of the License, or # (at your option) any later version. # # This program is distributed in the hope that it will be useful, # but WITHOUT ANY WARRANTY; without even the implied warranty of # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the # GNU General Public License for more details. # # You should have received a copy of the GNU General Public License # along with this program. If not, see . # [[ -n "$LIBMAKEPKG_UTIL_UTIL_SH" ]] && return LIBMAKEPKG_UTIL_UTIL_SH=1 LIBRARY=${LIBRARY:-'@libmakepkgdir@'} source "$LIBRARY/util/message.sh" ## # usage : in_array( $needle, $haystack ) # return : 0 - found # 1 - not found ## in_array() { local needle=$1; shift local item for item in "$@"; do [[ $item = "$needle" ]] && return 0 # Found done return 1 # Not Found } # tests if a variable is an array is_array() { local v=$1 local ret=1 if [[ ${!v@a} = *a* ]]; then ret=0 fi return $ret } # Canonicalize a directory path if it exists canonicalize_path() { local path="$1" if [[ -d $path ]]; then ( cd_safe "$path" pwd -P ) else printf "%s\n" "$path" fi } dir_is_empty() { ( shopt -s dotglob nullglob files=("$1"/*) (( ${#files} == 0 )) ) } cd_safe() { if ! cd "$1"; then error "$(gettext "Failed to change to directory %s")" "$1" plain "$(gettext "Aborting...")" exit 1 fi } # Try to create directory if one does not yet exist. Fails if the directory # exists but has no write permissions, or if there is an existing file with # the same name. ensure_writable_dir() { local dirtype="$1" dirpath="$2" if ! mkdir -p "$dirpath" 2>/dev/null; then error "$(gettext "Failed to create the directory \$%s (%s).")" "$dirtype" "$dirpath" return 1 elif [[ ! -w $dirpath ]]; then error "$(gettext "You do not have write permission for the directory \$%s (%s).")" "$dirtype" "$dirpath" return 1 fi return 0 }