autoconf: Add tests for memmem, strtoumax and mkdtemp functions
[git/jrn.git] / builtin-prune.c
blob44df59e4a70f84cdebac94f2591765ada8d4b92d
1 #include "cache.h"
2 #include "commit.h"
3 #include "diff.h"
4 #include "revision.h"
5 #include "builtin.h"
6 #include "reachable.h"
8 static const char prune_usage[] = "git-prune [-n]";
9 static int show_only;
11 static int prune_object(char *path, const char *filename, const unsigned char *sha1)
13 if (show_only) {
14 enum object_type type = sha1_object_info(sha1, NULL);
15 printf("%s %s\n", sha1_to_hex(sha1),
16 (type > 0) ? typename(type) : "unknown");
17 } else
18 unlink(mkpath("%s/%s", path, filename));
19 return 0;
22 static int prune_dir(int i, char *path)
24 DIR *dir = opendir(path);
25 struct dirent *de;
27 if (!dir)
28 return 0;
30 while ((de = readdir(dir)) != NULL) {
31 char name[100];
32 unsigned char sha1[20];
33 int len = strlen(de->d_name);
35 switch (len) {
36 case 2:
37 if (de->d_name[1] != '.')
38 break;
39 case 1:
40 if (de->d_name[0] != '.')
41 break;
42 continue;
43 case 38:
44 sprintf(name, "%02x", i);
45 memcpy(name+2, de->d_name, len+1);
46 if (get_sha1_hex(name, sha1) < 0)
47 break;
50 * Do we know about this object?
51 * It must have been reachable
53 if (lookup_object(sha1))
54 continue;
56 prune_object(path, de->d_name, sha1);
57 continue;
59 fprintf(stderr, "bad sha1 file: %s/%s\n", path, de->d_name);
61 if (!show_only)
62 rmdir(path);
63 closedir(dir);
64 return 0;
67 static void prune_object_dir(const char *path)
69 int i;
70 for (i = 0; i < 256; i++) {
71 static char dir[4096];
72 sprintf(dir, "%s/%02x", path, i);
73 prune_dir(i, dir);
77 int cmd_prune(int argc, const char **argv, const char *prefix)
79 int i;
80 struct rev_info revs;
82 for (i = 1; i < argc; i++) {
83 const char *arg = argv[i];
84 if (!strcmp(arg, "-n")) {
85 show_only = 1;
86 continue;
88 usage(prune_usage);
91 save_commit_buffer = 0;
92 init_revisions(&revs, prefix);
93 mark_reachable_objects(&revs, 1);
95 prune_object_dir(get_object_directory());
97 sync();
98 prune_packed_objects(show_only);
99 return 0;