|
Packit Service |
f629e6 |
/*
|
|
Packit Service |
f629e6 |
* msg.c - routines for error messages.
|
|
Packit Service |
f629e6 |
*/
|
|
Packit Service |
f629e6 |
|
|
Packit Service |
f629e6 |
/*
|
|
Packit Service |
f629e6 |
* Copyright (C) 1986, 1988, 1989, 1991-2001, 2003, 2010-2013, 2017, 2018,
|
|
Packit Service |
f629e6 |
* the Free Software Foundation, Inc.
|
|
Packit Service |
f629e6 |
*
|
|
Packit Service |
f629e6 |
* This file is part of GAWK, the GNU implementation of the
|
|
Packit Service |
f629e6 |
* AWK Programming Language.
|
|
Packit Service |
f629e6 |
*
|
|
Packit Service |
f629e6 |
* GAWK is free software; you can redistribute it and/or modify
|
|
Packit Service |
f629e6 |
* it under the terms of the GNU General Public License as published by
|
|
Packit Service |
f629e6 |
* the Free Software Foundation; either version 2, or (at your option)
|
|
Packit Service |
f629e6 |
* any later version.
|
|
Packit Service |
f629e6 |
*
|
|
Packit Service |
f629e6 |
* GAWK is distributed in the hope that it will be useful,
|
|
Packit Service |
f629e6 |
* but WITHOUT ANY WARRANTY; without even the implied warranty of
|
|
Packit Service |
f629e6 |
* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
|
|
Packit Service |
f629e6 |
* GNU General Public License for more details.
|
|
Packit Service |
f629e6 |
*
|
|
Packit Service |
f629e6 |
* You should have received a copy of the GNU General Public License
|
|
Packit Service |
f629e6 |
* along with this program; if not, write to the Free Software
|
|
Packit Service |
f629e6 |
* Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301, USA
|
|
Packit Service |
f629e6 |
*/
|
|
Packit Service |
f629e6 |
|
|
Packit Service |
f629e6 |
#include "awk.h"
|
|
Packit Service |
f629e6 |
|
|
Packit Service |
f629e6 |
extern FILE *output_fp;
|
|
Packit Service |
f629e6 |
int sourceline = 0;
|
|
Packit Service |
f629e6 |
char *source = NULL;
|
|
Packit Service |
f629e6 |
static const char *srcfile = NULL;
|
|
Packit Service |
f629e6 |
static int srcline;
|
|
Packit Service |
f629e6 |
|
|
Packit Service |
f629e6 |
jmp_buf fatal_tag;
|
|
Packit Service |
f629e6 |
int fatal_tag_valid = 0;
|
|
Packit Service |
f629e6 |
|
|
Packit Service |
f629e6 |
/* err --- print an error message with source line and file and record */
|
|
Packit Service |
f629e6 |
|
|
Packit Service |
f629e6 |
/* VARARGS2 */
|
|
Packit Service |
f629e6 |
void
|
|
Packit Service |
f629e6 |
err(bool isfatal, const char *s, const char *emsg, va_list argp)
|
|
Packit Service |
f629e6 |
{
|
|
Packit Service |
f629e6 |
char *file;
|
|
Packit Service |
f629e6 |
const char *me;
|
|
Packit Service |
f629e6 |
|
|
Packit Service |
f629e6 |
static bool first = true;
|
|
Packit Service |
f629e6 |
static bool add_src_info = false;
|
|
Packit Service |
f629e6 |
|
|
Packit Service |
f629e6 |
if (first) {
|
|
Packit Service |
f629e6 |
first = false;
|
|
Packit Service |
f629e6 |
add_src_info = (getenv("GAWK_MSG_SRC") != NULL);
|
|
Packit Service |
f629e6 |
}
|
|
Packit Service |
f629e6 |
|
|
Packit Service |
f629e6 |
(void) fflush(output_fp);
|
|
Packit Service |
f629e6 |
me = myname;
|
|
Packit Service |
f629e6 |
(void) fprintf(stderr, "%s: ", me);
|
|
Packit Service |
f629e6 |
|
|
Packit Service |
f629e6 |
if (srcfile != NULL && add_src_info) {
|
|
Packit Service |
f629e6 |
fprintf(stderr, "%s:%d:", srcfile, srcline);
|
|
Packit Service |
f629e6 |
srcfile = NULL;
|
|
Packit Service |
f629e6 |
}
|
|
Packit Service |
f629e6 |
|
|
Packit Service |
f629e6 |
if (sourceline > 0) {
|
|
Packit Service |
f629e6 |
if (source != NULL)
|
|
Packit Service |
f629e6 |
(void) fprintf(stderr, "%s:", source);
|
|
Packit Service |
f629e6 |
else
|
|
Packit Service |
f629e6 |
(void) fprintf(stderr, _("cmd. line:"));
|
|
Packit Service |
f629e6 |
|
|
Packit Service |
f629e6 |
(void) fprintf(stderr, "%d: ", sourceline);
|
|
Packit Service |
f629e6 |
}
|
|
Packit Service |
f629e6 |
|
|
Packit Service |
f629e6 |
#ifdef HAVE_MPFR
|
|
Packit Service |
f629e6 |
if (FNR_node && is_mpg_number(FNR_node->var_value)) {
|
|
Packit Service |
f629e6 |
NODE *val;
|
|
Packit Service |
f629e6 |
val = mpg_update_var(FNR_node);
|
|
Packit Service |
f629e6 |
assert((val->flags & MPZN) != 0);
|
|
Packit Service |
f629e6 |
if (mpz_sgn(val->mpg_i) > 0) {
|
|
Packit Service |
f629e6 |
int len = FILENAME_node->var_value->stlen;
|
|
Packit Service |
f629e6 |
file = FILENAME_node->var_value->stptr;
|
|
Packit Service |
f629e6 |
(void) putc('(', stderr);
|
|
Packit Service |
f629e6 |
if (file)
|
|
Packit Service |
f629e6 |
(void) fprintf(stderr, "FILENAME=%.*s ", len, file);
|
|
Packit Service |
f629e6 |
(void) mpfr_fprintf(stderr, "FNR=%Zd) ", val->mpg_i);
|
|
Packit Service |
f629e6 |
}
|
|
Packit Service |
f629e6 |
} else
|
|
Packit Service |
f629e6 |
#endif
|
|
Packit Service |
f629e6 |
if (FNR > 0) {
|
|
Packit Service |
f629e6 |
int len = FILENAME_node->var_value->stlen;
|
|
Packit Service |
f629e6 |
file = FILENAME_node->var_value->stptr;
|
|
Packit Service |
f629e6 |
(void) putc('(', stderr);
|
|
Packit Service |
f629e6 |
if (file)
|
|
Packit Service |
f629e6 |
(void) fprintf(stderr, "FILENAME=%.*s ", len, file);
|
|
Packit Service |
f629e6 |
(void) fprintf(stderr, "FNR=%ld) ", FNR);
|
|
Packit Service |
f629e6 |
}
|
|
Packit Service |
f629e6 |
|
|
Packit Service |
f629e6 |
(void) fprintf(stderr, "%s", s);
|
|
Packit Service |
f629e6 |
vfprintf(stderr, emsg, argp);
|
|
Packit Service |
f629e6 |
(void) fprintf(stderr, "\n");
|
|
Packit Service |
f629e6 |
(void) fflush(stderr);
|
|
Packit Service |
f629e6 |
|
|
Packit Service |
f629e6 |
if (isfatal) {
|
|
Packit Service |
f629e6 |
#ifdef GAWKDEBUG
|
|
Packit Service |
f629e6 |
// GLIBC 2.27 doesn't necessarily flush on abort. Sigh.
|
|
Packit Service |
f629e6 |
fflush(NULL);
|
|
Packit Service |
f629e6 |
abort();
|
|
Packit Service |
f629e6 |
#endif
|
|
Packit Service |
f629e6 |
gawk_exit(EXIT_FATAL);
|
|
Packit Service |
f629e6 |
}
|
|
Packit Service |
f629e6 |
}
|
|
Packit Service |
f629e6 |
|
|
Packit Service |
f629e6 |
/* msg --- take a varargs error message and print it */
|
|
Packit Service |
f629e6 |
|
|
Packit Service |
f629e6 |
void
|
|
Packit Service |
f629e6 |
msg(const char *mesg, ...)
|
|
Packit Service |
f629e6 |
{
|
|
Packit Service |
f629e6 |
va_list args;
|
|
Packit Service |
f629e6 |
va_start(args, mesg);
|
|
Packit Service |
f629e6 |
err(false, "", mesg, args);
|
|
Packit Service |
f629e6 |
va_end(args);
|
|
Packit Service |
f629e6 |
}
|
|
Packit Service |
f629e6 |
|
|
Packit Service |
f629e6 |
/* r_warning --- print a warning message */
|
|
Packit Service |
f629e6 |
|
|
Packit Service |
f629e6 |
void
|
|
Packit Service |
f629e6 |
r_warning(const char *mesg, ...)
|
|
Packit Service |
f629e6 |
{
|
|
Packit Service |
f629e6 |
va_list args;
|
|
Packit Service |
f629e6 |
va_start(args, mesg);
|
|
Packit Service |
f629e6 |
err(false, _("warning: "), mesg, args);
|
|
Packit Service |
f629e6 |
va_end(args);
|
|
Packit Service |
f629e6 |
}
|
|
Packit Service |
f629e6 |
|
|
Packit Service |
f629e6 |
void
|
|
Packit Service |
f629e6 |
error(const char *mesg, ...)
|
|
Packit Service |
f629e6 |
{
|
|
Packit Service |
f629e6 |
va_list args;
|
|
Packit Service |
f629e6 |
va_start(args, mesg);
|
|
Packit Service |
f629e6 |
err(false, _("error: "), mesg, args);
|
|
Packit Service |
f629e6 |
va_end(args);
|
|
Packit Service |
f629e6 |
}
|
|
Packit Service |
f629e6 |
|
|
Packit Service |
f629e6 |
/* set_loc --- set location where a fatal error happened */
|
|
Packit Service |
f629e6 |
|
|
Packit Service |
f629e6 |
void
|
|
Packit Service |
f629e6 |
set_loc(const char *file, int line)
|
|
Packit Service |
f629e6 |
{
|
|
Packit Service |
f629e6 |
srcfile = file;
|
|
Packit Service |
f629e6 |
srcline = line;
|
|
Packit Service |
f629e6 |
|
|
Packit Service |
f629e6 |
/* This stupid line keeps some compilers happy: */
|
|
Packit Service |
f629e6 |
file = srcfile; line = srcline;
|
|
Packit Service |
f629e6 |
}
|
|
Packit Service |
f629e6 |
|
|
Packit Service |
f629e6 |
/* r_fatal --- print a fatal error message */
|
|
Packit Service |
f629e6 |
|
|
Packit Service |
f629e6 |
void
|
|
Packit Service |
f629e6 |
r_fatal(const char *mesg, ...)
|
|
Packit Service |
f629e6 |
{
|
|
Packit Service |
f629e6 |
va_list args;
|
|
Packit Service |
f629e6 |
va_start(args, mesg);
|
|
Packit Service |
f629e6 |
err(true, _("fatal: "), mesg, args);
|
|
Packit Service |
f629e6 |
va_end(args);
|
|
Packit Service |
f629e6 |
}
|
|
Packit Service |
f629e6 |
|
|
Packit Service |
f629e6 |
/* gawk_exit --- longjmp out if necessary */
|
|
Packit Service |
f629e6 |
|
|
Packit Service |
f629e6 |
void
|
|
Packit Service |
f629e6 |
gawk_exit(int status)
|
|
Packit Service |
f629e6 |
{
|
|
Packit Service |
f629e6 |
if (fatal_tag_valid) {
|
|
Packit Service |
f629e6 |
exit_val = status;
|
|
Packit Service |
f629e6 |
longjmp(fatal_tag, 1);
|
|
Packit Service |
f629e6 |
}
|
|
Packit Service |
f629e6 |
|
|
Packit Service |
f629e6 |
final_exit(status);
|
|
Packit Service |
f629e6 |
}
|
|
Packit Service |
f629e6 |
|
|
Packit Service |
f629e6 |
/* final_exit --- run extension exit handlers and exit */
|
|
Packit Service |
f629e6 |
|
|
Packit Service |
f629e6 |
void
|
|
Packit Service |
f629e6 |
final_exit(int status)
|
|
Packit Service |
f629e6 |
{
|
|
Packit Service |
f629e6 |
/* run any extension exit handlers */
|
|
Packit Service |
f629e6 |
run_ext_exit_handlers(status);
|
|
Packit Service |
f629e6 |
|
|
Packit Service |
f629e6 |
/* we could close_io() here */
|
|
Packit Service |
f629e6 |
close_extensions();
|
|
Packit Service |
f629e6 |
|
|
Packit Service |
f629e6 |
exit(status);
|
|
Packit Service |
f629e6 |
}
|