/*_ matherr.c   Sat Apr 15 1989   Modified by: Walter Bright */
/* Copyright (C) 1985-1989 by Walter Bright	*/
/* All Rights Reserved					*/
/* Written by Walter Bright				*/

#include	<stdio.h>
#include	<errno.h>
#include	<math.h>
#include	<string.h>

/*****************************
 * Default exception handling routine.
 * Returns:
 *	0	error
 *	1	error handled successfully
 */

int matherr(struct exception *pexc)
{	static char *typemsg[] =
	{	"argument domain",		/* DOMAIN		*/
		"argument singularity",		/* SING			*/
		"overflow",			/* OVERFLOW		*/
		"underflow",			/* UNDERFLOW		*/
		"total loss of significance",	/* TLOSS		*/
		"partial loss of significance"	/* PLOSS		*/
	};
	static int errnotab[] =
	{	EDOM,EDOM,ERANGE,ERANGE,ERANGE,ERANGE	};

#if sizeof(typemsg)/sizeof(char *) != sizeof(errnotab)/sizeof(int)
	#message "array size mismatch"
	#exit 1
#endif
	printf(
	    "Floating point exception: %s(%g",pexc->name,pexc->arg1);
	if (!strcmp(pexc->name,"pow") || !strcmp(pexc->name,"atan2"))
	    printf(
		",%g) %s\n",pexc->arg2,typemsg[pexc->type - 1]);
	else
	    printf(") %s\n",typemsg[pexc->type - 1]);
	errno = errnotab[pexc->type - 1];
	return 0;
}