octave-kai/gnulib-hg: lib/fnmatch.c annotate

annotate lib/fnmatch.c @ 3920:678b6b899b7c

(WIDE_CHAR_SUPPORT): New macro. Use it uniformly instead of (defined HAVE_WCTYPE_H && defined HAVE_WCHAR_H). It also uses HAVE_BTOWC, to fix a porting bug on Solaris 2.5.1 reported by Vin Shelton.

author	Jim Meyering <jim@meyering.net>
date	Wed, 26 Jun 2002 06:17:35 +0000
parents	7624c7bcc95c
children	6ad23581140d

rev	line source
3908 a6f24c3fd333 Update from diffutils-2.8.2. Jim Meyering <jim@meyering.net> parents: 2954 diff changeset	1 /* Copyright (C) 1991, 1992, 1993, 1996, 1997, 1998, 1999, 2000, 2001,
a6f24c3fd333 Update from diffutils-2.8.2. Jim Meyering <jim@meyering.net> parents: 2954 diff changeset	2 2002 Free Software Foundation, Inc.
5 41c9d08b09d7 Initial revision Jim Meyering <jim@meyering.net> parents: diff changeset	3
1249 260ad4ecb45a Update from libit. Jim Meyering <jim@meyering.net> parents: 884 diff changeset	4 This program is free software; you can redistribute it and/or modify
260ad4ecb45a Update from libit. Jim Meyering <jim@meyering.net> parents: 884 diff changeset	5 it under the terms of the GNU General Public License as published by
260ad4ecb45a Update from libit. Jim Meyering <jim@meyering.net> parents: 884 diff changeset	6 the Free Software Foundation; either version 2, or (at your option)
260ad4ecb45a Update from libit. Jim Meyering <jim@meyering.net> parents: 884 diff changeset	7 any later version.
335 49f195cd5b0e merge with 3.9p Jim Meyering <jim@meyering.net> parents: 327 diff changeset	8
763 d43417ff9717 libitize Jim Meyering <jim@meyering.net> parents: 650 diff changeset	9 This program is distributed in the hope that it will be useful,
d43417ff9717 libitize Jim Meyering <jim@meyering.net> parents: 650 diff changeset	10 but WITHOUT ANY WARRANTY; without even the implied warranty of
d43417ff9717 libitize Jim Meyering <jim@meyering.net> parents: 650 diff changeset	11 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
d43417ff9717 libitize Jim Meyering <jim@meyering.net> parents: 650 diff changeset	12 GNU General Public License for more details.
5 41c9d08b09d7 Initial revision Jim Meyering <jim@meyering.net> parents: diff changeset	13
3908 a6f24c3fd333 Update from diffutils-2.8.2. Jim Meyering <jim@meyering.net> parents: 2954 diff changeset	14 You should have received a copy of the GNU General Public License
a6f24c3fd333 Update from diffutils-2.8.2. Jim Meyering <jim@meyering.net> parents: 2954 diff changeset	15 along with this program; if not, write to the Free Software Foundation,
a6f24c3fd333 Update from diffutils-2.8.2. Jim Meyering <jim@meyering.net> parents: 2954 diff changeset	16 Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA. */
5 41c9d08b09d7 Initial revision Jim Meyering <jim@meyering.net> parents: diff changeset	17
763 d43417ff9717 libitize Jim Meyering <jim@meyering.net> parents: 650 diff changeset	18 #if HAVE_CONFIG_H
d43417ff9717 libitize Jim Meyering <jim@meyering.net> parents: 650 diff changeset	19 # include <config.h>
77 a08372bfb97e merge with 3.4.8 Jim Meyering <jim@meyering.net> parents: 42 diff changeset	20 #endif
a08372bfb97e merge with 3.4.8 Jim Meyering <jim@meyering.net> parents: 42 diff changeset	21
1249 260ad4ecb45a Update from libit. Jim Meyering <jim@meyering.net> parents: 884 diff changeset	22 /* Enable GNU extensions in fnmatch.h. */
260ad4ecb45a Update from libit. Jim Meyering <jim@meyering.net> parents: 884 diff changeset	23 #ifndef _GNU_SOURCE
260ad4ecb45a Update from libit. Jim Meyering <jim@meyering.net> parents: 884 diff changeset	24 # define _GNU_SOURCE 1
260ad4ecb45a Update from libit. Jim Meyering <jim@meyering.net> parents: 884 diff changeset	25 #endif
260ad4ecb45a Update from libit. Jim Meyering <jim@meyering.net> parents: 884 diff changeset	26
3908 a6f24c3fd333 Update from diffutils-2.8.2. Jim Meyering <jim@meyering.net> parents: 2954 diff changeset	27 #ifdef __GNUC__
a6f24c3fd333 Update from diffutils-2.8.2. Jim Meyering <jim@meyering.net> parents: 2954 diff changeset	28 # define alloca __builtin_alloca
a6f24c3fd333 Update from diffutils-2.8.2. Jim Meyering <jim@meyering.net> parents: 2954 diff changeset	29 # define HAVE_ALLOCA 1
a6f24c3fd333 Update from diffutils-2.8.2. Jim Meyering <jim@meyering.net> parents: 2954 diff changeset	30 #else
a6f24c3fd333 Update from diffutils-2.8.2. Jim Meyering <jim@meyering.net> parents: 2954 diff changeset	31 # if defined HAVE_ALLOCA_H \|\| defined _LIBC
a6f24c3fd333 Update from diffutils-2.8.2. Jim Meyering <jim@meyering.net> parents: 2954 diff changeset	32 # include <alloca.h>
a6f24c3fd333 Update from diffutils-2.8.2. Jim Meyering <jim@meyering.net> parents: 2954 diff changeset	33 # else
a6f24c3fd333 Update from diffutils-2.8.2. Jim Meyering <jim@meyering.net> parents: 2954 diff changeset	34 # ifdef _AIX
a6f24c3fd333 Update from diffutils-2.8.2. Jim Meyering <jim@meyering.net> parents: 2954 diff changeset	35 # pragma alloca
a6f24c3fd333 Update from diffutils-2.8.2. Jim Meyering <jim@meyering.net> parents: 2954 diff changeset	36 # else
a6f24c3fd333 Update from diffutils-2.8.2. Jim Meyering <jim@meyering.net> parents: 2954 diff changeset	37 # ifndef alloca
a6f24c3fd333 Update from diffutils-2.8.2. Jim Meyering <jim@meyering.net> parents: 2954 diff changeset	38 char *alloca ();
a6f24c3fd333 Update from diffutils-2.8.2. Jim Meyering <jim@meyering.net> parents: 2954 diff changeset	39 # endif
a6f24c3fd333 Update from diffutils-2.8.2. Jim Meyering <jim@meyering.net> parents: 2954 diff changeset	40 # endif
a6f24c3fd333 Update from diffutils-2.8.2. Jim Meyering <jim@meyering.net> parents: 2954 diff changeset	41 # endif
a6f24c3fd333 Update from diffutils-2.8.2. Jim Meyering <jim@meyering.net> parents: 2954 diff changeset	42 #endif
a6f24c3fd333 Update from diffutils-2.8.2. Jim Meyering <jim@meyering.net> parents: 2954 diff changeset	43
a6f24c3fd333 Update from diffutils-2.8.2. Jim Meyering <jim@meyering.net> parents: 2954 diff changeset	44 #if ! defined __builtin_expect && __GNUC__ < 3
a6f24c3fd333 Update from diffutils-2.8.2. Jim Meyering <jim@meyering.net> parents: 2954 diff changeset	45 # define __builtin_expect(expr, expected) (expr)
a6f24c3fd333 Update from diffutils-2.8.2. Jim Meyering <jim@meyering.net> parents: 2954 diff changeset	46 #endif
a6f24c3fd333 Update from diffutils-2.8.2. Jim Meyering <jim@meyering.net> parents: 2954 diff changeset	47
a6f24c3fd333 Update from diffutils-2.8.2. Jim Meyering <jim@meyering.net> parents: 2954 diff changeset	48 #include <assert.h>
5 41c9d08b09d7 Initial revision Jim Meyering <jim@meyering.net> parents: diff changeset	49 #include <errno.h>
42 a2a5c078f12b updated from FSF Jim Meyering <jim@meyering.net> parents: 5 diff changeset	50 #include <fnmatch.h>
a2a5c078f12b updated from FSF Jim Meyering <jim@meyering.net> parents: 5 diff changeset	51 #include <ctype.h>
5 41c9d08b09d7 Initial revision Jim Meyering <jim@meyering.net> parents: diff changeset	52
3908 a6f24c3fd333 Update from diffutils-2.8.2. Jim Meyering <jim@meyering.net> parents: 2954 diff changeset	53 #if HAVE_STRING_H \|\| defined _LIBC
a6f24c3fd333 Update from diffutils-2.8.2. Jim Meyering <jim@meyering.net> parents: 2954 diff changeset	54 # include <string.h>
2954 d28482de9e26 cppi Jim Meyering <jim@meyering.net> parents: 2953 diff changeset	55 #else
3908 a6f24c3fd333 Update from diffutils-2.8.2. Jim Meyering <jim@meyering.net> parents: 2954 diff changeset	56 # if HAVE_STRINGS_H
a6f24c3fd333 Update from diffutils-2.8.2. Jim Meyering <jim@meyering.net> parents: 2954 diff changeset	57 # include <strings.h>
a6f24c3fd333 Update from diffutils-2.8.2. Jim Meyering <jim@meyering.net> parents: 2954 diff changeset	58 # endif
a6f24c3fd333 Update from diffutils-2.8.2. Jim Meyering <jim@meyering.net> parents: 2954 diff changeset	59 #endif
a6f24c3fd333 Update from diffutils-2.8.2. Jim Meyering <jim@meyering.net> parents: 2954 diff changeset	60
a6f24c3fd333 Update from diffutils-2.8.2. Jim Meyering <jim@meyering.net> parents: 2954 diff changeset	61 #if defined STDC_HEADERS \|\| defined _LIBC
a6f24c3fd333 Update from diffutils-2.8.2. Jim Meyering <jim@meyering.net> parents: 2954 diff changeset	62 # include <stddef.h>
a6f24c3fd333 Update from diffutils-2.8.2. Jim Meyering <jim@meyering.net> parents: 2954 diff changeset	63 # include <stdlib.h>
a6f24c3fd333 Update from diffutils-2.8.2. Jim Meyering <jim@meyering.net> parents: 2954 diff changeset	64 #endif
a6f24c3fd333 Update from diffutils-2.8.2. Jim Meyering <jim@meyering.net> parents: 2954 diff changeset	65
3920 678b6b899b7c (WIDE_CHAR_SUPPORT): New macro. Use it uniformly instead of Jim Meyering <jim@meyering.net> parents: 3912 diff changeset	66 #define WIDE_CHAR_SUPPORT (HAVE_WCTYPE_H && HAVE_WCHAR_H && HAVE_BTOWC)
678b6b899b7c (WIDE_CHAR_SUPPORT): New macro. Use it uniformly instead of Jim Meyering <jim@meyering.net> parents: 3912 diff changeset	67
3908 a6f24c3fd333 Update from diffutils-2.8.2. Jim Meyering <jim@meyering.net> parents: 2954 diff changeset	68 /* For platform which support the ISO C amendement 1 functionality we
a6f24c3fd333 Update from diffutils-2.8.2. Jim Meyering <jim@meyering.net> parents: 2954 diff changeset	69 support user defined character classes. */
3920 678b6b899b7c (WIDE_CHAR_SUPPORT): New macro. Use it uniformly instead of Jim Meyering <jim@meyering.net> parents: 3912 diff changeset	70 #if defined _LIBC \|\| WIDE_CHAR_SUPPORT
3908 a6f24c3fd333 Update from diffutils-2.8.2. Jim Meyering <jim@meyering.net> parents: 2954 diff changeset	71 /* Solaris 2.5 has a bug: <wchar.h> must be included before <wctype.h>. */
a6f24c3fd333 Update from diffutils-2.8.2. Jim Meyering <jim@meyering.net> parents: 2954 diff changeset	72 # include <wchar.h>
a6f24c3fd333 Update from diffutils-2.8.2. Jim Meyering <jim@meyering.net> parents: 2954 diff changeset	73 # include <wctype.h>
2954 d28482de9e26 cppi Jim Meyering <jim@meyering.net> parents: 2953 diff changeset	74 #endif
1249 260ad4ecb45a Update from libit. Jim Meyering <jim@meyering.net> parents: 884 diff changeset	75
3908 a6f24c3fd333 Update from diffutils-2.8.2. Jim Meyering <jim@meyering.net> parents: 2954 diff changeset	76 /* We need some of the locale data (the collation sequence information)
a6f24c3fd333 Update from diffutils-2.8.2. Jim Meyering <jim@meyering.net> parents: 2954 diff changeset	77 but there is no interface to get this information in general. Therefore
a6f24c3fd333 Update from diffutils-2.8.2. Jim Meyering <jim@meyering.net> parents: 2954 diff changeset	78 we support a correct implementation only in glibc. */
a6f24c3fd333 Update from diffutils-2.8.2. Jim Meyering <jim@meyering.net> parents: 2954 diff changeset	79 #ifdef _LIBC
a6f24c3fd333 Update from diffutils-2.8.2. Jim Meyering <jim@meyering.net> parents: 2954 diff changeset	80 # include "../locale/localeinfo.h"
a6f24c3fd333 Update from diffutils-2.8.2. Jim Meyering <jim@meyering.net> parents: 2954 diff changeset	81 # include "../locale/elem-hash.h"
a6f24c3fd333 Update from diffutils-2.8.2. Jim Meyering <jim@meyering.net> parents: 2954 diff changeset	82 # include "../locale/coll-lookup.h"
a6f24c3fd333 Update from diffutils-2.8.2. Jim Meyering <jim@meyering.net> parents: 2954 diff changeset	83 # include <shlib-compat.h>
a6f24c3fd333 Update from diffutils-2.8.2. Jim Meyering <jim@meyering.net> parents: 2954 diff changeset	84
a6f24c3fd333 Update from diffutils-2.8.2. Jim Meyering <jim@meyering.net> parents: 2954 diff changeset	85 # define CONCAT(a,b) __CONCAT(a,b)
a6f24c3fd333 Update from diffutils-2.8.2. Jim Meyering <jim@meyering.net> parents: 2954 diff changeset	86 # define mbsinit __mbsinit
a6f24c3fd333 Update from diffutils-2.8.2. Jim Meyering <jim@meyering.net> parents: 2954 diff changeset	87 # define mbsrtowcs __mbsrtowcs
a6f24c3fd333 Update from diffutils-2.8.2. Jim Meyering <jim@meyering.net> parents: 2954 diff changeset	88 # define fnmatch __fnmatch
a6f24c3fd333 Update from diffutils-2.8.2. Jim Meyering <jim@meyering.net> parents: 2954 diff changeset	89 extern int fnmatch (const char pattern, const char string, int flags);
a6f24c3fd333 Update from diffutils-2.8.2. Jim Meyering <jim@meyering.net> parents: 2954 diff changeset	90 #endif
a6f24c3fd333 Update from diffutils-2.8.2. Jim Meyering <jim@meyering.net> parents: 2954 diff changeset	91
a6f24c3fd333 Update from diffutils-2.8.2. Jim Meyering <jim@meyering.net> parents: 2954 diff changeset	92 /* We often have to test for FNM_FILE_NAME and FNM_PERIOD being both set. */
a6f24c3fd333 Update from diffutils-2.8.2. Jim Meyering <jim@meyering.net> parents: 2954 diff changeset	93 #define NO_LEADING_PERIOD(flags) \
a6f24c3fd333 Update from diffutils-2.8.2. Jim Meyering <jim@meyering.net> parents: 2954 diff changeset	94 ((flags & (FNM_FILE_NAME \| FNM_PERIOD)) == (FNM_FILE_NAME \| FNM_PERIOD))
a6f24c3fd333 Update from diffutils-2.8.2. Jim Meyering <jim@meyering.net> parents: 2954 diff changeset	95
a6f24c3fd333 Update from diffutils-2.8.2. Jim Meyering <jim@meyering.net> parents: 2954 diff changeset	96 /* Comment out all this code if we are using the GNU C Library, are not
a6f24c3fd333 Update from diffutils-2.8.2. Jim Meyering <jim@meyering.net> parents: 2954 diff changeset	97 actually compiling the library itself, and have not detected a bug
a6f24c3fd333 Update from diffutils-2.8.2. Jim Meyering <jim@meyering.net> parents: 2954 diff changeset	98 in the library. This code is part of the GNU C
a6f24c3fd333 Update from diffutils-2.8.2. Jim Meyering <jim@meyering.net> parents: 2954 diff changeset	99 Library, but also included in many other GNU distributions. Compiling
a6f24c3fd333 Update from diffutils-2.8.2. Jim Meyering <jim@meyering.net> parents: 2954 diff changeset	100 and linking in this code is a waste when using the GNU C library
a6f24c3fd333 Update from diffutils-2.8.2. Jim Meyering <jim@meyering.net> parents: 2954 diff changeset	101 (especially if it is a shared library). Rather than having every GNU
a6f24c3fd333 Update from diffutils-2.8.2. Jim Meyering <jim@meyering.net> parents: 2954 diff changeset	102 program understand `configure --with-gnu-libc' and omit the object files,
a6f24c3fd333 Update from diffutils-2.8.2. Jim Meyering <jim@meyering.net> parents: 2954 diff changeset	103 it is simpler to just do this in the source for each such file. */
a6f24c3fd333 Update from diffutils-2.8.2. Jim Meyering <jim@meyering.net> parents: 2954 diff changeset	104
a6f24c3fd333 Update from diffutils-2.8.2. Jim Meyering <jim@meyering.net> parents: 2954 diff changeset	105 #if defined _LIBC \|\| !defined __GNU_LIBRARY__ \|\| !HAVE_FNMATCH_GNU
1249 260ad4ecb45a Update from libit. Jim Meyering <jim@meyering.net> parents: 884 diff changeset	106
763 d43417ff9717 libitize Jim Meyering <jim@meyering.net> parents: 650 diff changeset	107
3908 a6f24c3fd333 Update from diffutils-2.8.2. Jim Meyering <jim@meyering.net> parents: 2954 diff changeset	108 # if defined STDC_HEADERS \|\| !defined isascii
a6f24c3fd333 Update from diffutils-2.8.2. Jim Meyering <jim@meyering.net> parents: 2954 diff changeset	109 # define ISASCII(c) 1
a6f24c3fd333 Update from diffutils-2.8.2. Jim Meyering <jim@meyering.net> parents: 2954 diff changeset	110 # else
a6f24c3fd333 Update from diffutils-2.8.2. Jim Meyering <jim@meyering.net> parents: 2954 diff changeset	111 # define ISASCII(c) isascii(c)
a6f24c3fd333 Update from diffutils-2.8.2. Jim Meyering <jim@meyering.net> parents: 2954 diff changeset	112 # endif
a6f24c3fd333 Update from diffutils-2.8.2. Jim Meyering <jim@meyering.net> parents: 2954 diff changeset	113
a6f24c3fd333 Update from diffutils-2.8.2. Jim Meyering <jim@meyering.net> parents: 2954 diff changeset	114 # ifdef isblank
a6f24c3fd333 Update from diffutils-2.8.2. Jim Meyering <jim@meyering.net> parents: 2954 diff changeset	115 # define ISBLANK(c) (ISASCII (c) && isblank (c))
a6f24c3fd333 Update from diffutils-2.8.2. Jim Meyering <jim@meyering.net> parents: 2954 diff changeset	116 # else
a6f24c3fd333 Update from diffutils-2.8.2. Jim Meyering <jim@meyering.net> parents: 2954 diff changeset	117 # define ISBLANK(c) ((c) == ' ' \|\| (c) == '\t')
a6f24c3fd333 Update from diffutils-2.8.2. Jim Meyering <jim@meyering.net> parents: 2954 diff changeset	118 # endif
a6f24c3fd333 Update from diffutils-2.8.2. Jim Meyering <jim@meyering.net> parents: 2954 diff changeset	119 # ifdef isgraph
a6f24c3fd333 Update from diffutils-2.8.2. Jim Meyering <jim@meyering.net> parents: 2954 diff changeset	120 # define ISGRAPH(c) (ISASCII (c) && isgraph (c))
a6f24c3fd333 Update from diffutils-2.8.2. Jim Meyering <jim@meyering.net> parents: 2954 diff changeset	121 # else
a6f24c3fd333 Update from diffutils-2.8.2. Jim Meyering <jim@meyering.net> parents: 2954 diff changeset	122 # define ISGRAPH(c) (ISASCII (c) && isprint (c) && !isspace (c))
a6f24c3fd333 Update from diffutils-2.8.2. Jim Meyering <jim@meyering.net> parents: 2954 diff changeset	123 # endif
a6f24c3fd333 Update from diffutils-2.8.2. Jim Meyering <jim@meyering.net> parents: 2954 diff changeset	124
a6f24c3fd333 Update from diffutils-2.8.2. Jim Meyering <jim@meyering.net> parents: 2954 diff changeset	125 # define ISPRINT(c) (ISASCII (c) && isprint (c))
a6f24c3fd333 Update from diffutils-2.8.2. Jim Meyering <jim@meyering.net> parents: 2954 diff changeset	126 # define ISDIGIT(c) (ISASCII (c) && isdigit (c))
a6f24c3fd333 Update from diffutils-2.8.2. Jim Meyering <jim@meyering.net> parents: 2954 diff changeset	127 # define ISALNUM(c) (ISASCII (c) && isalnum (c))
a6f24c3fd333 Update from diffutils-2.8.2. Jim Meyering <jim@meyering.net> parents: 2954 diff changeset	128 # define ISALPHA(c) (ISASCII (c) && isalpha (c))
a6f24c3fd333 Update from diffutils-2.8.2. Jim Meyering <jim@meyering.net> parents: 2954 diff changeset	129 # define ISCNTRL(c) (ISASCII (c) && iscntrl (c))
a6f24c3fd333 Update from diffutils-2.8.2. Jim Meyering <jim@meyering.net> parents: 2954 diff changeset	130 # define ISLOWER(c) (ISASCII (c) && islower (c))
a6f24c3fd333 Update from diffutils-2.8.2. Jim Meyering <jim@meyering.net> parents: 2954 diff changeset	131 # define ISPUNCT(c) (ISASCII (c) && ispunct (c))
a6f24c3fd333 Update from diffutils-2.8.2. Jim Meyering <jim@meyering.net> parents: 2954 diff changeset	132 # define ISSPACE(c) (ISASCII (c) && isspace (c))
a6f24c3fd333 Update from diffutils-2.8.2. Jim Meyering <jim@meyering.net> parents: 2954 diff changeset	133 # define ISUPPER(c) (ISASCII (c) && isupper (c))
a6f24c3fd333 Update from diffutils-2.8.2. Jim Meyering <jim@meyering.net> parents: 2954 diff changeset	134 # define ISXDIGIT(c) (ISASCII (c) && isxdigit (c))
a6f24c3fd333 Update from diffutils-2.8.2. Jim Meyering <jim@meyering.net> parents: 2954 diff changeset	135
a6f24c3fd333 Update from diffutils-2.8.2. Jim Meyering <jim@meyering.net> parents: 2954 diff changeset	136 # define STREQ(s1, s2) ((strcmp (s1, s2) == 0))
a6f24c3fd333 Update from diffutils-2.8.2. Jim Meyering <jim@meyering.net> parents: 2954 diff changeset	137
3920 678b6b899b7c (WIDE_CHAR_SUPPORT): New macro. Use it uniformly instead of Jim Meyering <jim@meyering.net> parents: 3912 diff changeset	138 # if defined _LIBC \|\| WIDE_CHAR_SUPPORT
3908 a6f24c3fd333 Update from diffutils-2.8.2. Jim Meyering <jim@meyering.net> parents: 2954 diff changeset	139 /* The GNU C library provides support for user-defined character classes
a6f24c3fd333 Update from diffutils-2.8.2. Jim Meyering <jim@meyering.net> parents: 2954 diff changeset	140 and the functions from ISO C amendement 1. */
a6f24c3fd333 Update from diffutils-2.8.2. Jim Meyering <jim@meyering.net> parents: 2954 diff changeset	141 # ifdef CHARCLASS_NAME_MAX
a6f24c3fd333 Update from diffutils-2.8.2. Jim Meyering <jim@meyering.net> parents: 2954 diff changeset	142 # define CHAR_CLASS_MAX_LENGTH CHARCLASS_NAME_MAX
a6f24c3fd333 Update from diffutils-2.8.2. Jim Meyering <jim@meyering.net> parents: 2954 diff changeset	143 # else
a6f24c3fd333 Update from diffutils-2.8.2. Jim Meyering <jim@meyering.net> parents: 2954 diff changeset	144 /* This shouldn't happen but some implementation might still have this
a6f24c3fd333 Update from diffutils-2.8.2. Jim Meyering <jim@meyering.net> parents: 2954 diff changeset	145 problem. Use a reasonable default value. */
a6f24c3fd333 Update from diffutils-2.8.2. Jim Meyering <jim@meyering.net> parents: 2954 diff changeset	146 # define CHAR_CLASS_MAX_LENGTH 256
a6f24c3fd333 Update from diffutils-2.8.2. Jim Meyering <jim@meyering.net> parents: 2954 diff changeset	147 # endif
5 41c9d08b09d7 Initial revision Jim Meyering <jim@meyering.net> parents: diff changeset	148
3908 a6f24c3fd333 Update from diffutils-2.8.2. Jim Meyering <jim@meyering.net> parents: 2954 diff changeset	149 # ifdef _LIBC
a6f24c3fd333 Update from diffutils-2.8.2. Jim Meyering <jim@meyering.net> parents: 2954 diff changeset	150 # define IS_CHAR_CLASS(string) __wctype (string)
a6f24c3fd333 Update from diffutils-2.8.2. Jim Meyering <jim@meyering.net> parents: 2954 diff changeset	151 # else
a6f24c3fd333 Update from diffutils-2.8.2. Jim Meyering <jim@meyering.net> parents: 2954 diff changeset	152 # define IS_CHAR_CLASS(string) wctype (string)
a6f24c3fd333 Update from diffutils-2.8.2. Jim Meyering <jim@meyering.net> parents: 2954 diff changeset	153 # endif
a6f24c3fd333 Update from diffutils-2.8.2. Jim Meyering <jim@meyering.net> parents: 2954 diff changeset	154
a6f24c3fd333 Update from diffutils-2.8.2. Jim Meyering <jim@meyering.net> parents: 2954 diff changeset	155 # ifdef _LIBC
a6f24c3fd333 Update from diffutils-2.8.2. Jim Meyering <jim@meyering.net> parents: 2954 diff changeset	156 # define ISWCTYPE(WC, WT) __iswctype (WC, WT)
a6f24c3fd333 Update from diffutils-2.8.2. Jim Meyering <jim@meyering.net> parents: 2954 diff changeset	157 # else
a6f24c3fd333 Update from diffutils-2.8.2. Jim Meyering <jim@meyering.net> parents: 2954 diff changeset	158 # define ISWCTYPE(WC, WT) iswctype (WC, WT)
a6f24c3fd333 Update from diffutils-2.8.2. Jim Meyering <jim@meyering.net> parents: 2954 diff changeset	159 # endif
a6f24c3fd333 Update from diffutils-2.8.2. Jim Meyering <jim@meyering.net> parents: 2954 diff changeset	160
a6f24c3fd333 Update from diffutils-2.8.2. Jim Meyering <jim@meyering.net> parents: 2954 diff changeset	161 # if (HAVE_MBSTATE_T && HAVE_MBSRTOWCS) \|\| _LIBC
a6f24c3fd333 Update from diffutils-2.8.2. Jim Meyering <jim@meyering.net> parents: 2954 diff changeset	162 /* In this case we are implementing the multibyte character handling. */
a6f24c3fd333 Update from diffutils-2.8.2. Jim Meyering <jim@meyering.net> parents: 2954 diff changeset	163 # define HANDLE_MULTIBYTE 1
a6f24c3fd333 Update from diffutils-2.8.2. Jim Meyering <jim@meyering.net> parents: 2954 diff changeset	164 # endif
a6f24c3fd333 Update from diffutils-2.8.2. Jim Meyering <jim@meyering.net> parents: 2954 diff changeset	165
a6f24c3fd333 Update from diffutils-2.8.2. Jim Meyering <jim@meyering.net> parents: 2954 diff changeset	166 # else
a6f24c3fd333 Update from diffutils-2.8.2. Jim Meyering <jim@meyering.net> parents: 2954 diff changeset	167 # define CHAR_CLASS_MAX_LENGTH 6 /* Namely, `xdigit'. */
a6f24c3fd333 Update from diffutils-2.8.2. Jim Meyering <jim@meyering.net> parents: 2954 diff changeset	168
a6f24c3fd333 Update from diffutils-2.8.2. Jim Meyering <jim@meyering.net> parents: 2954 diff changeset	169 # define IS_CHAR_CLASS(string) \
a6f24c3fd333 Update from diffutils-2.8.2. Jim Meyering <jim@meyering.net> parents: 2954 diff changeset	170 (STREQ (string, "alpha") \|\| STREQ (string, "upper") \
a6f24c3fd333 Update from diffutils-2.8.2. Jim Meyering <jim@meyering.net> parents: 2954 diff changeset	171 \|\| STREQ (string, "lower") \|\| STREQ (string, "digit") \
a6f24c3fd333 Update from diffutils-2.8.2. Jim Meyering <jim@meyering.net> parents: 2954 diff changeset	172 \|\| STREQ (string, "alnum") \|\| STREQ (string, "xdigit") \
a6f24c3fd333 Update from diffutils-2.8.2. Jim Meyering <jim@meyering.net> parents: 2954 diff changeset	173 \|\| STREQ (string, "space") \|\| STREQ (string, "print") \
a6f24c3fd333 Update from diffutils-2.8.2. Jim Meyering <jim@meyering.net> parents: 2954 diff changeset	174 \|\| STREQ (string, "punct") \|\| STREQ (string, "graph") \
a6f24c3fd333 Update from diffutils-2.8.2. Jim Meyering <jim@meyering.net> parents: 2954 diff changeset	175 \|\| STREQ (string, "cntrl") \|\| STREQ (string, "blank"))
a6f24c3fd333 Update from diffutils-2.8.2. Jim Meyering <jim@meyering.net> parents: 2954 diff changeset	176 # endif
a6f24c3fd333 Update from diffutils-2.8.2. Jim Meyering <jim@meyering.net> parents: 2954 diff changeset	177
a6f24c3fd333 Update from diffutils-2.8.2. Jim Meyering <jim@meyering.net> parents: 2954 diff changeset	178 /* Avoid depending on library functions or files
a6f24c3fd333 Update from diffutils-2.8.2. Jim Meyering <jim@meyering.net> parents: 2954 diff changeset	179 whose names are inconsistent. */
a6f24c3fd333 Update from diffutils-2.8.2. Jim Meyering <jim@meyering.net> parents: 2954 diff changeset	180
a6f24c3fd333 Update from diffutils-2.8.2. Jim Meyering <jim@meyering.net> parents: 2954 diff changeset	181 # if !defined _LIBC && !defined getenv && !HAVE_DECL_GETENV
a6f24c3fd333 Update from diffutils-2.8.2. Jim Meyering <jim@meyering.net> parents: 2954 diff changeset	182 extern char *getenv ();
a6f24c3fd333 Update from diffutils-2.8.2. Jim Meyering <jim@meyering.net> parents: 2954 diff changeset	183 # endif
a6f24c3fd333 Update from diffutils-2.8.2. Jim Meyering <jim@meyering.net> parents: 2954 diff changeset	184
a6f24c3fd333 Update from diffutils-2.8.2. Jim Meyering <jim@meyering.net> parents: 2954 diff changeset	185 # ifndef errno
a6f24c3fd333 Update from diffutils-2.8.2. Jim Meyering <jim@meyering.net> parents: 2954 diff changeset	186 extern int errno;
a6f24c3fd333 Update from diffutils-2.8.2. Jim Meyering <jim@meyering.net> parents: 2954 diff changeset	187 # endif
a6f24c3fd333 Update from diffutils-2.8.2. Jim Meyering <jim@meyering.net> parents: 2954 diff changeset	188
a6f24c3fd333 Update from diffutils-2.8.2. Jim Meyering <jim@meyering.net> parents: 2954 diff changeset	189 /* Global variable. */
a6f24c3fd333 Update from diffutils-2.8.2. Jim Meyering <jim@meyering.net> parents: 2954 diff changeset	190 static int posixly_correct;
a6f24c3fd333 Update from diffutils-2.8.2. Jim Meyering <jim@meyering.net> parents: 2954 diff changeset	191
a6f24c3fd333 Update from diffutils-2.8.2. Jim Meyering <jim@meyering.net> parents: 2954 diff changeset	192 # ifndef internal_function
a6f24c3fd333 Update from diffutils-2.8.2. Jim Meyering <jim@meyering.net> parents: 2954 diff changeset	193 /* Inside GNU libc we mark some function in a special way. In other
a6f24c3fd333 Update from diffutils-2.8.2. Jim Meyering <jim@meyering.net> parents: 2954 diff changeset	194 environments simply ignore the marking. */
a6f24c3fd333 Update from diffutils-2.8.2. Jim Meyering <jim@meyering.net> parents: 2954 diff changeset	195 # define internal_function
a6f24c3fd333 Update from diffutils-2.8.2. Jim Meyering <jim@meyering.net> parents: 2954 diff changeset	196 # endif
5 41c9d08b09d7 Initial revision Jim Meyering <jim@meyering.net> parents: diff changeset	197
884 9aec202d41b1 . Jim Meyering <jim@meyering.net> parents: 763 diff changeset	198 /* Note that this evaluates C many times. */
3908 a6f24c3fd333 Update from diffutils-2.8.2. Jim Meyering <jim@meyering.net> parents: 2954 diff changeset	199 # ifdef _LIBC
a6f24c3fd333 Update from diffutils-2.8.2. Jim Meyering <jim@meyering.net> parents: 2954 diff changeset	200 # define FOLD(c) ((flags & FNM_CASEFOLD) ? tolower (c) : (c))
a6f24c3fd333 Update from diffutils-2.8.2. Jim Meyering <jim@meyering.net> parents: 2954 diff changeset	201 # else
a6f24c3fd333 Update from diffutils-2.8.2. Jim Meyering <jim@meyering.net> parents: 2954 diff changeset	202 # define FOLD(c) ((flags & FNM_CASEFOLD) && ISUPPER (c) ? tolower (c) : (c))
a6f24c3fd333 Update from diffutils-2.8.2. Jim Meyering <jim@meyering.net> parents: 2954 diff changeset	203 # endif
a6f24c3fd333 Update from diffutils-2.8.2. Jim Meyering <jim@meyering.net> parents: 2954 diff changeset	204 # define CHAR char
a6f24c3fd333 Update from diffutils-2.8.2. Jim Meyering <jim@meyering.net> parents: 2954 diff changeset	205 # define UCHAR unsigned char
a6f24c3fd333 Update from diffutils-2.8.2. Jim Meyering <jim@meyering.net> parents: 2954 diff changeset	206 # define INT int
a6f24c3fd333 Update from diffutils-2.8.2. Jim Meyering <jim@meyering.net> parents: 2954 diff changeset	207 # define FCT internal_fnmatch
a6f24c3fd333 Update from diffutils-2.8.2. Jim Meyering <jim@meyering.net> parents: 2954 diff changeset	208 # define EXT ext_match
a6f24c3fd333 Update from diffutils-2.8.2. Jim Meyering <jim@meyering.net> parents: 2954 diff changeset	209 # define END end_pattern
a6f24c3fd333 Update from diffutils-2.8.2. Jim Meyering <jim@meyering.net> parents: 2954 diff changeset	210 # define L(CS) CS
a6f24c3fd333 Update from diffutils-2.8.2. Jim Meyering <jim@meyering.net> parents: 2954 diff changeset	211 # ifdef _LIBC
a6f24c3fd333 Update from diffutils-2.8.2. Jim Meyering <jim@meyering.net> parents: 2954 diff changeset	212 # define BTOWC(C) __btowc (C)
a6f24c3fd333 Update from diffutils-2.8.2. Jim Meyering <jim@meyering.net> parents: 2954 diff changeset	213 # else
a6f24c3fd333 Update from diffutils-2.8.2. Jim Meyering <jim@meyering.net> parents: 2954 diff changeset	214 # define BTOWC(C) btowc (C)
a6f24c3fd333 Update from diffutils-2.8.2. Jim Meyering <jim@meyering.net> parents: 2954 diff changeset	215 # endif
a6f24c3fd333 Update from diffutils-2.8.2. Jim Meyering <jim@meyering.net> parents: 2954 diff changeset	216 # define STRLEN(S) strlen (S)
a6f24c3fd333 Update from diffutils-2.8.2. Jim Meyering <jim@meyering.net> parents: 2954 diff changeset	217 # define STRCAT(D, S) strcat (D, S)
a6f24c3fd333 Update from diffutils-2.8.2. Jim Meyering <jim@meyering.net> parents: 2954 diff changeset	218 # ifdef _LIBC
a6f24c3fd333 Update from diffutils-2.8.2. Jim Meyering <jim@meyering.net> parents: 2954 diff changeset	219 # define MEMPCPY(D, S, N) __mempcpy (D, S, N)
a6f24c3fd333 Update from diffutils-2.8.2. Jim Meyering <jim@meyering.net> parents: 2954 diff changeset	220 # else
a6f24c3fd333 Update from diffutils-2.8.2. Jim Meyering <jim@meyering.net> parents: 2954 diff changeset	221 # if HAVE_MEMPCPY
a6f24c3fd333 Update from diffutils-2.8.2. Jim Meyering <jim@meyering.net> parents: 2954 diff changeset	222 # define MEMPCPY(D, S, N) mempcpy (D, S, N)
a6f24c3fd333 Update from diffutils-2.8.2. Jim Meyering <jim@meyering.net> parents: 2954 diff changeset	223 # else
a6f24c3fd333 Update from diffutils-2.8.2. Jim Meyering <jim@meyering.net> parents: 2954 diff changeset	224 # define MEMPCPY(D, S, N) ((void ) ((char ) memcpy (D, S, N) + (N)))
a6f24c3fd333 Update from diffutils-2.8.2. Jim Meyering <jim@meyering.net> parents: 2954 diff changeset	225 # endif
a6f24c3fd333 Update from diffutils-2.8.2. Jim Meyering <jim@meyering.net> parents: 2954 diff changeset	226 # endif
a6f24c3fd333 Update from diffutils-2.8.2. Jim Meyering <jim@meyering.net> parents: 2954 diff changeset	227 # define MEMCHR(S, C, N) memchr (S, C, N)
a6f24c3fd333 Update from diffutils-2.8.2. Jim Meyering <jim@meyering.net> parents: 2954 diff changeset	228 # define STRCOLL(S1, S2) strcoll (S1, S2)
a6f24c3fd333 Update from diffutils-2.8.2. Jim Meyering <jim@meyering.net> parents: 2954 diff changeset	229 # include "fnmatch_loop.c"
42 a2a5c078f12b updated from FSF Jim Meyering <jim@meyering.net> parents: 5 diff changeset	230
5 41c9d08b09d7 Initial revision Jim Meyering <jim@meyering.net> parents: diff changeset	231
3908 a6f24c3fd333 Update from diffutils-2.8.2. Jim Meyering <jim@meyering.net> parents: 2954 diff changeset	232 # if HANDLE_MULTIBYTE
a6f24c3fd333 Update from diffutils-2.8.2. Jim Meyering <jim@meyering.net> parents: 2954 diff changeset	233 # define FOLD(c) ((flags & FNM_CASEFOLD) ? towlower (c) : (c))
a6f24c3fd333 Update from diffutils-2.8.2. Jim Meyering <jim@meyering.net> parents: 2954 diff changeset	234 # define CHAR wchar_t
a6f24c3fd333 Update from diffutils-2.8.2. Jim Meyering <jim@meyering.net> parents: 2954 diff changeset	235 # define UCHAR wint_t
a6f24c3fd333 Update from diffutils-2.8.2. Jim Meyering <jim@meyering.net> parents: 2954 diff changeset	236 # define INT wint_t
a6f24c3fd333 Update from diffutils-2.8.2. Jim Meyering <jim@meyering.net> parents: 2954 diff changeset	237 # define FCT internal_fnwmatch
a6f24c3fd333 Update from diffutils-2.8.2. Jim Meyering <jim@meyering.net> parents: 2954 diff changeset	238 # define EXT ext_wmatch
a6f24c3fd333 Update from diffutils-2.8.2. Jim Meyering <jim@meyering.net> parents: 2954 diff changeset	239 # define END end_wpattern
a6f24c3fd333 Update from diffutils-2.8.2. Jim Meyering <jim@meyering.net> parents: 2954 diff changeset	240 # define L(CS) L##CS
a6f24c3fd333 Update from diffutils-2.8.2. Jim Meyering <jim@meyering.net> parents: 2954 diff changeset	241 # define BTOWC(C) (C)
a6f24c3fd333 Update from diffutils-2.8.2. Jim Meyering <jim@meyering.net> parents: 2954 diff changeset	242 # ifdef _LIBC
a6f24c3fd333 Update from diffutils-2.8.2. Jim Meyering <jim@meyering.net> parents: 2954 diff changeset	243 # define STRLEN(S) __wcslen (S)
a6f24c3fd333 Update from diffutils-2.8.2. Jim Meyering <jim@meyering.net> parents: 2954 diff changeset	244 # define STRCAT(D, S) __wcscat (D, S)
a6f24c3fd333 Update from diffutils-2.8.2. Jim Meyering <jim@meyering.net> parents: 2954 diff changeset	245 # define MEMPCPY(D, S, N) __wmempcpy (D, S, N)
a6f24c3fd333 Update from diffutils-2.8.2. Jim Meyering <jim@meyering.net> parents: 2954 diff changeset	246 # else
a6f24c3fd333 Update from diffutils-2.8.2. Jim Meyering <jim@meyering.net> parents: 2954 diff changeset	247 # define STRLEN(S) wcslen (S)
a6f24c3fd333 Update from diffutils-2.8.2. Jim Meyering <jim@meyering.net> parents: 2954 diff changeset	248 # define STRCAT(D, S) wcscat (D, S)
a6f24c3fd333 Update from diffutils-2.8.2. Jim Meyering <jim@meyering.net> parents: 2954 diff changeset	249 # if HAVE_WMEMPCPY
a6f24c3fd333 Update from diffutils-2.8.2. Jim Meyering <jim@meyering.net> parents: 2954 diff changeset	250 # define MEMPCPY(D, S, N) wmempcpy (D, S, N)
a6f24c3fd333 Update from diffutils-2.8.2. Jim Meyering <jim@meyering.net> parents: 2954 diff changeset	251 # else
a6f24c3fd333 Update from diffutils-2.8.2. Jim Meyering <jim@meyering.net> parents: 2954 diff changeset	252 # define MEMPCPY(D, S, N) (wmemcpy (D, S, N) + (N))
a6f24c3fd333 Update from diffutils-2.8.2. Jim Meyering <jim@meyering.net> parents: 2954 diff changeset	253 # endif
a6f24c3fd333 Update from diffutils-2.8.2. Jim Meyering <jim@meyering.net> parents: 2954 diff changeset	254 # endif
a6f24c3fd333 Update from diffutils-2.8.2. Jim Meyering <jim@meyering.net> parents: 2954 diff changeset	255 # define MEMCHR(S, C, N) wmemchr (S, C, N)
a6f24c3fd333 Update from diffutils-2.8.2. Jim Meyering <jim@meyering.net> parents: 2954 diff changeset	256 # define STRCOLL(S1, S2) wcscoll (S1, S2)
a6f24c3fd333 Update from diffutils-2.8.2. Jim Meyering <jim@meyering.net> parents: 2954 diff changeset	257 # define WIDE_CHAR_VERSION 1
5 41c9d08b09d7 Initial revision Jim Meyering <jim@meyering.net> parents: diff changeset	258
3908 a6f24c3fd333 Update from diffutils-2.8.2. Jim Meyering <jim@meyering.net> parents: 2954 diff changeset	259 # undef IS_CHAR_CLASS
a6f24c3fd333 Update from diffutils-2.8.2. Jim Meyering <jim@meyering.net> parents: 2954 diff changeset	260 /* We have to convert the wide character string in a multibyte string. But
a6f24c3fd333 Update from diffutils-2.8.2. Jim Meyering <jim@meyering.net> parents: 2954 diff changeset	261 we know that the character class names consist of alphanumeric characters
a6f24c3fd333 Update from diffutils-2.8.2. Jim Meyering <jim@meyering.net> parents: 2954 diff changeset	262 from the portable character set, and since the wide character encoding
a6f24c3fd333 Update from diffutils-2.8.2. Jim Meyering <jim@meyering.net> parents: 2954 diff changeset	263 for a member of the portable character set is the same code point as
a6f24c3fd333 Update from diffutils-2.8.2. Jim Meyering <jim@meyering.net> parents: 2954 diff changeset	264 its single-byte encoding, we can use a simplified method to convert the
a6f24c3fd333 Update from diffutils-2.8.2. Jim Meyering <jim@meyering.net> parents: 2954 diff changeset	265 string to a multibyte character string. */
a6f24c3fd333 Update from diffutils-2.8.2. Jim Meyering <jim@meyering.net> parents: 2954 diff changeset	266 static wctype_t
a6f24c3fd333 Update from diffutils-2.8.2. Jim Meyering <jim@meyering.net> parents: 2954 diff changeset	267 is_char_class (const wchar_t *wcs)
a6f24c3fd333 Update from diffutils-2.8.2. Jim Meyering <jim@meyering.net> parents: 2954 diff changeset	268 {
a6f24c3fd333 Update from diffutils-2.8.2. Jim Meyering <jim@meyering.net> parents: 2954 diff changeset	269 char s[CHAR_CLASS_MAX_LENGTH + 1];
a6f24c3fd333 Update from diffutils-2.8.2. Jim Meyering <jim@meyering.net> parents: 2954 diff changeset	270 char *cp = s;
5 41c9d08b09d7 Initial revision Jim Meyering <jim@meyering.net> parents: diff changeset	271
3908 a6f24c3fd333 Update from diffutils-2.8.2. Jim Meyering <jim@meyering.net> parents: 2954 diff changeset	272 do
a6f24c3fd333 Update from diffutils-2.8.2. Jim Meyering <jim@meyering.net> parents: 2954 diff changeset	273 {
a6f24c3fd333 Update from diffutils-2.8.2. Jim Meyering <jim@meyering.net> parents: 2954 diff changeset	274 /* Test for a printable character from the portable character set. */
a6f24c3fd333 Update from diffutils-2.8.2. Jim Meyering <jim@meyering.net> parents: 2954 diff changeset	275 # ifdef _LIBC
a6f24c3fd333 Update from diffutils-2.8.2. Jim Meyering <jim@meyering.net> parents: 2954 diff changeset	276 if (wcs < 0x20 \|\| wcs > 0x7e
a6f24c3fd333 Update from diffutils-2.8.2. Jim Meyering <jim@meyering.net> parents: 2954 diff changeset	277 \|\| wcs == 0x24 \|\| wcs == 0x40 \|\| *wcs == 0x60)
a6f24c3fd333 Update from diffutils-2.8.2. Jim Meyering <jim@meyering.net> parents: 2954 diff changeset	278 return (wctype_t) 0;
a6f24c3fd333 Update from diffutils-2.8.2. Jim Meyering <jim@meyering.net> parents: 2954 diff changeset	279 # else
a6f24c3fd333 Update from diffutils-2.8.2. Jim Meyering <jim@meyering.net> parents: 2954 diff changeset	280 switch (*wcs)
a6f24c3fd333 Update from diffutils-2.8.2. Jim Meyering <jim@meyering.net> parents: 2954 diff changeset	281 {
a6f24c3fd333 Update from diffutils-2.8.2. Jim Meyering <jim@meyering.net> parents: 2954 diff changeset	282 case L' ': case L'!': case L'"': case L'#': case L'%':
a6f24c3fd333 Update from diffutils-2.8.2. Jim Meyering <jim@meyering.net> parents: 2954 diff changeset	283 case L'&': case L'\'': case L'(': case L')': case L'*':
a6f24c3fd333 Update from diffutils-2.8.2. Jim Meyering <jim@meyering.net> parents: 2954 diff changeset	284 case L'+': case L',': case L'-': case L'.': case L'/':
a6f24c3fd333 Update from diffutils-2.8.2. Jim Meyering <jim@meyering.net> parents: 2954 diff changeset	285 case L'0': case L'1': case L'2': case L'3': case L'4':
a6f24c3fd333 Update from diffutils-2.8.2. Jim Meyering <jim@meyering.net> parents: 2954 diff changeset	286 case L'5': case L'6': case L'7': case L'8': case L'9':
a6f24c3fd333 Update from diffutils-2.8.2. Jim Meyering <jim@meyering.net> parents: 2954 diff changeset	287 case L':': case L';': case L'<': case L'=': case L'>':
a6f24c3fd333 Update from diffutils-2.8.2. Jim Meyering <jim@meyering.net> parents: 2954 diff changeset	288 case L'?':
a6f24c3fd333 Update from diffutils-2.8.2. Jim Meyering <jim@meyering.net> parents: 2954 diff changeset	289 case L'A': case L'B': case L'C': case L'D': case L'E':
a6f24c3fd333 Update from diffutils-2.8.2. Jim Meyering <jim@meyering.net> parents: 2954 diff changeset	290 case L'F': case L'G': case L'H': case L'I': case L'J':
a6f24c3fd333 Update from diffutils-2.8.2. Jim Meyering <jim@meyering.net> parents: 2954 diff changeset	291 case L'K': case L'L': case L'M': case L'N': case L'O':
a6f24c3fd333 Update from diffutils-2.8.2. Jim Meyering <jim@meyering.net> parents: 2954 diff changeset	292 case L'P': case L'Q': case L'R': case L'S': case L'T':
a6f24c3fd333 Update from diffutils-2.8.2. Jim Meyering <jim@meyering.net> parents: 2954 diff changeset	293 case L'U': case L'V': case L'W': case L'X': case L'Y':
a6f24c3fd333 Update from diffutils-2.8.2. Jim Meyering <jim@meyering.net> parents: 2954 diff changeset	294 case L'Z':
a6f24c3fd333 Update from diffutils-2.8.2. Jim Meyering <jim@meyering.net> parents: 2954 diff changeset	295 case L'[': case L'\\': case L']': case L'^': case L'_':
a6f24c3fd333 Update from diffutils-2.8.2. Jim Meyering <jim@meyering.net> parents: 2954 diff changeset	296 case L'a': case L'b': case L'c': case L'd': case L'e':
a6f24c3fd333 Update from diffutils-2.8.2. Jim Meyering <jim@meyering.net> parents: 2954 diff changeset	297 case L'f': case L'g': case L'h': case L'i': case L'j':
a6f24c3fd333 Update from diffutils-2.8.2. Jim Meyering <jim@meyering.net> parents: 2954 diff changeset	298 case L'k': case L'l': case L'm': case L'n': case L'o':
a6f24c3fd333 Update from diffutils-2.8.2. Jim Meyering <jim@meyering.net> parents: 2954 diff changeset	299 case L'p': case L'q': case L'r': case L's': case L't':
a6f24c3fd333 Update from diffutils-2.8.2. Jim Meyering <jim@meyering.net> parents: 2954 diff changeset	300 case L'u': case L'v': case L'w': case L'x': case L'y':
a6f24c3fd333 Update from diffutils-2.8.2. Jim Meyering <jim@meyering.net> parents: 2954 diff changeset	301 case L'z': case L'{': case L'\|': case L'}': case L'~':
a6f24c3fd333 Update from diffutils-2.8.2. Jim Meyering <jim@meyering.net> parents: 2954 diff changeset	302 break;
a6f24c3fd333 Update from diffutils-2.8.2. Jim Meyering <jim@meyering.net> parents: 2954 diff changeset	303 default:
a6f24c3fd333 Update from diffutils-2.8.2. Jim Meyering <jim@meyering.net> parents: 2954 diff changeset	304 return (wctype_t) 0;
a6f24c3fd333 Update from diffutils-2.8.2. Jim Meyering <jim@meyering.net> parents: 2954 diff changeset	305 }
a6f24c3fd333 Update from diffutils-2.8.2. Jim Meyering <jim@meyering.net> parents: 2954 diff changeset	306 # endif
5 41c9d08b09d7 Initial revision Jim Meyering <jim@meyering.net> parents: diff changeset	307
3908 a6f24c3fd333 Update from diffutils-2.8.2. Jim Meyering <jim@meyering.net> parents: 2954 diff changeset	308 /* Avoid overrunning the buffer. */
a6f24c3fd333 Update from diffutils-2.8.2. Jim Meyering <jim@meyering.net> parents: 2954 diff changeset	309 if (cp == s + CHAR_CLASS_MAX_LENGTH)
a6f24c3fd333 Update from diffutils-2.8.2. Jim Meyering <jim@meyering.net> parents: 2954 diff changeset	310 return (wctype_t) 0;
5 41c9d08b09d7 Initial revision Jim Meyering <jim@meyering.net> parents: diff changeset	311
3908 a6f24c3fd333 Update from diffutils-2.8.2. Jim Meyering <jim@meyering.net> parents: 2954 diff changeset	312 cp++ = (char) wcs++;
a6f24c3fd333 Update from diffutils-2.8.2. Jim Meyering <jim@meyering.net> parents: 2954 diff changeset	313 }
a6f24c3fd333 Update from diffutils-2.8.2. Jim Meyering <jim@meyering.net> parents: 2954 diff changeset	314 while (*wcs != L'\0');
a6f24c3fd333 Update from diffutils-2.8.2. Jim Meyering <jim@meyering.net> parents: 2954 diff changeset	315
a6f24c3fd333 Update from diffutils-2.8.2. Jim Meyering <jim@meyering.net> parents: 2954 diff changeset	316 *cp = '\0';
5 41c9d08b09d7 Initial revision Jim Meyering <jim@meyering.net> parents: diff changeset	317
3908 a6f24c3fd333 Update from diffutils-2.8.2. Jim Meyering <jim@meyering.net> parents: 2954 diff changeset	318 # ifdef _LIBC
a6f24c3fd333 Update from diffutils-2.8.2. Jim Meyering <jim@meyering.net> parents: 2954 diff changeset	319 return __wctype (s);
a6f24c3fd333 Update from diffutils-2.8.2. Jim Meyering <jim@meyering.net> parents: 2954 diff changeset	320 # else
a6f24c3fd333 Update from diffutils-2.8.2. Jim Meyering <jim@meyering.net> parents: 2954 diff changeset	321 return wctype (s);
a6f24c3fd333 Update from diffutils-2.8.2. Jim Meyering <jim@meyering.net> parents: 2954 diff changeset	322 # endif
a6f24c3fd333 Update from diffutils-2.8.2. Jim Meyering <jim@meyering.net> parents: 2954 diff changeset	323 }
a6f24c3fd333 Update from diffutils-2.8.2. Jim Meyering <jim@meyering.net> parents: 2954 diff changeset	324 # define IS_CHAR_CLASS(string) is_char_class (string)
42 a2a5c078f12b updated from FSF Jim Meyering <jim@meyering.net> parents: 5 diff changeset	325
3908 a6f24c3fd333 Update from diffutils-2.8.2. Jim Meyering <jim@meyering.net> parents: 2954 diff changeset	326 # include "fnmatch_loop.c"
a6f24c3fd333 Update from diffutils-2.8.2. Jim Meyering <jim@meyering.net> parents: 2954 diff changeset	327 # endif
5 41c9d08b09d7 Initial revision Jim Meyering <jim@meyering.net> parents: diff changeset	328
41c9d08b09d7 Initial revision Jim Meyering <jim@meyering.net> parents: diff changeset	329
3908 a6f24c3fd333 Update from diffutils-2.8.2. Jim Meyering <jim@meyering.net> parents: 2954 diff changeset	330 int
a6f24c3fd333 Update from diffutils-2.8.2. Jim Meyering <jim@meyering.net> parents: 2954 diff changeset	331 fnmatch (pattern, string, flags)
a6f24c3fd333 Update from diffutils-2.8.2. Jim Meyering <jim@meyering.net> parents: 2954 diff changeset	332 const char *pattern;
a6f24c3fd333 Update from diffutils-2.8.2. Jim Meyering <jim@meyering.net> parents: 2954 diff changeset	333 const char *string;
a6f24c3fd333 Update from diffutils-2.8.2. Jim Meyering <jim@meyering.net> parents: 2954 diff changeset	334 int flags;
a6f24c3fd333 Update from diffutils-2.8.2. Jim Meyering <jim@meyering.net> parents: 2954 diff changeset	335 {
a6f24c3fd333 Update from diffutils-2.8.2. Jim Meyering <jim@meyering.net> parents: 2954 diff changeset	336 # if HANDLE_MULTIBYTE
a6f24c3fd333 Update from diffutils-2.8.2. Jim Meyering <jim@meyering.net> parents: 2954 diff changeset	337 if (__builtin_expect (MB_CUR_MAX, 1) != 1)
a6f24c3fd333 Update from diffutils-2.8.2. Jim Meyering <jim@meyering.net> parents: 2954 diff changeset	338 {
a6f24c3fd333 Update from diffutils-2.8.2. Jim Meyering <jim@meyering.net> parents: 2954 diff changeset	339 mbstate_t ps;
a6f24c3fd333 Update from diffutils-2.8.2. Jim Meyering <jim@meyering.net> parents: 2954 diff changeset	340 size_t n;
a6f24c3fd333 Update from diffutils-2.8.2. Jim Meyering <jim@meyering.net> parents: 2954 diff changeset	341 wchar_t *wpattern;
a6f24c3fd333 Update from diffutils-2.8.2. Jim Meyering <jim@meyering.net> parents: 2954 diff changeset	342 wchar_t *wstring;
a6f24c3fd333 Update from diffutils-2.8.2. Jim Meyering <jim@meyering.net> parents: 2954 diff changeset	343
a6f24c3fd333 Update from diffutils-2.8.2. Jim Meyering <jim@meyering.net> parents: 2954 diff changeset	344 /* Convert the strings into wide characters. */
a6f24c3fd333 Update from diffutils-2.8.2. Jim Meyering <jim@meyering.net> parents: 2954 diff changeset	345 memset (&ps, '\0', sizeof (ps));
a6f24c3fd333 Update from diffutils-2.8.2. Jim Meyering <jim@meyering.net> parents: 2954 diff changeset	346 n = mbsrtowcs (NULL, &pattern, 0, &ps);
a6f24c3fd333 Update from diffutils-2.8.2. Jim Meyering <jim@meyering.net> parents: 2954 diff changeset	347 if (__builtin_expect (n, 0) == (size_t) -1)
a6f24c3fd333 Update from diffutils-2.8.2. Jim Meyering <jim@meyering.net> parents: 2954 diff changeset	348 /* Something wrong.
a6f24c3fd333 Update from diffutils-2.8.2. Jim Meyering <jim@meyering.net> parents: 2954 diff changeset	349 XXX Do we have to set `errno' to something which mbsrtows hasn't
a6f24c3fd333 Update from diffutils-2.8.2. Jim Meyering <jim@meyering.net> parents: 2954 diff changeset	350 already done? */
a6f24c3fd333 Update from diffutils-2.8.2. Jim Meyering <jim@meyering.net> parents: 2954 diff changeset	351 return -1;
a6f24c3fd333 Update from diffutils-2.8.2. Jim Meyering <jim@meyering.net> parents: 2954 diff changeset	352 wpattern = (wchar_t ) alloca ((n + 1) sizeof (wchar_t));
a6f24c3fd333 Update from diffutils-2.8.2. Jim Meyering <jim@meyering.net> parents: 2954 diff changeset	353 assert (mbsinit (&ps));
a6f24c3fd333 Update from diffutils-2.8.2. Jim Meyering <jim@meyering.net> parents: 2954 diff changeset	354 (void) mbsrtowcs (wpattern, &pattern, n + 1, &ps);
5 41c9d08b09d7 Initial revision Jim Meyering <jim@meyering.net> parents: diff changeset	355
3908 a6f24c3fd333 Update from diffutils-2.8.2. Jim Meyering <jim@meyering.net> parents: 2954 diff changeset	356 assert (mbsinit (&ps));
a6f24c3fd333 Update from diffutils-2.8.2. Jim Meyering <jim@meyering.net> parents: 2954 diff changeset	357 n = mbsrtowcs (NULL, &string, 0, &ps);
a6f24c3fd333 Update from diffutils-2.8.2. Jim Meyering <jim@meyering.net> parents: 2954 diff changeset	358 if (__builtin_expect (n, 0) == (size_t) -1)
a6f24c3fd333 Update from diffutils-2.8.2. Jim Meyering <jim@meyering.net> parents: 2954 diff changeset	359 /* Something wrong.
a6f24c3fd333 Update from diffutils-2.8.2. Jim Meyering <jim@meyering.net> parents: 2954 diff changeset	360 XXX Do we have to set `errno' to something which mbsrtows hasn't
a6f24c3fd333 Update from diffutils-2.8.2. Jim Meyering <jim@meyering.net> parents: 2954 diff changeset	361 already done? */
a6f24c3fd333 Update from diffutils-2.8.2. Jim Meyering <jim@meyering.net> parents: 2954 diff changeset	362 return -1;
a6f24c3fd333 Update from diffutils-2.8.2. Jim Meyering <jim@meyering.net> parents: 2954 diff changeset	363 wstring = (wchar_t ) alloca ((n + 1) sizeof (wchar_t));
a6f24c3fd333 Update from diffutils-2.8.2. Jim Meyering <jim@meyering.net> parents: 2954 diff changeset	364 assert (mbsinit (&ps));
a6f24c3fd333 Update from diffutils-2.8.2. Jim Meyering <jim@meyering.net> parents: 2954 diff changeset	365 (void) mbsrtowcs (wstring, &string, n + 1, &ps);
5 41c9d08b09d7 Initial revision Jim Meyering <jim@meyering.net> parents: diff changeset	366
3908 a6f24c3fd333 Update from diffutils-2.8.2. Jim Meyering <jim@meyering.net> parents: 2954 diff changeset	367 return internal_fnwmatch (wpattern, wstring, wstring + n,
a6f24c3fd333 Update from diffutils-2.8.2. Jim Meyering <jim@meyering.net> parents: 2954 diff changeset	368 flags & FNM_PERIOD, flags);
a6f24c3fd333 Update from diffutils-2.8.2. Jim Meyering <jim@meyering.net> parents: 2954 diff changeset	369 }
a6f24c3fd333 Update from diffutils-2.8.2. Jim Meyering <jim@meyering.net> parents: 2954 diff changeset	370 # endif /* mbstate_t and mbsrtowcs or _LIBC. */
5 41c9d08b09d7 Initial revision Jim Meyering <jim@meyering.net> parents: diff changeset	371
3908 a6f24c3fd333 Update from diffutils-2.8.2. Jim Meyering <jim@meyering.net> parents: 2954 diff changeset	372 return internal_fnmatch (pattern, string, string + strlen (string),
a6f24c3fd333 Update from diffutils-2.8.2. Jim Meyering <jim@meyering.net> parents: 2954 diff changeset	373 flags & FNM_PERIOD, flags);
a6f24c3fd333 Update from diffutils-2.8.2. Jim Meyering <jim@meyering.net> parents: 2954 diff changeset	374 }
5 41c9d08b09d7 Initial revision Jim Meyering <jim@meyering.net> parents: diff changeset	375
3908 a6f24c3fd333 Update from diffutils-2.8.2. Jim Meyering <jim@meyering.net> parents: 2954 diff changeset	376 # ifdef _LIBC
a6f24c3fd333 Update from diffutils-2.8.2. Jim Meyering <jim@meyering.net> parents: 2954 diff changeset	377 # undef fnmatch
a6f24c3fd333 Update from diffutils-2.8.2. Jim Meyering <jim@meyering.net> parents: 2954 diff changeset	378 versioned_symbol (libc, __fnmatch, fnmatch, GLIBC_2_2_3);
a6f24c3fd333 Update from diffutils-2.8.2. Jim Meyering <jim@meyering.net> parents: 2954 diff changeset	379 # if SHLIB_COMPAT(libc, GLIBC_2_0, GLIBC_2_2_3)
a6f24c3fd333 Update from diffutils-2.8.2. Jim Meyering <jim@meyering.net> parents: 2954 diff changeset	380 strong_alias (__fnmatch, __fnmatch_old)
a6f24c3fd333 Update from diffutils-2.8.2. Jim Meyering <jim@meyering.net> parents: 2954 diff changeset	381 compat_symbol (libc, __fnmatch_old, fnmatch, GLIBC_2_0);
a6f24c3fd333 Update from diffutils-2.8.2. Jim Meyering <jim@meyering.net> parents: 2954 diff changeset	382 # endif
a6f24c3fd333 Update from diffutils-2.8.2. Jim Meyering <jim@meyering.net> parents: 2954 diff changeset	383 # endif
42 a2a5c078f12b updated from FSF Jim Meyering <jim@meyering.net> parents: 5 diff changeset	384
3908 a6f24c3fd333 Update from diffutils-2.8.2. Jim Meyering <jim@meyering.net> parents: 2954 diff changeset	385 #endif /* _LIBC or not __GNU_LIBRARY__. */

Mercurial > hg > octave-kai > gnulib-hg

annotate lib/fnmatch.c @ 3920:678b6b899b7c