wmcliphist/debug.c

   1 #include <stdio.h>
   2 #include <string.h>
   3 #include <stdarg.h>
   4 #include <stdlib.h>
   5 #include <unistd.h>
   6
   7
   8
   9 /* tabulators */
  10 char            tabs[1024];
  11
  12
  13 #ifdef  DBG_THREADS
  14 #include <pthread.h>
  15
  16 static pthread_key_t    align_key;
  17 static pthread_once_t   align_key_once = PTHREAD_ONCE_INIT;
  18
  19
  20 static void
  21 align_destroy(void *align)
  22 {
  23         free(align);
  24 }
  25
  26
  27 static void
  28 align_key_create()
  29 {
  30         pthread_key_create(&align_key, align_destroy);
  31 }
  32
  33
  34 void
  35 debug_init_threads()
  36 {
  37         int     *new_align;
  38
  39         memset(tabs, 9, 1024);
  40
  41         if (!(new_align = malloc(sizeof(int))))
  42                 abort();
  43         *new_align = 1;
  44
  45         pthread_once(&align_key_once, align_key_create);
  46
  47         pthread_setspecific(align_key, new_align);
  48 }
  49 #endif
  50
  51
  52 /*
  53  * no threads
  54  */
  55
  56 static int              main_align = 1;
  57
  58 void
  59 debug_init_nothreads()
  60 {
  61         memset(tabs, 9, 1024);
  62 }
  63
  64
  65
  66
  67 void
  68 fn_begin(char *format, ...)
  69 {
  70         va_list         args;
  71         char            msg_buf[1024];
  72         char            final_msg[2048];
  73         int             *align;
  74
  75 #ifdef DBG_THREADS
  76                 align = pthread_getspecific(align_key);
  77 #else
  78                 align = &main_align;
  79 #endif
  80
  81         va_start(args, format);
  82         vsprintf(msg_buf, format, args);
  83         va_end(args);
  84
  85         strcat(msg_buf, " {\n");
  86
  87         sprintf(final_msg, "%d: %.*s%s", getpid(), *align, tabs, msg_buf);
  88         fprintf(stderr, "%s", final_msg);
  89         (*align)++;
  90 }
  91
  92
  93 void
  94 fn_end()
  95 {
  96         int             *align;
  97
  98 #ifdef DBG_THREADS
  99                 align = pthread_getspecific(align_key);
 100 #else
 101                 align = &main_align;
 102 #endif
 103
 104         (*align)--;
 105
 106         fprintf(stderr, "%d: %.*s}\n", getpid(), *align, tabs);
 107 }
 108
 109
 110
 111
 112 /*
 113 void
 114 fn2(int i)
 115 {
 116         _D(fn_begin("fn2(i = %d)", i));
 117         return_void();
 118 }
 119
 120 int
 121 fn1()
 122 {
 123         _D(fn_begin("fn1"));
 124         fn2(1);
 125         return_val(0);
 126 }
 127
 128 int
 129 main()
 130 {
 131         _D(fn_begin("main"));
 132         fn1();
 133         fn2(2);
 134         return_val(0);
 135 }
 136 */