missing_d/wcmisc.c - master - githubmirror/gawk

missing_d/wcmisc.c
100 строк2 KB
Arnold D. Robbins
More changes for non-MBS case.
14 ноя 2011, 23:43
14 ноя 2011, 23:43cceacad
/* wcmisc.c - replace wcXXXX routines
   Copyright (C) 2011 Free Software Foundation, Inc.

   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 3, 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.,
   51 Franklin Street - Fifth Floor, Boston, MA  02110-1301, USA */

#if !defined(HAVE_WCTYPE) || !defined(HAVE_ISWCTYPE)
static const char *classes[] = {
	"<dummy>",
	"alnum",
	"alpha",
	"blank",
	"cntrl",
	"digit",
	"graph",
	"lower",
	"print",
	"punct",
	"space",
	"upper",
	"xdigit",
	NULL
};
#endif

#ifndef HAVE_ISWCTYPE
static int is_blank (int c)
{
   return (c == ' ' || c == '\t');
}
#endif

#ifndef HAVE_WCTYPE
wctype_t wctype(const char *name)
{
	int i;

	for (i = 1; classes[i] != NULL; i++)
		if (strcmp(name, classes[i]) == 0)
			return i;

	return 0;
}
#endif

#ifndef HAVE_ISWCTYPE
int iswctype(wint_t wc, wctype_t desc)
{
	int j = sizeof(classes) / sizeof(classes[0]);

	if (desc >= j || desc == 0)
		return 0;

	switch (desc) {
	case 1:		return isalnum(wc);
	case 2:		return isalpha(wc);
	case 3:		return is_blank(wc);
	case 4:		return iscntrl(wc);
	case 5:		return isdigit(wc);
	case 6:		return isgraph(wc);
	case 7:		return islower(wc);
	case 8:		return isprint(wc);
	case 9:		return ispunct(wc);
	case 10:	return isspace(wc);
	case 11:	return isupper(wc);
	case 12:	return isxdigit(wc);
	default:	return 0;
	}
}
#endif

#ifndef HAVE_WCSCOLL
int wcscoll(const wchar_t *ws1, const wchar_t *ws2)
{
	size_t i;

	for (i = 0; ws1[i] != 0 && ws2[i] != 0; i++) {
		if (ws1[i] < ws2[i])
			return -1;
		else if (ws1[i] > ws2[i])
			return 1;
	}

	return (ws1[i] - ws2[i]);
}
#endif

/*wcmisc.c*/