Update.

2001-02-06  Ulrich Drepper  <drepper@redhat.com>

	* locale/programs/locale.c: Implement --verbose option for -a
	which prints detailed information about the locales.

2 files changed, 190 insertions, 59 deletions

diff --git a/ChangeLog b/ChangeLog
index 5c7076f..19dbd48 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,8 @@
+2001-02-06  Ulrich Drepper  <drepper@redhat.com>
+
+	* locale/programs/locale.c: Implement --verbose option for -a
+	which prints detailed information about the locales.
+
 2001-02-05  Ulrich Drepper  <drepper@redhat.com>
 
 	* sunrpc/xdr_rec.c (set_input_fragment): Change type of header
diff --git a/locale/programs/locale.c b/locale/programs/locale.c
index c8734b8..fbabeec 100644
--- a/locale/programs/locale.c
+++ b/locale/programs/locale.c
@@ -27,6 +27,7 @@
 #include <dirent.h>
 #include <errno.h>
 #include <error.h>
+#include <fcntl.h>
 #include <langinfo.h>
 #include <libintl.h>
 #include <limits.h>
@@ -35,11 +36,14 @@
 #include <stdio.h>
 #include <stdlib.h>
 #include <string.h>
+#include <unistd.h>
+#include <sys/mman.h>
 #include <sys/stat.h>
 
 #include "localeinfo.h"
 #include "charmap-dir.h"
 
+extern void *xmalloc (size_t __n);
 extern char *xstrdup (const char *__str);
 
 
@@ -55,6 +59,9 @@ static int do_all;
 /* Print names of all available character maps.  */
 static int do_charmaps = 0;
 
+/* Nonzero if verbose output is wanted.  */
+static int verbose;
+
 /* Name and version of program.  */
 static void print_version (FILE *stream, struct argp_state *state);
 void (*argp_program_version_hook) (FILE *, struct argp_state *) = print_version;
@@ -70,6 +77,7 @@ static const struct argp_option options[] =
   { NULL, 0, NULL, 0, N_("Modify output format:") },
   { "category-name", 'c', NULL, 0, N_("Write names of selected categories") },
   { "keyword-name", 'k', NULL, 0, N_("Write names of selected keywords") },
+  { "verbose", 'v', NULL, 0, N_("Print more information") },
   { NULL, 0, NULL, 0, NULL }
 };
 
@@ -239,6 +247,9 @@ parse_opt (int key, char *arg, struct argp_state *state)
     case 'k':
       show_keyword_name = 1;
       break;
+    case 'v':
+      verbose = 1;
+      break;
     default:
       return ARGP_ERR_UNKNOWN;
     }
@@ -292,70 +303,18 @@ print_names (const void *nodep, VISIT value, int level)
 static void
 write_locales (void)
 {
+  char linebuf[80];
   void *all_data = NULL;
   DIR *dir;
   struct dirent *dirent;
   char *alias_path;
   size_t alias_path_len;
   char *entry;
+  int first_locale = 1;
 
-#define PUT(name) tsearch ((name), &all_data, \
+#define PUT(name) tsearch (name, &all_data, \
 			   (int (*) (const void *, const void *)) strcoll)
 
-  dir = opendir (LOCALEDIR);
-  if (dir == NULL)
-    {
-      error (1, errno, gettext ("cannot read locale directory `%s'"),
-	     LOCALEDIR);
-      return;
-    }
-
-  /* `POSIX' locale is always available (POSIX.2 4.34.3).  */
-  PUT ("POSIX");
-  /* And so is the "C" locale.  */
-  PUT ("C");
-
-  /* Now we can look for all files in the directory.  */
-  while ((dirent = readdir (dir)) != NULL)
-    if (strcmp (dirent->d_name, ".") != 0
-	&& strcmp (dirent->d_name, "..") != 0)
-      {
-	mode_t mode;
-#ifdef _DIRENT_HAVE_D_TYPE
-	if (dirent->d_type != DT_UNKNOWN && dirent->d_type != DT_LNK)
-	  mode = DTTOIF (dirent->d_type);
-	else
-#endif
-	  {
-	    struct stat st;
-	    char buf[sizeof (LOCALEDIR) + strlen (dirent->d_name) + 1];
-
-	    stpcpy (stpcpy (stpcpy (buf, LOCALEDIR), "/"), dirent->d_name);
-
-	    if (stat (buf, &st) < 0)
-	      continue;
-	    mode = st.st_mode;
-	  }
-
-	if (S_ISDIR (mode))
-	  {
-	    /* Test whether at least the LC_CTYPE data is there.  Some
-               directories only contain translations.  */
-	    char buf[sizeof (LOCALEDIR) + strlen (dirent->d_name)
-		    + sizeof "/LC_CTYPE"];
-	    struct stat st;
-
-	    stpcpy (stpcpy (stpcpy (stpcpy (buf, LOCALEDIR), "/"),
-			    dirent->d_name),
-		    "/LC_CTYPE");
-
-	    if (stat (buf, &st) == 0 && S_ISREG (st.st_mode))
-	      PUT (xstrdup (dirent->d_name));
-	  }
-      }
-
-  closedir (dir);
-
   /* Now read the locale.alias files.  */
   if (argz_create_sep (LOCALE_ALIAS_PATH, ':', &alias_path, &alias_path_len))
     error (1, errno, gettext ("while preparing output"));
@@ -385,7 +344,7 @@ write_locales (void)
 	  char *value;
 	  char *cp;
 
-	  if (fgets (buf, BUFSIZ, fp) == NULL)
+	  if (fgets_unlocked (buf, BUFSIZ, fp) == NULL)
 	    /* EOF reached.  */
 	    break;
 
@@ -427,7 +386,8 @@ write_locales (void)
 		    *cp++ = '\0';
 
 		  /* Add the alias.  */
-		  PUT (xstrdup (alias));
+		  if (! verbose)
+		    PUT (xstrdup (alias));
 		}
 	    }
 
@@ -436,7 +396,7 @@ write_locales (void)
 	  while (strchr (cp, '\n') == NULL)
 	    {
 	      cp = buf;
-	      if (fgets (buf, BUFSIZ, fp) == NULL)
+	      if (fgets_unlocked (buf, BUFSIZ, fp) == NULL)
 		/* Make sure the inner loop will be left.  The outer
 		   loop will exit at the `feof' test.  */
 		*cp = '\n';
@@ -446,7 +406,173 @@ write_locales (void)
       fclose (fp);
     }
 
-  twalk (all_data, print_names);
+  /* This is the directory with the locale files.  */
+  dir = opendir (LOCALEDIR);
+  if (dir == NULL)
+    {
+      error (1, errno, gettext ("cannot read locale directory `%s'"),
+	     LOCALEDIR);
+      return;
+    }
+
+  memset (linebuf, '-', sizeof (linebuf) - 1);
+  linebuf[sizeof (linebuf) - 1] = '\0';
+
+  /* Now we can look for all files in the directory.  */
+  while ((dirent = readdir (dir)) != NULL)
+    if (strcmp (dirent->d_name, ".") != 0
+	&& strcmp (dirent->d_name, "..") != 0)
+      {
+	mode_t mode;
+#ifdef _DIRENT_HAVE_D_TYPE
+	if (dirent->d_type != DT_UNKNOWN && dirent->d_type != DT_LNK)
+	  mode = DTTOIF (dirent->d_type);
+	else
+#endif
+	  {
+	    struct stat64 st;
+	    char buf[sizeof (LOCALEDIR) + strlen (dirent->d_name) + 1];
+
+	    stpcpy (stpcpy (stpcpy (buf, LOCALEDIR), "/"), dirent->d_name);
+
+	    if (stat64 (buf, &st) < 0)
+	      continue;
+	    mode = st.st_mode;
+	  }
+
+	if (S_ISDIR (mode))
+	  {
+	    /* Test whether at least the LC_CTYPE data is there.  Some
+               directories only contain translations.  */
+	    char buf[sizeof (LOCALEDIR) + strlen (dirent->d_name)
+		    + sizeof "/LC_IDENTIFICATION"];
+	    char *enddir;
+	    struct stat64 st;
+
+	    stpcpy (enddir = stpcpy (stpcpy (stpcpy (buf, LOCALEDIR), "/"),
+				     dirent->d_name),
+		    "/LC_IDENTIFICATION");
+
+	    if (stat64 (buf, &st) == 0 && S_ISREG (st.st_mode))
+	      {
+		if (verbose)
+		  {
+		    /* Provide some nice output of all kinds of
+		       information.  */
+		    int fd;
+
+		    if (! first_locale)
+		      putchar_unlocked ('\n');
+		    first_locale = 0;
+
+		    printf ("locale: %-15.15s directory: %.*s\n%s\n",
+			    dirent->d_name, (int) (enddir - buf), buf,
+			    linebuf);
+
+		    fd = open64 (buf, O_RDONLY);
+		    if (fd != -1)
+		      {
+			void *mapped = mmap64 (NULL, st.st_size, PROT_READ,
+					       MAP_SHARED, fd, 0);
+			if (mapped != MAP_FAILED)
+			  {
+			    /* Read the information from the file.  */
+			    struct
+			    {
+			      unsigned int magic;
+			      unsigned int nstrings;
+			      unsigned int strindex[0];
+			    } *filedata = mapped;
+
+			    if (filedata->magic == LIMAGIC (LC_IDENTIFICATION)
+				&& (sizeof *filedata
+				    + (filedata->nstrings
+				       * sizeof (unsigned int))
+				    <= (size_t) st.st_size))
+			      {
+				const char *str;
+
+#define HANDLE(idx, name) \
+  str = ((char *) mapped						      \
+	 + filedata->strindex[_NL_ITEM_INDEX (_NL_IDENTIFICATION_##idx)]);    \
+  if (*str != '\0')							      \
+    printf ("%9s | %s\n", name, str)
+				HANDLE (TITLE, "title");
+				HANDLE (SOURCE, "source");
+				HANDLE (ADDRESS, "address");
+				HANDLE (CONTACT, "contact");
+				HANDLE (EMAIL, "email");
+				HANDLE (TEL, "telephone");
+				HANDLE (FAX, "fax");
+				HANDLE (LANGUAGE, "language");
+				HANDLE (TERRITORY, "territory");
+				HANDLE (AUDIENCE, "audience");
+				HANDLE (APPLICATION, "application");
+				HANDLE (ABBREVIATION, "abbreviation");
+				HANDLE (REVISION, "revision");
+				HANDLE (DATE, "date");
+			      }
+
+			    munmap (mapped, st.st_size);
+			  }
+
+			close (fd);
+
+			/* Now try to get the charset information.  */
+			strcpy (enddir, "/LC_CTYPE");
+			fd = open64 (buf, O_RDONLY);
+			if (fd != -1 && fstat64 (fd, &st) >= 0
+			    && ((mapped = mmap64 (NULL, st.st_size, PROT_READ,
+						  MAP_SHARED, fd, 0))
+				!= MAP_FAILED))
+			  {
+			    struct
+			    {
+			      unsigned int magic;
+			      unsigned int nstrings;
+			      unsigned int strindex[0];
+			    } *filedata = mapped;
+
+			    if (filedata->magic == LIMAGIC (LC_CTYPE)
+				&& (sizeof *filedata
+				    + (filedata->nstrings
+				       * sizeof (unsigned int))
+				    <= (size_t) st.st_size))
+			      {
+				const char *str;
+
+				str = ((char *) mapped
+				       + filedata->strindex[_NL_ITEM_INDEX (_NL_CTYPE_CODESET_NAME)]);
+				if (*str != '\0')
+				  printf ("  codeset | %s\n", str);
+			      }
+
+			    munmap (mapped, st.st_size);
+			  }
+
+			if (fd != -1)
+			  close (fd);
+		      }
+		  }
+		else
+		  /* If the verbose format is not selected we simply
+		     collect the names.  */
+		  PUT (xstrdup (dirent->d_name));
+	      }
+	  }
+      }
+
+  closedir (dir);
+
+  if (! verbose)
+    {
+      /* `POSIX' locale is always available (POSIX.2 4.34.3).  */
+      PUT ("POSIX");
+      /* And so is the "C" locale.  */
+      PUT ("C");
+
+      twalk (all_data, print_names);
+    }
 }