git.chise.org Git - chise/xemacs-chise.git-/blob - src/debug.h

   1 /* Debugging aids -- togglable assertions.
   2    Copyright (C) 1994 Free Software Foundation, Inc.
   3
   4 This file is part of XEmacs.
   5
   6 XEmacs is free software; you can redistribute it and/or modify it
   7 under the terms of the GNU General Public License as published by the
   8 Free Software Foundation; either version 2, or (at your option) any
   9 later version.
  10
  11 XEmacs is distributed in the hope that it will be useful, but WITHOUT
  12 ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or
  13 FITNESS FOR A PARTICULAR PURPOSE.  See the GNU General Public License
  14 for more details.
  15
  16 You should have received a copy of the GNU General Public License
  17 along with XEmacs; see the file COPYING.  If not, write to
  18 the Free Software Foundation, Inc., 59 Temple Place - Suite 330,
  19 Boston, MA 02111-1307, USA.  */
  20
  21 /* Synched up with: Not in FSF. */
  22
  23 /* Written by Chuck Thompson */
  24
  25 #ifndef INCLUDED_debug_h_
  26 #define INCLUDED_debug_h_
  27
  28 #define DEBUG_STDERR    1
  29 #define DEBUG_ABORT     2
  30
  31 #ifdef DEBUG_XEMACS
  32
  33 #include <stdio.h>
  34
  35 struct debug_classes
  36 {
  37   unsigned int redisplay :1;
  38   unsigned int buffers :1;
  39   unsigned int extents :1;
  40   unsigned int faces :1;
  41   unsigned int windows :1;
  42   unsigned int frames :1;
  43   unsigned int devices :1;
  44   unsigned int byte_code :1;
  45
  46   unsigned int types_of_redisplay;
  47   unsigned int types_of_buffers;
  48   unsigned int types_of_extents;
  49   unsigned int types_of_faces;
  50   unsigned int types_of_windows;
  51   unsigned int types_of_frames;
  52   unsigned int types_of_devices;
  53   unsigned int types_of_byte_code;
  54 };
  55
  56 extern struct debug_classes active_debug_classes;
  57
  58 #define DASSERT(class, desired_type, action, assertion) do              \
  59 {                                                                       \
  60   if (active_debug_classes.##class                                      \
  61       && (active_debug_classes.types_of_##class & desired_type))        \
  62     {                                                                   \
  63       if (! (assertion))                                                \
  64         {                                                               \
  65           if (action == DEBUG_STDERR)                                   \
  66             stderr_out ("Assertion failed in %s at line %d\n",          \
  67                         __FILE__, __LINE__);                            \
  68           else                                                          \
  69             abort ();                                                   \
  70         }                                                               \
  71     }                                                                   \
  72 } while (0)
  73 #else /* !DEBUG_XEMACS */
  74
  75 #define DASSERT(class, desired_type, action, assertion) ((void) 0)
  76
  77 #endif /* !DEBUG_XEMACS */
  78
  79 #endif /* INCLUDED_debug_h_ */