aboutsummaryrefslogtreecommitdiffstatshomepage
diff options
context:
space:
mode:
Diffstat (limited to '')
-rw-r--r--update.sh199
1 files changed, 150 insertions, 49 deletions
diff --git a/update.sh b/update.sh
index 8c93ca3..2950599 100644
--- a/update.sh
+++ b/update.sh
@@ -23,6 +23,28 @@ set -o errexit
set -o nounset
set -o pipefail
+# Cygwin-related stuff
+
+readonly os="$( uname -o )"
+
+is_cygwin() {
+ test "$os" == 'Cygwin'
+}
+
+check_symlinks_enabled_cygwin() {
+ case "${CYGWIN-}" in
+ *winsymlinks:native*) ;;
+ *winsymlinks:nativestrict*) ;;
+
+ *)
+ dump 'native Windows symlinks aren'"'"'t enabled in Cygwin' >&2
+ return 1
+ ;;
+ esac
+}
+
+# Utility routines
+
script_argv0="${BASH_SOURCE[0]}"
script_dir="$( cd "$( dirname "$script_argv0" )" && pwd )"
@@ -39,42 +61,122 @@ dump() {
done
}
-config_dir="$script_dir"
+resolve_path() {
+ local -a paths
+ local exit_with_usage=
-update_config_dir() {
+ local must_exist=
+ local type_flag=
+ local type_name=
+
+ while [ "$#" -gt 0 ]; do
+ local key="$1"
+ shift
+
+ case "$key" in
+ -h|--help)
+ exit_with_usage=0
+ break
+ ;;
+ --)
+ break
+ ;;
+ -e|--exist)
+ must_exist=1
+ ;;
+ -d|--directory)
+ type_flag=-d
+ type_name="directory"
+ ;;
+ -f|--file)
+ type_flag=-f
+ type_name="regular file"
+ ;;
+ *)
+ paths+=("$key")
+ ;;
+ esac
+ done
+
+ if [ -n "$exit_with_usage" ]; then
+ echo "usage: ${FUNCNAME[0]} [-h|--help] [-e|--exist] [-f|--file] [-d|--directory] [--] [PATH]..." || true
+ return "$exit_with_usage"
+ fi
+
+ paths+=("$@")
+
+ if is_cygwin; then
+ local i
+ for i in "${!paths[@]}"; do
+ paths[$i]="$( cygpath "${paths[$i]}" )"
+ done
+ fi
+
+ local path
+ while IFS= read -d '' -r path; do
+ if [ -n "$must_exist" ] && [ ! -e "$path" ]; then
+ dump "must exist: $path" >&2
+ fi
+
+ if [ -e "$path" ] && [ -n "$type_flag" ] && ! test "$type_flag" "$path"; then
+ dump "must be a $type_name: $path" >&2
+ return 1
+ fi
+
+ echo "$path"
+ done < <( readlink --zero --canonicalize-missing ${paths[@]+"${paths[@]}"} )
+}
+
+declare -A cached_paths
+
+resolve_variable() {
if [ "$#" -ne 1 ]; then
- echo "usage: ${FUNCNAME[0]} DIR" || true
+ echo "usage: ${FUNCNAME[0]} VAR_NAME" || true
return 1
fi
- local new_config_dir="$( readlink --canonicalize-existing "$1" )"
+ local var_name="$1"
- if [ ! -d "$new_config_dir" ]; then
- dump "must be a directory: $new_config_dir" >&2
+ if [ -z "${!var_name+x}" ]; then
+ dump "variable is not set: $var_name" >&2
return 1
fi
- if [ "$database_path" == "$config_dir/$default_database_name" ]; then
- database_path="$new_config_dir/$default_database_name"
- fi
+ local var_path="${!var_name}"
+ resolve_path --exist --directory -- "$var_path"
+}
- config_dir="$new_config_dir"
+check_symlinks_enabled() {
+ if is_cygwin; then
+ check_symlinks_enabled_cygwin
+ else
+ return 0
+ fi
}
-ensure_symlinks_enabled() {
- case "${CYGWIN:-}" in
- *winsymlinks:native*) ;;
- *winsymlinks:nativestrict*) ;;
+# Configuration directory settings
- *)
- dump 'native Windows symlinks aren'"'"'t enabled in Cygwin' >&2
- return 1
- ;;
- esac
+config_dir="$script_dir"
+
+update_config_dir() {
+ if [ "$#" -ne 1 ]; then
+ echo "usage: ${FUNCNAME[0]} DIR" || true
+ return 1
+ fi
+
+ local new_config_dir
+ new_config_dir="$( resolve_path --exist --directory -- "$1" )"
+
+ [ "$db_path" == "$config_dir/$default_db_fn" ] \
+ && db_path="$new_config_dir/$default_db_fn"
+
+ config_dir="$new_config_dir"
}
-readonly default_database_name='db.bin'
-database_path="$config_dir/$default_database_name"
+# Database maintenance
+
+readonly default_db_fn='db.bin'
+db_path="$config_dir/$default_db_fn"
declare -A database
update_database_path() {
@@ -83,23 +185,19 @@ update_database_path() {
return 1
fi
- database_path="$( readlink --canonicalize "$1" )"
-
- if [ -e "$database_path" ] && [ ! -f "$database_path" ]; then
- dump "must be a regular file: $database_path" >&2
- return 1
- fi
+ db_path="$( resolve_path --file "$1" )"
+ mkdir --parents "$( dirname "$db_path" )"
}
ensure_database_exists() {
- [ -f "$database_path" ] || touch "$database_path"
+ [ -f "$db_path" ] || touch "$db_path"
}
read_database() {
local entry
while IFS= read -d '' -r entry; do
database[$entry]=1
- done < "$database_path"
+ done < "$db_path"
}
write_database() {
@@ -108,11 +206,11 @@ write_database() {
return 0
fi
- > "$database_path"
+ > "$db_path"
local entry
for entry in "${!database[@]}"; do
- printf '%s\0' "$entry" >> "$database_path"
+ printf '%s\0' "$entry" >> "$db_path"
done
}
@@ -125,14 +223,19 @@ delete_obsolete_dirs() {
local base_dir="$1"
local dir="$2"
- base_dir="$( readlink --canonicalize-missing "$base_dir" )"
- dir="$( readlink --canonicalize-missing "$dir" )"
-
if [ ! -d "$base_dir" ]; then
dump "base directory doesn't exist: $base_dir" >&2
return 1
fi
+ if [ ! -d "$dir" ]; then
+ dump "directory doesn't exist: $dir" >&2
+ return 1
+ fi
+
+ base_dir="$( resolve_path --exist --directory -- "$base_dir" )"
+ dir="$( resolve_path --exist --directory -- "$dir" )"
+
[ "$base_dir" == "$dir" ] && return 0
local subpath="${dir##$base_dir/}"
@@ -151,13 +254,15 @@ delete_obsolete_dirs() {
( cd "$base_dir" && rmdir --parents "$subpath" --ignore-fail-on-non-empty )
}
+readonly var_name_regex='%\([_[:alpha:]][_[:alnum:]]*\)%'
+
delete_obsolete_entries() {
local entry
for entry in "${!database[@]}"; do
dump "entry: $entry"
local var_name
- var_name="$( expr "$entry" : '%\([_[:alpha:]][_[:alnum:]]*\)%/' )"
+ var_name="$( expr "$entry" : "$var_name_regex/" )"
if [ -z "$var_name" ]; then
dump ' couldn'"'"'t extract variable name' >&2
@@ -165,14 +270,12 @@ delete_obsolete_entries() {
continue
fi
- if [ -z "${!var_name+x}" ]; then
- dump " variable is not set: $var_name" >&2
+ local symlink_var_dir
+ if ! symlink_var_dir="${cached_paths[$var_name]="$( resolve_variable "$var_name" )"}"; then
+ unset -v 'cached_paths[$var_name]'
unset -v 'database[$entry]'
continue
fi
-
- local symlink_var_dir
- symlink_var_dir="$( readlink --canonicalize-missing "$( cygpath "${!var_name}" )" )"
local config_var_dir="$config_dir/%$var_name%"
local subpath="${entry#%$var_name%/}"
@@ -205,7 +308,7 @@ delete_obsolete_entries() {
fi
local target_path
- target_path="$( readlink --canonicalize-existing "$symlink_path" )"
+ target_path="$( resolve_path "$symlink_path" )"
if [ "$target_path" != "$config_path" ]; then
dump " points to a wrong file: $symlink_path" >&2
@@ -217,8 +320,6 @@ delete_obsolete_entries() {
done
}
-var_name_regex='%\([_[:alpha:]][_[:alnum:]]*\)%'
-
discover_new_entries() {
local config_var_dir
while IFS= read -d '' -r config_var_dir; do
@@ -229,13 +330,11 @@ discover_new_entries() {
var_name="$( expr "$var_name" : "$var_name_regex" )"
dump " variable name: $var_name"
- if [ -z "${!var_name+x}" ]; then
- dump " variable is not set: $var_name" >&2
+ local symlink_var_dir
+ if ! symlink_var_dir="${cached_paths[$var_name]="$( resolve_variable "$var_name" )"}"; then
+ unset -v 'cached_paths[$var_name]'
continue
fi
-
- local symlink_var_dir
- symlink_var_dir="$( readlink --canonicalize-missing "$( cygpath "${!var_name}" )" )"
dump " destination directory: $symlink_var_dir"
local config_path
@@ -265,6 +364,8 @@ discover_new_entries() {
done < <( find "$config_dir" -regextype posix-basic -mindepth 1 -maxdepth 1 -type d -regex ".*/$var_name_regex\$" -print0 )
}
+# Main routines
+
exit_with_usage() {
local msg
IFS= read -d '' -r msg <<MSG || echo -n "$msg" || true
@@ -335,10 +436,10 @@ parse_script_options() {
main() {
parse_script_options "$@"
[ -n "${exit_with_usage+x}" ] && exit_with_usage
+ check_symlinks_enabled
ensure_database_exists
read_database
delete_obsolete_entries
- ensure_symlinks_enabled
discover_new_entries
write_database
}