#include "lib.h"
#include "allocate.h"

#include "compat/mmap-blob.c"

#include <floatingpoint.h>
#include <limits.h>
#include <errno.h>

long double string_to_ld(const char *str, char **endptr)
{
        long double res;
        decimal_record dr;
        enum decimal_string_form form;
        decimal_mode dm;
        fp_exception_field_type excp;
        char *echar;

        string_to_decimal ((char **)&str, INT_MAX, 0,
                           &dr, &form, &echar);
        if (endptr) *endptr = (char *)str;

        if (form == invalid_form) {
                errno = EINVAL;
                return 0.0;
        }

        dm.rd = fp_nearest;
        decimal_to_quadruple (&res, &dm, &dr, &excp);
        if (excp & ((1 << fp_overflow) | (1 << fp_underflow)))
                errno = ERANGE;
        return res;
}