annotate lib/exclude.c @ 1171:68efd95df6f4

.
author Jim Meyering <jim@meyering.net>
date Sun, 21 Dec 1997 11:43:34 +0000
parents
children e1d8eb135151
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
rev   line source
1171
Jim Meyering <jim@meyering.net>
parents:
diff changeset
1 /* exclude.c -- exclude file names
Jim Meyering <jim@meyering.net>
parents:
diff changeset
2 Copyright 1992, 1993, 1994, 1997 Free Software Foundation, Inc.
Jim Meyering <jim@meyering.net>
parents:
diff changeset
3
Jim Meyering <jim@meyering.net>
parents:
diff changeset
4 This program is free software; you can redistribute it and/or modify
Jim Meyering <jim@meyering.net>
parents:
diff changeset
5 it under the terms of the GNU General Public License as published by
Jim Meyering <jim@meyering.net>
parents:
diff changeset
6 the Free Software Foundation; either version 2, or (at your option)
Jim Meyering <jim@meyering.net>
parents:
diff changeset
7 any later version.
Jim Meyering <jim@meyering.net>
parents:
diff changeset
8
Jim Meyering <jim@meyering.net>
parents:
diff changeset
9 This program is distributed in the hope that it will be useful,
Jim Meyering <jim@meyering.net>
parents:
diff changeset
10 but WITHOUT ANY WARRANTY; without even the implied warranty of
Jim Meyering <jim@meyering.net>
parents:
diff changeset
11 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
Jim Meyering <jim@meyering.net>
parents:
diff changeset
12 GNU General Public License for more details.
Jim Meyering <jim@meyering.net>
parents:
diff changeset
13
Jim Meyering <jim@meyering.net>
parents:
diff changeset
14 You should have received a copy of the GNU General Public License
Jim Meyering <jim@meyering.net>
parents:
diff changeset
15 along with this program; see the file COPYING.
Jim Meyering <jim@meyering.net>
parents:
diff changeset
16 If not, write to the Free Software Foundation,
Jim Meyering <jim@meyering.net>
parents:
diff changeset
17 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA. */
Jim Meyering <jim@meyering.net>
parents:
diff changeset
18
Jim Meyering <jim@meyering.net>
parents:
diff changeset
19 /* Written by Paul Eggert <eggert@twinsun.com> */
Jim Meyering <jim@meyering.net>
parents:
diff changeset
20
Jim Meyering <jim@meyering.net>
parents:
diff changeset
21 #if HAVE_CONFIG_H
Jim Meyering <jim@meyering.net>
parents:
diff changeset
22 # include <config.h>
Jim Meyering <jim@meyering.net>
parents:
diff changeset
23 #endif
Jim Meyering <jim@meyering.net>
parents:
diff changeset
24
Jim Meyering <jim@meyering.net>
parents:
diff changeset
25 #include <errno.h>
Jim Meyering <jim@meyering.net>
parents:
diff changeset
26 #ifndef errno
Jim Meyering <jim@meyering.net>
parents:
diff changeset
27 extern int errno;
Jim Meyering <jim@meyering.net>
parents:
diff changeset
28 #endif
Jim Meyering <jim@meyering.net>
parents:
diff changeset
29 #include <exclude.h>
Jim Meyering <jim@meyering.net>
parents:
diff changeset
30 #include <fnmatch.h>
Jim Meyering <jim@meyering.net>
parents:
diff changeset
31 #include <stdio.h>
Jim Meyering <jim@meyering.net>
parents:
diff changeset
32 #include <sys/types.h>
Jim Meyering <jim@meyering.net>
parents:
diff changeset
33
Jim Meyering <jim@meyering.net>
parents:
diff changeset
34 void *xmalloc __EXCLUDE_P ((size_t));
Jim Meyering <jim@meyering.net>
parents:
diff changeset
35 void *xrealloc __EXCLUDE_P ((void *, size_t));
Jim Meyering <jim@meyering.net>
parents:
diff changeset
36
Jim Meyering <jim@meyering.net>
parents:
diff changeset
37 /* Keep track of excluded file name patterns. */
Jim Meyering <jim@meyering.net>
parents:
diff changeset
38
Jim Meyering <jim@meyering.net>
parents:
diff changeset
39 struct exclude
Jim Meyering <jim@meyering.net>
parents:
diff changeset
40 {
Jim Meyering <jim@meyering.net>
parents:
diff changeset
41 char const **exclude;
Jim Meyering <jim@meyering.net>
parents:
diff changeset
42 int exclude_alloc;
Jim Meyering <jim@meyering.net>
parents:
diff changeset
43 int exclude_count;
Jim Meyering <jim@meyering.net>
parents:
diff changeset
44 };
Jim Meyering <jim@meyering.net>
parents:
diff changeset
45
Jim Meyering <jim@meyering.net>
parents:
diff changeset
46 struct exclude *
Jim Meyering <jim@meyering.net>
parents:
diff changeset
47 new_exclude (void)
Jim Meyering <jim@meyering.net>
parents:
diff changeset
48 {
Jim Meyering <jim@meyering.net>
parents:
diff changeset
49 struct exclude *ex = (struct exclude *) xmalloc (sizeof (struct exclude));
Jim Meyering <jim@meyering.net>
parents:
diff changeset
50 ex->exclude_count = 0;
Jim Meyering <jim@meyering.net>
parents:
diff changeset
51 ex->exclude_alloc = 64;
Jim Meyering <jim@meyering.net>
parents:
diff changeset
52 ex->exclude = (char const **) xmalloc (ex->exclude_alloc * sizeof (char *));
Jim Meyering <jim@meyering.net>
parents:
diff changeset
53 return ex;
Jim Meyering <jim@meyering.net>
parents:
diff changeset
54 }
Jim Meyering <jim@meyering.net>
parents:
diff changeset
55
Jim Meyering <jim@meyering.net>
parents:
diff changeset
56 int
Jim Meyering <jim@meyering.net>
parents:
diff changeset
57 excluded_filename (struct exclude const *ex, char const *f)
Jim Meyering <jim@meyering.net>
parents:
diff changeset
58 {
Jim Meyering <jim@meyering.net>
parents:
diff changeset
59 char const * const *exclude = ex->exclude;
Jim Meyering <jim@meyering.net>
parents:
diff changeset
60 int exclude_count = ex->exclude_count;
Jim Meyering <jim@meyering.net>
parents:
diff changeset
61 int i;
Jim Meyering <jim@meyering.net>
parents:
diff changeset
62
Jim Meyering <jim@meyering.net>
parents:
diff changeset
63 for (i = 0; i < exclude_count; i++)
Jim Meyering <jim@meyering.net>
parents:
diff changeset
64 if (fnmatch (exclude[i], f, 0) == 0)
Jim Meyering <jim@meyering.net>
parents:
diff changeset
65 return 1;
Jim Meyering <jim@meyering.net>
parents:
diff changeset
66
Jim Meyering <jim@meyering.net>
parents:
diff changeset
67 return 0;
Jim Meyering <jim@meyering.net>
parents:
diff changeset
68 }
Jim Meyering <jim@meyering.net>
parents:
diff changeset
69
Jim Meyering <jim@meyering.net>
parents:
diff changeset
70 void
Jim Meyering <jim@meyering.net>
parents:
diff changeset
71 add_exclude (struct exclude *ex, char const *pattern)
Jim Meyering <jim@meyering.net>
parents:
diff changeset
72 {
Jim Meyering <jim@meyering.net>
parents:
diff changeset
73 if (ex->exclude_alloc <= ex->exclude_count)
Jim Meyering <jim@meyering.net>
parents:
diff changeset
74 ex->exclude = (char const **) xrealloc (ex->exclude,
Jim Meyering <jim@meyering.net>
parents:
diff changeset
75 ((ex->exclude_alloc *= 2)
Jim Meyering <jim@meyering.net>
parents:
diff changeset
76 * sizeof (char *)));
Jim Meyering <jim@meyering.net>
parents:
diff changeset
77
Jim Meyering <jim@meyering.net>
parents:
diff changeset
78 ex->exclude[ex->exclude_count++] = pattern;
Jim Meyering <jim@meyering.net>
parents:
diff changeset
79 }
Jim Meyering <jim@meyering.net>
parents:
diff changeset
80
Jim Meyering <jim@meyering.net>
parents:
diff changeset
81 int
Jim Meyering <jim@meyering.net>
parents:
diff changeset
82 add_exclude_file (struct exclude *ex, char const *filename, char line_end)
Jim Meyering <jim@meyering.net>
parents:
diff changeset
83 {
Jim Meyering <jim@meyering.net>
parents:
diff changeset
84 int use_stdin = filename[0] == '-' && !filename[1];
Jim Meyering <jim@meyering.net>
parents:
diff changeset
85 FILE *in;
Jim Meyering <jim@meyering.net>
parents:
diff changeset
86 char *buf;
Jim Meyering <jim@meyering.net>
parents:
diff changeset
87 char *p;
Jim Meyering <jim@meyering.net>
parents:
diff changeset
88 char const *pattern;
Jim Meyering <jim@meyering.net>
parents:
diff changeset
89 char const *lim;
Jim Meyering <jim@meyering.net>
parents:
diff changeset
90 size_t buf_alloc = 1024;
Jim Meyering <jim@meyering.net>
parents:
diff changeset
91 size_t buf_count = 0;
Jim Meyering <jim@meyering.net>
parents:
diff changeset
92 int c;
Jim Meyering <jim@meyering.net>
parents:
diff changeset
93 int e = 0;
Jim Meyering <jim@meyering.net>
parents:
diff changeset
94
Jim Meyering <jim@meyering.net>
parents:
diff changeset
95 if (use_stdin)
Jim Meyering <jim@meyering.net>
parents:
diff changeset
96 in = stdin;
Jim Meyering <jim@meyering.net>
parents:
diff changeset
97 else if (! (in = fopen (filename, "r")))
Jim Meyering <jim@meyering.net>
parents:
diff changeset
98 return -1;
Jim Meyering <jim@meyering.net>
parents:
diff changeset
99
Jim Meyering <jim@meyering.net>
parents:
diff changeset
100 buf = xmalloc (buf_alloc);
Jim Meyering <jim@meyering.net>
parents:
diff changeset
101
Jim Meyering <jim@meyering.net>
parents:
diff changeset
102 while ((c = getc (in)) != EOF)
Jim Meyering <jim@meyering.net>
parents:
diff changeset
103 {
Jim Meyering <jim@meyering.net>
parents:
diff changeset
104 buf[buf_count++] = c;
Jim Meyering <jim@meyering.net>
parents:
diff changeset
105 if (buf_count == buf_alloc)
Jim Meyering <jim@meyering.net>
parents:
diff changeset
106 buf = xrealloc (buf, buf_alloc *= 2);
Jim Meyering <jim@meyering.net>
parents:
diff changeset
107 }
Jim Meyering <jim@meyering.net>
parents:
diff changeset
108
Jim Meyering <jim@meyering.net>
parents:
diff changeset
109 buf = xrealloc (buf, buf_count + 1);
Jim Meyering <jim@meyering.net>
parents:
diff changeset
110
Jim Meyering <jim@meyering.net>
parents:
diff changeset
111 if (ferror (in))
Jim Meyering <jim@meyering.net>
parents:
diff changeset
112 e = errno;
Jim Meyering <jim@meyering.net>
parents:
diff changeset
113
Jim Meyering <jim@meyering.net>
parents:
diff changeset
114 if (!use_stdin && fclose (in) != 0)
Jim Meyering <jim@meyering.net>
parents:
diff changeset
115 e = errno;
Jim Meyering <jim@meyering.net>
parents:
diff changeset
116
Jim Meyering <jim@meyering.net>
parents:
diff changeset
117 for (pattern = p = buf, lim = buf + buf_count; p <= lim; p++)
Jim Meyering <jim@meyering.net>
parents:
diff changeset
118 if (p < lim ? *p == line_end : buf < p && p[-1])
Jim Meyering <jim@meyering.net>
parents:
diff changeset
119 {
Jim Meyering <jim@meyering.net>
parents:
diff changeset
120 *p = '\0';
Jim Meyering <jim@meyering.net>
parents:
diff changeset
121 add_exclude (ex, pattern);
Jim Meyering <jim@meyering.net>
parents:
diff changeset
122 pattern = p + 1;
Jim Meyering <jim@meyering.net>
parents:
diff changeset
123 }
Jim Meyering <jim@meyering.net>
parents:
diff changeset
124
Jim Meyering <jim@meyering.net>
parents:
diff changeset
125 errno = e;
Jim Meyering <jim@meyering.net>
parents:
diff changeset
126 return e ? -1 : 0;
Jim Meyering <jim@meyering.net>
parents:
diff changeset
127 }