(repertoiremap_hash): Don't specify array size.
[kopensolaris-gnu/glibc.git] / locale / findlocale.c
index 2bcc111..5f600b6 100644 (file)
@@ -1,52 +1,45 @@
-/* Copyright (C) 1996 Free Software Foundation, Inc.
-This file is part of the GNU C Library.
-Contributed by Ulrich Drepper <drepper@gnu.ai.mit.edu>, 1996.
+/* Copyright (C) 1996, 1997, 1998, 1999, 2000 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.
+   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.
 
-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.
+   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.
 
-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 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.  */
 
 #include <locale.h>
 #include <stdlib.h>
 #include <string.h>
+#include <unistd.h>
+#ifdef _POSIX_MAPPED_FILES
+# include <sys/mman.h>
+#endif
 
 #include "localeinfo.h"
 
 
 /* Constant data defined in setlocale.c.  */
-extern const struct locale_data *const _nl_C[];
-
-
-static inline char *
-copy (const char *string)
-{
-  size_t len;
-  char *new;
-  len = strlen (string) + 1;
-  new = (char *) malloc (len);
-  return new != NULL ? memcpy (new, string, len) : NULL;
-}
+extern struct locale_data *const _nl_C[];
 
 
 /* For each category we keep a list of records for the locale files
    which are somehow addressed.  */
-static struct loaded_l10nfile *locale_file_list[LC_ALL];
+static struct loaded_l10nfile *locale_file_list[__LC_LAST];
 
 
-const struct locale_data *
+struct locale_data *
 _nl_find_locale (const char *locale_path, size_t locale_path_len,
-                int category, char **name)
+                int category, const char **name)
 {
   int mask;
   /* Name of the locale for this category.  */
@@ -70,11 +63,15 @@ _nl_find_locale (const char *locale_path, size_t locale_path_len,
        *name = getenv (_nl_category_names[category]);
       if (*name == NULL || (*name)[0] == '\0')
        *name = getenv ("LANG");
-      if (*name == NULL || (*name)[0] == '\0')
-       *name = (char *) _nl_C_name;
     }
 
-  if (strcmp (*name, _nl_C_name) == 0 || strcmp (*name, "POSIX") == 0)
+  if (*name == NULL || (*name)[0] == '\0'
+      || (__builtin_expect (__libc_enable_secure, 0)
+         && strchr (*name, '/') != NULL))
+    *name = (char *) _nl_C_name;
+
+  if (__builtin_expect (strcmp (*name, _nl_C_name), 1) == 0
+      || __builtin_expect (strcmp (*name, _nl_POSIX_name), 1) == 0)
     {
       /* We need not load anything.  The needed data is contained in
         the library itself.  */
@@ -88,10 +85,10 @@ _nl_find_locale (const char *locale_path, size_t locale_path_len,
   loc_name = (char *) _nl_expand_alias (*name);
   if (loc_name == NULL)
     /* It is no alias.  */
-    loc_name = *name;
+    loc_name = (char *) *name;
 
   /* Make a writable copy of the locale name.  */
-  loc_name = copy (loc_name);
+  loc_name = strdupa (loc_name);
 
   /* LOCALE can consist of up to four recognized parts for the XPG syntax:
 
@@ -99,7 +96,7 @@ _nl_find_locale (const char *locale_path, size_t locale_path_len,
 
      and six parts for the CEN syntax:
 
-       language[_territory][+audience][+special][,sponsor][_revision]
+       language[_territory][+audience][+special][,[sponsor][_revision]]
 
      Beside the first all of them are allowed to be missing.  If the
      full specified locale is not found, the less specific one are
@@ -124,7 +121,7 @@ _nl_find_locale (const char *locale_path, size_t locale_path_len,
                                    language, territory, codeset,
                                    normalized_codeset, modifier, special,
                                    sponsor, revision,
-                                   _nl_category_names[category], 0);
+                                   _nl_category_names[category], NULL, 0);
 
   if (locale_file == NULL)
     {
@@ -135,16 +132,15 @@ _nl_find_locale (const char *locale_path, size_t locale_path_len,
                                        language, territory, codeset,
                                        normalized_codeset, modifier, special,
                                        sponsor, revision,
-                                       _nl_category_names[category], 1);
+                                       _nl_category_names[category], NULL, 1);
       if (locale_file == NULL)
        /* This means we are out of core.  */
        return NULL;
     }
-  else
-    /* If the addressed locale is already available it should be freed.
-       If we would not do this switching back and force between two
-       locales would slowly eat up all memory.*/
-    free ((void *) loc_name);
+
+  /* The space for normalized_codeset is dynamically allocated.  Free it.  */
+  if (mask & XPG_NORM_CODESET)
+    free ((void *) normalized_codeset);
 
   if (locale_file->decided == 0)
     _nl_load_locale (locale_file, category);
@@ -163,10 +159,10 @@ _nl_find_locale (const char *locale_path, size_t locale_path_len,
         successors.  */
       locale_file->successor[0] = locale_file->successor[cnt];
       locale_file = locale_file->successor[cnt];
-    }
 
-  if (locale_file == NULL)
-    return NULL;
+      if (locale_file == NULL)
+       return NULL;
+    }
 
   /* Determine the locale name for which loading succeeded.  This
      information comes from the file name.  The form is
@@ -184,5 +180,86 @@ _nl_find_locale (const char *locale_path, size_t locale_path_len,
     }
   *name = (char *) ((struct locale_data *) locale_file->data)->name;
 
+  /* Determine whether the user wants transliteration or not.  */
+  if ((modifier != NULL && __strcasecmp (modifier, "TRANSLIT") == 0)
+      || (special != NULL && __strcasecmp (special, "TRANSLIT") == 0))
+    ((struct locale_data *) locale_file->data)->use_translit = 1;
+
+  /* Increment the usage count.  */
+  if (((struct locale_data *) locale_file->data)->usage_count
+      < MAX_USAGE_COUNT)
+    ++((struct locale_data *) locale_file->data)->usage_count;
+
   return (struct locale_data *) locale_file->data;
 }
+
+
+/* Calling this function assumes the lock for handling global locale data
+   is acquired.  */
+void
+_nl_remove_locale (int locale, struct locale_data *data)
+{
+  if (--data->usage_count == 0)
+    {
+      /* First search the entry in the list of loaded files.  */
+      struct loaded_l10nfile *ptr = locale_file_list[locale];
+
+      /* Search for the entry.  It must be in the list.  Otherwise it
+        is a bug and we crash badly.  */
+      while ((struct locale_data *) ptr->data != data)
+       ptr = ptr->next;
+
+      /* Mark the data as not available anymore.  So when the data has
+        to be used again it is reloaded.  */
+      ptr->decided = 0;
+      ptr->data = NULL;
+
+      /* Free the name.  */
+      free ((char *) data->name);
+
+#ifdef _POSIX_MAPPED_FILES
+      /* Really delete the data.  First delete the real data.  */
+      if (__builtin_expect (data->mmaped, 1))
+       {
+         /* Try to unmap the area.  If this fails we mark the area as
+            permanent.  */
+         if (__munmap ((caddr_t) data->filedata, data->filesize) != 0)
+           {
+             data->usage_count = UNDELETABLE;
+             return;
+           }
+       }
+      else
+#endif /* _POSIX_MAPPED_FILES */
+       /* The memory was malloced.  */
+       free ((void *) data->filedata);
+
+      /* Now free the structure itself.  */
+      free (data);
+    }
+}
+
+static void __attribute__ ((unused))
+free_mem (void)
+{
+  int category;
+
+  for (category = 0; category < __LC_LAST; ++category)
+    if (category != LC_ALL)
+      {
+       struct loaded_l10nfile *runp = locale_file_list[category];
+
+       while (runp != NULL)
+         {
+           struct loaded_l10nfile *here = runp;
+           struct locale_data *data = (struct locale_data *) runp->data;
+
+           if (data != NULL && data->usage_count != UNDELETABLE)
+             _nl_unload_locale (data);
+           runp = runp->next;
+           free ((char *) here->filename);
+           free (here);
+         }
+      }
+}
+text_set_element (__libc_subfreeres, free_mem);