afw_number.h

Go to the documentation of this file.

// See the 'COPYING' file in the project root for licensing information.
/*
 * Adaptive Framework Number Header
 *
 * Copyright (c) 2010-2023 Clemson University
 *
 */
 
#ifndef __AFW_NUMBER_H__
#define __AFW_NUMBER_H__
 
#include "afw_common.h"
#include <float.h>
 
AFW_BEGIN_DECLARES
 
#define AFW_NUMBER_Q_INF                "INF"
#define AFW_NUMBER_Q_INFINITY           "Infinity"
#define AFW_NUMBER_Q_NEGATIVE_INF       "-INF"
#define AFW_NUMBER_Q_NEGATIVE_INFINITY  "-Infinity"
#define AFW_NUMBER_Q_NAN                "NaN"
#define AFW_NUMBER_Q_NEGATIVE_NAN       "-NaN"
#define AFW_NUMBER_Q_EXPONENT_ZERO      "E0"
 
AFW_DEFINE_STATIC_INLINE(afw_boolean_t)
afw_number_is_finite(double d)
{
    return (d <= DBL_MAX && d >= -DBL_MAX);
}
 
 
AFW_DEFINE_STATIC_INLINE(afw_boolean_t)
afw_number_is_positive_infinity(double d)
{
    return (d > DBL_MAX);
}
 
 
AFW_DEFINE_STATIC_INLINE(afw_boolean_t)
afw_number_is_negative_infinity(double d)
{
    return (d < -DBL_MAX);
}
 
 
AFW_DEFINE_STATIC_INLINE(afw_boolean_t)
afw_number_is_NaN(double d)
{
    return !(d == d);
}
 
 
AFW_DECLARE(afw_size_t)
afw_number_parse(
    const afw_utf8_octet_t *cursor, afw_size_t len,
    afw_integer_t *i, afw_double_t *d, afw_boolean_t *is_double, 
    const afw_pool_t *p, afw_xctx_t *xctx);
 
 
#define afw_number_parse_integer(cursor, len, i, p, xctx) \
    afw_number_parse(cursor, len, i, NULL, NULL, p, xctx)
 
 
#define afw_number_parse_double(cursor, len, d, p, xctx) \
    afw_number_parse(cursor, len, NULL, d, NULL, p, xctx)
 
 
AFW_DECLARE(const afw_utf8_t *)
afw_number_double_to_utf8(
    afw_double_t d,
    const afw_pool_t *p, afw_xctx_t *xctx);
 
 
AFW_DEFINE_STATIC_INLINE(afw_double_t)
afw_number_utf8_to_double(
    const afw_utf8_t *s, const afw_pool_t *p, afw_xctx_t *xctx)
{
    afw_double_t d;
    afw_boolean_t is_double;
    afw_size_t len;
 
    len = afw_number_parse(s->s, s->len, NULL, &d, &is_double, p, xctx);
    if (!is_double || len != s->len) {
        AFW_THROW_ERROR_Z(general, "Invalid double", xctx);
    }
    return d;
}
 
 
 
AFW_DECLARE(const afw_utf8_t *)
afw_number_integer_to_utf8(
    afw_integer_t i,
    const afw_pool_t *p, afw_xctx_t *xctx);
 
 
 
AFW_DECLARE(afw_size_t)
afw_number_integer_set_u8(
    afw_integer_t i, afw_utf8_octet_t *s, afw_size_t len, afw_xctx_t *xctx);
   
 
AFW_DEFINE_STATIC_INLINE(afw_integer_t)
afw_number_utf8_to_integer(
    const afw_utf8_t *s, const afw_pool_t *p, afw_xctx_t *xctx)
{
    afw_integer_t i;
    afw_boolean_t is_double;
    afw_size_t len;
 
    len = afw_number_parse(s->s, s->len, &i, NULL, &is_double, p, xctx);
    if (is_double || len != s->len) {
        AFW_THROW_ERROR_Z(general, "Invalid integer", xctx);
    }
    return i;
}
 
 
 
AFW_DECLARE(int)
afw_number_bytes_needed_size_t(afw_size_t i);
 
 
 
AFW_DEFINE(int)
afw_number_bytes_needed_integer(afw_integer_t i);
 
 
AFW_END_DECLARES
 
#endif /* __AFW_NUMBER_H__ */