about summary refs log tree commit diff
path: root/locale/findlocale.c
diff options
context:
space:
mode:
Diffstat (limited to 'locale/findlocale.c')
-rw-r--r--locale/findlocale.c192
1 files changed, 192 insertions, 0 deletions
diff --git a/locale/findlocale.c b/locale/findlocale.c
new file mode 100644
index 0000000000..35b1971aa9
--- /dev/null
+++ b/locale/findlocale.c
@@ -0,0 +1,192 @@
+/* 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.
+
+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.
+
+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 "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;
+}
+
+
+/* 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];
+
+
+const struct locale_data *
+_nl_find_locale (const char *locale_path, size_t locale_path_len,
+		 int category, char **name)
+{
+  int mask;
+  /* Name of the locale for this category.  */
+  char *loc_name;
+  const char *language;
+  const char *modifier;
+  const char *territory;
+  const char *codeset;
+  const char *normalized_codeset;
+  const char *special;
+  const char *sponsor;
+  const char *revision;
+  struct loaded_l10nfile *locale_file;
+
+  if ((*name)[0] == '\0')
+    {
+      /* The user decides which locale to use by setting environment
+	 variables.  */
+      *name = getenv ("LC_ALL");
+      if (*name == NULL || (*name)[0] == '\0')
+	*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)
+    {
+      /* We need not load anything.  The needed data is contained in
+	 the library itself.  */
+      *name = (char *) _nl_C_name;
+      return _nl_C[category];
+    }
+
+  /* We really have to load some data.  First see whether the name is
+     an alias.  Please note that this makes it impossible to have "C"
+     or "POSIX" as aliases.  */
+  loc_name = _nl_expand_alias (*name);
+  if (loc_name == NULL)
+    /* It is no alias.  */
+    loc_name = *name;
+
+  /* Make a writable copy of the locale name.  */
+  loc_name = copy (loc_name);
+
+  /* LOCALE can consist of up to four recognized parts for the XPG syntax:
+
+		language[_territory[.codeset]][@modifier]
+
+     and six parts for the CEN syntax:
+
+	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
+     looked for.  The various part will be stripped of according to
+     the following order:
+		(1) revision
+		(2) sponsor
+		(3) special
+		(4) codeset
+		(5) normalized codeset
+		(6) territory
+		(7) audience/modifier
+   */
+  mask = _nl_explode_name (loc_name, &language, &modifier, &territory,
+			   &codeset, &normalized_codeset, &special,
+			   &sponsor, &revision);
+
+  /* If exactly this locale was already asked for we have an entry with
+     the complete name.  */
+  locale_file = _nl_make_l10nflist (&locale_file_list[category],
+				    locale_path, locale_path_len, mask,
+				    language, territory, codeset,
+				    normalized_codeset, modifier, special,
+				    sponsor, revision,
+				    _nl_category_names[category], 0);
+
+  if (locale_file == NULL)
+    {
+      /* Find status record for addressed locale file.  We have to search
+	 through all directories in the locale path.  */
+      locale_file = _nl_make_l10nflist (&locale_file_list[category],
+					locale_path, locale_path_len, mask,
+					language, territory, codeset,
+					normalized_codeset, modifier, special,
+					sponsor, revision,
+					_nl_category_names[category], 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 (loc_name);
+
+  if (locale_file->decided == 0)
+    _nl_load_locale (locale_file, category);
+
+  if (locale_file->data == NULL)
+    {
+      int cnt;
+      for (cnt = 0; locale_file->successor[cnt] != NULL; ++cnt)
+	{
+	  if (locale_file->successor[cnt]->decided == 0)
+	    _nl_load_locale (locale_file->successor[cnt], category);
+	  if (locale_file->successor[cnt]->data != NULL)
+	    break;
+	}
+      /* Move the entry we found (or NULL) to the first place of
+	 successors.  */
+      locale_file->successor[0] = locale_file->successor[cnt];
+      locale_file = locale_file->successor[cnt];
+    }
+
+  if (locale_file == NULL)
+    return NULL;
+
+  /* Determine the locale name for which loading succeeded.  This
+     information comes from the file name.  The form is
+     <path>/<locale>/LC_foo.  We must extract this <locale> part.  */
+  if (((struct locale_data *) locale_file->data)->name == NULL)
+    {
+      char *newp, *cp, *endp;
+
+      endp = strrchr (locale_file->filename, '/');
+      cp = endp - 1;
+      while (cp[-1] != '/')
+	--cp;
+      newp = (char *) malloc (endp - cp + 1);
+      if (newp == NULL)
+	return NULL;
+      memcpy (newp, cp, endp - cp);
+      newp[endp - cp] = '\0';
+      ((struct locale_data *) locale_file->data)->name = newp;
+    }
+  *name = (char *) ((struct locale_data *) locale_file->data)->name;
+
+  return (struct locale_data *) locale_file->data;
+}