This originally came from Frank Sorenson but with a bit of
rework to allow future enhancement to the command without
changing the external interface for removal part.

With the '-a' option, all objects in the current repository are
packed into a single pack.  When the '-d' option is given at the
same time, existing packs that were made redundant by this round
of repacking are deleted.

Since we currently have only two repacking strategies, one '-a'
(everything into one) and the other not '-a' (incrementally pack
only the unpacked ones), '-d' is meaningful only used with '-a'
and removes all the existing packs before repacking for now.

Signed-off-by: Junio C Hamano <[EMAIL PROTECTED]>


    Junio C Hamano <[EMAIL PROTECTED]> writes:
    > I am not saying we should not remove old pack.  I am saying that
    > repacking, choosing which pack to remove and doing the actual
    > removing should be kept as separate steps and in separate
    > commands, perhaps the latter two as part of "git prune".

    Frank, this is what I meant by the above.  When we have pack
    redundancy detection and removal in "git prune", probably we
    would call it when '-d' is given instead of rolling our own
    here.  That is, "git repack [-a] -d" would be just a
    shorthand to say "repack" without '-d' immediately followed
    by "git prune --redundant-packs".

    Pack optimization idea itself might turn out to be not worth
    it, in which case this version would suffice.  I don't know..

 git-repack-script |   51 +++++++++++++++++++++++++++++++++++++++++++--------
 1 files changed, 43 insertions(+), 8 deletions(-)

diff --git a/git-repack-script b/git-repack-script
--- a/git-repack-script
+++ b/git-repack-script
@@ -5,28 +5,63 @@
 . git-sh-setup-script || die "Not a git archive"
+no_update_info= all_into_one= remove_redundant=
 while case "$#" in 0) break ;; esac
        case "$1" in
        -n)     no_update_info=t ;;
+       -a)     all_into_one=t ;;
+       -d)     remove_redandant=t ;;
        *)      break ;;
 rm -f .tmp-pack-*
-packname=$(git-rev-list --unpacked --objects $(git-rev-parse --all) |
-       git-pack-objects --non-empty --incremental .tmp-pack) ||
+# There will be more repacking strategies to come...
+case ",$all_into_one," in
+       rev_list='--unpacked'
+       rev_parse='--all'
+       pack_objects='--incremental'
+       ;;
+       rev_list=
+       rev_parse='--all'
+       pack_objects=
+       # This part is a stop-gap until we have proper pack redundancy
+       # checker.
+       existing=`cd "$PACKDIR" && \
+           find . -type f \( -name '*.pack' -o -name '*.idx' \) -print`
+       ;;
+name=$(git-rev-list --objects $rev_list $(git-rev-parse $rev_parse) |
+       git-pack-objects --non-empty $pack_objects .tmp-pack) ||
        exit 1
-if [ -z "$packname" ]; then
-       echo Nothing new to pack
+if [ -z "$name" ]; then
+       echo Nothing new to pack.
        exit 0
+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" ||
+if test "$remove_redandant" = t
+       # We know $existing are all redandant only when
+       # all-into-one is used.
+       if test "$all_into_one" != '' && test "$existing" != ''
+       then
+               ( cd "$PACKDIR" && rm -f $existing )
+       fi
-mkdir -p "$GIT_OBJECT_DIRECTORY/pack" &&
-mv .tmp-pack-$packname.pack "$GIT_OBJECT_DIRECTORY/pack/pack-$packname.pack" &&
-mv .tmp-pack-$packname.idx  "$GIT_OBJECT_DIRECTORY/pack/pack-$packname.idx" &&
 case "$no_update_info" in
 t) : ;;
 *) git-update-server-info ;;

To unsubscribe from this list: send the line "unsubscribe git" in
the body of a message to [EMAIL PROTECTED]
More majordomo info at

Reply via email to