7 static const char upload_pack_usage
[] = "git-upload-pack [--strict] [--timeout=nn] <dir>";
9 #define OUR_REF (1U << 1)
10 #define WANTED (1U << 2)
13 static int nr_has
= 0, nr_needs
= 0, nr_our_refs
= 0;
14 static unsigned char has_sha1
[MAX_HAS
][20];
15 static unsigned char needs_sha1
[MAX_NEEDS
][20];
16 static unsigned int timeout
= 0;
18 static void reset_timeout(void)
23 static int strip(char *line
, int len
)
25 if (len
&& line
[len
-1] == '\n')
30 static void create_pack_file(void)
34 int create_full_pack
= (nr_our_refs
== nr_needs
&& !nr_has
);
37 die("git-upload-pack: unable to create pipe");
40 die("git-upload-pack: unable to fork git-rev-list");
52 args
= nr_has
+ nr_needs
+ 5;
53 argv
= xmalloc(args
* sizeof(char *));
54 buf
= xmalloc(args
* 45);
61 *p
++ = "git-rev-list";
63 if (create_full_pack
|| MAX_NEEDS
<= nr_needs
)
66 for (i
= 0; i
< nr_needs
; i
++) {
68 memcpy(buf
, sha1_to_hex(needs_sha1
[i
]), 41);
72 if (!create_full_pack
)
73 for (i
= 0; i
< nr_has
; i
++) {
76 memcpy(buf
, sha1_to_hex(has_sha1
[i
]), 41);
80 execvp("git-rev-list", argv
);
81 die("git-upload-pack: unable to exec git-rev-list");
86 execlp("git-pack-objects", "git-pack-objects", "--stdout", NULL
);
87 die("git-upload-pack: unable to exec git-pack-objects");
90 static int got_sha1(char *hex
, unsigned char *sha1
)
93 if (get_sha1_hex(hex
, sha1
))
94 die("git-upload-pack: expected SHA1 object, got '%s'", hex
);
95 if (!has_sha1_file(sha1
))
99 memcpy(has_sha1
[nr
], sha1
, 20);
105 static int get_common_commits(void)
107 static char line
[1000];
108 unsigned char sha1
[20];
112 len
= packet_read_line(0, line
, sizeof(line
));
116 packet_write(1, "NAK\n");
119 len
= strip(line
, len
);
120 if (!strncmp(line
, "have ", 5)) {
121 if (got_sha1(line
+5, sha1
)) {
122 packet_write(1, "ACK %s\n", sha1_to_hex(sha1
));
127 if (!strcmp(line
, "done")) {
128 packet_write(1, "NAK\n");
131 die("git-upload-pack: expected SHA1 list, got '%s'", line
);
135 len
= packet_read_line(0, line
, sizeof(line
));
139 len
= strip(line
, len
);
140 if (!strncmp(line
, "have ", 5)) {
141 got_sha1(line
+5, sha1
);
144 if (!strcmp(line
, "done"))
146 die("git-upload-pack: expected SHA1 list, got '%s'", line
);
151 static int receive_needs(void)
153 static char line
[1000];
159 unsigned char dummy
[20], *sha1_buf
;
160 len
= packet_read_line(0, line
, sizeof(line
));
166 if (needs
== MAX_NEEDS
) {
168 "warning: supporting only a max of %d requests. "
169 "sending everything instead.\n",
172 else if (needs
< MAX_NEEDS
)
173 sha1_buf
= needs_sha1
[needs
];
175 if (strncmp("want ", line
, 5) || get_sha1_hex(line
+5, sha1_buf
))
176 die("git-upload-pack: protocol error, "
177 "expected to get sha, not '%s'", line
);
179 /* We have sent all our refs already, and the other end
180 * should have chosen out of them; otherwise they are
181 * asking for nonsense.
183 * Hmph. We may later want to allow "want" line that
184 * asks for something like "master~10" (symbolic)...
185 * would it make sense? I don't know.
187 o
= lookup_object(sha1_buf
);
188 if (!o
|| !(o
->flags
& OUR_REF
))
189 die("git-upload-pack: not our ref %s", line
+5);
190 if (!(o
->flags
& WANTED
)) {
197 static int send_ref(const char *refname
, const unsigned char *sha1
)
199 struct object
*o
= parse_object(sha1
);
201 packet_write(1, "%s %s\n", sha1_to_hex(sha1
), refname
);
202 if (!(o
->flags
& OUR_REF
)) {
206 if (o
->type
== tag_type
) {
208 packet_write(1, "%s %s^{}\n", sha1_to_hex(o
->sha1
), refname
);
213 static int upload_pack(void)
217 for_each_ref(send_ref
);
219 nr_needs
= receive_needs();
222 get_common_commits();
227 int main(int argc
, char **argv
)
233 for (i
= 1; i
< argc
; i
++) {
238 if (!strcmp(arg
, "--strict")) {
242 if (!strncmp(arg
, "--timeout=", 10)) {
243 timeout
= atoi(arg
+10);
246 if (!strcmp(arg
, "--")) {
253 usage(upload_pack_usage
);
256 /* chdir to the directory. If that fails, try appending ".git" */
257 if (chdir(dir
) < 0) {
258 if (strict
|| chdir(mkpath("%s.git", dir
)) < 0)
259 die("git-upload-pack unable to chdir to %s", dir
);
264 if (access("objects", X_OK
) || access("refs", X_OK
))
265 die("git-upload-pack: %s doesn't seem to be a git archive", dir
);