]> git.vpit.fr Git - perl/modules/autovivification.git/blob - xsh/debug.h
Update VPIT::TestHelpers to 15e8aee3
[perl/modules/autovivification.git] / xsh / debug.h
1 #ifndef XSH_DEBUG_H
2 #define XSH_DEBUG_H 1
3
4 #include "util.h" /* XSH_PACKAGE, STMT_* */
5
6 #ifndef XSH_DEBUG
7 # define XSH_DEBUG 0
8 #endif
9
10 #if XSH_DEBUG
11 # define XSH_D(X) STMT_START X STMT_END
12 static void xsh_debug_log(const char *fmt, ...) {
13  va_list va;
14  SV *sv;
15  dTHX;
16  va_start(va, fmt);
17  sv = get_sv(XSH_PACKAGE "::DEBUG", 0);
18  if (sv && SvTRUE(sv))
19   PerlIO_vprintf(Perl_debug_log, fmt, va);
20  va_end(va);
21  return;
22 }
23 #else
24 # define XSH_D(X)
25 #endif
26
27 #endif /* XSH_DEBUG_H */