incubator-nuttx/libs/libc/stdio/lib_dtoa_data.c

281 lines
5.5 KiB
C

/****************************************************************************
* libs/libc/stdio/lib_dtoa_data.c
*
* SPDX-License-Identifier: BSD-3-Clause
* SPDX-FileCopyrightText: 2018, Keith Packard. All rights reserved.
*
* Redistribution and use in source and binary forms, with or without
* modification, are permitted provided that the following conditions
* are met:
*
* 1. Redistributions of source code must retain the above copyright
* notice, this list of conditions and the following disclaimer.
* 2. Redistributions in binary form must reproduce the above copyright
* notice, this list of conditions and the following disclaimer in
* the documentation and/or other materials provided with the
* distribution.
* 3. Neither the name NuttX nor the names of its contributors may be
* used to endorse or promote products derived from this software
* without specific prior written permission.
*
* THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS
* "AS IS" AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT
* LIMITED TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS
* FOR A PARTICULAR PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL THE
* COPYRIGHT OWNER OR CONTRIBUTORS BE LIABLE FOR ANY DIRECT, INDIRECT,
* INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING,
* BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS
* OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED
* AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT
* LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN
* ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE
* POSSIBILITY OF SUCH DAMAGE.
*
****************************************************************************/
/****************************************************************************
* Included Files
****************************************************************************/
#include "lib_dtoa_engine.h"
/****************************************************************************
* Pre-processor Definitions
****************************************************************************/
#ifndef DBL_MAX_10_EXP
# error DBL_MAX_10_EXP
#endif
#ifndef DBL_MIN_10_EXP
# error DBL_MIN_10_EXP
#endif
#ifndef DBL_DIG
# error DBL_DIG
#endif
/* Make sure the computed sizes of the arrays match the actual sizes
* by declaring an array which is legal if the sizes match and illegal
* if they do not
*/
#define count_of(n) (sizeof (n) / sizeof (n[0]))
#define match(array,size) (count_of(array) == size)
#define check_match(array,size) (match(array, size) ? 1 : -1)
/****************************************************************************
* Public Data
****************************************************************************/
const double g_dtoa_scale_up[] =
{
#if DBL_MAX_10_EXP >= 1
1e1,
#endif
#if DBL_MAX_10_EXP >= 2
1e2,
#endif
#if DBL_MAX_10_EXP >= 4
1e4,
#endif
#if DBL_MAX_10_EXP >= 8
1e8,
#endif
#if DBL_MAX_10_EXP >= 16
1e16,
#endif
#if DBL_MAX_10_EXP >= 32
1e32,
#endif
#if DBL_MAX_10_EXP >= 64
1e64,
#endif
#if DBL_MAX_10_EXP >= 128
1e128,
#endif
#if DBL_MAX_10_EXP >= 256
1e256,
#endif
#if DBL_MAX_10_EXP >= 512
1e512,
#endif
#if DBL_MAX_10_EXP >= 1024
1e1024,
#endif
#if DBL_MAX_10_EXP >= 2048
1e2048,
#endif
#if DBL_MAX_10_EXP >= 4096
1e4096,
#endif
#if DBL_MAX_10_EXP >= 8192
1e8192,
#endif
#if DBL_MAX_10_EXP >= 16384
1e16384,
#endif
#if DBL_MAX_10_EXP >= 32768
1e32768,
#endif
#if DBL_MAX_10_EXP >= 65536
1e65536,
#endif
};
const double g_dtoa_scale_down[] =
{
#if DBL_MIN_10_EXP <= -1
1e-1,
#endif
#if DBL_MIN_10_EXP <= -2
1e-2,
#endif
#if DBL_MIN_10_EXP <= -4
1e-4,
#endif
#if DBL_MIN_10_EXP <= -8
1e-8,
#endif
#if DBL_MIN_10_EXP <= -16
1e-16,
#endif
#if DBL_MIN_10_EXP <= -32
1e-32,
#endif
#if DBL_MIN_10_EXP <= -64
1e-64,
#endif
#if DBL_MIN_10_EXP <= -128
1e-128,
#endif
#if DBL_MIN_10_EXP <= -256
1e-256,
#endif
#if DBL_MIN_10_EXP <= -512
1e-512,
#endif
#if DBL_MIN_10_EXP <= -1024
1e-1024,
#endif
#if DBL_MIN_10_EXP <= -2048
1e-2048,
#endif
#if DBL_MIN_10_EXP <= -4096
1e-4096,
#endif
#if DBL_MIN_10_EXP <= -8192
1e-8192,
#endif
#if DBL_MIN_10_EXP <= -16384
1e-16384,
#endif
#if DBL_MIN_10_EXP <= -32768
1e-32768,
#endif
#if DBL_MIN_10_EXP <= -65536
1e-65536,
#endif
};
const double g_dtoa_round[] =
{
#if DBL_DIG >= 30
5e30,
#endif
#if DBL_DIG >= 29
5e29,
#endif
#if DBL_DIG >= 28
5e28,
#endif
#if DBL_DIG >= 27
5e27,
#endif
#if DBL_DIG >= 26
5e26,
#endif
#if DBL_DIG >= 25
5e25,
#endif
#if DBL_DIG >= 24
5e24,
#endif
#if DBL_DIG >= 23
5e23,
#endif
#if DBL_DIG >= 22
5e22,
#endif
#if DBL_DIG >= 21
5e21,
#endif
#if DBL_DIG >= 20
5e20,
#endif
#if DBL_DIG >= 19
5e19,
#endif
#if DBL_DIG >= 18
5e18,
#endif
#if DBL_DIG >= 17
5e17,
#endif
#if DBL_DIG >= 16
5e16,
#endif
#if DBL_DIG >= 15
5e15,
#endif
#if DBL_DIG >= 14
5e14,
#endif
#if DBL_DIG >= 13
5e13,
#endif
#if DBL_DIG >= 12
5e12,
#endif
#if DBL_DIG >= 11
5e11,
#endif
#if DBL_DIG >= 10
5e10,
#endif
#if DBL_DIG >= 9
5e9,
#endif
#if DBL_DIG >= 8
5e8,
#endif
#if DBL_DIG >= 7
5e7,
#endif
#if DBL_DIG >= 6
5e6,
#endif
#if DBL_DIG >= 5
5e5,
#endif
#if DBL_DIG >= 4
5e4,
#endif
#if DBL_DIG >= 3
5e3,
#endif
#if DBL_DIG >= 2
5e2,
#endif
#if DBL_DIG >= 1
5e1,
#endif
#if DBL_DIG >= 0
5e0,
#endif
};
/****************************************************************************
* Public Functions
****************************************************************************/