/*
 * Copyright (c)2004 Cat's Eye Technologies.  All rights reserved.
 * 
 * Redistribution and use in source and binary forms, with or without
 * modification, are permitted provided that the following conditions
 * are met:
 * 
 *   Redistributions of source code must retain the above copyright
 *   notice, this list of conditions and the following disclaimer.
 * 
 *   Redistributions in binary form must reproduce the above copyright
 *   notice, this list of conditions and the following disclaimer in
 *   the documentation and/or other materials provided with the
 *   distribution.
 * 
 *   Neither the name of Cat's Eye Technologies nor the names of its
 *   contributors may be used to endorse or promote products derived
 *   from this software without specific prior written permission. 
 * 
 * THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS
 * ``AS IS'' AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT
 * LIMITED TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS
 * FOR A PARTICULAR PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL THE
 * COPYRIGHT HOLDERS OR CONTRIBUTORS BE LIABLE FOR ANY DIRECT,
 * INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES
 * (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR
 * SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)
 * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT,
 * STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE)
 * ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED
 * OF THE POSSIBILITY OF SUCH DAMAGE. 
 */
/*
 * debug.c
 * Debugging (dumping, tracing...) routines for 2Iota.
 * $Id: debug.c 518 2010-04-28 17:48:38Z cpressey $
 */

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

#include "symbol.h"
#include "symstr.h"
#include "event.h"
#include "equeue.h"

#include "debug.h"
#include "cli.h"		/* XXX bleah */
#include "2iota.h"

int	trace_flags = 0;

void
debug_trace(int flag, const char *fmt, ...)
{
	va_list args;
	int i;

	if ((flag & trace_flags) != flag)
		return;

	va_start(args, fmt);
	switch (flag) {
	case TRACE_EVENTS:
		fprintf(stderr, "[ EVENT ] ");
		break;
	case TRACE_QUEUE:
		fprintf(stderr, "[ QUEUE ] ");
		break;
	case TRACE_HISTORY:
		fprintf(stderr, "[HISTORY] ");
		break;
	}

	for (i = 0; fmt[i] != '\0'; i++) {
		if (fmt[i] == '%') {
			i++;
			switch (fmt[i]) {
			case 'S':
				symstr_dump(va_arg(args, struct symstr *));
				break;
			case 'T':
				etime_dump(va_arg(args, struct etime *));
				break;
			case 'E':
				event_dump(va_arg(args, struct event *));
				break;
			case 'B':
				fprintf(stderr, va_arg(args, int) ? "TRUE" : "FALSE");
				break;
			case 's':
				fprintf(stderr, "%s", va_arg(args, char *));
				break;
			case 'd':
				fprintf(stderr, "%d", va_arg(args, int));
				break;
			}
		} else {
			fprintf(stderr, "%c", fmt[i]);
		}
	}
	fprintf(stderr, "\n");
}

void
debug_dump(const char *what)
{
	if (!strcmp(what, "symbols"))
		symbol_table_dump(0, gstab);
	else if (!strcmp(what, "alphabets"))
		symbol_table_dump(0, astab);
	else if (!strcmp(what, "events"))
		event_table_dump(event_table);
	else if (!strcmp(what, "queue"))
		equeue_dump(event_queue);
	else if (!strcmp(what, "history"))
		ehist_dump(event_hist);
	else if (strlen(what) == 0 || !strcmp(what, "all"))
		debug_dump_all();
	else {
		fprintf(stderr, "Unknown program element `%s'\n", what);
		help();
	}
}

void
debug_dump_all(void)
{
	fprintf(stderr, "*** General Symbols ***\n");
	debug_dump("symbols");
	fprintf(stderr, "*** Alphabets ***\n");
	debug_dump("alphabets");
	fprintf(stderr, "*** Events ***\n");
	debug_dump("events");
	fprintf(stderr, "*** Event Queue ***\n");
	debug_dump("queue");
	fprintf(stderr, "*** Event History ***\n");
	debug_dump("history");
}