2 * Copyright (c) 1991, 1993
3 * The Regents of the University of California. All rights reserved.
5 * This code is derived from software contributed to Berkeley by
8 * Redistribution and use in source and binary forms, with or without
9 * modification, are permitted provided that the following conditions
11 * 1. Redistributions of source code must retain the above copyright
12 * notice, this list of conditions and the following disclaimer.
13 * 2. Redistributions in binary form must reproduce the above copyright
14 * notice, this list of conditions and the following disclaimer in the
15 * documentation and/or other materials provided with the distribution.
16 * 3. All advertising materials mentioning features or use of this software
17 * must display the following acknowledgement:
18 * This product includes software developed by the University of
19 * California, Berkeley and its contributors.
20 * 4. Neither the name of the University nor the names of its contributors
21 * may be used to endorse or promote products derived from this software
22 * without specific prior written permission.
24 * THIS SOFTWARE IS PROVIDED BY THE REGENTS AND CONTRIBUTORS ``AS IS'' AND
25 * ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
26 * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
27 * ARE DISCLAIMED. IN NO EVENT SHALL THE REGENTS OR CONTRIBUTORS BE LIABLE
28 * FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
29 * DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS
30 * OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)
31 * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT
32 * LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY
33 * OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF
38 static char const copyright[] =
39 "@(#) Copyright (c) 1991, 1993\n\
40 The Regents of the University of California. All rights reserved.\n";
45 static char sccsid[] = "@(#)main.c 8.6 (Berkeley) 5/28/95";
47 static const char rcsid[] =
86 short profile_buf[16384];
90 STATIC void read_profile __P((char *));
91 STATIC char *find_dot_file __P((char *));
94 * Main routine. We initialize things, parse the arguments, execute
95 * profiles if we're a login shell, and then call cmdloop to execute
96 * commands. The setjmp call sets up the location to jump to when an
97 * exception occurs. When an exception occurs the variable "state"
98 * is used to figure out how far we had gotten.
106 struct jmploc jmploc;
107 struct stackmark smark;
112 monitor(4, etext, profile_buf, sizeof profile_buf, 50);
114 (void) setlocale(LC_ALL, "");
116 if (setjmp(jmploc.loc)) {
118 * When a shell procedure is executed, we raise the
119 * exception EXSHELLPROC to clean up before executing
120 * the shell procedure.
131 exitstatus = exerrno;
142 if (exception != EXSHELLPROC) {
143 if (state == 0 || iflag == 0 || ! rootshell)
144 exitshell(exitstatus);
147 if (exception == EXINT
149 && (! attyset() || equal(termval(), "emacs"))
155 popstackmark(&smark);
156 FORCEINTON; /* enable interrupts */
169 trputs("Shell args: "); trargs(argv);
174 setstackmark(&smark);
175 procargs(argc, argv);
176 if (getpwd() == NULL && iflag)
177 out2str("sh: cannot determine working directory\n");
178 if (argv[0] && argv[0][0] == '-') {
180 read_profile("/etc/profile");
184 read_profile(".profile");
186 read_profile("/etc/suid_profile");
190 if (!privileged && iflag) {
191 if ((shinit = lookupvar("ENV")) != NULL && *shinit != '\0') {
193 read_profile(shinit);
201 if (sflag || minusc == NULL) {
202 state4: /* XXX ??? - why isn't this before the "if" statement */
208 exitshell(exitstatus);
215 * Read and execute commands. "Top" is nonzero for the top level command
216 * loop; it turns on prompting if the shell is interactive.
224 struct stackmark smark;
228 TRACE(("cmdloop(%d) called\n", top));
229 setstackmark(&smark);
241 /* showtree(n); DEBUG */
243 if (!top || numeof >= 50)
245 if (!stoppedjobs()) {
248 out2str("\nUse \"exit\" to leave shell.\n");
251 } else if (n != NULL && nflag == 0) {
252 job_warning = (job_warning == 2) ? 1 : 0;
256 popstackmark(&smark);
257 if (evalskip == SKIPFILE) {
262 popstackmark(&smark); /* unnecessary */
268 * Read /etc/profile or .profile. Return on error.
278 if ((fd = open(name, O_RDONLY)) >= 0)
290 * Read a file containing shell functions.
300 if ((fd = open(name, O_RDONLY)) >= 0)
303 error("Can't open %s: %s", name, strerror(errno));
312 * Take commands from a file. To be compatible we should do a path
313 * search for the file, which is necessary to find sub-commands.
318 find_dot_file(basename)
321 static char localname[FILENAME_MAX+1];
323 char *path = pathval();
326 /* don't try this for absolute or relative paths */
327 if( strchr(basename, '/'))
330 while ((fullname = padvance(&path, basename)) != NULL) {
331 strcpy(localname, fullname);
333 if ((stat(fullname, &statb) == 0) && S_ISREG(statb.st_mode))
347 for (sp = cmdenviron; sp ; sp = sp->next)
348 setvareq(savestr(sp->text), VSTRFIXED|VTEXTFIXED);
350 if (argc >= 2) { /* That's what SVR2 does */
351 char *fullname = find_dot_file(argv[1]);
353 setinputfile(fullname, 1);
354 commandname = fullname;
367 extern int oexitstatus;
372 exitstatus = number(argv[1]);
374 exitstatus = oexitstatus;
375 exitshell(exitstatus);
383 * Should never be called.