util/src/TclTk/tk8.6.12/macosx/tkMacOSXDebug.h

   1 /*
   2  * tkMacOSXDebug.h --
   3  *
   4  *      Declarations of Macintosh specific functions for debugging MacOS events,
   5  *      regions, etc...
   6  *
   7  * Copyright 2001-2009, Apple Inc.
   8  * Copyright (c) 2005-2009 Daniel A. Steffen <das@users.sourceforge.net>
   9  *
  10  * See the file "license.terms" for information on usage and redistribution
  11  * of this file, and for a DISCLAIMER OF ALL WARRANTIES.
  12  */
  13
  14 #ifndef _TKMACDEBUG
  15 #define _TKMACDEBUG
  16
  17 #ifndef _TKMACINT
  18 #include "tkMacOSXInt.h"
  19 #endif
  20
  21 #ifdef TK_MAC_DEBUG
  22
  23 MODULE_SCOPE void* TkMacOSXGetNamedDebugSymbol(const char* module, const char* symbol);
  24
  25 /* Macro to abstract common use of TkMacOSXGetNamedDebugSymbol to initialize named symbols */
  26 #define TkMacOSXInitNamedDebugSymbol(module, ret, symbol, ...) \
  27     static ret (* symbol)(__VA_ARGS__) = (void*)(-1L); \
  28     if (symbol == (void*)(-1L)) { \
  29         symbol = TkMacOSXGetNamedDebugSymbol(STRINGIFY(module), STRINGIFY(_##symbol));\
  30     }
  31
  32 #endif /* TK_MAC_DEBUG */
  33
  34 #endif