From bb816c5a25e3a87d4d9588ddcccf83b8a10d8d31 Mon Sep 17 00:00:00 2001 From: "Shawn O. Pearce" Date: Wed, 24 Jan 2007 19:08:49 -0500 Subject: [PATCH] git-gui: Display the size of the pack directory. Just as we show the amount of disk space taken by the loose objects, its interesting to know how much space is taken by the packs directory. So show that in our Database Statistics dialog. Signed-off-by: Shawn O. Pearce --- git-gui.sh | 11 +++++++++++ 1 file changed, 11 insertions(+) diff --git a/git-gui.sh b/git-gui.sh index 842fccc9f..79f980c47 100755 --- a/git-gui.sh +++ b/git-gui.sh @@ -2814,6 +2814,16 @@ proc do_stats {} { } close $fd + set packed_sz 0 + foreach p [glob -directory [gitdir objects pack] \ + -type f \ + -nocomplain -- *] { + incr packed_sz [file size $p] + } + if {$packed_sz > 0} { + set stats(size-pack) [expr {$packed_sz / 1024}] + } + set w .stats_view toplevel $w wm geometry $w "+[winfo rootx .]+[winfo rooty .]" @@ -2839,6 +2849,7 @@ proc do_stats {} { {size {Disk space used by loose objects} { KiB}} {in-pack {Number of packed objects}} {packs {Number of packs}} + {size-pack {Disk space used by packed objects} { KiB}} {prune-packable {Packed objects waiting for pruning}} {garbage {Garbage files}} } { -- 2.26.2