Send patches - preferably formatted by git format-patch - to patches at archlinux32 dot org.
summaryrefslogtreecommitdiff
path: root/bin/why_dont_you
diff options
context:
space:
mode:
authorErich Eckner <git@eckner.net>2017-06-16 10:21:48 +0200
committerErich Eckner <git@eckner.net>2017-06-16 10:21:48 +0200
commit0eaf07b89956169ff54bc9f5aea0dd9fef92a8d6 (patch)
treed367b08aad76355c4f488c087781df18b7953001 /bin/why_dont_you
parentb61f18086363f3a5d4cad4733632f012027f0ccf (diff)
rename why_dont_you_build -> why_dont_you: can now also tell why something is not unstaged
Diffstat (limited to 'bin/why_dont_you')
-rwxr-xr-xbin/why_dont_you133
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