/*****************************************************************************/

/*  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;

}