NetBSD/gnu/libexec/uucp/libuucp/debug.c

174 lines
3.3 KiB
C
Raw Blame History

This file contains invisible Unicode characters

This file contains invisible Unicode characters that are indistinguishable to humans but may be processed differently by a computer. If you think that this is intentional, you can safely ignore this warning. Use the Escape button to reveal them.

/* debug.c
UUCP debugging functions.
Copyright (C) 1991, 1992 Ian Lance Taylor
This file is part of the Taylor UUCP package.
This program is free software; you can redistribute it and/or
modify it under the terms of the GNU General Public License as
published by the Free Software Foundation; either version 2 of the
License, or (at your option) any later version.
This program is distributed in the hope that it will be useful, but
WITHOUT ANY WARRANTY; without even the implied warranty of
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
General Public License for more details.
You should have received a copy of the GNU General Public License
along with this program; if not, write to the Free Software
Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA.
The author of the program may be contacted at ian@airs.com or
c/o Cygnus Support, 48 Grove Street, Somerville, MA 02144.
*/
#include "uucp.h"
#include <ctype.h>
#include "uudefs.h"
#if DEBUG > 1
/* The debugging level. */
int iDebug;
/* Parse a debugging string. This may be a simple number, which sets
the given number of bits in iDebug, or it may be a series of single
letters. */
static const char * const azDebug_names[] = DEBUG_NAMES;
int
idebug_parse (z)
const char *z;
{
char *zend;
int i, iret;
char *zcopy, *ztok;
if (strncasecmp (z, DEBUG_NONE, sizeof DEBUG_NONE - 1) == 0)
return 0;
i = (int) strtol ((char *) z, &zend, 0);
if (*zend == '\0')
{
if (i > 15)
i = 15;
else if (i < 0)
i = 0;
return (1 << i) - 1;
}
zcopy = zbufcpy (z);
iret = 0;
for (ztok = strtok (zcopy, ", \t");
ztok != NULL;
ztok = strtok ((char *) NULL, ", \t"))
{
if (strcasecmp (ztok, "all") == 0)
{
iret = DEBUG_MAX;
break;
}
for (i = 0; azDebug_names[i] != NULL; i++)
{
if (strncasecmp (ztok, azDebug_names[i],
strlen (azDebug_names[i])) == 0)
{
iret |= 1 << i;
break;
}
}
if (azDebug_names[i] == NULL)
ulog (LOG_ERROR, "Unrecognized debugging option \"%s\"",
ztok);
}
ubuffree (zcopy);
return iret;
}
#endif /* DEBUG > 1 */
/* A debugging routine used when displaying buffers. */
size_t
cdebug_char (z, ichar)
char *z;
int ichar;
{
char b;
if (isprint (BUCHAR (ichar))
&& ichar != '\"'
&& ichar != '\\')
{
*z++ = (char) ichar;
*z = '\0';
return 1;
}
*z++ = '\\';
switch (ichar)
{
case '\n':
b = 'n';
break;
case '\r':
b = 'r';
break;
case '\"':
b = '\"';
break;
case '\\':
b = '\\';
break;
default:
sprintf (z, "%03o", (unsigned int) BUCHAR (ichar));
return strlen (z) + 1;
}
*z++ = b;
*z = '\0';
return 2;
}
#if DEBUG > 1
/* Display a buffer when debugging. */
void
udebug_buffer (zhdr, zbuf, clen)
const char *zhdr;
const char *zbuf;
size_t clen;
{
char *z, *zalc;
int i;
zalc = zbufalc (clen * 4 + 1);
z = zalc;
for (i = 0; i < clen && i < 80; i++)
z += cdebug_char (z, zbuf[i]);
if (i < clen)
{
*z++ = '.';
*z++ = '.';
*z++ = '.';
}
*z = '\0';
ulog (LOG_DEBUG, "%s %lu \"%s\"", zhdr, (unsigned long) clen, zalc);
ubuffree (zalc);
}
#endif