53 lines
1.1 KiB
C
53 lines
1.1 KiB
C
|
/*
|
||
|
|
* (c) copyright 1987 by the Vrije Universiteit, Amsterdam, The Netherlands.
|
||
|
|
* See the copyright notice in the ACK home directory, in the file "Copyright".
|
||
|
|
*
|
||
|
|
* Author: Ceriel J.H. Jacobs
|
||
|
|
*/
|
||
|
|
|
||
|
|
/* S Y N T A X E R R O R R E P O R T I N G */
|
||
|
|
|
||
|
|
/* stripped down version from the one in the Modula-2 compiler */
|
||
|
|
|
||
|
|
/* $Header$ */
|
||
|
|
|
||
|
|
/* Defines the LLmessage routine. LLgen-generated parsers require the
|
||
|
|
existence of a routine of that name.
|
||
|
|
The routine must do syntax-error reporting and must be able to
|
||
|
|
insert tokens in the token stream.
|
||
|
|
*/
|
||
|
|
|
||
|
|
#include "idf.h"
|
||
|
|
#include "LLlex.h"
|
||
|
|
#include "Lpars.h"
|
||
|
|
|
||
|
|
extern char *symbol2str();
|
||
|
|
extern struct idf *gen_anon_idf();
|
||
|
|
|
||
|
|
LLmessage(tk)
|
||
|
|
register int tk;
|
||
|
|
{
|
||
|
|
if (tk > 0) {
|
||
|
|
/* if (tk > 0), it represents the token to be inserted.
|
||
|
|
*/
|
||
|
|
register struct token *dotp = ˙
|
||
|
|
|
||
|
|
error("%s missing", symbol2str(tk));
|
||
|
|
|
||
|
|
aside = *dotp;
|
||
|
|
|
||
|
|
dotp->tk_symb = tk;
|
||
|
|
|
||
|
|
switch (tk) {
|
||
|
|
/* The operands need some body */
|
||
|
|
case IDENT:
|
||
|
|
dotp->TOK_IDF = gen_anon_idf();
|
||
|
|
break;
|
||
|
|
}
|
||
|
|
}
|
||
|
|
else if (tk < 0) {
|
||
|
|
error("garbage at end of program");
|
||
|
|
}
|
||
|
|
else error("%s deleted", symbol2str(dot.tk_symb));
|
||
|
|
}
|