Merge pull request #25 from PetrPytelka/clng_cdbl

New functions CLng and CDbl

Author: verhas

src/main/java/com/scriptbasic/utility/functions/UtilityFunctions.java

@@ -4,13 +4,16 @@
 import com.scriptbasic.classification.Constant;
 import com.scriptbasic.classification.System;
 import com.scriptbasic.classification.Utility;
+import com.scriptbasic.executors.rightvalues.BasicDoubleValue;
+import com.scriptbasic.executors.rightvalues.BasicLongValue;
 import com.scriptbasic.interfaces.BasicRuntimeException;
 import com.scriptbasic.log.Logger;
 import com.scriptbasic.log.LoggerFactory;
 import com.scriptbasic.spi.BasicArray;
 import com.scriptbasic.spi.Interpreter;
 import com.scriptbasic.utility.MagicBean;
 import com.scriptbasic.utility.NoInstance;
+import com.scriptbasic.utility.RightValueUtility;
 
 import java.lang.reflect.Array;
 import java.nio.charset.StandardCharsets;
@@ -143,4 +146,19 @@ public static Long length(final Object arg) {
         return null;
     }
 
+    @BasicFunction(classification = Utility.class)
+    public static Double cdbl(final Object arg) throws BasicRuntimeException {
+        if (arg == null) {
+            throw new BasicRuntimeException("undef cannot be converted to double");
+        }
+        return BasicDoubleValue.asDouble(RightValueUtility.createRightValue(arg));
+    }
+
+    @BasicFunction(classification = Utility.class)
+    static public Long clng(final Object arg) throws BasicRuntimeException {
+        if (arg == null) {
+            throw new BasicRuntimeException("undef cannot be converted to long");
+        }
+        return BasicLongValue.asLong(RightValueUtility.createRightValue(arg));
+    }
 }

src/test/java/com/scriptbasic/testprograms/TestPrograms.java

@@ -168,6 +168,11 @@ public void testStringFunctions() throws Exception {
         codeTest("TestStringFunctions.bas", "0189123");
     }
 
+    @Test
+    public void testUtilityFunctions() throws Exception {
+        codeTest("TestUtilityFunctions.bas", "DONE");
+    }
+
     @Test
     public void testJavaObjectFieldAccess() throws ScriptBasicException, ClassNotFoundException, AnalysisException {
         final var e = new TestingExecutor();

src/test/resources/com/scriptbasic/testprograms/TestUtilityFunctions.bas

@@ -0,0 +1,12 @@
+' test function cdbl
+assert("cdbl_1", cdbl(2)=2.0)
+assert("cdbl_2", cdbl(2.5)=2.5)
+assert("cdbl_3", cdbl("2")=2.0)
+assert("cdbl_4", cdbl("2.5")=2.5)
+
+' test function clng
+assert("clng_1", clng(2)=2)
+assert("clng_2", clng("2")=2)
+assert("clng_3", clng(true)=1)
+
+print "DONE"