408 lines
10 KiB
C
408 lines
10 KiB
C
/*-
|
|
* Copyright (c) 1980, 1991, 1993
|
|
* The Regents of the University of California. All rights reserved.
|
|
*
|
|
* Redistribution and use in source and binary forms, with or without
|
|
* modification, are permitted provided that the following conditions
|
|
* are met:
|
|
* 1. Redistributions of source code must retain the above copyright
|
|
* notice, this list of conditions and the following disclaimer.
|
|
* 2. Redistributions in binary form must reproduce the above copyright
|
|
* notice, this list of conditions and the following disclaimer in the
|
|
* documentation and/or other materials provided with the distribution.
|
|
* 3. All advertising materials mentioning features or use of this software
|
|
* must display the following acknowledgement:
|
|
* This product includes software developed by the University of
|
|
* California, Berkeley and its contributors.
|
|
* 4. Neither the name of the University nor the names of its contributors
|
|
* may be used to endorse or promote products derived from this software
|
|
* without specific prior written permission.
|
|
*
|
|
* THIS SOFTWARE IS PROVIDED BY THE REGENTS AND CONTRIBUTORS ``AS IS'' AND
|
|
* ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
|
|
* IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
|
|
* ARE DISCLAIMED. IN NO EVENT SHALL THE REGENTS OR CONTRIBUTORS BE LIABLE
|
|
* FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
|
|
* DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS
|
|
* OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)
|
|
* HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT
|
|
* LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY
|
|
* OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF
|
|
* SUCH DAMAGE.
|
|
*/
|
|
|
|
#ifndef lint
|
|
static char sccsid[] = "@(#)err.c 8.1 (Berkeley) 5/31/93";
|
|
#endif /* not lint */
|
|
|
|
#include <sys/types.h>
|
|
#include <stdlib.h>
|
|
#include <unistd.h>
|
|
#if __STDC__
|
|
# include <stdarg.h>
|
|
#else
|
|
# include <varargs.h>
|
|
#endif
|
|
|
|
#include "csh.h"
|
|
#include "extern.h"
|
|
|
|
char *seterr = NULL; /* Holds last error if there was one */
|
|
|
|
#define ERR_FLAGS 0xf0000000
|
|
#define ERR_NAME 0x10000000
|
|
#define ERR_SILENT 0x20000000
|
|
#define ERR_OLD 0x40000000
|
|
|
|
static char *errorlist[] =
|
|
{
|
|
#define ERR_SYNTAX 0
|
|
"Syntax Error",
|
|
#define ERR_NOTALLOWED 1
|
|
"%s is not allowed",
|
|
#define ERR_WTOOLONG 2
|
|
"Word too long",
|
|
#define ERR_LTOOLONG 3
|
|
"$< line too long",
|
|
#define ERR_DOLZERO 4
|
|
"No file for $0",
|
|
#define ERR_DOLQUEST 5
|
|
"$? not allowed here",
|
|
#define ERR_INCBR 6
|
|
"Incomplete [] modifier",
|
|
#define ERR_EXPORD 7
|
|
"$ expansion must end before ]",
|
|
#define ERR_BADMOD 8
|
|
"Bad : modifier in $ (%c)",
|
|
#define ERR_SUBSCRIPT 9
|
|
"Subscript error",
|
|
#define ERR_BADNUM 10
|
|
"Badly formed number",
|
|
#define ERR_NOMORE 11
|
|
"No more words",
|
|
#define ERR_FILENAME 12
|
|
"Missing file name",
|
|
#define ERR_GLOB 13
|
|
"Internal glob error",
|
|
#define ERR_COMMAND 14
|
|
"Command not found",
|
|
#define ERR_TOOFEW 15
|
|
"Too few arguments",
|
|
#define ERR_TOOMANY 16
|
|
"Too many arguments",
|
|
#define ERR_DANGER 17
|
|
"Too dangerous to alias that",
|
|
#define ERR_EMPTYIF 18
|
|
"Empty if",
|
|
#define ERR_IMPRTHEN 19
|
|
"Improper then",
|
|
#define ERR_NOPAREN 20
|
|
"Words not parenthesized",
|
|
#define ERR_NOTFOUND 21
|
|
"%s not found",
|
|
#define ERR_MASK 22
|
|
"Improper mask",
|
|
#define ERR_LIMIT 23
|
|
"No such limit",
|
|
#define ERR_TOOLARGE 24
|
|
"Argument too large",
|
|
#define ERR_SCALEF 25
|
|
"Improper or unknown scale factor",
|
|
#define ERR_UNDVAR 26
|
|
"Undefined variable",
|
|
#define ERR_DEEP 27
|
|
"Directory stack not that deep",
|
|
#define ERR_BADSIG 28
|
|
"Bad signal number",
|
|
#define ERR_UNKSIG 29
|
|
"Unknown signal; kill -l lists signals",
|
|
#define ERR_VARBEGIN 30
|
|
"Variable name must begin with a letter",
|
|
#define ERR_VARTOOLONG 31
|
|
"Variable name too long",
|
|
#define ERR_VARALNUM 32
|
|
"Variable name must contain alphanumeric characters",
|
|
#define ERR_JOBCONTROL 33
|
|
"No job control in this shell",
|
|
#define ERR_EXPRESSION 34
|
|
"Expression Syntax",
|
|
#define ERR_NOHOMEDIR 35
|
|
"No home directory",
|
|
#define ERR_CANTCHANGE 36
|
|
"Can't change to home directory",
|
|
#define ERR_NULLCOM 37
|
|
"Invalid null command",
|
|
#define ERR_ASSIGN 38
|
|
"Assignment missing expression",
|
|
#define ERR_UNKNOWNOP 39
|
|
"Unknown operator",
|
|
#define ERR_AMBIG 40
|
|
"Ambiguous",
|
|
#define ERR_EXISTS 41
|
|
"%s: File exists",
|
|
#define ERR_INTR 42
|
|
"Interrupted",
|
|
#define ERR_RANGE 43
|
|
"Subscript out of range",
|
|
#define ERR_OVERFLOW 44
|
|
"Line overflow",
|
|
#define ERR_VARMOD 45
|
|
"Unknown variable modifier",
|
|
#define ERR_NOSUCHJOB 46
|
|
"No such job",
|
|
#define ERR_TERMINAL 47
|
|
"Can't from terminal",
|
|
#define ERR_NOTWHILE 48
|
|
"Not in while/foreach",
|
|
#define ERR_NOPROC 49
|
|
"No more processes",
|
|
#define ERR_NOMATCH 50
|
|
"No match",
|
|
#define ERR_MISSING 51
|
|
"Missing %c",
|
|
#define ERR_UNMATCHED 52
|
|
"Unmatched %c",
|
|
#define ERR_NOMEM 53
|
|
"Out of memory",
|
|
#define ERR_PIPE 54
|
|
"Can't make pipe",
|
|
#define ERR_SYSTEM 55
|
|
"%s: %s",
|
|
#define ERR_STRING 56
|
|
"%s",
|
|
#define ERR_JOBS 57
|
|
"Usage: jobs [ -l ]",
|
|
#define ERR_JOBARGS 58
|
|
"Arguments should be jobs or process id's",
|
|
#define ERR_JOBCUR 59
|
|
"No current job",
|
|
#define ERR_JOBPREV 60
|
|
"No previous job",
|
|
#define ERR_JOBPAT 61
|
|
"No job matches pattern",
|
|
#define ERR_NESTING 62
|
|
"Fork nesting > %d; maybe `...` loop",
|
|
#define ERR_JOBCTRLSUB 63
|
|
"No job control in subshells",
|
|
#define ERR_BADPLPS 64
|
|
"Badly placed ()'s",
|
|
#define ERR_STOPPED 65
|
|
"%sThere are suspended jobs",
|
|
#define ERR_NODIR 66
|
|
"No other directory",
|
|
#define ERR_EMPTY 67
|
|
"Directory stack empty",
|
|
#define ERR_BADDIR 68
|
|
"Bad directory",
|
|
#define ERR_DIRUS 69
|
|
"Usage: %s [-lvn]%s",
|
|
#define ERR_HFLAG 70
|
|
"No operand for -h flag",
|
|
#define ERR_NOTLOGIN 71
|
|
"Not a login shell",
|
|
#define ERR_DIV0 72
|
|
"Division by 0",
|
|
#define ERR_MOD0 73
|
|
"Mod by 0",
|
|
#define ERR_BADSCALE 74
|
|
"Bad scaling; did you mean \"%s\"?",
|
|
#define ERR_SUSPLOG 75
|
|
"Can't suspend a login shell (yet)",
|
|
#define ERR_UNKUSER 76
|
|
"Unknown user: %s",
|
|
#define ERR_NOHOME 77
|
|
"No $home variable set",
|
|
#define ERR_HISTUS 78
|
|
"Usage: history [-rh] [# number of events]",
|
|
#define ERR_SPDOLLT 79
|
|
"$, ! or < not allowed with $# or $?",
|
|
#define ERR_NEWLINE 80
|
|
"Newline in variable name",
|
|
#define ERR_SPSTAR 81
|
|
"* not allowed with $# or $?",
|
|
#define ERR_DIGIT 82
|
|
"$?<digit> or $#<digit> not allowed",
|
|
#define ERR_VARILL 83
|
|
"Illegal variable name",
|
|
#define ERR_NLINDEX 84
|
|
"Newline in variable index",
|
|
#define ERR_EXPOVFL 85
|
|
"Expansion buffer overflow",
|
|
#define ERR_VARSYN 86
|
|
"Variable syntax",
|
|
#define ERR_BADBANG 87
|
|
"Bad ! form",
|
|
#define ERR_NOSUBST 88
|
|
"No previous substitute",
|
|
#define ERR_BADSUBST 89
|
|
"Bad substitute",
|
|
#define ERR_LHS 90
|
|
"No previous left hand side",
|
|
#define ERR_RHSLONG 91
|
|
"Right hand side too long",
|
|
#define ERR_BADBANGMOD 92
|
|
"Bad ! modifier: %c",
|
|
#define ERR_MODFAIL 93
|
|
"Modifier failed",
|
|
#define ERR_SUBOVFL 94
|
|
"Substitution buffer overflow",
|
|
#define ERR_BADBANGARG 95
|
|
"Bad ! arg selector",
|
|
#define ERR_NOSEARCH 96
|
|
"No prev search",
|
|
#define ERR_NOEVENT 97
|
|
"%s: Event not found",
|
|
#define ERR_TOOMANYRP 98
|
|
"Too many )'s",
|
|
#define ERR_TOOMANYLP 99
|
|
"Too many ('s",
|
|
#define ERR_BADPLP 100
|
|
"Badly placed (",
|
|
#define ERR_MISRED 101
|
|
"Missing name for redirect",
|
|
#define ERR_OUTRED 102
|
|
"Ambiguous output redirect",
|
|
#define ERR_REDPAR 103
|
|
"Can't << within ()'s",
|
|
#define ERR_INRED 104
|
|
"Ambiguous input redirect",
|
|
#define ERR_ALIASLOOP 105
|
|
"Alias loop",
|
|
#define ERR_HISTLOOP 106
|
|
"!# History loop",
|
|
#define ERR_ARCH 107
|
|
"%s: %s. Wrong Architecture",
|
|
#define ERR_FILEINQ 108
|
|
"Malformed file inquiry",
|
|
#define ERR_SELOVFL 109
|
|
"Selector overflow",
|
|
#define ERR_INVALID 110
|
|
"Invalid Error"
|
|
};
|
|
|
|
/*
|
|
* The parser and scanner set up errors for later by calling seterr,
|
|
* which sets the variable err as a side effect; later to be tested,
|
|
* e.g. in process.
|
|
*/
|
|
void
|
|
#if __STDC__
|
|
seterror(int id, ...)
|
|
#else
|
|
seterror(id, va_alist)
|
|
int id;
|
|
va_dcl
|
|
#endif
|
|
{
|
|
if (seterr == 0) {
|
|
char berr[BUFSIZ];
|
|
va_list va;
|
|
|
|
#if __STDC__
|
|
va_start(va, id);
|
|
#else
|
|
va_start(va);
|
|
#endif
|
|
if (id < 0 || id > sizeof(errorlist) / sizeof(errorlist[0]))
|
|
id = ERR_INVALID;
|
|
vsprintf(berr, errorlist[id], va);
|
|
va_end(va);
|
|
|
|
seterr = strsave(berr);
|
|
}
|
|
}
|
|
|
|
/*
|
|
* Print the error with the given id.
|
|
*
|
|
* Special ids:
|
|
* ERR_SILENT: Print nothing.
|
|
* ERR_OLD: Print the previously set error if one was there.
|
|
* otherwise return.
|
|
* ERR_NAME: If this bit is set, print the name of the function
|
|
* in bname
|
|
*
|
|
* This routine always resets or exits. The flag haderr
|
|
* is set so the routine who catches the unwind can propogate
|
|
* it if they want.
|
|
*
|
|
* Note that any open files at the point of error will eventually
|
|
* be closed in the routine process in sh.c which is the only
|
|
* place error unwinds are ever caught.
|
|
*/
|
|
void
|
|
#if __STDC__
|
|
stderror(int id, ...)
|
|
#else
|
|
stderror(id, va_alist)
|
|
int id;
|
|
va_dcl
|
|
#endif
|
|
{
|
|
va_list va;
|
|
register Char **v;
|
|
int flags = id & ERR_FLAGS;
|
|
|
|
id &= ~ERR_FLAGS;
|
|
|
|
if ((flags & ERR_OLD) && seterr == NULL)
|
|
return;
|
|
|
|
if (id < 0 || id > sizeof(errorlist) / sizeof(errorlist[0]))
|
|
id = ERR_INVALID;
|
|
|
|
(void) fflush(cshout);
|
|
(void) fflush(csherr);
|
|
haderr = 1; /* Now to diagnostic output */
|
|
timflg = 0; /* This isn't otherwise reset */
|
|
|
|
|
|
if (!(flags & ERR_SILENT)) {
|
|
if (flags & ERR_NAME)
|
|
(void) fprintf(csherr, "%s: ", bname);
|
|
if ((flags & ERR_OLD))
|
|
/* Old error. */
|
|
(void) fprintf(csherr, "%s.\n", seterr);
|
|
else {
|
|
#if __STDC__
|
|
va_start(va, id);
|
|
#else
|
|
va_start(va);
|
|
#endif
|
|
(void) vfprintf(csherr, errorlist[id], va);
|
|
va_end(va);
|
|
(void) fprintf(csherr, ".\n");
|
|
}
|
|
}
|
|
|
|
if (seterr) {
|
|
xfree((ptr_t) seterr);
|
|
seterr = NULL;
|
|
}
|
|
|
|
if ((v = pargv) != NULL)
|
|
pargv = 0, blkfree(v);
|
|
if ((v = gargv) != NULL)
|
|
gargv = 0, blkfree(v);
|
|
|
|
(void) fflush(cshout);
|
|
(void) fflush(csherr);
|
|
didfds = 0; /* Forget about 0,1,2 */
|
|
/*
|
|
* Go away if -e or we are a child shell
|
|
*/
|
|
if (exiterr || child)
|
|
xexit(1);
|
|
|
|
/*
|
|
* Reset the state of the input. This buffered seek to end of file will
|
|
* also clear the while/foreach stack.
|
|
*/
|
|
btoeof();
|
|
|
|
set(STRstatus, Strsave(STR1));
|
|
if (tpgrp > 0)
|
|
(void) tcsetpgrp(FSHTTY, tpgrp);
|
|
reset(); /* Unwind */
|
|
}
|