X-Git-Url: https://git.verplant.org/?a=blobdiff_plain;f=git-prune-script;h=1a97ccc91ded1522d3016d76cbdf62557585d514;hb=2ecd90502f4615c4f1a9340dfaed3f78ecd23747;hp=b6e927a749a95614fed1f0e651417edbec84eb56;hpb=0fc65a4572625405ff6dd9d8c16d835f2b1ebd49;p=git.git

diff --git a/git-prune-script b/git-prune-script
index b6e927a7..1a97ccc9 100755
--- a/git-prune-script
+++ b/git-prune-script
@@ -1,2 +1,38 @@
 #!/bin/sh
-git-fsck-cache --unreachable $(cat .git/HEAD ) | grep unreachable | cut -d' ' -f3 | sed 's:^\(..\):.git/objects/\1/:' | xargs rm
+dryrun=
+while case "$#" in 0) break ;; esac
+do
+    case "$1" in
+    -n) dryrun=echo ;;
+    --) break ;;
+    -*) echo >&2 "usage: git-prune-script [ -n ] [ heads... ]"; exit 1 ;;
+    *)  break ;;
+    esac
+    shift;
+done
+
+: ${GIT_DIR=.git}
+: ${GIT_OBJECT_DIRECTORY="${SHA1_FILE_DIRECTORY-"$GIT_DIR/objects"}"}
+
+# Defaulting to include .git/refs/*/* may be debatable from the
+# purist POV but power users can always give explicit parameters
+# to the script anyway.
+
+case "$#" in
+0)
+    x_40='[0-9a-f][0-9a-f][0-9a-f][0-9a-f][0-9a-f]'
+    x_40="$x_40$x_40$x_40$x_40$x_40$x_40$x_40$x_40"
+    set x $(sed -ne "/^$x_40\$/p" \
+	"$GIT_DIR"/HEAD "$GIT_DIR"/refs/*/* /dev/null 2>/dev/null)
+    shift ;;
+esac
+
+git-fsck-cache --cache --unreachable "$@" |
+sed -ne '/unreachable /{
+    s/unreachable [^ ][^ ]* //
+    s|\(..\)|\1/|p
+}' | {
+	cd "$GIT_OBJECT_DIRECTORY" || exit
+	xargs -r $dryrun rm -f
+}
+