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} 657