9 #include "locale_impl.h"
13 #include "fork_impl.h"
15 #define malloc __libc_malloc
16 #define calloc __libc_calloc
29 static void *volatile bindings
;
31 static char *gettextdir(const char *domainname
, size_t *dirlen
)
34 for (p
=bindings
; p
; p
=p
->next
) {
35 if (!strcmp(p
->domainname
, domainname
) && p
->active
) {
37 return (char *)p
->dirname
;
43 static volatile int lock
[1];
44 volatile int *const __gettext_lockptr
= lock
;
46 char *bindtextdomain(const char *domainname
, const char *dirname
)
48 struct binding
*p
, *q
;
50 if (!domainname
) return 0;
51 if (!dirname
) return gettextdir(domainname
, &(size_t){0});
53 size_t domlen
= strnlen(domainname
, NAME_MAX
+1);
54 size_t dirlen
= strnlen(dirname
, PATH_MAX
);
55 if (domlen
> NAME_MAX
|| dirlen
>= PATH_MAX
) {
62 for (p
=bindings
; p
; p
=p
->next
) {
63 if (!strcmp(p
->domainname
, domainname
) &&
64 !strcmp(p
->dirname
, dirname
)) {
70 p
= calloc(sizeof *p
+ domlen
+ dirlen
+ 2, 1);
77 p
->domainname
= p
->buf
;
78 p
->dirname
= p
->buf
+ domlen
+ 1;
79 memcpy(p
->domainname
, domainname
, domlen
+1);
80 memcpy(p
->dirname
, dirname
, dirlen
+1);
81 a_cas_p(&bindings
, bindings
, p
);
84 a_store(&p
->active
, 1);
86 for (q
=bindings
; q
; q
=q
->next
) {
87 if (!strcmp(q
->domainname
, domainname
) && q
!= p
)
88 a_store(&q
->active
, 0);
93 return (char *)p
->dirname
;
96 static const char catnames
[][12] = {
105 static const char catlens
[] = { 8, 10, 7, 10, 11, 11 };
111 const char *plural_rule
;
113 struct binding
*binding
;
114 const struct __locale_map
*lm
;
118 static char *dummy_gettextdomain()
123 weak_alias(dummy_gettextdomain
, __gettextdomain
);
125 char *dcngettext(const char *domainname
, const char *msgid1
, const char *msgid2
, unsigned long int n
, int category
)
127 static struct msgcat
*volatile cats
;
129 struct __locale_struct
*loc
= CURRENT_LOCALE
;
130 const struct __locale_map
*lm
;
133 int old_errno
= errno
;
135 if ((unsigned)category
>= LC_ALL
) goto notrans
;
137 if (!domainname
) domainname
= __gettextdomain();
139 domlen
= strnlen(domainname
, NAME_MAX
+1);
140 if (domlen
> NAME_MAX
) goto notrans
;
142 for (q
=bindings
; q
; q
=q
->next
)
143 if (!strcmp(q
->domainname
, domainname
) && q
->active
)
145 if (!q
) goto notrans
;
147 lm
= loc
->cat
[category
];
151 return (char *) ((n
== 1) ? msgid1
: msgid2
);
154 for (p
=cats
; p
; p
=p
->next
)
155 if (p
->binding
== q
&& p
->lm
== lm
&& p
->cat
== category
)
159 const char *dirname
, *locname
, *catname
, *modname
, *locp
;
160 size_t dirlen
, loclen
, catlen
, modlen
, alt_modlen
;
164 dirname
= q
->dirname
;
166 catname
= catnames
[category
];
169 loclen
= strlen(locname
);
170 catlen
= catlens
[category
];
172 /* Logically split @mod suffix from locale name. */
173 modname
= memchr(locname
, '@', loclen
);
174 if (!modname
) modname
= locname
+ loclen
;
175 alt_modlen
= modlen
= loclen
- (modname
-locname
);
176 loclen
= modname
-locname
;
178 /* Drop .charset identifier; it is not used. */
179 const char *csp
= memchr(locname
, '.', loclen
);
180 if (csp
) loclen
= csp
-locname
;
182 char name
[dirlen
+1 + loclen
+modlen
+1 + catlen
+1 + domlen
+3 + 1];
186 snprintf(name
, sizeof name
, "%s/%.*s%.*s/%s/%s.mo\0",
187 dirname
, (int)loclen
, locname
,
188 (int)alt_modlen
, modname
, catname
, domainname
);
189 if (map
= __map_file(name
, &map_size
)) break;
191 /* Try dropping @mod, _YY, then both. */
194 } else if ((locp
= memchr(locname
, '_', loclen
))) {
195 loclen
= locp
-locname
;
201 if (!map
) goto notrans
;
203 p
= calloc(sizeof *p
, 1);
205 __munmap((void *)map
, map_size
);
212 p
->map_size
= map_size
;
214 const char *rule
= "n!=1;";
215 unsigned long np
= 2;
216 const char *r
= __mo_lookup(p
->map
, p
->map_size
, "");
218 while (r
&& strncmp(r
, "Plural-Forms:", 13)) {
224 while (isspace(*r
)) r
++;
225 if (!strncmp(r
, "nplurals=", 9)) {
226 np
= strtoul(r
+9, &z
, 10);
229 while (*r
&& *r
!= ';') r
++;
232 while (isspace(*r
)) r
++;
233 if (!strncmp(r
, "plural=", 7))
238 p
->plural_rule
= rule
;
243 } while (a_cas_p(&cats
, old_cats
, p
) != old_cats
);
246 const char *trans
= __mo_lookup(p
->map
, p
->map_size
, msgid1
);
247 if (!trans
) goto notrans
;
249 /* Non-plural-processing gettext forms pass a null pointer as
250 * msgid2 to request that dcngettext suppress plural processing. */
252 if (msgid2
&& p
->nplurals
) {
253 unsigned long plural
= __pleval(p
->plural_rule
, n
);
254 if (plural
> p
->nplurals
) goto notrans
;
256 size_t rem
= p
->map_size
- (trans
- (char *)p
->map
);
257 size_t l
= strnlen(trans
, rem
);
264 return (char *)trans
;
267 char *dcgettext(const char *domainname
, const char *msgid
, int category
)
269 return dcngettext(domainname
, msgid
, 0, 1, category
);
272 char *dngettext(const char *domainname
, const char *msgid1
, const char *msgid2
, unsigned long int n
)
274 return dcngettext(domainname
, msgid1
, msgid2
, n
, LC_MESSAGES
);
277 char *dgettext(const char *domainname
, const char *msgid
)
279 return dcngettext(domainname
, msgid
, 0, 1, LC_MESSAGES
);