Home | History | Annotate | Line # | Download | only in libintl
gettext.c revision 1.10
      1  1.10     yamt /*	$NetBSD: gettext.c,v 1.10 2001/09/27 15:29:06 yamt Exp $	*/
      2   1.1   itojun 
      3   1.1   itojun /*-
      4   1.9  minoura  * Copyright (c) 2000, 2001 Citrus Project,
      5   1.1   itojun  * All rights reserved.
      6   1.1   itojun  *
      7   1.1   itojun  * Redistribution and use in source and binary forms, with or without
      8   1.1   itojun  * modification, are permitted provided that the following conditions
      9   1.1   itojun  * are met:
     10   1.1   itojun  * 1. Redistributions of source code must retain the above copyright
     11   1.1   itojun  *    notice, this list of conditions and the following disclaimer.
     12   1.1   itojun  * 2. Redistributions in binary form must reproduce the above copyright
     13   1.1   itojun  *    notice, this list of conditions and the following disclaimer in the
     14   1.1   itojun  *    documentation and/or other materials provided with the distribution.
     15   1.1   itojun  *
     16   1.1   itojun  * THIS SOFTWARE IS PROVIDED BY THE AUTHOR AND CONTRIBUTORS ``AS IS'' AND
     17   1.1   itojun  * ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
     18   1.1   itojun  * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
     19   1.1   itojun  * ARE DISCLAIMED.  IN NO EVENT SHALL THE AUTHOR OR CONTRIBUTORS BE LIABLE
     20   1.1   itojun  * FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
     21   1.1   itojun  * DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS
     22   1.1   itojun  * OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)
     23   1.1   itojun  * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT
     24   1.1   itojun  * LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY
     25   1.1   itojun  * OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF
     26   1.1   itojun  * SUCH DAMAGE.
     27  1.10     yamt  *
     28  1.10     yamt  * $Citrus: xpg4dl/FreeBSD/lib/libintl/gettext.c,v 1.31 2001/09/27 15:18:45 yamt Exp $
     29   1.1   itojun  */
     30   1.1   itojun 
     31   1.1   itojun #include <sys/cdefs.h>
     32   1.1   itojun #if defined(LIBC_SCCS) && !defined(lint)
     33  1.10     yamt __RCSID("$NetBSD: gettext.c,v 1.10 2001/09/27 15:29:06 yamt Exp $");
     34   1.1   itojun #endif /* LIBC_SCCS and not lint */
     35   1.1   itojun 
     36   1.1   itojun #include <sys/types.h>
     37   1.1   itojun #include <sys/param.h>
     38   1.1   itojun #include <sys/stat.h>
     39   1.1   itojun #include <sys/mman.h>
     40   1.1   itojun #include <sys/uio.h>
     41   1.1   itojun 
     42   1.1   itojun #include <fcntl.h>
     43   1.1   itojun #include <stdio.h>
     44   1.1   itojun #include <stdlib.h>
     45   1.1   itojun #include <unistd.h>
     46   1.1   itojun #include <string.h>
     47   1.1   itojun #if 0
     48   1.1   itojun #include <util.h>
     49   1.1   itojun #endif
     50   1.1   itojun #include <libintl.h>
     51   1.1   itojun #include <locale.h>
     52   1.1   itojun #include "libintl_local.h"
     53   1.1   itojun #include "pathnames.h"
     54   1.1   itojun 
     55   1.1   itojun static const char *lookup_category __P((int));
     56   1.1   itojun static const char *split_locale __P((const char *));
     57   1.1   itojun static const char *lookup_mofile __P((char *, size_t, const char *,
     58  1.10     yamt 	const char *, const char *, const char *, struct domainbinding *));
     59   1.1   itojun static u_int32_t flip __P((u_int32_t, u_int32_t));
     60   1.9  minoura static int validate __P((void *, struct mohandle *));
     61   1.9  minoura static int mapit __P((const char *, struct domainbinding *));
     62   1.9  minoura static int unmapit __P((struct domainbinding *));
     63   1.9  minoura static const char *lookup_hash __P((const char *, struct domainbinding *));
     64   1.9  minoura static const char *lookup_bsearch __P((const char *, struct domainbinding *));
     65   1.9  minoura static const char *lookup __P((const char *, struct domainbinding *));
     66  1.10     yamt static const char *get_lang_env(const char *);
     67   1.1   itojun 
     68   1.1   itojun /*
     69   1.1   itojun  * shortcut functions.  the main implementation resides in dcngettext().
     70   1.1   itojun  */
     71   1.1   itojun char *
     72   1.1   itojun gettext(msgid)
     73   1.1   itojun 	const char *msgid;
     74   1.1   itojun {
     75   1.1   itojun 
     76   1.1   itojun 	return dcngettext(NULL, msgid, NULL, 1UL, LC_MESSAGES);
     77   1.1   itojun }
     78   1.1   itojun 
     79   1.1   itojun char *
     80   1.1   itojun dgettext(domainname, msgid)
     81   1.1   itojun 	const char *domainname;
     82   1.1   itojun 	const char *msgid;
     83   1.1   itojun {
     84   1.1   itojun 
     85   1.1   itojun 	return dcngettext(domainname, msgid, NULL, 1UL, LC_MESSAGES);
     86   1.1   itojun }
     87   1.1   itojun 
     88   1.1   itojun char *
     89   1.1   itojun dcgettext(domainname, msgid, category)
     90   1.1   itojun 	const char *domainname;
     91   1.1   itojun 	const char *msgid;
     92   1.1   itojun 	int category;
     93   1.1   itojun {
     94   1.1   itojun 
     95   1.1   itojun 	return dcngettext(domainname, msgid, NULL, 1UL, category);
     96   1.1   itojun }
     97   1.1   itojun 
     98   1.1   itojun char *
     99   1.1   itojun ngettext(msgid1, msgid2, n)
    100   1.1   itojun 	const char *msgid1;
    101   1.1   itojun 	const char *msgid2;
    102   1.1   itojun 	unsigned long int n;
    103   1.1   itojun {
    104   1.1   itojun 
    105   1.1   itojun 	return dcngettext(NULL, msgid1, msgid2, n, LC_MESSAGES);
    106   1.1   itojun }
    107   1.1   itojun 
    108   1.1   itojun char *
    109   1.1   itojun dngettext(domainname, msgid1, msgid2, n)
    110   1.1   itojun 	const char *domainname;
    111   1.1   itojun 	const char *msgid1;
    112   1.1   itojun 	const char *msgid2;
    113   1.1   itojun 	unsigned long int n;
    114   1.1   itojun {
    115   1.1   itojun 
    116   1.1   itojun 	return dcngettext(domainname, msgid1, msgid2, n, LC_MESSAGES);
    117   1.1   itojun }
    118   1.1   itojun 
    119   1.1   itojun /*
    120   1.1   itojun  * dcngettext() -
    121   1.1   itojun  * lookup internationalized message on database locale/category/domainname
    122   1.1   itojun  * (like ja_JP.eucJP/LC_MESSAGES/domainname).
    123   1.1   itojun  * if n equals to 1, internationalized message will be looked up for msgid1.
    124   1.1   itojun  * otherwise, message will be looked up for msgid2.
    125   1.1   itojun  * if the lookup fails, the function will return msgid1 or msgid2 as is.
    126   1.1   itojun  *
    127   1.1   itojun  * Even though the return type is "char *", caller should not rewrite the
    128   1.1   itojun  * region pointed to by the return value (should be "const char *", but can't
    129   1.1   itojun  * change it for compatibility with other implementations).
    130   1.1   itojun  *
    131   1.1   itojun  * by default (if domainname == NULL), domainname is taken from the value set
    132   1.1   itojun  * by textdomain().  usually name of the application (like "ls") is used as
    133   1.1   itojun  * domainname.  category is usually LC_MESSAGES.
    134   1.1   itojun  *
    135   1.1   itojun  * the code reads in *.mo files generated by GNU gettext.  *.mo is a host-
    136   1.1   itojun  * endian encoded file.  both endians are supported here, as the files are in
    137   1.1   itojun  * /usr/share/locale! (or we should move those files into /usr/libdata)
    138   1.1   itojun  */
    139   1.1   itojun 
    140   1.1   itojun static const char *
    141   1.1   itojun lookup_category(category)
    142   1.1   itojun 	int category;
    143   1.1   itojun {
    144   1.1   itojun 
    145   1.1   itojun 	switch (category) {
    146   1.1   itojun 	case LC_COLLATE:	return "LC_COLLATE";
    147   1.1   itojun 	case LC_CTYPE:		return "LC_CTYPE";
    148   1.1   itojun 	case LC_MONETARY:	return "LC_MONETARY";
    149   1.1   itojun 	case LC_NUMERIC:	return "LC_NUMERIC";
    150   1.1   itojun 	case LC_TIME:		return "LC_TIME";
    151   1.1   itojun 	case LC_MESSAGES:	return "LC_MESSAGES";
    152   1.1   itojun 	}
    153   1.1   itojun 	return NULL;
    154   1.1   itojun }
    155   1.1   itojun 
    156   1.1   itojun /*
    157   1.1   itojun  * XPG syntax: language[_territory[.codeset]][@modifier]
    158   1.1   itojun  * XXX boundary check on "result" is lacking
    159   1.1   itojun  */
    160   1.1   itojun static const char *
    161   1.1   itojun split_locale(lname)
    162   1.1   itojun 	const char *lname;
    163   1.1   itojun {
    164   1.1   itojun 	char buf[BUFSIZ], tmp[BUFSIZ];
    165   1.1   itojun 	char *l, *t, *c, *m;
    166   1.1   itojun 	static char result[BUFSIZ];
    167   1.1   itojun 
    168   1.1   itojun 	memset(result, 0, sizeof(result));
    169   1.1   itojun 
    170   1.1   itojun 	if (strlen(lname) + 1 > sizeof(buf)) {
    171   1.1   itojun fail:
    172   1.1   itojun 		return lname;
    173   1.1   itojun 	}
    174   1.1   itojun 
    175   1.1   itojun 	strlcpy(buf, lname, sizeof(buf));
    176   1.1   itojun 	m = strrchr(buf, '@');
    177   1.1   itojun 	if (m)
    178   1.1   itojun 		*m++ = '\0';
    179   1.1   itojun 	c = strrchr(buf, '.');
    180   1.1   itojun 	if (c)
    181   1.1   itojun 		*c++ = '\0';
    182   1.1   itojun 	t = strrchr(buf, '_');
    183   1.1   itojun 	if (t)
    184   1.1   itojun 		*t++ = '\0';
    185   1.1   itojun 	l = buf;
    186   1.1   itojun 	if (strlen(l) == 0)
    187   1.1   itojun 		goto fail;
    188   1.1   itojun 	if (c && !t)
    189   1.1   itojun 		goto fail;
    190   1.1   itojun 
    191   1.1   itojun 	if (m) {
    192   1.1   itojun 		if (t) {
    193   1.1   itojun 			if (c) {
    194   1.1   itojun 				snprintf(tmp, sizeof(tmp), "%s_%s.%s@%s",
    195   1.1   itojun 				    l, t, c, m);
    196   1.1   itojun 				strlcat(result, tmp, sizeof(result));
    197   1.1   itojun 				strlcat(result, ":", sizeof(result));
    198   1.1   itojun 			}
    199   1.1   itojun 			snprintf(tmp, sizeof(tmp), "%s_%s@%s", l, t, m);
    200   1.1   itojun 			strlcat(result, tmp, sizeof(result));
    201   1.1   itojun 			strlcat(result, ":", sizeof(result));
    202   1.1   itojun 		}
    203   1.1   itojun 		snprintf(tmp, sizeof(tmp), "%s@%s", l, m);
    204   1.1   itojun 		strlcat(result, tmp, sizeof(result));
    205   1.1   itojun 		strlcat(result, ":", sizeof(result));
    206   1.1   itojun 	}
    207   1.1   itojun 	if (t) {
    208   1.1   itojun 		if (c) {
    209   1.1   itojun 			snprintf(tmp, sizeof(tmp), "%s_%s.%s", l, t, c);
    210   1.1   itojun 			strlcat(result, tmp, sizeof(result));
    211   1.1   itojun 			strlcat(result, ":", sizeof(result));
    212   1.1   itojun 		}
    213   1.1   itojun 		strlcat(result, tmp, sizeof(result));
    214   1.1   itojun 		strlcat(result, ":", sizeof(result));
    215   1.1   itojun 	}
    216   1.1   itojun 	strlcat(result, l, sizeof(result));
    217   1.1   itojun 
    218   1.1   itojun 	return result;
    219   1.1   itojun }
    220   1.1   itojun 
    221   1.1   itojun static const char *
    222   1.9  minoura lookup_mofile(buf, len, dir, lpath, category, domainname, db)
    223   1.1   itojun 	char *buf;
    224   1.1   itojun 	size_t len;
    225   1.1   itojun 	const char *dir;
    226  1.10     yamt 	const char *lpath;	/* list of locales to be tried */
    227   1.1   itojun 	const char *category;
    228   1.1   itojun 	const char *domainname;
    229   1.9  minoura 	struct domainbinding *db;
    230   1.1   itojun {
    231   1.1   itojun 	struct stat st;
    232   1.1   itojun 	char *p, *q;
    233  1.10     yamt 	char lpath_tmp[BUFSIZ];
    234   1.1   itojun 
    235  1.10     yamt 	strlcpy(lpath_tmp, lpath, sizeof(lpath_tmp));
    236  1.10     yamt 	q = lpath_tmp;
    237   1.9  minoura 	/* CONSTCOND */
    238   1.1   itojun 	while (1) {
    239   1.1   itojun 		p = strsep(&q, ":");
    240   1.1   itojun 		if (!p)
    241   1.1   itojun 			break;
    242   1.1   itojun 		if (!*p)
    243   1.1   itojun 			continue;
    244   1.1   itojun 
    245   1.1   itojun 		/* don't mess with default locales */
    246   1.1   itojun 		if (strcmp(p, "C") == 0 || strcmp(p, "POSIX") == 0)
    247   1.1   itojun 			return NULL;
    248   1.1   itojun 
    249   1.1   itojun 		/* validate pathname */
    250   1.1   itojun 		if (strchr(p, '/') || strchr(category, '/'))
    251   1.1   itojun 			continue;
    252   1.1   itojun #if 1	/*?*/
    253   1.1   itojun 		if (strchr(domainname, '/'))
    254   1.1   itojun 			continue;
    255   1.1   itojun #endif
    256   1.1   itojun 
    257   1.1   itojun 		snprintf(buf, len, "%s/%s/%s/%s.mo", dir, p,
    258   1.1   itojun 		    category, domainname);
    259   1.1   itojun 		if (stat(buf, &st) < 0)
    260   1.1   itojun 			continue;
    261   1.1   itojun 		if ((st.st_mode & S_IFMT) != S_IFREG)
    262   1.1   itojun 			continue;
    263   1.1   itojun 
    264   1.9  minoura 		if (mapit(buf, db) == 0)
    265   1.1   itojun 			return buf;
    266   1.1   itojun 	}
    267   1.1   itojun 
    268   1.1   itojun 	return NULL;
    269   1.1   itojun }
    270   1.1   itojun 
    271   1.1   itojun static u_int32_t
    272   1.1   itojun flip(v, magic)
    273   1.1   itojun 	u_int32_t v;
    274   1.1   itojun 	u_int32_t magic;
    275   1.1   itojun {
    276   1.1   itojun 
    277   1.1   itojun 	if (magic == MO_MAGIC)
    278   1.1   itojun 		return v;
    279   1.1   itojun 	else if (magic == MO_MAGIC_SWAPPED) {
    280   1.1   itojun 		v = ((v >> 24) & 0xff) | ((v >> 8) & 0xff00) |
    281   1.1   itojun 		    ((v << 8) & 0xff0000) | ((v << 24) & 0xff000000);
    282   1.1   itojun 		return v;
    283   1.1   itojun 	} else {
    284   1.1   itojun 		abort();
    285   1.1   itojun 		/*NOTREACHED*/
    286   1.1   itojun 	}
    287   1.1   itojun }
    288   1.1   itojun 
    289   1.1   itojun static int
    290   1.9  minoura validate(arg, mohandle)
    291   1.1   itojun 	void *arg;
    292   1.9  minoura 	struct mohandle *mohandle;
    293   1.1   itojun {
    294   1.1   itojun 	char *p;
    295   1.1   itojun 
    296   1.1   itojun 	p = (char *)arg;
    297   1.9  minoura 	if (p < (char *)mohandle->addr ||
    298   1.9  minoura 	    p > (char *)mohandle->addr + mohandle->len)
    299   1.1   itojun 		return 0;
    300   1.1   itojun 	else
    301   1.1   itojun 		return 1;
    302   1.1   itojun }
    303   1.1   itojun 
    304   1.1   itojun int
    305   1.9  minoura mapit(path, db)
    306   1.1   itojun 	const char *path;
    307   1.9  minoura 	struct domainbinding *db;
    308   1.1   itojun {
    309   1.1   itojun 	int fd;
    310   1.1   itojun 	struct stat st;
    311   1.1   itojun 	char *base;
    312   1.1   itojun 	u_int32_t magic, revision;
    313   1.1   itojun 	struct moentry *otable, *ttable;
    314   1.1   itojun 	struct moentry_h *p;
    315   1.1   itojun 	struct mo *mo;
    316   1.1   itojun 	size_t l;
    317   1.1   itojun 	int i;
    318   1.1   itojun 	char *v;
    319   1.9  minoura 	struct mohandle *mohandle = &db->mohandle;
    320   1.1   itojun 
    321   1.9  minoura 	if (mohandle->addr && mohandle->addr != MAP_FAILED &&
    322   1.9  minoura 	    mohandle->mo.mo_magic)
    323   1.1   itojun 		return 0;	/*already opened*/
    324   1.1   itojun 
    325   1.9  minoura 	unmapit(db);
    326   1.1   itojun 
    327   1.1   itojun #if 0
    328   1.1   itojun 	if (secure_path(path) != 0)
    329   1.1   itojun 		goto fail;
    330   1.1   itojun #endif
    331   1.1   itojun 	if (stat(path, &st) < 0)
    332   1.1   itojun 		goto fail;
    333   1.1   itojun 	if ((st.st_mode & S_IFMT) != S_IFREG || st.st_size > GETTEXT_MMAP_MAX)
    334   1.1   itojun 		goto fail;
    335   1.1   itojun 	fd = open(path, O_RDONLY);
    336   1.1   itojun 	if (fd < 0)
    337   1.1   itojun 		goto fail;
    338   1.2   itojun 	if (read(fd, &magic, sizeof(magic)) != sizeof(magic) ||
    339   1.1   itojun 	    (magic != MO_MAGIC && magic != MO_MAGIC_SWAPPED)) {
    340   1.1   itojun 		close(fd);
    341   1.1   itojun 		goto fail;
    342   1.1   itojun 	}
    343   1.2   itojun 	if (read(fd, &revision, sizeof(revision)) != sizeof(revision) ||
    344   1.1   itojun 	    flip(revision, magic) != MO_REVISION) {
    345   1.1   itojun 		close(fd);
    346   1.1   itojun 		goto fail;
    347   1.1   itojun 	}
    348   1.9  minoura 	mohandle->addr = mmap(NULL, (size_t)st.st_size, PROT_READ,
    349   1.4   itojun 	    MAP_FILE | MAP_SHARED, fd, (off_t)0);
    350   1.9  minoura 	if (!mohandle->addr || mohandle->addr == MAP_FAILED) {
    351   1.1   itojun 		close(fd);
    352   1.1   itojun 		goto fail;
    353   1.1   itojun 	}
    354   1.1   itojun 	close(fd);
    355   1.9  minoura 	mohandle->len = (size_t)st.st_size;
    356   1.1   itojun 
    357   1.9  minoura 	base = mohandle->addr;
    358   1.9  minoura 	mo = (struct mo *)mohandle->addr;
    359   1.1   itojun 
    360   1.1   itojun 	/* flip endian.  do not flip magic number! */
    361   1.9  minoura 	mohandle->mo.mo_magic = mo->mo_magic;
    362   1.9  minoura 	mohandle->mo.mo_revision = flip(mo->mo_revision, magic);
    363   1.9  minoura 	mohandle->mo.mo_nstring = flip(mo->mo_nstring, magic);
    364   1.1   itojun 
    365   1.1   itojun 	/* validate otable/ttable */
    366   1.1   itojun 	otable = (struct moentry *)(base + flip(mo->mo_otable, magic));
    367   1.1   itojun 	ttable = (struct moentry *)(base + flip(mo->mo_ttable, magic));
    368   1.9  minoura 	if (!validate(otable, mohandle) ||
    369   1.9  minoura 	    !validate(&otable[mohandle->mo.mo_nstring], mohandle)) {
    370   1.9  minoura 		unmapit(db);
    371   1.1   itojun 		goto fail;
    372   1.1   itojun 	}
    373   1.9  minoura 	if (!validate(ttable, mohandle) ||
    374   1.9  minoura 	    !validate(&ttable[mohandle->mo.mo_nstring], mohandle)) {
    375   1.9  minoura 		unmapit(db);
    376   1.1   itojun 		goto fail;
    377   1.1   itojun 	}
    378   1.1   itojun 
    379   1.1   itojun 	/* allocate [ot]table, and convert to normal pointer representation. */
    380   1.9  minoura 	l = sizeof(struct moentry_h) * mohandle->mo.mo_nstring;
    381   1.9  minoura 	mohandle->mo.mo_otable = (struct moentry_h *)malloc(l);
    382   1.9  minoura 	if (!mohandle->mo.mo_otable) {
    383   1.9  minoura 		unmapit(db);
    384   1.1   itojun 		goto fail;
    385   1.1   itojun 	}
    386   1.9  minoura 	mohandle->mo.mo_ttable = (struct moentry_h *)malloc(l);
    387   1.9  minoura 	if (!mohandle->mo.mo_ttable) {
    388   1.9  minoura 		unmapit(db);
    389   1.1   itojun 		goto fail;
    390   1.1   itojun 	}
    391   1.9  minoura 	p = mohandle->mo.mo_otable;
    392   1.9  minoura 	for (i = 0; i < mohandle->mo.mo_nstring; i++) {
    393   1.1   itojun 		p[i].len = flip(otable[i].len, magic);
    394   1.1   itojun 		p[i].off = base + flip(otable[i].off, magic);
    395   1.1   itojun 
    396   1.9  minoura 		if (!validate(p[i].off, mohandle) ||
    397   1.9  minoura 		    !validate(p[i].off + p[i].len + 1, mohandle)) {
    398   1.9  minoura 			unmapit(db);
    399   1.1   itojun 			goto fail;
    400   1.1   itojun 		}
    401   1.1   itojun 	}
    402   1.9  minoura 	p = mohandle->mo.mo_ttable;
    403   1.9  minoura 	for (i = 0; i < mohandle->mo.mo_nstring; i++) {
    404   1.1   itojun 		p[i].len = flip(ttable[i].len, magic);
    405   1.1   itojun 		p[i].off = base + flip(ttable[i].off, magic);
    406   1.1   itojun 
    407   1.9  minoura 		if (!validate(p[i].off, mohandle) ||
    408   1.9  minoura 		    !validate(p[i].off + p[i].len + 1, mohandle)) {
    409   1.9  minoura 			unmapit(db);
    410   1.1   itojun 			goto fail;
    411   1.1   itojun 		}
    412   1.1   itojun 	}
    413   1.1   itojun 
    414   1.1   itojun 	/* grab MIME-header and charset field */
    415   1.9  minoura 	mohandle->mo.mo_header = lookup("", db);
    416   1.9  minoura 	if (mohandle->mo.mo_header)
    417   1.9  minoura 		v = strstr(mohandle->mo.mo_header, "charset=");
    418   1.1   itojun 	else
    419   1.1   itojun 		v = NULL;
    420   1.1   itojun 	if (v) {
    421   1.9  minoura 		mohandle->mo.mo_charset = strdup(v + 8);
    422   1.9  minoura 		if (!mohandle->mo.mo_charset)
    423   1.6   itojun 			goto fail;
    424   1.9  minoura 		v = strchr(mohandle->mo.mo_charset, '\n');
    425   1.1   itojun 		if (v)
    426   1.1   itojun 			*v = '\0';
    427   1.1   itojun 	}
    428   1.1   itojun 
    429   1.1   itojun 	/*
    430   1.1   itojun 	 * XXX check charset, reject it if we are unable to support the charset
    431   1.1   itojun 	 * with the current locale.
    432   1.1   itojun 	 * for example, if we are using euc-jp locale and we are looking at
    433   1.1   itojun 	 * *.mo file encoded by euc-kr (charset=euc-kr), we should reject
    434   1.1   itojun 	 * the *.mo file as we cannot support it.
    435   1.1   itojun 	 */
    436   1.1   itojun 
    437   1.1   itojun 	return 0;
    438   1.1   itojun 
    439   1.1   itojun fail:
    440   1.1   itojun 	return -1;
    441   1.1   itojun }
    442   1.1   itojun 
    443   1.1   itojun static int
    444   1.9  minoura unmapit(db)
    445   1.9  minoura 	struct domainbinding *db;
    446   1.1   itojun {
    447   1.9  minoura 	struct mohandle *mohandle = &db->mohandle;
    448   1.1   itojun 
    449   1.1   itojun 	/* unmap if there's already mapped region */
    450   1.9  minoura 	if (mohandle->addr && mohandle->addr != MAP_FAILED)
    451   1.9  minoura 		munmap(mohandle->addr, mohandle->len);
    452   1.9  minoura 	mohandle->addr = NULL;
    453   1.9  minoura 	if (mohandle->mo.mo_otable)
    454   1.9  minoura 		free(mohandle->mo.mo_otable);
    455   1.9  minoura 	if (mohandle->mo.mo_ttable)
    456   1.9  minoura 		free(mohandle->mo.mo_ttable);
    457   1.9  minoura 	if (mohandle->mo.mo_charset)
    458   1.9  minoura 		free(mohandle->mo.mo_charset);
    459   1.9  minoura 	memset(&mohandle->mo, 0, sizeof(mohandle->mo));
    460   1.1   itojun 	return 0;
    461   1.1   itojun }
    462   1.1   itojun 
    463   1.9  minoura /* ARGSUSED */
    464   1.1   itojun static const char *
    465   1.9  minoura lookup_hash(msgid, db)
    466   1.1   itojun 	const char *msgid;
    467   1.9  minoura 	struct domainbinding *db;
    468   1.1   itojun {
    469   1.1   itojun 
    470   1.1   itojun 	/*
    471   1.1   itojun 	 * XXX should try a hashed lookup here, but to do so, we need to
    472   1.1   itojun 	 * look inside the GPL'ed *.c and re-implement...
    473   1.1   itojun 	 */
    474   1.1   itojun 	return NULL;
    475   1.1   itojun }
    476   1.1   itojun 
    477   1.1   itojun static const char *
    478   1.9  minoura lookup_bsearch(msgid, db)
    479   1.1   itojun 	const char *msgid;
    480   1.9  minoura 	struct domainbinding *db;
    481   1.1   itojun {
    482   1.1   itojun 	int top, bottom, middle, omiddle;
    483   1.1   itojun 	int n;
    484   1.9  minoura 	struct mohandle *mohandle = &db->mohandle;
    485   1.1   itojun 
    486   1.1   itojun 	top = 0;
    487   1.9  minoura 	bottom = mohandle->mo.mo_nstring;
    488   1.1   itojun 	omiddle = -1;
    489   1.9  minoura 	/* CONSTCOND */
    490   1.1   itojun 	while (1) {
    491   1.1   itojun 		if (top > bottom)
    492   1.4   itojun 			break;
    493   1.1   itojun 		middle = (top + bottom) / 2;
    494   1.1   itojun 		/* avoid possible infinite loop, when the data is not sorted */
    495   1.1   itojun 		if (omiddle == middle)
    496   1.4   itojun 			break;
    497   1.9  minoura 		if (middle < 0 || middle >= mohandle->mo.mo_nstring)
    498   1.4   itojun 			break;
    499   1.1   itojun 
    500   1.9  minoura 		n = strcmp(msgid, mohandle->mo.mo_otable[middle].off);
    501   1.1   itojun 		if (n == 0)
    502   1.9  minoura 			return (const char *)mohandle->mo.mo_ttable[middle].off;
    503   1.1   itojun 		else if (n < 0)
    504   1.1   itojun 			bottom = middle;
    505   1.1   itojun 		else
    506   1.1   itojun 			top = middle;
    507   1.1   itojun 		omiddle = middle;
    508   1.1   itojun 	}
    509   1.1   itojun 
    510   1.1   itojun 	return NULL;
    511   1.1   itojun }
    512   1.1   itojun 
    513   1.1   itojun static const char *
    514   1.9  minoura lookup(msgid, db)
    515   1.1   itojun 	const char *msgid;
    516   1.9  minoura 	struct domainbinding *db;
    517   1.1   itojun {
    518   1.1   itojun 	const char *v;
    519   1.1   itojun 
    520   1.9  minoura 	v = lookup_hash(msgid, db);
    521   1.1   itojun 	if (v)
    522   1.1   itojun 		return v;
    523   1.1   itojun 
    524   1.9  minoura 	return lookup_bsearch(msgid, db);
    525   1.1   itojun }
    526   1.1   itojun 
    527  1.10     yamt static const char *get_lang_env(const char *category_name)
    528  1.10     yamt {
    529  1.10     yamt 	const char *lang;
    530  1.10     yamt 
    531  1.10     yamt 	/* 1. see LANGUAGE variable first. */
    532  1.10     yamt 	lang = getenv("LANGUAGE");
    533  1.10     yamt 	if (lang)
    534  1.10     yamt 		return lang;
    535  1.10     yamt 
    536  1.10     yamt 	/* 2. if LANGUAGE isn't set, see LC_ALL, LC_xxx, LANG. */
    537  1.10     yamt 	lang = getenv(category_name);
    538  1.10     yamt 	if (!lang)
    539  1.10     yamt 		lang = getenv("LC_ALL");
    540  1.10     yamt 	if (!lang)
    541  1.10     yamt 		lang = getenv("LANG");
    542  1.10     yamt 
    543  1.10     yamt 	if (!lang)
    544  1.10     yamt 		return 0; /* error */
    545  1.10     yamt 
    546  1.10     yamt 	return split_locale(lang);
    547  1.10     yamt }
    548  1.10     yamt 
    549   1.1   itojun char *
    550   1.1   itojun dcngettext(domainname, msgid1, msgid2, n, category)
    551   1.1   itojun 	const char *domainname;
    552   1.1   itojun 	const char *msgid1;
    553   1.1   itojun 	const char *msgid2;
    554   1.1   itojun 	unsigned long int n;
    555   1.1   itojun 	int category;
    556   1.1   itojun {
    557   1.1   itojun 	const char *msgid;
    558   1.1   itojun 	char path[PATH_MAX];
    559  1.10     yamt 	const char *lpath;
    560   1.1   itojun 	static char olpath[PATH_MAX];
    561   1.6   itojun 	const char *cname = NULL;
    562   1.1   itojun 	const char *v;
    563   1.6   itojun 	static char *ocname = NULL;
    564   1.6   itojun 	static char *odomainname = NULL;
    565   1.5   itojun 	struct domainbinding *db;
    566   1.1   itojun 
    567   1.1   itojun 	msgid = (n == 1) ? msgid1 : msgid2;
    568   1.8  minoura 	if (msgid == NULL)
    569   1.8  minoura 		return NULL;
    570   1.1   itojun 
    571   1.1   itojun 	if (!domainname)
    572   1.9  minoura 		domainname = __current_domainname;
    573   1.1   itojun 	cname = lookup_category(category);
    574   1.1   itojun 	if (!domainname || !cname)
    575   1.1   itojun 		goto fail;
    576   1.1   itojun 
    577  1.10     yamt 	lpath = get_lang_env(cname);
    578  1.10     yamt 	if (!lpath)
    579   1.1   itojun 		goto fail;
    580  1.10     yamt 
    581   1.9  minoura 	for (db = __bindings; db; db = db->next)
    582   1.5   itojun 		if (strcmp(db->domainname, domainname) == 0)
    583   1.5   itojun 			break;
    584   1.9  minoura 	if (!db) {
    585   1.9  minoura 		if (!bindtextdomain(domainname, _PATH_TEXTDOMAIN))
    586   1.9  minoura 			goto fail;
    587   1.9  minoura 		db = __bindings;
    588   1.9  minoura 	}
    589   1.5   itojun 
    590   1.1   itojun 	/* don't bother looking it up if the values are the same */
    591   1.5   itojun 	if (odomainname && strcmp(domainname, odomainname) == 0 &&
    592   1.9  minoura 	    ocname && strcmp(cname, ocname) == 0 && strcmp(lpath, olpath) == 0 &&
    593   1.9  minoura 	    db->mohandle.mo.mo_magic)
    594   1.1   itojun 		goto found;
    595   1.1   itojun 
    596   1.1   itojun 	/* try to find appropriate file, from $LANGUAGE */
    597   1.5   itojun 	if (lookup_mofile(path, sizeof(path), db->path, lpath, cname,
    598   1.9  minoura 	    domainname, db) == NULL)
    599   1.3   itojun 		goto fail;
    600   1.5   itojun 
    601   1.5   itojun 	if (odomainname)
    602   1.5   itojun 		free(odomainname);
    603   1.5   itojun 	if (ocname)
    604   1.5   itojun 		free(ocname);
    605   1.6   itojun 	odomainname = strdup(domainname);
    606   1.5   itojun 	ocname = strdup(cname);
    607   1.6   itojun 	if (!odomainname || !ocname) {
    608   1.6   itojun 		if (odomainname)
    609   1.6   itojun 			free(odomainname);
    610   1.6   itojun 		if (ocname)
    611   1.6   itojun 			free(ocname);
    612   1.6   itojun 		odomainname = ocname = NULL;
    613   1.6   itojun 	}
    614  1.10     yamt 	else
    615  1.10     yamt 		strlcpy(olpath, lpath, sizeof(olpath));
    616   1.1   itojun 
    617   1.1   itojun found:
    618   1.9  minoura 	v = lookup(msgid, db);
    619   1.1   itojun 	if (v) {
    620   1.1   itojun 		/*
    621   1.1   itojun 		 * XXX call iconv() here, if translated text is encoded
    622   1.1   itojun 		 * differently from currently-selected encoding (locale).
    623   1.1   itojun 		 * look at Content-type header in *.mo file, in string obtained
    624   1.1   itojun 		 * by gettext("").
    625   1.1   itojun 		 */
    626   1.1   itojun 
    627   1.1   itojun 		/*
    628   1.1   itojun 		 * Given the amount of printf-format security issues, it may
    629   1.1   itojun 		 * be a good idea to validate if the original msgid and the
    630   1.1   itojun 		 * translated message format string carry the same printf-like
    631   1.1   itojun 		 * format identifiers.
    632   1.1   itojun 		 */
    633   1.1   itojun 
    634   1.1   itojun 		msgid = v;
    635   1.1   itojun 	}
    636   1.1   itojun 
    637   1.1   itojun fail:
    638   1.1   itojun 	/* LINTED const cast */
    639   1.1   itojun 	return (char *)msgid;
    640   1.1   itojun }
    641