mpdm_d.c

   1 /*
   2
   3     MPDM - Minimum Profit Data Manager
   4     Copyright (C) 2003/2007 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 /*******************
  36         Data
  37 ********************/
  38
  39 /*******************
  40         Code
  41 ********************/
  42
  43 static wchar_t *dump_1(const mpdm_t v, int l, wchar_t * ptr, int *size)
  44 {
  45         int n;
  46         wchar_t *wptr;
  47
  48         /* indent */
  49         for (n = 0; n < l; n++)
  50                 ptr = mpdm_poke(ptr, size, L"  ", 2, sizeof(wchar_t));
  51
  52         if (v != NULL) {
  53                 char tmp[256];
  54                 int s;
  55
  56                 if (v->flags & MPDM_DELETED)
  57                         strcpy(tmp, "**DELETED**");
  58                 else
  59                         sprintf(tmp, "%d,%c%c%c%c:", v->ref,
  60                                 v->flags & MPDM_FILE ? 'F' :
  61                                 (v->flags & MPDM_STRING ? 'S' :
  62                                         (v->flags & MPDM_EXEC ? 'X' : '-')),
  63                                 v->flags & MPDM_HASH ? 'H' :
  64                                         (v->flags & MPDM_MULTIPLE ? 'M' : '-'),
  65                                 v->flags & MPDM_FREE ? 'A' : '-',
  66                                 v->flags & MPDM_IVAL ? 'I' :
  67                                         (v->flags & MPDM_RVAL ? 'R' : '-')
  68                         );
  69
  70                 wptr = mpdm_mbstowcs(tmp, &s, -1);
  71                 ptr = mpdm_poke(ptr, size, wptr, s, sizeof(wchar_t));
  72                 free(wptr);
  73
  74                 /* if it's a multiple value, add also the number
  75                    of elements */
  76                 if (v->flags & MPDM_MULTIPLE) {
  77                         sprintf(tmp, "[%d] ", mpdm_size(v));
  78                         wptr = mpdm_mbstowcs(tmp, &s, -1);
  79                         ptr = mpdm_poke(ptr, size, wptr, s, sizeof(wchar_t));
  80                         free(wptr);
  81                 }
  82         }
  83
  84         /* add the visual representation of the value */
  85         wptr = mpdm_string(v);
  86         ptr = mpdm_poke(ptr, size, wptr, wcslen(wptr), sizeof(wchar_t));
  87         ptr = mpdm_poke(ptr, size, L"\n", 1, sizeof(wchar_t));
  88
  89         if (v != NULL) {
  90                 /* if it's a hash, iterate it using hkeys
  91                    (and not assuming a hash is an array) */
  92                 if (v->flags & MPDM_HASH) {
  93                         mpdm_t w;
  94                         mpdm_t t;
  95
  96                         w = mpdm_keys(v);
  97
  98                         for (n = 0; n < mpdm_size(w); n++) {
  99                                 t = mpdm_aget(w, n);
 100
 101                                 ptr = dump_1(t, l + 1, ptr, size);
 102                                 ptr = dump_1(mpdm_hget(v, t), l + 2, ptr, size);
 103                         }
 104                 }
 105                 else
 106                 if (v->flags & MPDM_MULTIPLE) {
 107                         for (n = 0; n < mpdm_size(v); n++)
 108                                 ptr = dump_1(mpdm_aget(v, n), l + 1, ptr, size);
 109                 }
 110         }
 111
 112         return ptr;
 113 }
 114
 115
 116 /**
 117  * mpdm_dumper - Returns a visual representation of a complex value
 118  * @v: The value
 119  *
 120  * Returns a visual representation of a complex value.
 121  */
 122 mpdm_t mpdm_dumper(const mpdm_t v)
 123 {
 124         int size = 0;
 125         wchar_t *ptr;
 126
 127         ptr = dump_1(v, 0, NULL, &size);
 128         ptr = mpdm_poke(ptr, &size, L"", 1, sizeof(wchar_t));
 129
 130         return MPDM_ENS(ptr, size);
 131 }
 132
 133
 134 /**
 135  * mpdm_dump - Dumps a value to stdin.
 136  * @v: The value
 137  *
 138  * Dumps a value to stdin. The value can be complex. This function
 139  * is for debugging purposes only.
 140  */
 141 void mpdm_dump(const mpdm_t v)
 142 {
 143         mpdm_t w;
 144
 145         w = mpdm_dumper(v);
 146         mpdm_write_wcs(stdout, mpdm_string(w));
 147         mpdm_destroy(w);
 148 }
 149
 150
 151 /**
 152  * mpdm_dump_unref - Dumps all unreferenced values.
 153  *
 154  * Dumps all unreferenced values.
 155  */
 156 void mpdm_dump_unref(void)
 157 {
 158         mpdm_t v;
 159         int count, unref;
 160
 161         /* loop all values */
 162         v = mpdm->cur;
 163         count = mpdm->count;
 164         unref = 0;
 165
 166         printf("** Unreferenced values:\n");
 167
 168         while (count--) {
 169                 if (v->ref == 0) {
 170                         mpdm_dump(v);
 171                         unref++;
 172                 }
 173
 174                 v = v->next;
 175         }
 176
 177         printf("** Total unreferenced: %d\n", unref);
 178 }