Merge branch 'jc/perl'
[git.git] / git-repack.sh
1 #!/bin/sh
2 #
3 # Copyright (c) 2005 Linus Torvalds
4 #
5
6 USAGE='[-a] [-d] [-f] [-l] [-n] [-q]'
7 . git-sh-setup
8         
9 no_update_info= all_into_one= remove_redundant=
10 local= quiet= no_reuse_delta=
11 while case "$#" in 0) break ;; esac
12 do
13         case "$1" in
14         -n)     no_update_info=t ;;
15         -a)     all_into_one=t ;;
16         -d)     remove_redundant=t ;;
17         -q)     quiet=-q ;;
18         -f)     no_reuse_delta=--no-reuse-delta ;;
19         -l)     local=--local ;;
20         *)      usage ;;
21         esac
22         shift
23 done
24
25 rm -f .tmp-pack-*
26 PACKDIR="$GIT_OBJECT_DIRECTORY/pack"
27
28 # There will be more repacking strategies to come...
29 case ",$all_into_one," in
30 ,,)
31         rev_list='--unpacked'
32         rev_parse='--all'
33         pack_objects='--incremental'
34         ;;
35 ,t,)
36         rev_list=
37         rev_parse='--all'
38         pack_objects=
39
40         # Redundancy check in all-into-one case is trivial.
41         existing=`cd "$PACKDIR" && \
42             find . -type f \( -name '*.pack' -o -name '*.idx' \) -print`
43         ;;
44 esac
45 pack_objects="$pack_objects $local $quiet $no_reuse_delta"
46 name=$(git-rev-list --objects $rev_list $(git-rev-parse $rev_parse) 2>&1 |
47         git-pack-objects --non-empty $pack_objects .tmp-pack) ||
48         exit 1
49 if [ -z "$name" ]; then
50         echo Nothing new to pack.
51         exit 0
52 fi
53 echo "Pack pack-$name created."
54
55 mkdir -p "$PACKDIR" || exit
56
57 mv .tmp-pack-$name.pack "$PACKDIR/pack-$name.pack" &&
58 mv .tmp-pack-$name.idx  "$PACKDIR/pack-$name.idx" ||
59 exit
60
61 if test "$remove_redundant" = t
62 then
63         # We know $existing are all redundant only when
64         # all-into-one is used.
65         if test "$all_into_one" != '' && test "$existing" != ''
66         then
67                 sync
68                 ( cd "$PACKDIR" &&
69                   for e in $existing
70                   do
71                         case "$e" in
72                         ./pack-$name.pack | ./pack-$name.idx) ;;
73                         *)      rm -f $e ;;
74                         esac
75                   done
76                 )
77         fi
78 fi
79
80 case "$no_update_info" in
81 t) : ;;
82 *) git-update-server-info ;;
83 esac