.
[kopensolaris-gnu/glibc.git] / 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 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 }