Complete Citrus import. Import message catalog implement from
[dragonfly.git] / lib / libc / locale / collate.c
CommitLineData
984263bc
MD
1/*-
2 * Copyright (c) 1995 Alex Tatmanjants <alex@elvisti.kiev.ua>
3 * at Electronni Visti IA, Kiev, Ukraine.
4 * All rights reserved.
5 *
6 * Redistribution and use in source and binary forms, with or without
7 * modification, are permitted provided that the following conditions
8 * are met:
9 * 1. Redistributions of source code must retain the above copyright
10 * notice, this list of conditions and the following disclaimer.
11 * 2. Redistributions in binary form must reproduce the above copyright
12 * notice, this list of conditions and the following disclaimer in the
13 * documentation and/or other materials provided with the distribution.
14 *
15 * THIS SOFTWARE IS PROVIDED BY THE AUTHOR ``AS IS'' AND
16 * ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
17 * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
18 * ARE DISCLAIMED. IN NO EVENT SHALL THE AUTHOR BE LIABLE
19 * FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
20 * DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS
21 * OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)
22 * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT
23 * LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY
24 * OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF
25 * SUCH DAMAGE.
1de703da
MD
26 *
27 * $FreeBSD: src/lib/libc/locale/collate.c,v 1.21.2.4 2002/10/11 10:36:47 ache Exp $
32a7b49a 28 * $DragonFly: src/lib/libc/locale/collate.c,v 1.6 2005/04/21 16:36:34 joerg Exp $
984263bc
MD
29 */
30
17ea2221 31#include "namespace.h"
984263bc
MD
32#include <arpa/inet.h>
33#include <rune.h>
34#include <stdio.h>
35#include <stdlib.h>
36#include <string.h>
37#include <errno.h>
38#include <unistd.h>
39#include <sysexits.h>
17ea2221 40#include "un-namespace.h"
984263bc
MD
41
42#include "collate.h"
32a7b49a
JS
43
44#define ENCODING_LEN 31
45#define _LDP_LOADED 0
46#define _LDP_ERROR (-1)
47#define _LDP_CACHE 1
984263bc
MD
48
49int __collate_load_error = 1;
50int __collate_substitute_nontrivial;
51
52u_char __collate_substitute_table[UCHAR_MAX + 1][STR_LEN];
53struct __collate_st_char_pri __collate_char_pri_table[UCHAR_MAX + 1];
54struct __collate_st_chain_pri *__collate_chain_pri_table;
55
56void __collate_err(int ex, const char *f) __dead2;
57
58int
59__collate_load_tables(const char *encoding)
60{
61 FILE *fp;
62 int i, saverr, chains;
63 uint32_t u32;
64 char strbuf[STR_LEN], buf[PATH_MAX];
65 void *TMP_substitute_table, *TMP_char_pri_table, *TMP_chain_pri_table;
66 static char collate_encoding[ENCODING_LEN + 1];
67
68 /* 'encoding' must be already checked. */
69 if (strcmp(encoding, "C") == 0 || strcmp(encoding, "POSIX") == 0) {
70 __collate_load_error = 1;
71 return (_LDP_CACHE);
72 }
73
74 /*
75 * If the locale name is the same as our cache, use the cache.
76 */
77 if (strcmp(encoding, collate_encoding) == 0) {
78 __collate_load_error = 0;
79 return (_LDP_CACHE);
80 }
81
82 /*
83 * Slurp the locale file into the cache.
84 */
85
86 /* 'PathLocale' must be already set & checked. */
87 /* Range checking not needed, encoding has fixed size */
88 (void)strcpy(buf, _PathLocale);
89 (void)strcat(buf, "/");
90 (void)strcat(buf, encoding);
91 (void)strcat(buf, "/LC_COLLATE");
92 if ((fp = fopen(buf, "r")) == NULL)
93 return (_LDP_ERROR);
94
95 if (fread(strbuf, sizeof(strbuf), 1, fp) != 1) {
96 saverr = errno;
97 (void)fclose(fp);
98 errno = saverr;
99 return (_LDP_ERROR);
100 }
101 chains = -1;
102 if (strcmp(strbuf, COLLATE_VERSION) == 0)
103 chains = 0;
104 else if (strcmp(strbuf, COLLATE_VERSION1_1) == 0)
105 chains = 1;
106 if (chains < 0) {
107 (void)fclose(fp);
108 errno = EFTYPE;
109 return (_LDP_ERROR);
110 }
111 if (chains) {
112 if (fread(&u32, sizeof(u32), 1, fp) != 1) {
113 saverr = errno;
114 (void)fclose(fp);
115 errno = saverr;
116 return (_LDP_ERROR);
117 }
118 if ((chains = (int)ntohl(u32)) < 1) {
119 (void)fclose(fp);
120 errno = EFTYPE;
121 return (_LDP_ERROR);
122 }
123 } else
124 chains = TABLE_SIZE;
125
126 if ((TMP_substitute_table =
127 malloc(sizeof(__collate_substitute_table))) == NULL) {
128 saverr = errno;
129 (void)fclose(fp);
130 errno = saverr;
131 return (_LDP_ERROR);
132 }
133 if ((TMP_char_pri_table =
134 malloc(sizeof(__collate_char_pri_table))) == NULL) {
135 saverr = errno;
136 free(TMP_substitute_table);
137 (void)fclose(fp);
138 errno = saverr;
139 return (_LDP_ERROR);
140 }
141 if ((TMP_chain_pri_table =
142 malloc(sizeof(*__collate_chain_pri_table) * chains)) == NULL) {
143 saverr = errno;
144 free(TMP_substitute_table);
145 free(TMP_char_pri_table);
146 (void)fclose(fp);
147 errno = saverr;
148 return (_LDP_ERROR);
149 }
150
151#define FREAD(a, b, c, d) \
152{ \
17ea2221 153 if ( fread(a, b, c, d) != c) { \
984263bc
MD
154 saverr = errno; \
155 free(TMP_substitute_table); \
156 free(TMP_char_pri_table); \
157 free(TMP_chain_pri_table); \
158 (void)fclose(d); \
159 errno = saverr; \
160 return (_LDP_ERROR); \
161 } \
162}
163
164 FREAD(TMP_substitute_table, sizeof(__collate_substitute_table), 1, fp);
165 FREAD(TMP_char_pri_table, sizeof(__collate_char_pri_table), 1, fp);
166 FREAD(TMP_chain_pri_table,
167 sizeof(*__collate_chain_pri_table), chains, fp);
168 (void)fclose(fp);
169
170 (void)strcpy(collate_encoding, encoding);
171 if (__collate_substitute_table_ptr != NULL)
172 free(__collate_substitute_table_ptr);
173 __collate_substitute_table_ptr = TMP_substitute_table;
174 if (__collate_char_pri_table_ptr != NULL)
175 free(__collate_char_pri_table_ptr);
176 __collate_char_pri_table_ptr = TMP_char_pri_table;
177 if (__collate_chain_pri_table != NULL)
178 free(__collate_chain_pri_table);
179 __collate_chain_pri_table = TMP_chain_pri_table;
180
181 __collate_substitute_nontrivial = 0;
182 for (i = 0; i < UCHAR_MAX + 1; i++) {
183 if (__collate_substitute_table[i][0] != i ||
184 __collate_substitute_table[i][1] != 0) {
185 __collate_substitute_nontrivial = 1;
186 break;
187 }
188 }
189 __collate_load_error = 0;
190
191 return (_LDP_LOADED);
192}
193
194u_char *
195__collate_substitute(s)
196 const u_char *s;
197{
198 int dest_len, len, nlen;
199 int delta = strlen(s);
200 u_char *dest_str = NULL;
201
202 if (s == NULL || *s == '\0')
203 return (__collate_strdup(""));
204 delta += delta / 8;
205 dest_str = malloc(dest_len = delta);
206 if (dest_str == NULL)
5e2195bf 207 __collate_err(EX_OSERR, __func__);
984263bc
MD
208 len = 0;
209 while (*s) {
210 nlen = len + strlen(__collate_substitute_table[*s]);
211 if (dest_len <= nlen) {
212 dest_str = reallocf(dest_str, dest_len = nlen + delta);
213 if (dest_str == NULL)
5e2195bf 214 __collate_err(EX_OSERR, __func__);
984263bc
MD
215 }
216 (void)strcpy(dest_str + len, __collate_substitute_table[*s++]);
217 len = nlen;
218 }
219 return (dest_str);
220}
221
222void
223__collate_lookup(t, len, prim, sec)
224 const u_char *t;
225 int *len, *prim, *sec;
226{
227 struct __collate_st_chain_pri *p2;
228
229 *len = 1;
230 *prim = *sec = 0;
231 for (p2 = __collate_chain_pri_table; p2->str[0] != '\0'; p2++) {
232 if (*t == p2->str[0] &&
233 strncmp(t, p2->str, strlen(p2->str)) == 0) {
234 *len = strlen(p2->str);
235 *prim = p2->prim;
236 *sec = p2->sec;
237 return;
238 }
239 }
240 *prim = __collate_char_pri_table[*t].prim;
241 *sec = __collate_char_pri_table[*t].sec;
242}
243
244u_char *
245__collate_strdup(s)
246 u_char *s;
247{
248 u_char *t = strdup(s);
249
250 if (t == NULL)
5e2195bf 251 __collate_err(EX_OSERR, __func__);
984263bc
MD
252 return (t);
253}
254
255void
256__collate_err(int ex, const char *f)
257{
e59e8ef1 258 const char *progname;
984263bc
MD
259 int serrno = errno;
260
e59e8ef1
JS
261 progname = getprogname();
262 _write(STDERR_FILENO, progname, strlen(progname));
984263bc 263 _write(STDERR_FILENO, ": ", 2);
e59e8ef1 264 _write(STDERR_FILENO, f, strlen(f));
984263bc 265 _write(STDERR_FILENO, ": ", 2);
e59e8ef1
JS
266 f = strerror(serrno);
267 _write(STDERR_FILENO, f, strlen(f));
984263bc
MD
268 _write(STDERR_FILENO, "\n", 1);
269 exit(ex);
270}
271
272#ifdef COLLATE_DEBUG
273void
274__collate_print_tables()
275{
276 int i;
277 struct __collate_st_chain_pri *p2;
278
279 printf("Substitute table:\n");
280 for (i = 0; i < UCHAR_MAX + 1; i++)
281 if (i != *__collate_substitute_table[i])
282 printf("\t'%c' --> \"%s\"\n", i,
283 __collate_substitute_table[i]);
284 printf("Chain priority table:\n");
285 for (p2 = __collate_chain_pri_table; p2->str[0] != '\0'; p2++)
286 printf("\t\"%s\" : %d %d\n", p2->str, p2->prim, p2->sec);
287 printf("Char priority table:\n");
288 for (i = 0; i < UCHAR_MAX + 1; i++)
289 printf("\t'%c' : %d %d\n", i, __collate_char_pri_table[i].prim,
290 __collate_char_pri_table[i].sec);
291}
292#endif