diff options
Diffstat (limited to 'src/fnid.c')
| -rw-r--r-- | src/fnid.c | 192 |
1 files changed, 192 insertions, 0 deletions
diff --git a/src/fnid.c b/src/fnid.c new file mode 100644 index 0000000..309480a --- /dev/null +++ b/src/fnid.c @@ -0,0 +1,192 @@ +/* fnid.c -- report which files constitute an ID database + Copyright (C) 1996 Free Software Foundation, Inc. + Written by Greg McGary <gkm@gnu.ai.mit.edu> + + This program is free software; you can redistribute it and/or modify + it under the terms of the GNU General Public License as published by + the Free Software Foundation; either version 2, or (at your option) + any later version. + + This program is distributed in the hope that it will be useful, + but WITHOUT ANY WARRANTY; without even the implied warranty of + MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the + GNU General Public License for more details. + + You should have received a copy of the GNU General Public License + along with this program; if not, write to the Free Software + Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA. */ + +#include <config.h> +#include <stdio.h> +#include <getopt.h> +#include "xfnmatch.h" +#include "xstring.h" +#include "xmalloc.h" +#include "xnls.h" +#include "idfile.h" +#include "pathmax.h" +#include "error.h" +#include "xalloca.h" + +void scan_files __P((struct idhead *idhp)); +void scan_member_file __P((struct member_file const *member)); +void usage __P((void)); + +char const *program_name; +int show_version = 0; +int show_help = 0; +struct idhead idh; +struct file_link *cw_dlink; +int no_id_flag = 1; + +/* How shall we separate file names? */ + +enum separator_style separator_style = ss_contextual; + +void +usage (void) +{ + fprintf (stderr, _("Try `%s --help' for more information.\n"), + program_name); + exit (1); +} + +static struct option const long_options[] = +{ + { "file", required_argument, 0, 'f' }, + { "separator", required_argument, 0, 'S' }, + { "help", no_argument, &show_help, 1 }, + { "version", no_argument, &show_version, 1 }, + { 0 } +}; + +static void +help_me (void) +{ + printf (_("\ +Usage: %s [OPTION]... [PATTERN]...\n\ +"), program_name); + + printf (_("\ +Print constituent file names that match PATTERN,\n\ +using shell-style wildcards.\n\ + -f, --file=FILE file name of ID database\n\ + -S, --separator=STYLE STYLE is one of `braces', `space' or `newline'\n\ + --help display this help and exit\n\ + --version output version information and exit\n\ +")); + exit (0); +} + +int +main (int argc, char **argv) +{ + program_name = argv[0]; + idh.idh_file_name = 0; + + /* Set locale according to user's wishes. */ + setlocale (LC_ALL, ""); + + /* Tell program which translations to use and where to find. */ + bindtextdomain (PACKAGE, LOCALEDIR); + textdomain (PACKAGE); + + for (;;) + { + int optc = getopt_long (argc, argv, "f:S:", + long_options, (int *) 0); + if (optc < 0) + break; + switch (optc) + { + case 0: + break; + + case 'f': + idh.idh_file_name = optarg; + break; + + case 'S': + separator_style = parse_separator_style (optarg); + break; + + default: + usage (); + } + } + + if (show_version) + { + printf ("%s - %s\n", program_name, PACKAGE_VERSION); + exit (0); + } + + if (show_help) + help_me (); + + if (separator_style == ss_contextual) + { + if (isatty (STDOUT_FILENO)) + separator_style = DEFAULT_SEPARATOR_STYLE; + else + separator_style = ss_newline; + } + + argc -= optind; + argv += optind; + if (argc == 0) + { + static char *star = (char *) "*"; + argc = 1; + argv = ☆ + } + + /* Look for the ID database up the tree */ + idh.idh_file_name = locate_id_file_name (idh.idh_file_name); + if (idh.idh_file_name == 0) + error (1, errno, _("can't locate `ID'")); + + init_idh_obstacks (&idh); + init_idh_tables (&idh); + + cw_dlink = get_current_dir_link (); + { + struct file_link **members = read_id_file (idh.idh_file_name, &idh); + struct file_link **members_N = &members[idh.idh_files]; + struct file_link **flinkv_0 = MALLOC (struct file_link *, idh.idh_files + 1); + struct file_link **flinkv = flinkv_0; + char **patv_0 = MALLOC (char *, argc * 2); + char **patv_N; + char **patv = patv_0; + + for ( ; argc; argc--, argv++) + { + char *arg = *argv; + *patv++ = arg; + if (*arg != '*' && *arg != '/') + { + char *pat = MALLOC (char, strlen (arg) + 2); + sprintf (pat, "*/%s", arg); + *patv++ = pat; + } + } + patv_N = patv; + + for ( ; members < members_N; members++) + { + char *file_name = ALLOCA (char, PATH_MAX); + maybe_relative_file_name (file_name, *members, cw_dlink); + for (patv = patv_0; patv < patv_N; patv++) + { + if (fnmatch (*patv, file_name, MAYBE_FNM_CASEFOLD) == 0) + { + *flinkv++ = *members; + break; + } + } + } + *flinkv = 0; + print_filenames (flinkv_0, separator_style); + } + return 0; +} |