git-repack.shon commit expose a helper function peel_to_type(). (8177631)
   1#!/bin/sh
   2#
   3# Copyright (c) 2005 Linus Torvalds
   4#
   5
   6OPTIONS_KEEPDASHDASH=
   7OPTIONS_SPEC="\
   8git-repack [options]
   9--
  10a               pack everything in a single pack
  11A               same as -a, and keep unreachable objects too
  12d               remove redundant packs, and run git-prune-packed
  13f               pass --no-reuse-delta to git-pack-objects
  14q,quiet         be quiet
  15l               pass --local to git-pack-objects
  16 Packing constraints
  17window=         size of the window used for delta compression
  18window-memory=  same as the above, but limit memory size instead of entries count
  19depth=          limits the maximum delta depth
  20max-pack-size=  maximum size of each packfile
  21"
  22SUBDIRECTORY_OK='Yes'
  23. git-sh-setup
  24
  25no_update_info= all_into_one= remove_redundant= keep_unreachable=
  26local= quiet= no_reuse= extra=
  27while test $# != 0
  28do
  29        case "$1" in
  30        -n)     no_update_info=t ;;
  31        -a)     all_into_one=t ;;
  32        -A)     all_into_one=t
  33                keep_unreachable=--keep-unreachable ;;
  34        -d)     remove_redundant=t ;;
  35        -q)     quiet=-q ;;
  36        -f)     no_reuse=--no-reuse-object ;;
  37        -l)     local=--local ;;
  38        --max-pack-size|--window|--window-memory|--depth)
  39                extra="$extra $1=$2"; shift ;;
  40        --) shift; break;;
  41        *)      usage ;;
  42        esac
  43        shift
  44done
  45
  46# Later we will default repack.UseDeltaBaseOffset to true
  47default_dbo=false
  48
  49case "`git config --bool repack.usedeltabaseoffset ||
  50       echo $default_dbo`" in
  51true)
  52        extra="$extra --delta-base-offset" ;;
  53esac
  54
  55PACKDIR="$GIT_OBJECT_DIRECTORY/pack"
  56PACKTMP="$GIT_OBJECT_DIRECTORY/.tmp-$$-pack"
  57rm -f "$PACKTMP"-*
  58trap 'rm -f "$PACKTMP"-*' 0 1 2 3 15
  59
  60# There will be more repacking strategies to come...
  61case ",$all_into_one," in
  62,,)
  63        args='--unpacked --incremental'
  64        ;;
  65,t,)
  66        if [ -d "$PACKDIR" ]; then
  67                for e in `cd "$PACKDIR" && find . -type f -name '*.pack' \
  68                        | sed -e 's/^\.\///' -e 's/\.pack$//'`
  69                do
  70                        if [ -e "$PACKDIR/$e.keep" ]; then
  71                                : keep
  72                        else
  73                                args="$args --unpacked=$e.pack"
  74                                existing="$existing $e"
  75                        fi
  76                done
  77        fi
  78        if test -z "$args"
  79        then
  80                args='--unpacked --incremental'
  81        elif test -n "$keep_unreachable"
  82        then
  83                args="$args $keep_unreachable"
  84        fi
  85        ;;
  86esac
  87
  88args="$args $local $quiet $no_reuse$extra"
  89names=$(git pack-objects --non-empty --all --reflog $args </dev/null "$PACKTMP") ||
  90        exit 1
  91if [ -z "$names" ]; then
  92        if test -z "$quiet"; then
  93                echo Nothing new to pack.
  94        fi
  95fi
  96for name in $names ; do
  97        fullbases="$fullbases pack-$name"
  98        chmod a-w "$PACKTMP-$name.pack"
  99        chmod a-w "$PACKTMP-$name.idx"
 100        mkdir -p "$PACKDIR" || exit
 101
 102        for sfx in pack idx
 103        do
 104                if test -f "$PACKDIR/pack-$name.$sfx"
 105                then
 106                        mv -f "$PACKDIR/pack-$name.$sfx" \
 107                                "$PACKDIR/old-pack-$name.$sfx"
 108                fi
 109        done &&
 110        mv -f "$PACKTMP-$name.pack" "$PACKDIR/pack-$name.pack" &&
 111        mv -f "$PACKTMP-$name.idx"  "$PACKDIR/pack-$name.idx" &&
 112        test -f "$PACKDIR/pack-$name.pack" &&
 113        test -f "$PACKDIR/pack-$name.idx" || {
 114                echo >&2 "Couldn't replace the existing pack with updated one."
 115                echo >&2 "The original set of packs have been saved as"
 116                echo >&2 "old-pack-$name.{pack,idx} in $PACKDIR."
 117                exit 1
 118        }
 119        rm -f "$PACKDIR/old-pack-$name.pack" "$PACKDIR/old-pack-$name.idx"
 120done
 121
 122if test "$remove_redundant" = t
 123then
 124        # We know $existing are all redundant.
 125        if [ -n "$existing" ]
 126        then
 127                sync
 128                ( cd "$PACKDIR" &&
 129                  for e in $existing
 130                  do
 131                        case " $fullbases " in
 132                        *" $e "*) ;;
 133                        *)      rm -f "$e.pack" "$e.idx" "$e.keep" ;;
 134                        esac
 135                  done
 136                )
 137        fi
 138        git prune-packed $quiet
 139fi
 140
 141case "$no_update_info" in
 142t) : ;;
 143*) git-update-server-info ;;
 144esac