17d8fb588SMatthias Schmidt /*
27d8fb588SMatthias Schmidt * sh.err.c: Error printing routines.
37d8fb588SMatthias Schmidt */
47d8fb588SMatthias Schmidt /*-
57d8fb588SMatthias Schmidt * Copyright (c) 1980, 1991 The Regents of the University of California.
67d8fb588SMatthias Schmidt * All rights reserved.
77d8fb588SMatthias Schmidt *
87d8fb588SMatthias Schmidt * Redistribution and use in source and binary forms, with or without
97d8fb588SMatthias Schmidt * modification, are permitted provided that the following conditions
107d8fb588SMatthias Schmidt * are met:
117d8fb588SMatthias Schmidt * 1. Redistributions of source code must retain the above copyright
127d8fb588SMatthias Schmidt * notice, this list of conditions and the following disclaimer.
137d8fb588SMatthias Schmidt * 2. Redistributions in binary form must reproduce the above copyright
147d8fb588SMatthias Schmidt * notice, this list of conditions and the following disclaimer in the
157d8fb588SMatthias Schmidt * documentation and/or other materials provided with the distribution.
167d8fb588SMatthias Schmidt * 3. Neither the name of the University nor the names of its contributors
177d8fb588SMatthias Schmidt * may be used to endorse or promote products derived from this software
187d8fb588SMatthias Schmidt * without specific prior written permission.
197d8fb588SMatthias Schmidt *
207d8fb588SMatthias Schmidt * THIS SOFTWARE IS PROVIDED BY THE REGENTS AND CONTRIBUTORS ``AS IS'' AND
217d8fb588SMatthias Schmidt * ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
227d8fb588SMatthias Schmidt * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
237d8fb588SMatthias Schmidt * ARE DISCLAIMED. IN NO EVENT SHALL THE REGENTS OR CONTRIBUTORS BE LIABLE
247d8fb588SMatthias Schmidt * FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
257d8fb588SMatthias Schmidt * DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS
267d8fb588SMatthias Schmidt * OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)
277d8fb588SMatthias Schmidt * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT
287d8fb588SMatthias Schmidt * LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY
297d8fb588SMatthias Schmidt * OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF
307d8fb588SMatthias Schmidt * SUCH DAMAGE.
317d8fb588SMatthias Schmidt */
327d8fb588SMatthias Schmidt #define _h_sh_err /* Don't redefine the errors */
337d8fb588SMatthias Schmidt #include "sh.h"
347d8fb588SMatthias Schmidt #include <assert.h>
357d8fb588SMatthias Schmidt
367d8fb588SMatthias Schmidt /*
377d8fb588SMatthias Schmidt * C Shell
387d8fb588SMatthias Schmidt */
397d8fb588SMatthias Schmidt
407d8fb588SMatthias Schmidt #ifdef lint
417d8fb588SMatthias Schmidt #undef va_arg
427d8fb588SMatthias Schmidt #define va_arg(a, b) (a ? (b) 0 : (b) 0)
437d8fb588SMatthias Schmidt #endif
447d8fb588SMatthias Schmidt
457d8fb588SMatthias Schmidt char *seterr = NULL; /* Holds last error if there was one */
46653fab9eSSascha Wildner extern int enterhist;
477d8fb588SMatthias Schmidt
487d8fb588SMatthias Schmidt #define ERR_FLAGS 0xf0000000
497d8fb588SMatthias Schmidt #define ERR_NAME 0x10000000
507d8fb588SMatthias Schmidt #define ERR_SILENT 0x20000000
517d8fb588SMatthias Schmidt #define ERR_OLD 0x40000000
5294afa86dSJohn Marino #define ERR_INTERRUPT 0x80000000
537d8fb588SMatthias Schmidt
547d8fb588SMatthias Schmidt #define ERR_SYNTAX 0
557d8fb588SMatthias Schmidt #define ERR_NOTALLOWED 1
567d8fb588SMatthias Schmidt #define ERR_WTOOLONG 2
577d8fb588SMatthias Schmidt #define ERR_LTOOLONG 3
587d8fb588SMatthias Schmidt #define ERR_DOLZERO 4
597d8fb588SMatthias Schmidt #define ERR_INCBR 5
607d8fb588SMatthias Schmidt #define ERR_EXPORD 6
617d8fb588SMatthias Schmidt #define ERR_BADMOD 7
627d8fb588SMatthias Schmidt #define ERR_SUBSCRIPT 8
637d8fb588SMatthias Schmidt #define ERR_BADNUM 9
647d8fb588SMatthias Schmidt #define ERR_NOMORE 10
657d8fb588SMatthias Schmidt #define ERR_FILENAME 11
667d8fb588SMatthias Schmidt #define ERR_GLOB 12
677d8fb588SMatthias Schmidt #define ERR_COMMAND 13
687d8fb588SMatthias Schmidt #define ERR_TOOFEW 14
697d8fb588SMatthias Schmidt #define ERR_TOOMANY 15
707d8fb588SMatthias Schmidt #define ERR_DANGER 16
717d8fb588SMatthias Schmidt #define ERR_EMPTYIF 17
727d8fb588SMatthias Schmidt #define ERR_IMPRTHEN 18
737d8fb588SMatthias Schmidt #define ERR_NOPAREN 19
747d8fb588SMatthias Schmidt #define ERR_NOTFOUND 20
757d8fb588SMatthias Schmidt #define ERR_MASK 21
767d8fb588SMatthias Schmidt #define ERR_LIMIT 22
777d8fb588SMatthias Schmidt #define ERR_TOOLARGE 23
787d8fb588SMatthias Schmidt #define ERR_SCALEF 24
797d8fb588SMatthias Schmidt #define ERR_UNDVAR 25
807d8fb588SMatthias Schmidt #define ERR_DEEP 26
817d8fb588SMatthias Schmidt #define ERR_BADSIG 27
827d8fb588SMatthias Schmidt #define ERR_UNKSIG 28
837d8fb588SMatthias Schmidt #define ERR_VARBEGIN 29
847d8fb588SMatthias Schmidt #define ERR_VARTOOLONG 30
857d8fb588SMatthias Schmidt #define ERR_VARALNUM 31
867d8fb588SMatthias Schmidt #define ERR_JOBCONTROL 32
877d8fb588SMatthias Schmidt #define ERR_EXPRESSION 33
887d8fb588SMatthias Schmidt #define ERR_NOHOMEDIR 34
897d8fb588SMatthias Schmidt #define ERR_CANTCHANGE 35
907d8fb588SMatthias Schmidt #define ERR_NULLCOM 36
917d8fb588SMatthias Schmidt #define ERR_ASSIGN 37
927d8fb588SMatthias Schmidt #define ERR_UNKNOWNOP 38
937d8fb588SMatthias Schmidt #define ERR_AMBIG 39
947d8fb588SMatthias Schmidt #define ERR_EXISTS 40
957d8fb588SMatthias Schmidt #define ERR_ARGC 41
967d8fb588SMatthias Schmidt #define ERR_INTR 42
977d8fb588SMatthias Schmidt #define ERR_RANGE 43
987d8fb588SMatthias Schmidt #define ERR_OVERFLOW 44
997d8fb588SMatthias Schmidt #define ERR_NOSUCHJOB 45
1007d8fb588SMatthias Schmidt #define ERR_TERMINAL 46
1017d8fb588SMatthias Schmidt #define ERR_NOTWHILE 47
1027d8fb588SMatthias Schmidt #define ERR_NOPROC 48
1037d8fb588SMatthias Schmidt #define ERR_NOMATCH 49
1047d8fb588SMatthias Schmidt #define ERR_MISSING 50
1057d8fb588SMatthias Schmidt #define ERR_UNMATCHED 51
1067d8fb588SMatthias Schmidt #define ERR_NOMEM 52
1077d8fb588SMatthias Schmidt #define ERR_PIPE 53
1087d8fb588SMatthias Schmidt #define ERR_SYSTEM 54
1097d8fb588SMatthias Schmidt #define ERR_STRING 55
1107d8fb588SMatthias Schmidt #define ERR_JOBS 56
1117d8fb588SMatthias Schmidt #define ERR_JOBARGS 57
1127d8fb588SMatthias Schmidt #define ERR_JOBCUR 58
1137d8fb588SMatthias Schmidt #define ERR_JOBPREV 59
1147d8fb588SMatthias Schmidt #define ERR_JOBPAT 60
1157d8fb588SMatthias Schmidt #define ERR_NESTING 61
1167d8fb588SMatthias Schmidt #define ERR_JOBCTRLSUB 62
1177d8fb588SMatthias Schmidt #define ERR_SYNC 63
1187d8fb588SMatthias Schmidt #define ERR_STOPPED 64
1197d8fb588SMatthias Schmidt #define ERR_NODIR 65
1207d8fb588SMatthias Schmidt #define ERR_EMPTY 66
1217d8fb588SMatthias Schmidt #define ERR_BADDIR 67
1227d8fb588SMatthias Schmidt #define ERR_DIRUS 68
1237d8fb588SMatthias Schmidt #define ERR_HFLAG 69
1247d8fb588SMatthias Schmidt #define ERR_NOTLOGIN 70
1257d8fb588SMatthias Schmidt #define ERR_DIV0 71
1267d8fb588SMatthias Schmidt #define ERR_MOD0 72
1277d8fb588SMatthias Schmidt #define ERR_BADSCALE 73
1287d8fb588SMatthias Schmidt #define ERR_SUSPLOG 74
1297d8fb588SMatthias Schmidt #define ERR_UNKUSER 75
1307d8fb588SMatthias Schmidt #define ERR_NOHOME 76
1317d8fb588SMatthias Schmidt #define ERR_HISTUS 77
1327d8fb588SMatthias Schmidt #define ERR_SPDOLLT 78
1337d8fb588SMatthias Schmidt #define ERR_NEWLINE 79
1347d8fb588SMatthias Schmidt #define ERR_SPSTAR 80
1357d8fb588SMatthias Schmidt #define ERR_DIGIT 81
1367d8fb588SMatthias Schmidt #define ERR_VARILL 82
1377d8fb588SMatthias Schmidt #define ERR_NLINDEX 83
1387d8fb588SMatthias Schmidt #define ERR_EXPOVFL 84
1397d8fb588SMatthias Schmidt #define ERR_VARSYN 85
1407d8fb588SMatthias Schmidt #define ERR_BADBANG 86
1417d8fb588SMatthias Schmidt #define ERR_NOSUBST 87
1427d8fb588SMatthias Schmidt #define ERR_BADSUBST 88
1437d8fb588SMatthias Schmidt #define ERR_LHS 89
1447d8fb588SMatthias Schmidt #define ERR_RHSLONG 90
1457d8fb588SMatthias Schmidt #define ERR_BADBANGMOD 91
1467d8fb588SMatthias Schmidt #define ERR_MODFAIL 92
1477d8fb588SMatthias Schmidt #define ERR_SUBOVFL 93
1487d8fb588SMatthias Schmidt #define ERR_BADBANGARG 94
1497d8fb588SMatthias Schmidt #define ERR_NOSEARCH 95
1507d8fb588SMatthias Schmidt #define ERR_NOEVENT 96
1517d8fb588SMatthias Schmidt #define ERR_TOOMANYRP 97
1527d8fb588SMatthias Schmidt #define ERR_TOOMANYLP 98
1537d8fb588SMatthias Schmidt #define ERR_BADPLP 99
1547d8fb588SMatthias Schmidt #define ERR_MISRED 100
1557d8fb588SMatthias Schmidt #define ERR_OUTRED 101
1567d8fb588SMatthias Schmidt #define ERR_REDPAR 102
1577d8fb588SMatthias Schmidt #define ERR_INRED 103
1587d8fb588SMatthias Schmidt #define ERR_BADPLPS 104
1597d8fb588SMatthias Schmidt #define ERR_ALIASLOOP 105
1607d8fb588SMatthias Schmidt #define ERR_NOWATCH 106
1617d8fb588SMatthias Schmidt #define ERR_NOSCHED 107
1627d8fb588SMatthias Schmidt #define ERR_SCHEDUSAGE 108
1637d8fb588SMatthias Schmidt #define ERR_SCHEDEV 109
1647d8fb588SMatthias Schmidt #define ERR_SCHEDCOM 110
1657d8fb588SMatthias Schmidt #define ERR_SCHEDTIME 111
1667d8fb588SMatthias Schmidt #define ERR_SCHEDREL 112
1677d8fb588SMatthias Schmidt #define ERR_TCNOSTR 113
1687d8fb588SMatthias Schmidt #define ERR_SETTCUS 114
1697d8fb588SMatthias Schmidt #define ERR_TCCAP 115
1707d8fb588SMatthias Schmidt #define ERR_TCPARM 116
1717d8fb588SMatthias Schmidt #define ERR_TCARGS 117
1727d8fb588SMatthias Schmidt #define ERR_TCNARGS 118
1737d8fb588SMatthias Schmidt #define ERR_TCUSAGE 119
1747d8fb588SMatthias Schmidt #define ERR_ARCH 120
1757d8fb588SMatthias Schmidt #define ERR_HISTLOOP 121
1767d8fb588SMatthias Schmidt #define ERR_FILEINQ 122
1777d8fb588SMatthias Schmidt #define ERR_SELOVFL 123
1787d8fb588SMatthias Schmidt #define ERR_TCSHUSAGE 124
1797d8fb588SMatthias Schmidt #define ERR_COMPCOM 125
1807d8fb588SMatthias Schmidt #define ERR_COMPINV 126
1817d8fb588SMatthias Schmidt #define ERR_COMPMIS 127
1827d8fb588SMatthias Schmidt #define ERR_COMPINC 128
1837d8fb588SMatthias Schmidt #define ERR_MFLAG 129
1847d8fb588SMatthias Schmidt #define ERR_ULIMUS 130
1857d8fb588SMatthias Schmidt #define ERR_READONLY 131
1867d8fb588SMatthias Schmidt #define ERR_BADJOB 132
1877d8fb588SMatthias Schmidt #define ERR_INVALID 133
1887d8fb588SMatthias Schmidt #define ERR_BADCOLORVAR 134
18994afa86dSJohn Marino #define ERR_EOF 135
19094afa86dSJohn Marino #define NO_ERRORS 136
1917d8fb588SMatthias Schmidt
1927d8fb588SMatthias Schmidt static const char *elst[NO_ERRORS] INIT_ZERO_STRUCT;
1937d8fb588SMatthias Schmidt
1947d8fb588SMatthias Schmidt /*
1957d8fb588SMatthias Schmidt * Init the elst depending on the locale
1967d8fb588SMatthias Schmidt */
1977d8fb588SMatthias Schmidt void
errinit(void)1987d8fb588SMatthias Schmidt errinit(void)
1997d8fb588SMatthias Schmidt {
2007d8fb588SMatthias Schmidt #ifdef NLS_CATALOGS
2017d8fb588SMatthias Schmidt size_t i;
2027d8fb588SMatthias Schmidt
2037d8fb588SMatthias Schmidt for (i = 0; i < NO_ERRORS; i++)
2047d8fb588SMatthias Schmidt xfree((char *)(intptr_t)elst[i]);
20557e3f2b5SSimon 'corecode' Schubert # if defined(__DragonFly__) || defined(hpux) || defined(__MidnightBSD__)
2067d8fb588SMatthias Schmidt # define NLS_MAXSET 30
2077d8fb588SMatthias Schmidt for (i = 1; i <= NLS_MAXSET; i++)
2087d8fb588SMatthias Schmidt CGETS(i, 1, "" );
2097d8fb588SMatthias Schmidt # endif
2107d8fb588SMatthias Schmidt #endif
2117d8fb588SMatthias Schmidt
2127d8fb588SMatthias Schmidt elst[ERR_SYNTAX] = CSAVS(1, 1, "Syntax Error");
2137d8fb588SMatthias Schmidt elst[ERR_NOTALLOWED] = CSAVS(1, 2, "%s is not allowed");
2147d8fb588SMatthias Schmidt elst[ERR_WTOOLONG] = CSAVS(1, 3, "Word too long");
2157d8fb588SMatthias Schmidt elst[ERR_LTOOLONG] = CSAVS(1, 4, "$< line too long");
2167d8fb588SMatthias Schmidt elst[ERR_DOLZERO] = CSAVS(1, 5, "No file for $0");
2177d8fb588SMatthias Schmidt elst[ERR_INCBR] = CSAVS(1, 6, "Incomplete [] modifier");
2187d8fb588SMatthias Schmidt elst[ERR_EXPORD] = CSAVS(1, 7, "$ expansion must end before ]");
219653fab9eSSascha Wildner elst[ERR_BADMOD] = CSAVS(1, 8, "Bad : modifier in $ '%c'");
2207d8fb588SMatthias Schmidt elst[ERR_SUBSCRIPT] = CSAVS(1, 9, "Subscript error");
2217d8fb588SMatthias Schmidt elst[ERR_BADNUM] = CSAVS(1, 10, "Badly formed number");
2227d8fb588SMatthias Schmidt elst[ERR_NOMORE] = CSAVS(1, 11, "No more words");
2237d8fb588SMatthias Schmidt elst[ERR_FILENAME] = CSAVS(1, 12, "Missing file name");
2247d8fb588SMatthias Schmidt elst[ERR_GLOB] = CSAVS(1, 13, "Internal glob error");
2257d8fb588SMatthias Schmidt elst[ERR_COMMAND] = CSAVS(1, 14, "Command not found");
2267d8fb588SMatthias Schmidt elst[ERR_TOOFEW] = CSAVS(1, 15, "Too few arguments");
2277d8fb588SMatthias Schmidt elst[ERR_TOOMANY] = CSAVS(1, 16, "Too many arguments");
2287d8fb588SMatthias Schmidt elst[ERR_DANGER] = CSAVS(1, 17, "Too dangerous to alias that");
2297d8fb588SMatthias Schmidt elst[ERR_EMPTYIF] = CSAVS(1, 18, "Empty if");
2307d8fb588SMatthias Schmidt elst[ERR_IMPRTHEN] = CSAVS(1, 19, "Improper then");
2317d8fb588SMatthias Schmidt elst[ERR_NOPAREN] = CSAVS(1, 20, "Words not parenthesized");
2327d8fb588SMatthias Schmidt elst[ERR_NOTFOUND] = CSAVS(1, 21, "%s not found");
2337d8fb588SMatthias Schmidt elst[ERR_MASK] = CSAVS(1, 22, "Improper mask");
2347d8fb588SMatthias Schmidt elst[ERR_LIMIT] = CSAVS(1, 23, "No such limit");
2357d8fb588SMatthias Schmidt elst[ERR_TOOLARGE] = CSAVS(1, 24, "Argument too large");
2367d8fb588SMatthias Schmidt elst[ERR_SCALEF] = CSAVS(1, 25, "Improper or unknown scale factor");
2377d8fb588SMatthias Schmidt elst[ERR_UNDVAR] = CSAVS(1, 26, "Undefined variable");
2387d8fb588SMatthias Schmidt elst[ERR_DEEP] = CSAVS(1, 27, "Directory stack not that deep");
2397d8fb588SMatthias Schmidt elst[ERR_BADSIG] = CSAVS(1, 28, "Bad signal number");
2407d8fb588SMatthias Schmidt elst[ERR_UNKSIG] = CSAVS(1, 29, "Unknown signal; kill -l lists signals");
2417d8fb588SMatthias Schmidt elst[ERR_VARBEGIN] = CSAVS(1, 30, "Variable name must begin with a letter");
2427d8fb588SMatthias Schmidt elst[ERR_VARTOOLONG] = CSAVS(1, 31, "Variable name too long");
2437d8fb588SMatthias Schmidt elst[ERR_VARALNUM] = CSAVS(1, 32,
2447d8fb588SMatthias Schmidt "Variable name must contain alphanumeric characters");
2457d8fb588SMatthias Schmidt elst[ERR_JOBCONTROL] = CSAVS(1, 33, "No job control in this shell");
2467d8fb588SMatthias Schmidt elst[ERR_EXPRESSION] = CSAVS(1, 34, "Expression Syntax");
2477d8fb588SMatthias Schmidt elst[ERR_NOHOMEDIR] = CSAVS(1, 35, "No home directory");
2487d8fb588SMatthias Schmidt elst[ERR_CANTCHANGE] = CSAVS(1, 36, "Can't change to home directory");
2497d8fb588SMatthias Schmidt elst[ERR_NULLCOM] = CSAVS(1, 37, "Invalid null command");
2507d8fb588SMatthias Schmidt elst[ERR_ASSIGN] = CSAVS(1, 38, "Assignment missing expression");
2517d8fb588SMatthias Schmidt elst[ERR_UNKNOWNOP] = CSAVS(1, 39, "Unknown operator");
2527d8fb588SMatthias Schmidt elst[ERR_AMBIG] = CSAVS(1, 40, "Ambiguous");
2537d8fb588SMatthias Schmidt elst[ERR_EXISTS] = CSAVS(1, 41, "%s: File exists");
2547d8fb588SMatthias Schmidt elst[ERR_ARGC] = CSAVS(1, 42, "Argument for -c ends in backslash");
2557d8fb588SMatthias Schmidt elst[ERR_INTR] = CSAVS(1, 43, "Interrupted");
2567d8fb588SMatthias Schmidt elst[ERR_RANGE] = CSAVS(1, 44, "Subscript out of range");
2577d8fb588SMatthias Schmidt elst[ERR_OVERFLOW] = CSAVS(1, 45, "Line overflow");
2587d8fb588SMatthias Schmidt elst[ERR_NOSUCHJOB] = CSAVS(1, 46, "No such job");
2597d8fb588SMatthias Schmidt elst[ERR_TERMINAL] = CSAVS(1, 47, "Can't from terminal");
2607d8fb588SMatthias Schmidt elst[ERR_NOTWHILE] = CSAVS(1, 48, "Not in while/foreach");
2617d8fb588SMatthias Schmidt elst[ERR_NOPROC] = CSAVS(1, 49, "No more processes");
2627d8fb588SMatthias Schmidt elst[ERR_NOMATCH] = CSAVS(1, 50, "No match");
263653fab9eSSascha Wildner elst[ERR_MISSING] = CSAVS(1, 51, "Missing '%c'");
264653fab9eSSascha Wildner elst[ERR_UNMATCHED] = CSAVS(1, 52, "Unmatched '%c'");
2657d8fb588SMatthias Schmidt elst[ERR_NOMEM] = CSAVS(1, 53, "Out of memory");
2667d8fb588SMatthias Schmidt elst[ERR_PIPE] = CSAVS(1, 54, "Can't make pipe");
2677d8fb588SMatthias Schmidt elst[ERR_SYSTEM] = CSAVS(1, 55, "%s: %s");
2687d8fb588SMatthias Schmidt elst[ERR_STRING] = CSAVS(1, 56, "%s");
269*d6ab524cSAntonio Huete Jimenez elst[ERR_JOBS] = CSAVS(1, 57, "Usage: jobs [ -lZ ]");
2707d8fb588SMatthias Schmidt elst[ERR_JOBARGS] = CSAVS(1, 58, "Arguments should be jobs or process id's");
2717d8fb588SMatthias Schmidt elst[ERR_JOBCUR] = CSAVS(1, 59, "No current job");
2727d8fb588SMatthias Schmidt elst[ERR_JOBPREV] = CSAVS(1, 60, "No previous job");
2737d8fb588SMatthias Schmidt elst[ERR_JOBPAT] = CSAVS(1, 61, "No job matches pattern");
2747d8fb588SMatthias Schmidt elst[ERR_NESTING] = CSAVS(1, 62, "Fork nesting > %d; maybe `...` loop");
2757d8fb588SMatthias Schmidt elst[ERR_JOBCTRLSUB] = CSAVS(1, 63, "No job control in subshells");
2767d8fb588SMatthias Schmidt elst[ERR_SYNC] = CSAVS(1, 64, "Sync fault: Process %d not found");
2777d8fb588SMatthias Schmidt elst[ERR_STOPPED] =
2787d8fb588SMatthias Schmidt #ifdef SUSPENDED
2797d8fb588SMatthias Schmidt CSAVS(1, 65, "%sThere are suspended jobs");
2807d8fb588SMatthias Schmidt #else
2817d8fb588SMatthias Schmidt CSAVS(1, 66, "%sThere are stopped jobs");
2827d8fb588SMatthias Schmidt #endif /* SUSPENDED */
2837d8fb588SMatthias Schmidt elst[ERR_NODIR] = CSAVS(1, 67, "No other directory");
2847d8fb588SMatthias Schmidt elst[ERR_EMPTY] = CSAVS(1, 68, "Directory stack empty");
2857d8fb588SMatthias Schmidt elst[ERR_BADDIR] = CSAVS(1, 69, "Bad directory");
2867d8fb588SMatthias Schmidt elst[ERR_DIRUS] = CSAVS(1, 70, "Usage: %s [-%s]%s");
2877d8fb588SMatthias Schmidt elst[ERR_HFLAG] = CSAVS(1, 71, "No operand for -h flag");
2887d8fb588SMatthias Schmidt elst[ERR_NOTLOGIN] = CSAVS(1, 72, "Not a login shell");
2897d8fb588SMatthias Schmidt elst[ERR_DIV0] = CSAVS(1, 73, "Division by 0");
2907d8fb588SMatthias Schmidt elst[ERR_MOD0] = CSAVS(1, 74, "Mod by 0");
2917d8fb588SMatthias Schmidt elst[ERR_BADSCALE] = CSAVS(1, 75, "Bad scaling; did you mean \"%s\"?");
2927d8fb588SMatthias Schmidt elst[ERR_SUSPLOG] = CSAVS(1, 76, "Can't suspend a login shell (yet)");
2937d8fb588SMatthias Schmidt elst[ERR_UNKUSER] = CSAVS(1, 77, "Unknown user: %s");
2947d8fb588SMatthias Schmidt elst[ERR_NOHOME] = CSAVS(1, 78, "No $home variable set");
2957d8fb588SMatthias Schmidt elst[ERR_HISTUS] = CSAVS(1, 79,
2967d8fb588SMatthias Schmidt "Usage: history [-%s] [# number of events]");
2977d8fb588SMatthias Schmidt elst[ERR_SPDOLLT] = CSAVS(1, 80, "$, ! or < not allowed with $# or $?");
2987d8fb588SMatthias Schmidt elst[ERR_NEWLINE] = CSAVS(1, 81, "Newline in variable name");
2997d8fb588SMatthias Schmidt elst[ERR_SPSTAR] = CSAVS(1, 82, "* not allowed with $# or $?");
3007d8fb588SMatthias Schmidt elst[ERR_DIGIT] = CSAVS(1, 83, "$?<digit> or $#<digit> not allowed");
3017d8fb588SMatthias Schmidt elst[ERR_VARILL] = CSAVS(1, 84, "Illegal variable name");
3027d8fb588SMatthias Schmidt elst[ERR_NLINDEX] = CSAVS(1, 85, "Newline in variable index");
3037d8fb588SMatthias Schmidt elst[ERR_EXPOVFL] = CSAVS(1, 86, "Expansion buffer overflow");
3047d8fb588SMatthias Schmidt elst[ERR_VARSYN] = CSAVS(1, 87, "Variable syntax");
3057d8fb588SMatthias Schmidt elst[ERR_BADBANG] = CSAVS(1, 88, "Bad ! form");
3067d8fb588SMatthias Schmidt elst[ERR_NOSUBST] = CSAVS(1, 89, "No previous substitute");
3077d8fb588SMatthias Schmidt elst[ERR_BADSUBST] = CSAVS(1, 90, "Bad substitute");
3087d8fb588SMatthias Schmidt elst[ERR_LHS] = CSAVS(1, 91, "No previous left hand side");
3097d8fb588SMatthias Schmidt elst[ERR_RHSLONG] = CSAVS(1, 92, "Right hand side too long");
310653fab9eSSascha Wildner elst[ERR_BADBANGMOD] = CSAVS(1, 93, "Bad ! modifier: '%c'");
3117d8fb588SMatthias Schmidt elst[ERR_MODFAIL] = CSAVS(1, 94, "Modifier failed");
3127d8fb588SMatthias Schmidt elst[ERR_SUBOVFL] = CSAVS(1, 95, "Substitution buffer overflow");
3137d8fb588SMatthias Schmidt elst[ERR_BADBANGARG] = CSAVS(1, 96, "Bad ! arg selector");
3147d8fb588SMatthias Schmidt elst[ERR_NOSEARCH] = CSAVS(1, 97, "No prev search");
3157d8fb588SMatthias Schmidt elst[ERR_NOEVENT] = CSAVS(1, 98, "%s: Event not found");
3167d8fb588SMatthias Schmidt elst[ERR_TOOMANYRP] = CSAVS(1, 99, "Too many )'s");
3177d8fb588SMatthias Schmidt elst[ERR_TOOMANYLP] = CSAVS(1, 100, "Too many ('s");
3187d8fb588SMatthias Schmidt elst[ERR_BADPLP] = CSAVS(1, 101, "Badly placed (");
3197d8fb588SMatthias Schmidt elst[ERR_MISRED] = CSAVS(1, 102, "Missing name for redirect");
3207d8fb588SMatthias Schmidt elst[ERR_OUTRED] = CSAVS(1, 103, "Ambiguous output redirect");
3217d8fb588SMatthias Schmidt elst[ERR_REDPAR] = CSAVS(1, 104, "Can't << within ()'s");
3227d8fb588SMatthias Schmidt elst[ERR_INRED] = CSAVS(1, 105, "Ambiguous input redirect");
3237d8fb588SMatthias Schmidt elst[ERR_BADPLPS] = CSAVS(1, 106, "Badly placed ()'s");
3247d8fb588SMatthias Schmidt elst[ERR_ALIASLOOP] = CSAVS(1, 107, "Alias loop");
3257d8fb588SMatthias Schmidt elst[ERR_NOWATCH] = CSAVS(1, 108, "No $watch variable set");
3267d8fb588SMatthias Schmidt elst[ERR_NOSCHED] = CSAVS(1, 109, "No scheduled events");
3277d8fb588SMatthias Schmidt elst[ERR_SCHEDUSAGE] = CSAVS(1, 110,
3287d8fb588SMatthias Schmidt "Usage: sched -<item#>.\nUsage: sched [+]hh:mm <command>");
3297d8fb588SMatthias Schmidt elst[ERR_SCHEDEV] = CSAVS(1, 111, "Not that many scheduled events");
3307d8fb588SMatthias Schmidt elst[ERR_SCHEDCOM] = CSAVS(1, 112, "No command to run");
3317d8fb588SMatthias Schmidt elst[ERR_SCHEDTIME] = CSAVS(1, 113, "Invalid time for event");
3327d8fb588SMatthias Schmidt elst[ERR_SCHEDREL] = CSAVS(1, 114, "Relative time inconsistent with am/pm");
3337d8fb588SMatthias Schmidt elst[ERR_TCNOSTR] = CSAVS(1, 115, "Out of termcap string space");
3347d8fb588SMatthias Schmidt elst[ERR_SETTCUS] = CSAVS(1, 116, "Usage: settc %s [yes|no]");
3357d8fb588SMatthias Schmidt elst[ERR_TCCAP] = CSAVS(1, 117, "Unknown capability `%s'");
336653fab9eSSascha Wildner elst[ERR_TCPARM] = CSAVS(1, 118, "Unknown termcap parameter '%%%c'");
3377d8fb588SMatthias Schmidt elst[ERR_TCARGS] = CSAVS(1, 119, "Too many arguments for `%s' (%d)");
3387d8fb588SMatthias Schmidt elst[ERR_TCNARGS] = CSAVS(1, 120, "`%s' requires %d arguments");
3397d8fb588SMatthias Schmidt elst[ERR_TCUSAGE] = CSAVS(1, 121,
3407d8fb588SMatthias Schmidt "Usage: echotc [-v|-s] [<capability> [<args>]]");
3417d8fb588SMatthias Schmidt elst[ERR_ARCH] = CSAVS(1, 122, "%s: %s. Binary file not executable");
3427d8fb588SMatthias Schmidt elst[ERR_HISTLOOP] = CSAVS(1, 123, "!# History loop");
3437d8fb588SMatthias Schmidt elst[ERR_FILEINQ] = CSAVS(1, 124, "Malformed file inquiry");
3447d8fb588SMatthias Schmidt elst[ERR_SELOVFL] = CSAVS(1, 125, "Selector overflow");
3457d8fb588SMatthias Schmidt #ifdef apollo
3467d8fb588SMatthias Schmidt elst[ERR_TCSHUSAGE] = CSAVS(1, 126,
3477d8fb588SMatthias Schmidt "Unknown option: `-%s'\nUsage: %s [ -bcdefilmnqstvVxX -Dname[=value] ] [ argument ... ]");
3487d8fb588SMatthias Schmidt #else /* !apollo */
3497d8fb588SMatthias Schmidt # ifdef convex
3507d8fb588SMatthias Schmidt elst[ERR_TCSHUSAGE] = CSAVS(1, 127,
3517d8fb588SMatthias Schmidt "Unknown option: `-%s'\nUsage: %s [ -bcdefFilmnqstvVxX ] [ argument ... ]");
3527d8fb588SMatthias Schmidt # else /* rest */
3537d8fb588SMatthias Schmidt elst[ERR_TCSHUSAGE] = CSAVS(1, 128,
3547d8fb588SMatthias Schmidt "Unknown option: `-%s'\nUsage: %s [ -bcdefilmnqstvVxX ] [ argument ... ]");
3557d8fb588SMatthias Schmidt # endif /* convex */
3567d8fb588SMatthias Schmidt #endif /* apollo */
3577d8fb588SMatthias Schmidt elst[ERR_COMPCOM] = CSAVS(1, 129, "\nInvalid completion: \"%s\"");
3587d8fb588SMatthias Schmidt elst[ERR_COMPINV] = CSAVS(1, 130, "\nInvalid %s: '%c'");
3597d8fb588SMatthias Schmidt elst[ERR_COMPMIS] = CSAVS(1, 131,
3607d8fb588SMatthias Schmidt "\nMissing separator '%c' after %s \"%s\"");
3617d8fb588SMatthias Schmidt elst[ERR_COMPINC] = CSAVS(1, 132, "\nIncomplete %s: \"%s\"");
3627d8fb588SMatthias Schmidt elst[ERR_MFLAG] = CSAVS(1, 133, "No operand for -m flag");
3637d8fb588SMatthias Schmidt elst[ERR_ULIMUS] = CSAVS(1, 134, "Usage: unlimit [-fh] [limits]");
3647d8fb588SMatthias Schmidt elst[ERR_READONLY] = CSAVS(1, 135, "$%S is read-only");
3657d8fb588SMatthias Schmidt elst[ERR_BADJOB] = CSAVS(1, 136, "No such job (badjob)");
366653fab9eSSascha Wildner elst[ERR_BADCOLORVAR] = CSAVS(1, 137, "Unknown colorls variable '%c%c'");
36794afa86dSJohn Marino elst[ERR_EOF] = CSAVS(1, 138, "Unexpected end of file");
3687d8fb588SMatthias Schmidt }
3697d8fb588SMatthias Schmidt
3707d8fb588SMatthias Schmidt /* Cleanup data. */
3717d8fb588SMatthias Schmidt struct cleanup_entry
3727d8fb588SMatthias Schmidt {
3737d8fb588SMatthias Schmidt void *var;
3747d8fb588SMatthias Schmidt void (*fn) (void *);
3757d8fb588SMatthias Schmidt #ifdef CLEANUP_DEBUG
3767d8fb588SMatthias Schmidt const char *file;
3777d8fb588SMatthias Schmidt size_t line;
3787d8fb588SMatthias Schmidt #endif
3797d8fb588SMatthias Schmidt };
3807d8fb588SMatthias Schmidt
38160962bbcSJohn Marino static struct cleanup_entry *cleanup_stack INIT_ZERO; /* = NULL; */
38260962bbcSJohn Marino static size_t cleanup_sp INIT_ZERO; /* = 0; Next free entry */
38360962bbcSJohn Marino static size_t cleanup_mark INIT_ZERO; /* = 0; Last entry to handle before unwinding */
38460962bbcSJohn Marino static size_t cleanup_stack_size INIT_ZERO; /* = 0 */
3857d8fb588SMatthias Schmidt
3867d8fb588SMatthias Schmidt /* fn() will be run with all signals blocked, so it should not do anything
3877d8fb588SMatthias Schmidt risky. */
3887d8fb588SMatthias Schmidt void
cleanup_push_internal(void * var,void (* fn)(void *),const char * file,size_t line)3897d8fb588SMatthias Schmidt cleanup_push_internal(void *var, void (*fn) (void *)
3907d8fb588SMatthias Schmidt #ifdef CLEANUP_DEBUG
3917d8fb588SMatthias Schmidt , const char *file, size_t line
3927d8fb588SMatthias Schmidt #endif
3937d8fb588SMatthias Schmidt )
3947d8fb588SMatthias Schmidt {
3957d8fb588SMatthias Schmidt struct cleanup_entry *ce;
3967d8fb588SMatthias Schmidt
3977d8fb588SMatthias Schmidt if (cleanup_sp == cleanup_stack_size) {
3987d8fb588SMatthias Schmidt if (cleanup_stack_size == 0)
3997d8fb588SMatthias Schmidt cleanup_stack_size = 64; /* Arbitrary */
4007d8fb588SMatthias Schmidt else
4017d8fb588SMatthias Schmidt cleanup_stack_size *= 2;
4027d8fb588SMatthias Schmidt cleanup_stack = xrealloc(cleanup_stack,
4037d8fb588SMatthias Schmidt cleanup_stack_size * sizeof (*cleanup_stack));
4047d8fb588SMatthias Schmidt }
4057d8fb588SMatthias Schmidt ce = cleanup_stack + cleanup_sp;
4067d8fb588SMatthias Schmidt ce->var = var;
4077d8fb588SMatthias Schmidt ce->fn = fn;
4087d8fb588SMatthias Schmidt #ifdef CLEANUP_DEBUG
4097d8fb588SMatthias Schmidt ce->file = file;
4107d8fb588SMatthias Schmidt ce->line = line;
4117d8fb588SMatthias Schmidt #endif
4127d8fb588SMatthias Schmidt cleanup_sp++;
4137d8fb588SMatthias Schmidt }
4147d8fb588SMatthias Schmidt
4157d8fb588SMatthias Schmidt static void
cleanup_ignore_fn(void * dummy)4167d8fb588SMatthias Schmidt cleanup_ignore_fn(void *dummy)
4177d8fb588SMatthias Schmidt {
4187d8fb588SMatthias Schmidt USE(dummy);
4197d8fb588SMatthias Schmidt }
4207d8fb588SMatthias Schmidt
4217d8fb588SMatthias Schmidt void
cleanup_ignore(void * var)4227d8fb588SMatthias Schmidt cleanup_ignore(void *var)
4237d8fb588SMatthias Schmidt {
4247d8fb588SMatthias Schmidt struct cleanup_entry *ce;
4257d8fb588SMatthias Schmidt
4267d8fb588SMatthias Schmidt ce = cleanup_stack + cleanup_sp;
4277d8fb588SMatthias Schmidt while (ce != cleanup_stack) {
4287d8fb588SMatthias Schmidt ce--;
4297d8fb588SMatthias Schmidt if (ce->var == var) {
4307d8fb588SMatthias Schmidt ce->fn = cleanup_ignore_fn;
4317d8fb588SMatthias Schmidt return;
4327d8fb588SMatthias Schmidt }
4337d8fb588SMatthias Schmidt }
4347d8fb588SMatthias Schmidt abort();
4357d8fb588SMatthias Schmidt }
4367d8fb588SMatthias Schmidt
4377d8fb588SMatthias Schmidt void
cleanup_until(void * last_var)4387d8fb588SMatthias Schmidt cleanup_until(void *last_var)
4397d8fb588SMatthias Schmidt {
4407d8fb588SMatthias Schmidt while (cleanup_sp != 0) {
4417d8fb588SMatthias Schmidt struct cleanup_entry ce;
4427d8fb588SMatthias Schmidt
4437d8fb588SMatthias Schmidt cleanup_sp--;
4447d8fb588SMatthias Schmidt ce = cleanup_stack[cleanup_sp];
4457d8fb588SMatthias Schmidt ce.fn(ce.var);
4467d8fb588SMatthias Schmidt if (ce.var == last_var)
4477d8fb588SMatthias Schmidt return;
4487d8fb588SMatthias Schmidt }
4497d8fb588SMatthias Schmidt abort();
4507d8fb588SMatthias Schmidt }
4517d8fb588SMatthias Schmidt
45294afa86dSJohn Marino int
cleanup_reset(void)45394afa86dSJohn Marino cleanup_reset(void)
45494afa86dSJohn Marino {
45594afa86dSJohn Marino return cleanup_sp > cleanup_mark;
45694afa86dSJohn Marino }
45794afa86dSJohn Marino
4587d8fb588SMatthias Schmidt void
cleanup_until_mark(void)4597d8fb588SMatthias Schmidt cleanup_until_mark(void)
4607d8fb588SMatthias Schmidt {
4617d8fb588SMatthias Schmidt while (cleanup_sp > cleanup_mark) {
4627d8fb588SMatthias Schmidt struct cleanup_entry ce;
4637d8fb588SMatthias Schmidt
4647d8fb588SMatthias Schmidt cleanup_sp--;
4657d8fb588SMatthias Schmidt ce = cleanup_stack[cleanup_sp];
4667d8fb588SMatthias Schmidt ce.fn(ce.var);
4677d8fb588SMatthias Schmidt }
4687d8fb588SMatthias Schmidt }
4697d8fb588SMatthias Schmidt
4707d8fb588SMatthias Schmidt size_t
cleanup_push_mark(void)4717d8fb588SMatthias Schmidt cleanup_push_mark(void)
4727d8fb588SMatthias Schmidt {
4737d8fb588SMatthias Schmidt size_t old_mark;
4747d8fb588SMatthias Schmidt
4757d8fb588SMatthias Schmidt old_mark = cleanup_mark;
4767d8fb588SMatthias Schmidt cleanup_mark = cleanup_sp;
4777d8fb588SMatthias Schmidt return old_mark;
4787d8fb588SMatthias Schmidt }
4797d8fb588SMatthias Schmidt
4807d8fb588SMatthias Schmidt void
cleanup_pop_mark(size_t mark)4817d8fb588SMatthias Schmidt cleanup_pop_mark(size_t mark)
4827d8fb588SMatthias Schmidt {
4837d8fb588SMatthias Schmidt assert (mark <= cleanup_sp);
4847d8fb588SMatthias Schmidt cleanup_mark = mark;
4857d8fb588SMatthias Schmidt }
4867d8fb588SMatthias Schmidt
4877d8fb588SMatthias Schmidt void
sigint_cleanup(void * xsa)4887d8fb588SMatthias Schmidt sigint_cleanup(void *xsa)
4897d8fb588SMatthias Schmidt {
4907d8fb588SMatthias Schmidt const struct sigaction *sa;
4917d8fb588SMatthias Schmidt
4927d8fb588SMatthias Schmidt sa = xsa;
4937d8fb588SMatthias Schmidt sigaction(SIGINT, sa, NULL);
4947d8fb588SMatthias Schmidt }
4957d8fb588SMatthias Schmidt
4967d8fb588SMatthias Schmidt void
sigprocmask_cleanup(void * xmask)4977d8fb588SMatthias Schmidt sigprocmask_cleanup(void *xmask)
4987d8fb588SMatthias Schmidt {
4997d8fb588SMatthias Schmidt sigset_t *mask;
5007d8fb588SMatthias Schmidt
5017d8fb588SMatthias Schmidt mask = xmask;
5027d8fb588SMatthias Schmidt sigprocmask(SIG_SETMASK, mask, NULL);
5037d8fb588SMatthias Schmidt }
5047d8fb588SMatthias Schmidt
5057d8fb588SMatthias Schmidt void
open_cleanup(void * xptr)5067d8fb588SMatthias Schmidt open_cleanup(void *xptr)
5077d8fb588SMatthias Schmidt {
5087d8fb588SMatthias Schmidt int *ptr;
5097d8fb588SMatthias Schmidt
5107d8fb588SMatthias Schmidt ptr = xptr;
5117d8fb588SMatthias Schmidt xclose(*ptr);
5127d8fb588SMatthias Schmidt }
5137d8fb588SMatthias Schmidt
5147d8fb588SMatthias Schmidt void
opendir_cleanup(void * xdir)5157d8fb588SMatthias Schmidt opendir_cleanup(void *xdir)
5167d8fb588SMatthias Schmidt {
5177d8fb588SMatthias Schmidt DIR *dir;
5187d8fb588SMatthias Schmidt
5197d8fb588SMatthias Schmidt dir = xdir;
5207d8fb588SMatthias Schmidt xclosedir(dir);
5217d8fb588SMatthias Schmidt }
5227d8fb588SMatthias Schmidt
5237d8fb588SMatthias Schmidt void
xfree_indirect(void * xptr)5247d8fb588SMatthias Schmidt xfree_indirect(void *xptr)
5257d8fb588SMatthias Schmidt {
5267d8fb588SMatthias Schmidt void **ptr; /* This is actually type punning :( */
5277d8fb588SMatthias Schmidt
5287d8fb588SMatthias Schmidt ptr = xptr;
5297d8fb588SMatthias Schmidt xfree(*ptr);
5307d8fb588SMatthias Schmidt }
5317d8fb588SMatthias Schmidt
5327d8fb588SMatthias Schmidt void
reset(void)5337d8fb588SMatthias Schmidt reset(void)
5347d8fb588SMatthias Schmidt {
5357d8fb588SMatthias Schmidt cleanup_until_mark();
5367d8fb588SMatthias Schmidt _reset();
53794afa86dSJohn Marino abort();
5387d8fb588SMatthias Schmidt }
5397d8fb588SMatthias Schmidt
5407d8fb588SMatthias Schmidt /*
5417d8fb588SMatthias Schmidt * The parser and scanner set up errors for later by calling seterr,
5427d8fb588SMatthias Schmidt * which sets the variable err as a side effect; later to be tested,
5437d8fb588SMatthias Schmidt * e.g. in process.
5447d8fb588SMatthias Schmidt */
5457d8fb588SMatthias Schmidt void
5467d8fb588SMatthias Schmidt /*VARARGS1*/
seterror(unsigned int id,...)5477d8fb588SMatthias Schmidt seterror(unsigned int id, ...)
5487d8fb588SMatthias Schmidt {
5497d8fb588SMatthias Schmidt if (seterr == 0) {
5507d8fb588SMatthias Schmidt va_list va;
5517d8fb588SMatthias Schmidt
5527d8fb588SMatthias Schmidt va_start(va, id);
5537d8fb588SMatthias Schmidt if (id >= sizeof(elst) / sizeof(elst[0]))
5547d8fb588SMatthias Schmidt id = ERR_INVALID;
5557d8fb588SMatthias Schmidt seterr = xvasprintf(elst[id], va);
5567d8fb588SMatthias Schmidt va_end(va);
5577d8fb588SMatthias Schmidt }
5587d8fb588SMatthias Schmidt }
5597d8fb588SMatthias Schmidt
5607d8fb588SMatthias Schmidt void
fixerror(void)56194afa86dSJohn Marino fixerror(void)
5627d8fb588SMatthias Schmidt {
5637d8fb588SMatthias Schmidt didfds = 0; /* Forget about 0,1,2 */
5647d8fb588SMatthias Schmidt /*
5657d8fb588SMatthias Schmidt * Go away if -e or we are a child shell
5667d8fb588SMatthias Schmidt */
5677d8fb588SMatthias Schmidt if (!exitset || exiterr || child)
5687d8fb588SMatthias Schmidt xexit(1);
5697d8fb588SMatthias Schmidt
5707d8fb588SMatthias Schmidt /*
5717d8fb588SMatthias Schmidt * Reset the state of the input. This buffered seek to end of file will
5727d8fb588SMatthias Schmidt * also clear the while/foreach stack.
5737d8fb588SMatthias Schmidt */
5747d8fb588SMatthias Schmidt btoeof();
5757d8fb588SMatthias Schmidt
576*d6ab524cSAntonio Huete Jimenez setstatus(1);
5777d8fb588SMatthias Schmidt #ifdef BSDJOBS
5787d8fb588SMatthias Schmidt if (tpgrp > 0)
5797d8fb588SMatthias Schmidt (void) tcsetpgrp(FSHTTY, tpgrp);
5807d8fb588SMatthias Schmidt #endif
58194afa86dSJohn Marino }
58294afa86dSJohn Marino
58394afa86dSJohn Marino /*
58494afa86dSJohn Marino * Print the error with the given id.
58594afa86dSJohn Marino *
58694afa86dSJohn Marino * Special ids:
58794afa86dSJohn Marino * ERR_SILENT: Print nothing.
58894afa86dSJohn Marino * ERR_OLD: Print the previously set error
58994afa86dSJohn Marino * ERR_NAME: If this bit is set, print the name of the function
59094afa86dSJohn Marino * in bname
59194afa86dSJohn Marino *
59294afa86dSJohn Marino * This routine always resets or exits. The flag haderr
59394afa86dSJohn Marino * is set so the routine who catches the unwind can propogate
59494afa86dSJohn Marino * it if they want.
59594afa86dSJohn Marino *
59694afa86dSJohn Marino * Note that any open files at the point of error will eventually
59794afa86dSJohn Marino * be closed in the routine process in sh.c which is the only
59894afa86dSJohn Marino * place error unwinds are ever caught.
59994afa86dSJohn Marino */
60094afa86dSJohn Marino void
60194afa86dSJohn Marino /*VARARGS*/
stderror(unsigned int id,...)60294afa86dSJohn Marino stderror(unsigned int id, ...)
60394afa86dSJohn Marino {
60494afa86dSJohn Marino va_list va;
60594afa86dSJohn Marino int flags;
60694afa86dSJohn Marino
60794afa86dSJohn Marino va_start(va, id);
60894afa86dSJohn Marino
60994afa86dSJohn Marino /*
61094afa86dSJohn Marino * Reset don't free flag for buggy os's
61194afa86dSJohn Marino */
61294afa86dSJohn Marino dont_free = 0;
61394afa86dSJohn Marino
61494afa86dSJohn Marino flags = (int) id & ERR_FLAGS;
61594afa86dSJohn Marino id &= ~ERR_FLAGS;
61694afa86dSJohn Marino
61794afa86dSJohn Marino /* Pyramid's OS/x has a subtle bug in <varargs.h> which prevents calling
61894afa86dSJohn Marino * va_end more than once in the same function. -- sterling@netcom.com
61994afa86dSJohn Marino */
62094afa86dSJohn Marino assert(!((flags & ERR_OLD) && seterr == NULL));
62194afa86dSJohn Marino
62294afa86dSJohn Marino if (id >= sizeof(elst) / sizeof(elst[0]))
62394afa86dSJohn Marino id = ERR_INVALID;
62494afa86dSJohn Marino
62594afa86dSJohn Marino if (!(flags & ERR_SILENT)) {
62694afa86dSJohn Marino /*
62794afa86dSJohn Marino * Must flush before we print as we wish output before the error
62894afa86dSJohn Marino * to go on (some form of) standard output, while output after
62994afa86dSJohn Marino * goes on (some form of) diagnostic output. If didfds then output
63094afa86dSJohn Marino * will go to 1/2 else to FSHOUT/FSHDIAG. See flush in sh.print.c.
63194afa86dSJohn Marino */
63294afa86dSJohn Marino flush();/*FIXRESET*/
63394afa86dSJohn Marino haderr = 1; /* Now to diagnostic output */
634653fab9eSSascha Wildner if (enterhist)
635653fab9eSSascha Wildner xprintf("Can't load history: ");/*FIXRESET*/
63694afa86dSJohn Marino if (flags & ERR_NAME)
63794afa86dSJohn Marino xprintf("%s: ", bname);/*FIXRESET*/
63894afa86dSJohn Marino if ((flags & ERR_OLD)) {
63994afa86dSJohn Marino /* Old error. */
64094afa86dSJohn Marino xprintf("%s.\n", seterr);/*FIXRESET*/
64194afa86dSJohn Marino } else {
64294afa86dSJohn Marino xvprintf(elst[id], va);/*FIXRESET*/
64394afa86dSJohn Marino xprintf(".\n");/*FIXRESET*/
64494afa86dSJohn Marino }
64594afa86dSJohn Marino }
64694afa86dSJohn Marino va_end(va);
64794afa86dSJohn Marino
64894afa86dSJohn Marino if (seterr) {
64994afa86dSJohn Marino xfree(seterr);
65094afa86dSJohn Marino seterr = NULL;
65194afa86dSJohn Marino }
65294afa86dSJohn Marino
65394afa86dSJohn Marino fixerror();
65494afa86dSJohn Marino
6557d8fb588SMatthias Schmidt reset(); /* Unwind */
6567d8fb588SMatthias Schmidt }
657