Sun Mar 5 19:40:13 1995 Roland McGrath <roland@churchy.gnu.ai.mit.edu>

	* locale/localeinfo.h: Rewritten for new locale system, using
	locale data files and with <langinfo.h> interface.
	* locale/setlocale.c: Rewritten to use locale data files.
	* langinfo.h: New file.
        * locale/langinfo.h: New file.
        * locale/nl_langinfo.c: New file.
        * locale/loadlocale.c: New file.
        * locale/lc-ctype.c: New file.
        * locale/lc-messages.c: New file.
        * locale/lc-monetary.c: New file.
        * locale/lc-numeric.c: New file.
        * locale/lc-time.c: New file.
        * locale/categories.def: New file.
	* locale/Makefile (headers): Remove localeinfo.h.
	(distribute): New variable; put localeinfo.h here, and categories.def.
	(routines): Add loadlocale.
	(categories): New variable.
	(aux): Use that to get C-category and lc-category.
	* ctype/ctype.h (_IS*): Use independent bits for all but _ISalnum.
	* locale/C-ctype.c, locale/C-messages.c: New files.
 	* locale/C-monetary.c, locale/C-numeric.c, locale/C-time.c:
	Default "C" locale data updated for new locale system.
	* locale/C-collate.c: File removed.
        * locale/C-ctype_ct.c: File removed.
        * locale/C-ctype_mb.c: File removed.
        * locale/C-response.c: File removed.
	* locale/localeconv.c: Use _NL_CURRENT macro to access locale data.
	* stdio/printf_fp.c, stdio/vfprintf.c, stdio/vfscanf.c,
	  stdlib/strtod.c, time/asctime.c, time/strftime.c:
	Include ../locale/localeinfo.h and use _NL_CURRENT macro to access
	locale data.
	* time/localtime.c: Don't include <localeinfo.h>.
	* time/tzset.c: Don't use locale items for default TZ value or
	"GMT" string (use "UTC").

	* stdio/vfprintf.c [USE_IN_LIBIO] (PAD): Only call the function if
 	WIDTH>0; update DONE.

	* malloc/malloc.c (morecore): Fix last change to calculate by
 	blocks instead of bytes.

1 files changed, 377 insertions, 18 deletions

diff --git a/locale/setlocale.c b/locale/setlocale.c
index 784ccb1272..79d22ab98d 100644
--- a/locale/setlocale.c
+++ b/locale/setlocale.c
@@ -1,4 +1,4 @@
-/* Copyright (C) 1991, 1992 Free Software Foundation, Inc.
+/* Copyright (C) 1991, 1992, 1995 Free Software Foundation, Inc.
 This file is part of the GNU C Library.
 
 The GNU C Library is free software; you can redistribute it and/or
@@ -16,30 +16,389 @@ License along with the GNU C Library; see the file COPYING.LIB.  If
 not, write to the Free Software Foundation, Inc., 675 Mass Ave,
 Cambridge, MA 02139, USA.  */
 
-#include <ansidecl.h>
-#include <localeinfo.h>
 #include <errno.h>
-#include <locale.h>
 #include <string.h>
+#include <stdlib.h>
+#include <locale.h>
+#include <langinfo.h>
+#include "localeinfo.h"
+
+/* For each category declare two external variables (with weak references):
+     extern const struct locale_data *_nl_current_CATEGORY;
+   This points to the current locale's in-core data for CATEGORY.
+     extern const struct locale_data _nl_C_CATEGORY;
+   This contains the built-in "C"/"POSIX" locale's data for CATEGORY.
+   Both are weak references; if &_nl_current_CATEGORY is zero,
+   then nothing is using the locale data.  */
+#define DEFINE_CATEGORY(category, category_name, items, a, b, c, d) \
+extern const struct locale_data *_nl_current_##category;		      \
+extern const struct locale_data _nl_C_##category;			      \
+weak_symbol (_nl_current_##category) weak_symbol (_nl_C_##category)
+#include "categories.def"
+#undef	DEFINE_CATEGORY
+
+/* Array indexed by category of pointers to _nl_current_CATEGORY slots.
+   Elements are zero for categories whose data is never used.  */
+const struct locale_data * *const _nl_current[] =
+{
+#define DEFINE_CATEGORY(category, category_name, items, a, b, c, d) \
+  [category] = &_nl_current_##category,
+#include "categories.def"
+#undef	DEFINE_CATEGORY
+};
+
+/* Array indexed by category of pointers to _nl_C_CATEGORY slots.
+   Elements are zero for categories whose data is never used.  */
+const struct locale_data *const _nl_C[] =
+{
+#define DEFINE_CATEGORY(category, category_name, items, a, b, c, d) \
+  [category] = &_nl_C_##category,
+#include "categories.def"
+#undef	DEFINE_CATEGORY
+};
+
+
+/* Define an array of category names (also the environment variable names),
+   indexed by integral category.  */
+const char *const _nl_category_names[] =
+  {
+#define DEFINE_CATEGORY(category, category_name, items, a, b, c, d) \
+    [category] = category_name,
+#include "categories.def"
+#undef	DEFINE_CATEGORY
+  };
+/* An array of their lengths, for convenience.  */
+const size_t _nl_category_name_sizes[] =
+  {
+#define DEFINE_CATEGORY(category, category_name, items, a, b, c, d) \
+    [category] = sizeof (category_name) - 1,
+#include "categories.def"
+#undef	DEFINE_CATEGORY
+  };
 
 
-/* Switch to the locale called NAME in CATEGORY.
-   Return a string describing the locale.  This string can
-   be used as the NAME argument in a later call.
-   If NAME is NULL, don't switch locales, but return the current one.
-   If NAME is "", switch to a locale based on the environment variables,
-   as per POSIX.  Return NULL on error.  */
+/* Declare the postload functions used below.  */
+#undef	NO_POSTLOAD
+#define NO_POSTLOAD _nl_postload_ctype /* Harmless thing known to exist.  */
+#define DEFINE_CATEGORY(category, category_name, items, postload, b, c, d) \
+extern void postload (void);
+#include "categories.def"
+#undef	DEFINE_CATEGORY
+#undef	NO_POSTLOAD
+
+/* Define an array indexed by category of postload functions to call after
+   loading and installing that category's data.  */
+void (*const _nl_category_postload[]) (void) =
+  {
+#define DEFINE_CATEGORY(category, category_name, items, postload, b, c, d) \
+    [category] = postload,
+#include "categories.def"
+#undef	DEFINE_CATEGORY
+  };
+
+
+const char _nl_C_name[] = "C";
+
+/* Name of current locale for each individual category.
+   Each is malloc'd unless it is nl_C_name.  */
+const char *_nl_current_names[] =
+  {
+#define DEFINE_CATEGORY(category, category_name, items, a, b, c, d) \
+    _nl_C_name,
+#include "categories.def"
+#undef	DEFINE_CATEGORY
+  };
+
+/* Composite LC_ALL name for current locale.
+   This is malloc'd unless it's _nl_C_name.  */
+char *_nl_current_composite_name = (char *) _nl_C_name;
+
+
+/* Switch to the locale called NAME in CATEGORY.  Return a string
+   describing the locale.  This string can be used as the NAME argument in
+   a later call.  If NAME is NULL, don't switch locales, but return the
+   current one.  If NAME is "", switch to a locale based on the environment
+   variables, as per POSIX.  Return NULL on error.  */
+
 char *
-DEFUN(setlocale, (category, name), int category AND CONST char *name)
+setlocale (int category, const char *name)
 {
-  /* Braindead implementation until I finish the fancy one.  */
+  /* Return a malloc'd copy of STRING.  */
+  char *copy (const char *string)
+    {
+      size_t len = strlen (string) + 1;
+      char *new = malloc (len);
+      return new ? memcpy (new, string, len) : NULL;
+    }
+
+  /* Construct a new composite name.  */
+  char *new_composite_name (int category, char *newnames[LC_ALL])
+  {
+    size_t lens[LC_ALL], cumlen = 0;
+    int i;
+    char *new, *p;
+    int same = 1;
+
+    for (i = 0; i < LC_ALL; ++i)
+      {
+	char *name = (category == LC_ALL ? newnames[i] :
+		      category == i ? newnames[0] :
+		      (char *) _nl_current_names[i]);
+	lens[i] = strlen (name);
+	cumlen += _nl_category_name_sizes[i] + 1 + lens[i] + 1;
+	if (i > 0 && same && strcmp (name, newnames[0]))
+	  same = 0;
+      }
+
+    if (same)
+      {
+	/* All the categories use the same name.  */
+	new = malloc (lens[0] + 1);
+	if (! new)
+	  {
+	    if (!strcmp (newnames[0], "C") || !strcmp (newnames[0], "POSIX"))
+	      return (char *) _nl_C_name;
+	    return NULL;
+	  }
+	memcpy (new, newnames[0], lens[0] + 1);
+	return new;
+      }
+
+    new = malloc (cumlen);
+    if (! new)
+      return NULL;
+    p = new;
+    for (i = 0; i < LC_ALL; ++i)
+      {
+	/* Add "CATEGORY=NAME;" to the string.  */
+	char *name = (category == LC_ALL ? newnames[i] :
+		      category == i ? newnames[0] :
+		      (char *) _nl_current_names[i]);
+	memcpy (p, _nl_category_names[i], _nl_category_name_sizes[i]);
+	p += _nl_category_name_sizes[i];
+	*p++ = '=';
+	memcpy (p, name, lens[i]);
+	p += lens[i];
+	*p++ = ';';
+      }
+    p[-1] = '\0';		/* Clobber the last ';'.  */
+    return new;
+  }
+  /* Put COMPOSITE in _nl_current_composite_name and free the old value.  */
+  void setcomposite (char *composite)
+    {
+      char *old = _nl_current_composite_name;
+      _nl_current_composite_name = composite;
+      if (old != _nl_C_name)
+	free (old);
+    }
+  /* Put NAME in _nl_current_names and free the old value.  */
+  void setname (int category, const char *name)
+    {
+      const char *oldname = _nl_current_names[category];
+      _nl_current_names[category] = name;
+      if (oldname != _nl_C_name)
+	free ((char *) oldname);
+    }
+  /* Put DATA in *_nl_current[CATEGORY] and free the old value.  */
+  void setdata (int category, struct locale_data *data)
+    {
+      if (_nl_current[category])
+	{
+	  const struct locale_data *olddata = *_nl_current[category];
+	  *_nl_current[category] = data;
+	  if (_nl_category_postload[category])
+	    (*_nl_category_postload[category]) ();
+	  if (olddata != _nl_C[category])
+	    _nl_free_locale ((struct locale_data *) olddata);
+	}
+    }
+
+  const char *current_name;
+  char *composite;
+
+  if (category < 0 || category > LC_ALL)
+    {
+      errno = EINVAL;
+      return NULL;
+    }
+
+  if (category == LC_ALL)
+    current_name = _nl_current_composite_name;
+  else
+    current_name = _nl_current_names[category];
+
+  if (name == NULL)
+    /* Return the name of the current locale.  */
+    return (char *) current_name;
+
+  if (name == current_name)
+    /* Changing to the same thing.  */
+    return (char *) current_name;
+
+  if (category == LC_ALL)
+    {
+      const size_t len = strlen (name) + 1;
+      char *newnames[LC_ALL];
+      char *p;
+      struct locale_data *newdata[LC_ALL];
+
+      /* Set all name pointers to the argument name.  */
+      for (category = 0; category < LC_ALL; ++category)
+	newnames[category] = (char *) name;
+
+      p = strchr (name, ';');
+      if (p)
+	{
+	  /* This is a composite name.  Make a local copy and split it up.  */
+	  int i;
+	  char *n = alloca (len);
+	  memcpy (n, name, len);
+
+	  while (p = strchr (n, '='))
+	    {
+	      for (i = 0; i < LC_ALL; ++i)
+		if (_nl_category_name_sizes[i] == p - n &&
+		    !memcmp (_nl_category_names[i], n, p - n))
+		  break;
+	      if (i == LC_ALL)
+		{
+		  /* Bogus category name.  */
+		  errno = EINVAL;
+		  return NULL;
+		}
+	      if (i < LC_ALL)
+		{
+		  /* Found the category this clause sets.  */
+		  char *end = strchr (++p, ';');
+		  newnames[i] = p;
+		  if (end)
+		    {
+		      /* Examine the next clause.  */
+		      *end = '\0';
+		      n = end + 1;
+		    }
+		  else
+		    /* This was the last clause.  We are done.  */
+		    break;
+		}
+	    }
+
+	  for (i = 0; i < LC_ALL; ++i)
+	    if (newnames[i] == name)
+	      /* The composite name did not specify all categories.  */
+	      return NULL;
+	}
+	
+      /* Load the new data for each category.  */
+      while (category-- > 0)
+	/* Only actually load the data if anything will use it.  */
+	if (_nl_current[category])
+	  {
+	    newdata[category] = _nl_load_locale (category,
+						 &newnames[category]);
+	    if (newdata[category])
+	      newnames[category] = copy (newnames[category]);
+	    if (! newdata[category] || ! newnames[category])
+	      {
+		if (!strcmp (newnames[category], "C") ||
+		    !strcmp (newnames[category], "POSIX"))
+		  {
+		    /* Loading from a file failed, but this is a request
+		       for the default locale.  Use the built-in data.  */
+		    if (! newdata[category])
+		      newdata[category]
+			= (struct locale_data *) _nl_C[category];
+		    newnames[category] = (char *) _nl_C_name;
+		  }
+		else
+		  {
+		    /* Loading this part of the locale failed.
+		       Abort the composite load.  */
+		  abort_composite:
+		    while (++category < LC_ALL)
+		      {
+			if (_nl_current[category])
+			  _nl_free_locale (newdata[category]);
+			if (newnames[category] != _nl_C_name)
+			  free (newnames[category]);
+		      }
+		    return NULL;
+		  }
+	      }
+	  }
+	else
+	  {
+	    /* The data is never used; just change the name.  */
+	    newnames[category] = copy (newnames[category]);
+	    if (! newnames[category])
+	      {
+		if (!strcmp (newnames[category], "C") ||
+		    !strcmp (newnames[category], "POSIX"))
+		  newnames[category] = (char *) _nl_C_name;
+		else
+		  {
+		    while (++category < LC_ALL)
+		      if (newnames[category] != _nl_C_name)
+			free (newnames[category]);
+		  }
+	      }
+	  }
+
+      composite = new_composite_name (LC_ALL, newnames);
+      if (! composite)
+	{
+	  category = -1;
+	  goto abort_composite;
+	}
+
+      /* Now we have loaded all the new data.  Put it in place.  */
+      for (; category < LC_ALL; ++category)
+	{
+	  setdata (category, newdata[category]);
+	  setname (category, newnames[category]);
+	}
+      setcomposite (composite);
+
+      return composite;
+    }
+  else
+    {
+      char *newname = copy (name);
+      if (! newname)
+	{
+	  if (!strcmp (name, "C") || !strcmp (name, "POSIX"))
+	    newname = (char *) _nl_C_name;
+	  else
+	    return NULL;
+	}
+
+      composite = new_composite_name (category, &newname);
+      if (! composite)
+	{
+	  if (newname != _nl_C_name)
+	    free (newname);
+	  return NULL;
+	}
 
-  if (name == NULL || name[0] == '\0')
-    return (char *) "C";
+      /* Only actually load the data if anything will use it.  */
+      if (_nl_current[category])
+	{
+	  struct locale_data *newdata = _nl_load_locale (category,
+							 (char **) &name);
+	  if (! newdata)
+	    {
+	      if (!strcmp (name, "C") || !strcmp (name, "POSIX"))
+		newdata = (struct locale_data *) _nl_C[category];
+	      else
+		return NULL;
+	    }
+	  setdata (category, newdata);
+	}
 
-  if (!strcmp(name, "C") || !strcmp(name, "POSIX"))
-    return (char *) name;
+      setname (category, newname);
+      setcomposite (composite);
 
-  errno = EINVAL;
-  return NULL;
+      return newname;
+    }
 }