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