diff options
| -rwxr-xr-x | bin/why_dont_you | 133 | ||||
| -rwxr-xr-x | bin/why_dont_you_build | 63 |
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 |