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
|
/*
* libmowgli: A collection of useful routines for programming.
* error_backtrace.c: Print errors and explain how they were reached.
*
* Copyright (c) 2007 William Pitcock <nenolod -at- sacredspiral.co.uk>
*
* Permission to use, copy, modify, and/or distribute this software for any
* purpose with or without fee is hereby granted, provided that the above
* copyright notice and this permission notice is present in all copies.
*
* THIS SOFTWARE IS PROVIDED BY THE AUTHOR ``AS IS'' AND ANY EXPRESS OR
* IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED
* WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE ARE
* DISCLAIMED. IN NO EVENT SHALL THE AUTHOR BE LIABLE FOR ANY DIRECT,
* INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES
* (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR
* SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)
* HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT,
* STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING
* IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE
* POSSIBILITY OF SUCH DAMAGE.
*/
#include "mowgli.h"
void
mowgli_error_context_display(mowgli_error_context_t *e, const char *delim)
{
mowgli_node_t *n;
char *bt_msg;
return_if_fail(e != NULL);
return_if_fail(delim != NULL);
if (MOWGLI_LIST_LENGTH(&e->bt) == 0)
mowgli_throw_exception(mowgli.error_backtrace.no_backtrace);
MOWGLI_LIST_FOREACH(n, e->bt.head)
{
bt_msg = (char *) n->data;
fprintf(stderr, "%s%s", bt_msg, n->next != NULL ? delim : "\n");
}
}
void
mowgli_error_context_destroy(mowgli_error_context_t *e)
{
mowgli_node_t *n, *tn;
return_if_fail(e != NULL);
if (MOWGLI_LIST_LENGTH(&e->bt) == 0)
{
mowgli_free(e);
return;
}
MOWGLI_LIST_FOREACH_SAFE(n, tn, e->bt.head)
{
mowgli_free(n->data);
mowgli_node_delete(n, &e->bt);
mowgli_node_free(n);
}
mowgli_free(e);
}
void
mowgli_error_context_display_with_error(mowgli_error_context_t *e, const char *delim, const char *error)
{
mowgli_error_context_display(e, delim);
fprintf(stderr, "Error: %s\n", error);
_exit(EXIT_FAILURE);
}
void
mowgli_error_context_push(mowgli_error_context_t *e, const char *msg, ...)
{
char buf[65535];
va_list va;
return_if_fail(e != NULL);
return_if_fail(msg != NULL);
va_start(va, msg);
vsnprintf(buf, 65535, msg, va);
va_end(va);
mowgli_node_add(mowgli_strdup(buf), mowgli_node_create(), &e->bt);
}
void
mowgli_error_context_pop(mowgli_error_context_t *e)
{
return_if_fail(e != NULL);
mowgli_node_delete(e->bt.tail, &e->bt);
}
mowgli_error_context_t *
mowgli_error_context_create(void)
{
mowgli_error_context_t *out = (mowgli_error_context_t *) mowgli_alloc(sizeof(mowgli_error_context_t));
return out;
}
|