166 lines
3.2 KiB
C
166 lines
3.2 KiB
C
|
/* 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., 675 Mass Ave, Cambridge, MA 02139, USA.
|
|||
|
|
|
|||
|
|
The author of the program may be contacted at ian@airs.com or
|
|||
|
|
c/o Infinity Development Systems, P.O. Box 520, Waltham, MA 02254.
|
|||
|
|
*/
|
|||
|
|
|
|||
|
|
#include "uucp.h"
|
|||
|
|
|
|||
|
|
#include <ctype.h>
|
|||
|
|
|
|||
|
|
#include "uudefs.h"
|
|||
|
|
|
|||
|
|
/* 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, ",");
|
|||
|
|
ztok != NULL;
|
|||
|
|
ztok = strtok ((char *) NULL, ","))
|
|||
|
|
{
|
|||
|
|
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;
|
|||
|
|
}
|
|||
|
|
|
|||
|
|
/* 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;
|
|||
|
|
}
|
|||
|
|
|
|||
|
|
/* 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);
|
|||
|
|
}
|