11 const char *write_ref
= NULL
;
12 const char *write_ref_log_details
= NULL
;
17 int get_verbosely
= 0;
19 static unsigned char current_commit_sha1
[20];
21 void pull_say(const char *fmt
, const char *hex
)
24 fprintf(stderr
, fmt
, hex
);
27 static void report_missing(const char *what
, const unsigned char *missing
)
31 strcpy(missing_hex
, sha1_to_hex(missing
));;
33 "Cannot obtain needed %s %s\nwhile processing commit %s.\n",
34 what
, missing_hex
, sha1_to_hex(current_commit_sha1
));
37 static int process(struct object
*obj
);
39 static int process_tree(struct tree
*tree
)
41 struct tree_desc desc
;
42 struct name_entry entry
;
47 desc
.buf
= tree
->buffer
;
48 desc
.size
= tree
->size
;
49 while (tree_entry(&desc
, &entry
)) {
50 if (S_ISDIR(entry
.mode
)) {
51 struct tree
*tree
= lookup_tree(entry
.sha1
);
54 struct blob
*blob
= lookup_blob(entry
.sha1
);
55 process(&blob
->object
);
64 #define COMPLETE (1U << 0)
65 #define SEEN (1U << 1)
66 #define TO_SCAN (1U << 2)
68 static struct commit_list
*complete
= NULL
;
70 static int process_commit(struct commit
*commit
)
72 if (parse_commit(commit
))
75 while (complete
&& complete
->item
->date
>= commit
->date
) {
76 pop_most_recent_commit(&complete
, COMPLETE
);
79 if (commit
->object
.flags
& COMPLETE
)
82 memcpy(current_commit_sha1
, commit
->object
.sha1
, 20);
84 pull_say("walk %s\n", sha1_to_hex(commit
->object
.sha1
));
87 if (process(&commit
->tree
->object
))
93 struct commit_list
*parents
= commit
->parents
;
94 for (; parents
; parents
= parents
->next
) {
95 if (process(&parents
->item
->object
))
102 static int process_tag(struct tag
*tag
)
106 return process(tag
->tagged
);
109 static struct object_list
*process_queue
= NULL
;
110 static struct object_list
**process_queue_end
= &process_queue
;
112 static int process_object(struct object
*obj
)
114 if (obj
->type
== commit_type
) {
115 if (process_commit((struct commit
*)obj
))
119 if (obj
->type
== tree_type
) {
120 if (process_tree((struct tree
*)obj
))
124 if (obj
->type
== blob_type
) {
127 if (obj
->type
== tag_type
) {
128 if (process_tag((struct tag
*)obj
))
132 return error("Unable to determine requirements "
134 obj
->type
, sha1_to_hex(obj
->sha1
));
137 static int process(struct object
*obj
)
139 if (obj
->flags
& SEEN
)
143 if (has_sha1_file(obj
->sha1
)) {
144 /* We already have it, so we should scan it now. */
145 obj
->flags
|= TO_SCAN
;
147 if (obj
->flags
& COMPLETE
)
152 object_list_insert(obj
, process_queue_end
);
153 process_queue_end
= &(*process_queue_end
)->next
;
157 static int loop(void)
159 struct object_list
*elem
;
161 while (process_queue
) {
162 struct object
*obj
= process_queue
->item
;
163 elem
= process_queue
;
164 process_queue
= elem
->next
;
167 process_queue_end
= &process_queue
;
169 /* If we are not scanning this object, we placed it in
170 * the queue because we needed to fetch it first.
172 if (! (obj
->flags
& TO_SCAN
)) {
173 if (fetch(obj
->sha1
)) {
174 report_missing(obj
->type
176 : "object", obj
->sha1
);
181 parse_object(obj
->sha1
);
182 if (process_object(obj
))
188 static int interpret_target(char *target
, unsigned char *sha1
)
190 if (!get_sha1_hex(target
, sha1
))
192 if (!check_ref_format(target
)) {
193 if (!fetch_ref(target
, sha1
)) {
200 static int mark_complete(const char *path
, const unsigned char *sha1
)
202 struct commit
*commit
= lookup_commit_reference_gently(sha1
, 1);
204 commit
->object
.flags
|= COMPLETE
;
205 insert_by_date(commit
, &complete
);
210 int pull(char *target
)
212 struct ref_lock
*lock
;
213 unsigned char sha1
[20];
217 save_commit_buffer
= 0;
218 track_object_refs
= 0;
220 lock
= lock_ref_sha1(write_ref
, NULL
, 0);
222 error("Can't lock ref %s", write_ref
);
228 for_each_ref(mark_complete
);
230 if (interpret_target(target
, sha1
)) {
231 error("Could not interpret %s as something to pull", target
);
235 if (process(lookup_unknown_object(sha1
))) {
245 if (write_ref_log_details
) {
246 msg
= xmalloc(strlen(write_ref_log_details
) + 12);
247 sprintf(msg
, "fetch from %s", write_ref_log_details
);
250 ret
= write_ref_sha1(lock
, sha1
, msg
? msg
: "fetch (unknown)");