*** empty log message ***

[mLib] / trace.c

/* -*-c-*-
 *
 * $Id: trace.c,v 1.1 1998/06/17 23:44:42 mdw Exp $
 *
 * Tracing functions for debugging
 *
 * (c) 1998 Straylight/Edgeware
 */

/*----- Licensing notice --------------------------------------------------*
 *
 * This file is part of the mLib utilities library.
 *
 * mLib 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.
 *
 * mLib 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 mLib; if not, write to the Free Software Foundation,
 * Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA.
 */

/*----- Revision history --------------------------------------------------*
 *
 * $Log: trace.c,v $
 * Revision 1.1  1998/06/17 23:44:42  mdw
 * Initial revision
 *
 */

/*----- Header files ------------------------------------------------------*/

/* --- ANSI headers --- */

#include <ctype.h>
#include <stdarg.h>
#include <stdio.h>
#include <stdlib.h>
#include <string.h>

/* --- Local headers --- */

#include "quis.h"
#include "trace.h"

/*----- Private state information -----------------------------------------*/

static FILE *trace__fp = 0;		/* Where does debugging go? */
static unsigned int trace__lvl = 0;	/* How much tracing gets done? */

/*----- Functions provided ------------------------------------------------*/

/* --- @trace@ --- *
 *
 * Arguments:	@unsigned int l@ = trace level for output
 *		@const char *f@ = a @printf@-style format string
 *		@...@ = other arguments
 *
 * Returns:	---
 *
 * Use:		Reports a message to the trace output.
 */

void trace(unsigned int l, const char *f, ...)
{
  va_list ap;
  if ((l & tracing()) == 0)
    return;
  va_start(ap, f);
  fprintf(trace__fp, "*** %s: ", QUIS);
  vfprintf(trace__fp, f, ap);
  va_end(ap);
  putc('\n', trace__fp);
  fflush(trace__fp);
}

/* --- @trace_block@ --- *
 *
 * Arguments:	@unsigned int l@ = trace level for output
 *		@const char *s@ = some header string to write
 *		@const void *b@ = pointer to a block of memory to dump
 *		@size_t sz@ = size of the block of memory
 *
 * Returns:	---
 *
 * Use:		Dumps the contents of a block to the trace output.
 */

void trace_block(unsigned int l, const char *s, const void *b, size_t sz)
{
  const unsigned char *p = b;
  size_t i;
  unsigned long o = 0;
  size_t c;

  /* --- Skip if the trace level is too high --- */

  if ((l & tracing()) == 0)
    return;

  /* --- Now start work --- */

  fprintf(trace__fp, "*** %s: %s\n", QUIS, s);

  while (sz) {
    fprintf(trace__fp, "*** %s:   %08lx : ", QUIS, o);
    for (i = 0; i < 8; i++) {
      if (i < sz)
	fprintf(trace__fp, "%02x ", p[i]);
      else
	fputs("** ", trace__fp);
    }
    fputs(": ", trace__fp);
    for (i = 0; i < 8; i++) {
      if (i < sz)
	fputc(isprint(p[i]) ? p[i] : '.', trace__fp);
      else
	fputc('*', trace__fp);
    }
    fputc('\n', trace__fp);
    c = (sz >= 8) ? 8 : sz;
    sz -= c, p += c, o += c;
  }
  fflush(trace__fp);
}

/* --- @trace_on@ --- *
 *
 * Arguments:	@FILE *fp@ = a file to trace on
 *		@unsigned int l@ = trace level to set
 *
 * Returns:	---
 *
 * Use:		Enables tracing to a file.
 */

void trace_on(FILE *fp, unsigned int l)
{
  trace__fp = fp;
  if (!trace__lvl)
    trace__lvl = l;
}

/* --- @trace_setLevel@ --- *
 *
 * Arguments:	@unsigned int l@ = trace level to set
 *
 * Returns:	---
 *
 * Use:		Sets the tracing level.
 */

void trace_setLevel(unsigned int l)
{
  trace__lvl = l;
}

/* --- @tracing@ --- *
 *
 * Arguments:	---
 *
 * Returns:	Zero if not tracing, tracing level if tracing.
 *
 * Use:		Informs the caller whether tracing is enabled.
 */

unsigned int tracing(void)
{
  return (trace__fp ? trace__lvl : 0u);
}

/*----- That's all, folks -------------------------------------------------*/