@tellahq/rescript 10.1.0-alpha.1

package/lib/js/caml_hash.js

@@ -0,0 +1,99 @@
+'use strict';
+
+var Caml_hash_primitive = require("./caml_hash_primitive.js");
+
+function push_back(q, v) {
+  var cell = {
+    content: v,
+    next: undefined
+  };
+  var last = q.last;
+  if (last !== undefined) {
+    q.length = q.length + 1 | 0;
+    last.next = cell;
+    q.last = cell;
+  } else {
+    q.length = 1;
+    q.first = cell;
+    q.last = cell;
+  }
+}
+
+function unsafe_pop(q) {
+  var cell = q.first;
+  var next = cell.next;
+  if (next === undefined) {
+    q.length = 0;
+    q.first = undefined;
+    q.last = undefined;
+  } else {
+    q.length = q.length - 1 | 0;
+    q.first = next;
+  }
+  return cell.content;
+}
+
+function hash(count, _limit, seed, obj) {
+  var s = seed;
+  if (typeof obj === "number") {
+    var u = obj | 0;
+    s = Caml_hash_primitive.hash_mix_int(s, (u + u | 0) + 1 | 0);
+    return Caml_hash_primitive.hash_final_mix(s);
+  }
+  if (typeof obj === "string") {
+    s = Caml_hash_primitive.hash_mix_string(s, obj);
+    return Caml_hash_primitive.hash_final_mix(s);
+  }
+  var queue = {
+    length: 0,
+    first: undefined,
+    last: undefined
+  };
+  var num = count;
+  push_back(queue, obj);
+  num = num - 1 | 0;
+  while(queue.length !== 0 && num > 0) {
+    var obj$1 = unsafe_pop(queue);
+    if (typeof obj$1 === "number") {
+      var u$1 = obj$1 | 0;
+      s = Caml_hash_primitive.hash_mix_int(s, (u$1 + u$1 | 0) + 1 | 0);
+      num = num - 1 | 0;
+    } else if (typeof obj$1 === "string") {
+      s = Caml_hash_primitive.hash_mix_string(s, obj$1);
+      num = num - 1 | 0;
+    } else if (typeof obj$1 !== "boolean" && typeof obj$1 !== "undefined" && typeof obj$1 !== "symbol" && typeof obj$1 !== "function") {
+      var size = obj$1.length | 0;
+      if (size !== 0) {
+        var obj_tag = obj$1.TAG | 0;
+        var tag = (size << 10) | obj_tag;
+        if (obj_tag === 248) {
+          s = Caml_hash_primitive.hash_mix_int(s, obj$1[1]);
+        } else {
+          s = Caml_hash_primitive.hash_mix_int(s, tag);
+          var v = size - 1 | 0;
+          var block = v < num ? v : num;
+          for(var i = 0; i <= block; ++i){
+            push_back(queue, obj$1[i]);
+          }
+        }
+      } else {
+        var size$1 = (function(obj,cb){
+            var size = 0  
+            for(var k in obj){
+              cb(obj[k])
+              ++ size
+            }
+            return size
+          })(obj$1, (function (v) {
+                push_back(queue, v);
+              }));
+        s = Caml_hash_primitive.hash_mix_int(s, (size$1 << 10) | 0);
+      }
+    }
+    
+  };
+  return Caml_hash_primitive.hash_final_mix(s);
+}
+
+exports.hash = hash;
+/* No side effect */

package/lib/js/caml_hash_primitive.js

@@ -0,0 +1,49 @@
+'use strict';
+
+
+function rotl32(x, n) {
+  return (x << n) | (x >>> (32 - n | 0)) | 0;
+}
+
+function hash_mix_int(h, d) {
+  var d$1 = d;
+  d$1 = Math.imul(d$1, -862048943);
+  d$1 = rotl32(d$1, 15);
+  d$1 = Math.imul(d$1, 461845907);
+  var h$1 = h ^ d$1;
+  h$1 = rotl32(h$1, 13);
+  return (h$1 + (h$1 << 2) | 0) - 430675100 | 0;
+}
+
+function hash_final_mix(h) {
+  var h$1 = h ^ (h >>> 16);
+  h$1 = Math.imul(h$1, -2048144789);
+  h$1 = h$1 ^ (h$1 >>> 13);
+  h$1 = Math.imul(h$1, -1028477387);
+  return h$1 ^ (h$1 >>> 16);
+}
+
+function hash_mix_string(h, s) {
+  var len = s.length;
+  var block = (len / 4 | 0) - 1 | 0;
+  var hash = h;
+  for(var i = 0; i <= block; ++i){
+    var j = (i << 2);
+    var w = s.charCodeAt(j) | (s.charCodeAt(j + 1 | 0) << 8) | (s.charCodeAt(j + 2 | 0) << 16) | (s.charCodeAt(j + 3 | 0) << 24);
+    hash = hash_mix_int(hash, w);
+  }
+  var modulo = len & 3;
+  if (modulo !== 0) {
+    var w$1 = modulo === 3 ? (s.charCodeAt(len - 1 | 0) << 16) | (s.charCodeAt(len - 2 | 0) << 8) | s.charCodeAt(len - 3 | 0) : (
+        modulo === 2 ? (s.charCodeAt(len - 1 | 0) << 8) | s.charCodeAt(len - 2 | 0) : s.charCodeAt(len - 1 | 0)
+      );
+    hash = hash_mix_int(hash, w$1);
+  }
+  hash = hash ^ len;
+  return hash;
+}
+
+exports.hash_mix_int = hash_mix_int;
+exports.hash_mix_string = hash_mix_string;
+exports.hash_final_mix = hash_final_mix;
+/* No side effect */

package/lib/js/caml_int32.js

@@ -0,0 +1,26 @@
+'use strict';
+
+
+function div(x, y) {
+  if (y === 0) {
+    throw {
+          RE_EXN_ID: "Division_by_zero",
+          Error: new Error()
+        };
+  }
+  return x / y | 0;
+}
+
+function mod_(x, y) {
+  if (y === 0) {
+    throw {
+          RE_EXN_ID: "Division_by_zero",
+          Error: new Error()
+        };
+  }
+  return x % y;
+}
+
+exports.div = div;
+exports.mod_ = mod_;
+/* No side effect */