contrib/tcsh-6/sh.err.c

   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
  37 RCSID("$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
  48 char   *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
 194 static const char *elst[NO_ERRORS] INIT_ZERO_STRUCT;
 195
 196 /*
 197  * Init the elst depending on the locale
 198  */
 199 void
 200 errinit(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. */
 373 struct 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
 383 static struct cleanup_entry *cleanup_stack; /* = NULL; */
 384 static size_t cleanup_sp; /* = 0; Next free entry */
 385 static size_t cleanup_mark; /* = 0; Last entry to handle before unwinding */
 386 static size_t cleanup_stack_size; /* = 0 */
 387
 388 /* fn() will be run with all signals blocked, so it should not do anything
 389    risky. */
 390 void
 391 cleanup_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
 417 static void
 418 cleanup_ignore_fn(void *dummy)
 419 {
 420     USE(dummy);
 421 }
 422
 423 void
 424 cleanup_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
 439 void
 440 cleanup_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
 454 int
 455 cleanup_reset(void)
 456 {
 457     return cleanup_sp > cleanup_mark;
 458 }
 459
 460 void
 461 cleanup_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
 472 size_t
 473 cleanup_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
 482 void
 483 cleanup_pop_mark(size_t mark)
 484 {
 485     assert (mark <= cleanup_sp);
 486     cleanup_mark = mark;
 487 }
 488
 489 void
 490 sigint_cleanup(void *xsa)
 491 {
 492     const struct sigaction *sa;
 493
 494     sa = xsa;
 495     sigaction(SIGINT, sa, NULL);
 496 }
 497
 498 void
 499 sigprocmask_cleanup(void *xmask)
 500 {
 501     sigset_t *mask;
 502
 503     mask = xmask;
 504     sigprocmask(SIG_SETMASK, mask, NULL);
 505 }
 506
 507 void
 508 open_cleanup(void *xptr)
 509 {
 510     int *ptr;
 511
 512     ptr = xptr;
 513     xclose(*ptr);
 514 }
 515
 516 void
 517 opendir_cleanup(void *xdir)
 518 {
 519     DIR *dir;
 520
 521     dir = xdir;
 522     xclosedir(dir);
 523 }
 524
 525 void
 526 xfree_indirect(void *xptr)
 527 {
 528     void **ptr; /* This is actually type punning :( */
 529
 530     ptr = xptr;
 531     xfree(*ptr);
 532 }
 533
 534 void
 535 reset(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  */
 547 void
 548 /*VARARGS1*/
 549 seterror(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
 562 void
 563 fixerror(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  */
 602 void
 603 /*VARARGS*/
 604 stderror(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 }