10 const char *write_ref
= NULL
;
12 const unsigned char *current_ref
= NULL
;
17 int get_verbosely
= 0;
18 static unsigned char current_commit_sha1
[20];
20 void pull_say(const char *fmt
, const char *hex
)
23 fprintf(stderr
, fmt
, hex
);
26 static void report_missing(const char *what
, const unsigned char *missing
)
30 strcpy(missing_hex
, sha1_to_hex(missing
));;
32 "Cannot obtain needed %s %s\nwhile processing commit %s.\n",
33 what
, missing_hex
, sha1_to_hex(current_commit_sha1
));
36 static int process(struct object
*obj
);
38 static int process_tree(struct tree
*tree
)
40 struct tree_entry_list
*entry
;
45 entry
= tree
->entries
;
48 struct tree_entry_list
*next
= entry
->next
;
49 if (process(entry
->item
.any
))
63 static struct commit_list
*complete
= NULL
;
65 static int process_commit(struct commit
*commit
)
67 if (parse_commit(commit
))
70 while (complete
&& complete
->item
->date
>= commit
->date
) {
71 pop_most_recent_commit(&complete
, COMPLETE
);
74 if (commit
->object
.flags
& COMPLETE
)
77 memcpy(current_commit_sha1
, commit
->object
.sha1
, 20);
79 pull_say("walk %s\n", sha1_to_hex(commit
->object
.sha1
));
82 if (process(&commit
->tree
->object
))
88 struct commit_list
*parents
= commit
->parents
;
89 for (; parents
; parents
= parents
->next
) {
90 if (process(&parents
->item
->object
))
97 static int process_tag(struct tag
*tag
)
101 return process(tag
->tagged
);
104 static struct object_list
*process_queue
= NULL
;
105 static struct object_list
**process_queue_end
= &process_queue
;
107 static int process_object(struct object
*obj
)
109 if (obj
->flags
& SCANNED
)
111 obj
->flags
|= SCANNED
;
113 if (obj
->type
== commit_type
) {
114 if (process_commit((struct commit
*)obj
))
118 if (obj
->type
== tree_type
) {
119 if (process_tree((struct tree
*)obj
))
123 if (obj
->type
== blob_type
) {
126 if (obj
->type
== tag_type
) {
127 if (process_tag((struct tag
*)obj
))
131 return error("Unable to determine requirements "
133 obj
->type
, sha1_to_hex(obj
->sha1
));
136 static int process(struct object
*obj
)
138 if (obj
->flags
& SEEN
)
142 if (has_sha1_file(obj
->sha1
)) {
143 parse_object(obj
->sha1
);
144 /* We already have it, so we should scan it now. */
145 if (obj
->flags
& (SCANNED
| TO_SCAN
))
147 object_list_insert(obj
, process_queue_end
);
148 process_queue_end
= &(*process_queue_end
)->next
;
149 obj
->flags
|= TO_SCAN
;
152 if (obj
->flags
& (COMPLETE
| TO_FETCH
))
154 object_list_insert(obj
, process_queue_end
);
155 process_queue_end
= &(*process_queue_end
)->next
;
156 obj
->flags
|= TO_FETCH
;
163 static int loop(void)
165 struct object_list
*elem
;
167 while (process_queue
) {
168 struct object
*obj
= process_queue
->item
;
169 elem
= process_queue
;
170 process_queue
= elem
->next
;
173 process_queue_end
= &process_queue
;
175 /* If we are not scanning this object, we placed it in
176 * the queue because we needed to fetch it first.
178 if (! (obj
->flags
& TO_SCAN
)) {
179 if (!has_sha1_file(obj
->sha1
) && fetch(obj
->sha1
)) {
180 report_missing(obj
->type
182 : "object", obj
->sha1
);
187 parse_object(obj
->sha1
);
188 if (process_object(obj
))
194 static int interpret_target(char *target
, unsigned char *sha1
)
196 if (!get_sha1_hex(target
, sha1
))
198 if (!check_ref_format(target
)) {
199 if (!fetch_ref(target
, sha1
)) {
206 static int mark_complete(const char *path
, const unsigned char *sha1
)
208 struct commit
*commit
= lookup_commit_reference_gently(sha1
, 1);
210 commit
->object
.flags
|= COMPLETE
;
211 insert_by_date(commit
, &complete
);
216 int pull(char *target
)
218 unsigned char sha1
[20];
221 save_commit_buffer
= 0;
222 if (write_ref
&& current_ref
) {
223 fd
= lock_ref_sha1(write_ref
, current_ref
);
228 for_each_ref(mark_complete
);
230 if (interpret_target(target
, sha1
))
231 return error("Could not interpret %s as something to pull",
233 if (process(lookup_unknown_object(sha1
)))
240 write_ref_sha1(write_ref
, fd
, sha1
);
242 write_ref_sha1_unlocked(write_ref
, sha1
);