debug_mox.h

Go to the documentation of this file.

 
#pragma once
 
/*****************************************************************************/
/*                                                                           */
/*                          debugging functions                              */
/*                                                                           */
/*****************************************************************************/
 
#if META_DEBUG
 
#include "debug_mk.h"
 
#define printFMT        "'%s' [ref=%i,typ=%s]"
#define printVAL(o)     (o?VAL2STR(o):"NULL"),(o)?(o)->refCount:-1,o&&o->typePtr?o->typePtr->name:"ukn"
 
#undef printLng
#define printLng(o)     printV(#o" = " printFMT,printVAL(o))
 
#undef printResult
#define printResult     printV("result = " printFMT,printVAL(Tcl_GetObjResult(interp)))
 
#undef printLngErrorCode
#define printLngErrorCode() do {                                                      \
  MOX_OBJ_T errorCode = Tcl_GetVar2Ex (interp, "errorCode", NULL, TCL_GLOBAL_ONLY);    \
  printLng(errorCode);                                                                \
} while (0);
 
#undef printLngErrorInfo
#define printLngErrorInfo() do {                                                      \
  MOX_OBJ_T errorInfo = Tcl_GetVar2Ex (interp, "errorInfo", NULL, TCL_GLOBAL_ONLY);    \
  printLng(errorInfo);                                                                \
} while (0);
 
#undef printObjv
#define printObjv \
  printV("__skip=%i, objc=%i",__skip,objc);\
  printAry(objc,objv)
 
#undef printAry
#define printAry(c,o) \
  for(int i=0;i<c;i++) { \
    printV("%2d : " printFMT, i, printVAL(o[i])) \
  }
 
#undef printAry2
#define printAry2(txt, c,o) \
  mk_dbg_start_2(MK_COLOR_BLUE,"%s : ",txt); \
  for(int i=0;i<c;i++) { \
    mk_dbg_next_2(MK_COLOR_YELLOW, "[%d]" MK_COLOR_RESET "=" printFMT ", ",i,printVAL(o[i])); \
  } \
  mk_dbg_end();
 
#endif