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
|
/*******************************************************************************
*
* MODULE: ctdebug.c
*
********************************************************************************
*
* DESCRIPTION: Debugging support
*
********************************************************************************
*
* $Project: /Convert-Binary-C $
* $Author: mhx $
* $Date: 2009/03/15 04:10:47 +0100 $
* $Revision: 18 $
* $Source: /ctlib/ctdebug.c $
*
********************************************************************************
*
* Copyright (c) 2002-2009 Marcus Holland-Moritz. All rights reserved.
* This program is free software; you can redistribute it and/or modify
* it under the same terms as Perl itself.
*
*******************************************************************************/
#ifdef CTLIB_DEBUGGING
/*===== GLOBAL INCLUDES ======================================================*/
#include <stdio.h>
#include <stdarg.h>
#include <stdlib.h>
/*===== LOCAL INCLUDES =======================================================*/
#include "ctdebug.h"
/*===== DEFINES ==============================================================*/
/*===== TYPEDEFS =============================================================*/
/*===== STATIC FUNCTION PROTOTYPES ===========================================*/
/*===== EXTERNAL VARIABLES ===================================================*/
/*===== GLOBAL VARIABLES =====================================================*/
void (*g_CT_dbfunc)(const char *, ...) = NULL;
unsigned long g_CT_dbflags = 0;
/*===== STATIC VARIABLES =====================================================*/
static void (*gs_vprintf)(const char *, va_list *) = NULL;
/*===== STATIC FUNCTIONS =====================================================*/
/*===== FUNCTIONS ============================================================*/
#ifdef CTLIB_FORMAT_CHECK
void CT_dbfunc_check( const char *str __attribute(( __unused__ )), ... )
{
fprintf( stderr, "compiled with CTLIB_FORMAT_CHECK, please don't run\n" );
abort();
}
#endif
/*******************************************************************************
*
* ROUTINE: SetDebugCType
*
* WRITTEN BY: Marcus Holland-Moritz ON: Jan 2002
* CHANGED BY: ON:
*
********************************************************************************
*
* DESCRIPTION:
*
* ARGUMENTS:
*
* RETURNS:
*
*******************************************************************************/
int SetDebugCType( void (*dbfunc)(const char *, ...),
void (*dbvprintf)(const char *, va_list *),
unsigned long dbflags )
{
g_CT_dbfunc = dbfunc;
gs_vprintf = dbvprintf;
g_CT_dbflags = dbflags;
return 1;
}
/*******************************************************************************
*
* ROUTINE: BisonDebugFunc
*
* WRITTEN BY: Marcus Holland-Moritz ON: Jan 2002
* CHANGED BY: ON:
*
********************************************************************************
*
* DESCRIPTION:
*
* ARGUMENTS:
*
* RETURNS:
*
*******************************************************************************/
void BisonDebugFunc( void *dummy, const char *fmt, ... )
{
if( dummy != NULL && gs_vprintf != NULL ) {
va_list l;
va_start( l, fmt );
gs_vprintf( fmt, &l );
va_end( l );
}
}
#endif /* CTLIB_DEBUGGING */
|
