/* 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 #include #include #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(); extern int expect_label; 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 before %s", symbol2str(tk), symbol2str(dotp->tk_symb)); 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_STRINGCONST, 1, (arith) 1); break; case INTEGER: toktype = int_type; if( !expect_label ) dotp->TOK_INT = 1; else dotp->TOK_INT = -1; 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; dotp->TOK_REL = Salloc("0.0", 4); dotp->TOK_RIV->r_real = dotp->TOK_REL; toktype = real_type; break; } } else if( tk < 0 ) error("garbage at end of program"); else error("%s deleted", symbol2str(dot.tk_symb)); }