1/*	$NetBSD: catopen.c,v 1.32 2013/08/19 08:03:34 joerg Exp $	*/
2
3/*-
4 * Copyright (c) 1996 The NetBSD Foundation, Inc.
5 * All rights reserved.
6 *
7 * This code is derived from software contributed to The NetBSD Foundation
8 * by J.T. Conklin.
9 *
10 * Redistribution and use in source and binary forms, with or without
11 * modification, are permitted provided that the following conditions
12 * are met:
13 * 1. Redistributions of source code must retain the above copyright
14 *    notice, this list of conditions and the following disclaimer.
15 * 2. Redistributions in binary form must reproduce the above copyright
16 *    notice, this list of conditions and the following disclaimer in the
17 *    documentation and/or other materials provided with the distribution.
18 *
19 * THIS SOFTWARE IS PROVIDED BY THE NETBSD FOUNDATION, INC. AND CONTRIBUTORS
20 * ``AS IS'' AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED
21 * TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR
22 * PURPOSE ARE DISCLAIMED.  IN NO EVENT SHALL THE FOUNDATION OR CONTRIBUTORS
23 * BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR
24 * CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF
25 * SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS
26 * INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN
27 * CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE)
28 * ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE
29 * POSSIBILITY OF SUCH DAMAGE.
30 */
31
32#include <sys/cdefs.h>
33__RCSID("$NetBSD: catopen.c,v 1.32 2013/08/19 08:03:34 joerg Exp $");
34
35#define _NLS_PRIVATE
36#define __SETLOCALE_SOURCE__
37
38#include "namespace.h"
39#include <sys/param.h>
40#include <sys/stat.h>
41#include <sys/mman.h>
42
43#include <assert.h>
44#include <fcntl.h>
45#include <limits.h>
46#include <locale.h>
47#include <nl_types.h>
48#include <stdlib.h>
49#include <string.h>
50#include <unistd.h>
51
52#include "citrus_namespace.h"
53#include "citrus_bcs.h"
54#include "citrus_region.h"
55#include "citrus_lookup.h"
56#include "citrus_aliasname_local.h"
57#include "setlocale_local.h"
58
59#define NLS_ALIAS_DB "/usr/share/nls/nls.alias"
60
61#define NLS_DEFAULT_PATH "/usr/share/nls/%L/%N.cat:/usr/share/nls/%N/%L"
62#define NLS_DEFAULT_LANG "C"
63
64__weak_alias(catopen, _catopen)
65__weak_alias(catopen_l, _catopen_l)
66
67static nl_catd load_msgcat(const char *);
68
69nl_catd
70catopen(const char *name, int oflag)
71{
72
73	return catopen_l(name, oflag, _current_locale());
74}
75
76nl_catd
77catopen_l(const char *name, int oflag, locale_t loc)
78{
79	char tmppath[PATH_MAX+1];
80	const char *nlspath;
81	const char *lang, *reallang;
82	char *t;
83	const char *s, *u;
84	nl_catd catd;
85	char langbuf[PATH_MAX];
86
87	if (name == NULL || *name == '\0')
88		return (nl_catd)-1;
89
90	/* absolute or relative path? */
91	if (strchr(name, '/'))
92		return load_msgcat(name);
93
94	if (issetugid() || (nlspath = getenv("NLSPATH")) == NULL)
95		nlspath = NLS_DEFAULT_PATH;
96	/*
97	 * Historical note:
98	 * http://www.hauN.org/ml/b-l-j/a/800/828.html (in japanese)
99	 */
100	if (oflag == NL_CAT_LOCALE) {
101		lang = loc->part_name[LC_MESSAGES];
102	} else {
103		lang = getenv("LANG");
104	}
105	if (lang == NULL || strchr(lang, '/'))
106		lang = NLS_DEFAULT_LANG;
107
108	reallang = __unaliasname(NLS_ALIAS_DB, lang, langbuf, sizeof(langbuf));
109	if (reallang == NULL)
110		reallang = lang;
111
112	s = nlspath;
113	t = tmppath;
114	do {
115		while (*s && *s != ':') {
116			if (*s == '%') {
117				switch (*(++s)) {
118				case 'L':	/* locale */
119					u = reallang;
120					while (*u && t < tmppath + PATH_MAX)
121						*t++ = *u++;
122					break;
123				case 'N':	/* name */
124					u = name;
125					while (*u && t < tmppath + PATH_MAX)
126						*t++ = *u++;
127					break;
128				case 'l':	/* lang */
129				case 't':	/* territory */
130				case 'c':	/* codeset */
131					break;
132				default:
133					if (t < tmppath + PATH_MAX)
134						*t++ = *s;
135				}
136			} else {
137				if (t < tmppath + PATH_MAX)
138					*t++ = *s;
139			}
140			s++;
141		}
142
143		*t = '\0';
144		catd = load_msgcat(tmppath);
145		if (catd != (nl_catd)-1)
146			return catd;
147
148		if (*s)
149			s++;
150		t = tmppath;
151	} while (*s);
152
153	return (nl_catd)-1;
154}
155
156static nl_catd
157load_msgcat(const char *path)
158{
159	struct stat st;
160	nl_catd catd;
161	void *data;
162	int fd;
163
164	_DIAGASSERT(path != NULL);
165
166	if ((fd = open(path, O_RDONLY|O_CLOEXEC)) == -1)
167		return (nl_catd)-1;
168
169	if (fstat(fd, &st) != 0) {
170		close (fd);
171		return (nl_catd)-1;
172	}
173
174	data = mmap(0, (size_t)st.st_size, PROT_READ, MAP_FILE|MAP_SHARED, fd,
175	    (off_t)0);
176	close (fd);
177
178	if (data == MAP_FAILED) {
179		return (nl_catd)-1;
180	}
181
182	if (ntohl((u_int32_t)((struct _nls_cat_hdr *)data)->__magic) !=
183	    _NLS_MAGIC) {
184		munmap(data, (size_t)st.st_size);
185		return (nl_catd)-1;
186	}
187
188	if ((catd = malloc(sizeof (*catd))) == NULL) {
189		munmap(data, (size_t)st.st_size);
190		return (nl_catd)-1;
191	}
192
193	catd->__data = data;
194	catd->__size = (int)st.st_size;
195	return catd;
196}
197