#include <fenv.h>

#include <stdio.h>

#include "fenvutil.h"

static struct {

	int flag;

	char *s;

} eflags[] = {

	{FE_INVALID, "FE_INVALID"},

	{FE_DIVBYZERO, "FE_DIVBYZERO"},

	{FE_OVERFLOW, "FE_OVERFLOW"},

	{FE_UNDERFLOW, "FE_UNDERFLOW"},

	{FE_INEXACT, "FE_INEXACT"},

};

static int ne = sizeof eflags / sizeof *eflags;

static struct {

	int flag;

	char *s;

} rflags[] = {

	{FE_TONEAREST,"FE_TONEAREST"},

	{FE_DOWNWARD,"FE_DOWNWARD"},

	{FE_UPWARD,"FE_UPWARD"},

	{FE_TOWARDZERO,"FE_TOWARDZERO"},

};

static int nr = sizeof rflags / sizeof *rflags;

char *strexcept(int f) {

	static char buf[256];

	char *p;

	int i, all=0;

	p = buf;

	for (i = 0; i < ne; i++)

		if (f & eflags[i].flag) {

			p += sprintf(p, "%s%s", all ? "|" : "", eflags[i].s);

			all |= eflags[i].flag;

		}

	if (all != f) {

		p += sprintf(p, "%s%d", all ? "|" : "", f & ~all);

		all = f;

	}

	p += sprintf(p, "%s", all ? "" : "0");

	return buf;

}

char *strround(int f) {

	static char buf[256];

	int i;

	for (i = 0; i < nr; i++)

		if (f == rflags[i].flag) {

			sprintf(buf, "%s", rflags[i].s);

			return buf;

		}

	sprintf(buf, "%d", f);

	return buf;

}