X-Git-Url: http://www.chiark.greenend.org.uk/ucgi/~mdw/git/mLib/blobdiff_plain/de3ceebeb4d24658fef4412d7b307a7897e00d6e..8656dc507aee9c5dcb3a6ad876565f5fcac425ae:/trace.c

diff --git a/trace.c b/trace.c
index 9e1cf0f..f7ef767 100644
--- a/trace.c
+++ b/trace.c
@@ -1,6 +1,6 @@
 /* -*-c-*-
  *
- * $Id: trace.c,v 1.5 1999/10/22 22:39:52 mdw Exp $
+ * $Id: trace.c,v 1.8 2004/04/08 01:36:13 mdw Exp $
  *
  * Tracing functions for debugging
  *
@@ -27,26 +27,6 @@
  * MA 02111-1307, USA.
  */
 
-/*----- Revision history --------------------------------------------------*
- *
- * $Log: trace.c,v $
- * Revision 1.5  1999/10/22 22:39:52  mdw
- * New documented interface for tracing.
- *
- * Revision 1.4  1999/05/19 20:27:11  mdw
- * Change naming to match newer mLib conventions.
- *
- * Revision 1.3  1999/05/06 19:51:35  mdw
- * Reformatted the LGPL notice a little bit.
- *
- * Revision 1.2  1999/05/05 18:50:31  mdw
- * Change licensing conditions to LGPL.
- *
- * Revision 1.1.1.1  1998/06/17 23:44:42  mdw
- * Initial version of mLib
- *
- */
-
 /*----- Header files ------------------------------------------------------*/
 
 /* --- ANSI headers --- */
@@ -59,16 +39,37 @@
 
 /* --- Local headers --- */
 
+#include "dstr.h"
 #include "quis.h"
 #include "trace.h"
 
 /*----- Private state information -----------------------------------------*/
 
-static FILE *tracefp = 0;		/* Where does debugging go? */
+static void (*tracefunc)(const char *buf, size_t sz, void *v) = 0;
+static void *tracearg;
 static unsigned tracelvl = 0;		/* How much tracing gets done? */
 
 /*----- Functions provided ------------------------------------------------*/
 
+/* --- @t_file@ --- *
+ *
+ * Arguments:	@const char *buf@ = buffer to print
+ *		@size_t sz@ = buffer size
+ *		@void *v@ = file handle
+ *
+ * Returns:	---
+ *
+ * Use:		Dumps tracing information to a file.
+ */
+
+static void t_file(const char *buf, size_t sz, void *v)
+{
+  FILE *fp = v;
+  fprintf(fp, "+ %s: ", QUIS);
+  fwrite(buf, 1, sz, fp);
+  fputc('\n', fp);
+}
+
 /* --- @trace@ --- *
  *
  * Arguments:	@unsigned l@ = trace level for output
@@ -83,14 +84,14 @@ static unsigned tracelvl = 0;		/* How much tracing gets done? */
 void trace(unsigned l, const char *f, ...)
 {
   va_list ap;
+  dstr d = DSTR_INIT;
   if ((l & tracing()) == 0)
     return;
   va_start(ap, f);
-  fprintf(tracefp, "*** %s: ", QUIS);
-  vfprintf(tracefp, f, ap);
+  dstr_vputf(&d, f, &ap);
   va_end(ap);
-  putc('\n', tracefp);
-  fflush(tracefp);
+  tracefunc(d.buf, d.len, tracearg);
+  dstr_destroy(&d);
 }
 
 /* --- @trace_block@ --- *
@@ -110,6 +111,7 @@ void trace_block(unsigned l, const char *s, const void *b, size_t sz)
   const unsigned char *p = b;
   size_t i;
   unsigned long o = 0;
+  dstr d = DSTR_INIT;
   size_t c;
 
   /* --- Skip if the trace level is too high --- */
@@ -119,28 +121,29 @@ void trace_block(unsigned l, const char *s, const void *b, size_t sz)
 
   /* --- Now start work --- */
 
-  fprintf(tracefp, "*** %s: %s\n", QUIS, s);
-
+  tracefunc(s, strlen(s), tracearg);
   while (sz) {
-    fprintf(tracefp, "*** %s:   %08lx : ", QUIS, o);
+    dstr_reset(&d);
+    dstr_putf(&d, "   %08lx : ", o);
     for (i = 0; i < 8; i++) {
       if (i < sz)
-	fprintf(tracefp, "%02x ", p[i]);
+	dstr_putf(&d, "%02x ", p[i]);
       else
-	fputs("** ", tracefp);
+	dstr_puts(&d, "** ");
     }
-    fputs(": ", tracefp);
+    dstr_puts(&d, ": ");
     for (i = 0; i < 8; i++) {
       if (i < sz)
-	fputc(isprint(p[i]) ? p[i] : '.', tracefp);
+	dstr_putc(&d, isprint(p[i]) ? p[i] : '.');
       else
-	fputc('*', tracefp);
+	dstr_putc(&d, '*');
     }
-    fputc('\n', tracefp);
+    dstr_putz(&d);
+    tracefunc(d.buf, d.len, tracearg);
     c = (sz >= 8) ? 8 : sz;
     sz -= c, p += c, o += c;
   }
-  fflush(tracefp);
+  dstr_destroy(&d);
 }
 
 /* --- @trace_on@ --- *
@@ -155,12 +158,32 @@ void trace_block(unsigned l, const char *s, const void *b, size_t sz)
 
 void trace_on(FILE *fp, unsigned l)
 {
-  tracefp = fp;
+  tracefunc = t_file;
+  tracearg = fp;
   if (!tracelvl)
     tracelvl = l;
 }
 
-/* --- @trace_setLevel@ --- *
+/* --- @trace_custom@ --- *
+ *
+ * Arguments:	@void (*func)(const char *buf, size_t sz, void *v)@ =
+ *			output function
+ *		@void *v@ = magic handle to give to function
+ *
+ * Returns:	---
+ *
+ * Use:		Sets up a custom trace handler.
+ */
+
+void trace_custom(void (*func)(const char */*buf*/,
+			       size_t /*sz*/, void */*v*/),
+		  void *v)
+{
+  tracefunc = func;
+  tracearg = v;
+}
+
+/* --- @trace_level@ --- *
  *
  * Arguments:	@unsigned l@ = trace level to set
  *
@@ -169,7 +192,7 @@ void trace_on(FILE *fp, unsigned l)
  * Use:		Sets the tracing level.
  */
 
-void trace_setLevel(unsigned l)
+void trace_level(unsigned l)
 {
   tracelvl = l;
 }
@@ -185,7 +208,7 @@ void trace_setLevel(unsigned l)
 
 unsigned tracing(void)
 {
-  return (tracefp ? tracelvl : 0u);
+  return (tracefunc ? tracelvl : 0u);
 }
 
 /*----- That's all, folks -------------------------------------------------*/