Update fake __check_pf implementation.
[kopensolaris-gnu/glibc.git] / posix / tst-fnmatch.c
1 /* Tests for fnmatch function.
2    Copyright (C) 2000, 2001 Free Software Foundation, Inc.
3    This file is part of the GNU C Library.
4
5    The GNU C Library is free software; you can redistribute it and/or
6    modify it under the terms of the GNU Lesser General Public
7    License as published by the Free Software Foundation; either
8    version 2.1 of the License, or (at your option) any later version.
9
10    The GNU C Library is distributed in the hope that it will be useful,
11    but WITHOUT ANY WARRANTY; without even the implied warranty of
12    MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
13    Lesser General Public License for more details.
14
15    You should have received a copy of the GNU Lesser General Public
16    License along with the GNU C Library; if not, write to the Free
17    Software Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA
18    02111-1307 USA.  */
19
20 #include <errno.h>
21 #include <error.h>
22 #include <fnmatch.h>
23 #include <locale.h>
24 #include <stdio.h>
25 #include <stdlib.h>
26 #include <string.h>
27 #include <sys/types.h>
28
29
30 static char *next_input (char **line, int first, int last);
31 static int convert_flags (const char *str);
32 static char *flag_output (int flags);
33 static char *escape (const char *str, size_t *reslenp, char **resbuf);
34
35
36 int
37 main (void)
38 {
39   char *linebuf = NULL;
40   size_t linebuflen = 0;
41   int ntests = 0;
42   int nfailed = 0;
43   char *escinput = NULL;
44   size_t escinputlen = 0;
45   char *escpattern = NULL;
46   size_t escpatternlen = 0;
47   int nr = 0;
48
49   /* Read lines from stdin with the following format:
50
51        locale  input-string  match-string  flags  result
52
53      where `result' is either 0 or 1.  If the first character of a
54      string is '"' we read until the next '"' and handled escaped '"'.  */
55   while (! feof (stdin))
56     {
57       ssize_t n = getline (&linebuf, &linebuflen, stdin);
58       char *cp;
59       const char *locale;
60       const char *input;
61       const char *pattern;
62       const char *result_str;
63       int result;
64       const char *flags;
65       int flags_val;
66       int fnmres;
67       char numbuf[24];
68
69       if (n == -1)
70         break;
71
72       if (n == 0)
73         /* Maybe an empty line.  */
74         continue;
75
76       /* Skip over all leading white spaces.  */
77       cp = linebuf;
78
79       locale = next_input (&cp, 1, 0);
80       if (locale == NULL)
81         continue;
82
83       input = next_input (&cp, 0, 0);
84       if (input == NULL)
85         continue;
86
87       pattern = next_input (&cp, 0, 0);
88       if (pattern == NULL)
89         continue;
90
91       result_str = next_input (&cp, 0, 0);
92       if (result_str == NULL)
93         continue;
94
95       if (strcmp (result_str, "0") == 0)
96         result = 0;
97       else if  (strcasecmp (result_str, "NOMATCH") == 0)
98         result = FNM_NOMATCH;
99       else
100         {
101           char *endp;
102           result = strtol (result_str, &endp, 0);
103           if (*endp != '\0')
104             continue;
105         }
106
107       flags = next_input (&cp, 0, 1);
108       if (flags == NULL)
109         /* We allow the flags missing.  */
110         flags = "";
111
112       /* Convert the text describing the flags in a numeric value.  */
113       flags_val = convert_flags (flags);
114       if (flags_val == -1)
115         /* Something went wrong.  */
116         continue;
117
118       /* Now run the actual test.  */
119       ++ntests;
120
121       if (setlocale (LC_COLLATE, locale) == NULL
122           || setlocale (LC_CTYPE, locale) == NULL)
123         {
124           puts ("*** Cannot set locale");
125           ++nfailed;
126           continue;
127         }
128
129       fnmres = fnmatch (pattern, input, flags_val);
130
131       printf ("%3d: fnmatch (\"%s\", \"%s\", %s) = %s%c",
132               ++nr,
133               escape (pattern, &escpatternlen, &escpattern),
134               escape (input, &escinputlen, &escinput),
135               flag_output (flags_val),
136               (fnmres == 0
137                ? "0" : (fnmres == FNM_NOMATCH
138                         ? "FNM_NOMATCH"
139                         : (sprintf (numbuf, "%d", fnmres), numbuf))),
140               (fnmres != 0) != (result != 0) ? ' ' : '\n');
141
142       if ((fnmres != 0) != (result != 0))
143         {
144           printf ("(FAIL, expected %s) ***\n",
145                   result == 0
146                   ? "0" : (result == FNM_NOMATCH
147                            ? "FNM_NOMATCH"
148                            : (sprintf (numbuf, "%d", result), numbuf)));
149           ++nfailed;
150         }
151     }
152
153   printf ("=====================\n%3d tests, %3d failed\n", ntests, nfailed);
154
155   free (escpattern);
156   free (escinput);
157   free (linebuf);
158
159   return nfailed != 0;
160 }
161
162
163 static char *
164 next_input (char **line, int first, int last)
165 {
166   char *cp = *line;
167   char *result;
168
169   while (*cp == ' ' || *cp == '\t')
170     ++cp;
171
172   /* We allow comment lines starting with '#'.  */
173   if (first && *cp == '#')
174     return NULL;
175
176   if (*cp == '"')
177     {
178       char *wp;
179
180       result = ++cp;
181       wp = cp;
182
183       while (*cp != '"' && *cp != '\0' && *cp != '\n')
184         if (*cp == '\\')
185           {
186             if (cp[1] == '\n' || cp[1] == '\0')
187               return NULL;
188
189             ++cp;
190             if (*cp == 't')
191               *wp++ = '\t';
192             else if (*cp == 'n')
193               *wp++ = '\n';
194             else
195               *wp++ = *cp;
196
197             ++cp;
198           }
199         else
200           *wp++ = *cp++;
201
202       if (*cp != '"')
203         return NULL;
204
205       if (wp != cp)
206         *wp = '\0';
207     }
208   else
209     {
210       result = cp;
211       while (*cp != '\0' && *cp != '\n' && *cp != ' ' && *cp != '\t')
212         ++cp;
213
214       if (cp == result && ! last)
215         /* Premature end of line.  */
216         return NULL;
217     }
218
219   /* Terminate and skip over the next white spaces.  */
220   *cp++ = '\0';
221
222   *line = cp;
223   return result;
224 }
225
226
227 static int
228 convert_flags (const char *str)
229 {
230   int result = 0;
231
232   while (*str != '\0')
233     {
234       int len;
235
236       if (strncasecmp (str, "PATHNAME", 8) == 0
237           && (str[8] == '|' || str[8] == '\0'))
238         {
239           result |= FNM_PATHNAME;
240           len = 8;
241         }
242       else if (strncasecmp (str, "NOESCAPE", 8) == 0
243                && (str[8] == '|' || str[8] == '\0'))
244         {
245           result |= FNM_NOESCAPE;
246           len = 8;
247         }
248       else if (strncasecmp (str, "PERIOD", 6) == 0
249                && (str[6] == '|' || str[6] == '\0'))
250         {
251           result |= FNM_PERIOD;
252           len = 6;
253         }
254       else if (strncasecmp (str, "LEADING_DIR", 11) == 0
255                && (str[11] == '|' || str[11] == '\0'))
256         {
257           result |= FNM_LEADING_DIR;
258           len = 11;
259         }
260       else if (strncasecmp (str, "CASEFOLD", 8) == 0
261                && (str[8] == '|' || str[8] == '\0'))
262         {
263           result |= FNM_CASEFOLD;
264           len = 8;
265         }
266       else if (strncasecmp (str, "EXTMATCH", 8) == 0
267                && (str[8] == '|' || str[8] == '\0'))
268         {
269           result |= FNM_EXTMATCH;
270           len = 8;
271         }
272       else
273         return -1;
274
275       str += len;
276       if (*str != '\0')
277         ++str;
278     }
279
280   return result;
281 }
282
283
284 static char *
285 flag_output (int flags)
286 {
287   static char buf[100];
288   int first = 1;
289   char *cp = buf;
290
291   if (flags & FNM_PATHNAME)
292     {
293       cp = stpcpy (cp, "FNM_PATHNAME");
294       first = 0;
295     }
296   if (flags & FNM_NOESCAPE)
297     {
298       if (! first)
299         *cp++ = '|';
300       cp = stpcpy (cp, "FNM_NOESCAPE");
301       first = 0;
302     }
303   if (flags & FNM_PERIOD)
304     {
305       if (! first)
306         *cp++ = '|';
307       cp = stpcpy (cp, "FNM_PERIOD");
308       first = 0;
309     }
310   if (flags & FNM_LEADING_DIR)
311     {
312       if (! first)
313         *cp++ = '|';
314       cp = stpcpy (cp, "FNM_LEADING_DIR");
315       first = 0;
316     }
317   if (flags & FNM_CASEFOLD)
318     {
319       if (! first)
320         *cp++ = '|';
321       cp = stpcpy (cp, "FNM_CASEFOLD");
322       first = 0;
323     }
324   if (flags & FNM_EXTMATCH)
325     {
326       if (! first)
327         *cp++ = '|';
328       cp = stpcpy (cp, "FNM_EXTMATCH");
329       first = 0;
330     }
331   if (cp == buf)
332     *cp++ = '0';
333   *cp = '\0';
334
335   return buf;
336 }
337
338
339 static char *
340 escape (const char *str, size_t *reslenp, char **resbufp)
341 {
342   size_t reslen = *reslenp;
343   char *resbuf = *resbufp;
344   size_t len = strlen (str);
345   char *wp;
346
347   if (2 * len + 1 > reslen)
348     {
349       resbuf = (char *) realloc (resbuf, 2 * len + 1);
350       if (resbuf == NULL)
351         error (EXIT_FAILURE, errno, "while allocating buffer for printing");
352       *reslenp = 2 * len + 1;
353       *resbufp = resbuf;
354     }
355
356   wp = resbuf;
357   while (*str != '\0')
358     if (*str == '\t')
359       {
360         *wp++ = '\\';
361         *wp++ = 't';
362         ++str;
363       }
364     else if (*str == '\n')
365       {
366         *wp++ = '\\';
367         *wp++ = 'n';
368         ++str;
369       }
370     else if (*str == '"')
371       {
372         *wp++ = '\\';
373         *wp++ = '"';
374         ++str;
375       }
376     else if (*str == '\\')
377       {
378         *wp++ = '\\';
379         *wp++ = '\\';
380         ++str;
381       }
382     else
383       *wp++ = *str++;
384
385   *wp = '\0';
386
387   return resbuf;
388 }