bin/csh/err.c

   1 /* $NetBSD: err.c,v 1.19 2006/03/17 00:02:30 dmcmahill Exp $ */
   2
   3 /*-
   4  * Copyright (c) 1980, 1991, 1993
   5  *      The Regents of the University of California.  All rights reserved.
   6  *
   7  * Redistribution and use in source and binary forms, with or without
   8  * modification, are permitted provided that the following conditions
   9  * are met:
  10  * 1. Redistributions of source code must retain the above copyright
  11  *    notice, this list of conditions and the following disclaimer.
  12  * 2. Redistributions in binary form must reproduce the above copyright
  13  *    notice, this list of conditions and the following disclaimer in the
  14  *    documentation and/or other materials provided with the distribution.
  15  * 3. Neither the name of the University nor the names of its contributors
  16  *    may be used to endorse or promote products derived from this software
  17  *    without specific prior written permission.
  18  *
  19  * THIS SOFTWARE IS PROVIDED BY THE REGENTS AND CONTRIBUTORS ``AS IS'' AND
  20  * ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
  21  * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
  22  * ARE DISCLAIMED.  IN NO EVENT SHALL THE REGENTS OR CONTRIBUTORS BE LIABLE
  23  * FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
  24  * DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS
  25  * OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)
  26  * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT
  27  * LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY
  28  * OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF
  29  * SUCH DAMAGE.
  30  */
  31
  32 #include <sys/cdefs.h>
  33 #ifndef lint
  34 #if 0
  35 static char sccsid[] = "@(#)err.c       8.1 (Berkeley) 5/31/93";
  36 #else
  37 __RCSID("$NetBSD: err.c,v 1.19 2006/03/17 00:02:30 dmcmahill Exp $");
  38 #endif
  39 #endif /* not lint */
  40
  41 #include <sys/types.h>
  42
  43 #include <stdarg.h>
  44 #include <stdlib.h>
  45 #include <unistd.h>
  46
  47 #include "csh.h"
  48 #include "extern.h"
  49
  50 char *seterr = NULL;    /* Holds last error if there was one */
  51
  52 #define ERR_FLAGS       0xf0000000
  53 #define ERR_NAME        0x10000000
  54 #define ERR_SILENT      0x20000000
  55 #define ERR_OLD         0x40000000
  56
  57 static const char *errorlist[] =
  58 {
  59 #define ERR_SYNTAX      0
  60     "Syntax Error",
  61 #define ERR_NOTALLOWED  1
  62     "%s is not allowed",
  63 #define ERR_WTOOLONG    2
  64     "Word too long",
  65 #define ERR_LTOOLONG    3
  66     "$< line too long",
  67 #define ERR_DOLZERO     4
  68     "No file for $0",
  69 #define ERR_DOLQUEST    5
  70     "$? not allowed here",
  71 #define ERR_INCBR       6
  72     "Incomplete [] modifier",
  73 #define ERR_EXPORD      7
  74     "$ expansion must end before ]",
  75 #define ERR_BADMOD      8
  76     "Bad : modifier in $ (%c)",
  77 #define ERR_SUBSCRIPT   9
  78     "Subscript error",
  79 #define ERR_BADNUM      10
  80     "Badly formed number",
  81 #define ERR_NOMORE      11
  82     "No more words",
  83 #define ERR_FILENAME    12
  84     "Missing file name",
  85 #define ERR_GLOB        13
  86     "Internal glob error",
  87 #define ERR_COMMAND     14
  88     "Command not found",
  89 #define ERR_TOOFEW      15
  90     "Too few arguments",
  91 #define ERR_TOOMANY     16
  92     "Too many arguments",
  93 #define ERR_DANGER      17
  94     "Too dangerous to alias that",
  95 #define ERR_EMPTYIF     18
  96     "Empty if",
  97 #define ERR_IMPRTHEN    19
  98     "Improper then",
  99 #define ERR_NOPAREN     20
 100     "Words not parenthesized",
 101 #define ERR_NOTFOUND    21
 102     "%s not found",
 103 #define ERR_MASK        22
 104     "Improper mask",
 105 #define ERR_LIMIT       23
 106     "No such limit",
 107 #define ERR_TOOLARGE    24
 108     "Argument too large",
 109 #define ERR_SCALEF      25
 110     "Improper or unknown scale factor",
 111 #define ERR_UNDVAR      26
 112     "Undefined variable",
 113 #define ERR_DEEP        27
 114     "Directory stack not that deep",
 115 #define ERR_BADSIG      28
 116     "Bad signal number",
 117 #define ERR_UNKSIG      29
 118     "Unknown signal; kill -l lists signals",
 119 #define ERR_VARBEGIN    30
 120     "Variable name must begin with a letter",
 121 #define ERR_VARTOOLONG  31
 122     "Variable name too long",
 123 #define ERR_VARALNUM    32
 124     "Variable name must contain alphanumeric characters",
 125 #define ERR_JOBCONTROL  33
 126     "No job control in this shell",
 127 #define ERR_EXPRESSION  34
 128     "Expression Syntax",
 129 #define ERR_NOHOMEDIR   35
 130     "No home directory",
 131 #define ERR_CANTCHANGE  36
 132     "Can't change to home directory",
 133 #define ERR_NULLCOM     37
 134     "Invalid null command",
 135 #define ERR_ASSIGN      38
 136     "Assignment missing expression",
 137 #define ERR_UNKNOWNOP   39
 138     "Unknown operator",
 139 #define ERR_AMBIG       40
 140     "Ambiguous",
 141 #define ERR_EXISTS      41
 142     "%s: File exists",
 143 #define ERR_INTR        42
 144     "Interrupted",
 145 #define ERR_RANGE       43
 146     "Subscript out of range",
 147 #define ERR_OVERFLOW    44
 148     "Line overflow",
 149 #define ERR_VARMOD      45
 150     "Unknown variable modifier",
 151 #define ERR_NOSUCHJOB   46
 152     "No such job",
 153 #define ERR_TERMINAL    47
 154     "Can't from terminal",
 155 #define ERR_NOTWHILE    48
 156     "Not in while/foreach",
 157 #define ERR_NOPROC      49
 158     "No more processes",
 159 #define ERR_NOMATCH     50
 160     "No match",
 161 #define ERR_MISSING     51
 162     "Missing %c",
 163 #define ERR_UNMATCHED   52
 164     "Unmatched %c",
 165 #define ERR_NOMEM       53
 166     "Out of memory",
 167 #define ERR_PIPE        54
 168     "Can't make pipe",
 169 #define ERR_SYSTEM      55
 170     "%s: %s",
 171 #define ERR_STRING      56
 172     "%s",
 173 #define ERR_JOBS        57
 174     "usage: jobs [ -l ]",
 175 #define ERR_JOBARGS     58
 176     "Arguments should be jobs or process id's",
 177 #define ERR_JOBCUR      59
 178     "No current job",
 179 #define ERR_JOBPREV     60
 180     "No previous job",
 181 #define ERR_JOBPAT      61
 182     "No job matches pattern",
 183 #define ERR_NESTING     62
 184     "Fork nesting > %d; maybe `...` loop",
 185 #define ERR_JOBCTRLSUB  63
 186     "No job control in subshells",
 187 #define ERR_BADPLPS     64
 188     "Badly placed ()'s",
 189 #define ERR_STOPPED     65
 190     "%sThere are suspended jobs",
 191 #define ERR_NODIR       66
 192     "No other directory",
 193 #define ERR_EMPTY       67
 194     "Directory stack empty",
 195 #define ERR_BADDIR      68
 196     "Bad directory",
 197 #define ERR_DIRUS       69
 198     "usage: %s [-lvn]%s",
 199 #define ERR_HFLAG       70
 200     "No operand for -h flag",
 201 #define ERR_NOTLOGIN    71
 202     "Not a login shell",
 203 #define ERR_DIV0        72
 204     "Division by 0",
 205 #define ERR_MOD0        73
 206     "Mod by 0",
 207 #define ERR_BADSCALE    74
 208     "Bad scaling; did you mean \"%s\"?",
 209 #define ERR_SUSPLOG     75
 210     "Can't suspend a login shell (yet)",
 211 #define ERR_UNKUSER     76
 212     "Unknown user: %s",
 213 #define ERR_NOHOME      77
 214     "No $home variable set",
 215 #define ERR_HISTUS      78
 216     "usage: history [-rh] [# number of events]",
 217 #define ERR_SPDOLLT     79
 218     "$, ! or < not allowed with $# or $?",
 219 #define ERR_NEWLINE     80
 220     "Newline in variable name",
 221 #define ERR_SPSTAR      81
 222     "* not allowed with $# or $?",
 223 #define ERR_DIGIT       82
 224     "$?<digit> or $#<digit> not allowed",
 225 #define ERR_VARILL      83
 226     "Illegal variable name",
 227 #define ERR_NLINDEX     84
 228     "Newline in variable index",
 229 #define ERR_EXPOVFL     85
 230     "Expansion buffer overflow",
 231 #define ERR_VARSYN      86
 232     "Variable syntax",
 233 #define ERR_BADBANG     87
 234     "Bad ! form",
 235 #define ERR_NOSUBST     88
 236     "No previous substitute",
 237 #define ERR_BADSUBST    89
 238     "Bad substitute",
 239 #define ERR_LHS         90
 240     "No previous left hand side",
 241 #define ERR_RHSLONG     91
 242     "Right hand side too long",
 243 #define ERR_BADBANGMOD  92
 244     "Bad ! modifier: %c",
 245 #define ERR_MODFAIL     93
 246     "Modifier failed",
 247 #define ERR_SUBOVFL     94
 248     "Substitution buffer overflow",
 249 #define ERR_BADBANGARG  95
 250     "Bad ! arg selector",
 251 #define ERR_NOSEARCH    96
 252     "No prev search",
 253 #define ERR_NOEVENT     97
 254     "%s: Event not found",
 255 #define ERR_TOOMANYRP   98
 256     "Too many )'s",
 257 #define ERR_TOOMANYLP   99
 258     "Too many ('s",
 259 #define ERR_BADPLP      100
 260     "Badly placed (",
 261 #define ERR_MISRED      101
 262     "Missing name for redirect",
 263 #define ERR_OUTRED      102
 264     "Ambiguous output redirect",
 265 #define ERR_REDPAR      103
 266     "Can't << within ()'s",
 267 #define ERR_INRED       104
 268     "Ambiguous input redirect",
 269 #define ERR_ALIASLOOP   105
 270     "Alias loop",
 271 #define ERR_HISTLOOP    106
 272     "!# History loop",
 273 #define ERR_ARCH        107
 274     "%s: %s. Wrong Architecture",
 275 #define ERR_FILEINQ     108
 276     "Malformed file inquiry",
 277 #define ERR_SELOVFL     109
 278     "Selector overflow",
 279 #define ERR_INVALID     110
 280     "Invalid Error"
 281 };
 282
 283 /*
 284  * The parser and scanner set up errors for later by calling seterr,
 285  * which sets the variable err as a side effect; later to be tested,
 286  * e.g. in process.
 287  */
 288 void
 289 seterror(int id, ...)
 290 {
 291     if (seterr == 0) {
 292         char berr[BUFSIZE];
 293         va_list va;
 294
 295         va_start(va, id);
 296         if (id < 0 || id >= (int)(sizeof(errorlist) / sizeof(errorlist[0])) - 1)
 297             id = ERR_INVALID;
 298         (void)vsnprintf(berr, sizeof(berr), errorlist[id], va);
 299         va_end(va);
 300
 301         seterr = strsave(berr);
 302     }
 303 }
 304
 305 /*
 306  * Print the error with the given id.
 307  *
 308  * Special ids:
 309  *      ERR_SILENT: Print nothing.
 310  *      ERR_OLD: Print the previously set error if one was there.
 311  *               otherwise return.
 312  *      ERR_NAME: If this bit is set, print the name of the function
 313  *                in bname
 314  *
 315  * This routine always resets or exits.  The flag haderr
 316  * is set so the routine who catches the unwind can propogate
 317  * it if they want.
 318  *
 319  * Note that any open files at the point of error will eventually
 320  * be closed in the routine process in sh.c which is the only
 321  * place error unwinds are ever caught.
 322  */
 323 void
 324 stderror(int id, ...)
 325 {
 326     va_list va;
 327     Char **v;
 328     int flags;
 329
 330     flags = id & ERR_FLAGS;
 331     id &= ~ERR_FLAGS;
 332
 333     if ((flags & ERR_OLD) && seterr == NULL)
 334         abort();
 335
 336     if (id < 0 || id > (int)(sizeof(errorlist) / sizeof(errorlist[0])))
 337         id = ERR_INVALID;
 338
 339     (void)fflush(cshout);
 340     (void)fflush(csherr);
 341     haderr = 1;                 /* Now to diagnostic output */
 342     timflg = 0;                 /* This isn't otherwise reset */
 343
 344
 345     if (!(flags & ERR_SILENT)) {
 346         if (flags & ERR_NAME)
 347             (void)fprintf(csherr, "%s: ", bname);
 348         if ((flags & ERR_OLD))
 349             /* Old error. */
 350             (void)fprintf(csherr, "%s.\n", seterr);
 351         else {
 352             va_start(va, id);
 353             (void)vfprintf(csherr, errorlist[id], va);
 354             va_end(va);
 355             (void)fprintf(csherr, ".\n");
 356         }
 357     }
 358
 359     if (seterr) {
 360         xfree((ptr_t) seterr);
 361         seterr = NULL;
 362     }
 363
 364     if ((v = pargv) != NULL)
 365         pargv = 0, blkfree(v);
 366     if ((v = gargv) != NULL)
 367         gargv = 0, blkfree(v);
 368
 369     (void)fflush(cshout);
 370     (void)fflush(csherr);
 371     didfds = 0;                 /* Forget about 0,1,2 */
 372     /*
 373      * Go away if -e or we are a child shell
 374      */
 375     if (exiterr || child)
 376         xexit(1);
 377
 378     /*
 379      * Reset the state of the input. This buffered seek to end of file will
 380      * also clear the while/foreach stack.
 381      */
 382     btoeof();
 383
 384     set(STRstatus, Strsave(STR1));
 385     if (tpgrp > 0)
 386         (void)tcsetpgrp(FSHTTY, tpgrp);
 387     reset();                    /* Unwind */
 388 }