1 /****************************************************************************
2 * Copyright 2019-2020,2023 Thomas E. Dickey *
3 * Copyright 1998-2012,2016 Free Software Foundation, Inc. *
4 * *
5 * Permission is hereby granted, free of charge, to any person obtaining a *
6 * copy of this software and associated documentation files (the *
7 * "Software"), to deal in the Software without restriction, including *
8 * without limitation the rights to use, copy, modify, merge, publish, *
9 * distribute, distribute with modifications, sublicense, and/or sell *
10 * copies of the Software, and to permit persons to whom the Software is *
11 * furnished to do so, subject to the following conditions: *
12 * *
13 * The above copyright notice and this permission notice shall be included *
14 * in all copies or substantial portions of the Software. *
15 * *
16 * THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS *
17 * OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF *
18 * MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. *
19 * IN NO EVENT SHALL THE ABOVE COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, *
20 * DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR *
21 * OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION WITH THE SOFTWARE OR *
22 * THE USE OR OTHER DEALINGS IN THE SOFTWARE. *
23 * *
24 * Except as contained in this notice, the name(s) of the above copyright *
25 * holders shall not be used in advertising or otherwise to promote the *
26 * sale, use or other dealings in this Software without prior written *
27 * authorization. *
28 ****************************************************************************/
29
30 /****************************************************************************
31 * Author: Zeyd M. Ben-Halim <zmbenhal@netcom.com> 1992,1995 *
32 * and: Eric S. Raymond <esr@snark.thyrsus.com> *
33 * and: Thomas E. Dickey 1996-on *
34 ****************************************************************************/
35
36 /*
37 * comp_error.c -- Error message routines
38 *
39 */
40
41 #include <curses.priv.h>
42
43 #include <tic.h>
44
45 MODULE_ID("$Id: comp_error.c,v 1.44 2023/06/15 20:27:02 tom Exp $")
46
47 NCURSES_EXPORT_VAR(bool) _nc_suppress_warnings = FALSE;
48 NCURSES_EXPORT_VAR(int) _nc_curr_line = 0; /* current line # in input */
49 NCURSES_EXPORT_VAR(int) _nc_curr_col = 0; /* current column # in input */
50
51 #define SourceName _nc_globals.comp_sourcename
52 #define TermType _nc_globals.comp_termtype
53
54 NCURSES_EXPORT(const char *)
_nc_get_source(void)55 _nc_get_source(void)
56 {
57 return SourceName;
58 }
59
60 NCURSES_EXPORT(void)
_nc_set_source(const char * const name)61 _nc_set_source(const char *const name)
62 {
63 if (name == NULL) {
64 free(SourceName);
65 SourceName = NULL;
66 } else if (SourceName == NULL) {
67 SourceName = strdup(name);
68 } else if (strcmp(name, SourceName)) {
69 free(SourceName);
70 SourceName = strdup(name);
71 }
72 }
73
74 NCURSES_EXPORT(void)
_nc_set_type(const char * const name)75 _nc_set_type(const char *const name)
76 {
77 #define MY_SIZE (size_t) MAX_NAME_SIZE
78 if (TermType == 0)
79 TermType = typeMalloc(char, MY_SIZE + 1);
80 if (TermType != 0) {
81 TermType[0] = '\0';
82 if (name) {
83 _nc_STRNCAT(TermType, name, MY_SIZE, MY_SIZE);
84 }
85 }
86 }
87
88 NCURSES_EXPORT(void)
_nc_get_type(char * name)89 _nc_get_type(char *name)
90 {
91 #if NO_LEAKS
92 if (name == 0 && TermType != 0) {
93 FreeAndNull(TermType);
94 return;
95 }
96 #endif
97 if (name != 0)
98 _nc_STRCPY(name, TermType != 0 ? TermType : "", MAX_NAME_SIZE);
99 }
100
101 static NCURSES_INLINE void
where_is_problem(void)102 where_is_problem(void)
103 {
104 fprintf(stderr, "\"%s\"", SourceName ? SourceName : "?");
105 if (_nc_curr_line > 0)
106 fprintf(stderr, ", line %d", _nc_curr_line);
107 if (_nc_curr_col > 0)
108 fprintf(stderr, ", col %d", _nc_curr_col);
109 if (TermType != 0 && TermType[0] != '\0')
110 fprintf(stderr, ", terminal '%s'", TermType);
111 fputc(':', stderr);
112 fputc(' ', stderr);
113 }
114
115 NCURSES_EXPORT(void)
_nc_warning(const char * const fmt,...)116 _nc_warning(const char *const fmt, ...)
117 {
118 va_list argp;
119
120 if (_nc_suppress_warnings)
121 return;
122
123 where_is_problem();
124 va_start(argp, fmt);
125 vfprintf(stderr, fmt, argp);
126 fprintf(stderr, "\n");
127 va_end(argp);
128 }
129
130 NCURSES_EXPORT(void)
_nc_err_abort(const char * const fmt,...)131 _nc_err_abort(const char *const fmt, ...)
132 {
133 va_list argp;
134
135 where_is_problem();
136 va_start(argp, fmt);
137 vfprintf(stderr, fmt, argp);
138 fprintf(stderr, "\n");
139 va_end(argp);
140 exit(EXIT_FAILURE);
141 }
142
143 NCURSES_EXPORT(void)
_nc_syserr_abort(const char * const fmt,...)144 _nc_syserr_abort(const char *const fmt, ...)
145 {
146 va_list argp;
147
148 where_is_problem();
149 va_start(argp, fmt);
150 vfprintf(stderr, fmt, argp);
151 fprintf(stderr, "\n");
152 va_end(argp);
153
154 #if defined(TRACE) || !defined(NDEBUG)
155 /* If we're debugging, try to show where the problem occurred - this
156 * will dump core.
157 */
158 if (_nc_env_access())
159 abort();
160 #endif
161 /* Dumping core in production code is not a good idea.
162 */
163 exit(EXIT_FAILURE);
164 }
165
166 #if NO_LEAKS
167 NCURSES_EXPORT(void)
_nc_comp_error_leaks(void)168 _nc_comp_error_leaks(void)
169 {
170 FreeAndNull(SourceName);
171 FreeAndNull(TermType);
172 }
173 #endif
174