mpdm_d.c

   1 /*
   2
   3     MPDM - Minimum Profit Data Manager
   4     Copyright (C) 2003/2010 Angel Ortega <angel@triptico.com>
   5
   6     mpdm_d.c - Debugging utilities
   7
   8     This program is free software; you can redistribute it and/or
   9     modify it under the terms of the GNU General Public License
  10     as published by the Free Software Foundation; either version 2
  11     of the License, or (at your option) any later version.
  12
  13     This program is distributed in the hope that it will be useful,
  14     but WITHOUT ANY WARRANTY; without even the implied warranty of
  15     MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  16     GNU General Public License for more details.
  17
  18     You should have received a copy of the GNU General Public License
  19     along with this program; if not, write to the Free Software
  20     Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA  02111-1307, USA.
  21
  22     http://www.triptico.com
  23
  24 */
  25
  26 #include "config.h"
  27
  28 #include <stdio.h>
  29 #include <stdlib.h>
  30 #include <string.h>
  31 #include <wchar.h>
  32
  33 #include "mpdm.h"
  34
  35 /** data **/
  36
  37 static wchar_t *dump_1(const mpdm_t v, int l, wchar_t * ptr, int *size);
  38 wchar_t * (*mpdm_dump_1) (const mpdm_t v, int l, wchar_t *ptr, int *size) = NULL;
  39
  40 /** code **/
  41
  42 static wchar_t *dump_1(const mpdm_t v, int l, wchar_t *ptr, int *size)
  43 /* dumps one value to the ptr dynamic string with 'l' indenting level */
  44 {
  45         int n;
  46         wchar_t *wptr;
  47
  48         mpdm_ref(v);
  49
  50         /* indent */
  51         for (n = 0; n < l; n++)
  52                 ptr = mpdm_pokews(ptr, size, L"  ");
  53
  54         if (v != NULL) {
  55                 char tmp[256];
  56                 int s;
  57
  58                 if (v->flags & MPDM_DELETED)
  59                         strcpy(tmp, "**DELETED**");
  60                 else
  61                         sprintf(tmp, "%d,%c%c%c%c:", v->ref,
  62                                 v->flags & MPDM_FILE ? 'F' :
  63                                 (v->flags & MPDM_STRING ? 'S' :
  64                                         (v->flags & MPDM_EXEC ? 'X' : '-')),
  65                                 v->flags & MPDM_HASH ? 'H' :
  66                                         (v->flags & MPDM_MULTIPLE ? 'M' : '-'),
  67                                 v->flags & MPDM_REGEX ? 'r' :
  68                                         (v->flags & MPDM_FREE ? 'A' : '-'),
  69                                 v->flags & MPDM_IVAL ? 'I' :
  70                                         (v->flags & MPDM_RVAL ? 'R' : '-')
  71                         );
  72
  73                 wptr = mpdm_mbstowcs(tmp, &s, -1);
  74                 ptr = mpdm_poke(ptr, size, wptr, s, sizeof(wchar_t));
  75                 free(wptr);
  76
  77                 /* if it's a multiple value, add also the number
  78                    of elements */
  79                 if (v->flags & MPDM_MULTIPLE) {
  80                         sprintf(tmp, "[%d] ", mpdm_size(v));
  81                         wptr = mpdm_mbstowcs(tmp, &s, -1);
  82                         ptr = mpdm_poke(ptr, size, wptr, s, sizeof(wchar_t));
  83                         free(wptr);
  84                 }
  85         }
  86
  87         /* add the visual representation of the value */
  88         ptr = mpdm_pokev(ptr, size, v);
  89         ptr = mpdm_pokewsn(ptr, size, L"\n", 1);
  90
  91         if (v != NULL) {
  92                 /* if it's a hash, iterate it */
  93                 if (v->flags & MPDM_HASH) {
  94                         int c = 0;
  95                         mpdm_t k, w;
  96
  97                         while (mpdm_iterator(v, &c, &k, &w)) {
  98                                 ptr = dump_1(k, l + 1, ptr, size);
  99                                 ptr = dump_1(w, l + 2, ptr, size);
 100                         }
 101                 }
 102                 else
 103                 if (v->flags & MPDM_MULTIPLE) {
 104                         for (n = 0; n < mpdm_size(v); n++)
 105                                 ptr = dump_1(mpdm_aget(v, n), l + 1, ptr, size);
 106                 }
 107         }
 108
 109         mpdm_unref(v);
 110
 111         return ptr;
 112 }
 113
 114
 115 static wchar_t *do_dump(mpdm_t v, int *size)
 116 {
 117         wchar_t *ptr;
 118
 119         /* if no dumper plugin is defined, fall back to default */
 120         if (mpdm_dump_1 == NULL)
 121                 mpdm_dump_1 = dump_1;
 122
 123         *size = 0;
 124         ptr = mpdm_dump_1(v, 0, NULL, size);
 125         ptr = mpdm_pokewsn(ptr, size, L"", 1);
 126
 127         return ptr;
 128 }
 129
 130
 131 /**
 132  * mpdm_dumper - Returns a visual representation of a complex value.
 133  * @v: The value
 134  *
 135  * Returns a visual representation of a complex value.
 136  */
 137 mpdm_t mpdm_dumper(const mpdm_t v)
 138 {
 139         int size = 0;
 140         wchar_t *ptr;
 141
 142         ptr = do_dump(v, &size);
 143
 144         return MPDM_ENS(ptr, size - 1);
 145 }
 146
 147
 148 /**
 149  * mpdm_dump - Dumps a value to stdin.
 150  * @v: The value
 151  *
 152  * Dumps a value to stdin. The value can be complex. This function
 153  * is for debugging purposes only.
 154  */
 155 void mpdm_dump(const mpdm_t v)
 156 {
 157         int size = 0;
 158         wchar_t *ptr;
 159
 160         mpdm_ref(v);
 161
 162         ptr = do_dump(v, &size);
 163         mpdm_write_wcs(stdout, ptr);
 164         free(ptr);
 165
 166         mpdm_unrefnd(v);
 167 }
 168
 169
 170 /**
 171  * mpdm_dump_unref - Dumps all unreferenced values.
 172  *
 173  * Dumps all unreferenced values.
 174  */
 175 void mpdm_dump_unref(void)
 176 {
 177         mpdm_t v;
 178         int count, unref, del;
 179
 180         /* loop all values */
 181         v = mpdm->cur;
 182         count = mpdm->count;
 183         unref = del = 0;
 184
 185         printf("** Unreferenced values:\n");
 186
 187         while (count--) {
 188                 if (v->ref <= 0) {
 189                         if (v->flags & MPDM_DELETED)
 190                                 del++;
 191                         else {
 192                                 mpdm_dump(v);
 193                                 unref++;
 194                         }
 195                 }
 196
 197                 v = v->next;
 198         }
 199
 200         printf("** Total unreferenced/deleted: %d/%d\n", unref, del);
 201 }