BSD 4 release

[unix-history] / usr / src / cmd / csh / sh.err.c

static  char *sccsid = "@(#)sh.err.c 4.1 10/9/80";

#include "sh.h"
#include <sys/ioctl.h>

/*
* C Shell
*/

bool    errspl;                 /* Argument to error was spliced by seterr2 */
char    one[2] = { '1', 0 };
char    *onev[2] = { one, NOSTR };
/*
* Print error string s with optional argument arg.
* This routine always resets or exits.  The flag haderr
* is set so the routine who catches the unwind can propogate
* it if they want.
*
* Note that any open files at the point of error will eventually
* be closed in the routine process in sh.c which is the only
* place error unwinds are ever caught.
*/
error(s, arg)
       char *s;
{
       register char **v;
       register char *ep;

       /*
        * Must flush before we print as we wish output before the error
        * to go on (some form of) standard output, while output after
        * goes on (some form of) diagnostic output.
        * If didfds then output will go to 1/2 else to FSHOUT/FSHDIAG.
        * See flush in sh.print.c.
        */
       flush();
       haderr = 1;             /* Now to diagnostic output */
       timflg = 0;             /* This isn't otherwise reset */
       if (v = pargv)
               pargv = 0, blkfree(v);
       if (v = gargv)
               gargv = 0, blkfree(v);

       /*
        * A zero arguments causes no printing, else print
        * an error diagnostic here.
        */
       if (s)
               printf(s, arg), printf(".\n");

       didfds = 0;             /* Forget about 0,1,2 */
       if ((ep = err) && errspl) {
               errspl = 0;
               xfree(ep);
       }
       errspl = 0;

       /*
        * Reset the state of the input.
        * This buffered seek to end of file will also
        * clear the while/foreach stack.
        */
       btoeof();

       /*
        * Go away if -e or we are a child shell
        */
       if (exiterr || child)
               exit(1);

       setq("status", onev, &shvhed);
       if (tpgrp > 0)
               ioctl(FSHTTY, TIOCSPGRP, &tpgrp);
       reset();                /* Unwind */
}

/*
* Perror is the shells version of perror which should otherwise
* never be called.
*/
Perror(s)
       char *s;
{

       /*
        * Perror uses unit 2, thus if we didn't set up the fd's
        * we must set up unit 2 now else the diagnostic will disappear
        */
       if (!didfds) {
               register int oerrno = errno;

               dcopy(SHDIAG, 2);
               errno = oerrno;
       }
       perror(s);
       error(NOSTR);           /* To exit or unwind */
}

bferr(cp)
       char *cp;
{

       flush();
       haderr = 1;
       printf("%s: ", bname);
       error(cp);
}

/*
* The parser and scanner set up errors for later by calling seterr,
* which sets the variable err as a side effect; later to be tested,
* e.g. in process.
*/
seterr(s)
       char *s;
{

       if (err == 0)
               err = s, errspl = 0;
}

/* Set err to a splice of cp and dp, to be freed later in error() */
seterr2(cp, dp)
       char *cp, *dp;
{

       if (err)
               return;
       err = strspl(cp, dp);
       errspl++;
}

/* Set err to a splice of cp with a string form of character d */
seterrc(cp, d)
       char *cp, d;
{
       char chbuf[2];

       chbuf[0] = d;
       chbuf[1] = 0;
       seterr2(cp, chbuf);
}