BSD 4 release

[unix-history] / usr / src / cmd / pi / yyerror.c

/* Copyright (c) 1979 Regents of the University of California */

static  char sccsid[] = "@(#)yyerror.c 1.1 8/27/80";

#include "whoami.h"
#include "0.h"
#include "yy.h"

/*
* Yerror prints an error
* message and then returns
* NIL for the tree if needed.
* The error is flagged on the
* current line which is printed
* if the listing is turned off.
#ifdef PXP
*
* As is obvious from the fooling around
* with fout below, the Pascal system should
* be changed to use the new library "lS".
#endif
*/
yerror(s, a1, a2, a3, a4, a5)
       char *s;
{
#ifdef PI
       char buf[256];
#endif
       register int i, j;
       static yySerrs;
#ifdef PXP
       int ofout;
#endif

       if (errpfx == 'w' && opt('w') != 0) {
               errpfx = 'E';
               return;
       }
#ifdef PXP
       flush();
       ofout = fout[0];
       fout[0] = errout;
#endif
       yyResume = 0;
#ifdef PI
       geterr(s, buf);
       s = buf;
#endif
       yysync();
       pchr(errpfx);
       pchr(' ');
       for (i = 3; i < yyecol; i++)
               pchr('-');
       printf("^--- ");
/*
       if (yyecol > 60)
               printf("\n\t");
*/
       printf(s, a1, a2, a3, a4, a5);
       pchr('\n');
       if (errpfx == 'E')
#ifdef PI
               eflg++, codeoff();
#endif
#ifdef PXP
               eflg++;
#endif
       errpfx = 'E';
       yySerrs++;
       if (yySerrs >= MAXSYNERR) {
               yySerrs = 0;
               yerror("Too many syntax errors - QUIT");
               pexit(ERRS);
       }
#ifdef PXP
       flush();
       fout[0] = ofout;
       return (0);
#endif
}

/*
* A bracketing error message
*/
brerror(where, what)
       int where;
       char *what;
{

       if (where == 0) {
               line = yyeline;
               setpfx(' ');
               error("End matched %s on line %d", what, where);
               return;
       }
       if (where < 0)
               where = -where;
       yerror("Inserted keyword end matching %s on line %d", what, where);
}