12345678910111213141516171819202122232425262728293031323334353637383940414243444546474849505152535455565758596061626364656667 |
- /*
- * (c) copyright 1987 by the Vrije Universiteit, Amsterdam, The Netherlands.
- * See the copyright notice in the ACK home directory, in the file "Copyright".
- */
- /* $Id$ */
- /* PARSER ERROR ADMINISTRATION */
- #include <alloc.h>
- #include "idf.h"
- #include "arith.h"
- #include "LLlex.h"
- #include "Lpars.h"
- #include "error.h"
- #include <symbol2str.h>
- void insert_token(int tk);
- void LLmessage(tk)
- {
- err_occurred = 1;
- if (tk < 0) {
- error("end of file expected");
- }
- else if (tk) {
- #ifndef LLNONCORR
- error("%s missing before %s", symbol2str(tk), symbol2str(DOT));
- #endif
- insert_token(tk);
- }
- else {
- #ifndef LLNONCORR
- error("%s deleted", symbol2str(DOT));
- #else
- error("%s not expected", symbol2str(DOT));
- #endif
- }
- tk_nmb_at_last_syn_err = token_nmb;
- }
- void insert_token(int tk)
- {
- aside = dot;
- DOT = tk;
- switch (tk) {
- /* The operands need some body */
- case IDENTIFIER:
- dot.tk_idf = gen_idf();
- break;
- case TYPE_IDENTIFIER:
- dot.tk_idf = str2idf("int", 0);
- break;
- case STRING:
- dot.tk_bts = Salloc("", 1);
- dot.tk_len = 1;
- break;
- case INTEGER:
- dot.tk_fund = INT;
- dot.tk_ival = 1;
- break;
- case FLOATING:
- dot.tk_fval = Salloc("0.0", 4);
- break;
- }
- }
|