envio 2.21.5 → 2.22.1

package/src/LazyLoader.res.js

@@ -0,0 +1,117 @@
+// Generated by ReScript, PLEASE EDIT WITH CARE
+'use strict';
+
+var Utils = require("./Utils.res.js");
+var JsSdsl = require("js-sdsl");
+var Belt_Option = require("rescript/lib/js/belt_Option.js");
+var Caml_option = require("rescript/lib/js/caml_option.js");
+var Caml_exceptions = require("rescript/lib/js/caml_exceptions.js");
+var Caml_js_exceptions = require("rescript/lib/js/caml_js_exceptions.js");
+
+var LoaderTimeout = /* @__PURE__ */Caml_exceptions.create("LazyLoader.LoaderTimeout");
+
+function make(loaderFn, onError, cacheSizeOpt, loaderPoolSizeOpt, retryDelayMillisOpt, timeoutMillisOpt) {
+  var cacheSize = cacheSizeOpt !== undefined ? cacheSizeOpt : 10000;
+  var loaderPoolSize = loaderPoolSizeOpt !== undefined ? loaderPoolSizeOpt : 10;
+  var retryDelayMillis = retryDelayMillisOpt !== undefined ? retryDelayMillisOpt : 5000;
+  var timeoutMillis = timeoutMillisOpt !== undefined ? timeoutMillisOpt : 300000;
+  return {
+          _cacheSize: cacheSize,
+          _loaderPoolSize: loaderPoolSize,
+          _retryDelayMillis: retryDelayMillis,
+          _timeoutMillis: timeoutMillis,
+          externalPromises: new Map(),
+          resolvers: new Map(),
+          inProgress: new Set(),
+          loaderQueue: new JsSdsl.Queue(),
+          loadedKeys: new JsSdsl.Queue(),
+          loaderFn: loaderFn,
+          onError: onError
+        };
+}
+
+function deleteKey(_obj, _k) {
+  ((delete _obj[_k]));
+}
+
+function timeoutAfter(timeoutMillis) {
+  return Utils.delay(timeoutMillis).then(function () {
+              return Promise.reject({
+                          RE_EXN_ID: LoaderTimeout,
+                          _1: "Query took longer than " + String(timeoutMillis / 1000 | 0) + " seconds"
+                        });
+            });
+}
+
+async function loadNext(am, k) {
+  am.inProgress.add(k);
+  var awaitTaskPromiseAndLoadNextWithTimeout = async function () {
+    var val = await Promise.race([
+          am.loaderFn(k),
+          timeoutAfter(am._timeoutMillis)
+        ]);
+    Belt_Option.forEach(am.resolvers.get(k), (function (r) {
+            am.resolvers.delete(k);
+            r(val);
+          }));
+    am.inProgress.delete(k);
+    var loadedKeysNumber = am.loadedKeys.push(k);
+    if (loadedKeysNumber > am._cacheSize) {
+      var old = am.loadedKeys.pop();
+      if (old !== undefined) {
+        am.externalPromises.delete(Caml_option.valFromOption(old));
+      }
+      
+    }
+    var next = am.loaderQueue.pop();
+    if (next !== undefined) {
+      return await loadNext(am, Caml_option.valFromOption(next));
+    }
+    
+  };
+  var tmp;
+  var exit = 0;
+  var val;
+  try {
+    val = await awaitTaskPromiseAndLoadNextWithTimeout();
+    exit = 1;
+  }
+  catch (raw_err){
+    var err = Caml_js_exceptions.internalToOCamlException(raw_err);
+    var onError = am.onError;
+    if (onError !== undefined) {
+      onError(am, err);
+    }
+    await Utils.delay(am._retryDelayMillis);
+    tmp = awaitTaskPromiseAndLoadNextWithTimeout();
+  }
+  if (exit === 1) {
+    tmp = Promise.resolve();
+  }
+  return await tmp;
+}
+
+function get(am, k) {
+  var x = am.externalPromises.get(k);
+  if (x !== undefined) {
+    return Caml_option.valFromOption(x);
+  }
+  var promise = new Promise((function (resolve, param) {
+          am.resolvers.set(k, resolve);
+        }));
+  am.externalPromises.set(k, promise);
+  if (am.inProgress.size < am._loaderPoolSize) {
+    loadNext(am, k);
+  } else {
+    am.loaderQueue.push(k);
+  }
+  return promise;
+}
+
+exports.LoaderTimeout = LoaderTimeout;
+exports.make = make;
+exports.deleteKey = deleteKey;
+exports.timeoutAfter = timeoutAfter;
+exports.loadNext = loadNext;
+exports.get = get;
+/* Utils Not a pure module */

package/src/LoadManager.res.js

@@ -0,0 +1,124 @@
+// Generated by ReScript, PLEASE EDIT WITH CARE
+'use strict';
+
+var Utils = require("./Utils.res.js");
+var Internal = require("./Internal.res.js");
+var Belt_Array = require("rescript/lib/js/belt_Array.js");
+var Caml_js_exceptions = require("rescript/lib/js/caml_js_exceptions.js");
+
+var Call = {};
+
+var Group = {};
+
+function make() {
+  return {
+          groups: {},
+          isCollecting: false
+        };
+}
+
+async function schedule(loadManager) {
+  loadManager.isCollecting = true;
+  await Promise.resolve();
+  loadManager.isCollecting = false;
+  var groups = loadManager.groups;
+  Object.keys(groups).forEach(async function (key) {
+        var group = groups[key];
+        var calls = group.calls;
+        var inputsToLoad = [];
+        var currentInputKeys = [];
+        Object.keys(calls).forEach(function (inputKey) {
+              var call = calls[inputKey];
+              if (!call.isLoading) {
+                call.isLoading = true;
+                currentInputKeys.push(inputKey);
+                if (!group.hasInMemory(inputKey)) {
+                  inputsToLoad.push(call.input);
+                  return ;
+                } else {
+                  return ;
+                }
+              }
+              
+            });
+        if (!Utils.$$Array.isEmpty(inputsToLoad)) {
+          try {
+            await group.load(inputsToLoad);
+          }
+          catch (raw_exn){
+            var exn = Caml_js_exceptions.internalToOCamlException(raw_exn);
+            var exn$1 = Internal.prettifyExn(exn);
+            Belt_Array.forEach(currentInputKeys, (function (inputKey) {
+                    var call = calls[inputKey];
+                    call.reject(exn$1);
+                  }));
+          }
+        }
+        if (Utils.$$Array.isEmpty(currentInputKeys)) {
+          return ;
+        }
+        currentInputKeys.forEach(function (inputKey) {
+              var call = calls[inputKey];
+              Utils.Dict.deleteInPlace(calls, inputKey);
+              call.resolve(group.getUnsafeInMemory(inputKey));
+            });
+        var latestGroup = groups[key];
+        if (Utils.$$Array.isEmpty(Object.keys(latestGroup.calls))) {
+          return Utils.Dict.deleteInPlace(groups, key);
+        }
+        
+      });
+}
+
+function noopHasher(input) {
+  return input;
+}
+
+function call(loadManager, input, key, load, hasher, shouldGroup, hasInMemory, getUnsafeInMemory) {
+  var inputKey = hasher === noopHasher ? input : hasher(input);
+  if (!shouldGroup && hasInMemory(inputKey)) {
+    return Promise.resolve(getUnsafeInMemory(inputKey));
+  }
+  var group = loadManager.groups[key];
+  var group$1;
+  if (group !== undefined) {
+    group$1 = group;
+  } else {
+    var g_calls = {};
+    var g = {
+      calls: g_calls,
+      load: load,
+      getUnsafeInMemory: getUnsafeInMemory,
+      hasInMemory: hasInMemory
+    };
+    loadManager.groups[key] = g;
+    group$1 = g;
+  }
+  var c = group$1.calls[inputKey];
+  if (c !== undefined) {
+    return c.promise;
+  }
+  var promise = new Promise((function (resolve, reject) {
+          var call = {
+            input: input,
+            resolve: resolve,
+            reject: reject,
+            promise: null,
+            isLoading: false
+          };
+          group$1.calls[inputKey] = call;
+        }));
+  group$1.calls[inputKey].promise = promise;
+  if (!loadManager.isCollecting) {
+    schedule(loadManager);
+  }
+  return promise;
+}
+
+exports.Call = Call;
+exports.Group = Group;
+exports.make = make;
+exports.schedule = schedule;
+exports.noopHasher = noopHasher;
+exports.call = call;
+/* Utils Not a pure module */

package/src/LogSelection.res.js

@@ -0,0 +1,203 @@
+// Generated by ReScript, PLEASE EDIT WITH CARE
+'use strict';
+
+var Utils = require("./Utils.res.js");
+var Js_exn = require("rescript/lib/js/js_exn.js");
+var Belt_Array = require("rescript/lib/js/belt_Array.js");
+var Belt_Option = require("rescript/lib/js/belt_Option.js");
+var Caml_option = require("rescript/lib/js/caml_option.js");
+var Caml_exceptions = require("rescript/lib/js/caml_exceptions.js");
+
+var MissingRequiredTopic0 = /* @__PURE__ */Caml_exceptions.create("LogSelection.MissingRequiredTopic0");
+
+function makeTopicSelection(topic0, topic1Opt, topic2Opt, topic3Opt) {
+  var topic1 = topic1Opt !== undefined ? topic1Opt : [];
+  var topic2 = topic2Opt !== undefined ? topic2Opt : [];
+  var topic3 = topic3Opt !== undefined ? topic3Opt : [];
+  if (Utils.$$Array.isEmpty(topic0)) {
+    return {
+            TAG: "Error",
+            _0: {
+              RE_EXN_ID: MissingRequiredTopic0
+            }
+          };
+  } else {
+    return {
+            TAG: "Ok",
+            _0: {
+              topic0: topic0,
+              topic1: topic1,
+              topic2: topic2,
+              topic3: topic3
+            }
+          };
+  }
+}
+
+function hasFilters(param) {
+  return Belt_Option.isSome(Caml_option.undefined_to_opt([
+                    param.topic1,
+                    param.topic2,
+                    param.topic3
+                  ].find(function (topic) {
+                      return !Utils.$$Array.isEmpty(topic);
+                    })));
+}
+
+function compressTopicSelections(topicSelections) {
+  var topic0sOfSelectionsWithoutFilters = [];
+  var selectionsWithFilters = [];
+  Belt_Array.forEach(topicSelections, (function (selection) {
+          if (hasFilters(selection)) {
+            selectionsWithFilters.push(selection);
+            return ;
+          } else {
+            return Belt_Array.forEach(selection.topic0, (function (topic0) {
+                          topic0sOfSelectionsWithoutFilters.push(topic0);
+                        }));
+          }
+        }));
+  if (topic0sOfSelectionsWithoutFilters.length === 0) {
+    return selectionsWithFilters;
+  }
+  var selectionWithoutFilters_topic1 = [];
+  var selectionWithoutFilters_topic2 = [];
+  var selectionWithoutFilters_topic3 = [];
+  var selectionWithoutFilters = {
+    topic0: topic0sOfSelectionsWithoutFilters,
+    topic1: selectionWithoutFilters_topic1,
+    topic2: selectionWithoutFilters_topic2,
+    topic3: selectionWithoutFilters_topic3
+  };
+  return Belt_Array.concat([selectionWithoutFilters], selectionsWithFilters);
+}
+
+function make(addresses, topicSelections) {
+  var topicSelections$1 = compressTopicSelections(topicSelections);
+  return {
+          addresses: addresses,
+          topicSelections: topicSelections$1
+        };
+}
+
+var emptyTopics = [];
+
+function noopGetter(param) {
+  return emptyTopics;
+}
+
+function parseEventFiltersOrThrow(eventFilters, sighash, params, topic1Opt, topic2Opt, topic3Opt) {
+  var topic1 = topic1Opt !== undefined ? topic1Opt : noopGetter;
+  var topic2 = topic2Opt !== undefined ? topic2Opt : noopGetter;
+  var topic3 = topic3Opt !== undefined ? topic3Opt : noopGetter;
+  var filterByAddresses = {
+    contents: false
+  };
+  var topic0 = [sighash];
+  var $$default = {
+    topic0: topic0,
+    topic1: emptyTopics,
+    topic2: emptyTopics,
+    topic3: emptyTopics
+  };
+  var parse = function (eventFilters) {
+    var tmp;
+    tmp = !Array.isArray(eventFilters) && (eventFilters === null || typeof eventFilters !== "object") && typeof eventFilters !== "number" && typeof eventFilters !== "string" && typeof eventFilters !== "boolean" ? [eventFilters] : (
+        Array.isArray(eventFilters) ? (
+            eventFilters.length !== 0 ? eventFilters : [{}]
+          ) : [eventFilters]
+      );
+    return tmp.map(function (eventFilter) {
+                if (!Array.isArray(eventFilter) && (eventFilter === null || typeof eventFilter !== "object") && typeof eventFilter !== "number" && typeof eventFilter !== "string" && typeof eventFilter !== "boolean") {
+                  return Js_exn.raiseError("Invalid event filters configuration. Expected an object");
+                }
+                if (!(typeof eventFilter === "object" && !Array.isArray(eventFilter))) {
+                  return Js_exn.raiseError("Invalid event filters configuration. Expected an object");
+                }
+                var filterKeys = Object.keys(eventFilter);
+                if (filterKeys.length !== 0) {
+                  filterKeys.forEach(function (key) {
+                        if (!params.includes(key)) {
+                          return Js_exn.raiseError("Invalid event filters configuration. The event doesn't have an indexed parameter \"" + key + "\" and can't use it for filtering");
+                        }
+                        
+                      });
+                  return {
+                          topic0: topic0,
+                          topic1: topic1(eventFilter),
+                          topic2: topic2(eventFilter),
+                          topic3: topic3(eventFilter)
+                        };
+                } else {
+                  return $$default;
+                }
+              });
+  };
+  var getEventFiltersOrThrow;
+  if (eventFilters !== undefined) {
+    if (typeof eventFilters === "function") {
+      try {
+        var args = Object.defineProperty({
+              chainId: 0,
+              addresses: []
+            }, "addresses", {
+              get: (function () {
+                  filterByAddresses.contents = true;
+                  return [];
+                })
+            });
+        eventFilters(args);
+      }
+      catch (exn){
+        
+      }
+      getEventFiltersOrThrow = filterByAddresses.contents ? (function (chain) {
+            return {
+                    TAG: "Dynamic",
+                    _0: (function (addresses) {
+                        return parse(eventFilters({
+                                        chainId: chain,
+                                        addresses: addresses
+                                      }));
+                      })
+                  };
+          }) : (function (chain) {
+            return {
+                    TAG: "Static",
+                    _0: parse(eventFilters({
+                              chainId: chain,
+                              addresses: []
+                            }))
+                  };
+          });
+    } else {
+      var $$static = {
+        TAG: "Static",
+        _0: parse(eventFilters)
+      };
+      getEventFiltersOrThrow = (function (param) {
+          return $$static;
+        });
+    }
+  } else {
+    var $$static$1 = {
+      TAG: "Static",
+      _0: [$$default]
+    };
+    getEventFiltersOrThrow = (function (param) {
+        return $$static$1;
+      });
+  }
+  return {
+          getEventFiltersOrThrow: getEventFiltersOrThrow,
+          filterByAddresses: filterByAddresses.contents
+        };
+}
+
+exports.MissingRequiredTopic0 = MissingRequiredTopic0;
+exports.makeTopicSelection = makeTopicSelection;
+exports.hasFilters = hasFilters;
+exports.compressTopicSelections = compressTopicSelections;
+exports.make = make;
+exports.parseEventFiltersOrThrow = parseEventFiltersOrThrow;
+/* Utils Not a pure module */

package/src/Logging.res

@@ -26,7 +26,7 @@ let logLevels = [
 
 %%private(let logger = ref(None))
 
-let setLogger = (~logStrategy, ~logFilePath, ~defaultFileLogLevel, ~userLogLevel) => {
+let makeLogger = (~logStrategy, ~logFilePath, ~defaultFileLogLevel, ~userLogLevel) => {
   // Currently unused - useful if using multiple transports.
   // let pinoRaw = {"target": "pino/file", "level": Config.userLogLevel}
   let pinoFile: Transport.transportTarget = {
@@ -42,38 +42,38 @@ let setLogger = (~logStrategy, ~logFilePath, ~defaultFileLogLevel, ~userLogLevel
   let makeMultiStreamLogger =
     MultiStreamLogger.make(~userLogLevel, ~defaultFileLogLevel, ~customLevels=logLevels, ...)
 
-  logger :=
-    Some(
-      switch logStrategy {
-      | EcsFile =>
-        makeWithOptionsAndTransport(
-          {
-            ...Pino.ECS.make(),
-            customLevels: logLevels,
-          },
-          Transport.make(pinoFile),
-        )
-      | EcsConsoleMultistream =>
-        makeMultiStreamLogger(~logFile=None, ~options=Some(Pino.ECS.make()))
-      | EcsConsole =>
-        make({
-          ...Pino.ECS.make(),
-          level: userLogLevel,
-          customLevels: logLevels,
-        })
-      | FileOnly =>
-        makeWithOptionsAndTransport(
-          {
-            customLevels: logLevels,
-            level: defaultFileLogLevel,
-          },
-          Transport.make(pinoFile),
-        )
-      | ConsoleRaw => makeMultiStreamLogger(~logFile=None, ~options=None)
-      | ConsolePretty => makeMultiStreamLogger(~logFile=None, ~options=None)
-      | Both => makeMultiStreamLogger(~logFile=Some(logFilePath), ~options=None)
+  switch logStrategy {
+  | EcsFile =>
+    makeWithOptionsAndTransport(
+      {
+        ...Pino.ECS.make(),
+        customLevels: logLevels,
       },
+      Transport.make(pinoFile),
     )
+  | EcsConsoleMultistream => makeMultiStreamLogger(~logFile=None, ~options=Some(Pino.ECS.make()))
+  | EcsConsole =>
+    make({
+      ...Pino.ECS.make(),
+      level: userLogLevel,
+      customLevels: logLevels,
+    })
+  | FileOnly =>
+    makeWithOptionsAndTransport(
+      {
+        customLevels: logLevels,
+        level: defaultFileLogLevel,
+      },
+      Transport.make(pinoFile),
+    )
+  | ConsoleRaw => makeMultiStreamLogger(~logFile=None, ~options=None)
+  | ConsolePretty => makeMultiStreamLogger(~logFile=None, ~options=None)
+  | Both => makeMultiStreamLogger(~logFile=Some(logFilePath), ~options=None)
+  }
+}
+
+let setLogger = l => {
+  logger := Some(l)
 }
 
 let getLogger = () => {