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
|
/* $Id: error.c,v 1.1.1.1 2004/12/23 04:04:21 ellson Exp $ $Revision: 1.1.1.1 $ */
/* vim:set shiftwidth=4 ts=8: */
/**********************************************************
* This software is part of the graphviz package *
* http://www.graphviz.org/ *
* *
* Copyright (c) 1994-2004 AT&T Corp. *
* and is licensed under the *
* Common Public License, Version 1.0 *
* by AT&T Corp. *
* *
* Information and Software Systems Research *
* AT&T Research, Florham Park NJ *
**********************************************************/
/*
* standalone mini error implementation
*/
#include <ast.h>
#include <error.h>
#include <string.h>
#include <errno.h>
Error_info_t error_info;
void errorv(const char *id, int level, va_list ap)
{
char *s;
int flags;
if (level < 0)
flags = 0;
else {
flags = level & ~ERROR_LEVEL;
level &= ERROR_LEVEL;
}
if (level && ((s = error_info.id) || (s = (char *) id))) {
if (flags & ERROR_USAGE)
sfprintf(sfstderr, "Usage: %s ", s);
else
sfprintf(sfstderr, "%s: ", s);
}
if (flags & ERROR_USAGE)
/*nop */ ;
else if (level < 0) {
int i;
for (i = 0; i < error_info.indent; i++)
sfprintf(sfstderr, " ");
sfprintf(sfstderr, "debug%d: ", level);
} else if (level) {
if (level == ERROR_WARNING) {
sfprintf(sfstderr, "warning: ");
error_info.warnings++;
} else {
error_info.errors++;
if (level == ERROR_PANIC)
sfprintf(sfstderr, "panic: ");
}
if (error_info.line) {
if (error_info.file && *error_info.file)
sfprintf(sfstderr, "\"%s\", ", error_info.file);
sfprintf(sfstderr, "line %d: ", error_info.line);
}
}
s = va_arg(ap, char *);
sfvprintf(sfstderr, s, ap);
if (flags & ERROR_SYSTEM)
sfprintf(sfstderr, "\n%s", strerror(errno));
sfprintf(sfstderr, "\n");
if (level >= ERROR_FATAL)
exit(level - ERROR_FATAL + 1);
}
void error(int level, ...)
{
va_list ap;
va_start(ap, level);
errorv(NiL, level, ap);
va_end(ap);
}
void errorf(void *handle, void *discipline, int level, ...)
{
va_list ap;
va_start(ap, level);
errorv((discipline
&& handle) ? *((char **) handle) : (char *) handle, level, ap);
va_end(ap);
}
|
