blob: bf9fb14720034b0e19438fc95c7278419adda5f7 [file] [log] [blame] [edit]
/****************************************************************************
* Copyright (c) 2001-2007,2008 Free Software Foundation, Inc. *
* *
* Permission is hereby granted, free of charge, to any person obtaining a *
* copy of this software and associated documentation files (the *
* "Software"), to deal in the Software without restriction, including *
* without limitation the rights to use, copy, modify, merge, publish, *
* distribute, distribute with modifications, sublicense, and/or sell *
* copies of the Software, and to permit persons to whom the Software is *
* furnished to do so, subject to the following conditions: *
* *
* The above copyright notice and this permission notice shall be included *
* in all copies or substantial portions of the Software. *
* *
* THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS *
* OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF *
* MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. *
* IN NO EVENT SHALL THE ABOVE COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, *
* DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR *
* OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION WITH THE SOFTWARE OR *
* THE USE OR OTHER DEALINGS IN THE SOFTWARE. *
* *
* Except as contained in this notice, the name(s) of the above copyright *
* holders shall not be used in advertising or otherwise to promote the *
* sale, use or other dealings in this Software without prior written *
* authorization. *
****************************************************************************/
/****************************************************************************
* Author: Thomas E. Dickey 1996-on *
* and: Zeyd M. Ben-Halim <zmbenhal@netcom.com> 1992,1995 *
* and: Eric S. Raymond <esr@snark.thyrsus.com> *
****************************************************************************/
/*
* visbuf.c - Tracing/Debugging support routines
*/
#define NEED_NCURSES_CH_T
#include <curses.priv.h>
#include <tic.h>
#include <ctype.h>
MODULE_ID("$Id: visbuf.c,v 1.32 2008/08/04 23:07:39 tom Exp $")
#define NormalLen(len) (size_t) (((size_t)(len) + 1) * 4)
#define WideLen(len) (size_t) (((size_t)(len) + 1) * 4 * MB_CUR_MAX)
#ifdef TRACE
static const char d_quote[] = StringOf(D_QUOTE);
static const char l_brace[] = StringOf(L_BRACE);
static const char r_brace[] = StringOf(R_BRACE);
#endif
static char *
_nc_vischar(char *tp, unsigned c)
{
if (c == '"' || c == '\\') {
*tp++ = '\\';
*tp++ = (char) c;
} else if (is7bits(c) && (isgraph(c) || c == ' ')) {
*tp++ = (char) c;
} else if (c == '\n') {
*tp++ = '\\';
*tp++ = 'n';
} else if (c == '\r') {
*tp++ = '\\';
*tp++ = 'r';
} else if (c == '\b') {
*tp++ = '\\';
*tp++ = 'b';
} else if (c == '\033') {
*tp++ = '\\';
*tp++ = 'e';
} else if (UChar(c) == 0x7f) {
*tp++ = '\\';
*tp++ = '^';
*tp++ = '?';
} else if (is7bits(c) && iscntrl(UChar(c))) {
*tp++ = '\\';
*tp++ = '^';
*tp++ = (char) ('@' + c);
} else {
sprintf(tp, "\\%03lo", (unsigned long) ChCharOf(c));
tp += strlen(tp);
}
*tp = 0;
return tp;
}
static const char *
_nc_visbuf2n(int bufnum, const char *buf, int len)
{
const char *vbuf;
char *tp;
int c;
if (buf == 0)
return ("(null)");
if (buf == CANCELLED_STRING)
return ("(cancelled)");
if (len < 0)
len = (int) strlen(buf);
#ifdef TRACE
vbuf = tp = _nc_trace_buf(bufnum, NormalLen(len));
#else
{
static char *mybuf[4];
mybuf[bufnum] = typeRealloc(char, NormalLen(len), mybuf[bufnum]);
vbuf = tp = mybuf[bufnum];
}
#endif
if (tp != 0) {
*tp++ = D_QUOTE;
while ((--len >= 0) && (c = *buf++) != '\0') {
tp = _nc_vischar(tp, UChar(c));
}
*tp++ = D_QUOTE;
*tp++ = '\0';
} else {
vbuf = ("(_nc_visbuf2n failed)");
}
return (vbuf);
}
NCURSES_EXPORT(const char *)
_nc_visbuf2(int bufnum, const char *buf)
{
return _nc_visbuf2n(bufnum, buf, -1);
}
NCURSES_EXPORT(const char *)
_nc_visbuf(const char *buf)
{
return _nc_visbuf2(0, buf);
}
NCURSES_EXPORT(const char *)
_nc_visbufn(const char *buf, int len)
{
return _nc_visbuf2n(0, buf, len);
}
#ifdef TRACE
#if USE_WIDEC_SUPPORT
#if defined(USE_TERMLIB)
#define _nc_wchstrlen _my_wchstrlen
static int
_nc_wchstrlen(const cchar_t *s)
{
int result = 0;
while (CharOf(s[result]) != L'\0') {
result++;
}
return result;
}
#endif
static const char *
_nc_viswbuf2n(int bufnum, const wchar_t *buf, int len)
{
const char *vbuf;
char *tp;
wchar_t c;
if (buf == 0)
return ("(null)");
if (len < 0)
len = (int) wcslen(buf);
#ifdef TRACE
vbuf = tp = _nc_trace_buf(bufnum, WideLen(len));
#else
{
static char *mybuf[2];
mybuf[bufnum] = typeRealloc(char, WideLen(len), mybuf[bufnum]);
vbuf = tp = mybuf[bufnum];
}
#endif
if (tp != 0) {
*tp++ = D_QUOTE;
while ((--len >= 0) && (c = *buf++) != '\0') {
char temp[CCHARW_MAX + 80];
int j = wctomb(temp, c), k;
if (j <= 0) {
sprintf(temp, "\\u%08X", (unsigned) c);
j = (int) strlen(temp);
}
for (k = 0; k < j; ++k) {
tp = _nc_vischar(tp, UChar(temp[k]));
}
}
*tp++ = D_QUOTE;
*tp++ = '\0';
} else {
vbuf = ("(_nc_viswbuf2n failed)");
}
return (vbuf);
}
NCURSES_EXPORT(const char *)
_nc_viswbuf2(int bufnum, const wchar_t *buf)
{
return _nc_viswbuf2n(bufnum, buf, -1);
}
NCURSES_EXPORT(const char *)
_nc_viswbuf(const wchar_t *buf)
{
return _nc_viswbuf2(0, buf);
}
NCURSES_EXPORT(const char *)
_nc_viswbufn(const wchar_t *buf, int len)
{
return _nc_viswbuf2n(0, buf, len);
}
/* this special case is used for wget_wstr() */
NCURSES_EXPORT(const char *)
_nc_viswibuf(const wint_t *buf)
{
static wchar_t *mybuf;
static unsigned mylen;
unsigned n;
for (n = 0; buf[n] != 0; ++n) ;
if (mylen < ++n) {
mylen = n + 80;
if (mybuf != 0)
mybuf = typeRealloc(wchar_t, mylen, mybuf);
else
mybuf = typeMalloc(wchar_t, mylen);
}
for (n = 0; buf[n] != 0; ++n)
mybuf[n] = (wchar_t) buf[n];
return _nc_viswbuf2(0, mybuf);
}
#endif /* USE_WIDEC_SUPPORT */
/* use these functions for displaying parts of a line within a window */
NCURSES_EXPORT(const char *)
_nc_viscbuf2(int bufnum, const NCURSES_CH_T * buf, int len)
{
char *result = _nc_trace_buf(bufnum, BUFSIZ);
int first;
const char *found;
if (result != 0) {
#if USE_WIDEC_SUPPORT
if (len < 0)
len = _nc_wchstrlen(buf);
#endif /* USE_WIDEC_SUPPORT */
/*
* Display one or more strings followed by attributes.
*/
first = 0;
while (first < len) {
attr_t attr = AttrOf(buf[first]);
int last = len - 1;
int j;
for (j = first + 1; j < len; ++j) {
if (!SameAttrOf(buf[j], buf[first])) {
last = j - 1;
break;
}
}
result = _nc_trace_bufcat(bufnum, l_brace);
result = _nc_trace_bufcat(bufnum, d_quote);
for (j = first; j <= last; ++j) {
found = _nc_altcharset_name(attr, (chtype) CharOf(buf[j]));
if (found != 0) {
result = _nc_trace_bufcat(bufnum, found);
attr &= ~A_ALTCHARSET;
} else
#if USE_WIDEC_SUPPORT
if (!isWidecExt(buf[j])) {
PUTC_DATA;
PUTC_INIT;
for (PUTC_i = 0; PUTC_i < CCHARW_MAX; ++PUTC_i) {
int k;
PUTC_ch = buf[j].chars[PUTC_i];
if (PUTC_ch == L'\0')
break;
PUTC_n = (int) wcrtomb(PUTC_buf, buf[j].chars[PUTC_i], &PUT_st);
if (PUTC_n <= 0)
break;
for (k = 0; k < PUTC_n; k++) {
char temp[80];
_nc_vischar(temp, UChar(PUTC_buf[k]));
result = _nc_trace_bufcat(bufnum, temp);
}
}
}
#else
{
char temp[80];
_nc_vischar(temp, UChar(buf[j]));
result = _nc_trace_bufcat(bufnum, temp);
}
#endif /* USE_WIDEC_SUPPORT */
}
result = _nc_trace_bufcat(bufnum, d_quote);
if (attr != A_NORMAL) {
result = _nc_trace_bufcat(bufnum, " | ");
result = _nc_trace_bufcat(bufnum, _traceattr2(bufnum + 20, attr));
}
result = _nc_trace_bufcat(bufnum, r_brace);
first = last + 1;
}
}
return result;
}
NCURSES_EXPORT(const char *)
_nc_viscbuf(const NCURSES_CH_T * buf, int len)
{
return _nc_viscbuf2(0, buf, len);
}
#endif /* TRACE */