localedata/dump-ctype.c

   1 /* Dump the character classes and character maps of a locale to a bunch
   2    of individual files which can be processed with diff, sed etc.
   3    Copyright (C) 2000-2023 Free Software Foundation, Inc.
   4    This file is part of the GNU C Library.
   5
   6    The GNU C Library is free software; you can redistribute it and/or
   7    modify it under the terms of the GNU Lesser General Public
   8    License as published by the Free Software Foundation; either
   9    version 2.1 of the License, or (at your option) any later version.
  10
  11    The GNU C Library is distributed in the hope that it will be useful,
  12    but WITHOUT ANY WARRANTY; without even the implied warranty of
  13    MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
  14    Lesser General Public License for more details.
  15
  16    You should have received a copy of the GNU Lesser General Public
  17    License along with the GNU C Library; if not, see
  18    <https://www.gnu.org/licenses/>.  */
  19
  20 /* Usage example:
  21      $ dump-ctype de_DE.UTF-8
  22  */
  23
  24 #include <stdio.h>
  25 #include <stdlib.h>
  26 #include <wctype.h>
  27 #include <locale.h>
  28 #include <sys/stat.h>
  29 #include <unistd.h>
  30 #include <errno.h>
  31
  32 static const char *program_name = "dump-ctype";
  33 static const char *locale;
  34
  35 static const char *class_names[] =
  36   {
  37     "alnum", "alpha", "blank", "cntrl", "digit", "graph", "lower",
  38     "print", "punct", "space", "upper", "xdigit"
  39   };
  40
  41 static const char *map_names[] =
  42   {
  43     "tolower", "toupper", "totitle"
  44   };
  45
  46 static void dump_class (const char *class_name)
  47 {
  48   wctype_t class;
  49   FILE *f;
  50   unsigned int ch;
  51
  52   class = wctype (class_name);
  53   if (class == (wctype_t) 0)
  54     {
  55       fprintf (stderr, "%s %s: noexistent class %s\n", program_name,
  56                locale, class_name);
  57       return;
  58     }
  59
  60   f = fopen (class_name, "w");
  61   if (f == NULL)
  62     {
  63       fprintf (stderr, "%s %s: cannot open file %s/%s\n", program_name,
  64                locale, locale, class_name);
  65       exit (1);
  66     }
  67
  68   for (ch = 0; ch < 0x10000; ch++)
  69     if (iswctype (ch, class))
  70       fprintf (f, "0x%04X\n", ch);
  71
  72   if (ferror (f) || fclose (f))
  73     {
  74       fprintf (stderr, "%s %s: I/O error on file %s/%s\n", program_name,
  75                locale, locale, class_name);
  76       exit (1);
  77     }
  78 }
  79
  80 static void dump_map (const char *map_name)
  81 {
  82   wctrans_t map;
  83   FILE *f;
  84   unsigned int ch;
  85
  86   map = wctrans (map_name);
  87   if (map == (wctrans_t) 0)
  88     {
  89       fprintf (stderr, "%s %s: noexistent map %s\n", program_name,
  90                locale, map_name);
  91       return;
  92     }
  93
  94   f = fopen (map_name, "w");
  95   if (f == NULL)
  96     {
  97       fprintf (stderr, "%s %s: cannot open file %s/%s\n", program_name,
  98                locale, locale, map_name);
  99       exit (1);
 100     }
 101
 102   for (ch = 0; ch < 0x10000; ch++)
 103     if (towctrans (ch, map) != ch)
 104       fprintf (f, "0x%04X\t0x%04X\n", ch, towctrans (ch, map));
 105
 106   if (ferror (f) || fclose (f))
 107     {
 108       fprintf (stderr, "%s %s: I/O error on file %s/%s\n", program_name,
 109                locale, locale, map_name);
 110       exit (1);
 111     }
 112 }
 113
 114 int
 115 main (int argc, char *argv[])
 116 {
 117   size_t i;
 118
 119   if (argc != 2)
 120     {
 121       fprintf (stderr, "Usage: dump-ctype locale\n");
 122       exit (1);
 123     }
 124   locale = argv[1];
 125
 126   if (setlocale (LC_ALL, locale) == NULL)
 127     {
 128       fprintf (stderr, "%s: setlocale cannot switch to locale %s\n",
 129                program_name, locale);
 130       exit (1);
 131     }
 132
 133   if (mkdir (locale, 0777) < 0)
 134     {
 135       char buf[100];
 136       int save_errno = errno;
 137
 138       sprintf (buf, "%s: cannot create directory %s", program_name, locale);
 139       errno = save_errno;
 140       perror (buf);
 141       exit (1);
 142     }
 143
 144   if (chdir (locale) < 0)
 145     {
 146       char buf[100];
 147       int save_errno = errno;
 148
 149       sprintf (buf, "%s: cannot chdir to %s", program_name, locale);
 150       errno = save_errno;
 151       perror (buf);
 152       exit (1);
 153     }
 154
 155   for (i = 0; i < sizeof (class_names) / sizeof (class_names[0]); i++)
 156     dump_class (class_names[i]);
 157
 158   for (i = 0; i < sizeof (map_names) / sizeof (map_names[0]); i++)
 159     dump_map (map_names[i]);
 160
 161   return 0;
 162 }