1 /* $Header: /src/pub/tcsh/sh.err.c,v 3.34 1999/05/11 13:07:45 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.34 1999/05/11 13:07:45 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 (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 } 523