/src/pike_float.h

http://github.com/pikelang/Pike · C Header · 91 lines · 58 code · 16 blank · 17 comment · 2 complexity · 2698b51b9ec91e5082f36e8342e88cf4 MD5 · raw file 

    

  1. /*
    2. 

  2. || This file is part of Pike. For copyright information see COPYRIGHT.
    3. 

  3. || Pike is distributed under GPL, LGPL and MPL. See the file COPYING
    4. 

  4. || for more information.
    5. 

  5. */
    6. 

  6. 

  7. /* Misc stuff for dealing with floats.
    8. 

  8.  */
    9. 

  9. 

  10. #ifndef PIKE_FLOAT_H
    11. 

  11. #define PIKE_FLOAT_H
    12. 

  12. 

  13. #include "global.h"
    14. 

  14. 

  15. #include <math.h>
    16. 

  16. 

  17. #ifdef HAVE_FLOATINGPOINT_H
    18. 

  18. #include <floatingpoint.h>
    19. 

  19. #endif
    20. 

  20. #ifdef HAVE_IEEEFP_H
    21. 

  21. #include <ieeefp.h>
    22. 

  22. #endif
    23. 

  23. #ifdef HAVE_FP_CLASS_H
    24. 

  24. #include <fp_class.h>
    25. 

  25. #endif
    26. 

  26. 

  27. #ifdef HAVE__ISNAN
    28. 

  28. #define PIKE_ISNAN(X) _isnan(X)
    29. 

  29. #else
    30. 

  30. #define PIKE_ISNAN(X) isnan(X)
    31. 

  31. #endif
    32. 

  32. 

  33. #ifdef HAVE_ISINF
    34. 

  34. #define PIKE_ISINF(X)	isinf(X)
    35. 

  35. #elif defined(HAVE_ISFINITE)
    36. 

  36. #define PIKE_ISINF(X)   (!isfinite(X))
    37. 

  37. #elif defined(HAVE__FINITE)
    38. 

  38. #define PIKE_ISINF(X)   (!_finite(X))
    39. 

  39. #else
    40. 

  40. #define PIKE_ISINF(X)	((X) && ((X)+(X) == (X)))
    41. 

  41. #endif /* HAVE_ISINF */
    42. 

  42. 

  43. #ifdef INFINITY
    44. 

  44. #define MAKE_INF() INFINITY
    45. 

  45. #else
    46. 

  46. #define MAKE_INF() (DBL_MAX+DBL_MAX)
    47. 

  47. #endif
    48. 

  48. 

  49. #ifdef HAVE_NAN
    50. 

  50. #define MAKE_NAN() (nan(""))
    51. 

  51. #else
    52. 

  52. #define MAKE_NAN() (MAKE_INF()-MAKE_INF())
    53. 

  53. #endif
    54. 

  54. 

  55. 

  56. #ifdef HAVE_ISUNORDERED
    57. 

  57. #define PIKE_ISUNORDERED(X,Y) isunordered(X,Y)
    58. 

  58. #else
    59. 

  59. #define PIKE_ISUNORDERED(X,Y) (PIKE_ISNAN(X)||PIKE_ISNAN(Y))
    60. 

  60. #endif /* HAVE_ISUNORDERED */
    61. 

  61. 

  62. #ifndef FLOAT_IS_IEEE_BIG
    63. 

  63. #ifndef FLOAT_IS_IEEE_LITTLE
    64. 

  64. #define NEED_CUSTOM_IEEE
    65. 

  65. #endif
    66. 

  66. #endif
    67. 

  67. #ifndef NEED_CUSTOM_IEEE
    68. 

  68. #ifndef DOUBLE_IS_IEEE_BIG
    69. 

  69. #ifndef DOUBLE_IS_IEEE_LITTLE
    70. 

  70. #define NEED_CUSTOM_IEEE
    71. 

  71. #endif
    72. 

  72. #endif
    73. 

  73. #endif
    74. 

  74. 

  75. /* This calculation should always give some margin based on the size. */
    76. 

  76. /* It utilizes that log10(256) ~= 2.4 < 5/2. */
    77. 

  77. /* One quarter of the float is the exponent. */
    78. 

  78. #define MAX_FLOAT_EXP_LEN ((SIZEOF_FLOAT_TYPE * 5 + 4) / 8)
    79. 

  79. 

  80. /* Ten extra bytes: Mantissa sign, decimal point (up to four bytes),
    81. 

  81.  * zero before the decimal point, the 'e', the exponent sign, an extra
    82. 

  82.  * digit due to the mantissa/exponent split, and the \0 termination.
    83. 

  83.  *
    84. 

  84.  * Four bytes for the decimal point is built on the assumption that it
    85. 

  85.  * can be any unicode char, which in utf8 encoding can take up to four
    86. 

  86.  * bytes. See format_pike_float. */
    87. 

  87. #define MAX_FLOAT_SPRINTF_LEN (10 + PIKEFLOAT_DIG + MAX_FLOAT_EXP_LEN)
    88. 

  88. 

  89. PMOD_EXPORT void format_pike_float (char *buf, FLOAT_TYPE f);
    90. 

  90. 

  91. #endif	/* !PIKE_FLOAT_H */
    92.