summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rwxr-xr-xbin/why_dont_you133
-rwxr-xr-xbin/why_dont_you_build63
2 files changed, 133 insertions, 63 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
diff --git a/bin/why_dont_you_build b/bin/why_dont_you_build
deleted file mode 100755
index 15a4ca5..0000000
--- a/bin/why_dont_you_build
+++ /dev/null
@@ -1,63 +0,0 @@
-#!/bin/sh
-
-# investigate, why a certain package is not being built
-
-. "${0%/*}/../conf/default.conf"
-
-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