1/* $NetBSD: generic_lc_all.c,v 1.7 2024/01/20 14:52:48 christos Exp $ */
2
3/*-
4 * Copyright (c)2008 Citrus Project,
5 * All rights reserved.
6 *
7 * Redistribution and use in source and binary forms, with or without
8 * modification, are permitted provided that the following conditions
9 * are met:
10 * 1. Redistributions of source code must retain the above copyright
11 *    notice, this list of conditions and the following disclaimer.
12 * 2. Redistributions in binary form must reproduce the above copyright
13 *    notice, this list of conditions and the following disclaimer in the
14 *    documentation and/or other materials provided with the distribution.
15 *
16 * THIS SOFTWARE IS PROVIDED BY THE AUTHOR AND CONTRIBUTORS ``AS IS'' AND
17 * ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
18 * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
19 * ARE DISCLAIMED.  IN NO EVENT SHALL THE AUTHOR OR CONTRIBUTORS BE LIABLE
20 * FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
21 * DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS
22 * OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)
23 * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT
24 * LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY
25 * OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF
26 * SUCH DAMAGE.
27 */
28
29#include <sys/cdefs.h>
30#if defined(LIBC_SCCS) && !defined(lint)
31__RCSID("$NetBSD: generic_lc_all.c,v 1.7 2024/01/20 14:52:48 christos Exp $");
32#endif /* LIBC_SCCS and not lint */
33
34#include "namespace.h"
35#include <sys/types.h>
36#include <assert.h>
37#include <langinfo.h>
38#define __SETLOCALE_SOURCE__
39#include <locale.h>
40#include <stdio.h>
41#include <stdlib.h>
42#include <string.h>
43
44#include "setlocale_local.h"
45
46/*
47 * macro required by all template headers
48 */
49#define _PREFIX(name)	__CONCAT(_generic_LC_ALL_, name)
50
51#include "generic_lc_template_decl.h"
52
53const char *
54_generic_LC_ALL_setlocale(const char * __restrict name,
55    struct _locale * __restrict locale)
56{
57	_locale_set_t sl;
58	char head[_LOCALENAME_LEN_MAX * (_LC_LAST - 1)], *tail;
59	const char *tokens[_LC_LAST], *s, *t;
60	int load_locale_success, i, j;
61
62	sl = _find_category(1);
63	_DIAGASSERT(sl != NULL);
64	load_locale_success = 0;
65	if (name != NULL) {
66		strlcpy(&head[0], name, sizeof(head));
67		tokens[1] = &head[0];
68		tail = __UNCONST(strchr(tokens[1], '/'));
69		if (tail == NULL) {
70			for (i = 2; i < _LC_LAST; ++i)
71				tokens[i] = tokens[1];
72		} else {
73			*tail++ = '\0';
74			for (i = 2; i < _LC_LAST - 1; ++i) {
75				tokens[i] = (const char *)tail;
76				tail = __UNCONST(strchr(tokens[i], '/'));
77				if (tail == NULL)
78					return NULL;
79				*tail++ = '\0';
80			}
81			tokens[_LC_LAST - 1] = (const char *)tail;
82			tail = __UNCONST(strchr(tokens[i], '/'));
83			if (tail != NULL)
84				return NULL;
85		}
86		if ((*sl)(tokens[1], locale) != NULL)
87			load_locale_success = 1;
88	}
89	s = (*sl)(NULL, locale);
90	_DIAGASSERT(s != NULL);
91	strlcpy(&locale->query[0], s, sizeof(locale->query));
92	for (i = 2, j = 0; i < _LC_LAST; ++i) {
93		sl = _find_category(i);
94		_DIAGASSERT(sl != NULL);
95		if (name != NULL) {
96			if ((*sl)(tokens[i], locale) != NULL)
97				load_locale_success = 1;
98		}
99		t = (*sl)(NULL, locale);
100		_DIAGASSERT(t != NULL);
101		if (j == 0) {
102			if (!strcmp(s, t))
103				continue;
104			for (j = 2; j < i; ++j) {
105				strlcat(&locale->query[0], "/",
106				    sizeof(locale->query));
107				strlcat(&locale->query[0], s,
108				    sizeof(locale->query));
109			}
110		}
111		strlcat(&locale->query[0], "/", sizeof(locale->query));
112		strlcat(&locale->query[0], t, sizeof(locale->query));
113	}
114	if (name != NULL && !load_locale_success)
115		return NULL;
116	return (const char *)&locale->query[0];
117}
118