FPEnvironment_SUN.cpp 2.3 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141
  1. //
  2. // FPEnvironment_SUN.cpp
  3. //
  4. // $Id: //poco/1.4/Foundation/src/FPEnvironment_SUN.cpp#1 $
  5. //
  6. // Library: Foundation
  7. // Package: Core
  8. // Module: FPEnvironment
  9. //
  10. // Copyright (c) 2005-2006, Applied Informatics Software Engineering GmbH.
  11. // and Contributors.
  12. //
  13. // SPDX-License-Identifier: BSL-1.0
  14. //
  15. #include <math.h>
  16. #include "Poco/FPEnvironment_SUN.h"
  17. namespace Poco {
  18. FPEnvironmentImpl::FPEnvironmentImpl()
  19. {
  20. _rnd = fpgetround();
  21. _exc = fpgetmask();
  22. }
  23. FPEnvironmentImpl::FPEnvironmentImpl(const FPEnvironmentImpl& env)
  24. {
  25. _rnd = env._rnd;
  26. _exc = env._exc;
  27. }
  28. FPEnvironmentImpl::~FPEnvironmentImpl()
  29. {
  30. fpsetround(_rnd);
  31. fpsetmask(_exc);
  32. }
  33. FPEnvironmentImpl& FPEnvironmentImpl::operator = (const FPEnvironmentImpl& env)
  34. {
  35. _rnd = env._rnd;
  36. _exc = env._exc;
  37. return *this;
  38. }
  39. bool FPEnvironmentImpl::isInfiniteImpl(float value)
  40. {
  41. int cls = fpclass(value);
  42. return cls == FP_PINF || cls == FP_NINF;
  43. }
  44. bool FPEnvironmentImpl::isInfiniteImpl(double value)
  45. {
  46. int cls = fpclass(value);
  47. return cls == FP_PINF || cls == FP_NINF;
  48. }
  49. bool FPEnvironmentImpl::isInfiniteImpl(long double value)
  50. {
  51. int cls = fpclass(value);
  52. return cls == FP_PINF || cls == FP_NINF;
  53. }
  54. bool FPEnvironmentImpl::isNaNImpl(float value)
  55. {
  56. return isnanf(value) != 0;
  57. }
  58. bool FPEnvironmentImpl::isNaNImpl(double value)
  59. {
  60. return isnan(value) != 0;
  61. }
  62. bool FPEnvironmentImpl::isNaNImpl(long double value)
  63. {
  64. return isnan((double) value) != 0;
  65. }
  66. float FPEnvironmentImpl::copySignImpl(float target, float source)
  67. {
  68. return (float) copysign(target, source);
  69. }
  70. double FPEnvironmentImpl::copySignImpl(double target, double source)
  71. {
  72. return (float) copysign(target, source);
  73. }
  74. long double FPEnvironmentImpl::copySignImpl(long double target, long double source)
  75. {
  76. return (source > 0 && target > 0) || (source < 0 && target < 0) ? target : -target;
  77. }
  78. void FPEnvironmentImpl::keepCurrentImpl()
  79. {
  80. fpsetround(_rnd);
  81. fpsetmask(_exc);
  82. }
  83. void FPEnvironmentImpl::clearFlagsImpl()
  84. {
  85. fpsetsticky(0);
  86. }
  87. bool FPEnvironmentImpl::isFlagImpl(FlagImpl flag)
  88. {
  89. return (fpgetsticky() & flag) != 0;
  90. }
  91. void FPEnvironmentImpl::setRoundingModeImpl(RoundingModeImpl mode)
  92. {
  93. fpsetround((fp_rnd) mode);
  94. }
  95. FPEnvironmentImpl::RoundingModeImpl FPEnvironmentImpl::getRoundingModeImpl()
  96. {
  97. return (FPEnvironmentImpl::RoundingModeImpl) fpgetround();
  98. }
  99. } // namespace Poco