9 #include "locale_impl.h"
23 static void *volatile bindings
;
25 static char *gettextdir(const char *domainname
, size_t *dirlen
)
28 for (p
=bindings
; p
; p
=p
->next
) {
29 if (!strcmp(p
->domainname
, domainname
) && p
->active
) {
31 return (char *)p
->dirname
;
37 char *bindtextdomain(const char *domainname
, const char *dirname
)
39 static volatile int lock
[1];
40 struct binding
*p
, *q
;
42 if (!domainname
) return 0;
43 if (!dirname
) return gettextdir(domainname
, &(size_t){0});
45 size_t domlen
= strnlen(domainname
, NAME_MAX
+1);
46 size_t dirlen
= strnlen(dirname
, PATH_MAX
);
47 if (domlen
> NAME_MAX
|| dirlen
>= PATH_MAX
) {
54 for (p
=bindings
; p
; p
=p
->next
) {
55 if (!strcmp(p
->domainname
, domainname
) &&
56 !strcmp(p
->dirname
, dirname
)) {
62 p
= calloc(sizeof *p
+ domlen
+ dirlen
+ 2, 1);
69 p
->domainname
= p
->buf
;
70 p
->dirname
= p
->buf
+ domlen
+ 1;
71 memcpy(p
->domainname
, domainname
, domlen
+1);
72 memcpy(p
->dirname
, dirname
, dirlen
+1);
73 a_cas_p(&bindings
, bindings
, p
);
76 a_store(&p
->active
, 1);
78 for (q
=bindings
; q
; q
=q
->next
) {
79 if (!strcmp(q
->domainname
, domainname
) && q
!= p
)
80 a_store(&q
->active
, 0);
85 return (char *)p
->dirname
;
88 static const char catnames
[][12] = {
97 static const char catlens
[] = { 8, 10, 7, 10, 11, 11 };
103 const char *plural_rule
;
105 struct binding
*binding
;
106 const struct __locale_map
*lm
;
110 static char *dummy_gettextdomain()
115 weak_alias(dummy_gettextdomain
, __gettextdomain
);
117 char *dcngettext(const char *domainname
, const char *msgid1
, const char *msgid2
, unsigned long int n
, int category
)
119 static struct msgcat
*volatile cats
;
121 struct __locale_struct
*loc
= CURRENT_LOCALE
;
122 const struct __locale_map
*lm
;
126 if ((unsigned)category
>= LC_ALL
) goto notrans
;
128 if (!domainname
) domainname
= __gettextdomain();
130 domlen
= strnlen(domainname
, NAME_MAX
+1);
131 if (domlen
> NAME_MAX
) goto notrans
;
133 for (q
=bindings
; q
; q
=q
->next
)
134 if (!strcmp(q
->domainname
, domainname
) && q
->active
)
136 if (!q
) goto notrans
;
138 lm
= loc
->cat
[category
];
141 return (char *) ((n
== 1) ? msgid1
: msgid2
);
144 for (p
=cats
; p
; p
=p
->next
)
145 if (p
->binding
== q
&& p
->lm
== lm
&& p
->cat
== category
)
149 const char *dirname
, *locname
, *catname
, *modname
, *locp
;
150 size_t dirlen
, loclen
, catlen
, modlen
, alt_modlen
;
154 dirname
= q
->dirname
;
156 catname
= catnames
[category
];
159 loclen
= strlen(locname
);
160 catlen
= catlens
[category
];
162 /* Logically split @mod suffix from locale name. */
163 modname
= memchr(locname
, '@', loclen
);
164 if (!modname
) modname
= locname
+ loclen
;
165 alt_modlen
= modlen
= loclen
- (modname
-locname
);
166 loclen
= modname
-locname
;
168 /* Drop .charset identifier; it is not used. */
169 const char *csp
= memchr(locname
, '.', loclen
);
170 if (csp
) loclen
= csp
-locname
;
172 char name
[dirlen
+1 + loclen
+modlen
+1 + catlen
+1 + domlen
+3 + 1];
176 snprintf(name
, sizeof name
, "%s/%.*s%.*s/%s/%s.mo\0",
177 dirname
, (int)loclen
, locname
,
178 (int)alt_modlen
, modname
, catname
, domainname
);
179 if (map
= __map_file(name
, &map_size
)) break;
181 /* Try dropping @mod, _YY, then both. */
184 } else if ((locp
= memchr(locname
, '_', loclen
))) {
185 loclen
= locp
-locname
;
191 if (!map
) goto notrans
;
193 p
= calloc(sizeof *p
, 1);
195 __munmap((void *)map
, map_size
);
202 p
->map_size
= map_size
;
204 const char *rule
= "n!=1;";
205 unsigned long np
= 2;
206 const char *r
= __mo_lookup(p
->map
, p
->map_size
, "");
208 while (r
&& strncmp(r
, "Plural-Forms:", 13)) {
214 while (isspace(*r
)) r
++;
215 if (!strncmp(r
, "nplurals=", 9)) {
216 np
= strtoul(r
+9, &z
, 10);
219 while (*r
&& *r
!= ';') r
++;
222 while (isspace(*r
)) r
++;
223 if (!strncmp(r
, "plural=", 7))
228 p
->plural_rule
= rule
;
233 } while (a_cas_p(&cats
, old_cats
, p
) != old_cats
);
236 const char *trans
= __mo_lookup(p
->map
, p
->map_size
, msgid1
);
237 if (!trans
) goto notrans
;
239 /* Non-plural-processing gettext forms pass a null pointer as
240 * msgid2 to request that dcngettext suppress plural processing. */
242 if (msgid2
&& p
->nplurals
) {
243 unsigned long plural
= __pleval(p
->plural_rule
, n
);
244 if (plural
> p
->nplurals
) goto notrans
;
246 size_t rem
= p
->map_size
- (trans
- (char *)p
->map
);
247 size_t l
= strnlen(trans
, rem
);
253 return (char *)trans
;
256 char *dcgettext(const char *domainname
, const char *msgid
, int category
)
258 return dcngettext(domainname
, msgid
, 0, 1, category
);
261 char *dngettext(const char *domainname
, const char *msgid1
, const char *msgid2
, unsigned long int n
)
263 return dcngettext(domainname
, msgid1
, msgid2
, n
, LC_MESSAGES
);
266 char *dgettext(const char *domainname
, const char *msgid
)
268 return dcngettext(domainname
, msgid
, 0, 1, LC_MESSAGES
);