Port biginteger (#581)

* Port `biginteger`

* Use the same implementation in `bigint` & `biginteger`

Author: shantanu-sardesai

compiler+runtime/include/cpp/jank/runtime/core/math.hpp

@@ -9,6 +9,7 @@ namespace jank::runtime
     using integer_ref = oref<struct integer>;
     using real_ref = oref<struct real>;
     using ratio_ref = oref<struct ratio>;
+    using big_integer_ref = oref<struct big_integer>;
     using big_decimal_ref = oref<struct big_decimal>;
   }
 
@@ -278,6 +279,8 @@ namespace jank::runtime
   i64 parse_long(object_ref o);
   f64 parse_double(object_ref o);
 
+  obj::big_integer_ref to_big_integer(object_ref const o);
+
   bool is_big_decimal(object_ref const o);
   obj::big_decimal_ref to_big_decimal(object_ref const o);
 }

compiler+runtime/src/cpp/jank/runtime/core/math.cpp

@@ -1775,6 +1775,34 @@ namespace jank::runtime
     }
   }
 
+  obj::big_integer_ref to_big_integer(object_ref const o)
+  {
+    return visit_number_like(
+      [&](auto const typed_o) -> obj::big_integer_ref {
+        using T = typename decltype(typed_o)::value_type;
+
+        if constexpr(std::same_as<T, obj::big_integer>)
+        {
+          return typed_o;
+        }
+        else if constexpr(std::same_as<T, obj::integer>)
+        {
+          return make_box<obj::big_integer>(typed_o->data);
+        }
+        else if constexpr(std::same_as<T, obj::real> || std::same_as<T, obj::ratio>
+                          || std::same_as<T, obj::big_decimal>)
+        {
+          return make_box<obj::big_integer>(typed_o->to_integer());
+        }
+        else
+        {
+          throw make_box(util::format("Expected a numeric value, got {}", object_type_str(o->type)))
+            .erase();
+        }
+      },
+      o);
+  }
+
   bool is_big_decimal(object_ref const o)
   {
     return o->type == object_type::big_decimal;

compiler+runtime/src/jank/clojure/core.jank

@@ -5444,28 +5444,12 @@
 (defn bigint
   "Coerce to BigInt"
   [x]
-  ;; (cond
-  ;;   (instance? clojure.lang.BigInt x) x
-  ;;   (instance? BigInteger x) (clojure.lang.BigInt/fromBigInteger x)
-  ;;   (decimal? x) (bigint (.toBigInteger ^BigDecimal x))
-  ;;   (float? x)  (bigint (. BigDecimal valueOf (double x)))
-  ;;   (ratio? x) (bigint (.bigIntegerValue ^clojure.lang.Ratio x))
-  ;;   (number? x) (clojure.lang.BigInt/valueOf (long x))
-  ;;   :else (bigint (BigInteger. x)))
-  (throw "TODO: port bigint"))
+  (cpp/jank.runtime.to_big_integer x))
 
 (defn biginteger
   "Coerce to BigInteger"
   [x]
-  ;; (cond
-  ;;   (instance? BigInteger x) x
-  ;;   (instance? clojure.lang.BigInt x) (.toBigInteger ^clojure.lang.BigInt x)
-  ;;   (decimal? x) (.toBigInteger ^BigDecimal x)
-  ;;   (float? x) (.toBigInteger (. BigDecimal valueOf (double x)))
-  ;;   (ratio? x) (.bigIntegerValue ^clojure.lang.Ratio x)
-  ;;   (number? x) (BigInteger/valueOf (long x))
-  ;;   :else (BigInteger. x))
-  (throw "TODO: port biginteger"))
+  (cpp/jank.runtime.to_big_integer x))
 
 (defn bigdec
   "Coerce to BigDecimal"

compiler+runtime/test/bash/clojure-test-suite/src/jank_test/run_clojure_test_suite.cljc

@@ -10,7 +10,7 @@
     clojure.core-test.any-qmark
     ;clojure.core-test.associative-qmark ; TODO: port to-array
     clojure.core-test.bigdec ; Unable to resolve symbol 'java.math.BigDecimal'., Read error (312 - 314): invalid number: chars 'M' are invalid for radix 10
-    ;clojure.core-test.bigint ; Unable to resolve symbol 'clojure.lang.BigInt'.
+    ;clojure.core-test.bigint ; TODO: port inc' & dec'.
     ;clojure.core-test.binding ; TODO: port future
     ;clojure.core-test.bit-and ; Uncaught exception: invalid object type: 0
     ;clojure.core-test.bit-and-not ; Uncaught exception: invalid object type: 0