1/* Functions for recorded errors, warnings, and verbose messages.
2 Copyright (C) 1998-2023 Free Software Foundation, Inc.
3 This file is part of the GNU C Library.
4
5 This program is free software; you can redistribute it and/or modify
6 it under the terms of the GNU General Public License as published
7 by the Free Software Foundation; version 2 of the License, or
8 (at your option) any later version.
9
10 This program is distributed in the hope that it will be useful,
11 but WITHOUT ANY WARRANTY; without even the implied warranty of
12 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
13 GNU General Public License for more details.
14
15 You should have received a copy of the GNU General Public License
16 along with this program; if not, see <https://www.gnu.org/licenses/>. */
17
18#include <stdio.h>
19#include <stdlib.h>
20#include <stdarg.h>
21#include <stdbool.h>
22#include <string.h>
23#include <error.h>
24#include <errno.h>
25#include <locale.h>
26
27#include "record-status.h"
28
29/* Warnings recorded by record_warnings. */
30int recorded_warning_count;
31
32/* Errors recorded by record_errors. */
33int recorded_error_count;
34
35/* If not zero suppress warnings and information messages. */
36int be_quiet;
37
38/* If not zero give a lot more messages. */
39int verbose;
40
41/* Warnings which can be disabled: */
42/* By default we check the character map for ASCII compatibility. */
43bool warn_ascii = true;
44/* By default we check that the international currency symbol matches a
45 known country code. */
46bool warn_int_curr_symbol = true;
47
48/* Alter the current locale to match the locale configured by the
49 user, and return the previous saved state. */
50struct locale_state
51push_locale (void)
52{
53 int saved_errno;
54 const char *orig;
55 char *copy = NULL;
56
57 saved_errno = errno;
58
59 orig = setlocale (LC_CTYPE, NULL);
60 if (orig == NULL)
61 error (0, 0, "failed to read locale!");
62
63 if (setlocale (LC_CTYPE, "") == NULL)
64 error (0, 0, "failed to set locale!");
65
66 errno = saved_errno;
67
68 if (orig != NULL)
69 copy = strdup (orig);
70
71 /* We will return either a valid locale or NULL if we failed
72 to save the locale. */
73 return (struct locale_state) { .cur_locale = copy };
74}
75
76/* Use the saved state to restore the locale. */
77void
78pop_locale (struct locale_state ls)
79{
80 const char *set = NULL;
81 /* We might have failed to save the locale, so only attempt to
82 restore a validly saved non-NULL locale. */
83 if (ls.cur_locale != NULL)
84 {
85 set = setlocale (LC_CTYPE, ls.cur_locale);
86 if (set == NULL)
87 error (0, 0, "failed to restore %s locale!", ls.cur_locale);
88
89 free (ls.cur_locale);
90 }
91}
92
93/* Wrapper to print verbose informative messages.
94 Verbose messages are only printed if --verbose
95 is in effect and --quiet is not. */
96void
97__attribute__ ((__format__ (__printf__, 2, 3), nonnull (1, 2), unused))
98record_verbose (FILE *stream, const char *format, ...)
99{
100 char *str;
101 va_list arg;
102
103 if (!verbose)
104 return;
105
106 if (!be_quiet)
107 {
108 struct locale_state ls;
109 int ret;
110
111 va_start (arg, format);
112 ls = push_locale ();
113
114 ret = vasprintf (&str, format, arg);
115 if (ret == -1)
116 abort ();
117
118 pop_locale (ls);
119 va_end (arg);
120
121 fprintf (stream, "[verbose] %s\n", str);
122
123 free (str);
124 }
125}
126
127/* Wrapper to print warning messages. We keep track of how
128 many were called because this effects our exit code.
129 Nothing is printed if --quiet is in effect, but warnings
130 are always counted. */
131void
132__attribute__ ((__format__ (__printf__, 1, 2), nonnull (1), unused))
133record_warning (const char *format, ...)
134{
135 char *str;
136 va_list arg;
137
138 recorded_warning_count++;
139
140 if (!be_quiet)
141 {
142 struct locale_state ls;
143 int ret;
144
145 va_start (arg, format);
146 ls = push_locale ();
147
148 ret = vasprintf (&str, format, arg);
149 if (ret == -1)
150 abort ();
151
152 pop_locale (ls);
153 va_end (arg);
154
155 fprintf (stderr, "[warning] %s\n", str);
156
157 free (str);
158 }
159}
160
161/* Wrapper to print error messages. We keep track of how
162 many were called because this effects our exit code.
163 Nothing is printed if --quiet is in effect, but errors
164 are always counted, and fatal errors always exit the
165 program. */
166void
167__attribute__ ((__format__ (__printf__, 3, 4), nonnull (3), unused))
168record_error (int status, int errnum, const char *format, ...)
169{
170 char *str;
171 va_list arg;
172
173 recorded_error_count++;
174
175 /* The existing behaviour is that even if you use --quiet, a fatal
176 error is always printed and terminates the process. */
177 if (!be_quiet || status != 0)
178 {
179 struct locale_state ls;
180 int ret;
181
182 va_start (arg, format);
183 ls = push_locale ();
184
185 ret = vasprintf (&str, format, arg);
186 if (ret == -1)
187 abort ();
188
189 pop_locale (ls);
190 va_end (arg);
191
192 error (status, errnum, "[error] %s", str);
193
194 free (str);
195 }
196}
197/* ... likewise for error_at_line. */
198void
199__attribute__ ((__format__ (__printf__, 5, 6), nonnull (3, 5), unused))
200record_error_at_line (int status, int errnum, const char *filename,
201 unsigned int linenum, const char *format, ...)
202{
203 char *str;
204 va_list arg;
205
206 recorded_error_count++;
207
208 /* The existing behaviour is that even if you use --quiet, a fatal
209 error is always printed and terminates the process. */
210 if (!be_quiet || status != 0)
211 {
212 struct locale_state ls;
213 int ret;
214
215 va_start (arg, format);
216 ls = push_locale ();
217
218 ret = vasprintf (&str, format, arg);
219 if (ret == -1)
220 abort ();
221
222 pop_locale (ls);
223 va_end (arg);
224
225 error_at_line (status, errnum, filename, linenum, "[error] %s", str);
226
227 free (str);
228 }
229}
230