New misc tree that actually has misc stuff in it.

1 files changed, 232 insertions, 0 deletions

diff --git a/libc/misc/fnmatch/fnmatch.c b/libc/misc/fnmatch/fnmatch.c
new file mode 100644
index 000000000..11bb3a112
--- /dev/null
+++ b/libc/misc/fnmatch/fnmatch.c
@@ -0,0 +1,232 @@
+/* Copyright (C) 1991, 1992, 1993, 1996 Free Software Foundation, Inc.
+
+This library is free software; you can redistribute it and/or
+modify it under the terms of the GNU Library General Public License as
+published by the Free Software Foundation; either version 2 of the
+License, or (at your option) any later version.
+
+This library 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
+Library General Public License for more details.
+
+You should have received a copy of the GNU Library General Public
+License along with this library; see the file COPYING.LIB.  If
+not, write to the Free Software Foundation, Inc., 675 Mass Ave,
+Cambridge, MA 02139, USA.  */
+
+#if HAVE_CONFIG_H
+# include <config.h>
+#endif
+
+/* Enable GNU extensions in fnmatch.h.  */
+#ifndef _GNU_SOURCE
+# define _GNU_SOURCE	1
+#endif
+
+#include <errno.h>
+#include <fnmatch.h>
+#include <ctype.h>
+
+
+/* Comment out all this code if we are using the GNU C Library, and are not
+   actually compiling the library itself.  This code is part of the GNU C
+   Library, but also included in many other GNU distributions.  Compiling
+   and linking in this code is a waste when using the GNU C library
+   (especially if it is a shared library).  Rather than having every GNU
+   program understand `configure --with-gnu-libc' and omit the object files,
+   it is simpler to just do this in the source for each such file.  */
+
+#if defined (_LIBC) || !defined (__GNU_LIBRARY__)
+
+
+# if defined (STDC_HEADERS) || !defined (isascii)
+#  define ISASCII(c) 1
+# else
+#  define ISASCII(c) isascii(c)
+# endif
+
+# define ISUPPER(c) (ISASCII (c) && isupper (c))
+
+
+# ifndef errno
+extern int errno;
+# endif
+
+/* Match STRING against the filename pattern PATTERN, returning zero if
+   it matches, nonzero if not.  */
+int fnmatch(pattern, string, flags)
+const char *pattern;
+const char *string;
+int flags;
+{
+	register const char *p = pattern, *n = string;
+	register char c;
+
+/* Note that this evaluates C many times.  */
+# define FOLD(c) ((flags & FNM_CASEFOLD) && ISUPPER (c) ? tolower (c) : (c))
+
+	while ((c = *p++) != '\0') {
+		c = FOLD(c);
+
+		switch (c) {
+		case '?':
+			if (*n == '\0')
+				return FNM_NOMATCH;
+			else if ((flags & FNM_FILE_NAME) && *n == '/')
+				return FNM_NOMATCH;
+			else if ((flags & FNM_PERIOD) && *n == '.' &&
+					 (n == string
+					  || ((flags & FNM_FILE_NAME)
+						  && n[-1] == '/'))) return FNM_NOMATCH;
+			break;
+
+		case '\\':
+			if (!(flags & FNM_NOESCAPE)) {
+				c = *p++;
+				if (c == '\0')
+					/* Trailing \ loses.  */
+					return FNM_NOMATCH;
+				c = FOLD(c);
+			}
+			if (FOLD(*n) != c)
+				return FNM_NOMATCH;
+			break;
+
+		case '*':
+			if ((flags & FNM_PERIOD) && *n == '.' &&
+				(n == string || ((flags & FNM_FILE_NAME) && n[-1] == '/')))
+				return FNM_NOMATCH;
+
+			for (c = *p++; c == '?' || c == '*'; c = *p++) {
+				if ((flags & FNM_FILE_NAME) && *n == '/')
+					/* A slash does not match a wildcard under FNM_FILE_NAME.  */
+					return FNM_NOMATCH;
+				else if (c == '?') {
+					/* A ? needs to match one character.  */
+					if (*n == '\0')
+						/* There isn't another character; no match.  */
+						return FNM_NOMATCH;
+					else
+						/* One character of the string is consumed in matching
+						   this ? wildcard, so *??? won't match if there are
+						   less than three characters.  */
+						++n;
+				}
+			}
+
+			if (c == '\0')
+				return 0;
+
+			{
+				char c1 = (!(flags & FNM_NOESCAPE) && c == '\\') ? *p : c;
+
+				c1 = FOLD(c1);
+				for (--p; *n != '\0'; ++n)
+					if ((c == '[' || FOLD(*n) == c1) &&
+						fnmatch(p, n, flags & ~FNM_PERIOD) == 0)
+						return 0;
+				return FNM_NOMATCH;
+			}
+
+		case '[':
+		{
+			/* Nonzero if the sense of the character class is inverted.  */
+			register int not;
+
+			if (*n == '\0')
+				return FNM_NOMATCH;
+
+			if ((flags & FNM_PERIOD) && *n == '.' &&
+				(n == string || ((flags & FNM_FILE_NAME) && n[-1] == '/')))
+				return FNM_NOMATCH;
+
+			not = (*p == '!' || *p == '^');
+			if (not)
+				++p;
+
+			c = *p++;
+			for (;;) {
+				register char cstart = c, cend = c;
+
+				if (!(flags & FNM_NOESCAPE) && c == '\\') {
+					if (*p == '\0')
+						return FNM_NOMATCH;
+					cstart = cend = *p++;
+				}
+
+				cstart = cend = FOLD(cstart);
+
+				if (c == '\0')
+					/* [ (unterminated) loses.  */
+					return FNM_NOMATCH;
+
+				c = *p++;
+				c = FOLD(c);
+
+				if ((flags & FNM_FILE_NAME) && c == '/')
+					/* [/] can never match.  */
+					return FNM_NOMATCH;
+
+				if (c == '-' && *p != ']') {
+					cend = *p++;
+					if (!(flags & FNM_NOESCAPE) && cend == '\\')
+						cend = *p++;
+					if (cend == '\0')
+						return FNM_NOMATCH;
+					cend = FOLD(cend);
+
+					c = *p++;
+				}
+
+				if (FOLD(*n) >= cstart && FOLD(*n) <= cend)
+					goto matched;
+
+				if (c == ']')
+					break;
+			}
+			if (!not)
+				return FNM_NOMATCH;
+			break;
+
+		  matched:;
+			/* Skip the rest of the [...] that already matched.  */
+			while (c != ']') {
+				if (c == '\0')
+					/* [... (unterminated) loses.  */
+					return FNM_NOMATCH;
+
+				c = *p++;
+				if (!(flags & FNM_NOESCAPE) && c == '\\') {
+					if (*p == '\0')
+						return FNM_NOMATCH;
+					/* XXX 1003.2d11 is unclear if this is right.  */
+					++p;
+				}
+			}
+			if (not)
+				return FNM_NOMATCH;
+		}
+			break;
+
+		default:
+			if (c != FOLD(*n))
+				return FNM_NOMATCH;
+		}
+
+		++n;
+	}
+
+	if (*n == '\0')
+		return 0;
+
+	if ((flags & FNM_LEADING_DIR) && *n == '/')
+		/* The FNM_LEADING_DIR flag says that "foo*" matches "foobar/frobozz".  */
+		return 0;
+
+	return FNM_NOMATCH;
+
+# undef FOLD
+}
+
+#endif							/* _LIBC or not __GNU_LIBRARY__.  */