/* error.c
  Copyright (C) 2005,2006,2007 Eugene K. Ressler, Jr.

This file is part of Sketch, a small, simple system for making
3d drawings with LaTeX and the PSTricks or TikZ package.

Sketch 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 3, or (at your option)
any later version.

Sketch 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 Sketch; see the file COPYING.txt.  If not, see
http://www.gnu.org/copyleft */

#include <stdio.h>
#include <stdlib.h>
#include <stdarg.h>
#include "error.h"

SRC_LINE no_line = { NULL, 0 };

typedef enum error_type_t
{
 E_REMARK,
 E_WARNING,
 E_ERROR,
 E_FATAL_ERROR,
 E_N                           // keep last; this is the number of error types
}
ERROR_TYPE;

char *error_type_str[] = {
 "remark",
 "warning",
 "error",
 "fatal",
};

static int n_errors[E_N];       // assumes C initialization to zero

static void
print_error (ERROR_TYPE type, SRC_LINE line, char *fmt, va_list arg_list)
{
 n_errors[type]++;
 if (line.file_name)
   fprintf (stderr, "%s", line.file_name);
 if (line.number > 0)
   fprintf (stderr, "(%u) : ", line.number);
 fprintf (stderr, "%s, ", error_type_str[type]);
 vfprintf (stderr, fmt, arg_list);
 fprintf (stderr, "\n");
}

void
remark (SRC_LINE line, char *fmt, ...)
{
 va_list arg_list;

 va_start (arg_list, fmt);
 print_error (E_REMARK, line, fmt, arg_list);
 va_end (arg_list);
}

void
warn (SRC_LINE line, char *fmt, ...)
{
 va_list arg_list;

 va_start (arg_list, fmt);
 print_error (E_WARNING, line, fmt, arg_list);
 va_end (arg_list);
}

void
err (SRC_LINE line, char *fmt, ...)
{
 va_list arg_list;

 va_start (arg_list, fmt);
 print_error (E_ERROR, line, fmt, arg_list);
 va_end (arg_list);
}

void
die (SRC_LINE line, char *fmt, ...)
{
 va_list arg_list;

 va_start (arg_list, fmt);
 print_error (E_FATAL_ERROR, line, fmt, arg_list);
 va_end (arg_list);
 report_errors ();
}

int
trouble_p (void)
{
 return n_errors[E_ERROR] > 0 || n_errors[E_FATAL_ERROR] > 0;
}

void
report_errors (void)
{
 int i, n_total = 0;

 // start printing summary
 fprintf (stderr, "summary: ");
 for (i = 0; i < E_N; i++)
   {
     if (n_errors[i] > 0)
       {
         if (n_total > 0)
           fprintf (stderr, ", ");
         fprintf (stderr, "%d %s", n_errors[i], error_type_str[i]);
         n_total++;
       }
   }

 // see if we need to abort
 if (trouble_p ())
   {
     fprintf (stderr, "\nquitting...\n");
     exit (1);
   }
 // not aborting, so finish up the summary
 if (n_total == 0)
   {
     fprintf (stderr, "no errors");
   }
 fprintf (stderr, "\n");

 // zero the error counters
 for (i = 0; i < E_N; i++)
   n_errors[i] = 0;
}