refactor db.sh

1 files changed, 152 insertions, 92 deletions

diff --git a/src/db.sh b/src/db.sh
index 6d733ef..2d67edb 100644
--- a/src/db.sh
+++ b/src/db.sh
@@ -5,7 +5,7 @@
 
 # Shared directory settings
 
-shared_dir="$( pwd )"
+shared_root_dir="$( pwd )/"
 
 update_shared_dir() {
     if [ "$#" -ne 1 ]; then
@@ -16,8 +16,10 @@ update_shared_dir() {
     local new_shared_dir
     new_shared_dir="$( traverse_path --exist --directory -- "$1" )"
 
-    [ "$db_path" == "$shared_dir/$default_db_name" ] \
-        && db_path="$new_shared_dir/$default_db_name"
+    [ new_shared_dir = / ] || new_shared_dir="$new_shared_dir/"
+
+    [ "$db_path" = "$shared_root_dir$default_db_name" ] \
+        && db_path="$new_shared_dir$default_db_name"
 
     shared_dir="$new_shared_dir"
 }
@@ -25,8 +27,10 @@ update_shared_dir() {
 # Database maintenance
 
 readonly default_db_name='links.bin'
-db_path="$shared_dir/$default_db_name"
+db_path="$shared_root_dir$default_db_name"
 declare -A database
+declare -A shared_paths
+declare -A symlink_paths
 
 update_database_path() {
     if [ "$#" -ne 1 ]; then
@@ -45,18 +49,55 @@ ensure_database_exists() {
     [ -f "$db_path" ] || is_dry_run || > "$db_path"
 }
 
+add_entry() {
+    local entry
+    for entry; do
+        dump "entry: $entry"
+
+        local var_name
+        var_name="$( extract_variable_name "$entry" )"
+        cache_variable "$var_name"
+
+        local shared_var_dir="$shared_root_dir%$var_name%"
+        local symlink_var_dir
+        symlink_var_dir="$( resolve_variable "$var_name" )"
+        local subpath="${entry#%$var_name%/}"
+
+        local shared_path="$shared_var_dir/$subpath"
+        local symlink_path="$symlink_var_dir/$subpath"
+
+        dump "    shared file path: $shared_path"
+        dump "    symlink path: $symlink_path"
+
+        database[$entry]="$var_name"
+        shared_paths[$entry]="$shared_path"
+        symlink_paths[$entry]="$symlink_path"
+    done
+}
+
+remove_entry() {
+    local entry
+    for entry; do
+        unset -v 'database[$entry]'
+        unset -v 'shared_paths[$entry]'
+        unset -v 'symlink_paths[$entry]'
+    done
+}
+
 read_database() {
     [ ! -f "$db_path" ] && is_dry_run && return 0
 
     local entry
     while IFS= read -d '' -r entry; do
-        database[$entry]=1
+        add_entry "$entry"
     done < "$db_path"
 }
 
 write_database() {
     is_dry_run && return 0
 
+    [ "${#database[@]}" -eq 0 ] && rm -f -- "$db_path" && return 0
+
     > "$db_path"
 
     local entry
@@ -65,25 +106,36 @@ write_database() {
     done
 }
 
+link_entry() {
+    local entry
+    for entry; do
+        local shared_path="${shared_paths[$entry]}"
+        local symlink_path="${symlink_paths[$entry]}"
+
+        local symlink_dir
+        symlink_dir="$( dirname -- "$symlink_path" )"
+        mkdir -p -- "$symlink_dir"
+        ln -f -s --no-target-directory -- "$shared_path" "$symlink_path"
+    done
+}
+
 delete_obsolete_dirs() {
     if [ "$#" -ne 2 ]; then
         echo "usage: ${FUNCNAME[0]} BASE_DIR DIR" >&2
         return 1
     fi
 
-    is_dry_run && return 0
-
     local base_dir="$1"
     local dir="$2"
 
     base_dir="$( traverse_path --exist --directory -- "$base_dir" )"
     dir="$( traverse_path --exist --directory -- "$dir" )"
 
-    [ "$base_dir" == "$dir" ] && return 0
+    [ "$base_dir" = "$dir" ] && return 0
 
     local subpath="${dir##$base_dir/}"
 
-    if [ "$subpath" == "$dir" ]; then
+    if [ "$subpath" = "$dir" ]; then
         dump "base directory: $base_dir"    >&2
         dump "... is not a parent of: $dir" >&2
         return 1
@@ -92,110 +144,118 @@ delete_obsolete_dirs() {
     ( cd -- "$base_dir/" && rmdir -p --ignore-fail-on-non-empty -- "$subpath" )
 }
 
-delete_obsolete_entries() {
+unlink_entry() {
     local entry
-    for entry in "${!database[@]}"; do
-        dump "entry: $entry"
-        unset -v 'database[$entry]'
+    for entry; do
+        local shared_path="${shared_paths[$entry]}"
+        local symlink_path="${symlink_paths[$entry]}"
 
-        local var_name
-        var_name="$( extract_variable_name "$entry" )" || continue
-        cache_variable "$var_name"
+        rm -f -- "$symlink_path"
 
+        local symlink_dir
+        symlink_dir="$( dirname -- "$symlink_path" )"
+        local var_name="${database[$entry]}"
         local symlink_var_dir
-        symlink_var_dir="$( resolve_variable "$var_name" )" || continue
-        local shared_var_dir="$shared_dir/%$var_name%"
-        local subpath="${entry#%$var_name%/}"
-        local symlink_path="$symlink_var_dir/$subpath"
-        local shared_path="$shared_var_dir/$subpath"
-
-        dump "    shared file path: $shared_path"
-        dump "    symlink path: $symlink_path"
-
-        if [ ! -L "$shared_path" ] && [ ! -e "$shared_path" ]; then
-            dump '    the shared file is missing, so going to delete the symlink'
-            is_dry_run && continue
-
-            if [ ! -L "$symlink_path" ]; then
-                dump "    not a symlink or doesn't exist, so won't delete"
-                continue
-            fi
-
-            local target_path
-            target_path="$( traverse_path -- "$symlink_path" )"
-
-            if [ "$shared_path" != "$target_path" ]; then
-                dump "    doesn't point to the shared file, so won't delete"
-                continue
-            fi
-
-            rm -f -- "$symlink_path"
-
-            local symlink_dir
-            symlink_dir="$( dirname -- "$symlink_path" )"
-            delete_obsolete_dirs "$symlink_var_dir" "$symlink_dir" || true
-
-            continue
-        fi
+        symlink_var_dir="$( resolve_variable "$var_name" )"
+        delete_obsolete_dirs "$symlink_var_dir" "$symlink_dir" || true
+    done
+}
 
-        if [ ! -L "$symlink_path" ]; then
-            dump "    not a symlink or doesn't exist"
-            continue
-        fi
+symlink_present() {
+    local entry
+    for entry; do
+        local symlink_path="${symlink_paths[$entry]}"
+        test -L "$symlink_path" -o -e "$symlink_path"
+    done
+}
 
+symlink_points_to_shared_file() {
+    symlink_present "$@"
+    local entry
+    for entry; do
+        local shared_path="${shared_paths[$entry]}"
+        local symlink_path="${symlink_paths[$entry]}"
         local target_path
         target_path="$( traverse_path -- "$symlink_path" )"
+        test "$target_path" = "$shared_path"
+    done
+}
 
-        if [ "$target_path" != "$shared_path" ]; then
-            dump "    doesn't point to the shared file"
-            continue
-        fi
-
-        dump '    ... points to the shared file'
-        database[$entry]=1
+shared_file_present() {
+    local entry
+    for entry; do
+        local shared_path="${shared_paths[$entry]}"
+        test -L "$shared_path" -o -e "$shared_path"
     done
 }
 
-discover_new_entries() {
+link_all_entries() {
     local shared_var_dir
     while IFS= read -d '' -r shared_var_dir; do
-        dump "shared directory: $shared_dir/$shared_var_dir"
-
-        local var_name
-        var_name="$( extract_variable_name "$shared_var_dir" )"
-        cache_variable "$var_name"
-
-        shared_var_dir="$shared_dir/$shared_var_dir"
-
-        local symlink_var_dir
-        symlink_var_dir="$( resolve_variable "$var_name" )" || continue
-        dump "    symlinks directory: $symlink_var_dir"
+        dump "shared directory: $shared_root_dir$shared_var_dir"
 
         local shared_path
         while IFS= read -d '' -r shared_path; do
-            dump "        shared file path: $shared_path"
-
-            local entry="%$var_name%/${shared_path:${#shared_var_dir}}"
-
-            if [ -n "${database[$entry]+x}" ]; then
-                dump '        ... already has a symlink'
-                continue
+            dump "    shared file path: $shared_path"
+            local entry="${shared_path:${#shared_root_dir}}"
+            add_entry "$entry" > /dev/null
+            dump "    symlink path: ${symlink_paths[$entry]}"
+
+            if symlink_present "$entry"; then
+                if symlink_points_to_shared_file "$entry"; then
+                    dump '    ... up-to-date'
+                else
+                    dump "    ... not a symlink or doesn't point to the shared file"
+                    remove_entry "$entry"
+                fi
+            else
+                dump '    ... adding a symlink'
+                is_dry_run || link_entry "$entry"
             fi
 
-            local subpath="${shared_path:${#shared_var_dir}}"
-            local symlink_path="$symlink_var_dir/$subpath"
-
-            dump "        symlink path: $symlink_path"
+        done < <( find "$shared_root_dir$shared_var_dir" -type f -print0 )
+    done < <( find "$shared_root_dir" -regextype posix-basic -mindepth 1 -maxdepth 1 -type d -regex ".*/$var_name_regex\$" -printf '%P\0' )
+}
 
-            is_dry_run && continue
+unlink_all_entries() {
+    local entry
+    for entry in "${!database[@]}"; do
+        dump "entry: $entry"
+        local shared_path="${shared_paths[$entry]}"
+        local symlink_path="${symlink_paths[$entry]}"
+        dump "    shared file path: $shared_path"
+        dump "    symlink path: $symlink_path"
 
-            local symlink_dir
-            symlink_dir="$( dirname -- "$symlink_path" )"
-            mkdir -p -- "$symlink_dir"
-            ln -f -s --no-target-directory -- "$shared_path" "$symlink_path"
+        if symlink_points_to_shared_file "$entry"; then
+            dump '    ... removing the symlink'
+            is_dry_run || unlink_entry "$entry"
+        else
+            dump "    ... not a symlink or doesn't point to the shared file"
+            remove_entry "$entry"
+        fi
+    done
+}
 
-            database[$entry]=1
-        done < <( find "$shared_var_dir" -type f -print0 )
+unlink_obsolete_entries() {
+    local entry
+    for entry in "${!database[@]}"; do
+        dump "entry: $entry"
+        local shared_path="${shared_paths[$entry]}"
+        local symlink_path="${symlink_paths[$entry]}"
+        dump "    shared file path: $shared_path"
+        dump "    symlink path: $symlink_path"
 
-    done < <( find "$shared_dir" -regextype posix-basic -mindepth 1 -maxdepth 1 -type d -regex ".*/$var_name_regex\$" -printf '%P/\0' )
+        if symlink_points_to_shared_file "$entry"; then
+            if shared_file_present "$entry"; then
+                dump '    ... up-to-date'
+            else
+                dump '    ... obsolete'
+                is_dry_run || unlink_entry "$entry"
+                remove_entry "$entry"
+            fi
+        else
+            dump "    ... not a symlink or doesn't point to the shared file"
+            remove_entry "$entry"
+        fi
+    done
 }