PageRenderTime 48ms CodeModel.GetById 18ms app.highlight 24ms RepoModel.GetById 2ms app.codeStats 0ms

/contrib/tcsh/sh.err.c

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