Sat Mar 23 17:52:49 1996 Ulrich Drepper <drepper@gnu.ai.mit.edu>
[kopensolaris-gnu/glibc.git] / locale / programs / ctypedump.c
1 /* Copyright (C) 1995, 1996 Free Software Foundation, Inc.
2
3 The GNU C Library is free software; you can redistribute it and/or
4 modify it under the terms of the GNU Library General Public License as
5 published by the Free Software Foundation; either version 2 of the
6 License, or (at your option) any later version.
7
8 The GNU C Library is distributed in the hope that it will be useful,
9 but WITHOUT ANY WARRANTY; without even the implied warranty of
10 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
11 Library General Public License for more details.
12
13 You should have received a copy of the GNU Library General Public
14 License along with the GNU C Library; see the file COPYING.LIB.  If
15 not, write to the Free Software Foundation, Inc., 675 Mass Ave,
16 Cambridge, MA 02139, USA.  */
17
18 #include <ctype.h>
19 #include <endian.h>
20 #include <stdlib.h>
21 #include <stdio.h>
22 #include <netinet/in.h>        /* Just for htons() */
23
24 /*#include "localedef.h"*/
25 #include "localeinfo.h"
26
27
28 /* FIXME: these values should be part of the LC_CTYPE information.  */
29 #define mb_cur_max 1
30 #define mb_cur_min 1
31
32
33 #define SWAP32(v)                                                            \
34         ((u32_t) (((((u32_t) (v)) & 0x000000ff) << 24)                       \
35                 | ((((u32_t) (v)) & 0x0000ff00) << 8)                        \
36                 | ((((u32_t) (v)) & 0x00ff0000) >> 8)                        \
37                 | ((((u32_t) (v)) & 0xff000000) >> 24)))
38
39
40
41 static inline void
42 print_short_in_char (unsigned short val)
43 {
44   const unsigned char *p = (const unsigned char *) &val;
45   printf ("\"\\%03o\\%03o\"", p[0], p[1]);
46 }
47
48
49 static inline void
50 print_int_in_char (unsigned int val)
51 {
52   const unsigned char *p = (const unsigned char *) &val;
53   printf ("\"\\%03o\\%03o\\%03o\\%03o\"", p[0], p[1], p[2], p[3]);
54 }
55
56
57 int
58 ctype_output (void)
59 {
60   int ch;
61   int result = 0;
62   const char *locname = (getenv ("LC_ALL") ?: getenv ("LC_CTYPE") ?:
63                          getenv ("LANG") ?: "POSIX");
64
65   puts ("#include <endian.h>\n");
66
67   if (mb_cur_max == 1)
68     {
69       printf ("const char _nl_%s_LC_CTYPE_class[] = \n", locname);
70       for (ch = -128; ch < (1 << (8 * MB_CUR_MAX)); ++ch)
71         {
72           if (((ch + 128) % 6) == 0)
73             printf ("  /* 0x%02x */ ", ch < 0 ? 256 + ch : ch);
74           print_short_in_char (htons (__ctype_b [ch < 0 ? 256 + ch : ch]));
75           fputc (((ch + 128) % 6) == 5 ? '\n' : ' ', stdout);
76         }
77       puts (";");
78     }
79
80   printf ("#if BYTE_ORDER == %s\n",
81           BYTE_ORDER == LITTLE_ENDIAN ? "LITTLE_ENDIAN" : "BIG_ENDIAN");
82
83   if (mb_cur_max == 1)
84     {
85       printf ("const char _nl_%s_LC_CTYPE_toupper[] = \n", locname);
86       for (ch = -128; ch < (1 << (8 * MB_CUR_MAX)); ++ch)
87         {
88           if (((ch + 128) % 3) == 0)
89             printf ("  /* 0x%02x */ ", ch < 0 ? 256 + ch : ch);
90           print_int_in_char (__ctype_toupper[ch < 0 ? 256 + ch : ch]);
91           fputc (((ch + 128) % 3) == 2 ? '\n' : ' ', stdout);
92         }
93       puts (";");
94
95       printf ("const char _nl_%s_LC_CTYPE_tolower[] = \n", locname);
96       for (ch = -128; ch < (1 << (8 * MB_CUR_MAX)); ++ch)
97         {
98           if (((ch + 128) % 3) == 0)
99             printf ("  /* 0x%02x */ ", ch < 0 ? 256 + ch : ch);
100           print_int_in_char (__ctype_tolower[ch < 0 ? 256 + ch : ch]);
101           fputc (((ch + 128) % 3) == 2 ? '\n' : ' ', stdout);
102         }
103       puts (";");
104     }
105   else
106     /* not implemented */;
107
108   printf ("#elif BYTE_ORDER == %s\n",
109           BYTE_ORDER == LITTLE_ENDIAN ? "BIG_ENDIAN" : "LITTLE_ENDIAN");
110
111   if (mb_cur_max == 1)
112     {
113       printf ("const char _nl_%s_LC_CTYPE_toupper[] = \n", locname);
114       for (ch = -128; ch < (1 << (8 * MB_CUR_MAX)); ++ch)
115         {
116           if (((ch + 128) % 3) == 0)
117             printf ("  /* 0x%02x */ ", ch < 0 ? 256 + ch : ch);
118           print_int_in_char (SWAP32 (__ctype_toupper[ch < 0 ? 256 + ch : ch]));
119           fputc (((ch + 128) % 3) == 2 ? '\n' : ' ', stdout);
120         }
121       puts (";");
122
123       printf ("const char _nl_%s_LC_CTYPE_tolower[] = \n", locname);
124       for (ch = -128; ch < (1 << (8 * MB_CUR_MAX)); ++ch)
125         {
126           if (((ch + 128) % 3) == 0)
127             printf ("  /* 0x%02x */ ", ch < 0 ? 256 + ch : ch);
128           print_int_in_char (SWAP32 (__ctype_tolower[ch < 0 ? 256 + ch : ch]));
129           fputc (((ch + 128) % 3) == 2 ? '\n' : ' ', stdout);
130         }
131       puts (";");
132     }
133   else
134     /* not implemented */;
135
136   puts ("#else\n#error \"BYTE_ORDER\" BYTE_ORDER \" not handled.\"\n#endif\n");
137
138   printf("const struct locale_data _nl_%s_LC_CTYPE = \n\
139 {\n\
140   NULL, 0, /* no file mapped */\n\
141   5,\n\
142   {\n\
143     _nl_C_LC_CTYPE_class,\n\
144 #ifdef BYTE_ORDER == LITTLE_ENDIAN\n\
145     NULL, NULL,\n\
146 #endif\n\
147     _nl_C_LC_CTYPE_toupper,\n\
148     _nl_C_LC_CTYPE_tolower,\n\
149 #ifdef BYTE_ORDER == BIG_ENDIAN\n\
150     NULL, NULL,\n\
151 #endif\n\
152   }\n\
153 };\n", locname);
154
155   return result;
156 }
157
158 /*
159  * Local Variables:
160  *  mode:c
161  *  c-basic-offset:2
162  * End:
163  */