2002-08-26 Roland McGrath <roland@redhat.com>
[kopensolaris-gnu/glibc.git] / locale / newlocale.c
index 4a2f145..14c116b 100644 (file)
@@ -1,22 +1,22 @@
 /* Return a reference to locale information record.
-   Copyright (C) 1996, 1997, 1999 Free Software Foundation, Inc.
+   Copyright (C) 1996,1997,1999,2000,2001,2002 Free Software Foundation, Inc.
    This file is part of the GNU C Library.
    Contributed by Ulrich Drepper <drepper@cygnus.com>, 1996.
 
    The GNU C 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.
+   modify it under the terms of the GNU Lesser General Public
+   License as published by the Free Software Foundation; either
+   version 2.1 of the License, or (at your option) any later version.
 
    The GNU C 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.
+   Lesser General Public License for more details.
 
-   You should have received a copy of the GNU Library General Public
-   License along with the GNU C Library; see the file COPYING.LIB.  If not,
-   write to the Free Software Foundation, Inc., 59 Temple Place - Suite 330,
-   Boston, MA 02111-1307, USA.  */
+   You should have received a copy of the GNU Lesser General Public
+   License along with the GNU C Library; if not, write to the Free
+   Software Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA
+   02111-1307 USA.  */
 
 #include <argz.h>
 #include <errno.h>
@@ -26,9 +26,6 @@
 #include "localeinfo.h"
 
 
-/* Constant data defined in setlocale.c.  */
-extern struct locale_data *const _nl_C[];
-
 /* Use this when we come along an error.  */
 #define ERROR_RETURN                                                         \
   do {                                                                       \
@@ -50,11 +47,11 @@ __newlocale (int category_mask, const char *locale, __locale_t base)
   int cnt;
 
   /* We treat LC_ALL in the same way as if all bits were set.  */
-  if (category_mask == LC_ALL)
+  if (category_mask == 1 << LC_ALL)
     category_mask = (1 << __LC_LAST) - 1 - (1 << LC_ALL);
 
   /* Sanity check for CATEGORY argument.  */
-  if ((category_mask & ~((1 << LC_ALL) - 1 - (1 << LC_ALL))) != 0)
+  if ((category_mask & ~((1 << __LC_LAST) - 1 - (1 << LC_ALL))) != 0)
     ERROR_RETURN;
 
   /* `newlocale' does not support asking for the locale name. */
@@ -63,46 +60,42 @@ __newlocale (int category_mask, const char *locale, __locale_t base)
 
   /* Allocate memory for the result.  */
   if (base != NULL)
-    {
-      if (base != NULL)
-       return base;
-
-      result = *base;
-    }
+    result = *base;
   else
+    /* Fill with pointers to C locale data.  */
+    result = _nl_C_locobj;
+
+  /* If no category is to be set we return BASE if available or a
+     dataset using the C locale data.  */
+  if (category_mask == 0)
     {
-      /* Fill with pointers to C locale data to .  */
-      for (cnt = 0; cnt < __LC_LAST; ++cnt)
-       if (cnt != LC_ALL)
-         result.__locales[cnt] = _nl_C[cnt];
-
-      /* If no category is to be set we return BASE if available or a
-        dataset using the C locale data.  */
-      if (category_mask == 0)
-       {
-         result_ptr = (__locale_t) malloc (sizeof (struct __locale_struct));
-         *result_ptr = result;
+      result_ptr = (__locale_t) malloc (sizeof (struct __locale_struct));
+      if (result_ptr == NULL)
+       return NULL;
+      *result_ptr = result;
 
-         goto update;
-       }
+      goto update;
     }
 
   /* We perhaps really have to load some data.  So we determine the
      path in which to look for the data now.  The environment variable
      `LOCPATH' must only be used when the binary has no SUID or SGID
-     bit set.  */
+     bit set.  If using the default path, we tell _nl_find_locale
+     by passing null and it can check the canonical locale archive.  */
   locale_path = NULL;
   locale_path_len = 0;
 
-  locpath_var = __secure_getenv ("LOCPATH");
+  locpath_var = getenv ("LOCPATH");
   if (locpath_var != NULL && locpath_var[0] != '\0')
-    if (__argz_create_sep (locpath_var, ':',
-                          &locale_path, &locale_path_len) != 0)
-      return NULL;
+    {
+      if (__argz_create_sep (locpath_var, ':',
+                            &locale_path, &locale_path_len) != 0)
+       return NULL;
 
-  if (__argz_append (&locale_path, &locale_path_len,
-                    LOCALE_PATH, sizeof (LOCALE_PATH)) != 0)
-    return NULL;
+      if (__argz_add_sep (&locale_path, &locale_path_len,
+                         _nl_default_locale_path, ':') != 0)
+       return NULL;
+    }
 
   /* Get the names for the locales we are interested in.  We either
      allow a composite name or a single name.  */
@@ -114,6 +107,7 @@ __newlocale (int category_mask, const char *locale, __locale_t base)
       /* This is a composite name.  Make a copy and split it up.  */
       char *np = strdupa (locale);
       char *cp;
+      int specified_mask = 0;
 
       while ((cp = strchr (np, '=')) != NULL)
        {
@@ -128,6 +122,7 @@ __newlocale (int category_mask, const char *locale, __locale_t base)
            ERROR_RETURN;
 
          /* Found the category this clause sets.  */
+         specified_mask |= 1 << cnt;
          newnames[cnt] = ++cp;
          cp = strchr (cp, ';');
          if (cp != NULL)
@@ -141,11 +136,9 @@ __newlocale (int category_mask, const char *locale, __locale_t base)
            break;
        }
 
-      for (cnt = 0; cnt < __LC_LAST; ++cnt)
-       if (cnt != LC_ALL
-           && (category_mask & 1 << cnt) != 0 && newnames[cnt] == locale)
-         /* The composite name did not specify the category we need.  */
-         ERROR_RETURN;
+      if (category_mask &~ specified_mask)
+       /* The composite name did not specify all categories we need.  */
+       ERROR_RETURN;
     }
 
   /* Now process all categories we are interested in.  */
@@ -166,22 +159,25 @@ __newlocale (int category_mask, const char *locale, __locale_t base)
       if (result_ptr == NULL)
        return NULL;
 
-      *result_ptr = result;
     }
   else
-    *(result_ptr = base) = result;
+    /* We modify the base structure.  */
+    result_ptr = base;
+
+  *result_ptr = result;
 
   /* Update the special members.  */
  update:
   {
     union locale_data_value *ctypes = result_ptr->__locales[LC_CTYPE]->values;
-  result_ptr->__ctype_b = (const unsigned short int *)
-    (ctypes[_NL_ITEM_INDEX (_NL_CTYPE_CLASS)] .string);
-  result_ptr->__ctype_tolower = (const int *)
-    (ctypes[_NL_ITEM_INDEX (_NL_CTYPE_TOLOWER)].string);
-  result_ptr->__ctype_toupper = (const int *)
-    (ctypes[_NL_ITEM_INDEX (_NL_CTYPE_TOUPPER)].string);
+    result_ptr->__ctype_b = (const unsigned short int *)
+      ctypes[_NL_ITEM_INDEX (_NL_CTYPE_CLASS)].string + 128;
+    result_ptr->__ctype_tolower = (const int *)
+      ctypes[_NL_ITEM_INDEX (_NL_CTYPE_TOLOWER)].string + 128;
+    result_ptr->__ctype_toupper = (const int *)
+      ctypes[_NL_ITEM_INDEX (_NL_CTYPE_TOUPPER)].string + 128;
   }
 
   return result_ptr;
 }
+weak_alias (__newlocale, newlocale)