/*
 * Copyright (c) 1993-1995 Argonaut Technologies Limited. All rights reserved.
 *
 * $Id: diag.c 2.6 1996/12/12 17:01:44 STEVEW Exp $
 * $Locker: $
 *
 * Diagnostic handling support
 *
 * These routines are not called directly, but via macros. This is
 * to allow the underlying diagnostic mechanism to be radically changed
 * and allow various text scanning methods for message extraction
 *
 */
#include <stdarg.h>

#include "fw.h"

BR_RCS_ID("$Id: diag.c 2.6 1996/12/12 17:01:44 STEVEW Exp $")

static char _diag_scratch[128];

void BR_RESIDENT_ENTRY BrFailure(char *s,...)
{
	va_list args;
	static char failure_header[] = "Failure: ";

	BrStrCpy(_diag_scratch,failure_header);

	va_start(args,s);
	BrVSprintf(_diag_scratch+(BR_ASIZE(failure_header)-1),s,args);
	va_end(args);

	if(fw.diag->failure == NULL)
		BrAbort();

	fw.diag->failure(_diag_scratch);
}

void BR_RESIDENT_ENTRY BrWarning(char *s,...)
{
	va_list args;
	static char warning_header[] = "Warning: ";

	BrStrCpy(_diag_scratch,warning_header);

	va_start(args,s);
	BrVSprintf(_diag_scratch+(BR_ASIZE(warning_header)-1),s,args);
	va_end(args);

	if(fw.diag->warning == NULL)
		BrAbort();

	fw.diag->warning(_diag_scratch);
}

void BR_RESIDENT_ENTRY BrFatal(char *name, int line, char *s,...)
{
	va_list args;
 	int n;

	n = BrSprintf(_diag_scratch,"FATAL %s:%d\n",name,line);
	va_start(args,s);
	BrVSprintf(_diag_scratch+n,s,args);
	va_end(args);

	if(fw.diag->failure == NULL)
		BrAbort();

	fw.diag->failure(_diag_scratch);
}

void BR_RESIDENT_ENTRY _BrAssert(char *condition, char *file, unsigned line)
{
	if(fw.diag->failure == NULL)
		BrAbort();

	BrSprintf(_diag_scratch,"ASSERTION FAILED %s:%d: \"%s\"\n",file,line,condition);
	fw.diag->failure(_diag_scratch);
}

void BR_RESIDENT_ENTRY _BrUAssert(char *condition, char *file, unsigned line)
{
	if(fw.diag->failure == NULL)
		BrAbort();

	BrSprintf(_diag_scratch,"ASSERTION FAILED %s:%d: \"%s\"\n",file,line,condition);
	fw.diag->failure(_diag_scratch);
}