8 #include "locale_impl.h"
21 static void *volatile bindings
;
23 static char *gettextdir(const char *domainname
, size_t *dirlen
)
26 for (p
=bindings
; p
; p
=p
->next
) {
27 if (!strcmp(p
->domainname
, domainname
) && p
->active
) {
29 return (char *)p
->dirname
;
35 char *bindtextdomain(const char *domainname
, const char *dirname
)
37 static volatile int lock
[2];
38 struct binding
*p
, *q
;
40 if (!domainname
) return 0;
41 if (!dirname
) return gettextdir(domainname
, &(size_t){0});
43 size_t domlen
= strnlen(domainname
, NAME_MAX
+1);
44 size_t dirlen
= strnlen(dirname
, PATH_MAX
);
45 if (domlen
> NAME_MAX
|| dirlen
>= PATH_MAX
) {
52 for (p
=bindings
; p
; p
=p
->next
) {
53 if (!strcmp(p
->domainname
, domainname
) &&
54 !strcmp(p
->dirname
, dirname
)) {
60 p
= calloc(sizeof *p
+ domlen
+ dirlen
+ 2, 1);
67 p
->domainname
= p
->buf
;
68 p
->dirname
= p
->buf
+ domlen
+ 1;
69 memcpy(p
->domainname
, domainname
, domlen
+1);
70 memcpy(p
->dirname
, dirname
, dirlen
+1);
71 a_cas_p(&bindings
, bindings
, p
);
74 a_store(&p
->active
, 1);
76 for (q
=bindings
; q
; q
=q
->next
) {
77 if (!strcmp(q
->domainname
, domainname
) && q
!= p
)
78 a_store(&q
->active
, 0);
83 return (char *)p
->dirname
;
86 static const char catnames
[][12] = {
95 static const char catlens
[] = { 8, 10, 7, 10, 11, 11 };
101 void *volatile plural_rule
;
102 volatile int nplurals
;
103 struct binding
*binding
;
104 const struct __locale_map
*lm
;
108 static char *dummy_gettextdomain()
113 weak_alias(dummy_gettextdomain
, __gettextdomain
);
115 const unsigned char *__map_file(const char *, size_t *);
116 int __munmap(void *, size_t);
117 unsigned long __pleval(const char *, unsigned long);
119 char *dcngettext(const char *domainname
, const char *msgid1
, const char *msgid2
, unsigned long int n
, int category
)
121 static struct msgcat
*volatile cats
;
123 struct __locale_struct
*loc
= CURRENT_LOCALE
;
124 const struct __locale_map
*lm
;
128 if ((unsigned)category
>= LC_ALL
) goto notrans
;
130 if (!domainname
) domainname
= __gettextdomain();
132 domlen
= strnlen(domainname
, NAME_MAX
+1);
133 if (domlen
> NAME_MAX
) goto notrans
;
135 for (q
=bindings
; q
; q
=q
->next
)
136 if (!strcmp(q
->domainname
, domainname
) && q
->active
)
138 if (!q
) goto notrans
;
140 lm
= loc
->cat
[category
];
143 return (char *) ((n
== 1) ? msgid1
: msgid2
);
146 for (p
=cats
; p
; p
=p
->next
)
147 if (p
->binding
== q
&& p
->lm
== lm
&& p
->cat
== category
)
151 const char *dirname
, *locname
, *catname
, *modname
, *locp
;
152 size_t dirlen
, loclen
, catlen
, modlen
, alt_modlen
;
156 dirname
= q
->dirname
;
158 catname
= catnames
[category
];
161 loclen
= strlen(locname
);
162 catlen
= catlens
[category
];
164 /* Logically split @mod suffix from locale name. */
165 modname
= memchr(locname
, '@', loclen
);
166 if (!modname
) modname
= locname
+ loclen
;
167 alt_modlen
= modlen
= loclen
- (modname
-locname
);
168 loclen
= modname
-locname
;
170 /* Drop .charset identifier; it is not used. */
171 const char *csp
= memchr(locname
, '.', loclen
);
172 if (csp
) loclen
= csp
-locname
;
174 char name
[dirlen
+1 + loclen
+modlen
+1 + catlen
+1 + domlen
+3 + 1];
178 snprintf(name
, sizeof name
, "%s/%.*s%.*s/%s/%s.mo\0",
179 dirname
, (int)loclen
, locname
,
180 (int)alt_modlen
, modname
, catname
, domainname
);
181 if (map
= __map_file(name
, &map_size
)) break;
183 /* Try dropping @mod, _YY, then both. */
186 } else if ((locp
= memchr(locname
, '_', loclen
))) {
187 loclen
= locp
-locname
;
193 if (!map
) goto notrans
;
195 p
= calloc(sizeof *p
, 1);
197 __munmap((void *)map
, map_size
);
204 p
->map_size
= map_size
;
208 } while (a_cas_p(&cats
, old_cats
, p
) != old_cats
);
211 const char *trans
= __mo_lookup(p
->map
, p
->map_size
, msgid1
);
212 if (!trans
) goto notrans
;
214 /* Non-plural-processing gettext forms pass a null pointer as
215 * msgid2 to request that dcngettext suppress plural processing. */
216 if (!msgid2
) return (char *)trans
;
218 if (!p
->plural_rule
) {
219 const char *rule
= "n!=1;";
220 unsigned long np
= 2;
221 const char *r
= __mo_lookup(p
->map
, p
->map_size
, "");
223 while (r
&& strncmp(r
, "Plural-Forms:", 13)) {
229 while (isspace(*r
)) r
++;
230 if (!strncmp(r
, "nplurals=", 9)) {
231 np
= strtoul(r
+9, &z
, 10);
234 while (*r
&& *r
!= ';') r
++;
237 while (isspace(*r
)) r
++;
238 if (!strncmp(r
, "plural=", 7))
242 a_store(&p
->nplurals
, np
);
243 a_cas_p(&p
->plural_rule
, 0, (void *)rule
);
246 unsigned long plural
= __pleval(p
->plural_rule
, n
);
247 if (plural
> p
->nplurals
) goto notrans
;
249 size_t rem
= p
->map_size
- (trans
- (char *)p
->map
);
250 size_t l
= strnlen(trans
, rem
);
256 return (char *)trans
;
259 char *dcgettext(const char *domainname
, const char *msgid
, int category
)
261 return dcngettext(domainname
, msgid
, 0, 1, category
);
264 char *dngettext(const char *domainname
, const char *msgid1
, const char *msgid2
, unsigned long int n
)
266 return dcngettext(domainname
, msgid1
, msgid2
, n
, LC_MESSAGES
);
269 char *dgettext(const char *domainname
, const char *msgid
)
271 return dcngettext(domainname
, msgid
, 0, 1, LC_MESSAGES
);