/*
**
**	halt.c
**
**	This is used to print out error messages and exit
*/

#include <varargs.h>
#include <signal.h>
#include <stdio.h>
#include <errno.h>


/*-------------------------------------------------------------------------
**
**	halt - print error message, and call clean up routine or exit
**
**------------------------------------------------------------------------*/

/*VARARGS*/
void halt(va_alist)
va_dcl
{
	va_list arg_ptr;
	char	*format, *pstr;
	void (*sig_func)();

	va_start(arg_ptr);
	format = va_arg(arg_ptr,char *);
	if (strncmp(format,"PERROR", 6) != 0)
		vfprintf(stderr,format,arg_ptr);
	else
	{
		for (pstr=format+6; *pstr == ' ' || *pstr == ':'; pstr++)
			;
		vfprintf(stderr,pstr,arg_ptr);
		perror("");
	}			
	va_end(arg_ptr);
	fflush(stderr);

		/* call one clean up function if defined */
	if ( (sig_func = signal(SIGTERM, SIG_DFL)) != SIG_DFL &&
	      sig_func != SIG_IGN)
		(*sig_func)(0);
	else if ( (sig_func = signal(SIGHUP, SIG_DFL)) != SIG_DFL &&
	      		sig_func != SIG_IGN)
		(*sig_func)(0);
	else if ( (sig_func = signal(SIGINT, SIG_DFL)) != SIG_DFL &&
	      		sig_func != SIG_IGN)
		(*sig_func)(0);
	else if ( (sig_func = signal(SIGQUIT, SIG_DFL)) != SIG_DFL &&
	      		sig_func != SIG_IGN)
		(*sig_func)(0);
	exit(1);
}
