forked from dungeons-of-moria/icmoria
-
Notifications
You must be signed in to change notification settings - Fork 0
/
debug.c
117 lines (91 loc) · 3.19 KB
/
debug.c
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
/* debug.c */
/**/
#include "imoria.h"
#if DO_DEBUG
FILE *debug_file = NULL;
int call_depth = 0;
//////////////////////////////////////////////////////////////////////
//////////////////////////////////////////////////////////////////////
//////////////////////////////////////////////////////////////////////
void enter(char *routine_name,char *marker)
{
if (debug_file == NULL) {
debug_file = (FILE *)fopen("Debug.out","w");
}
call_depth++;
if (debug_file != NULL) {
fprintf(debug_file, ":::%4d: ENTER %s | %s |\n",
call_depth,routine_name,marker);
// fprintf(debug_file,": In %ld %ld\n",panel_row_min,panel_row_max);
fflush(debug_file);
}
}
//////////////////////////////////////////////////////////////////////
//////////////////////////////////////////////////////////////////////
//////////////////////////////////////////////////////////////////////
void leave(char *routine_name,char *marker)
{
if ( debug_file == NULL ) {
return;
}
// fprintf(debug_file,": Out %ld %ld\n",panel_row_min,panel_row_max);
fprintf(debug_file, ":::%4d: LEAVE %s | %s |\n",
call_depth,routine_name,marker);
fflush(debug_file);
call_depth--;
}
//////////////////////////////////////////////////////////////////////
//////////////////////////////////////////////////////////////////////
//////////////////////////////////////////////////////////////////////
void return_dbg(char *routine_name,char *marker,
char typestr, char *descript, void *valptr)
{
if ( debug_file == NULL ) {
return;
}
// fprintf(debug_file,": Ret %ld %ld\n",panel_row_min,panel_row_max);
switch (typestr) {
case 'b':
fprintf(debug_file, ":::%4d: RETUR %s | %s | %s = %s\n",
call_depth,routine_name,marker,descript,
(*((boolean *)valptr)) == 0 ? "false" : "true");
break;
case 'd':
fprintf(debug_file, ":::%4d: RETUR %s | %s | %s = %ld\n",
call_depth,routine_name,marker,descript,*((integer *)valptr));
break;
case 'u':
fprintf(debug_file, ":::%4d: RETUR %s | %s | %s = %lu\n",call_depth,
routine_name,marker,descript,*((unsigned long *)valptr));
break;
case 's':
fprintf(debug_file, ":::%4d: RETUR %s | %s | %s = %s\n",
call_depth,routine_name,marker,descript,(char *)valptr);
break;
case 'y':
fprintf(debug_file, ":::%4d: RETUR %s | %s | %s = %ld\n",
call_depth,routine_name,marker,descript,(integer)(*((bytlint *)valptr)));
default:
fprintf(debug_file, ":::%4d: RETUR %s | %s | %s = (unknown type %c)\n",
call_depth,routine_name,marker,descript,typestr);
break;
}
fflush(debug_file);
call_depth--;
}
//////////////////////////////////////////////////////////////////////
//////////////////////////////////////////////////////////////////////
//////////////////////////////////////////////////////////////////////
void log_msg(char *str)
{
if ( debug_file == NULL ) {
return;
}
fprintf(debug_file, "> %s\n", str);
fflush(debug_file);
};
//////////////////////////////////////////////////////////////////////
//////////////////////////////////////////////////////////////////////
//////////////////////////////////////////////////////////////////////
#endif
/* END FILE debug.c */