1 files changed, 84 insertions, 0 deletions
diff --git a/git-repack.sh b/git-repack.sh
new file mode 100755
index 0000000000..4fb3f26e83
--- /dev/null
+++ b/git-repack.sh
@@ -0,0 +1,84 @@
+#!/bin/sh
+#
+# Copyright (c) 2005 Linus Torvalds
+#
+
+USAGE='[-a] [-d] [-f] [-l] [-n] [-q]'
+. git-sh-setup
+
+no_update_info= all_into_one= remove_redundant=
+local= quiet= no_reuse_delta= extra=
+while case "$#" in 0) break ;; esac
+do
+	case "$1" in
+	-n)	no_update_info=t ;;
+	-a)	all_into_one=t ;;
+	-d)	remove_redundant=t ;;
+	-q)	quiet=-q ;;
+	-f)	no_reuse_delta=--no-reuse-delta ;;
+	-l)	local=--local ;;
+	--window=*) extra="$extra $1" ;;
+	--depth=*) extra="$extra $1" ;;
+	*)	usage ;;
+	esac
+	shift
+done
+
+rm -f .tmp-pack-*
+PACKDIR="$GIT_OBJECT_DIRECTORY/pack"
+
+# There will be more repacking strategies to come...
+case ",$all_into_one," in
+,,)
+	rev_list='--unpacked'
+	pack_objects='--incremental'
+	;;
+,t,)
+	rev_list=
+	pack_objects=
+
+	# Redundancy check in all-into-one case is trivial.
+	existing=`cd "$PACKDIR" && \
+	    find . -type f \( -name '*.pack' -o -name '*.idx' \) -print`
+	;;
+esac
+pack_objects="$pack_objects $local $quiet $no_reuse_delta$extra"
+name=$(git-rev-list --objects --all $rev_list 2>&1 |
+	git-pack-objects --non-empty $pack_objects .tmp-pack) ||
+	exit 1
+if [ -z "$name" ]; then
+	echo Nothing new to pack.
+else
+	echo "Pack pack-$name created."
+
+	mkdir -p "$PACKDIR" || exit
+
+	mv .tmp-pack-$name.pack "$PACKDIR/pack-$name.pack" &&
+	mv .tmp-pack-$name.idx  "$PACKDIR/pack-$name.idx" ||
+	exit
+fi
+
+if test "$remove_redundant" = t
+then
+	# We know $existing are all redundant only when
+	# all-into-one is used.
+	if test "$all_into_one" != '' && test "$existing" != ''
+	then
+		sync
+		( cd "$PACKDIR" &&
+		  for e in $existing
+		  do
+			case "$e" in
+			./pack-$name.pack | ./pack-$name.idx) ;;
+			*)	rm -f $e ;;
+			esac
+		  done
+		)
+	fi
+	git-prune-packed
+fi
+
+case "$no_update_info" in
+t) : ;;
+*) git-update-server-info ;;
+esac