contrib/awk/msg.c

   1 /*
   2  * msg.c - routines for error messages
   3  */
   4
   5 /*
   6  * Copyright (C) 1986, 1988, 1989, 1991-2000 the Free Software Foundation, Inc.
   7  *
   8  * This file is part of GAWK, the GNU implementation of the
   9  * AWK Programming Language.
  10  *
  11  * GAWK is free software; you can redistribute it and/or modify
  12  * it under the terms of the GNU General Public License as published by
  13  * the Free Software Foundation; either version 2, or (at your option)
  14  * any later version.
  15  *
  16  * GAWK is distributed in the hope that it will be useful,
  17  * but WITHOUT ANY WARRANTY; without even the implied warranty of
  18  * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  19  * GNU General Public License for more details.
  20  *
  21  * You should have received a copy of the GNU General Public License
  22  * along with this program; if not, write to the Free Software
  23  * Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA  02111-1307, USA
  24  */
  25
  26 #include "awk.h"
  27
  28 int sourceline = 0;
  29 char *source = NULL;
  30
  31 static char *srcfile = NULL;
  32 static int srcline;
  33
  34 /* prototype needed for ansi / gcc */
  35 void err P((const char *s, const char *emsg, va_list argp));
  36
  37 /* err --- print an error message with source line and file and record */
  38
  39 /* VARARGS2 */
  40 void
  41 err(s, emsg, argp)
  42 const char *s;
  43 const char *emsg;
  44 va_list argp;
  45 {
  46         char *file;
  47
  48         (void) fflush(stdout);
  49         (void) fprintf(stderr, "%s: ", myname);
  50 #ifdef DEBUG
  51         if (srcfile != NULL) {
  52                 fprintf(stderr, "%s:%d:", srcfile, srcline);
  53                 srcfile = NULL;
  54         }
  55 #endif /* DEBUG */
  56         if (sourceline != 0) {
  57                 if (source != NULL)
  58                         (void) fprintf(stderr, "%s:", source);
  59                 else
  60                         (void) fprintf(stderr, "cmd. line:");
  61
  62                 (void) fprintf(stderr, "%d: ", sourceline);
  63         }
  64         if (FNR > 0) {
  65                 file = FILENAME_node->var_value->stptr;
  66                 (void) putc('(', stderr);
  67                 if (file)
  68                         (void) fprintf(stderr, "FILENAME=%s ", file);
  69                 (void) fprintf(stderr, "FNR=%ld) ", FNR);
  70         }
  71         (void) fprintf(stderr, s);
  72         vfprintf(stderr, emsg, argp);
  73         (void) fprintf(stderr, "\n");
  74         (void) fflush(stderr);
  75 }
  76
  77 /* msg --- take a varargs error message and print it */
  78
  79 #if defined(HAVE_STDARG_H) && defined(__STDC__) && __STDC__
  80 void
  81 msg(char *mesg, ...)
  82 #else
  83 /*VARARGS0*/
  84 void
  85 msg(va_alist)
  86 va_dcl
  87 #endif
  88 {
  89         va_list args;
  90 #if defined(HAVE_STDARG_H) && defined(__STDC__) && __STDC__
  91         va_start(args, mesg);
  92 #else
  93         char *mesg;
  94
  95         va_start(args);
  96         mesg = va_arg(args, char *);
  97 #endif
  98         err("", mesg, args);
  99         va_end(args);
 100 }
 101
 102 /* warning --- print a warning message */
 103
 104 #if defined(HAVE_STDARG_H) && defined(__STDC__) && __STDC__
 105 void
 106 warning(char *mesg, ...)
 107 #else
 108 /*VARARGS0*/
 109 void
 110 warning(va_alist)
 111 va_dcl
 112 #endif
 113 {
 114         va_list args;
 115 #if defined(HAVE_STDARG_H) && defined(__STDC__) && __STDC__
 116         va_start(args, mesg);
 117 #else
 118         char *mesg;
 119
 120         va_start(args);
 121         mesg = va_arg(args, char *);
 122 #endif
 123         err("warning: ", mesg, args);
 124         va_end(args);
 125 }
 126
 127 #if defined(HAVE_STDARG_H) && defined(__STDC__) && __STDC__
 128 void
 129 error(char *mesg, ...)
 130 #else
 131 /*VARARGS0*/
 132 void
 133 error(va_alist)
 134 va_dcl
 135 #endif
 136 {
 137         va_list args;
 138 #if defined(HAVE_STDARG_H) && defined(__STDC__) && __STDC__
 139         va_start(args, mesg);
 140 #else
 141         char *mesg;
 142
 143         va_start(args);
 144         mesg = va_arg(args, char *);
 145 #endif
 146         err("error: ", mesg, args);
 147         va_end(args);
 148 }
 149
 150 /* set_loc --- set location where a fatal error happened */
 151
 152 void
 153 set_loc(file, line)
 154 char *file;
 155 int line;
 156 {
 157         srcfile = file;
 158         srcline = line;
 159 }
 160
 161 /* fatal --- print an error message and die */
 162
 163 #if defined(HAVE_STDARG_H) && defined(__STDC__) && __STDC__
 164 void
 165 r_fatal(char *mesg, ...)
 166 #else
 167 /*VARARGS0*/
 168 void
 169 r_fatal(va_alist)
 170 va_dcl
 171 #endif
 172 {
 173         va_list args;
 174 #if defined(HAVE_STDARG_H) && defined(__STDC__) && __STDC__
 175         va_start(args, mesg);
 176 #else
 177         char *mesg;
 178
 179         va_start(args);
 180         mesg = va_arg(args, char *);
 181 #endif
 182         err("fatal: ", mesg, args);
 183         va_end(args);
 184 #ifdef DEBUG
 185         abort();
 186 #endif
 187         exit(2);
 188 }
 189