rename why_dont_you_build -> why_dont_you: can now also tell why something is not unstaged

1 files changed, 133 insertions, 0 deletions

diff --git a/bin/why_dont_you b/bin/why_dont_you
new file mode 100755
index 0000000..596b6d9
--- /dev/null
+++ b/bin/why_dont_you
@@ -0,0 +1,133 @@
+#!/bin/sh
+
+# usage: why_dont_you $action $package1 $package2 ...
+
+# investigate, why a certain option is not done with a certain package
+
+. "${0%/*}/../conf/default.conf"
+
+action="$1"
+shift
+
+case "${action}" in
+
+  'build')
+
+    for pkg in "$@"; do
+      grep "^$(str_to_regex "${pkg}") " "${work_dir}/build-list" | \
+        while read -r package git_revision mod_git_revision repository; do
+
+          if [ -f "${work_dir}/${package}.${git_revision}.${mod_git_revision}.${repository}.done" ] ||
+            [ -f "${work_dir}/${package}.${git_revision}.${mod_git_revision}.${repository}.testing" ]; then
+            echo 'has been built'
+            continue
+          fi
+
+          if package_locked_broken_or_blocked "${package}" "${git_revision}" "${mod_git_revision}" "${repository}"; then
+            echo 'is locked, broken or blocked'
+            continue
+          fi
+
+          if [ -n "$(
+            (
+              cat "${work_dir}/package-infos/${package}.${git_revision}.${mod_git_revision}.needs"
+              awk '{print $1 "." $2 "." $3}' "${work_dir}/build-list" | \
+                sed "
+                  s|^|${work_dir}/package-infos/|
+                  s|\$|\.builds|
+                " | \
+                xargs -r cat | \
+                sort -u
+            ) | \
+              sort | \
+              uniq -d
+            )" ]; then
+            echo 'has unmet dependencies:'
+            (
+              cat "${work_dir}/package-infos/${package}.${git_revision}.${mod_git_revision}.needs"
+              awk '{print $1 "." $2 "." $3}' "${work_dir}/build-list" | \
+                sed "
+                  s|^|${work_dir}/package-infos/|
+                  s|\$|\.builds|
+                " | \
+                xargs -r cat | \
+                sort -u
+            ) | \
+              sort | \
+              uniq -d | \
+              while read -r dep; do
+                grep -Fx "${dep}" "${work_dir}/package-infos/"*".builds" | \
+                  cut -d: -f1 | \
+                  xargs -rn1 basename | \
+                  cut -d. -f1
+              done | \
+              sort -u
+
+            continue
+          fi
+
+          echo 'would be built'
+        done
+
+    done
+
+  ;;
+
+  'unstage')
+
+    for pkg in "$@"; do
+
+      if ! ls -1 "${work_dir}/package-states" | \
+        grep -q "^$(str_to_regex "${pkg}")\(\.[^.]\+\)\{3\}\.done\$"; then
+        printf 'Package "%s" is not in staging!' "${pkg}"
+        continue
+      fi
+
+      dependent_packages="$(
+        grep -xF "${pkg}" "${work_dir}/package-infos/"*".depends" | \
+          cut -d: -f1 | \
+          sed '
+            s|^.*/||
+            s|\.depends$||
+          '
+      )"
+
+      build_list_items_file="$(mktemp)"
+      dependent_packages_file="$(mktemp)"
+
+      awk '{print $1 "." $2 "." $3 " " $4}' "${work_dir}/build-list" | \
+        sort -u > \
+        "${build_list_items_file}"
+
+      printf '%s\n' "${dependent_packages}" | \
+        sort -u > \
+        "${dependent_packages_file}"
+
+      dependent_still_on_build_list="$(
+        join -1 1 -2 1 -o 1.1,1.2 \
+          "${build_list_items_file}" \
+          "${dependent_packages_file}"
+      )"
+
+      rm -f \
+        "${build_list_items_file}" \
+        "${dependent_packages_file}"
+
+      if [ -n "${dependent_still_on_build_list}" ]; then
+        printf 'The following packages are dependent on "%s", but still on the build list:\n' "${pkg}"
+        echo "${dependent_still_on_build_list}"
+        continue
+      fi
+
+      echo 'No dependencies left on build list.'
+        echo "${dependent_packages}"
+
+    done
+
+  ;;
+
+  *)
+    >&2 printf 'unknown action "%s"' "${action}"
+    exit 1
+
+esac