73 lines
1.6 KiB
C
73 lines
1.6 KiB
C
/* S Y N T A X E R R O R R E P O R T I N G */
|
|
|
|
/* 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 <alloc.h>
|
|
#include <em_arith.h>
|
|
#include <em_label.h>
|
|
|
|
#include "LLlex.h"
|
|
#include "Lpars.h"
|
|
#include "idf.h"
|
|
#include "type.h"
|
|
|
|
extern char *symbol2str();
|
|
extern char *Malloc(), *Salloc();
|
|
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;
|
|
asidetype = toktype;
|
|
|
|
dotp->tk_symb = tk;
|
|
|
|
switch( tk ) {
|
|
/* The operands need some body */
|
|
case IDENT:
|
|
dotp->TOK_IDF = gen_anon_idf();
|
|
break;
|
|
case STRING:
|
|
dotp->tk_data.tk_str = (struct string *)
|
|
Malloc(sizeof (struct string));
|
|
dotp->TOK_SLE = 1;
|
|
dotp->TOK_STR = Salloc("", 1);
|
|
toktype = standard_type(T_STRING, 1, (arith) 1);
|
|
break;
|
|
case INTEGER:
|
|
dotp->TOK_INT = 1;
|
|
toktype = int_type;
|
|
break;
|
|
case REAL:
|
|
dotp->tk_data.tk_real = (struct real *)
|
|
Malloc(sizeof(struct real));
|
|
/* inverse struct */
|
|
dotp->TOK_RIV = (struct real *)
|
|
Malloc(sizeof(struct real));
|
|
dotp->TOK_RIV->r_inverse = dotp->tk_data.tk_real;
|
|
|
|
/* sign */
|
|
dotp->TOK_RSI = 0;
|
|
dotp->TOK_RIV->r_sign = 1;
|
|
|
|
dotp->TOK_REL = Salloc("0.0", 4);
|
|
toktype = real_type;
|
|
break;
|
|
}
|
|
}
|
|
else if( tk < 0 ) error("garbage at end of program");
|
|
else error("%s deleted", symbol2str(dot.tk_symb));
|
|
}
|