BSD 4_3_Net_2 release

[unix-history] / usr / src / bin / sh / main.c

diff --git a/usr/src/bin/sh/main.c b/usr/src/bin/sh/main.c
index a9607cc..236f4cc 100644 (file)
--- a/usr/src/bin/sh/main.c
+++ b/usr/src/bin/sh/main.c
@@ -1,190 +1,325 @@
-#ifndef lint
-static char sccsid[] = "@(#)main.c     4.4 5/8/89";
-#endif
-
-#
-/*
- * UNIX shell
+/*-
+ * Copyright (c) 1991 The Regents of the University of California.
+ * All rights reserved.
+ *
+ * This code is derived from software contributed to Berkeley by
+ * Kenneth Almquist.

  *
  *

- * S. R. Bourne
- * Bell Telephone Laboratories
+ * 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.

  */
 
  */
 

-#include       <sys/types.h>
-#include       <sys/stat.h>
-#include       <sgtty.h>
-#include       <signal.h>
-#include       "defs.h"
-#include       "sym.h"
-#include       "timeout.h"
-#include       "pathnames.h"
-
-UFD            output = 2;
-LOCAL BOOL     beenhere = FALSE;
-CHAR           tmpout[20] = _PATH_TMPOUT;
-FILEBLK                stdfile;
-FILE           standin = &stdfile;
-#ifdef stupid
-#include       <execargs.h>
-#endif
+#ifndef lint
+char copyright[] =
+"@(#) Copyright (c) 1991 The Regents of the University of California.\n\
+ All rights reserved.\n";
+#endif /* not lint */

 
 

-PROC VOID      exfile();
+#ifndef lint
+static char sccsid[] = "@(#)main.c     5.2 (Berkeley) 3/13/91";
+#endif /* not lint */
+
+#include <signal.h>
+#include <fcntl.h>
+#include "shell.h"
+#include "main.h"
+#include "mail.h"
+#include "options.h"
+#include "output.h"
+#include "parser.h"
+#include "nodes.h"
+#include "eval.h"
+#include "jobs.h"
+#include "input.h"
+#include "trap.h"
+#if ATTY
+#include "var.h"
+#endif
+#include "memalloc.h"
+#include "error.h"
+#include "init.h"
+#include "mystring.h"
+
+#define PROFILE 0
+
+int rootpid;
+int rootshell;
+STATIC union node *curcmd;
+STATIC union node *prevcmd;
+extern int errno;
+#if PROFILE
+short profile_buf[16384];
+extern int etext();
+#endif

 
 

+#ifdef __STDC__
+STATIC void read_profile(char *);
+char *getenv(char *);
+#else
+STATIC void read_profile();
+char *getenv();
+#endif

 
 
 
 

+/*
+ * Main routine.  We initialize things, parse the arguments, execute
+ * profiles if we're a login shell, and then call cmdloop to execute
+ * commands.  The setjmp call sets up the location to jump to when an
+ * exception occurs.  When an exception occurs the variable "state"
+ * is used to figure out how far we had gotten.
+ */

 
 

-main(c, v)
-       INT             c;
-       STRING          v[];
-{
-       REG INT         rflag=ttyflg;
+main(argc, argv)  char **argv; {
+       struct jmploc jmploc;
+       struct stackmark smark;
+       volatile int state;
+       char *shinit;

 
 

-       /* initialise storage allocation */
-       stdsigs();
-       setbrk(BRKINCR);
-       addblok((POS)0);
+#if PROFILE
+       monitor(4, etext, profile_buf, sizeof profile_buf, 50);
+#endif
+       state = 0;
+       if (setjmp(jmploc.loc)) {
+               /*
+                * When a shell procedure is executed, we raise the
+                * exception EXSHELLPROC to clean up before executing
+                * the shell procedure.
+                */
+               if (exception == EXSHELLPROC) {
+                       rootpid = getpid();
+                       rootshell = 1;
+                       minusc = NULL;
+                       state = 3;
+               } else if (state == 0 || iflag == 0 || ! rootshell)
+                       exitshell(2);
+               reset();
+#if ATTY
+               if (exception == EXINT
+                && (! attyset() || equal(termval(), "emacs"))) {
+#else
+               if (exception == EXINT) {
+#endif
+                       out2c('\n');
+                       flushout(&errout);
+               }
+               popstackmark(&smark);
+               FORCEINTON;                             /* enable interrupts */
+               if (state == 1)
+                       goto state1;
+               else if (state == 2)
+                       goto state2;
+               else
+                       goto state3;
+       }
+       handler = &jmploc;
+#ifdef DEBUG
+       opentrace();
+       trputs("Shell args:  ");  trargs(argv);
+#endif
+       rootpid = getpid();
+       rootshell = 1;
+       init();
+       setstackmark(&smark);
+       procargs(argc, argv);
+       if (argv[0] && argv[0][0] == '-') {
+               state = 1;
+               read_profile("/etc/profile");
+state1:
+               state = 2;
+               read_profile(".profile");
+       } else if ((sflag || minusc) && (shinit = getenv("SHINIT")) != NULL) {
+               state = 2;
+               evalstring(shinit);
+       }
+state2:
+       state = 3;
+       if (minusc) {
+               evalstring(minusc);
+       }
+       if (sflag || minusc == NULL) {
+state3:
+               cmdloop(1);
+       }
+#if PROFILE
+       monitor(0);
+#endif
+       exitshell(exitstatus);
+}

 
 

-       /* set names from userenv */
-       setupenv();

 
 

-       /* look for restricted */
-/*     IF c>0 ANDF any('r', *v) THEN rflag=0 FI */
+/*
+ * Read and execute commands.  "Top" is nonzero for the top level command
+ * loop; it turns on prompting if the shell is interactive.
+ */

 
 

-       /* look for options */
-       dolc=options(c,v);
-       IF dolc<2 THEN flags |= stdflg FI
-       IF (flags&stdflg)==0
-       THEN    dolc--;
-       FI
-       dolv=v+c-dolc; dolc--;
+void
+cmdloop(top) {
+       union node *n;
+       struct stackmark smark;
+       int inter;
+       int numeof;
+
+       TRACE(("cmdloop(%d) called\n", top));
+       setstackmark(&smark);
+       numeof = 0;
+       for (;;) {
+               if (pendingsigs)
+                       dotrap();
+               inter = 0;
+               if (iflag && top) {
+                       inter++;
+                       showjobs(1);
+                       chkmail(0);
+                       flushout(&output);
+               }
+               n = parsecmd(inter);
+#ifdef DEBUG
+               /* showtree(n); */
+#endif
+               if (n == NEOF) {
+                       if (Iflag == 0 || numeof >= 50)
+                               break;
+                       out2str("\nUse \"exit\" to leave shell.\n");
+                       numeof++;
+               } else if (n != NULL && nflag == 0) {
+                       if (inter) {
+                               INTOFF;
+                               if (prevcmd)
+                                       freefunc(prevcmd);
+                               prevcmd = curcmd;
+                               curcmd = copyfunc(n);
+                               INTON;
+                       }
+                       evaltree(n, 0);
+#ifdef notdef
+                       if (exitstatus)                               /*DEBUG*/
+                               outfmt(&errout, "Exit status 0x%X\n", exitstatus);
+#endif
+               }
+               popstackmark(&smark);
+       }
+       popstackmark(&smark);           /* unnecessary */
+}

 
 

-       /* return here for shell file execution */
-       setjmp(subshell);

 
 

-       /* number of positional parameters */
-       assnum(&dolladr,dolc);
-       cmdadr=dolv[0];

 
 

-       /* set pidname */
-       assnum(&pidadr, getpid());
+/*
+ * Read /etc/profile or .profile.  Return on error.
+ */

 
 

-       /* set up temp file names */
-       settmp();
+STATIC void
+read_profile(name)
+       char *name;
+       {
+       int fd;
+
+       INTOFF;
+       if ((fd = open(name, O_RDONLY)) >= 0)
+               setinputfd(fd, 1);
+       INTON;
+       if (fd < 0)
+               return;
+       cmdloop(0);
+       popfile();
+}

 
 

-       /* default ifs */
-       dfault(&ifsnod, sptbnl);

 
 

-       IF (beenhere++)==FALSE
-       THEN    /* ? profile */
-               IF *cmdadr=='-'
-                   ANDF (input=pathopen(nullstr, profile))>=0
-               THEN    exfile(rflag); flags &= ~ttyflg;
-               FI
-               IF rflag==0 THEN flags |= rshflg FI

 
 

-               /* open input file if specified */
-               IF comdiv
-               THEN    estabf(comdiv); input = -1;
-               ELSE    input=((flags&stdflg) ? 0 : chkopen(cmdadr));
-                       comdiv--;
-               FI
-#ifdef stupid
-       ELSE    *execargs=dolv; /* for `ps' cmd */
-#endif
-       FI
+/*
+ * Read a file containing shell functions.
+ */

 
 

-       exfile(0);
-       done();
+void
+readcmdfile(name)
+       char *name;
+       {
+       int fd;
+
+       INTOFF;
+       if ((fd = open(name, O_RDONLY)) >= 0)
+               setinputfd(fd, 1);
+       else
+               error("Can't open %s", name);
+       INTON;
+       cmdloop(0);
+       popfile();

 }
 
 }
 

-LOCAL VOID     exfile(prof)
-BOOL           prof;
-{
-       REG L_INT       mailtime = 0;
-       REG INT         userid;
-       struct stat     statb;
-
-       /* move input */
-       IF input>0
-       THEN    Ldup(input,INIO);
-               input=INIO;
-       FI
-
-       /* move output to safe place */
-       IF output==2
-       THEN    Ldup(dup(2),OTIO);
-               output=OTIO;
-       FI
-
-       userid=getuid();
-
-       /* decide whether interactive */
-       IF (flags&intflg) ORF ((flags&oneflg)==0 ANDF gtty(output,&statb)==0 ANDF gtty(input,&statb)==0)
-       THEN    dfault(&ps1nod, (userid?stdprompt:supprompt));
-               dfault(&ps2nod, readmsg);
-               flags |= ttyflg|prompt; ignsig(KILL);
+
+

 /*
 /*

-               {
-       #include <signal.h>
-               signal(SIGTTIN, SIG_IGN);
-               signal(SIGTTOU, SIG_IGN);
-               signal(SIGTSTP, SIG_IGN);
-               }
-*/
-       ELSE    flags |= prof; flags &= ~prompt;
-       FI
-
-       IF setjmp(errshell) ANDF prof
-       THEN    close(input); return;
-       FI
-
-       /* error return here */
-       loopcnt=breakcnt=peekc=0; iopend=0;
-       IF input>=0 THEN initf(input) FI
-
-       /* command loop */
-       LOOP    tdystak(0);
-               stakchk(); /* may reduce sbrk */
-               exitset();
-               IF (flags&prompt) ANDF standin->fstak==0 ANDF !eof
-               THEN    IF mailnod.namval
-                           ANDF stat(mailnod.namval,&statb)>=0 ANDF statb.st_size
-                           ANDF (statb.st_mtime != mailtime)
-                           ANDF mailtime
-                       THEN    prs(mailmsg)
-                       FI
-                       mailtime=statb.st_mtime;
-                       prs(ps1nod.namval);
-               FI
-
-               trapnote=0; peekc=readc();
-               IF eof
-               THEN    return;
-               FI
-               execute(cmd(NL,MTFLG),0);
-               eof |= (flags&oneflg);
-       POOL
+ * Take commands from a file.  To be compatable we should do a path
+ * search for the file, but a path search doesn't make any sense.
+ */
+
+dotcmd(argc, argv)  char **argv; {
+       exitstatus = 0;
+       if (argc >= 2) {                /* That's what SVR2 does */
+               setinputfile(argv[1], 1);
+               commandname = argv[1];
+               cmdloop(0);
+               popfile();
+       }
+       return exitstatus;

 }
 
 }
 

-chkpr(eor)
-char eor;
-{
-       IF (flags&prompt) ANDF standin->fstak==0 ANDF eor==NL
-       THEN    prs(ps2nod.namval);
-       FI
+
+exitcmd(argc, argv)  char **argv; {
+       if (argc > 1)
+               exitstatus = number(argv[1]);
+       exitshell(exitstatus);

 }
 
 }
 

-settmp()
-{
-       itos(getpid()); serial=0;
-       tmpnam=movstr(numbuf,&tmpout[TMPNAM]);
+
+lccmd(argc, argv)  char **argv; {
+       if (argc > 1) {
+               defun(argv[1], prevcmd);
+               return 0;
+       } else {
+               INTOFF;
+               freefunc(curcmd);
+               curcmd = prevcmd;
+               prevcmd = NULL;
+               INTON;
+               evaltree(curcmd, 0);
+               return exitstatus;
+       }

 }
 
 }
 

-Ldup(fa, fb)
-       REG INT         fa, fb;
-{
-       dup2(fa, fb);
-       close(fa);
-       ioctl(fb, FIOCLEX, 0);
+
+
+#ifdef notdef
+/*
+ * Should never be called.
+ */
+
+void
+exit(exitstatus) {
+       _exit(exitstatus);

 }
 }

+#endif