fb5223cf2a83b6a162e4bb57e9825b6d27944083
* Copyright (c) 1980 Regents of the University of California.
* All rights reserved. The Berkeley software License Agreement
* specifies the terms and conditions for redistribution.
static char sccsid
[] = "@(#)yypanic.c 5.1 (Berkeley) %G%";
#include "tree_ty.h" /* must be included for yy.h */
* The routine yyPerror coordinates the panic when
* the correction routines fail. Three types of panics
* are possible - those in a declaration part, those
* in a statement part, and those in an expression.
* Declaration part panics consider insertion of "begin",
* expression part panics will stop on more symbols.
* The panics are otherwise the same.
* ERROR MESSAGE SUPPRESSION STRATEGY: August 11, 1977
* If the parser has not made at least 2 moves since the last point of
* error then we want to suppress the supplied error message.
* We then skip input up to the next solid symbol.
register int ishifts
, brlev
;
copy((char *) (&oldpos
), (char *) (&Y
), sizeof oldpos
);
for (ishifts
= yyshifts
; ; yychar
= yylex(), yyshifts
++)
yerror("Illegal character");
* we have paniced to end of file
* during declarations. Separately
* compiled segments can syntactically
* exit without any error message, so
yerror("Declaration found when statement expected");
yerror("Expected keyword begin after declarations, before statements");
yylval
= nullsem(YBEGIN
);
* A rough approximation for now
* Should be much more lenient on suppressing
copy((char *) (&Y
), (char *) (&oldpos
), sizeof Y
);
if (yyshifts
- ishifts
> 2 && opt('r')) {
yerror("Parsing resumes");
* If we paniced in the statement part,
* and didn't stop at a ';', then we insert
* a ';' to prevent the recovery from immediately
* inserting one and complaining about it.
if (kind
== PSTAT
&& yychar
!= ';') {