dalist: initial commit.

1 files changed, 213 insertions, 0 deletions

diff --git a/src/dalist_debug.c b/src/dalist_debug.c
new file mode 100644
index 0000000..4461286
--- /dev/null
+++ b/src/dalist_debug.c
@@ -0,0 +1,213 @@
+/*****************************************************************************/
+/*  dalist: a zero-dependency book-keeping library                           */
+/*  Copyright (C) 2013,2014,2015  Z. Gilboa                                  */
+/*  Released under GPLv2 and GPLv3; see COPYING.DALIST.                      */
+/*****************************************************************************/
+
+#include <dalist/dalist.h>
+#include "dalist_impl.h"
+
+dalist_api
+int dalist_debug_setup(
+	struct dalist_ex *	dlist,
+	struct dalist_debug *	dlist_debug,
+	enum dalist_dbgenv	dbgenv,
+	dalist_sprintf *	pfn_sprintf,
+	dalist_write *		pfn_write,
+	dalist_write_file *	pfn_write_file)
+{
+	if (dlist)
+		/* in case we fail */
+		dlist->debug = 0;
+	else
+		return DALIST_ELIST;
+
+	if (!dlist_debug)
+		return DALIST_EDEBUGSTRUCT;
+	else if (!pfn_sprintf)
+		return DALIST_EDEBUGSPRINTF;
+
+	switch (dbgenv) {
+		case DALIST_DEBUG_ENV_POSIX:
+			if (!pfn_write)
+				return DALIST_EDEBUGWRITE;
+			break;
+
+		case DALIST_DEBUG_ENV_NT:
+			if (!pfn_write_file)
+				return DALIST_EDEBUGWRITEFILE;
+			break;
+
+		default:
+			return DALIST_EDEBUGENV;
+	}
+
+	dlist_debug->dbgenv        = dbgenv;
+	dlist_debug->sprintf       = pfn_sprintf;
+	dlist_debug->write         = pfn_write;
+	dlist_debug->zw_write_file = pfn_write_file;
+
+	dlist->debug = dlist_debug;
+
+	return DALIST_OK;
+}
+
+
+static const char dalist_fmt_header_32[] =
+	"dlist:\t\t0x%08x\n"
+	"dlist->head:\t0x%08x\n"
+	"dlist->tail:\t0x%08x\n\n";
+
+static const char dalist_fmt_header_64[] =
+	"dlist:\t\t0x%016x\n"
+	"dlist->head:\t0x%016x\n"
+	"dlist->tail:\t0x%016x\n\n";
+
+static const char dalist_fmt_node_32[] =
+	"node: 0x%08x\t"
+	"prev: 0x%08x\t"
+	"next: 0x%08x\t"
+	"any:  0x%08x\t\n";
+
+static const char dalist_fmt_node_64[] =
+	"node: 0x%016x\t"
+	"prev: 0x%016x\t"
+	"next: 0x%016x\t"
+	"any:  0x%016x\t\n";
+
+
+static int dalist_dbg_write_posix(
+	struct dalist_ex *	dlist,
+	intptr_t		fildes_or_hfile,
+	const void *		buf,
+	size_t			nbyte)
+{
+	int		fildes;
+	dalist_write *	pfn_write;
+	ssize_t		bytes_written;
+
+	fildes = (int)fildes_or_hfile;
+	pfn_write = (dalist_write *)dlist->debug->write;
+
+	bytes_written = pfn_write(fildes,buf,nbyte);
+
+	if (bytes_written == nbyte)
+		return DALIST_OK;
+	else
+		return DALIST_EDEBUGENV;
+}
+
+
+static int dalist_dbg_write_nt(
+	struct dalist_ex *	dlist,
+	intptr_t		fildes_or_hfile,
+	const void *		buf,
+	size_t			nbyte)
+{
+	void *			hfile;
+	dalist_iosb		iosb;
+	dalist_write_file *	pfn_write_file;
+
+	hfile          = (void *)fildes_or_hfile;
+	pfn_write_file = (dalist_write_file *)dlist->debug->zw_write_file;
+
+	return pfn_write_file(
+		hfile,
+		(void *)0,
+		(void *)0,
+		(void *)0,
+		&iosb,
+		(void *)buf,
+		(uint32_t)nbyte,
+		(int64_t *)0,
+		(uint32_t *)0);
+
+	if (iosb.info == nbyte)
+		return DALIST_OK;
+	else
+		return DALIST_EDEBUGENV;
+}
+
+
+dalist_api
+int dalist_debug_print(
+	struct dalist_ex *	dlist,
+	intptr_t		fildes_or_hfile)
+{
+	const char *		fmt_header;
+	const char *		fmt_node;
+	char			dbg_buf[128];
+	intptr_t		nbyte;
+
+	int			status;
+	struct dalist_node *	node;
+	dalist_sprintf *	dbg_sprintf;
+	dalist_dbg_write *	dbg_write;
+
+	if (!dlist)
+		return DALIST_ELIST;
+	else if (!dlist->debug)
+		return DALIST_EDEBUGENV;
+
+	/* initial setup */
+	dbg_sprintf = (dalist_sprintf *)dlist->debug->sprintf;
+
+	if (sizeof(size_t) == 4) {
+		fmt_header = (char *)dalist_fmt_header_32;
+		fmt_node   = (char *)dalist_fmt_node_32;
+	} else if (sizeof(size_t) == 8) {
+		fmt_header = (char *)dalist_fmt_header_64;
+		fmt_node   = (char *)dalist_fmt_node_64;
+	} else
+		return DALIST_EDEBUGENV;
+
+	if (dlist->debug->dbgenv == DALIST_DEBUG_ENV_POSIX)
+		dbg_write = dalist_dbg_write_posix;
+	else if (dlist->debug->dbgenv == DALIST_DEBUG_ENV_NT)
+		dbg_write = dalist_dbg_write_nt;
+	else
+		dbg_write = 0;
+
+	if ((!dbg_sprintf) || (!dbg_write))
+		return DALIST_EDEBUGENV;
+
+	/* print list header */
+	nbyte = dbg_sprintf((char *)dbg_buf,fmt_header,dlist,dlist->head,dlist->tail);
+
+	if (nbyte < 0)
+		return DALIST_EDEBUGENV;
+
+	status = dbg_write(dlist,fildes_or_hfile,dbg_buf,nbyte);
+
+	if (status != NT_STATUS_SUCCESS)
+		return DALIST_EDEBUGENV;
+
+	/* print node information */
+	status = DALIST_OK;
+	node   = (struct dalist_node *)dlist->head;
+
+	while (node && (status == DALIST_OK)) {
+		/* create output line */
+		nbyte = dbg_sprintf(
+			(char *)dbg_buf,
+			fmt_node,
+			node,
+			node->prev,
+			node->next,
+			node->any);
+
+		if (nbyte < 0)
+			return DALIST_EDEBUGENV;
+
+		/* write output line */
+		status = dbg_write(
+			dlist,
+			fildes_or_hfile,
+			dbg_buf,
+			nbyte);
+
+		node = node->next;
+	}
+
+	return DALIST_OK;
+}