xref: /freebsd/contrib/tcsh/sh.err.c (revision 45e5710b)
1 /*
2  * sh.err.c: Error printing routines.
3  */
4 /*-
5  * Copyright (c) 1980, 1991 The Regents of the University of California.
6  * All rights reserved.
7  *
8  * Redistribution and use in source and binary forms, with or without
9  * modification, are permitted provided that the following conditions
10  * are met:
11  * 1. Redistributions of source code must retain the above copyright
12  *    notice, this list of conditions and the following disclaimer.
13  * 2. Redistributions in binary form must reproduce the above copyright
14  *    notice, this list of conditions and the following disclaimer in the
15  *    documentation and/or other materials provided with the distribution.
16  * 3. Neither the name of the University nor the names of its contributors
17  *    may be used to endorse or promote products derived from this software
18  *    without specific prior written permission.
19  *
20  * THIS SOFTWARE IS PROVIDED BY THE REGENTS AND CONTRIBUTORS ``AS IS'' AND
21  * ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
22  * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
23  * ARE DISCLAIMED.  IN NO EVENT SHALL THE REGENTS OR CONTRIBUTORS BE LIABLE
24  * FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
25  * DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS
26  * OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)
27  * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT
28  * LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY
29  * OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF
30  * SUCH DAMAGE.
31  */
32 #define _h_sh_err		/* Don't redefine the errors	 */
33 #include "sh.h"
34 #include <assert.h>
35 
36 /*
37  * C Shell
38  */
39 
40 #ifdef lint
41 #undef va_arg
42 #define va_arg(a, b) (a ? (b) 0 : (b) 0)
43 #endif
44 
45 char   *seterr = NULL;	/* Holds last error if there was one */
46 extern int enterhist;
47 
48 #define ERR_FLAGS	0xf0000000
49 #define ERR_NAME	0x10000000
50 #define ERR_SILENT	0x20000000
51 #define ERR_OLD		0x40000000
52 #define ERR_INTERRUPT	0x80000000
53 
54 #define ERR_SYNTAX	0
55 #define ERR_NOTALLOWED	1
56 #define ERR_WTOOLONG	2
57 #define ERR_LTOOLONG	3
58 #define ERR_DOLZERO	4
59 #define ERR_INCBR	5
60 #define ERR_EXPORD	6
61 #define ERR_BADMOD	7
62 #define ERR_SUBSCRIPT	8
63 #define ERR_BADNUM	9
64 #define ERR_NOMORE	10
65 #define ERR_FILENAME	11
66 #define ERR_GLOB	12
67 #define ERR_COMMAND	13
68 #define ERR_TOOFEW	14
69 #define ERR_TOOMANY	15
70 #define ERR_DANGER	16
71 #define ERR_EMPTYIF	17
72 #define ERR_IMPRTHEN	18
73 #define ERR_NOPAREN	19
74 #define ERR_NOTFOUND	20
75 #define ERR_MASK	21
76 #define ERR_LIMIT	22
77 #define ERR_TOOLARGE	23
78 #define ERR_SCALEF	24
79 #define ERR_UNDVAR	25
80 #define ERR_DEEP	26
81 #define ERR_BADSIG	27
82 #define ERR_UNKSIG	28
83 #define ERR_VARBEGIN	29
84 #define ERR_VARTOOLONG	30
85 #define ERR_VARALNUM	31
86 #define ERR_JOBCONTROL	32
87 #define ERR_EXPRESSION	33
88 #define ERR_NOHOMEDIR	34
89 #define ERR_CANTCHANGE	35
90 #define ERR_NULLCOM	36
91 #define ERR_ASSIGN	37
92 #define ERR_UNKNOWNOP	38
93 #define ERR_AMBIG	39
94 #define ERR_EXISTS	40
95 #define ERR_ARGC	41
96 #define ERR_INTR	42
97 #define ERR_RANGE	43
98 #define ERR_OVERFLOW	44
99 #define ERR_NOSUCHJOB	45
100 #define ERR_TERMINAL	46
101 #define ERR_NOTWHILE	47
102 #define ERR_NOPROC	48
103 #define ERR_NOMATCH	49
104 #define ERR_MISSING	50
105 #define ERR_UNMATCHED	51
106 #define ERR_NOMEM	52
107 #define ERR_PIPE	53
108 #define ERR_SYSTEM	54
109 #define ERR_STRING	55
110 #define ERR_JOBS	56
111 #define ERR_JOBARGS	57
112 #define ERR_JOBCUR	58
113 #define ERR_JOBPREV	59
114 #define ERR_JOBPAT	60
115 #define ERR_NESTING	61
116 #define ERR_JOBCTRLSUB	62
117 #define ERR_SYNC	63
118 #define ERR_STOPPED	64
119 #define ERR_NODIR	65
120 #define ERR_EMPTY	66
121 #define ERR_BADDIR	67
122 #define ERR_DIRUS	68
123 #define ERR_HFLAG	69
124 #define ERR_NOTLOGIN	70
125 #define ERR_DIV0	71
126 #define ERR_MOD0	72
127 #define ERR_BADSCALE	73
128 #define ERR_SUSPLOG	74
129 #define ERR_UNKUSER	75
130 #define ERR_NOHOME	76
131 #define ERR_HISTUS	77
132 #define ERR_SPDOLLT	78
133 #define ERR_NEWLINE	79
134 #define ERR_SPSTAR	80
135 #define ERR_DIGIT	81
136 #define ERR_VARILL	82
137 #define ERR_NLINDEX	83
138 #define ERR_EXPOVFL	84
139 #define ERR_VARSYN	85
140 #define ERR_BADBANG	86
141 #define ERR_NOSUBST	87
142 #define ERR_BADSUBST	88
143 #define ERR_LHS		89
144 #define ERR_RHSLONG	90
145 #define ERR_BADBANGMOD	91
146 #define ERR_MODFAIL	92
147 #define ERR_SUBOVFL	93
148 #define ERR_BADBANGARG	94
149 #define ERR_NOSEARCH	95
150 #define ERR_NOEVENT	96
151 #define ERR_TOOMANYRP	97
152 #define ERR_TOOMANYLP	98
153 #define ERR_BADPLP	99
154 #define ERR_MISRED	100
155 #define ERR_OUTRED	101
156 #define ERR_REDPAR	102
157 #define ERR_INRED	103
158 #define ERR_BADPLPS	104
159 #define ERR_ALIASLOOP	105
160 #define ERR_NOWATCH	106
161 #define ERR_NOSCHED	107
162 #define ERR_SCHEDUSAGE	108
163 #define ERR_SCHEDEV	109
164 #define ERR_SCHEDCOM	110
165 #define ERR_SCHEDTIME	111
166 #define ERR_SCHEDREL	112
167 #define ERR_TCNOSTR	113
168 #define ERR_SETTCUS	114
169 #define ERR_TCCAP	115
170 #define ERR_TCPARM	116
171 #define ERR_TCARGS	117
172 #define ERR_TCNARGS	118
173 #define ERR_TCUSAGE	119
174 #define ERR_ARCH	120
175 #define ERR_HISTLOOP	121
176 #define ERR_FILEINQ	122
177 #define ERR_SELOVFL	123
178 #define ERR_TCSHUSAGE   124
179 #define ERR_COMPCOM	125
180 #define ERR_COMPINV	126
181 #define ERR_COMPMIS	127
182 #define ERR_COMPINC	128
183 #define ERR_MFLAG	129
184 #define ERR_ULIMUS	130
185 #define ERR_READONLY	131
186 #define ERR_BADJOB	132
187 #define ERR_INVALID	133
188 #define ERR_BADCOLORVAR	134
189 #define ERR_EOF		135
190 #define NO_ERRORS	136
191 
192 static const char *elst[NO_ERRORS] INIT_ZERO_STRUCT;
193 
194 /*
195  * Init the elst depending on the locale
196  */
197 void
errinit(void)198 errinit(void)
199 {
200 #ifdef NLS_CATALOGS
201     size_t i;
202 
203     for (i = 0; i < NO_ERRORS; i++)
204 	xfree((char *)(intptr_t)elst[i]);
205 #  if defined(__FreeBSD__) || defined(hpux) || defined(__MidnightBSD__)
206 #  define NLS_MAXSET 30
207     for (i = 1; i <= NLS_MAXSET; i++)
208 	CGETS(i, 1, "" );
209 #  endif
210 #endif
211 
212     elst[ERR_SYNTAX] = CSAVS(1, 1, "Syntax Error");
213     elst[ERR_NOTALLOWED] = CSAVS(1, 2, "%s is not allowed");
214     elst[ERR_WTOOLONG] = CSAVS(1, 3, "Word too long");
215     elst[ERR_LTOOLONG] = CSAVS(1, 4, "$< line too long");
216     elst[ERR_DOLZERO] = CSAVS(1, 5, "No file for $0");
217     elst[ERR_INCBR] = CSAVS(1, 6, "Incomplete [] modifier");
218     elst[ERR_EXPORD] = CSAVS(1, 7, "$ expansion must end before ]");
219     elst[ERR_BADMOD] = CSAVS(1, 8, "Bad : modifier in $ '%c'");
220     elst[ERR_SUBSCRIPT] = CSAVS(1, 9, "Subscript error");
221     elst[ERR_BADNUM] = CSAVS(1, 10, "Badly formed number");
222     elst[ERR_NOMORE] = CSAVS(1, 11, "No more words");
223     elst[ERR_FILENAME] = CSAVS(1, 12, "Missing file name");
224     elst[ERR_GLOB] = CSAVS(1, 13, "Internal glob error");
225     elst[ERR_COMMAND] = CSAVS(1, 14, "Command not found");
226     elst[ERR_TOOFEW] = CSAVS(1, 15, "Too few arguments");
227     elst[ERR_TOOMANY] = CSAVS(1, 16, "Too many arguments");
228     elst[ERR_DANGER] = CSAVS(1, 17, "Too dangerous to alias that");
229     elst[ERR_EMPTYIF] = CSAVS(1, 18, "Empty if");
230     elst[ERR_IMPRTHEN] = CSAVS(1, 19, "Improper then");
231     elst[ERR_NOPAREN] = CSAVS(1, 20, "Words not parenthesized");
232     elst[ERR_NOTFOUND] = CSAVS(1, 21, "%s not found");
233     elst[ERR_MASK] = CSAVS(1, 22, "Improper mask");
234     elst[ERR_LIMIT] = CSAVS(1, 23, "No such limit");
235     elst[ERR_TOOLARGE] = CSAVS(1, 24, "Argument too large");
236     elst[ERR_SCALEF] = CSAVS(1, 25, "Improper or unknown scale factor");
237     elst[ERR_UNDVAR] = CSAVS(1, 26, "Undefined variable");
238     elst[ERR_DEEP] = CSAVS(1, 27, "Directory stack not that deep");
239     elst[ERR_BADSIG] = CSAVS(1, 28, "Bad signal number");
240     elst[ERR_UNKSIG] = CSAVS(1, 29, "Unknown signal; kill -l lists signals");
241     elst[ERR_VARBEGIN] = CSAVS(1, 30, "Variable name must begin with a letter");
242     elst[ERR_VARTOOLONG] = CSAVS(1, 31, "Variable name too long");
243     elst[ERR_VARALNUM] = CSAVS(1, 32,
244 	"Variable name must contain alphanumeric characters");
245     elst[ERR_JOBCONTROL] = CSAVS(1, 33, "No job control in this shell");
246     elst[ERR_EXPRESSION] = CSAVS(1, 34, "Expression Syntax");
247     elst[ERR_NOHOMEDIR] = CSAVS(1, 35, "No home directory");
248     elst[ERR_CANTCHANGE] = CSAVS(1, 36, "Can't change to home directory");
249     elst[ERR_NULLCOM] = CSAVS(1, 37, "Invalid null command");
250     elst[ERR_ASSIGN] = CSAVS(1, 38, "Assignment missing expression");
251     elst[ERR_UNKNOWNOP] = CSAVS(1, 39, "Unknown operator");
252     elst[ERR_AMBIG] = CSAVS(1, 40, "Ambiguous");
253     elst[ERR_EXISTS] = CSAVS(1, 41, "%s: File exists");
254     elst[ERR_ARGC] = CSAVS(1, 42, "Argument for -c ends in backslash");
255     elst[ERR_INTR] = CSAVS(1, 43, "Interrupted");
256     elst[ERR_RANGE] = CSAVS(1, 44, "Subscript out of range");
257     elst[ERR_OVERFLOW] = CSAVS(1, 45, "Line overflow");
258     elst[ERR_NOSUCHJOB] = CSAVS(1, 46, "No such job");
259     elst[ERR_TERMINAL] = CSAVS(1, 47, "Can't from terminal");
260     elst[ERR_NOTWHILE] = CSAVS(1, 48, "Not in while/foreach");
261     elst[ERR_NOPROC] = CSAVS(1, 49, "No more processes");
262     elst[ERR_NOMATCH] = CSAVS(1, 50, "No match");
263     elst[ERR_MISSING] = CSAVS(1, 51, "Missing '%c'");
264     elst[ERR_UNMATCHED] = CSAVS(1, 52, "Unmatched '%c'");
265     elst[ERR_NOMEM] = CSAVS(1, 53, "Out of memory");
266     elst[ERR_PIPE] = CSAVS(1, 54, "Can't make pipe");
267     elst[ERR_SYSTEM] = CSAVS(1, 55, "%s: %s");
268     elst[ERR_STRING] = CSAVS(1, 56, "%s");
269     elst[ERR_JOBS] = CSAVS(1, 57, "Usage: jobs [ -l ]");
270     elst[ERR_JOBARGS] = CSAVS(1, 58, "Arguments should be jobs or process id's");
271     elst[ERR_JOBCUR] = CSAVS(1, 59, "No current job");
272     elst[ERR_JOBPREV] = CSAVS(1, 60, "No previous job");
273     elst[ERR_JOBPAT] = CSAVS(1, 61, "No job matches pattern");
274     elst[ERR_NESTING] = CSAVS(1, 62, "Fork nesting > %d; maybe `...` loop");
275     elst[ERR_JOBCTRLSUB] = CSAVS(1, 63, "No job control in subshells");
276     elst[ERR_SYNC] = CSAVS(1, 64, "Sync fault: Process %d not found");
277     elst[ERR_STOPPED] =
278 #ifdef SUSPENDED
279 	CSAVS(1, 65, "%sThere are suspended jobs");
280 #else
281 	CSAVS(1, 66, "%sThere are stopped jobs");
282 #endif /* SUSPENDED */
283     elst[ERR_NODIR] = CSAVS(1, 67, "No other directory");
284     elst[ERR_EMPTY] = CSAVS(1, 68, "Directory stack empty");
285     elst[ERR_BADDIR] = CSAVS(1, 69, "Bad directory");
286     elst[ERR_DIRUS] = CSAVS(1, 70, "Usage: %s [-%s]%s");
287     elst[ERR_HFLAG] = CSAVS(1, 71, "No operand for -h flag");
288     elst[ERR_NOTLOGIN] = CSAVS(1, 72, "Not a login shell");
289     elst[ERR_DIV0] = CSAVS(1, 73, "Division by 0");
290     elst[ERR_MOD0] = CSAVS(1, 74, "Mod by 0");
291     elst[ERR_BADSCALE] = CSAVS(1, 75, "Bad scaling; did you mean \"%s\"?");
292     elst[ERR_SUSPLOG] = CSAVS(1, 76, "Can't suspend a login shell (yet)");
293     elst[ERR_UNKUSER] = CSAVS(1, 77, "Unknown user: %s");
294     elst[ERR_NOHOME] = CSAVS(1, 78, "No $home variable set");
295     elst[ERR_HISTUS] = CSAVS(1, 79,
296 	"Usage: history [-%s] [# number of events]");
297     elst[ERR_SPDOLLT] = CSAVS(1, 80, "$, ! or < not allowed with $# or $?");
298     elst[ERR_NEWLINE] = CSAVS(1, 81, "Newline in variable name");
299     elst[ERR_SPSTAR] = CSAVS(1, 82, "* not allowed with $# or $?");
300     elst[ERR_DIGIT] = CSAVS(1, 83, "$?<digit> or $#<digit> not allowed");
301     elst[ERR_VARILL] = CSAVS(1, 84, "Illegal variable name");
302     elst[ERR_NLINDEX] = CSAVS(1, 85, "Newline in variable index");
303     elst[ERR_EXPOVFL] = CSAVS(1, 86, "Expansion buffer overflow");
304     elst[ERR_VARSYN] = CSAVS(1, 87, "Variable syntax");
305     elst[ERR_BADBANG] = CSAVS(1, 88, "Bad ! form");
306     elst[ERR_NOSUBST] = CSAVS(1, 89, "No previous substitute");
307     elst[ERR_BADSUBST] = CSAVS(1, 90, "Bad substitute");
308     elst[ERR_LHS] = CSAVS(1, 91, "No previous left hand side");
309     elst[ERR_RHSLONG] = CSAVS(1, 92, "Right hand side too long");
310     elst[ERR_BADBANGMOD] = CSAVS(1, 93, "Bad ! modifier: '%c'");
311     elst[ERR_MODFAIL] = CSAVS(1, 94, "Modifier failed");
312     elst[ERR_SUBOVFL] = CSAVS(1, 95, "Substitution buffer overflow");
313     elst[ERR_BADBANGARG] = CSAVS(1, 96, "Bad ! arg selector");
314     elst[ERR_NOSEARCH] = CSAVS(1, 97, "No prev search");
315     elst[ERR_NOEVENT] = CSAVS(1, 98, "%s: Event not found");
316     elst[ERR_TOOMANYRP] = CSAVS(1, 99, "Too many )'s");
317     elst[ERR_TOOMANYLP] = CSAVS(1, 100, "Too many ('s");
318     elst[ERR_BADPLP] = CSAVS(1, 101, "Badly placed (");
319     elst[ERR_MISRED] = CSAVS(1, 102, "Missing name for redirect");
320     elst[ERR_OUTRED] = CSAVS(1, 103, "Ambiguous output redirect");
321     elst[ERR_REDPAR] = CSAVS(1, 104, "Can't << within ()'s");
322     elst[ERR_INRED] = CSAVS(1, 105, "Ambiguous input redirect");
323     elst[ERR_BADPLPS] = CSAVS(1, 106, "Badly placed ()'s");
324     elst[ERR_ALIASLOOP] = CSAVS(1, 107, "Alias loop");
325     elst[ERR_NOWATCH] = CSAVS(1, 108, "No $watch variable set");
326     elst[ERR_NOSCHED] = CSAVS(1, 109, "No scheduled events");
327     elst[ERR_SCHEDUSAGE] = CSAVS(1, 110,
328 	"Usage: sched -<item#>.\nUsage: sched [+]hh:mm <command>");
329     elst[ERR_SCHEDEV] = CSAVS(1, 111, "Not that many scheduled events");
330     elst[ERR_SCHEDCOM] = CSAVS(1, 112, "No command to run");
331     elst[ERR_SCHEDTIME] = CSAVS(1, 113, "Invalid time for event");
332     elst[ERR_SCHEDREL] = CSAVS(1, 114, "Relative time inconsistent with am/pm");
333     elst[ERR_TCNOSTR] = CSAVS(1, 115, "Out of termcap string space");
334     elst[ERR_SETTCUS] = CSAVS(1, 116, "Usage: settc %s [yes|no]");
335     elst[ERR_TCCAP] = CSAVS(1, 117, "Unknown capability `%s'");
336     elst[ERR_TCPARM] = CSAVS(1, 118, "Unknown termcap parameter '%%%c'");
337     elst[ERR_TCARGS] = CSAVS(1, 119, "Too many arguments for `%s' (%d)");
338     elst[ERR_TCNARGS] = CSAVS(1, 120, "`%s' requires %d arguments");
339     elst[ERR_TCUSAGE] = CSAVS(1, 121,
340 	"Usage: echotc [-v|-s] [<capability> [<args>]]");
341     elst[ERR_ARCH] = CSAVS(1, 122, "%s: %s. Binary file not executable");
342     elst[ERR_HISTLOOP] = CSAVS(1, 123, "!# History loop");
343     elst[ERR_FILEINQ] = CSAVS(1, 124, "Malformed file inquiry");
344     elst[ERR_SELOVFL] = CSAVS(1, 125, "Selector overflow");
345 #ifdef apollo
346     elst[ERR_TCSHUSAGE] = CSAVS(1, 126,
347 "Unknown option: `-%s'\nUsage: %s [ -bcdefilmnqstvVxX -Dname[=value] ] [ argument ... ]");
348 #else /* !apollo */
349 # ifdef convex
350     elst[ERR_TCSHUSAGE] = CSAVS(1, 127,
351 "Unknown option: `-%s'\nUsage: %s [ -bcdefFilmnqstvVxX ] [ argument ... ]");
352 # else /* rest */
353     elst[ERR_TCSHUSAGE] = CSAVS(1, 128,
354 "Unknown option: `-%s'\nUsage: %s [ -bcdefilmnqstvVxX ] [ argument ... ]");
355 # endif /* convex */
356 #endif /* apollo */
357     elst[ERR_COMPCOM] = CSAVS(1, 129, "\nInvalid completion: \"%s\"");
358     elst[ERR_COMPINV] = CSAVS(1, 130, "\nInvalid %s: '%c'");
359     elst[ERR_COMPMIS] = CSAVS(1, 131,
360 	"\nMissing separator '%c' after %s \"%s\"");
361     elst[ERR_COMPINC] = CSAVS(1, 132, "\nIncomplete %s: \"%s\"");
362     elst[ERR_MFLAG] = CSAVS(1, 133, "No operand for -m flag");
363     elst[ERR_ULIMUS] = CSAVS(1, 134, "Usage: unlimit [-fh] [limits]");
364     elst[ERR_READONLY] = CSAVS(1, 135, "$%S is read-only");
365     elst[ERR_BADJOB] = CSAVS(1, 136, "No such job (badjob)");
366     elst[ERR_BADCOLORVAR] = CSAVS(1, 137, "Unknown colorls variable '%c%c'");
367     elst[ERR_EOF] = CSAVS(1, 138, "Unexpected end of file");
368 }
369 
370 /* Cleanup data. */
371 struct cleanup_entry
372 {
373     void *var;
374     void (*fn) (void *);
375 #ifdef CLEANUP_DEBUG
376     const char *file;
377     size_t line;
378 #endif
379 };
380 
381 static struct cleanup_entry *cleanup_stack INIT_ZERO; /* = NULL; */
382 static size_t cleanup_sp INIT_ZERO; /* = 0; Next free entry */
383 static size_t cleanup_mark INIT_ZERO; /* = 0; Last entry to handle before unwinding */
384 static size_t cleanup_stack_size INIT_ZERO; /* = 0 */
385 
386 /* fn() will be run with all signals blocked, so it should not do anything
387    risky. */
388 void
cleanup_push_internal(void * var,void (* fn)(void *),const char * file,size_t line)389 cleanup_push_internal(void *var, void (*fn) (void *)
390 #ifdef CLEANUP_DEBUG
391     , const char *file, size_t line
392 #endif
393 )
394 {
395     struct cleanup_entry *ce;
396 
397     if (cleanup_sp == cleanup_stack_size) {
398 	if (cleanup_stack_size == 0)
399 	    cleanup_stack_size = 64; /* Arbitrary */
400 	else
401 	    cleanup_stack_size *= 2;
402 	cleanup_stack = xrealloc(cleanup_stack,
403 				 cleanup_stack_size * sizeof (*cleanup_stack));
404     }
405     ce = cleanup_stack + cleanup_sp;
406     ce->var = var;
407     ce->fn = fn;
408 #ifdef CLEANUP_DEBUG
409     ce->file = file;
410     ce->line = line;
411 #endif
412     cleanup_sp++;
413 }
414 
415 static void
cleanup_ignore_fn(void * dummy)416 cleanup_ignore_fn(void *dummy)
417 {
418     USE(dummy);
419 }
420 
421 void
cleanup_ignore(void * var)422 cleanup_ignore(void *var)
423 {
424     struct cleanup_entry *ce;
425 
426     ce = cleanup_stack + cleanup_sp;
427     while (ce != cleanup_stack) {
428         ce--;
429 	if (ce->var == var) {
430 	    ce->fn = cleanup_ignore_fn;
431 	    return;
432 	}
433     }
434     abort();
435 }
436 
437 void
cleanup_until(void * last_var)438 cleanup_until(void *last_var)
439 {
440     while (cleanup_sp != 0) {
441 	struct cleanup_entry ce;
442 
443 	cleanup_sp--;
444 	ce = cleanup_stack[cleanup_sp];
445 	ce.fn(ce.var);
446 	if (ce.var == last_var)
447 	    return;
448     }
449     abort();
450 }
451 
452 int
cleanup_reset(void)453 cleanup_reset(void)
454 {
455     return cleanup_sp > cleanup_mark;
456 }
457 
458 void
cleanup_until_mark(void)459 cleanup_until_mark(void)
460 {
461     while (cleanup_sp > cleanup_mark) {
462 	struct cleanup_entry ce;
463 
464 	cleanup_sp--;
465 	ce = cleanup_stack[cleanup_sp];
466 	ce.fn(ce.var);
467     }
468 }
469 
470 size_t
cleanup_push_mark(void)471 cleanup_push_mark(void)
472 {
473     size_t old_mark;
474 
475     old_mark = cleanup_mark;
476     cleanup_mark = cleanup_sp;
477     return old_mark;
478 }
479 
480 void
cleanup_pop_mark(size_t mark)481 cleanup_pop_mark(size_t mark)
482 {
483     assert (mark <= cleanup_sp);
484     cleanup_mark = mark;
485 }
486 
487 void
sigint_cleanup(void * xsa)488 sigint_cleanup(void *xsa)
489 {
490     const struct sigaction *sa;
491 
492     sa = xsa;
493     sigaction(SIGINT, sa, NULL);
494 }
495 
496 void
sigprocmask_cleanup(void * xmask)497 sigprocmask_cleanup(void *xmask)
498 {
499     sigset_t *mask;
500 
501     mask = xmask;
502     sigprocmask(SIG_SETMASK, mask, NULL);
503 }
504 
505 void
open_cleanup(void * xptr)506 open_cleanup(void *xptr)
507 {
508     int *ptr;
509 
510     ptr = xptr;
511     xclose(*ptr);
512 }
513 
514 void
opendir_cleanup(void * xdir)515 opendir_cleanup(void *xdir)
516 {
517     DIR *dir;
518 
519     dir = xdir;
520     xclosedir(dir);
521 }
522 
523 void
xfree_indirect(void * xptr)524 xfree_indirect(void *xptr)
525 {
526     void **ptr; /* This is actually type punning :( */
527 
528     ptr = xptr;
529     xfree(*ptr);
530 }
531 
532 void
reset(void)533 reset(void)
534 {
535     cleanup_until_mark();
536     _reset();
537     abort();
538 }
539 
540 /*
541  * The parser and scanner set up errors for later by calling seterr,
542  * which sets the variable err as a side effect; later to be tested,
543  * e.g. in process.
544  */
545 void
546 /*VARARGS1*/
seterror(unsigned int id,...)547 seterror(unsigned int id, ...)
548 {
549     if (seterr == 0) {
550 	va_list va;
551 
552 	va_start(va, id);
553 	if (id >= sizeof(elst) / sizeof(elst[0]))
554 	    id = ERR_INVALID;
555 	seterr = xvasprintf(elst[id], va);
556 	va_end(va);
557     }
558 }
559 
560 void
fixerror(void)561 fixerror(void)
562 {
563     didfds = 0;			/* Forget about 0,1,2 */
564     /*
565      * Go away if -e or we are a child shell
566      */
567     if (!exitset || exiterr || child)
568 	xexit(1);
569 
570     /*
571      * Reset the state of the input. This buffered seek to end of file will
572      * also clear the while/foreach stack.
573      */
574     btoeof();
575 
576     setcopy(STRstatus, STR1, VAR_READWRITE);/*FIXRESET*/
577 #ifdef BSDJOBS
578     if (tpgrp > 0)
579 	(void) tcsetpgrp(FSHTTY, tpgrp);
580 #endif
581 }
582 
583 /*
584  * Print the error with the given id.
585  *
586  * Special ids:
587  *	ERR_SILENT: Print nothing.
588  *	ERR_OLD: Print the previously set error
589  *	ERR_NAME: If this bit is set, print the name of the function
590  *		  in bname
591  *
592  * This routine always resets or exits.  The flag haderr
593  * is set so the routine who catches the unwind can propogate
594  * it if they want.
595  *
596  * Note that any open files at the point of error will eventually
597  * be closed in the routine process in sh.c which is the only
598  * place error unwinds are ever caught.
599  */
600 void
601 /*VARARGS*/
stderror(unsigned int id,...)602 stderror(unsigned int id, ...)
603 {
604     va_list va;
605     int flags;
606 
607     va_start(va, id);
608 
609     /*
610      * Reset don't free flag for buggy os's
611      */
612     dont_free = 0;
613 
614     flags = (int) id & ERR_FLAGS;
615     id &= ~ERR_FLAGS;
616 
617     /* Pyramid's OS/x has a subtle bug in <varargs.h> which prevents calling
618      * va_end more than once in the same function. -- sterling@netcom.com
619      */
620     assert(!((flags & ERR_OLD) && seterr == NULL));
621 
622     if (id >= sizeof(elst) / sizeof(elst[0]))
623 	id = ERR_INVALID;
624 
625     if (!(flags & ERR_SILENT)) {
626 	/*
627 	 * Must flush before we print as we wish output before the error
628 	 * to go on (some form of) standard output, while output after
629 	 * goes on (some form of) diagnostic output. If didfds then output
630 	 * will go to 1/2 else to FSHOUT/FSHDIAG. See flush in sh.print.c.
631 	 */
632 	flush();/*FIXRESET*/
633 	haderr = 1;		/* Now to diagnostic output */
634 	if (enterhist)
635 	    xprintf("Can't load history: ");/*FIXRESET*/
636 	if (flags & ERR_NAME)
637 	    xprintf("%s: ", bname);/*FIXRESET*/
638 	if ((flags & ERR_OLD)) {
639 	    /* Old error. */
640 	    xprintf("%s.\n", seterr);/*FIXRESET*/
641 	} else {
642 	    xvprintf(elst[id], va);/*FIXRESET*/
643 	    xprintf(".\n");/*FIXRESET*/
644 	}
645     }
646     va_end(va);
647 
648     if (seterr) {
649 	xfree(seterr);
650 	seterr = NULL;
651     }
652 
653     fixerror();
654 
655     reset();		/* Unwind */
656 }
657