Add value_doubleIsInt() function

Author: adazem009

include/scratchcpp/value_functions.h

@@ -34,6 +34,8 @@ extern "C"
     LIBSCRATCHCPP_EXPORT char *value_toCString(const ValueData *v);
     LIBSCRATCHCPP_EXPORT void value_toUtf16(const ValueData *v, std::u16string *dst);
 
+    LIBSCRATCHCPP_EXPORT bool value_doubleIsInt(double v);
+
     LIBSCRATCHCPP_EXPORT char *value_doubleToCString(double v);
     LIBSCRATCHCPP_EXPORT const char *value_boolToCString(bool v);
     LIBSCRATCHCPP_EXPORT double value_stringToDouble(const char *s);

src/scratch/value_functions.cpp

@@ -164,14 +164,9 @@ extern "C"
             case ValueType::Bool:
                 return true;
 
-            case ValueType::Number: {
-                if (std::isinf(v->numberValue) || std::isnan(v->numberValue))
-                    return true;
+            case ValueType::Number:
+                return value_doubleIsInt(v->numberValue);
 
-                double intpart;
-                std::modf(v->numberValue, &intpart);
-                return v->numberValue == intpart;
-            }
             case ValueType::String:
                 return value_checkString(v->stringValue) == 1;
         }
@@ -280,6 +275,17 @@ extern "C"
         dst->assign(utf8::utf8to16(s));
     }
 
+    /*! Returns true if the given number represents a round integer. */
+    bool value_doubleIsInt(double v)
+    {
+        if (std::isinf(v) || std::isnan(v))
+            return true;
+
+        double intpart;
+        std::modf(v, &intpart);
+        return v == intpart;
+    }
+
     /*!
      * Converts the given number to string.
      * \note It is the caller's responsibility to free allocated memory.

test/scratch_classes/value_test.cpp

@@ -2795,6 +2795,16 @@ TEST(ValueTest, ComparisonOperators)
     }
 }
 
+TEST(ValueTest, DoubleIsInt)
+{
+    ASSERT_TRUE(value_doubleIsInt(0.0));
+    ASSERT_TRUE(value_doubleIsInt(15.0));
+    ASSERT_TRUE(value_doubleIsInt(-468.0));
+    ASSERT_FALSE(value_doubleIsInt(0.1));
+    ASSERT_FALSE(value_doubleIsInt(1.2));
+    ASSERT_FALSE(value_doubleIsInt(-12.5852));
+}
+
 TEST(ValueTest, DoubleToCString)
 {
     char *ret;