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
53 const char *
_generic_LC_ALL_setlocale(const char * __restrict name,struct _locale * __restrict locale)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