12345678910111213141516171819202122232425262728293031323334353637383940414243444546474849505152535455565758596061626364656667686970717273 |
- /* 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();
- 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));
- }
|