Mercurial > hg > octave-nkf > gnulib-hg
changeset 1869:0f0905dd78b2
.
author | Jim Meyering <jim@meyering.net> |
---|---|
date | Sun, 04 Jul 1999 10:38:37 +0000 |
parents | 465f010d9cf2 |
children | 66a2b632c4a8 |
files | lib/hard-locale.c lib/hard-locale.h lib/memcoll.c lib/memcoll.h |
diffstat | 4 files changed, 229 insertions(+), 0 deletions(-) [+] |
line wrap: on
line diff
new file mode 100644 --- /dev/null +++ b/lib/hard-locale.c @@ -0,0 +1,85 @@ +/* hard-locale.c -- Determine whether a locale is hard. + Copyright 1997, 1998, 1999 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 2, 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., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA. */ + +#if HAVE_CONFIG_H +# include <config.h> +#endif + +#ifndef __GNUC__ +# ifdef HAVE_ALLOCA_H +# include <alloca.h> +# else +# ifdef _AIX + # pragma alloca +# else +# ifdef _WIN32 +# include <malloc.h> +# include <io.h> +# else +# ifndef alloca +char *alloca (); +# endif +# endif +# endif +# endif +#endif + +#if HAVE_LOCALE_H +# include <locale.h> +#endif + +#if HAVE_STRING_H +# include <string.h> +#endif + +/* Return nonzero if the current CATEGORY locale is hard, i.e. if you + can't get away with assuming traditional C or POSIX behavior. */ +int +hard_locale (int category) +{ +#if ! (defined ENABLE_NLS && HAVE_SETLOCALE) + return 0; +#else + + int hard = 1; + char const *p = setlocale (category, 0); + + if (p) + { +# if defined __GLIBC__ && __GLIBC__ >= 2 + if (strcmp (p, "C") == 0 || strcmp (p, "POSIX") == 0) + hard = 0; +# else + char *locale = alloca (strlen (p) + 1); + strcpy (locale, p); + + /* Temporarily set the locale to the "C" and "POSIX" locales to + find their names, so that we can determine whether one or the + other is the caller's locale. */ + if (((p = setlocale (category, "C")) && strcmp (p, locale) == 0) + || ((p = setlocale (category, "POSIX")) && strcmp (p, locale) == 0)) + hard = 0; + + /* Restore the caller's locale. */ + setlocale (category, locale); +# endif + } + + return hard; + +#endif +}
new file mode 100644 --- /dev/null +++ b/lib/hard-locale.h @@ -0,0 +1,18 @@ +#ifndef HARD_LOCALE_H_ +# define HARD_LOCALE_H_ 1 + +# if HAVE_CONFIG_H +# include <config.h> +# endif + +# ifndef PARAMS +# if defined PROTOTYPES || (defined __STDC__ && __STDC__) +# define PARAMS(Args) Args +# else +# define PARAMS(Args) () +# endif +# endif + +int hard_locale PARAMS ((int)); + +#endif /* HARD_LOCALE_H_ */
new file mode 100644 --- /dev/null +++ b/lib/memcoll.c @@ -0,0 +1,108 @@ +/* Locale-specific memory comparison. + Copyright 1999 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 2, 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., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA. */ + +/* Contributed by Paul Eggert <eggert@twinsun.com>. */ + +#if HAVE_CONFIG_H +# include <config.h> +#endif + +#ifndef __GNUC__ +# ifdef HAVE_ALLOCA_H +# include <alloca.h> +# else +# ifdef _AIX + # pragma alloca +# else +# ifdef _WIN32 +# include <malloc.h> +# include <io.h> +# else +# ifndef alloca +char *alloca (); +# endif +# endif +# endif +# endif +#endif + +#if HAVE_STRING_H +# include <string.h> +#endif + +/* Compare S1 (with length S1LEN) and S2 (with length S2LEN) according + to the LC_COLLATE locale. S1 and S2 do not overlap, but may be + adjacent. Temporarily modify the bytes after S1 and S2, but + restore their original contents before returning. */ +int +memcoll (char *s1, size_t s1len, char *s2, size_t s2len) +{ + int diff; + char n1; + char n2; + + /* We will temporarily set the bytes after S1 and S2 to zero, so if + S1 and S2 are adjacent, compare to a temporary copy of the + earlier, to avoid temporarily stomping on the later. */ + + if (s1 + s1len == s2) + { + char *s2copy = alloca (s2len + 1); + memcpy (s2copy, s2, s2len); + s2 = s2copy; + } + + if (s2 + s2len == s1) + { + char *s1copy = alloca (s1len + 1); + memcpy (s1copy, s1, s1len); + s1 = s1copy; + } + + n1 = s1[s1len]; s1[s1len++] = '\0'; + n2 = s2[s2len]; s2[s2len++] = '\0'; + + while (! (diff = strcoll (s1, s2))) + { + /* strcoll found no difference, but perhaps it was fooled by NUL + characters in the data. Work around this problem by advancing + past the NUL chars. */ + size_t size1 = strlen (s1) + 1; + size_t size2 = strlen (s2) + 1; + s1 += size1; + s2 += size2; + s1len -= size1; + s2len -= size2; + + if (s1len == 0) + { + if (s2len != 0) + diff = -1; + break; + } + else if (s2len == 0) + { + diff = 1; + break; + } + } + + s1[s1len - 1] = n1; + s2[s2len - 1] = n2; + + return diff; +}
new file mode 100644 --- /dev/null +++ b/lib/memcoll.h @@ -0,0 +1,18 @@ +#ifndef MEMCOLL_H_ +# define MEMCOLL_H_ 1 + +# if HAVE_CONFIG_H +# include <config.h> +# endif + +# ifndef PARAMS +# if defined PROTOTYPES || (defined __STDC__ && __STDC__) +# define PARAMS(Args) Args +# else +# define PARAMS(Args) () +# endif +# endif + +int memcoll PARAMS ((char *, size_t, char *, size_t)); + +#endif /* MEMCOLL_H_ */