wip

Author: functora

ghcjs/delivery-calculator/.envrc

@@ -1 +1 @@
-use nix
+use flake . --impure

ghcjs/delivery-calculator/flake.nix

@@ -11,6 +11,7 @@
   }: let
     def = import ./default.nix;
     vsn = def.vsn;
+    repo = def.repo;
     label = def.label;
     supportedSystems = [
       "x86_64-linux"
@@ -68,6 +69,9 @@
       app-release-latest = pkgs.writeShellApplication {
         name = "app-release-latest";
         text = ''
+          export EM_CACHE=~/tmp/emscripten
+          mkdir -p $EM_CACHE
+
           javascript-unknown-ghcjs-cabal build
           out="./dist/latest"
           rm -rf "$out"

pub/functora/functora.cabal

@@ -124,6 +124,9 @@ common pkg-prelude
   if impl(ghc <9.6.1)
     build-depends: foldable1-classes-compat
 
+  if arch(javascript)
+    js-sources: src/js/hashable.js
+
   if ((impl(ghcjs) || arch(javascript)) || os(wasi))
     build-depends:
       , aeson

pub/functora/src/functora-ghcjs.cabal

@@ -134,6 +134,9 @@ common pkg
   if impl(ghc <9.6.1)
     build-depends: foldable1-classes-compat
 
+  if arch(javascript)
+    js-sources: js/hashable.js
+
   if (impl(ghcjs) || arch(javascript))
     build-depends:
       , ghcjs-base

pub/functora/src/js/hashable.js

@@ -0,0 +1,42 @@
+// fixme this function appears to deoptimize a lot due to smallint overflows
+function h$imul_shim(a, b) {
+  var ah = (a >>> 16) & 0xffff;
+  var al = a & 0xffff;
+  var bh = (b >>> 16) & 0xffff;
+  var bl = b & 0xffff;
+  // the shift by 0 fixes the sign on the high part
+  // the final |0 converts the unsigned value into a signed value
+  return (((al * bl) | 0) + (((ah * bl + al * bh) << 16) >>> 0)) | 0;
+}
+
+var h$mulInt32 = Math.imul ? Math.imul : h$imul_shim;
+
+/* FNV-1 hash
+ *
+ * The FNV-1 hash description: http://isthe.com/chongo/tech/comp/fnv/
+ * The FNV-1 hash is public domain: http://isthe.com/chongo/tech/comp/fnv/#public_domain
+ */
+function h$hashable_fnv_hash_offset(str_a, str_o_zero, o, len, hash) {
+  return h$hashable_fnv_hash(str_a, o, len, hash);
+}
+
+function h$hashable_fnv_hash(str_d, str_o, len, hash) {
+  if (len > 0) {
+    var d = str_d.u8;
+    for (var i = 0; i < len; i++) {
+      hash = h$mulInt32(hash, 16777619) ^ d[str_o + i];
+    }
+  }
+  return hash;
+}
+
+// int hashable_getRandomBytes(unsigned char *dest, int nbytes)
+function h$hashable_getRandomBytes(dest_d, dest_o, len) {
+  if (len > 0) {
+    var d = dest_d.u8;
+    for (var i = 0; i < len; i++) {
+      d[dest_o + i] = Math.floor(Math.random() * 256);
+    }
+  }
+  return len;
+}