1 /* $Header: /p/tcsh/cvsroot/tcsh/sh.err.c,v 3.56 2014/08/17 02:56:37 amold Exp $ */
3 * sh.err.c: Error printing routines.
6 * Copyright (c) 1980, 1991 The Regents of the University of California.
9 * Redistribution and use in source and binary forms, with or without
10 * modification, are permitted provided that the following conditions
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.
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
33 #define _h_sh_err /* Don't redefine the errors */
37 RCSID("$tcsh: sh.err.c,v 3.56 2014/08/17 02:56:37 amold Exp $")
45 #define va_arg(a, b) (a ? (b) 0 : (b) 0)
48 char *seterr
= NULL
; /* Holds last error if there was one */
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
57 #define ERR_NOTALLOWED 1
58 #define ERR_WTOOLONG 2
59 #define ERR_LTOOLONG 3
64 #define ERR_SUBSCRIPT 8
67 #define ERR_FILENAME 11
69 #define ERR_COMMAND 13
71 #define ERR_TOOMANY 15
73 #define ERR_EMPTYIF 17
74 #define ERR_IMPRTHEN 18
75 #define ERR_NOPAREN 19
76 #define ERR_NOTFOUND 20
79 #define ERR_TOOLARGE 23
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
94 #define ERR_UNKNOWNOP 38
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
110 #define ERR_SYSTEM 54
111 #define ERR_STRING 55
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
120 #define ERR_STOPPED 64
123 #define ERR_BADDIR 67
126 #define ERR_NOTLOGIN 70
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
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
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
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
192 #define NO_ERRORS 136
194 static const char *elst
[NO_ERRORS
] INIT_ZERO_STRUCT
;
197 * Init the elst depending on the locale
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
++)
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");
281 CSAVS(1, 65, "%sThere are suspended jobs");
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");
348 elst
[ERR_TCSHUSAGE
] = CSAVS(1, 126,
349 "Unknown option: `-%s'\nUsage: %s [ -bcdefilmnqstvVxX -Dname[=value] ] [ argument ... ]");
352 elst
[ERR_TCSHUSAGE
] = CSAVS(1, 127,
353 "Unknown option: `-%s'\nUsage: %s [ -bcdefFilmnqstvVxX ] [ argument ... ]");
355 elst
[ERR_TCSHUSAGE
] = CSAVS(1, 128,
356 "Unknown option: `-%s'\nUsage: %s [ -bcdefilmnqstvVxX ] [ argument ... ]");
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");
383 static struct cleanup_entry
*cleanup_stack INIT_ZERO
; /* = NULL; */
384 static size_t cleanup_sp INIT_ZERO
; /* = 0; Next free entry */
385 static size_t cleanup_mark INIT_ZERO
; /* = 0; Last entry to handle before unwinding */
386 static size_t cleanup_stack_size INIT_ZERO
; /* = 0 */
388 /* fn() will be run with all signals blocked, so it should not do anything
391 cleanup_push_internal(void *var
, void (*fn
) (void *)
393 , const char *file
, size_t line
397 struct cleanup_entry
*ce
;
399 if (cleanup_sp
== cleanup_stack_size
) {
400 if (cleanup_stack_size
== 0)
401 cleanup_stack_size
= 64; /* Arbitrary */
403 cleanup_stack_size
*= 2;
404 cleanup_stack
= xrealloc(cleanup_stack
,
405 cleanup_stack_size
* sizeof (*cleanup_stack
));
407 ce
= cleanup_stack
+ cleanup_sp
;
418 cleanup_ignore_fn(void *dummy
)
424 cleanup_ignore(void *var
)
426 struct cleanup_entry
*ce
;
428 ce
= cleanup_stack
+ cleanup_sp
;
429 while (ce
!= cleanup_stack
) {
431 if (ce
->var
== var
) {
432 ce
->fn
= cleanup_ignore_fn
;
440 cleanup_until(void *last_var
)
442 while (cleanup_sp
!= 0) {
443 struct cleanup_entry ce
;
446 ce
= cleanup_stack
[cleanup_sp
];
448 if (ce
.var
== last_var
)
457 return cleanup_sp
> cleanup_mark
;
461 cleanup_until_mark(void)
463 while (cleanup_sp
> cleanup_mark
) {
464 struct cleanup_entry ce
;
467 ce
= cleanup_stack
[cleanup_sp
];
473 cleanup_push_mark(void)
477 old_mark
= cleanup_mark
;
478 cleanup_mark
= cleanup_sp
;
483 cleanup_pop_mark(size_t mark
)
485 assert (mark
<= cleanup_sp
);
490 sigint_cleanup(void *xsa
)
492 const struct sigaction
*sa
;
495 sigaction(SIGINT
, sa
, NULL
);
499 sigprocmask_cleanup(void *xmask
)
504 sigprocmask(SIG_SETMASK
, mask
, NULL
);
508 open_cleanup(void *xptr
)
517 opendir_cleanup(void *xdir
)
526 xfree_indirect(void *xptr
)
528 void **ptr
; /* This is actually type punning :( */
537 cleanup_until_mark();
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,
549 seterror(unsigned int id
, ...)
555 if (id
>= sizeof(elst
) / sizeof(elst
[0]))
557 seterr
= xvasprintf(elst
[id
], va
);
565 didfds
= 0; /* Forget about 0,1,2 */
567 * Go away if -e or we are a child shell
569 if (!exitset
|| exiterr
|| child
)
573 * Reset the state of the input. This buffered seek to end of file will
574 * also clear the while/foreach stack.
578 setcopy(STRstatus
, STR1
, VAR_READWRITE
);/*FIXRESET*/
581 (void) tcsetpgrp(FSHTTY
, tpgrp
);
586 * Print the error with the given id.
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
594 * This routine always resets or exits. The flag haderr
595 * is set so the routine who catches the unwind can propogate
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.
604 stderror(unsigned int id
, ...)
612 * Reset don't free flag for buggy os's
616 flags
= (int) id
& ERR_FLAGS
;
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
622 assert(!((flags
& ERR_OLD
) && seterr
== NULL
));
624 if (id
>= sizeof(elst
) / sizeof(elst
[0]))
627 if (!(flags
& ERR_SILENT
)) {
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.
635 haderr
= 1; /* Now to diagnostic output */
636 if (flags
& ERR_NAME
)
637 xprintf("%s: ", bname
);/*FIXRESET*/
638 if ((flags
& ERR_OLD
)) {
640 xprintf("%s.\n", seterr
);/*FIXRESET*/
642 xvprintf(elst
[id
], va
);/*FIXRESET*/
643 xprintf(".\n");/*FIXRESET*/
655 reset(); /* Unwind */