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
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
|
#ifndef __LOUT_DEBUG_H__
#define __LOUT_DEBUG_H__
/*
* Simple debug messages. Add:
*
* #define DEBUG_LEVEL <n>
* #include "debug.h"
*
* to the file you are working on, or let DEBUG_LEVEL undefined to
* disable all messages. A higher level denotes a greater importance
* of the message.
*/
#include <stdio.h>
#define D_STMT_START do
#define D_STMT_END while (0)
# ifdef DEBUG_LEVEL
# define DEBUG_MSG(level, ...) \
D_STMT_START { \
if (DEBUG_LEVEL && (level) >= DEBUG_LEVEL) \
printf(__VA_ARGS__); \
} D_STMT_END
# else
# define DEBUG_MSG(level, ...)
# endif /* DEBUG_LEVEL */
/*
* See <http://www.dillo.org/~sgeerken/rtfl/>.
*/
#ifdef DBG_RTFL
#include <unistd.h>
#include <stdio.h>
// "\n" at the beginning just in case that the previous line is not finished
// yet.
#define RTFL_PREFIX_FMT "\n[rtfl]%s:%d:%d:"
#define RTFL_PREFIX_ARGS __FILE__, __LINE__, getpid()
#define DBG_OBJ_MSG(aspect, prio, msg) \
D_STMT_START { \
printf (RTFL_PREFIX_FMT "obj-msg:%p:%s:%d:%s\n", \
RTFL_PREFIX_ARGS, this, aspect, prio, msg); \
fflush (stdout); \
} D_STMT_END
#define DBG_OBJ_MSGF(aspect, prio, fmt, ...) \
D_STMT_START { \
printf (RTFL_PREFIX_FMT "obj-msg:%p:%s:%d:" fmt "\n", \
RTFL_PREFIX_ARGS, this, aspect, prio, __VA_ARGS__); \
fflush (stdout); \
} D_STMT_END
#define DBG_OBJ_MSG_START() \
D_STMT_START { \
printf (RTFL_PREFIX_FMT "obj-msg-start:%p\n", \
RTFL_PREFIX_ARGS, this); \
fflush (stdout); \
} D_STMT_END
#define DBG_OBJ_MSG_END() \
D_STMT_START { \
printf (RTFL_PREFIX_FMT "obj-msg-end:%p\n", \
RTFL_PREFIX_ARGS, this); \
fflush (stdout); \
} D_STMT_END
#define DBG_OBJ_CREATE(klass) \
D_STMT_START { \
printf (RTFL_PREFIX_FMT "obj-create:%p:%s\n", \
RTFL_PREFIX_ARGS, this, klass); \
fflush (stdout); \
} D_STMT_END
#define DBG_OBJ_DELETE() \
D_STMT_START { \
printf (RTFL_PREFIX_FMT "obj-delete:%p\n", \
RTFL_PREFIX_ARGS, this); \
fflush (stdout); \
} D_STMT_END
#define DBG_OBJ_BASECLASS(klass) \
D_STMT_START { \
printf (RTFL_PREFIX_FMT "obj-ident:%p:%p\n", \
RTFL_PREFIX_ARGS, this, (klass*)this); \
fflush (stdout); \
} D_STMT_END
#define DBG_OBJ_ASSOC(parent, child) \
D_STMT_START { \
if (child) { \
printf (RTFL_PREFIX_FMT "obj-assoc:%p:%p\n", \
RTFL_PREFIX_ARGS, parent, child); \
fflush (stdout); \
} \
} D_STMT_END
#define DBG_OBJ_ASSOC_PARENT(parent) \
D_STMT_START { \
printf (RTFL_PREFIX_FMT "obj-assoc:%p:%p\n", \
RTFL_PREFIX_ARGS, parent, this); \
fflush (stdout); \
} D_STMT_END
#define DBG_OBJ_ASSOC_CHILD(child) \
D_STMT_START { \
if (child) { \
printf (RTFL_PREFIX_FMT "obj-assoc:%p:%p\n", \
RTFL_PREFIX_ARGS, this, child); \
fflush (stdout); \
} \
} D_STMT_END
#define DBG_OBJ_SET_NUM(var, val) \
D_STMT_START { \
printf (RTFL_PREFIX_FMT "obj-set:%p:%s:%d\n", \
RTFL_PREFIX_ARGS, this, var, val); \
fflush (stdout); \
} D_STMT_END
#define DBG_OBJ_SET_STR(var, val) \
D_STMT_START { \
printf (RTFL_PREFIX_FMT "obj-set:%p:%s:%s\n", \
RTFL_PREFIX_ARGS, this, var, val); \
fflush (stdout); \
} D_STMT_END
#define DBG_OBJ_SET_PTR(var, val) \
D_STMT_START { \
printf (RTFL_PREFIX_FMT "obj-set:%p:%s:%p\n", \
RTFL_PREFIX_ARGS, this, var, val); \
fflush (stdout); \
} D_STMT_END
#define DBG_OBJ_ARRSET_NUM(var, ind, val) \
D_STMT_START { \
printf (RTFL_PREFIX_FMT "obj-set:%p:" var ".%d:%d\n", \
RTFL_PREFIX_ARGS, this, ind, val); \
fflush (stdout); \
} D_STMT_END
#define DBG_OBJ_ARRSET_STR(var, ind, val) \
D_STMT_START { \
printf (RTFL_PREFIX_FMT "obj-set:%p:" var ".%d:%s\n", \
RTFL_PREFIX_ARGS, this, ind, val); \
fflush (stdout); \
} D_STMT_END
#define DBG_OBJ_ARRSET_PTR(var, ind, val) \
D_STMT_START { \
printf (RTFL_PREFIX_FMT "obj-set:%p:" var ".%d:%p\n", \
RTFL_PREFIX_ARGS, this, ind, val); \
fflush (stdout); \
} D_STMT_END
#define DBG_OBJ_COLOR(color, klass) \
D_STMT_START { \
printf (RTFL_PREFIX_FMT "obj-color:%s:%s\n", \
RTFL_PREFIX_ARGS, color, klass); \
fflush (stdout); \
} D_STMT_END
#else /* DBG_RTFL */
#define DBG_OBJ_MSG(aspect, prio, msg)
#define DBG_OBJ_MSGF(aspect, prio, fmt, ...)
#define DBG_OBJ_MSG_START()
#define DBG_OBJ_MSG_END()
#define DBG_OBJ_CREATE(klass)
#define DBG_OBJ_DELETE()
#define DBG_OBJ_BASECLASS(klass)
#define DBG_OBJ_ASSOC_PARENT(parent)
#define DBG_OBJ_ASSOC_CHILD(child)
#define DBG_OBJ_ASSOC(parent, child)
#define DBG_OBJ_SET_NUM(var, val)
#define DBG_OBJ_SET_STR(var, val)
#define DBG_OBJ_SET_PTR(var, val)
#define DBG_OBJ_ARRSET_NUM(var, ind, val)
#define DBG_OBJ_ARRSET_STR(var, ind, val)
#define DBG_OBJ_ARRSET_PTR(var, ind, val)
#define DBG_OBJ_COLOR(klass, color)
#endif /* DBG_RTFL */
#endif /* __LOUT_DEBUG_H__ */
|
