1 /* $NetBSD: err.c,v 1.26 2025/03/20 15:02:00 buhrow 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.26 2025/03/20 15:02:00 buhrow 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 ((int)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|-Z [title]]", 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 propagate 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 free(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 } 389
Indexes created Sun Sep 21 18:09:52 GMT 2025