test-lib-functions-tg.sh: introduce TopGit-specific test functions library
[topgit/pro.git] / tg-summary.sh
blob75a89c84c96d982f488b40ab96030377866cfad7
1 #!/bin/sh
2 # TopGit - A different patch queue manager
3 # Copyright (C) Petr Baudis <pasky@suse.cz> 2008
4 # Copyright (C) Kyle J. McKay <mackyle@gmail.com> 2015,2016,2017
5 # All rights reserved.
6 # GPLv2
8 terse=
9 graphviz=
10 sort=
11 deps=
12 depsonly=
13 rdeps=
14 head_from=
15 branches=
16 head=
17 heads=
18 headsindep=
19 headsonly=
20 exclude=
21 tgish=
22 withdeps=
24 ## Parse options
26 usage()
28 echo "Usage: ${tgname:-tg} [...] summary [-t | --list | --heads[-only] | --sort | --deps[-only] | --rdeps | --graphviz] [-i | -w] [--tgish-only] [--with[out]-deps] [--exclude branch]... [--all | branch...]" >&2
29 exit 1
32 while [ -n "$1" ]; do
33 arg="$1"
34 case "$arg" in
35 -i|-w)
36 [ -z "$head_from" ] || die "-i and -w are mutually exclusive"
37 head_from="$arg";;
38 -t|--list|-l)
39 terse=1;;
40 --heads|--topgit-heads)
41 heads=1
42 headsindep=;;
43 --heads-independent)
44 heads=1
45 headsindep=1;;
46 --heads-only)
47 headsonly=1;;
48 --with-deps)
49 head=HEAD
50 withdeps=1;;
51 --without-deps)
52 head=HEAD
53 withdeps=0;;
54 --graphviz)
55 graphviz=1;;
56 --sort)
57 sort=1;;
58 --deps)
59 deps=1;;
60 --tgish-only)
61 tgish=1;;
62 --deps-only)
63 head=HEAD
64 depsonly=1;;
65 --rdeps)
66 head=HEAD
67 rdeps=1;;
68 --all)
69 break;;
70 --exclude=*)
71 [ -n "${1#--exclude=}" ] || die "--exclude= requires a branch name"
72 exclude="$exclude ${1#--exclude=}";;
73 --exclude)
74 shift
75 [ -n "$1" -a "$1" != "--all" ] || die "--exclude requires a branch name"
76 exclude="$exclude $1";;
77 -*)
78 usage;;
80 break;;
81 esac
82 shift
83 done
84 [ $# -eq 0 ] || defwithdeps=1
85 [ -z "$exclude" ] || exclude="$exclude "
86 if [ "$1" = "--all" ]; then
87 [ -z "$withdeps" ] || die "mutually exclusive options given"
88 [ $# -eq 1 ] || usage
89 shift
90 head=
91 defwithdeps=
93 [ "$heads$rdeps" != "11" ] || head=
94 [ $# -ne 0 -o -z "$head" ] || set -- "$head"
96 [ "$terse$heads$headsonly$graphviz$sort$deps$depsonly" = "" ] ||
97 [ "$terse$heads$headsonly$graphviz$sort$deps$depsonly$rdeps" = "1" ] ||
98 [ "$terse$heads$headsonly$graphviz$sort$deps$depsonly$rdeps" = "11" -a "$heads$rdeps" = "11" ] ||
99 die "mutually exclusive options given"
100 [ -z "$withdeps" -o -z "$rdeps$depsonly$heads$headsonly" ] ||
101 die "mutually exclusive options given"
103 for b; do
104 [ "$b" != "--all" ] || usage
105 branches="$branches $(verify_topgit_branch "$b")"
106 done
108 get_branch_list()
110 if [ -n "$branches" ]; then
111 if [ -n "$1" ]; then
112 printf '%s\n' $branches | LC_ALL=C sort -u
113 else
114 printf '%s\n' $branches
116 else
117 non_annihilated_branches
121 show_heads_independent()
123 topics="$(get_temp topics)"
124 get_branch_list | sed -e 's,^\(.*\)$,refs/heads/\1 \1,' |
125 git cat-file --batch-check='%(objectname) %(rest)' |
126 sort -u -b -k1,1 >"$topics"
127 git merge-base --independent $(cut -d ' ' -f 1 <"$topics") |
128 sort -u -b -k1,1 | join - "$topics" | sort -u -b -k2,2 |
129 while read rev name; do
130 case "$exclude" in *" $name "*) continue; esac
131 printf '%s\n' "$name"
132 done
135 show_heads_topgit()
137 topics="$(get_temp topics)"
138 topics2=
139 [ -z "$branches" ] || topics2="$(get_temp topics2)"
140 deplist="$(get_temp deplist)"
141 get_branch_list 1 >"$topics"
142 while read -r onetopic; do
143 if [ -n "$branches" ]; then
144 ! branch_annihilated "$onetopic" || continue
145 echol "$onetopic" >>"$topics2"
147 cat_deps "$onetopic"
148 done <"$topics" | LC_ALL=C sort -u >"$deplist"
149 [ -z "$branches" ] || topics="$topics2"
150 join -v 1 "$topics" "$deplist" |
151 while read -r name; do
152 case "$exclude" in *" $name "*) continue; esac
153 printf '%s\n' "$name"
154 done
157 show_heads()
159 if [ -n "$headsindep" ]; then
160 show_heads_independent "$@"
161 else
162 show_heads_topgit "$@"
166 if [ -n "$heads" -a -z "$rdeps" ]; then
167 show_heads
168 exit 0
171 skip_ann=
172 show_dep() {
173 case "$exclude" in *" $_dep "*) return; esac
174 case " $seen_deps " in *" $_dep "*) return 0; esac
175 seen_deps="${seen_deps:+$seen_deps }$_dep"
176 [ -z "$tgish" -o -n "$_dep_is_tgish" ] || return 0
177 [ -z "$skip_ann" ] || ! branch_annihilated "$_dep" && printf '%s\n' "$_dep"
178 return 0
181 show_deps()
183 no_remotes=1
184 recurse_deps_exclude=
185 get_branch_list | while read _b; do
186 case "$exclude" in *" $_b "*) continue; esac
187 case " $recurse_deps_exclude " in *" $_b "*) continue; esac
188 seen_deps=
189 save_skip="$skip_ann"
190 _dep="$_b"; _dep_is_tgish=1; skip_ann=; show_dep; skip_ann="$save_skip"
191 recurse_deps show_dep "$_b"
192 recurse_deps_exclude="$recurse_deps_exclude $seen_deps"
193 done
196 if [ -n "$depsonly" ]; then
197 show_deps | LC_ALL=C sort -u -b -k1,1
198 exit 0
201 show_rdeps()
203 case "$exclude" in *" $_dep "*) return; esac
204 [ -z "$tgish" -o -n "$_dep_is_tgish" ] || return 0
205 printf '%s %s\n' "$_depchain" "$_dep"
208 if [ -n "$rdeps" ]; then
209 no_remotes=1
210 showbreak=
212 if [ -n "$heads" ]; then
213 show_heads
214 else
215 get_branch_list
217 } | while read b; do
218 case "$exclude" in *" $b "*) continue; esac
219 [ -z "$showbreak" ] || echo
220 showbreak=1
221 ref_exists "refs/heads/$b" || continue
223 echol "$b"
224 recurse_preorder=1
225 recurse_deps show_rdeps "$b"
226 } | sed -e 's/[^ ][^ ]*[ ]/ /g'
227 done
228 exit 0
231 if [ -n "$headsonly" ]; then
232 defwithdeps=
233 branches="$(show_heads)"
236 [ -n "$withdeps" ] || withdeps="$defwithdeps"
237 [ "$withdeps" != "0" ] || withdeps=
238 if [ -n "$withdeps" ]; then
239 savetgish="$tgish"
240 tgish=1
241 origbranches="$branches"
242 branches="$(skip_ann=1; show_deps | LC_ALL=C sort -u -b -k1,1)"
243 tgish="$savetgish"
246 curname="$(strip_ref "$(git symbolic-ref -q HEAD)")" || :
248 if [ -n "$graphviz" ]; then
249 cat <<EOT
250 # GraphViz output; pipe to:
251 # | dot -Tpng -o <output>
252 # or
253 # | dot -Txlib
255 digraph G {
257 graph [
258 rankdir = "TB"
259 label="TopGit Layout\n\n\n"
260 fontsize = 14
261 labelloc=top
262 pad = "0.5,0.5"
268 if [ -n "$sort" ]; then
269 tsort_input="$(get_temp tg-summary-sort)"
270 exec 4>$tsort_input
271 exec 5<$tsort_input
274 ## List branches
276 aheadlist=
277 processed=' '
278 needslist=' '
279 compute_ahead_list()
281 [ -z "$branches" ] || [ -n "$withdeps" ] || return 0
282 [ -n "$withdeps" ] || origbranches="$($tg summary --topgit-heads | paste -d ' ' -s -)"
283 aheadfile="$(get_temp aheadlist)"
284 savebr="$base_remote"
285 savenr="$no_remotes"
286 base_remote=
287 no_remotes=1
288 for onehead in $origbranches; do
289 case "$exclude" in *" $onehead "*) continue; esac
290 case "$processed" in *" $onehead "*) continue; esac
291 processed="${processed}$onehead "
292 needs_update "$onehead" || needslist="${needslist}$onehead "
293 done >"$aheadfile"
294 no_remotes="$savenr"
295 base_remote="$savebr"
296 aheadlist=" $(LC_ALL=C cut -d ' ' -f 1 <"$aheadfile" | LC_ALL=C sort -u | paste -d ' ' -s -) "
299 process_branch()
301 missing_deps=
303 current=' '
304 [ "$name" != "$curname" ] || current='>'
305 from=$head_from
306 [ "$name" = "$curname" ] ||
307 from=
308 nonempty=' '
309 ! branch_empty "$name" $from || nonempty='0'
310 remote=' '
311 [ -z "$base_remote" ] || remote='l'
312 ! has_remote "$name" || remote='r'
313 rem_update=' '
314 [ "$remote" != 'r' ] || ! ref_exists "refs/remotes/$base_remote/${topbases#heads/}/$name" || {
315 branch_contains "refs/$topbases/$name" "refs/remotes/$base_remote/${topbases#heads/}/$name" &&
316 branch_contains "refs/heads/$name" "refs/remotes/$base_remote/$name"
317 } || rem_update='R'
318 [ "$remote" != 'r' -o "$rem_update" = 'R' ] || {
319 branch_contains "refs/remotes/$base_remote/$name" "refs/heads/$name" 2>/dev/null
320 } || rem_update='L'
321 deps_update=' '
322 case "$processed" in
323 *" $name "*)
324 case "$needslist" in *" $name "*) deps_update='D'; esac;;
326 needs_update "$name" >/dev/null || deps_update='D';;
327 esac
328 deps_missing=' '
329 [ -z "$missing_deps" ] || deps_missing='!'
330 base_update=' '
331 branch_contains "refs/heads/$name" "refs/$topbases/$name" || base_update='B'
332 ahead=' '
333 case "$aheadlist" in *" $name "*) ahead='*'; esac
335 if [ "$(ref_exists_rev "refs/heads/$name")" != "$(ref_exists_rev "refs/$topbases/$name")" ]; then
336 subject="$(cat_file "refs/heads/$name:.topmsg" $from | sed -n 's/^Subject: //p')"
337 else
338 # No commits yet
339 subject="(No commits)"
342 printf '%-8s %-30s\t%s\n' "$current$nonempty$remote$rem_update$deps_update$deps_missing$base_update$ahead" \
343 "$name" "$subject"
346 if [ -n "$deps" ]; then
347 if [ -n "$branches" ]; then
348 get_branch_list |
349 while read b; do
350 case "$exclude" in *" $b "*) continue; esac
351 list_deps $head_from $b |
352 while read name dep; do
353 case "$exclude" in *" $dep "*) continue; esac
354 [ -z "$tgish" ] || ref_exists "refs/$topbases/$dep" || continue
355 echo "$name $dep"
356 done
357 done
358 else
359 list_deps $head_from |
360 while read name dep; do
361 case "$exclude" in *" $dep "*) continue; esac
362 [ -z "$tgish" ] || ref_exists "refs/$topbases/$dep" || continue
363 echo "$name $dep"
364 done
366 exit 0
369 [ -n "$terse$graphviz$sort" ] || compute_ahead_list
370 get_branch_list |
371 while read name; do
372 case "$exclude" in *" $name "*) continue; esac
373 if [ -n "$terse" ]; then
374 echol "$name"
375 elif [ -n "$graphviz$sort" ]; then
376 from=$head_from
377 [ "$name" = "$curname" ] ||
378 from=
379 cat_file "refs/heads/$name:.topdeps" $from | while read dep; do
380 dep_is_tgish=true
381 ref_exists "refs/$topbases/$dep" ||
382 dep_is_tgish=false
383 [ -z "$tgish" ] || [ "$dep_is_tgish" = "true" ] || continue
384 if ! "$dep_is_tgish" || ! branch_annihilated $dep; then
385 if [ -n "$graphviz" ]; then
386 echo "\"$name\" -> \"$dep\";"
387 if [ "$name" = "$curname" ] || [ "$dep" = "$curname" ]; then
388 echo "\"$curname\" [style=filled,fillcolor=yellow];"
390 else
391 echo "$name $dep" >&4
394 done
395 else
396 process_branch
398 done
400 if [ -n "$graphviz" ]; then
401 echo '}'
404 if [ -n "$sort" ]; then
405 tsort <&5