* Makefile.in (CYGWIN_BINS): Add getlocale.

	* getlocale.c: New file.
	* utils.sgml (getlocale): New section describing new getlocale tool.

1 files changed, 129 insertions, 0 deletions

diff --git a/winsup/utils/getlocale.c b/winsup/utils/getlocale.c
new file mode 100644
index 000000000..3a601269f
--- /dev/null
+++ b/winsup/utils/getlocale.c
@@ -0,0 +1,129 @@
+/*
+ * Copyright (c) 2010, Corinna Vinschen
+ * All rights reserved.
+ *
+ * Redistribution and use in source and binary forms, with or without
+ * modification, are permitted provided that the following conditions
+ * are met:
+ * 1. Redistributions of source code must retain the above copyright
+ *    notice, this list of conditions and the following disclaimer.
+ * 2. Redistributions in binary form must reproduce the above copyright
+ *    notice, this list of conditions and the following disclaimer in the
+ *    documentation and/or other materials provided with the distribution.
+ *
+ * THIS SOFTWARE IS PROVIDED BY THE AUTHOR AND CONTRIBUTORS ``AS IS'' AND
+ * ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
+ * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
+ * ARE DISCLAIMED.  IN NO EVENT SHALL THE AUTHOR OR CONTRIBUTORS BE LIABLE
+ * FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
+ * DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS
+ * OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)
+ * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT
+ * LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY
+ * OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF
+ * SUCH DAMAGE.
+ */
+#include <stdio.h>
+#include <getopt.h>
+#include <string.h>
+#define WINVER 0x0601
+#include <windows.h>
+
+extern char *__progname;
+
+void usage (FILE *, int) __attribute__ ((noreturn));
+
+void
+usage (FILE * stream, int status)
+{
+  fprintf (stream,
+	   "Usage: %s [-asuh]\n"
+	   "Print Windows locale(s)\n"
+	   "\n"
+	   "Options:\n"
+	   "\n"
+	   "  -a, --all       List all available locales\n"
+	   "  -s, --system    Print system default locale\n"
+	   "                  (default is current user default locale)\n"
+	   "  -u, --utf       Attach \".UTF-8\" to the result\n"
+	   "  -h, --help      this text\n",
+	   __progname);
+  exit (status);
+}
+
+struct option longopts[] = {
+  {"all", no_argument, NULL, 'a'},
+  {"system", no_argument, NULL, 's'},
+  {"utf", no_argument, NULL, 'u'},
+  {"help", no_argument, NULL, 'h'},
+  {0, no_argument, NULL, 0}
+};
+const char *opts = "ahsu";
+
+int
+getlocale (LCID lcid, char *name)
+{
+  char iso639[10];
+  char iso3166[10];
+
+  iso3166[0] = '\0';
+  if (!GetLocaleInfo (lcid, LOCALE_SISO639LANGNAME, iso639, 10))
+    return 0;
+  GetLocaleInfo (lcid, LOCALE_SISO3166CTRYNAME, iso3166, 10);
+  sprintf (name, "%s%s%s", iso639, lcid > 0x3ff ? "_" : "",
+			   lcid > 0x3ff ? iso3166 : "");
+  return 1;
+}
+
+int main (int argc, char **argv)
+{
+  int opt;
+  LCID lcid = LOCALE_USER_DEFAULT;
+  int all = 0;
+  const char *utf = "";
+  char name[32];
+
+  while ((opt = getopt_long (argc, argv, opts, longopts, NULL)) != EOF)
+    switch (opt)
+      {
+      case 'a':
+        all = 1;
+	break;
+      case 's':
+      	lcid = LOCALE_SYSTEM_DEFAULT;
+	break;
+      case 'u':
+      	utf = ".UTF-8";
+	break;
+      case 'h':
+	usage (stdout, 0);
+	break;
+      default:
+	usage (stderr, 1);
+	break;
+      }
+  if (all)
+    {
+      unsigned lang, sublang;
+
+      for (lang = 1; lang <= 0x3ff; ++lang)
+	for (sublang = 1; sublang <= 0x3f; ++sublang)
+	  {
+	    lcid = (sublang << 10) | lang;
+	    if (getlocale (lcid, name))
+	      {
+		char lang[256];
+		char country[256];
+		char loc[32];
+		GetLocaleInfo (lcid, LOCALE_SENGLANGUAGE, lang, 256);
+		GetLocaleInfo (lcid, LOCALE_SENGCOUNTRY, country, 256);
+		stpcpy (stpcpy (loc, name), utf);
+		printf ("%-16s %s (%s)\n", loc, lang, country);
+	      }
+	  }
+      return 0;
+    }
+  if (getlocale (lcid, name))
+    printf ("%s%s\n", name, utf);
+  return 0;
+}