tagmanager/debug.c

   1 /*
   2 *   $Id$
   3 *
   4 *   Copyright (c) 1996-2002, Darren Hiebert
   5 *
   6 *   This source code is released for free distribution under the terms of the
   7 *   GNU General Public License.
   8 *
   9 *   This module contains debugging functions.
  10 */
  11
  12 /*
  13 *   INCLUDE FILES
  14 */
  15 #include "general.h"  /* must always come first */
  16
  17 #include <ctype.h>
  18 #include <stdarg.h>
  19
  20 #include "debug.h"
  21 #include "options.h"
  22 #include "read.h"
  23
  24 /*
  25 *   FUNCTION DEFINITIONS
  26 */
  27
  28 #ifdef DEBUG
  29
  30 extern void lineBreak (void) {}  /* provides a line-specified break point */
  31
  32 extern void debugPrintf (
  33                 const enum eDebugLevels level, const char *const format, ... )
  34 {
  35         va_list ap;
  36
  37         va_start (ap, format);
  38         if (debug (level))
  39                 vprintf (format, ap);
  40         fflush (stdout);
  41         va_end (ap);
  42 }
  43
  44 extern void debugPutc (const int level, const int c)
  45 {
  46         if (debug (level)  &&  c != EOF)
  47         {
  48                      if (c == STRING_SYMBOL)  printf ("\"string\"");
  49                 else if (c == CHAR_SYMBOL)    printf ("'c'");
  50                 else                          putchar (c);
  51
  52                 fflush (stdout);
  53         }
  54 }
  55
  56 extern void debugParseNest (const boolean increase, const unsigned int level)
  57 {
  58         debugPrintf (DEBUG_PARSE, "<*%snesting:%d*>", increase ? "++" : "--", level);
  59 }
  60
  61 extern void debugCppNest (const boolean begin, const unsigned int level)
  62 {
  63         debugPrintf (DEBUG_CPP, "<*cpp:%s level %d*>", begin ? "begin":"end", level);
  64 }
  65
  66 extern void debugCppIgnore (const boolean ignore)
  67 {
  68         debugPrintf (DEBUG_CPP, "<*cpp:%s ignore*>", ignore ? "begin":"end");
  69 }
  70
  71 extern void clearString (char *const string, const int length)
  72 {
  73         int i;
  74         for (i = 0 ; i < length ; ++i)
  75                 string [i] = '\0';
  76 }
  77
  78 extern void debugEntry (const tagEntryInfo *const tag)
  79 {
  80         const char *const scope = tag->isFileScope ? "{fs}" : "";
  81
  82         if (debug (DEBUG_PARSE))
  83         {
  84                 printf ("<#%s%s:%s", scope, tag->kindName, tag->name);
  85
  86                 if (tag->extensionFields.scope [0] != NULL  &&
  87                                 tag->extensionFields.scope [1] != NULL)
  88                         printf (" [%s:%s]", tag->extensionFields.scope [0],
  89                                         tag->extensionFields.scope [1]);
  90
  91                 if (Option.extensionFields.inheritance  &&
  92                                 tag->extensionFields.inheritance != NULL)
  93                         printf (" [inherits:%s]", tag->extensionFields.inheritance);
  94
  95                 if (Option.extensionFields.fileScope &&
  96                                 tag->isFileScope && ! isHeaderFile ())
  97                         printf (" [file:]");
  98
  99                 if (Option.extensionFields.access  &&
 100                                 tag->extensionFields.access != NULL)
 101                         printf (" [access:%s]", tag->extensionFields.access);
 102
 103                 if (Option.extensionFields.implementation  &&
 104                                 tag->extensionFields.implementation != NULL)
 105                         printf (" [imp:%s]", tag->extensionFields.implementation);
 106
 107                 if (Option.extensionFields.typeRef  &&
 108                                 tag->extensionFields.typeRef [0] != NULL  &&
 109                                 tag->extensionFields.typeRef [1] != NULL)
 110                         printf (" [%s:%s]", tag->extensionFields.typeRef [0],
 111                                         tag->extensionFields.typeRef [1]);
 112
 113                 printf ("#>");
 114                 fflush (stdout);
 115         }
 116 }
 117
 118 #endif
 119
 120 /* vi:set tabstop=4 shiftwidth=4: */