/*      $NetBSD: error.c,v 1.15 2024/09/14 21:29:02 christos Exp $      */

#include "defs.h"

#include <sys/cdefs.h>
__RCSID("$NetBSD: error.c,v 1.15 2024/09/14 21:29:02 christos Exp $");
/* Id: error.c,v 1.17 2023/05/18 21:38:35 tom Exp  */

/* routines for printing error messages  */

__dead void
fatal(const char *msg)
{
   fprintf(stderr, "%s: f - %s\n", myname, msg);
   done(2);
}

__dead void
on_error(void)
{
   const char *msg;
   if (errno && (msg = strerror(errno)) != NULL)
       fatal(msg);
   else
       fatal("unknown error");
}

__dead void
open_error(const char *filename)
{
   fprintf(stderr, "%s: f - cannot open \"%s\"\n", myname, filename);
   done(2);
}

void
missing_brace(void)
{
   fprintf(stderr, "%s: e - line %d of \"%s\", missing '}'\n",
           myname, lineno, input_file_name);
   done(1);
}

void
unexpected_EOF(void)
{
   fprintf(stderr, "%s: e - line %d of \"%s\", unexpected end-of-file\n",
           myname, lineno, input_file_name);
   done(1);
}

static void
print_pos(const char *st_line, const char *st_cptr)
{
   const char *s;

   if (st_line == 0)
       return;
   for (s = st_line; *s != '\n'; ++s)
   {
       if (isprint(UCH(*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);
}

__dead void
syntax_error(int st_lineno, const char *st_line, const 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);
}

__dead void
unexpected_value(const struct ainfo *a)
{
   fprintf(stderr, "%s: e - line %d of \"%s\", unexpected value\n",
           myname, a->a_lineno, input_file_name);
   print_pos(a->a_line, a->a_cptr);
   done(1);
}

__dead void
unterminated_comment(const struct ainfo *a)
{
   fprintf(stderr, "%s: e - line %d of \"%s\", unmatched /*\n",
           myname, a->a_lineno, input_file_name);
   print_pos(a->a_line, a->a_cptr);
   done(1);
}

__dead void
unterminated_string(const struct ainfo *a)
{
   fprintf(stderr, "%s: e - line %d of \"%s\", unterminated string\n",
           myname, a->a_lineno, input_file_name);
   print_pos(a->a_line, a->a_cptr);
   done(1);
}

__dead void
unterminated_text(const struct ainfo *a)
{
   fprintf(stderr, "%s: e - line %d of \"%s\", unmatched %%{\n",
           myname, a->a_lineno, input_file_name);
   print_pos(a->a_line, a->a_cptr);
   done(1);
}

__dead void
unterminated_union(const struct ainfo *a)
{
   fprintf(stderr, "%s: e - line %d of \"%s\", unterminated %%union \
declaration\n", myname, a->a_lineno, input_file_name);
   print_pos(a->a_line, a->a_cptr);
   done(1);
}

__dead void
over_unionized(const 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);
}

__dead void
illegal_tag(int t_lineno, const char *t_line, const 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);
}

__dead void
illegal_character(const 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);
}

__dead void
used_reserved(const 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);
}

__dead void
tokenized_start(const 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);
}

void
retyped_warning(const char *s)
{
   fprintf(stderr, "%s: w - line %d of \"%s\", the type of %s has been \
redeclared\n", myname, lineno, input_file_name, s);
}

void
reprec_warning(const char *s)
{
   fprintf(stderr,
           "%s: w - line %d of \"%s\", the precedence of %s has been \
redeclared\n", myname, lineno, input_file_name, s);
}

void
revalued_warning(const char *s)
{
   fprintf(stderr, "%s: w - line %d of \"%s\", the value of %s has been \
redeclared\n", myname, lineno, input_file_name, s);
}

void
terminal_start(const 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);
}

void
restarted_warning(void)
{
   fprintf(stderr, "%s: w - line %d of \"%s\", the start symbol has been \
redeclared\n", myname, lineno, input_file_name);
}

void
no_grammar(void)
{
   fprintf(stderr, "%s: e - line %d of \"%s\", no grammar has been \
specified\n", myname, lineno, input_file_name);
   done(1);
}

void
terminal_lhs(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);
}

void
prec_redeclared(void)
{
   fprintf(stderr, "%s: w - line %d of  \"%s\", conflicting %%prec \
specifiers\n", myname, lineno, input_file_name);
}

void
unterminated_action(const struct ainfo *a)
{
   fprintf(stderr, "%s: e - line %d of \"%s\", unterminated action\n",
           myname, a->a_lineno, input_file_name);
   print_pos(a->a_line, a->a_cptr);
   done(1);
}

void
dollar_warning(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);
}

__dead void
dollar_error(int a_lineno, const char *a_line, const 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);
}

void
dislocations_warning(void)
{
   fprintf(stderr, "%s: e - line %d of \"%s\", expected %%locations\n",
           myname, lineno, input_file_name);
}

__dead void
untyped_lhs(void)
{
   fprintf(stderr, "%s: e - line %d of \"%s\", $$ is untyped\n",
           myname, lineno, input_file_name);
   done(1);
}

__dead void
untyped_rhs(int i, const char *s)
{
   fprintf(stderr, "%s: e - line %d of \"%s\", $%d (%s) is untyped\n",
           myname, lineno, input_file_name, i, s);
   done(1);
}

__dead void
unknown_rhs(int i)
{
   fprintf(stderr, "%s: e - line %d of \"%s\", $%d is untyped\n",
           myname, lineno, input_file_name, i);
   done(1);
}

void
default_action_warning(const char *s)
{
   fprintf(stderr,
           "%s: w - line %d of \"%s\", the default action for %s assigns an \
undefined value to $$\n",
           myname, lineno, input_file_name, s);
}

void
undefined_goal(const char *s)
{
   fprintf(stderr, "%s: e - the start symbol %s is undefined\n", myname, s);
   done(1);
}

void
undefined_symbol_warning(const char *s)
{
   fprintf(stderr, "%s: w - the symbol %s is undefined\n", myname, s);
}

#if ! defined(YYBTYACC)
void
unsupported_flag_warning(const char *flag, const char *details)
{
   fprintf(stderr, "%s: w - %s flag unsupported, %s\n",
           myname, flag, details);
}
#endif

#if defined(YYBTYACC)
void
at_warning(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);
}

void
at_error(int a_lineno, const char *a_line, const char *a_cptr)
{
   fprintf(stderr,
           "%s: e - line %d of \"%s\", illegal @$ or @N reference\n",
           myname, a_lineno, input_file_name);
   print_pos(a_line, a_cptr);
   done(1);
}

void
unterminated_arglist(const struct ainfo *a)
{
   fprintf(stderr,
           "%s: e - line %d of \"%s\", unterminated argument list\n",
           myname, a->a_lineno, input_file_name);
   print_pos(a->a_line, a->a_cptr);
   done(1);
}

void
arg_number_disagree_warning(int a_lineno, const char *a_name)
{
   fprintf(stderr, "%s: w - line %d of \"%s\", number of arguments of %s "
           "doesn't agree with previous declaration\n",
           myname, a_lineno, input_file_name, a_name);
}

void
bad_formals(void)
{
   fprintf(stderr, "%s: e - line %d of \"%s\", bad formal argument list\n",
           myname, lineno, input_file_name);
   print_pos(line, cptr);
   done(1);
}

void
arg_type_disagree_warning(int a_lineno, int i, const char *a_name)
{
   fprintf(stderr, "%s: w - line %d of \"%s\", type of argument %d "
           "to %s doesn't agree with previous declaration\n",
           myname, a_lineno, input_file_name, i, a_name);
}

void
unknown_arg_warning(int d_lineno, const char *dlr_opt,
                   const char *d_arg,
                   const char *d_line,
                   const char *d_cptr)
{
   fprintf(stderr, "%s: w - line %d of \"%s\", unknown argument %s%s\n",
           myname, d_lineno, input_file_name, dlr_opt, d_arg);
   print_pos(d_line, d_cptr);
}

void
untyped_arg_warning(int a_lineno, const char *dlr_opt, const char *a_name)
{
   fprintf(stderr, "%s: w - line %d of \"%s\", untyped argument %s%s\n",
           myname, a_lineno, input_file_name, dlr_opt, a_name);
}

void
wrong_number_args_warning(const char *which, const char *a_name)
{
   fprintf(stderr,
           "%s: w - line %d of \"%s\", wrong number of %sarguments for %s\n",
           myname, lineno, input_file_name, which, a_name);
   print_pos(line, cptr);
}

void
wrong_type_for_arg_warning(int i, const char *a_name)
{
   fprintf(stderr,
           "%s: w - line %d of \"%s\", wrong type for default argument %d to %s\n",
           myname, lineno, input_file_name, i, a_name);
   print_pos(line, cptr);
}

void
start_requires_args(const char *a_name)
{
   fprintf(stderr,
           "%s: w - line %d of \"%s\", start symbol %s requires arguments\n",
           myname, 0, input_file_name, a_name);

}

void
destructor_redeclared_warning(const struct ainfo *a)
{
   fprintf(stderr, "%s: w - line %d of \"%s\", destructor redeclared\n",
           myname, a->a_lineno, input_file_name);
   print_pos(a->a_line, a->a_cptr);
}
#endif

You are viewing proxied material from ftp.icm.edu.pl. The copyright of proxied material belongs to its original authors. Any comments or complaints in relation to proxied material should be directed to the original authors of the content concerned. Please see the disclaimer for more details.