#ifndef lint
static char *rcsid = "$Id: debug.c,v 1.1.1.1 2003/06/04 00:25:51 marka Exp $";
#endif
#include <config.h>
#include <stdio.h>
#include <stdarg.h>
#include <stdlib.h>
#include <string.h>
#include <idn/debug.h>
static char *hex = "0123456789abcdef";
#define STRING_MAXBYTES 200
#define STRING_NBUFS 4
static char bufs[STRING_NBUFS][STRING_MAXBYTES + 16];
static int bufno = 0;
char *
idn__debug_hexstring(const char *s, int maxbytes) {
char *buf = bufs[bufno];
char *p;
int i;
if (maxbytes > STRING_MAXBYTES)
maxbytes = STRING_MAXBYTES;
for (i = 0, p = buf; i < maxbytes; i += 3, s++) {
int c = *(unsigned char *)s;
if (c == '\0')
break;
*p++ = hex[c >> 4];
*p++ = hex[c & 15];
*p++ = ' ';
}
if (i >= maxbytes)
strcpy(p, "...");
else
*p = '\0';
bufno = (bufno + 1) % STRING_NBUFS;
return (buf);
}
char *
idn__debug_xstring(const char *s, int maxbytes) {
char *buf = bufs[bufno];
char *p;
int i;
if (maxbytes > STRING_MAXBYTES)
maxbytes = STRING_MAXBYTES;
i = 0;
p = buf;
while (i < maxbytes) {
int c = *(unsigned char *)s;
if (c == '\0') {
break;
} else if (0x20 <= c && c <= 0x7e) {
*p++ = c;
i++;
} else {
*p++ = '\\';
*p++ = 'x';
*p++ = hex[c >> 4];
*p++ = hex[c & 15];
i += 4;
}
s++;
}
if (i >= maxbytes)
strcpy(p, "...");
else
*p = '\0';
bufno = (bufno + 1) % STRING_NBUFS;
return (buf);
}
char *
idn__debug_ucs4xstring(const unsigned long *s, int maxbytes) {
char *buf = bufs[bufno];
char *p;
int i;
if (maxbytes > STRING_MAXBYTES)
maxbytes = STRING_MAXBYTES;
i = 0;
p = buf;
while (i < maxbytes) {
if (*s == '\0') {
break;
} else if (0x20 <= *s && *s <= 0x7e) {
*p++ = *s;
i++;
} else {
*p++ = '\\';
*p++ = 'x';
i += 2;
if (*s >= 0x1000000UL) {
*p++ = hex[(*s >> 28) & 0x0f];
*p++ = hex[(*s >> 24) & 0x0f];
i += 2;
}
if (*s >= 0x10000UL) {
*p++ = hex[(*s >> 20) & 0x0f];
*p++ = hex[(*s >> 16) & 0x0f];
i += 2;
}
if (*s >= 0x100UL) {
*p++ = hex[(*s >> 12) & 0x0f];
*p++ = hex[(*s >> 8) & 0x0f];
i += 2;
}
*p++ = hex[(*s >> 4) & 0x0f];
*p++ = hex[ *s & 0x0f];
i += 2;
}
s++;
}
if (i >= maxbytes)
strcpy(p, "...");
else
*p = '\0';
bufno = (bufno + 1) % STRING_NBUFS;
return (buf);
}
char *
idn__debug_utf16xstring(const unsigned short *s, int maxbytes) {
char *buf = bufs[bufno];
char *p;
int i;
if (maxbytes > STRING_MAXBYTES)
maxbytes = STRING_MAXBYTES;
i = 0;
p = buf;
while (i < maxbytes) {
if (*s == '\0') {
break;
} else if (0x20 <= *s && *s <= 0x7e) {
*p++ = *s;
i++;
} else {
*p++ = '\\';
*p++ = 'x';
*p++ = hex[(*s >> 12) & 0x0f];
*p++ = hex[(*s >> 8) & 0x0f];
*p++ = hex[(*s >> 4) & 0x0f];
*p++ = hex[ *s & 0x0f];
i += 6;
}
s++;
}
if (i >= maxbytes)
strcpy(p, "...");
else
*p = '\0';
bufno = (bufno + 1) % STRING_NBUFS;
return (buf);
}
char *
idn__debug_hexdata(const char *s, int length, int maxbytes) {
char *buf = bufs[bufno];
char *p;
int i;
if (maxbytes > STRING_MAXBYTES)
maxbytes = STRING_MAXBYTES;
i = 0;
p = buf;
while (length > 0 && i < maxbytes) {
int c = *(const unsigned char *)s;
*p++ = hex[c >> 4];
*p++ = hex[c & 15];
*p++ = ' ';
i += 3;
length--;
s++;
}
if (i >= maxbytes)
strcpy(p, "...");
else
*p = '\0';
bufno = (bufno + 1) % STRING_NBUFS;
return (buf);
}
void
idn__debug_hexdump(const char *s, int length) {
int i;
const unsigned char *p = (const unsigned char *)s;
i = 0;
while (length-- > 0) {
if (i % 16 == 0) {
if (i > 0)
fprintf(stderr, "\n");
fprintf(stderr, "%4x:", i);
}
fprintf(stderr, " %02x", p[i]);
i++;
}
fprintf(stderr, "\n");
}