1fdd4e1e0SJan Lentfer /****************************************************************************
2*32bb5217SDaniel Fojt * Copyright 2020 Thomas E. Dickey *
3*32bb5217SDaniel Fojt * Copyright 1998-2012,2016 Free Software Foundation, Inc. *
4fdd4e1e0SJan Lentfer * *
5fdd4e1e0SJan Lentfer * Permission is hereby granted, free of charge, to any person obtaining a *
6fdd4e1e0SJan Lentfer * copy of this software and associated documentation files (the *
7fdd4e1e0SJan Lentfer * "Software"), to deal in the Software without restriction, including *
8fdd4e1e0SJan Lentfer * without limitation the rights to use, copy, modify, merge, publish, *
9fdd4e1e0SJan Lentfer * distribute, distribute with modifications, sublicense, and/or sell *
10fdd4e1e0SJan Lentfer * copies of the Software, and to permit persons to whom the Software is *
11fdd4e1e0SJan Lentfer * furnished to do so, subject to the following conditions: *
12fdd4e1e0SJan Lentfer * *
13fdd4e1e0SJan Lentfer * The above copyright notice and this permission notice shall be included *
14fdd4e1e0SJan Lentfer * in all copies or substantial portions of the Software. *
15fdd4e1e0SJan Lentfer * *
16fdd4e1e0SJan Lentfer * THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS *
17fdd4e1e0SJan Lentfer * OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF *
18fdd4e1e0SJan Lentfer * MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. *
19fdd4e1e0SJan Lentfer * IN NO EVENT SHALL THE ABOVE COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, *
20fdd4e1e0SJan Lentfer * DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR *
21fdd4e1e0SJan Lentfer * OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION WITH THE SOFTWARE OR *
22fdd4e1e0SJan Lentfer * THE USE OR OTHER DEALINGS IN THE SOFTWARE. *
23fdd4e1e0SJan Lentfer * *
24fdd4e1e0SJan Lentfer * Except as contained in this notice, the name(s) of the above copyright *
25fdd4e1e0SJan Lentfer * holders shall not be used in advertising or otherwise to promote the *
26fdd4e1e0SJan Lentfer * sale, use or other dealings in this Software without prior written *
27fdd4e1e0SJan Lentfer * authorization. *
28fdd4e1e0SJan Lentfer ****************************************************************************/
29fdd4e1e0SJan Lentfer
30fdd4e1e0SJan Lentfer /****************************************************************************
311d102085SJan Lentfer * Author: Thomas E. Dickey 1996-on *
32fdd4e1e0SJan Lentfer * and: Zeyd M. Ben-Halim <zmbenhal@netcom.com> 1992,1995 *
33fdd4e1e0SJan Lentfer * and: Eric S. Raymond <esr@snark.thyrsus.com> *
34fdd4e1e0SJan Lentfer ****************************************************************************/
35fdd4e1e0SJan Lentfer
36fdd4e1e0SJan Lentfer /*
37fdd4e1e0SJan Lentfer * lib_tracedmp.c - Tracing/Debugging routines
38fdd4e1e0SJan Lentfer */
39fdd4e1e0SJan Lentfer
40fdd4e1e0SJan Lentfer #include <curses.priv.h>
41fdd4e1e0SJan Lentfer #include <ctype.h>
42fdd4e1e0SJan Lentfer
43*32bb5217SDaniel Fojt MODULE_ID("$Id: lib_tracedmp.c,v 1.36 2020/02/02 23:34:34 tom Exp $")
44fdd4e1e0SJan Lentfer
45fdd4e1e0SJan Lentfer #ifdef TRACE
461d102085SJan Lentfer
471d102085SJan Lentfer #define my_buffer _nc_globals.tracedmp_buf
481d102085SJan Lentfer #define my_length _nc_globals.tracedmp_used
491d102085SJan Lentfer
NCURSES_EXPORT(void)50fdd4e1e0SJan Lentfer NCURSES_EXPORT(void)
51fdd4e1e0SJan Lentfer _tracedump(const char *name, WINDOW *win)
52fdd4e1e0SJan Lentfer {
53fdd4e1e0SJan Lentfer int i, j, n, width;
54fdd4e1e0SJan Lentfer
55fdd4e1e0SJan Lentfer /* compute narrowest possible display width */
56fdd4e1e0SJan Lentfer for (width = i = 0; i <= win->_maxy; ++i) {
57fdd4e1e0SJan Lentfer n = 0;
581d102085SJan Lentfer for (j = 0; j <= win->_maxx; ++j) {
59fdd4e1e0SJan Lentfer if (CharOf(win->_line[i].text[j]) != L(' ')
601d102085SJan Lentfer || AttrOf(win->_line[i].text[j]) != A_NORMAL
611d102085SJan Lentfer || GetPair(win->_line[i].text[j]) != 0) {
62fdd4e1e0SJan Lentfer n = j;
631d102085SJan Lentfer }
641d102085SJan Lentfer }
65fdd4e1e0SJan Lentfer
66fdd4e1e0SJan Lentfer if (n > width)
67fdd4e1e0SJan Lentfer width = n;
68fdd4e1e0SJan Lentfer }
69fdd4e1e0SJan Lentfer if (width < win->_maxx)
70fdd4e1e0SJan Lentfer ++width;
711d102085SJan Lentfer if (++width + 1 > (int) my_length) {
7200d8f3c4SJohn Marino my_length = (unsigned) (2 * (width + 1));
731d102085SJan Lentfer my_buffer = typeRealloc(char, my_length, my_buffer);
743468e90cSJohn Marino if (my_buffer == 0)
753468e90cSJohn Marino return;
76fdd4e1e0SJan Lentfer }
77fdd4e1e0SJan Lentfer
78fdd4e1e0SJan Lentfer for (n = 0; n <= win->_maxy; ++n) {
791d102085SJan Lentfer char *ep = my_buffer;
80*32bb5217SDaniel Fojt bool havecolors;
81fdd4e1e0SJan Lentfer
82fdd4e1e0SJan Lentfer /*
83fdd4e1e0SJan Lentfer * Dump A_CHARTEXT part. It is more important to make the grid line up
84fdd4e1e0SJan Lentfer * in the trace file than to represent control- and wide-characters, so
85fdd4e1e0SJan Lentfer * we map those to '.' and '?' respectively.
86fdd4e1e0SJan Lentfer */
87fdd4e1e0SJan Lentfer for (j = 0; j < width; ++j) {
8800d8f3c4SJohn Marino chtype test = (chtype) CharOf(win->_line[n].text[j]);
891d102085SJan Lentfer ep[j] = (char) ((UChar(test) == test
90fdd4e1e0SJan Lentfer #if USE_WIDEC_SUPPORT
91fdd4e1e0SJan Lentfer && (win->_line[n].text[j].chars[1] == 0)
92fdd4e1e0SJan Lentfer #endif
93fdd4e1e0SJan Lentfer )
94fdd4e1e0SJan Lentfer ? (iscntrl(UChar(test))
95fdd4e1e0SJan Lentfer ? '.'
96fdd4e1e0SJan Lentfer : UChar(test))
971d102085SJan Lentfer : '?');
98fdd4e1e0SJan Lentfer }
99fdd4e1e0SJan Lentfer ep[j] = '\0';
1001d102085SJan Lentfer _tracef("%s[%2d] %3ld%3ld ='%s'",
101fdd4e1e0SJan Lentfer name, n,
1021d102085SJan Lentfer (long) win->_line[n].firstchar,
1031d102085SJan Lentfer (long) win->_line[n].lastchar,
104fdd4e1e0SJan Lentfer ep);
105fdd4e1e0SJan Lentfer
1061d102085SJan Lentfer /* if there are multi-column characters on the line, print them now */
1071d102085SJan Lentfer if_WIDEC({
1081d102085SJan Lentfer bool multicolumn = FALSE;
1091d102085SJan Lentfer for (j = 0; j < width; ++j)
1101d102085SJan Lentfer if (WidecExt(win->_line[n].text[j]) != 0) {
1111d102085SJan Lentfer multicolumn = TRUE;
1121d102085SJan Lentfer break;
1131d102085SJan Lentfer }
1141d102085SJan Lentfer if (multicolumn) {
1151d102085SJan Lentfer ep = my_buffer;
1161d102085SJan Lentfer for (j = 0; j < width; ++j) {
1173468e90cSJohn Marino int test = WidecExt(win->_line[n].text[j]);
1181d102085SJan Lentfer if (test) {
1191d102085SJan Lentfer ep[j] = (char) (test + '0');
1201d102085SJan Lentfer } else {
1211d102085SJan Lentfer ep[j] = ' ';
1221d102085SJan Lentfer }
1231d102085SJan Lentfer }
1241d102085SJan Lentfer ep[j] = '\0';
1251d102085SJan Lentfer _tracef("%*s[%2d]%*s='%s'", (int) strlen(name),
1261d102085SJan Lentfer "widec", n, 8, " ", my_buffer);
1271d102085SJan Lentfer }
1281d102085SJan Lentfer });
1291d102085SJan Lentfer
130fdd4e1e0SJan Lentfer /* dump A_COLOR part, will screw up if there are more than 96 */
131fdd4e1e0SJan Lentfer havecolors = FALSE;
132fdd4e1e0SJan Lentfer for (j = 0; j < width; ++j)
1331d102085SJan Lentfer if (GetPair(win->_line[n].text[j]) != 0) {
134fdd4e1e0SJan Lentfer havecolors = TRUE;
135fdd4e1e0SJan Lentfer break;
136fdd4e1e0SJan Lentfer }
137fdd4e1e0SJan Lentfer if (havecolors) {
1381d102085SJan Lentfer ep = my_buffer;
1391d102085SJan Lentfer for (j = 0; j < width; ++j) {
1401d102085SJan Lentfer int pair = GetPair(win->_line[n].text[j]);
1411d102085SJan Lentfer if (pair >= 52)
1421d102085SJan Lentfer ep[j] = '?';
1431d102085SJan Lentfer else if (pair >= 36)
1441d102085SJan Lentfer ep[j] = (char) (pair + 'A');
1451d102085SJan Lentfer else if (pair >= 10)
1461d102085SJan Lentfer ep[j] = (char) (pair + 'a');
1471d102085SJan Lentfer else if (pair >= 1)
1481d102085SJan Lentfer ep[j] = (char) (pair + '0');
1491d102085SJan Lentfer else
1501d102085SJan Lentfer ep[j] = ' ';
1511d102085SJan Lentfer }
152fdd4e1e0SJan Lentfer ep[j] = '\0';
153fdd4e1e0SJan Lentfer _tracef("%*s[%2d]%*s='%s'", (int) strlen(name),
1541d102085SJan Lentfer "colors", n, 8, " ", my_buffer);
155fdd4e1e0SJan Lentfer }
156fdd4e1e0SJan Lentfer
157fdd4e1e0SJan Lentfer for (i = 0; i < 4; ++i) {
158fdd4e1e0SJan Lentfer const char *hex = " 123456789ABCDEF";
15900d8f3c4SJohn Marino attr_t mask = (attr_t) (0xf << ((i + 4) * 4));
160*32bb5217SDaniel Fojt bool haveattrs = FALSE;
161fdd4e1e0SJan Lentfer
162fdd4e1e0SJan Lentfer for (j = 0; j < width; ++j)
163fdd4e1e0SJan Lentfer if (AttrOf(win->_line[n].text[j]) & mask) {
164fdd4e1e0SJan Lentfer haveattrs = TRUE;
165fdd4e1e0SJan Lentfer break;
166fdd4e1e0SJan Lentfer }
167fdd4e1e0SJan Lentfer if (haveattrs) {
1681d102085SJan Lentfer ep = my_buffer;
169fdd4e1e0SJan Lentfer for (j = 0; j < width; ++j)
170fdd4e1e0SJan Lentfer ep[j] = hex[(AttrOf(win->_line[n].text[j]) & mask) >>
171fdd4e1e0SJan Lentfer ((i + 4) * 4)];
172fdd4e1e0SJan Lentfer ep[j] = '\0';
173fdd4e1e0SJan Lentfer _tracef("%*s%d[%2d]%*s='%s'", (int) strlen(name) -
1741d102085SJan Lentfer 1, "attrs", i, n, 8, " ", my_buffer);
175fdd4e1e0SJan Lentfer }
176fdd4e1e0SJan Lentfer }
177fdd4e1e0SJan Lentfer }
178fdd4e1e0SJan Lentfer #if NO_LEAKS
1791d102085SJan Lentfer free(my_buffer);
1801d102085SJan Lentfer my_buffer = 0;
1811d102085SJan Lentfer my_length = 0;
182fdd4e1e0SJan Lentfer #endif
183fdd4e1e0SJan Lentfer }
184fdd4e1e0SJan Lentfer
185fdd4e1e0SJan Lentfer #else
1861d102085SJan Lentfer EMPTY_MODULE(_nc_lib_tracedmp)
187fdd4e1e0SJan Lentfer #endif /* TRACE */
188