3 MPDM - Minimum Profit Data Manager
4 Copyright (C) 2003/2010 Angel Ortega <angel@triptico.com>
6 mpdm_d.c - Debugging utilities
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.
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.
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.
22 http://www.triptico.com
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
;
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 */
51 for (n
= 0; n
< l
; n
++)
52 ptr
= mpdm_pokews(ptr
, size
, L
" ");
58 sprintf(tmp
, "%d,%c%c%c%c:", v
->ref
,
59 v
->flags
& MPDM_FILE
? 'F' :
60 (v
->flags
& MPDM_STRING
? 'S' :
61 (v
->flags
& MPDM_EXEC
? 'X' : '-')),
62 v
->flags
& MPDM_HASH
? 'H' :
63 (v
->flags
& MPDM_MULTIPLE
? 'M' : '-'),
64 v
->flags
& MPDM_REGEX
? 'r' :
65 (v
->flags
& MPDM_FREE
? 'A' : '-'),
66 v
->flags
& MPDM_IVAL
? 'I' :
67 (v
->flags
& MPDM_RVAL
? 'R' : '-')
70 wptr
= mpdm_mbstowcs(tmp
, &s
, -1);
71 ptr
= mpdm_poke(ptr
, size
, wptr
, s
, sizeof(wchar_t));
74 /* if it's a multiple value, add also the number
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));
84 /* add the visual representation of the value */
85 ptr
= mpdm_pokev(ptr
, size
, v
);
86 ptr
= mpdm_pokewsn(ptr
, size
, L
"\n", 1);
89 /* if it's a hash, iterate it */
90 if (v
->flags
& MPDM_HASH
) {
94 while (mpdm_iterator(v
, &c
, &k
, &w
)) {
95 ptr
= dump_1(k
, l
+ 1, ptr
, size
);
96 ptr
= dump_1(w
, l
+ 2, ptr
, size
);
100 if (v
->flags
& MPDM_MULTIPLE
) {
101 for (n
= 0; n
< mpdm_size(v
); n
++)
102 ptr
= dump_1(mpdm_aget(v
, n
), l
+ 1, ptr
, size
);
112 static wchar_t *do_dump(mpdm_t v
, int *size
)
116 /* if no dumper plugin is defined, fall back to default */
117 if (mpdm_dump_1
== NULL
)
118 mpdm_dump_1
= dump_1
;
121 ptr
= mpdm_dump_1(v
, 0, NULL
, size
);
122 ptr
= mpdm_pokewsn(ptr
, size
, L
"", 1);
129 * mpdm_dumper - Returns a visual representation of a complex value.
132 * Returns a visual representation of a complex value.
134 mpdm_t
mpdm_dumper(const mpdm_t v
)
139 ptr
= do_dump(v
, &size
);
141 return MPDM_ENS(ptr
, size
- 1);
146 * mpdm_dump - Dumps a value to stdin.
149 * Dumps a value to stdin. The value can be complex. This function
150 * is for debugging purposes only.
152 void mpdm_dump(const mpdm_t v
)
159 ptr
= do_dump(v
, &size
);
160 mpdm_write_wcs(stdout
, ptr
);