/* error.c -- display formatted error diagnostics of varying severity
   Copyright (C) 2000 Gary V. Vaughan
  
   This program is free software; you can redistribute it and/or modify
   it under the terms of the GNU General Public License as published by
   the Free Software Foundation; either version 2, or (at your option)
   any later version.
  
   This program is distributed in the hope that it will be useful,
   but WITHOUT ANY WARRANTY; without even the implied warranty of
   MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
   GNU General Public License for more details.
  
   You should have received a copy of the GNU General Public License
   along with this program; if not, write to the Free Software
   Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
*/

#if HAVE_CONFIG_H
#  include <config.h>
#endif

#include "common.h"
#include "error.h"

static void error	PARAMS((int exit_status, const char *mode,
				const char *message, va_list ap));

const char *program_name = NULL;

void
set_program_name (path)
     const char *path;
{
  SIC_ASSERT (!program_name);
  program_name = xstrdup ((char *) basename (path));
}

static void
error (exit_status, mode, message, ap)
     int exit_status;
     const char *mode;
     const char *message;
     va_list ap;
{
  fprintf (stderr, "%s: %s: ", program_name, mode);
  vfprintf (stderr, message, ap);
  fprintf (stderr, ".\n");

  if (exit_status >= 0)
    exit (exit_status);
}

void
#if HAVE_STDARG_H
sic_warning (const char *message, ...)
#else
sic_warning (message, va_alist)
     const char *message;
     va_dcl
#endif
{
  va_list ap;
  VA_START (ap, message);
  error (-1, "warning", message, ap);
  va_end (ap);
}

/** @start 1 */
void
#if HAVE_STDARG_H
sic_error (const char *message, ...)
#else
sic_error (message, va_alist)
     const char *message;
     va_dcl
#endif
{
  va_list ap;
  VA_START (ap, message);
  error (-1, "ERROR", message, ap);
  va_end (ap);
}
/** @end 1 */

void
#if HAVE_STDARG_H
sic_fatal (const char *message, ...)
#else
sic_fatal (message, va_alist)
     const char *message;
     va_dcl
#endif
{
  va_list ap;
  VA_START (ap, message);
  error (EXIT_FAILURE, "FATAL", message, ap);
  va_end (ap);
}