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