summaryrefslogtreecommitdiff
path: root/graphics/sketch/error.c
blob: 9f885aa1ed133b1ff66fef1700b5398c3f01deaa (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
/* 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;
}