feat(core): add from/to uint64_t to Double.carp for Random.carp

Author: CorruptedVor

core/Double.carp

@@ -21,6 +21,8 @@
   (register from-float (Fn [Float] Double))
   (register to-long (Fn [Double] Long))
   (register from-long (Fn [Long] Double))
+  (register to-uint64 (Fn [Double] Uint64))
+  (register from-uint64 (Fn [Uint64] Double))
   (register to-bytes (Fn [Double] Long))
   (register copy (Fn [(Ref Double)] Double))
 

core/Random.carp

@@ -8,7 +8,7 @@
 
   (doc seed "seed resets the seed of the random number generator.")
   (defn seed []
-    (set! s (Double.from-long (System.nanotime))))
+    (set! s (Double.from-uint64 (System.nanotime))))
 
   (doc seed-from "seed-from resets the seed of the random number generator to `new-seed`.")
   (defn seed-from [new-seed]

core/carp_double.h

@@ -60,6 +60,14 @@ double Double_from_MINUS_long(Long x) {
     return (double)x;
 }
 
+uint64_t Double_to_MINUS_uint64(double x) {
+    return (uint64_t)x;
+}
+
+double Double_from_MINUS_uint64(uint64_t x) {
+    return (double)x;
+}
+
 double Double_abs(double x) {
     return x > 0.0 ? x : -x;
 }