1 #include <libintl.h>
2 #include <stdlib.h>
3 #include <string.h>
4 #include <errno.h>
5 #include <limits.h>
6 #include <sys/stat.h>
7 #include <sys/mman.h>
8 #include <ctype.h>
9 #include <unsupported_api.h>
10 #include "locale_impl.h"
11 #include "atomic.h"
12 #include "pleval.h"
13 #include "lock.h"
14
15 struct binding {
16 struct binding *next;
17 int dirlen;
18 volatile int active;
19 char *domainname;
20 char *dirname;
21 char buf[];
22 };
23
24 static void *volatile bindings;
25
gettextdir(const char * domainname,size_t * dirlen)26 static char *gettextdir(const char *domainname, size_t *dirlen)
27 {
28 struct binding *p;
29 for (p=bindings; p; p=p->next) {
30 if (!strcmp(p->domainname, domainname) && p->active) {
31 *dirlen = p->dirlen;
32 return (char *)p->dirname;
33 }
34 }
35 return 0;
36 }
37
bindtextdomain(const char * domainname,const char * dirname)38 char *bindtextdomain(const char *domainname, const char *dirname)
39 {
40 static volatile int lock[1];
41 struct binding *p, *q;
42
43 if (!domainname) return 0;
44 if (!dirname) return gettextdir(domainname, &(size_t){0});
45
46 size_t domlen = strnlen(domainname, NAME_MAX+1);
47 size_t dirlen = strnlen(dirname, PATH_MAX);
48 if (domlen > NAME_MAX || dirlen >= PATH_MAX) {
49 errno = EINVAL;
50 return 0;
51 }
52
53 LOCK(lock);
54
55 for (p=bindings; p; p=p->next) {
56 if (!strcmp(p->domainname, domainname) &&
57 !strcmp(p->dirname, dirname)) {
58 break;
59 }
60 }
61
62 if (!p) {
63 p = calloc(sizeof *p + domlen + dirlen + 2, 1);
64 if (!p) {
65 UNLOCK(lock);
66 return 0;
67 }
68 p->next = bindings;
69 p->dirlen = dirlen;
70 p->domainname = p->buf;
71 p->dirname = p->buf + domlen + 1;
72 memcpy(p->domainname, domainname, domlen+1);
73 memcpy(p->dirname, dirname, dirlen+1);
74 a_cas_p(&bindings, bindings, p);
75 }
76
77 a_store(&p->active, 1);
78
79 for (q=bindings; q; q=q->next) {
80 if (!strcmp(q->domainname, domainname) && q != p)
81 a_store(&q->active, 0);
82 }
83
84 UNLOCK(lock);
85
86 return (char *)p->dirname;
87 }
88
89 static const char catnames[][12] = {
90 "LC_CTYPE",
91 "LC_NUMERIC",
92 "LC_TIME",
93 "LC_COLLATE",
94 "LC_MONETARY",
95 "LC_MESSAGES",
96 };
97
98 static const char catlens[] = { 8, 10, 7, 10, 11, 11 };
99
100 struct msgcat {
101 struct msgcat *next;
102 const void *map;
103 size_t map_size;
104 const char *plural_rule;
105 int nplurals;
106 struct binding *binding;
107 const struct __locale_map *lm;
108 int cat;
109 };
110
dummy_gettextdomain()111 static char *dummy_gettextdomain()
112 {
113 return "messages";
114 }
115
116 weak_alias(dummy_gettextdomain, __gettextdomain);
117
dcngettext(const char * domainname,const char * msgid1,const char * msgid2,unsigned long int n,int category)118 char *dcngettext(const char *domainname, const char *msgid1, const char *msgid2, unsigned long int n, int category)
119 {
120 static struct msgcat *volatile cats;
121 struct msgcat *p;
122 struct __locale_struct *loc = CURRENT_LOCALE;
123 const struct __locale_map *lm;
124 size_t domlen;
125 struct binding *q;
126 int old_errno = errno;
127
128 if ((unsigned)category >= LC_ALL) goto notrans;
129
130 if (!domainname) domainname = __gettextdomain();
131
132 domlen = strnlen(domainname, NAME_MAX+1);
133 if (domlen > NAME_MAX) goto notrans;
134
135 for (q=bindings; q; q=q->next)
136 if (!strcmp(q->domainname, domainname) && q->active)
137 break;
138 if (!q) goto notrans;
139
140 lm = loc->cat[category];
141 if (!lm) {
142 notrans:
143 errno = old_errno;
144 return (char *) ((n == 1) ? msgid1 : msgid2);
145 }
146
147 for (p=cats; p; p=p->next)
148 if (p->binding == q && p->lm == lm && p->cat == category)
149 break;
150
151 if (!p) {
152 const char *dirname, *locname, *catname, *modname, *locp;
153 size_t dirlen, loclen, catlen, modlen, alt_modlen;
154 void *old_cats;
155 size_t map_size;
156
157 dirname = q->dirname;
158 locname = lm->name;
159 catname = catnames[category];
160
161 dirlen = q->dirlen;
162 loclen = strlen(locname);
163 catlen = catlens[category];
164
165 /* Logically split @mod suffix from locale name. */
166 modname = memchr(locname, '@', loclen);
167 if (!modname) modname = locname + loclen;
168 alt_modlen = modlen = loclen - (modname-locname);
169 loclen = modname-locname;
170
171 /* Drop .charset identifier; it is not used. */
172 const char *csp = memchr(locname, '.', loclen);
173 if (csp) loclen = csp-locname;
174
175 char name[dirlen+1 + loclen+modlen+1 + catlen+1 + domlen+3 + 1];
176 const void *map;
177
178 for (;;) {
179 snprintf(name, sizeof name, "%s/%.*s%.*s/%s/%s.mo\0",
180 dirname, (int)loclen, locname,
181 (int)alt_modlen, modname, catname, domainname);
182 if (map = __map_file(name, &map_size)) break;
183
184 /* Try dropping @mod, _YY, then both. */
185 if (alt_modlen) {
186 alt_modlen = 0;
187 } else if ((locp = memchr(locname, '_', loclen))) {
188 loclen = locp-locname;
189 alt_modlen = modlen;
190 } else {
191 break;
192 }
193 }
194 if (!map) goto notrans;
195
196 p = calloc(sizeof *p, 1);
197 if (!p) {
198 __munmap((void *)map, map_size);
199 goto notrans;
200 }
201 p->cat = category;
202 p->binding = q;
203 p->lm = lm;
204 p->map = map;
205 p->map_size = map_size;
206
207 const char *rule = "n!=1;";
208 unsigned long np = 2;
209 const char *r = __mo_lookup(p->map, p->map_size, "");
210 char *z;
211 while (r && strncmp(r, "Plural-Forms:", 13)) {
212 z = strchr(r, '\n');
213 r = z ? z+1 : 0;
214 }
215 if (r) {
216 r += 13;
217 while (isspace(*r)) r++;
218 if (!strncmp(r, "nplurals=", 9)) {
219 np = strtoul(r+9, &z, 10);
220 r = z;
221 }
222 while (*r && *r != ';') r++;
223 if (*r) {
224 r++;
225 while (isspace(*r)) r++;
226 if (!strncmp(r, "plural=", 7))
227 rule = r+7;
228 }
229 }
230 p->nplurals = np;
231 p->plural_rule = rule;
232
233 do {
234 old_cats = cats;
235 p->next = old_cats;
236 } while (a_cas_p(&cats, old_cats, p) != old_cats);
237 }
238
239 const char *trans = __mo_lookup(p->map, p->map_size, msgid1);
240 if (!trans) goto notrans;
241
242 /* Non-plural-processing gettext forms pass a null pointer as
243 * msgid2 to request that dcngettext suppress plural processing. */
244
245 if (msgid2 && p->nplurals) {
246 unsigned long plural = __pleval(p->plural_rule, n);
247 if (plural > p->nplurals) goto notrans;
248 while (plural--) {
249 size_t rem = p->map_size - (trans - (char *)p->map);
250 size_t l = strnlen(trans, rem);
251 if (l+1 >= rem)
252 goto notrans;
253 trans += l+1;
254 }
255 }
256 errno = old_errno;
257 return (char *)trans;
258 }
259
dcgettext(const char * domainname,const char * msgid,int category)260 char *dcgettext(const char *domainname, const char *msgid, int category)
261 {
262 unsupported_api(__FUNCTION__);
263 return dcngettext(domainname, msgid, 0, 1, category);
264 }
265
dngettext(const char * domainname,const char * msgid1,const char * msgid2,unsigned long int n)266 char *dngettext(const char *domainname, const char *msgid1, const char *msgid2, unsigned long int n)
267 {
268 unsupported_api(__FUNCTION__);
269 return dcngettext(domainname, msgid1, msgid2, n, LC_MESSAGES);
270 }
271
dgettext(const char * domainname,const char * msgid)272 char *dgettext(const char *domainname, const char *msgid)
273 {
274 unsupported_api(__FUNCTION__);
275 return dcngettext(domainname, msgid, 0, 1, LC_MESSAGES);
276 }
277