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 */