math.c

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

double errcheck(double d, const char* s)
{
    if (errno == EDOM) {
        errno = 0;
        execerror(s, "argument out of domain");
    } else if (errno == ERANGE) {
        errno = 0;
        execerror(s, "result out of range");
    }
    return d;
}

double Log(double x)
{
    return errcheck(log(x), "log");
}

double Log10(double x)
{
    return errcheck(log10(x), "log10");
}

double Exp(double x)
{
    return errcheck(exp(x), "exp");
}

double Sqrt(double x)
{
    return errcheck(sqrt(x), "sqrt");
}

double Pow(double x, double y)
{
    return errcheck(pow(x, y), "exponentiation");
}

double Integer(double x)
{
    return (double)(long)x;
}