1/* Copyright (C) 1996-2023 Free Software Foundation, Inc.
2 This file is part of the GNU C Library.
3
4 The GNU C Library is free software; you can redistribute it and/or
5 modify it under the terms of the GNU Lesser General Public
6 License as published by the Free Software Foundation; either
7 version 2.1 of the License, or (at your option) any later version.
8
9 The GNU C Library is distributed in the hope that it will be useful,
10 but WITHOUT ANY WARRANTY; without even the implied warranty of
11 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
12 Lesser General Public License for more details.
13
14 You should have received a copy of the GNU Lesser General Public
15 License along with the GNU C Library; if not, see
16 <https://www.gnu.org/licenses/>. */
17
18#include <errno.h>
19#include <locale.h>
20#include <nl_types.h>
21#include <stdlib.h>
22#include <string.h>
23#include <unistd.h>
24#include <sys/mman.h>
25
26#include "catgetsinfo.h"
27
28
29/* Open the catalog and return a descriptor for the catalog. */
30nl_catd
31catopen (const char *cat_name, int flag)
32{
33 __nl_catd result;
34 const char *env_var = NULL;
35 const char *nlspath = NULL;
36 char *tmp = NULL;
37
38 if (strchr (cat_name, '/') == NULL)
39 {
40 if (flag == NL_CAT_LOCALE)
41 /* Use the current locale setting for LC_MESSAGES. */
42 env_var = setlocale (LC_MESSAGES, NULL);
43 else
44 /* Use the LANG environment variable. */
45 env_var = getenv ("LANG");
46
47 if (env_var == NULL || *env_var == '\0'
48 || (__libc_enable_secure && strchr (env_var, '/') != NULL))
49 env_var = "C";
50
51 nlspath = getenv ("NLSPATH");
52 if (nlspath != NULL && *nlspath != '\0')
53 {
54 /* Append the system dependent directory. */
55 size_t len = strlen (nlspath) + 1 + sizeof NLSPATH;
56 tmp = malloc (len);
57
58 if (__glibc_unlikely (tmp == NULL))
59 return (nl_catd) -1;
60
61 __stpcpy (__stpcpy (__stpcpy (tmp, nlspath), ":"), NLSPATH);
62 nlspath = tmp;
63 }
64 else
65 nlspath = NLSPATH;
66 }
67
68 result = (__nl_catd) malloc (sizeof (*result));
69 if (result == NULL)
70 {
71 /* We cannot get enough memory. */
72 result = (nl_catd) -1;
73 }
74 else if (__open_catalog (cat_name, nlspath, env_var, result) != 0)
75 {
76 /* Couldn't open the file. */
77 free ((void *) result);
78 result = (nl_catd) -1;
79 }
80
81 free (tmp);
82 return (nl_catd) result;
83}
84
85
86/* Return message from message catalog. */
87char *
88catgets (nl_catd catalog_desc, int set, int message, const char *string)
89{
90 __nl_catd catalog;
91 size_t idx;
92 size_t cnt;
93
94 /* Be generous if catalog which failed to be open is used. */
95 if (catalog_desc == (nl_catd) -1 || ++set <= 0 || message < 0)
96 return (char *) string;
97
98 catalog = (__nl_catd) catalog_desc;
99
100 idx = ((set * message) % catalog->plane_size) * 3;
101 cnt = 0;
102 do
103 {
104 if (catalog->name_ptr[idx + 0] == (uint32_t) set
105 && catalog->name_ptr[idx + 1] == (uint32_t) message)
106 return (char *) &catalog->strings[catalog->name_ptr[idx + 2]];
107
108 idx += catalog->plane_size * 3;
109 }
110 while (++cnt < catalog->plane_depth);
111
112 __set_errno (ENOMSG);
113 return (char *) string;
114}
115
116
117/* Return resources used for loaded message catalog. */
118int
119catclose (nl_catd catalog_desc)
120{
121 __nl_catd catalog;
122
123 /* Be generous if catalog which failed to be open is used. */
124 if (catalog_desc == (nl_catd) -1)
125 {
126 __set_errno (EBADF);
127 return -1;
128 }
129
130 catalog = (__nl_catd) catalog_desc;
131
132#ifdef _POSIX_MAPPED_FILES
133 if (catalog->status == mmapped)
134 __munmap ((void *) catalog->file_ptr, catalog->file_size);
135 else
136#endif /* _POSIX_MAPPED_FILES */
137 if (catalog->status == malloced)
138 free ((void *) catalog->file_ptr);
139 else
140 {
141 __set_errno (EBADF);
142 return -1;
143 }
144
145 free ((void *) catalog);
146
147 return 0;
148}
149