123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179180181182183184185186187188189190191192193194195196197198199200201202203204205206207208209210211212213214215216217218219220221222223224225226227228229230231232233234235236237238239240241242243244245246247248249250251252253254255256257258259260261262263264265266267268269270271272273274275276277278279280281282283284285286287288289290291292293294295296297298299300301302303304305306307308309310311312313314315316317 |
- /* routines for printing error messages */
- #include "defs.h"
- fatal(msg)
- char *msg;
- {
- fprintf(stderr, "%s: f - %s\n", myname, msg);
- done(2);
- }
- no_space()
- {
- fprintf(stderr, "%s: f - out of space\n", myname);
- done(2);
- }
- open_error(filename)
- char *filename;
- {
- fprintf(stderr, "%s: f - cannot open \"%s\"\n", myname, filename);
- done(2);
- }
- unexpected_EOF()
- {
- fprintf(stderr, "%s: e - line %d of \"%s\", unexpected end-of-file\n",
- myname, lineno, input_file_name);
- done(1);
- }
- print_pos(st_line, st_cptr)
- char *st_line;
- char *st_cptr;
- {
- register char *s;
- if (st_line == 0) return;
- for (s = st_line; *s != '\n'; ++s)
- {
- if (isprint(*s) || *s == '\t')
- putc(*s, stderr);
- else
- putc('?', stderr);
- }
- putc('\n', stderr);
- for (s = st_line; s < st_cptr; ++s)
- {
- if (*s == '\t')
- putc('\t', stderr);
- else
- putc(' ', stderr);
- }
- putc('^', stderr);
- putc('\n', stderr);
- }
- syntax_error(st_lineno, st_line, st_cptr)
- int st_lineno;
- char *st_line;
- char *st_cptr;
- {
- fprintf(stderr, "%s: e - line %d of \"%s\", syntax error\n",
- myname, st_lineno, input_file_name);
- print_pos(st_line, st_cptr);
- done(1);
- }
- unterminated_comment(c_lineno, c_line, c_cptr)
- int c_lineno;
- char *c_line;
- char *c_cptr;
- {
- fprintf(stderr, "%s: e - line %d of \"%s\", unmatched /*\n",
- myname, c_lineno, input_file_name);
- print_pos(c_line, c_cptr);
- done(1);
- }
- unterminated_string(s_lineno, s_line, s_cptr)
- int s_lineno;
- char *s_line;
- char *s_cptr;
- {
- fprintf(stderr, "%s: e - line %d of \"%s\", unterminated string\n",
- myname, s_lineno, input_file_name);
- print_pos(s_line, s_cptr);
- done(1);
- }
- unterminated_text(t_lineno, t_line, t_cptr)
- int t_lineno;
- char *t_line;
- char *t_cptr;
- {
- fprintf(stderr, "%s: e - line %d of \"%s\", unmatched %%{\n",
- myname, t_lineno, input_file_name);
- print_pos(t_line, t_cptr);
- done(1);
- }
- unterminated_union(u_lineno, u_line, u_cptr)
- int u_lineno;
- char *u_line;
- char *u_cptr;
- {
- fprintf(stderr, "%s: e - line %d of \"%s\", unterminated %%union \
- declaration\n", myname, u_lineno, input_file_name);
- print_pos(u_line, u_cptr);
- done(1);
- }
- over_unionized(u_cptr)
- char *u_cptr;
- {
- fprintf(stderr, "%s: e - line %d of \"%s\", too many %%union \
- declarations\n", myname, lineno, input_file_name);
- print_pos(line, u_cptr);
- done(1);
- }
- illegal_tag(t_lineno, t_line, t_cptr)
- int t_lineno;
- char *t_line;
- char *t_cptr;
- {
- fprintf(stderr, "%s: e - line %d of \"%s\", illegal tag\n",
- myname, t_lineno, input_file_name);
- print_pos(t_line, t_cptr);
- done(1);
- }
- illegal_character(c_cptr)
- char *c_cptr;
- {
- fprintf(stderr, "%s: e - line %d of \"%s\", illegal character\n",
- myname, lineno, input_file_name);
- print_pos(line, c_cptr);
- done(1);
- }
- used_reserved(s)
- char *s;
- {
- fprintf(stderr, "%s: e - line %d of \"%s\", illegal use of reserved symbol \
- %s\n", myname, lineno, input_file_name, s);
- done(1);
- }
- tokenized_start(s)
- char *s;
- {
- fprintf(stderr, "%s: e - line %d of \"%s\", the start symbol %s cannot be \
- declared to be a token\n", myname, lineno, input_file_name, s);
- done(1);
- }
- retyped_warning(s)
- char *s;
- {
- fprintf(stderr, "%s: w - line %d of \"%s\", the type of %s has been \
- redeclared\n", myname, lineno, input_file_name, s);
- }
- reprec_warning(s)
- char *s;
- {
- fprintf(stderr, "%s: w - line %d of \"%s\", the precedence of %s has been \
- redeclared\n", myname, lineno, input_file_name, s);
- }
- revalued_warning(s)
- char *s;
- {
- fprintf(stderr, "%s: w - line %d of \"%s\", the value of %s has been \
- redeclared\n", myname, lineno, input_file_name, s);
- }
- terminal_start(s)
- char *s;
- {
- fprintf(stderr, "%s: e - line %d of \"%s\", the start symbol %s is a \
- token\n", myname, lineno, input_file_name, s);
- done(1);
- }
- restarted_warning()
- {
- fprintf(stderr, "%s: w - line %d of \"%s\", the start symbol has been \
- redeclared\n", myname, lineno, input_file_name);
- }
- no_grammar()
- {
- fprintf(stderr, "%s: e - line %d of \"%s\", no grammar has been \
- specified\n", myname, lineno, input_file_name);
- done(1);
- }
- terminal_lhs(s_lineno)
- int s_lineno;
- {
- fprintf(stderr, "%s: e - line %d of \"%s\", a token appears on the lhs \
- of a production\n", myname, s_lineno, input_file_name);
- done(1);
- }
- prec_redeclared()
- {
- fprintf(stderr, "%s: w - line %d of \"%s\", conflicting %%prec \
- specifiers\n", myname, lineno, input_file_name);
- }
- unterminated_action(a_lineno, a_line, a_cptr)
- int a_lineno;
- char *a_line;
- char *a_cptr;
- {
- fprintf(stderr, "%s: e - line %d of \"%s\", unterminated action\n",
- myname, a_lineno, input_file_name);
- print_pos(a_line, a_cptr);
- done(1);
- }
- dollar_warning(a_lineno, i)
- int a_lineno;
- int i;
- {
- fprintf(stderr, "%s: w - line %d of \"%s\", $%d references beyond the \
- end of the current rule\n", myname, a_lineno, input_file_name, i);
- }
- dollar_error(a_lineno, a_line, a_cptr)
- int a_lineno;
- char *a_line;
- char *a_cptr;
- {
- fprintf(stderr, "%s: e - line %d of \"%s\", illegal $-name\n",
- myname, a_lineno, input_file_name);
- print_pos(a_line, a_cptr);
- done(1);
- }
- untyped_lhs()
- {
- fprintf(stderr, "%s: e - line %d of \"%s\", $$ is untyped\n",
- myname, lineno, input_file_name);
- done(1);
- }
- untyped_rhs(i, s)
- int i;
- char *s;
- {
- fprintf(stderr, "%s: e - line %d of \"%s\", $%d (%s) is untyped\n",
- myname, lineno, input_file_name, i, s);
- done(1);
- }
- unknown_rhs(i)
- int i;
- {
- fprintf(stderr, "%s: e - line %d of \"%s\", $%d is untyped\n",
- myname, lineno, input_file_name, i);
- done(1);
- }
- default_action_warning()
- {
- fprintf(stderr, "%s: w - line %d of \"%s\", the default action assigns an \
- undefined value to $$\n", myname, lineno, input_file_name);
- }
- undefined_goal(s)
- char *s;
- {
- fprintf(stderr, "%s: e - the start symbol %s is undefined\n", myname, s);
- done(1);
- }
- undefined_symbol_warning(s)
- char *s;
- {
- fprintf(stderr, "%s: w - the symbol %s is undefined\n", myname, s);
- }
|