t0050: perl portability fix
[git/peff.git] / builtin-clean.c
blobfefec3010c434219234e7832051ada9ed2e52335
1 /*
2 * "git clean" builtin command
4 * Copyright (C) 2007 Shawn Bohrer
6 * Based on git-clean.sh by Pavel Roskin
7 */
9 #include "builtin.h"
10 #include "cache.h"
11 #include "dir.h"
12 #include "parse-options.h"
13 #include "quote.h"
15 static int force = -1; /* unset */
17 static const char *const builtin_clean_usage[] = {
18 "git-clean [-d] [-f] [-n] [-q] [-x | -X] [--] <paths>...",
19 NULL
22 static int git_clean_config(const char *var, const char *value)
24 if (!strcmp(var, "clean.requireforce"))
25 force = !git_config_bool(var, value);
26 return git_default_config(var, value);
29 int cmd_clean(int argc, const char **argv, const char *prefix)
31 int i;
32 int show_only = 0, remove_directories = 0, quiet = 0, ignored = 0;
33 int ignored_only = 0, baselen = 0, config_set = 0, errors = 0;
34 struct strbuf directory;
35 struct dir_struct dir;
36 const char *path, *base;
37 static const char **pathspec;
38 struct strbuf buf;
39 const char *qname;
40 char *seen = NULL;
41 struct option options[] = {
42 OPT__QUIET(&quiet),
43 OPT__DRY_RUN(&show_only),
44 OPT_BOOLEAN('f', NULL, &force, "force"),
45 OPT_BOOLEAN('d', NULL, &remove_directories,
46 "remove whole directories"),
47 OPT_BOOLEAN('x', NULL, &ignored, "remove ignored files, too"),
48 OPT_BOOLEAN('X', NULL, &ignored_only,
49 "remove only ignored files"),
50 OPT_END()
53 git_config(git_clean_config);
54 if (force < 0)
55 force = 0;
56 else
57 config_set = 1;
59 argc = parse_options(argc, argv, options, builtin_clean_usage, 0);
61 strbuf_init(&buf, 0);
62 memset(&dir, 0, sizeof(dir));
63 if (ignored_only)
64 dir.show_ignored = 1;
66 if (ignored && ignored_only)
67 die("-x and -X cannot be used together");
69 if (!show_only && !force)
70 die("clean.requireForce%s set and -n or -f not given; "
71 "refusing to clean", config_set ? "" : " not");
73 dir.show_other_directories = 1;
75 if (!ignored)
76 setup_standard_excludes(&dir);
78 pathspec = get_pathspec(prefix, argv);
79 read_cache();
82 * Calculate common prefix for the pathspec, and
83 * use that to optimize the directory walk
85 baselen = common_prefix(pathspec);
86 path = ".";
87 base = "";
88 if (baselen)
89 path = base = xmemdupz(*pathspec, baselen);
90 read_directory(&dir, path, base, baselen, pathspec);
91 strbuf_init(&directory, 0);
93 if (pathspec)
94 seen = xmalloc(argc > 0 ? argc : 1);
96 for (i = 0; i < dir.nr; i++) {
97 struct dir_entry *ent = dir.entries[i];
98 int len, pos, matches;
99 struct cache_entry *ce;
100 struct stat st;
103 * Remove the '/' at the end that directory
104 * walking adds for directory entries.
106 len = ent->len;
107 if (len && ent->name[len-1] == '/')
108 len--;
109 pos = cache_name_pos(ent->name, len);
110 if (0 <= pos)
111 continue; /* exact match */
112 pos = -pos - 1;
113 if (pos < active_nr) {
114 ce = active_cache[pos];
115 if (ce_namelen(ce) == len &&
116 !memcmp(ce->name, ent->name, len))
117 continue; /* Yup, this one exists unmerged */
121 * we might have removed this as part of earlier
122 * recursive directory removal, so lstat() here could
123 * fail with ENOENT.
125 if (lstat(ent->name, &st))
126 continue;
128 if (pathspec) {
129 memset(seen, 0, argc > 0 ? argc : 1);
130 matches = match_pathspec(pathspec, ent->name, ent->len,
131 baselen, seen);
132 } else {
133 matches = 0;
136 if (S_ISDIR(st.st_mode)) {
137 strbuf_addstr(&directory, ent->name);
138 qname = quote_path_relative(directory.buf, directory.len, &buf, prefix);
139 if (show_only && (remove_directories || matches)) {
140 printf("Would remove %s\n", qname);
141 } else if (remove_directories || matches) {
142 if (!quiet)
143 printf("Removing %s\n", qname);
144 if (remove_dir_recursively(&directory, 0) != 0) {
145 warning("failed to remove '%s'", qname);
146 errors++;
148 } else if (show_only) {
149 printf("Would not remove %s\n", qname);
150 } else {
151 printf("Not removing %s\n", qname);
153 strbuf_reset(&directory);
154 } else {
155 if (pathspec && !matches)
156 continue;
157 qname = quote_path_relative(ent->name, -1, &buf, prefix);
158 if (show_only) {
159 printf("Would remove %s\n", qname);
160 continue;
161 } else if (!quiet) {
162 printf("Removing %s\n", qname);
164 if (unlink(ent->name) != 0) {
165 warning("failed to remove '%s'", qname);
166 errors++;
170 free(seen);
172 strbuf_release(&directory);
173 return (errors != 0);