blob: 09507cdd3ccc385e0d310ce78df1a629ee5bf56f (
plain) (
blame)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
|
#!/bin/bash
# aur-sane - build all packages in folder
set -o errexit -o pipefail
shopt -s extglob
readonly PKGBUILD_DIR=${PKGBUILD_DIR:-$HOME/pkgbuilds}
readonly AURPKG_FILE=${AURPKG_FILE:-$PKGBUILD_DIR/.meta/list/aur_explicit_install}
readonly INTPKG_FILE=${INTPKG_FILE:-$PKGBUILD_DIR/.meta/list/internal_explicit_install}
readonly argv0=doctor
readonly PS4='+(${BASH_SOURCE}:${LINENO}): ${FUNCNAME[0]:+${FUNCNAME[0]}(): }'
# default arguments
repo_args=()
pkgbuild_dir="${PKGBUILD_DIR}"
aurpkg_file="${AURPKG_FILE}"
intpkg_file="${INTPKG_FILE}"
# default options
dirty_check=0
real_db_path() {
pushd $(dirname $1) >/dev/null
realpath $(readlink $1)
popd >/dev/null
}
trap_exit() {
if [[ ! -o xtrace ]]; then
rm -rf "$tmp"
fi
}
ask() {
local mesg=$1; shift
printf "${BLUE}::${ALL_OFF}${BOLD} ${mesg}${ALL_OFF}" "$@" >&1
}
usage() {
plain "usage: $argv0 [-d repo] [-a path]" >&2
exit 1
}
source /usr/share/makepkg/util/util.sh
source /usr/share/makepkg/util/message.sh
source /usr/share/makepkg/util/parseopts.sh
if [[ -t 2 && ! -o xtrace ]]; then
colorize
fi
opt_short='d:a:p:i:'
opt_long=('aurpkg-file:' 'pkgbuild-dir:' 'intpkg-file:' 'dirty-check')
opt_hidden=('dump-options')
if ! parseopts "$opt_short" "${opt_long[@]}" "${opt_hidden[@]}" -- "$@"; then
usage
fi
set -- "${OPTRET[@]}"
unset pkg pkg_i
while true; do
case "$1" in
-d|--database) shift; repo_args+=(-d "$1") ;;
-p|--pkgbuild-dir) shift; pkgbuild_dir="$1" ;;
-a|--aurpkg-file) shift; aurpkg_file="$1" ;;
-i|--intpkg-file) shift; intpkg_file="$1" ;;
--dirty-check) shifit; dirty_check=1 ;;
--dump-options) printf -- '--%s\n' "${opt_long[@]}" ;
printf -- '%s' "${opt_short}" | sed 's/.:\?/-&\n/g' ;
exit ;;
--) shift; break ;;
esac
shift
done
unset opt_short opt_long OPTRET
tmp=$(mktemp -dt "$argv0".XXXXXXXX)
trap 'trap_exit' EXIT
cd_safe "$tmp"
real_db_path $(aur repo "${repo_args[@]}") >db_path
repoctl new config -c repoctl.toml $(cat db_path) >/dev/null
REPOCTL_CONFIG=$(realpath repoctl.toml) repoctl list >in_repo
aur fetch-all -p "$pkgbuild_dir" -a "$aurpkg_file" --no-fetch --no-check --list 2>/dev/null >aur_needed
comm -12 <(sort aur_needed) <(sort $intpkg_file) >same
if [[ -s same ]]; then
msg "Common packages between internal and AUR (explicit and their required dependencies)":
cat same
exit 1
fi
cat aur_needed $intpkg_file | uniq >needed
find "$pkgbuild_dir" -mindepth 1 -maxdepth 1 -type d -not -path '*/\.*' -exec basename {} \; >downloaded
if ((dirty_check)); then
if git -C "$pkgbuild_dir" rev-parse --is-inside-work-tree >/dev/null 2>&1; then
if [ ! -z "$(git -C "$pkgbuild_dir" status --porcelain)" ]; then
msg "$pkgbuild_dir is dirty or there are untracked files"
exit 1
fi
fi
fi
comm -13 <(sort downloaded) <(sort needed) >necessary
if [[ -s necessary ]]; then
msg "Necessary packages (required to aur fetch-all):"
cat necessary
exit 2
fi
comm -13 <(sort in_repo) <(sort needed) >necessary
if [[ -s necessary ]]; then
msg "Necessary packages (required to aur build-all):"
cat necessary
exit 2
fi
comm -23 <(sort in_repo) <(sort needed) >unnecessary
if [[ -s unnecessary ]]; then
msg "Unnecessary packages ($(cat db_path)):"
cat unnecessary
while read -u 3 -r pkg; do
ask "(R)emove %s from %s, (A)bort: [r/a] " "$pkg" "$(cat db_path)"
while read c; do
case $c in
a|A) exit 0;;
r|R) REPOCTL_CONFIG=$(realpath repoctl.toml) repoctl remove "$pkg"; break ;;
*) ask "Invalid answer. Try again: [r/a] "; continue ;;
esac
done
done 3<unnecessary
fi
comm -23 <(sort downloaded) <(sort needed) >unnecessary
if [[ -s unnecessary ]]; then
msg "Unnecessary packages ($pkgbuild_dir):"
cat unnecessary
exit 3
fi
REPOCTL_CONFIG=$(realpath repoctl.toml) repoctl status >status
if ! grep "Everything up-to-date." status >/dev/null; then
cat status
ask "(U)pdate, (A)bort: [u/a] "
while read c; do
case $c in
a|A) exit 0;;
u|U) REPOCTL_CONFIG=$(realpath repoctl.toml) repoctl update; break ;;
*) ask "Invalid answer. Try again: [u/a] "; continue ;;
esac
done
fi
# vim: set et sw=4 sts=4 ft=sh:
|
