date and time created 88/07/21 17:33:25 by marc

SCCS-vsn: local/toolchest/ksh/sh/error.c 1.1

diff --git a/usr/src/local/toolchest/ksh/sh/error.c b/usr/src/local/toolchest/ksh/sh/error.c
new file mode 100644 (file)
index 0000000..56d527e
--- /dev/null
+++ b/usr/src/local/toolchest/ksh/sh/error.c
@@ -0,0 +1,195 @@
+/*
+
+ *      Copyright (c) 1984, 1985, 1986 AT&T
+ *      All Rights Reserved
+
+ *      THIS IS UNPUBLISHED PROPRIETARY SOURCE 
+ *      CODE OF AT&T.
+ *      The copyright notice above does not 
+ *      evidence any actual or intended
+ *      publication of such source code.
+
+ */
+/* @(#)error.c 1.1 */
+/*
+ * UNIX shell
+ *
+ * S. R. Bourne
+ * Rewritten by David Korn
+ * AT&T Bell Laboratories
+ *
+ */
+
+#include       "flags.h"
+#include       "defs.h"
+#include       "io.h"
+#include       "brkincr.h"
+#include       "jobs.h"
+#include       "sym.h"
+
+/* These routines are defined by this module */
+void   exitsh();
+void   done();
+void   failed();
+void   rmtemp();
+
+/* These routines are used by this module but defined elsewhere */
+extern void    arg_clear();
+extern void    chktrap();
+extern void    free();
+extern void    hist_flush();
+extern char    *movstr();
+extern void    name_unscope();
+extern void    p_flush();
+extern void    p_prp();
+extern void    p_setout();
+extern void    p_str();
+extern void    restore();
+extern void    rm_files();
+extern void    setcooked();
+#ifdef VFORK
+extern void    vfork_restore();
+#endif /* VFORK */
+
+/* ========    error handling  ======== */
+
+       /* Find out if it is time to go away.
+        * `trapnote' is set to SIGSET when fault is seen and
+        * no trap has been set.
+        */
+
+/*
+ *  This routine is called when fatal errors are encountered
+ *  A message is printed out and the shell tries to exit
+ */
+
+void failed(s1,s2)
+register char *s1,*s2;
+{
+       p_setout(stderr);
+       p_prp(s1,s2?':':NL);
+       if(s2)
+       {
+               putc(SP,output);
+               p_str(s2,NL);
+       }
+       exitsh(ERROR);
+}
+
+/* Arrive here from `FATAL' errors
+ *  a) exit command,
+ *  b) default trap,
+ *  c) fault with no trap set.
+ *
+ * Action is to return to command level or exit.
+ */
+
+void exitsh(xno)
+int xno;
+{
+       register unsigned state=(states&~(ERRFLG|MONITOR));
+       exitval=xno;
+       if(state&BUILTIN)
+               longjmp(*freturn,1);
+       state |= is_option(ERRFLG|MONITOR);
+       if((state&(ERRFLG|FORKED|TTYFLG)) != TTYFLG)
+       {
+               states = state;
+               done(0);
+       }
+       else
+       {
+               if((state&FUNCTION)==0)
+               {
+                       p_flush();
+                       /* flush out input buffer */
+                       setbuf(input,input->_base);
+                       name_unscope();
+                       arg_clear();
+                       restore(0);
+               }
+#ifdef VFORK
+               vfork_restore();
+#endif /* VFORK */
+               execbrk = breakcnt = 0;
+               aliflg = 0;
+               exec_flag = 0;
+               hist_flush();
+#ifdef JOBS
+               state &= ~(FUNCTION|FIXFLG|NONSTOP|READC|RWAIT|PROMPT|READPR|MONITOR|BUILTIN|VFORKED);
+               state |= is_option(INTFLG|READPR|MONITOR);
+               jobstat.j_flag = 0;
+#else
+               state &= ~(FUNCTION|FIXFLG|RWAIT|PROMPT|READPR|BUILTIN);
+               state |= is_option(INTFLG|READPR);
+#endif /* JOBS */
+               states = state;
+               longjmp(*freturn,1);
+       }
+}
+
+/*
+ * This is the exit routine for the shell
+ */
+
+void done(sig)
+register int sig;
+{
+       register char *t;
+       register int savxit = exitval;
+       if(t=trapcom[0])
+       {
+               trapcom[0]=0; /*should free but not long */
+               execexp(t,(FILE*)0);
+       }
+       else
+       {
+               /* avoid recursive call for set -e */
+               states &= ~ERRFLG;
+               chktrap();
+       }
+       rmtemp((IOPTR)0);
+#ifdef ACCT
+       doacct();
+#endif /* ACCT */
+#if VSH || ESH
+       if(is_option(EMACS|EDITVI|GMACS) && standin->fstak==0)
+               setcooked(fileno(input));
+#endif
+       if(states&RM_TMP)
+       /* clean up all temp files */
+               rm_files(tmpout);
+       p_flush();
+#ifdef JOBS
+       if(sig==SIGHUP || (is_option(INTFLG)&&(getppid()==1)))
+               kill_all();
+#endif /* JOBS */
+       if(sig)
+       {
+               /* generate fault termination code */
+               signal(sig,SIG_DFL);
+#ifdef BSD_4_2
+               sigrelse(sig);
+#endif /* BSD_4_2 */
+               kill(getpid(),sig);
+               pause();
+       }
+       exit(savxit);
+}
+
+/*
+ * remove temporary files
+ */
+
+void   rmtemp(base)
+IOPTR  base;
+{
+       register IOPTR iop = iotemp;
+       while(iop>base)
+       {
+               unlink(iop->ioname);
+               free(iop->iolink);
+               iop=iop->iolst;
+       }
+       iotemp = iop;
+}