#include "config.h"
#include <stdio.h>
#include <stdlib.h>
#include <stddef.h>
#include <string.h>
#include <ctype.h>
#include <stdarg.h>
#include "cobc.h"
#include "tree.h"

Include dependency graph for error.c:

Functions
static void	print_error (const char file, int line, const char prefix, const char *fmt, va_list ap)

void	cb_warning (const char *fmt,...)

void	cb_error (const char *fmt,...)

void	cb_plex_warning (const size_t sline, const char *fmt,...)

void	cb_plex_error (const size_t sline, const char *fmt,...)

void	configuration_warning (const char fname, const int line, const char fmt,...)

void	configuration_error (const char fname, const int line, const int finish_error, const char fmt,...)

void	cb_warning_x (cb_tree x, const char *fmt,...)

void	cb_error_x (cb_tree x, const char *fmt,...)

unsigned int	cb_verify (const enum cb_support tag, const char *feature)

void	redefinition_error (cb_tree x)

void	redefinition_warning (cb_tree x, cb_tree y)

void	undefined_error (cb_tree x)

void	ambiguous_error (cb_tree x)

void	group_error (cb_tree x, const char *clause)

void	level_redundant_error (cb_tree x, const char *clause)

void	level_require_error (cb_tree x, const char *clause)

void	level_except_error (cb_tree x, const char *clause)

Variables
static char *	errnamebuff = ((void*)0)

static struct cb_label *	last_section = ((void*)0)

static struct cb_label *	last_paragraph = ((void*)0)

static int	conf_error_displayed = 0

static int	last_error_line = 0

static const char *	last_error_file = "Unknown"

size_t	cb_msg_style

Function Documentation

void ambiguous_error ( cb_tree x )

Definition at line 341 of file error.c.

References _, CB_CHAIN, cb_error_x(), CB_FIELD, CB_LABEL, cb_name(), CB_NAME, CB_REFERENCE, CB_TAG_FIELD, CB_TAG_LABEL, CB_TREE, CB_TREE_TAG, CB_VALUE, COB_NORMAL_BUFF, COB_NORMAL_MAX, cobc_main_malloc(), errnamebuff, cb_word::error, cb_word::items, cb_label::name, cb_word::name, cb_field::parent, and cb_label::section.

Referenced by cb_ref().

 {
     struct cb_word  *w;
     struct cb_field *p;
     struct cb_label *l2;
     cb_tree     l;
     cb_tree     y;
 
     w = CB_REFERENCE (x)->word;
     if (w->error == 0) {
         if (!errnamebuff) {
             errnamebuff = cobc_main_malloc ((size_t)COB_NORMAL_BUFF);
         }
         /* Display error the first time */
         snprintf (errnamebuff, (size_t)COB_NORMAL_MAX, "'%s'", CB_NAME (x));
         errnamebuff[COB_NORMAL_MAX] = 0;
         for (l = CB_REFERENCE (x)->chain; l; l = CB_REFERENCE (l)->chain) {
             strcat (errnamebuff, " in '");
             strcat (errnamebuff, CB_NAME (l));
             strcat (errnamebuff, "'");
         }
         cb_error_x (x, _("%s ambiguous; need qualification"), errnamebuff);
         w->error = 1;
 
         /* Display all fields with the same name */
         for (l = w->items; l; l = CB_CHAIN (l)) {
             y = CB_VALUE (l);
             snprintf (errnamebuff, (size_t)COB_NORMAL_MAX,
                   "'%s' ", w->name);
             errnamebuff[COB_NORMAL_MAX] = 0;
             switch (CB_TREE_TAG (y)) {
             case CB_TAG_FIELD:
                 for (p = CB_FIELD (y)->parent; p; p = p->parent) {
                     strcat (errnamebuff, "in '");
                     strcat (errnamebuff, cb_name (CB_TREE(p)));
                     strcat (errnamebuff, "' ");
                 }
                 break;
             case CB_TAG_LABEL:
                 l2 = CB_LABEL (y);
                 if (l2->section) {
                     strcat (errnamebuff, "in '");
                     strcat (errnamebuff,
                         (const char *)(l2->section->name));
                     strcat (errnamebuff, "' ");
                 }
                 break;
             default:
                 break;
             }
             strcat (errnamebuff, _("defined here"));
             cb_error_x (y, errnamebuff);
         }
     }
 }

Here is the call graph for this function:

Here is the caller graph for this function:

void cb_error	(	const char *	fmt,
			...
	)

Definition at line 98 of file error.c.

References _, cobc_cs_check, cobc_in_repository, cobc_too_many_errors(), errorcount, NULL, and print_error().

Referenced by build_evaluate(), cb_build_const_length(), cb_build_locale_name(), cb_build_picture(), cb_expr_finish(), cb_get_int(), cb_get_long_long(), cb_get_u_long_long(), cb_validate_program_data(), cb_verify(), check_not_88_level(), check_not_both(), check_relaxed_syntax(), cobc_error_name(), decrement_depth(), emit_conflicting_clause_message(), emit_default_displays_for_x_list(), emit_duplicate_clause_message(), error_if_no_advancing_in_screen_display(), error_literal(), error_numeric_literal(), finalize_file(), increment_depth(), lookup_reserved_word(), make_intrinsic(), ppcopy(), pplex(), ppopen(), ppp_define_add(), ppparse(), scan_define_options(), set_up_use_file(), valid_format(), valid_screen_pos(), yylex(), and yyparse().

 {
     va_list ap;
 
     cobc_in_repository = 0;
 #if 0   /* RXWRXW - Is this right? */
     cobc_cs_check = 0;
 #endif
     va_start (ap, fmt);
     print_error (NULL, 0, _("Error: "), fmt, ap);
     va_end (ap);
     if (++errorcount > 100) {
         cobc_too_many_errors ();
     }
 }

Here is the call graph for this function:

Here is the caller graph for this function:

void cb_error_x	(	cb_tree	x,
		const char *	fmt,
			...
	)

Definition at line 233 of file error.c.

References _, cobc_too_many_errors(), errorcount, print_error(), cb_tree_common::source_file, and cb_tree_common::source_line.

Referenced by ambiguous_error(), begin_scope_of_program_name(), cb_build_address(), cb_build_binary_op(), cb_build_cond(), cb_build_display_mnemonic(), cb_build_display_name(), cb_build_field_tree(), cb_build_identifier(), cb_build_intrinsic(), cb_build_replacing_characters(), cb_build_tallying_all(), cb_build_tallying_characters(), cb_build_tallying_leading(), cb_build_tallying_trailing(), cb_build_tallying_value(), cb_build_write_advancing_mnemonic(), cb_check_group_name(), cb_check_integer_value(), cb_check_numeric_edited_name(), cb_check_numeric_name(), cb_check_numeric_value(), cb_concat_literals(), cb_define_switch_name(), cb_emit_accept(), cb_emit_accept_mnemonic(), cb_emit_accept_name(), cb_emit_allocate(), cb_emit_call(), cb_emit_close(), cb_emit_delete(), cb_emit_delete_file(), cb_emit_display(), cb_emit_free(), cb_emit_goto(), cb_emit_initialize(), cb_emit_inspect(), cb_emit_move(), cb_emit_open(), cb_emit_read(), cb_emit_release(), cb_emit_rewrite(), cb_emit_set_attribute(), cb_emit_set_false(), cb_emit_set_to(), cb_emit_set_true(), cb_emit_sort_giving(), cb_emit_sort_init(), cb_emit_sort_using(), cb_emit_start(), cb_emit_write(), cb_expr_finish(), cb_get_level(), cb_resolve_redefines(), cb_validate_88_item(), cb_validate_collating(), cb_validate_one(), cb_validate_program_body(), cb_validate_program_data(), cb_validate_program_environment(), check_for_duplicate_prototype(), check_picture_item(), check_valid_key(), compute_size(), emit_entry(), evaluate_test(), file_error(), group_error(), level_except_error(), level_redundant_error(), level_require_error(), redefinition_error(), search_set_keys(), terminator_error(), undefined_error(), valid_const_date_time_args(), validate_field_1(), validate_field_clauses(), validate_inspect(), validate_move(), warn_cannot_get_utc(), and yyparse().

 {
     va_list ap;
 
     va_start (ap, fmt);
     print_error (x->source_file, x->source_line, _("Error: "), fmt, ap);
     va_end (ap);
     if (++errorcount > 100) {
         cobc_too_many_errors ();
     }
 }

Here is the call graph for this function:

void cb_plex_error	(	const size_t	sline,
		const char *	fmt,
			...
	)

Definition at line 130 of file error.c.

References _, cb_source_line, cobc_too_many_errors(), errorcount, NULL, and print_error().

Referenced by plex_action_directive(), ppinput(), and ppparse_error().

 {
     va_list ap;
 
     va_start (ap, fmt);
     print_error (NULL, (int)(cb_source_line + sline), _("Error: "), fmt, ap);
     va_end (ap);
     if (++errorcount > 100) {
         cobc_too_many_errors ();
     }
 }

Here is the call graph for this function:

Here is the caller graph for this function:

void cb_plex_warning	(	const size_t	sline,
		const char *	fmt,
			...
	)

Definition at line 119 of file error.c.

References _, cb_source_line, NULL, print_error(), and warningcount.

Referenced by ppinput(), and pplex().

 {
     va_list ap;
 
     va_start (ap, fmt);
     print_error (NULL, (int)(cb_source_line + sline), _("Warning: "), fmt, ap);
     va_end (ap);
     warningcount++;
 }

Here is the call graph for this function:

Here is the caller graph for this function:

unsigned int cb_verify	(	const enum cb_support	tag,
		const char *	feature
	)

Definition at line 246 of file error.c.

References _, CB_ARCHAIC, cb_error(), CB_ERROR, CB_IGNORE, CB_OBSOLETE, CB_OK, CB_SKIP, CB_UNCONFORMABLE, cb_warning(), CB_WARNING, and warningopt.

Referenced by cb_emit_goto(), check_comments(), compute_size(), ppinput(), pplex(), scan_b(), scan_h(), scan_o(), validate_field_1(), and yyparse().

 {
     switch (tag) {
     case CB_OK:
         return 1;
     case CB_WARNING:
         cb_warning (_("%s used"), feature);
         return 1;
     case CB_ARCHAIC:
         if (cb_warn_archaic) {
             cb_warning (_("%s is archaic in %s"), feature, cb_config_name);
         }
         return 1;
     case CB_OBSOLETE:
         if (cb_warn_obsolete) {
             cb_warning (_("%s is obsolete in %s"), feature, cb_config_name);
         }
         return 1;
     case CB_SKIP:
         return 0;
     case CB_IGNORE:
         if (warningopt) {
             cb_warning (_("%s ignored"), feature);
         }
         return 0;
     case CB_ERROR:
         cb_error (_("%s used"), feature);
         return 0;
     case CB_UNCONFORMABLE:
         cb_error (_("%s does not conform to %s"), feature, cb_config_name);
         return 0;
     default:
         break;
     }
     return 0;
 }

Here is the call graph for this function:

Here is the caller graph for this function:

void cb_warning	(	const char *	fmt,
			...
	)

Definition at line 87 of file error.c.

References _, NULL, print_error(), and warningcount.

Referenced by begin_statement(), cb_build_assignment_name(), cb_emit_call(), cb_emit_read(), cb_validate_program_data(), cb_verify(), check_relaxed_syntax(), emit_conflicting_clause_message(), emit_duplicate_clause_message(), emit_entry(), expr_reduce(), ppp_compare_vals(), ppparse(), read_literal(), warning_destination(), yylex(), and yyparse().

 {
     va_list ap;
 
     va_start (ap, fmt);
     print_error (NULL, 0, _("Warning: "), fmt, ap);
     va_end (ap);
     warningcount++;
 }

Here is the call graph for this function:

Here is the caller graph for this function:

void cb_warning_x	(	cb_tree	x,
		const char *	fmt,
			...
	)

Definition at line 222 of file error.c.

References _, print_error(), cb_tree_common::source_file, cb_tree_common::source_line, and warningcount.

Referenced by cb_build_address(), cb_build_display_name(), cb_build_field_tree(), cb_build_identifier(), cb_check_overlapping(), cb_emit_accept_name(), cb_emit_call(), cb_emit_corresponding(), cb_emit_move_corresponding(), cb_validate_program_body(), cb_validate_program_environment(), check_for_duplicate_prototype(), check_picture_item(), check_prototype_redefines_current_func(), check_prototype_seen(), compute_size(), move_warning(), redefinition_warning(), terminator_warning(), undefined_error(), valid_const_date_time_args(), validate_field_1(), validate_move(), warn_cannot_get_utc(), warning_destination(), and yyparse().

 {
     va_list ap;
 
     va_start (ap, fmt);
     print_error (x->source_file, x->source_line, _("Warning: "), fmt, ap);
     va_end (ap);
     warningcount++;
 }

Here is the call graph for this function:

Here is the caller graph for this function:

void configuration_error	(	const char *	fname,
		const int	line,
		const int	finish_error,
		const char *	fmt,
			...
	)

Definition at line 178 of file error.c.

References _, conf_error_displayed, last_error_file, last_error_line, and line.

Referenced by cb_config_entry(), cb_load_conf(), cb_load_conf_file(), get_user_specified_reserved_word(), invalid_value(), and unsupported_value().

 {
     va_list args;
 
     if (!conf_error_displayed) {
         conf_error_displayed = 1;
         fputs (_("Configuration Error"), stderr);
         putc ('\n', stderr);
     }
 
 
     /* Prefix */
     if (fname != last_error_file
         || line != last_error_line) {
         last_error_file = fname;
         last_error_line = line;
         if (fname) {
             fprintf (stderr, "%s: ", fname);
         } else {
             fputs ("cb_conf: ", stderr);
         }
         if (line) {
             fprintf (stderr, "%d: ", line);
         }
     }
 
     /* Body */
     va_start(args, fmt);
     vfprintf (stderr, fmt, args);
     va_end(args);
 
     /* Postfix */
     if (!finish_error) {
         putc(';', stderr);
         putc('\n', stderr);
         putc('\t', stderr);
     } else {
         putc('\n', stderr);
         fflush(stderr);
     }
 }

Here is the caller graph for this function:

void configuration_warning	(	const char *	fname,
		const int	line,
		const char *	fmt,
			...
	)

Definition at line 144 of file error.c.

References _, conf_error_displayed, last_error_file, last_error_line, and line.

Referenced by cb_load_conf(), and initialize_alias_for().

 {
     va_list args;
 
     conf_error_displayed = 0;
     fputs (_("Configuration Warning"), stderr);
     fputs (": ", stderr);
 
 
     /* Prefix */
     if (fname != last_error_file
         || line != last_error_line) {
         last_error_file = fname;
         last_error_line = line;
         if (fname) {
             fprintf (stderr, "%s: ", fname);
         } else {
             fputs ("cb_conf: ", stderr);
         }
         if (line) {
             fprintf (stderr, "%d: ", line);
         }
     }
 
     /* Body */
     va_start(args, fmt);
     vfprintf (stderr, fmt, args);
     va_end(args);
 
     /* Postfix */
     putc('\n', stderr);
     fflush(stderr);
 }

Here is the caller graph for this function:

void group_error	(	cb_tree	x,
		const char *	clause
	)

Definition at line 398 of file error.c.

References _, cb_error_x(), and cb_name().

Referenced by validate_field_1().

 {
     cb_error_x (x, _("Group item '%s' cannot have %s clause"),
             cb_name (x), clause);
 }

Here is the call graph for this function:

Here is the caller graph for this function:

void level_except_error	(	cb_tree	x,
		const char *	clause
	)

Definition at line 441 of file error.c.

References _, cb_error_x(), CB_FIELD_PTR, cb_name(), cb_field::flag_item_78, and cb_field::level.

Referenced by cb_validate_78_item(), cb_validate_88_item(), and validate_field_1().

 {
     const char      *s;
     const struct cb_field   *f;
 
     s = cb_name (x);
     f = CB_FIELD_PTR (x);
     if (f->flag_item_78) {
         cb_error_x (x, _("Constant item '%s' can only have a %s clause"),
                 s, clause);
     } else {
         cb_error_x (x, _("Level %02d item '%s' can only have a %s clause"),
                 f->level,
                 s, clause);
     }
 }

Here is the call graph for this function:

Here is the caller graph for this function:

void level_redundant_error	(	cb_tree	x,
		const char *	clause
	)

Definition at line 405 of file error.c.

References _, cb_error_x(), CB_FIELD_PTR, cb_name(), cb_field::flag_item_78, and cb_field::level.

Referenced by validate_field_1().

 {
     const char      *s;
     const struct cb_field   *f;
 
     s = cb_name (x);
     f = CB_FIELD_PTR (x);
     if (f->flag_item_78) {
         cb_error_x (x, _("Constant item '%s' cannot have a %s clause"),
                 s, clause);
     } else {
         cb_error_x (x, _("Level %02d item '%s' cannot have a %s clause"),
                 f->level,
                 s, clause);
     }
 }

Here is the call graph for this function:

Here is the caller graph for this function:

void level_require_error	(	cb_tree	x,
		const char *	clause
	)

Definition at line 423 of file error.c.

References _, cb_error_x(), CB_FIELD_PTR, cb_name(), cb_field::flag_item_78, and cb_field::level.

Referenced by cb_validate_78_item(), cb_validate_88_item(), check_picture_item(), and validate_field_1().

 {
     const char      *s;
     const struct cb_field   *f;
 
     s = cb_name (x);
     f = CB_FIELD_PTR (x);
     if (f->flag_item_78) {
         cb_error_x (x, _("Constant item '%s' requires a %s clause"),
                 s, clause);
     } else {
         cb_error_x (x, _("Level %02d item '%s' requires a %s clause"),
                 f->level,
                 s, clause);
     }
 }

Here is the call graph for this function:

Here is the caller graph for this function:

static void print_error	(	const char *	file,
		int	line,
		const char *	prefix,
		const char *	fmt,
		va_list	ap
	)

static

Definition at line 46 of file error.c.

References _, cb_msg_style, CB_MSG_STYLE_MSC, cb_source_file, cb_source_line, current_paragraph, current_section, cb_label::flag_dummy_paragraph, cb_label::flag_dummy_section, and cb_label::name.

Referenced by cb_error(), cb_error_x(), cb_plex_error(), cb_plex_warning(), cb_warning(), and cb_warning_x().

 {
     if (!file) {
         file = cb_source_file;
     }
     if (!line) {
         line = cb_source_line;
     }
 
     /* Print section and/or paragraph name */
     if (current_section != last_section) {
         if (current_section && !current_section->flag_dummy_section) {
             fprintf (stderr, "%s: ", file);
             fputs (_("In section"), stderr);
             fprintf (stderr, " '%s':\n",
                 (char *)current_section->name);
         }
         last_section = current_section;
     }
     if (current_paragraph != last_paragraph) {
         if (current_paragraph && !current_paragraph->flag_dummy_paragraph) {
             fprintf (stderr, "%s: ", file);
             fputs (_("In paragraph"), stderr);
             fprintf (stderr, " '%s':\n",
                 (char *)current_paragraph->name);
         }
         last_paragraph = current_paragraph;
     }
 
     /* Print the error */
     if (cb_msg_style == CB_MSG_STYLE_MSC) {
         fprintf (stderr, "%s (%d): %s", file, line, prefix);
     } else {
         fprintf (stderr, "%s: %d: %s", file, line, prefix);
     }
     vfprintf (stderr, fmt, ap);
     putc ('\n', stderr);
 }

Here is the caller graph for this function:

void redefinition_error ( cb_tree x )

Definition at line 284 of file error.c.

References _, cb_error_x(), CB_REFERENCE, CB_VALUE, cb_word::items, and cb_word::name.

Referenced by cb_build_section_name(), cb_validate_program_data(), check_for_duplicate_prototype(), and yyparse().

 {
     struct cb_word  *w;
 
     w = CB_REFERENCE (x)->word;
     cb_error_x (x, _("Redefinition of '%s'"), w->name);
     if (w->items) {
         cb_error_x (CB_VALUE (w->items),
                 _("'%s' previously defined here"), w->name);
     }
 }

Here is the call graph for this function:

Here is the caller graph for this function:

void redefinition_warning	(	cb_tree	x,
		cb_tree	y
	)

Definition at line 297 of file error.c.

References _, CB_REFERENCE, CB_VALUE, cb_warning_x(), cb_word::items, cb_word::name, and NULL.

Referenced by cb_build_field_tree().

 {
     struct cb_word  *w;
     cb_tree     z;
 
     w = CB_REFERENCE (x)->word;
     cb_warning_x (x, _("Redefinition of '%s'"), w->name);
     z = NULL;
     if (y) {
         z = y;
     } else if (w->items) {
         z = CB_VALUE (w->items);
     }
 
     if (z) {
         cb_warning_x (z, _("'%s' previously defined here"), w->name);
     }
 }

Here is the call graph for this function:

Here is the caller graph for this function:

void undefined_error ( cb_tree x )

Definition at line 317 of file error.c.

References _, cb_error_x(), CB_NAME, CB_REFERENCE, cb_warning_x(), cb_reference::chain, COB_NORMAL_BUFF, COB_NORMAL_MAX, cobc_main_malloc(), errnamebuff, and cb_reference::flag_optional.

Referenced by cb_ref(), and cb_resolve_redefines().

 {
     struct cb_reference *r;
     cb_tree         c;
 
     if (!errnamebuff) {
         errnamebuff = cobc_main_malloc ((size_t)COB_NORMAL_BUFF);
     }
     r = CB_REFERENCE (x);
     snprintf (errnamebuff, (size_t)COB_NORMAL_MAX, "'%s'", CB_NAME (x));
     errnamebuff[COB_NORMAL_MAX] = 0;
     for (c = r->chain; c; c = CB_REFERENCE (c)->chain) {
         strcat (errnamebuff, " in '");
         strcat (errnamebuff, CB_NAME (c));
         strcat (errnamebuff, "'");
     }
     if (r->flag_optional) {
         cb_warning_x (x, _("%s is not defined"), errnamebuff);
     } else {
         cb_error_x (x, _("%s is not defined"), errnamebuff);
     }
 }