2 * "git clean" builtin command
4 * Copyright (C) 2007 Shawn Bohrer
6 * Based on git-clean.sh by Pavel Roskin
12 #include "parse-options.h"
14 #include "string-list.h"
20 static int force = -1; /* unset */
21 static int interactive;
22 static struct string_list del_list = STRING_LIST_INIT_DUP;
23 static unsigned int colopts;
25 static const char *const builtin_clean_usage[] = {
26 N_("git clean [-d] [-f] [-i] [-n] [-q] [-e <pattern>] [-x | -X] [--] <paths>..."),
30 static const char *msg_remove = N_("Removing %s\n");
31 static const char *msg_would_remove = N_("Would remove %s\n");
32 static const char *msg_skip_git_dir = N_("Skipping repository %s\n");
33 static const char *msg_would_skip_git_dir = N_("Would skip repository %s\n");
34 static const char *msg_warn_remove_failed = N_("failed to remove %s");
36 static int clean_use_color = -1;
37 static char clean_colors[][COLOR_MAXLEN] = {
39 GIT_COLOR_NORMAL, /* PLAIN */
40 GIT_COLOR_BOLD_BLUE, /* PROMPT */
41 GIT_COLOR_BOLD, /* HEADER */
42 GIT_COLOR_BOLD_RED, /* HELP */
43 GIT_COLOR_BOLD_RED, /* ERROR */
46 CLEAN_COLOR_RESET = 0,
47 CLEAN_COLOR_PLAIN = 1,
48 CLEAN_COLOR_PROMPT = 2,
49 CLEAN_COLOR_HEADER = 3,
54 #define MENU_OPTS_SINGLETON 01
55 #define MENU_OPTS_IMMEDIATE 02
56 #define MENU_OPTS_LIST_ONLY 04
64 #define MENU_RETURN_NO_LOOP 10
73 enum menu_stuff_type {
74 MENU_STUFF_TYPE_STRING_LIST = 1,
75 MENU_STUFF_TYPE_MENU_ITEM
79 enum menu_stuff_type type;
84 static int parse_clean_color_slot(const char *var)
86 if (!strcasecmp(var, "reset"))
87 return CLEAN_COLOR_RESET;
88 if (!strcasecmp(var, "plain"))
89 return CLEAN_COLOR_PLAIN;
90 if (!strcasecmp(var, "prompt"))
91 return CLEAN_COLOR_PROMPT;
92 if (!strcasecmp(var, "header"))
93 return CLEAN_COLOR_HEADER;
94 if (!strcasecmp(var, "help"))
95 return CLEAN_COLOR_HELP;
96 if (!strcasecmp(var, "error"))
97 return CLEAN_COLOR_ERROR;
101 static int git_clean_config(const char *var, const char *value, void *cb)
103 const char *slot_name;
105 if (starts_with(var, "column."))
106 return git_column_config(var, value, "clean", &colopts);
108 /* honors the color.interactive* config variables which also
109 applied in git-add--interactive and git-stash */
110 if (!strcmp(var, "color.interactive")) {
111 clean_use_color = git_config_colorbool(var, value);
114 if (skip_prefix(var, "color.interactive.", &slot_name)) {
115 int slot = parse_clean_color_slot(slot_name);
119 return config_error_nonbool(var);
120 return color_parse(value, clean_colors[slot]);
123 if (!strcmp(var, "clean.requireforce")) {
124 force = !git_config_bool(var, value);
128 /* inspect the color.ui config variable and others */
129 return git_color_default_config(var, value, cb);
132 static const char *clean_get_color(enum color_clean ix)
134 if (want_color(clean_use_color))
135 return clean_colors[ix];
139 static void clean_print_color(enum color_clean ix)
141 printf("%s", clean_get_color(ix));
144 static int exclude_cb(const struct option *opt, const char *arg, int unset)
146 struct string_list *exclude_list = opt->value;
147 string_list_append(exclude_list, arg);
151 static int remove_dirs(struct strbuf *path, const char *prefix, int force_flag,
152 int dry_run, int quiet, int *dir_gone)
155 struct strbuf quoted = STRBUF_INIT;
157 int res = 0, ret = 0, gone = 1, original_len = path->len, len;
158 unsigned char submodule_head[20];
159 struct string_list dels = STRING_LIST_INIT_DUP;
163 if ((force_flag & REMOVE_DIR_KEEP_NESTED_GIT) &&
164 !resolve_gitlink_ref(path->buf, "HEAD", submodule_head)) {
166 quote_path_relative(path->buf, prefix, "ed);
167 printf(dry_run ? _(msg_would_skip_git_dir) : _(msg_skip_git_dir),
175 dir = opendir(path->buf);
177 /* an empty dir could be removed even if it is unreadble */
178 res = dry_run ? 0 : rmdir(path->buf);
180 quote_path_relative(path->buf, prefix, "ed);
181 warning(_(msg_warn_remove_failed), quoted.buf);
187 if (path->buf[original_len - 1] != '/')
188 strbuf_addch(path, '/');
191 while ((e = readdir(dir)) != NULL) {
193 if (is_dot_or_dotdot(e->d_name))
196 strbuf_setlen(path, len);
197 strbuf_addstr(path, e->d_name);
198 if (lstat(path->buf, &st))
200 else if (S_ISDIR(st.st_mode)) {
201 if (remove_dirs(path, prefix, force_flag, dry_run, quiet, &gone))
204 quote_path_relative(path->buf, prefix, "ed);
205 string_list_append(&dels, quoted.buf);
210 res = dry_run ? 0 : unlink(path->buf);
212 quote_path_relative(path->buf, prefix, "ed);
213 string_list_append(&dels, quoted.buf);
215 quote_path_relative(path->buf, prefix, "ed);
216 warning(_(msg_warn_remove_failed), quoted.buf);
223 /* path too long, stat fails, or non-directory still exists */
230 strbuf_setlen(path, original_len);
233 res = dry_run ? 0 : rmdir(path->buf);
237 quote_path_relative(path->buf, prefix, "ed);
238 warning(_(msg_warn_remove_failed), quoted.buf);
244 if (!*dir_gone && !quiet) {
246 for (i = 0; i < dels.nr; i++)
247 printf(dry_run ? _(msg_would_remove) : _(msg_remove), dels.items[i].string);
249 string_list_clear(&dels, 0);
253 static void pretty_print_dels(void)
255 struct string_list list = STRING_LIST_INIT_DUP;
256 struct string_list_item *item;
257 struct strbuf buf = STRBUF_INIT;
259 struct column_options copts;
261 for_each_string_list_item(item, &del_list) {
262 qname = quote_path_relative(item->string, NULL, &buf);
263 string_list_append(&list, qname);
267 * always enable column display, we only consult column.*
268 * about layout strategy and stuff
270 colopts = (colopts & ~COL_ENABLE_MASK) | COL_ENABLED;
271 memset(&copts, 0, sizeof(copts));
274 print_columns(&list, colopts, &copts);
275 strbuf_release(&buf);
276 string_list_clear(&list, 0);
279 static void pretty_print_menus(struct string_list *menu_list)
281 unsigned int local_colopts = 0;
282 struct column_options copts;
284 local_colopts = COL_ENABLED | COL_ROW;
285 memset(&copts, 0, sizeof(copts));
288 print_columns(menu_list, local_colopts, &copts);
291 static void prompt_help_cmd(int singleton)
293 clean_print_color(CLEAN_COLOR_HELP);
294 printf_ln(singleton ?
296 "1 - select a numbered item\n"
297 "foo - select item based on unique prefix\n"
298 " - (empty) select nothing") :
300 "1 - select a single item\n"
301 "3-5 - select a range of items\n"
302 "2-3,6-9 - select multiple ranges\n"
303 "foo - select item based on unique prefix\n"
304 "-... - unselect specified items\n"
305 "* - choose all items\n"
306 " - (empty) finish selecting"));
307 clean_print_color(CLEAN_COLOR_RESET);
311 * display menu stuff with number prefix and hotkey highlight
313 static void print_highlight_menu_stuff(struct menu_stuff *stuff, int **chosen)
315 struct string_list menu_list = STRING_LIST_INIT_DUP;
316 struct strbuf menu = STRBUF_INIT;
317 struct menu_item *menu_item;
318 struct string_list_item *string_list_item;
321 switch (stuff->type) {
323 die("Bad type of menu_stuff when print menu");
324 case MENU_STUFF_TYPE_MENU_ITEM:
325 menu_item = (struct menu_item *)stuff->stuff;
326 for (i = 0; i < stuff->nr; i++, menu_item++) {
330 p = menu_item->title;
331 if ((*chosen)[i] < 0)
332 (*chosen)[i] = menu_item->selected ? 1 : 0;
333 strbuf_addf(&menu, "%s%2d: ", (*chosen)[i] ? "*" : " ", i+1);
335 if (!highlighted && *p == menu_item->hotkey) {
336 strbuf_addstr(&menu, clean_get_color(CLEAN_COLOR_PROMPT));
337 strbuf_addch(&menu, *p);
338 strbuf_addstr(&menu, clean_get_color(CLEAN_COLOR_RESET));
341 strbuf_addch(&menu, *p);
344 string_list_append(&menu_list, menu.buf);
348 case MENU_STUFF_TYPE_STRING_LIST:
350 for_each_string_list_item(string_list_item, (struct string_list *)stuff->stuff) {
351 if ((*chosen)[i] < 0)
353 strbuf_addf(&menu, "%s%2d: %s",
354 (*chosen)[i] ? "*" : " ", i+1, string_list_item->string);
355 string_list_append(&menu_list, menu.buf);
362 pretty_print_menus(&menu_list);
364 strbuf_release(&menu);
365 string_list_clear(&menu_list, 0);
368 static int find_unique(const char *choice, struct menu_stuff *menu_stuff)
370 struct menu_item *menu_item;
371 struct string_list_item *string_list_item;
372 int i, len, found = 0;
374 len = strlen(choice);
375 switch (menu_stuff->type) {
377 die("Bad type of menu_stuff when parse choice");
378 case MENU_STUFF_TYPE_MENU_ITEM:
380 menu_item = (struct menu_item *)menu_stuff->stuff;
381 for (i = 0; i < menu_stuff->nr; i++, menu_item++) {
382 if (len == 1 && *choice == menu_item->hotkey) {
386 if (!strncasecmp(choice, menu_item->title, len)) {
389 /* continue for hotkey matching */
401 case MENU_STUFF_TYPE_STRING_LIST:
402 string_list_item = ((struct string_list *)menu_stuff->stuff)->items;
403 for (i = 0; i < menu_stuff->nr; i++, string_list_item++) {
404 if (!strncasecmp(choice, string_list_item->string, len)) {
419 * Parse user input, and return choice(s) for menu (menu_stuff).
422 * (for single choice)
423 * 1 - select a numbered item
424 * foo - select item based on menu title
425 * - (empty) select nothing
427 * (for multiple choice)
428 * 1 - select a single item
429 * 3-5 - select a range of items
430 * 2-3,6-9 - select multiple ranges
431 * foo - select item based on menu title
432 * -... - unselect specified items
433 * * - choose all items
434 * - (empty) finish selecting
436 * The parse result will be saved in array **chosen, and
437 * return number of total selections.
439 static int parse_choice(struct menu_stuff *menu_stuff,
444 struct strbuf **choice_list, **ptr;
449 choice_list = strbuf_split_max(&input, '\n', 0);
456 choice_list = strbuf_split_max(&input, ' ', 0);
459 for (ptr = choice_list; *ptr; ptr++) {
462 int bottom = 0, top = 0;
463 int is_range, is_number;
469 /* Input that begins with '-'; unchoose */
470 if (*(*ptr)->buf == '-') {
472 strbuf_remove((*ptr), 0, 1);
477 for (p = (*ptr)->buf; *p; p++) {
487 } else if (!isdigit(*p)) {
495 bottom = atoi((*ptr)->buf);
497 } else if (is_range) {
498 bottom = atoi((*ptr)->buf);
499 /* a range can be specified like 5-7 or 5- */
500 if (!*(strchr((*ptr)->buf, '-') + 1))
501 top = menu_stuff->nr;
503 top = atoi(strchr((*ptr)->buf, '-') + 1);
504 } else if (!strcmp((*ptr)->buf, "*")) {
506 top = menu_stuff->nr;
508 bottom = find_unique((*ptr)->buf, menu_stuff);
512 if (top <= 0 || bottom <= 0 || top > menu_stuff->nr || bottom > top ||
513 (is_single && bottom != top)) {
514 clean_print_color(CLEAN_COLOR_ERROR);
515 printf_ln(_("Huh (%s)?"), (*ptr)->buf);
516 clean_print_color(CLEAN_COLOR_RESET);
520 for (i = bottom; i <= top; i++)
521 (*chosen)[i-1] = choose;
524 strbuf_list_free(choice_list);
526 for (i = 0; i < menu_stuff->nr; i++)
532 * Implement a git-add-interactive compatible UI, which is borrowed
533 * from git-add--interactive.perl.
537 * - Return an array of integers
538 * - , and it is up to you to free the allocated memory.
539 * - The array ends with EOF.
540 * - If user pressed CTRL-D (i.e. EOF), no selection returned.
542 static int *list_and_choose(struct menu_opts *opts, struct menu_stuff *stuff)
544 struct strbuf choice = STRBUF_INIT;
545 int *chosen, *result;
550 chosen = xmalloc(sizeof(int) * stuff->nr);
551 /* set chosen as uninitialized */
552 for (i = 0; i < stuff->nr; i++)
558 clean_get_color(CLEAN_COLOR_HEADER),
560 clean_get_color(CLEAN_COLOR_RESET));
563 /* chosen will be initialized by print_highlight_menu_stuff */
564 print_highlight_menu_stuff(stuff, &chosen);
566 if (opts->flags & MENU_OPTS_LIST_ONLY)
571 clean_get_color(CLEAN_COLOR_PROMPT),
573 opts->flags & MENU_OPTS_SINGLETON ? "> " : ">> ",
574 clean_get_color(CLEAN_COLOR_RESET));
577 if (strbuf_getline(&choice, stdin, '\n') != EOF) {
578 strbuf_trim(&choice);
584 /* help for prompt */
585 if (!strcmp(choice.buf, "?")) {
586 prompt_help_cmd(opts->flags & MENU_OPTS_SINGLETON);
590 /* for a multiple-choice menu, press ENTER (empty) will return back */
591 if (!(opts->flags & MENU_OPTS_SINGLETON) && !choice.len)
594 nr = parse_choice(stuff,
595 opts->flags & MENU_OPTS_SINGLETON,
599 if (opts->flags & MENU_OPTS_SINGLETON) {
602 } else if (opts->flags & MENU_OPTS_IMMEDIATE) {
608 result = xmalloc(sizeof(int));
614 * recalculate nr, if return back from menu directly with
615 * default selections.
618 for (i = 0; i < stuff->nr; i++)
622 result = xcalloc(nr + 1, sizeof(int));
623 for (i = 0; i < stuff->nr && j < nr; i++) {
631 strbuf_release(&choice);
635 static int clean_cmd(void)
637 return MENU_RETURN_NO_LOOP;
640 static int filter_by_patterns_cmd(void)
642 struct dir_struct dir;
643 struct strbuf confirm = STRBUF_INIT;
644 struct strbuf **ignore_list;
645 struct string_list_item *item;
646 struct exclude_list *el;
656 clean_print_color(CLEAN_COLOR_PROMPT);
657 printf(_("Input ignore patterns>> "));
658 clean_print_color(CLEAN_COLOR_RESET);
659 if (strbuf_getline(&confirm, stdin, '\n') != EOF)
660 strbuf_trim(&confirm);
664 /* quit filter_by_pattern mode if press ENTER or Ctrl-D */
668 memset(&dir, 0, sizeof(dir));
669 el = add_exclude_list(&dir, EXC_CMDL, "manual exclude");
670 ignore_list = strbuf_split_max(&confirm, ' ', 0);
672 for (i = 0; ignore_list[i]; i++) {
673 strbuf_trim(ignore_list[i]);
674 if (!ignore_list[i]->len)
677 add_exclude(ignore_list[i]->buf, "", 0, el, -(i+1));
681 for_each_string_list_item(item, &del_list) {
682 int dtype = DT_UNKNOWN;
684 if (is_excluded(&dir, item->string, &dtype)) {
685 *item->string = '\0';
691 string_list_remove_empty_items(&del_list, 0);
693 clean_print_color(CLEAN_COLOR_ERROR);
694 printf_ln(_("WARNING: Cannot find items matched by: %s"), confirm.buf);
695 clean_print_color(CLEAN_COLOR_RESET);
698 strbuf_list_free(ignore_list);
699 clear_directory(&dir);
702 strbuf_release(&confirm);
706 static int select_by_numbers_cmd(void)
708 struct menu_opts menu_opts;
709 struct menu_stuff menu_stuff;
710 struct string_list_item *items;
714 menu_opts.header = NULL;
715 menu_opts.prompt = N_("Select items to delete");
718 menu_stuff.type = MENU_STUFF_TYPE_STRING_LIST;
719 menu_stuff.stuff = &del_list;
720 menu_stuff.nr = del_list.nr;
722 chosen = list_and_choose(&menu_opts, &menu_stuff);
723 items = del_list.items;
724 for (i = 0, j = 0; i < del_list.nr; i++) {
726 *(items[i].string) = '\0';
727 } else if (i == chosen[j]) {
728 /* delete selected item */
732 /* end of chosen (chosen[j] == EOF), won't delete */
733 *(items[i].string) = '\0';
737 string_list_remove_empty_items(&del_list, 0);
743 static int ask_each_cmd(void)
745 struct strbuf confirm = STRBUF_INIT;
746 struct strbuf buf = STRBUF_INIT;
747 struct string_list_item *item;
749 int changed = 0, eof = 0;
751 for_each_string_list_item(item, &del_list) {
752 /* Ctrl-D should stop removing files */
754 qname = quote_path_relative(item->string, NULL, &buf);
755 /* TRANSLATORS: Make sure to keep [y/N] as is */
756 printf(_("Remove %s [y/N]? "), qname);
757 if (strbuf_getline(&confirm, stdin, '\n') != EOF) {
758 strbuf_trim(&confirm);
764 if (!confirm.len || strncasecmp(confirm.buf, "yes", confirm.len)) {
765 *item->string = '\0';
771 string_list_remove_empty_items(&del_list, 0);
773 strbuf_release(&buf);
774 strbuf_release(&confirm);
775 return MENU_RETURN_NO_LOOP;
778 static int quit_cmd(void)
780 string_list_clear(&del_list, 0);
781 printf_ln(_("Bye."));
782 return MENU_RETURN_NO_LOOP;
785 static int help_cmd(void)
787 clean_print_color(CLEAN_COLOR_HELP);
789 "clean - start cleaning\n"
790 "filter by pattern - exclude items from deletion\n"
791 "select by numbers - select items to be deleted by numbers\n"
792 "ask each - confirm each deletion (like \"rm -i\")\n"
793 "quit - stop cleaning\n"
794 "help - this screen\n"
795 "? - help for prompt selection"
797 clean_print_color(CLEAN_COLOR_RESET);
801 static void interactive_main_loop(void)
803 while (del_list.nr) {
804 struct menu_opts menu_opts;
805 struct menu_stuff menu_stuff;
806 struct menu_item menus[] = {
807 {'c', "clean", 0, clean_cmd},
808 {'f', "filter by pattern", 0, filter_by_patterns_cmd},
809 {'s', "select by numbers", 0, select_by_numbers_cmd},
810 {'a', "ask each", 0, ask_each_cmd},
811 {'q', "quit", 0, quit_cmd},
812 {'h', "help", 0, help_cmd},
816 menu_opts.header = N_("*** Commands ***");
817 menu_opts.prompt = N_("What now");
818 menu_opts.flags = MENU_OPTS_SINGLETON;
820 menu_stuff.type = MENU_STUFF_TYPE_MENU_ITEM;
821 menu_stuff.stuff = menus;
822 menu_stuff.nr = sizeof(menus) / sizeof(struct menu_item);
824 clean_print_color(CLEAN_COLOR_HEADER);
825 printf_ln(Q_("Would remove the following item:",
826 "Would remove the following items:",
828 clean_print_color(CLEAN_COLOR_RESET);
832 chosen = list_and_choose(&menu_opts, &menu_stuff);
834 if (*chosen != EOF) {
836 ret = menus[*chosen].fn();
837 if (ret != MENU_RETURN_NO_LOOP) {
841 clean_print_color(CLEAN_COLOR_ERROR);
842 printf_ln(_("No more files to clean, exiting."));
843 clean_print_color(CLEAN_COLOR_RESET);
858 int cmd_clean(int argc, const char **argv, const char *prefix)
861 int dry_run = 0, remove_directories = 0, quiet = 0, ignored = 0;
862 int ignored_only = 0, config_set = 0, errors = 0, gone = 1;
863 int rm_flags = REMOVE_DIR_KEEP_NESTED_GIT;
864 struct strbuf abs_path = STRBUF_INIT;
865 struct dir_struct dir;
866 struct pathspec pathspec;
867 struct strbuf buf = STRBUF_INIT;
868 struct string_list exclude_list = STRING_LIST_INIT_NODUP;
869 struct exclude_list *el;
870 struct string_list_item *item;
872 struct option options[] = {
873 OPT__QUIET(&quiet, N_("do not print names of files removed")),
874 OPT__DRY_RUN(&dry_run, N_("dry run")),
875 OPT__FORCE(&force, N_("force")),
876 OPT_BOOL('i', "interactive", &interactive, N_("interactive cleaning")),
877 OPT_BOOL('d', NULL, &remove_directories,
878 N_("remove whole directories")),
879 { OPTION_CALLBACK, 'e', "exclude", &exclude_list, N_("pattern"),
880 N_("add <pattern> to ignore rules"), PARSE_OPT_NONEG, exclude_cb },
881 OPT_BOOL('x', NULL, &ignored, N_("remove ignored files, too")),
882 OPT_BOOL('X', NULL, &ignored_only,
883 N_("remove only ignored files")),
887 git_config(git_clean_config, NULL);
893 argc = parse_options(argc, argv, prefix, options, builtin_clean_usage,
896 memset(&dir, 0, sizeof(dir));
898 dir.flags |= DIR_SHOW_IGNORED;
900 if (ignored && ignored_only)
901 die(_("-x and -X cannot be used together"));
903 if (!interactive && !dry_run && !force) {
905 die(_("clean.requireForce set to true and neither -i, -n, nor -f given; "
906 "refusing to clean"));
908 die(_("clean.requireForce defaults to true and neither -i, -n, nor -f given;"
909 " refusing to clean"));
915 dir.flags |= DIR_SHOW_OTHER_DIRECTORIES;
917 if (read_cache() < 0)
918 die(_("index file corrupt"));
921 setup_standard_excludes(&dir);
923 el = add_exclude_list(&dir, EXC_CMDL, "--exclude option");
924 for (i = 0; i < exclude_list.nr; i++)
925 add_exclude(exclude_list.items[i].string, "", 0, el, -(i+1));
927 parse_pathspec(&pathspec, 0,
931 fill_directory(&dir, &pathspec);
933 for (i = 0; i < dir.nr; i++) {
934 struct dir_entry *ent = dir.entries[i];
939 if (!cache_name_is_other(ent->name, ent->len))
943 matches = dir_path_match(ent, &pathspec, 0, NULL);
945 if (pathspec.nr && !matches)
948 if (lstat(ent->name, &st))
949 die_errno("Cannot lstat '%s'", ent->name);
951 if (S_ISDIR(st.st_mode) && !remove_directories &&
952 matches != MATCHED_EXACTLY)
955 rel = relative_path(ent->name, prefix, &buf);
956 string_list_append(&del_list, rel);
959 if (interactive && del_list.nr > 0)
960 interactive_main_loop();
962 for_each_string_list_item(item, &del_list) {
966 strbuf_addstr(&abs_path, prefix);
968 strbuf_addstr(&abs_path, item->string);
971 * we might have removed this as part of earlier
972 * recursive directory removal, so lstat() here could
975 if (lstat(abs_path.buf, &st))
978 if (S_ISDIR(st.st_mode)) {
979 if (remove_dirs(&abs_path, prefix, rm_flags, dry_run, quiet, &gone))
981 if (gone && !quiet) {
982 qname = quote_path_relative(item->string, NULL, &buf);
983 printf(dry_run ? _(msg_would_remove) : _(msg_remove), qname);
986 res = dry_run ? 0 : unlink(abs_path.buf);
988 qname = quote_path_relative(item->string, NULL, &buf);
989 warning(_(msg_warn_remove_failed), qname);
992 qname = quote_path_relative(item->string, NULL, &buf);
993 printf(dry_run ? _(msg_would_remove) : _(msg_remove), qname);
996 strbuf_reset(&abs_path);
999 strbuf_release(&abs_path);
1000 strbuf_release(&buf);
1001 string_list_clear(&del_list, 0);
1002 string_list_clear(&exclude_list, 0);
1003 return (errors != 0);