envio 3.5.0-alpha.1 → 3.5.0-alpha.3

package/src/IndexingAddresses.res

@@ -1,151 +0,0 @@
-type indexingAddress = Internal.indexingContract
-
-type contractConfig = {startBlock: option<int>}
-
-// Grouped by contract name, then by address string. Contracts are few, so
-// per-contract operations (address count, the client-side filter's lookup
-// dict) are direct, and whole-index scans (get by address, rollback) walk the
-// small contract set. Address strings are globally unique across contracts
-// (conflicting registrations are rejected before they reach here).
-type t = dict<dict<indexingAddress>>
-
-let deriveEffectiveStartBlock = (~registrationBlock: int, ~contractStartBlock: option<int>) => {
-  Pervasives.max(Pervasives.max(registrationBlock, 0), contractStartBlock->Option.getOr(0))
-}
-
-let makeContractConfigs = (~onEventRegistrations: array<Internal.onEventRegistration>): dict<
-  contractConfig,
-> => {
-  let contractConfigs: dict<contractConfig> = Dict.make()
-  onEventRegistrations->Array.forEach(reg => {
-    let contractName = reg.eventConfig.contractName
-    switch contractConfigs->Utils.Dict.dangerouslyGetNonOption(contractName) {
-    | Some({startBlock}) =>
-      contractConfigs->Dict.set(
-        contractName,
-        {
-          startBlock: switch (startBlock, reg.startBlock) {
-          | (Some(a), Some(b)) => Some(Pervasives.min(a, b))
-          | (Some(_) as s, None) | (None, Some(_) as s) => s
-          | (None, None) => None
-          },
-        },
-      )
-    | None =>
-      contractConfigs->Dict.set(
-        contractName,
-        {
-          startBlock: reg.startBlock,
-        },
-      )
-    }
-  })
-  contractConfigs
-}
-
-let makeIndexingAddress = (
-  ~contract: Internal.indexingAddress,
-  ~contractConfigs: dict<contractConfig>,
-): indexingAddress => {
-  let contractStartBlock = switch contractConfigs->Utils.Dict.dangerouslyGetNonOption(
-    contract.contractName,
-  ) {
-  | Some({startBlock}) => startBlock
-  | None => None
-  }
-  {
-    address: contract.address,
-    contractName: contract.contractName,
-    registrationBlock: contract.registrationBlock,
-    effectiveStartBlock: deriveEffectiveStartBlock(
-      ~registrationBlock=contract.registrationBlock,
-      ~contractStartBlock,
-    ),
-  }
-}
-
-let insert = (indexingAddresses: t, indexingAddress: indexingAddress) => {
-  indexingAddresses
-  ->Utils.Dict.getOrInsertEmptyDict(indexingAddress.contractName)
-  ->Dict.set(indexingAddress.address->Address.toString, indexingAddress)
-}
-
-let make = (
-  ~contractConfigs: dict<contractConfig>,
-  ~addresses: array<Internal.indexingAddress>,
-): t => {
-  let indexingAddresses = Dict.make()
-  addresses->Array.forEach(contract => {
-    indexingAddresses->insert(makeIndexingAddress(~contract, ~contractConfigs))
-  })
-  indexingAddresses
-}
-
-// Address strings are globally unique, so the first inner dict holding the
-// address owns it. for..in returns on the first hit without allocating a values
-// array per lookup (get runs once per registration).
-let get: (t, string) => option<indexingAddress> = %raw(`(index, address) => {
-  for (var contractName in index) {
-    var entry = index[contractName][address];
-    if (entry !== undefined) {
-      return entry;
-    }
-  }
-  return undefined;
-}`)
-
-let size = (indexingAddresses: t) => {
-  let total = ref(0)
-  indexingAddresses->Utils.Dict.forEach(inner => {
-    total := total.contents + inner->Utils.Dict.size
-  })
-  total.contents
-}
-
-// Number of registered addresses for a single contract — a for..in over that
-// one contract's addresses. The trigger deciding when to switch a contract to
-// client-side filtering reads this.
-let contractCount = (indexingAddresses: t, ~contractName) =>
-  switch indexingAddresses->Utils.Dict.dangerouslyGetNonOption(contractName) {
-  | Some(inner) => inner->Utils.Dict.size
-  | None => 0
-  }
-
-let getContractAddresses = (indexingAddresses: t, ~contractName): array<Address.t> => {
-  switch indexingAddresses->Utils.Dict.dangerouslyGetNonOption(contractName) {
-  | Some(inner) => inner->Dict.valuesToArray->Array.map(ia => ia.address)
-  | None => []
-  }
-}
-
-let emptyContractDict: dict<indexingAddress> = Dict.make()
-
-// The address→entry dict for a single contract, passed to that contract's
-// precompiled `clientAddressFilter` (which does raw `byAddr[srcAddress]` access
-// in generated JS). Every leaf of a filter references the event's own contract
-// — `chain.<Contract>.addresses` only exposes the event's contract — so one
-// inner dict covers the srcAddress and param-address checks alike. Returns a
-// shared empty dict when the contract has no registered addresses.
-let forContract = (indexingAddresses: t, ~contractName): dict<indexingAddress> =>
-  switch indexingAddresses->Utils.Dict.dangerouslyGetNonOption(contractName) {
-  | Some(inner) => inner
-  | None => emptyContractDict
-  }
-
-let register = (indexingAddresses: t, additions: dict<indexingAddress>) => {
-  additions->Utils.Dict.forEach(indexingAddress => {
-    indexingAddresses->insert(indexingAddress)
-  })
-}
-
-let rollbackInPlace = (indexingAddresses: t, ~targetBlockNumber: int): unit => {
-  // forEachWithKey is a `for..in`, so deleting the key currently being visited is
-  // safe — it doesn't affect enumeration of the remaining keys.
-  indexingAddresses->Utils.Dict.forEach(inner => {
-    inner->Utils.Dict.forEachWithKey((indexingContract, address) => {
-      if indexingContract.registrationBlock > targetBlockNumber {
-        inner->Utils.Dict.deleteInPlace(address)
-      }
-    })
-  })
-}

package/src/IndexingAddresses.res.mjs

@@ -1,130 +0,0 @@
-// Generated by ReScript, PLEASE EDIT WITH CARE
-
-import * as Utils from "./Utils.res.mjs";
-import * as Primitive_int from "@rescript/runtime/lib/es6/Primitive_int.js";
-import * as Stdlib_Option from "@rescript/runtime/lib/es6/Stdlib_Option.js";
-
-function deriveEffectiveStartBlock(registrationBlock, contractStartBlock) {
-  return Primitive_int.max(Primitive_int.max(registrationBlock, 0), Stdlib_Option.getOr(contractStartBlock, 0));
-}
-
-function makeContractConfigs(onEventRegistrations) {
-  let contractConfigs = {};
-  onEventRegistrations.forEach(reg => {
-    let contractName = reg.eventConfig.contractName;
-    let match = contractConfigs[contractName];
-    if (match !== undefined) {
-      let startBlock = match.startBlock;
-      let match$1 = reg.startBlock;
-      contractConfigs[contractName] = {
-        startBlock: startBlock !== undefined ? (
-            match$1 !== undefined ? Primitive_int.min(startBlock, match$1) : startBlock
-          ) : (
-            match$1 !== undefined ? match$1 : undefined
-          )
-      };
-      return;
-    }
-    contractConfigs[contractName] = {
-      startBlock: reg.startBlock
-    };
-  });
-  return contractConfigs;
-}
-
-function makeIndexingAddress(contract, contractConfigs) {
-  let match = contractConfigs[contract.contractName];
-  let contractStartBlock = match !== undefined ? match.startBlock : undefined;
-  return {
-    address: contract.address,
-    contractName: contract.contractName,
-    registrationBlock: contract.registrationBlock,
-    effectiveStartBlock: deriveEffectiveStartBlock(contract.registrationBlock, contractStartBlock)
-  };
-}
-
-function insert(indexingAddresses, indexingAddress) {
-  Utils.Dict.getOrInsertEmptyDict(indexingAddresses, indexingAddress.contractName)[indexingAddress.address] = indexingAddress;
-}
-
-function make(contractConfigs, addresses) {
-  let indexingAddresses = {};
-  addresses.forEach(contract => insert(indexingAddresses, makeIndexingAddress(contract, contractConfigs)));
-  return indexingAddresses;
-}
-
-let get = ((index, address) => {
-  for (var contractName in index) {
-    var entry = index[contractName][address];
-    if (entry !== undefined) {
-      return entry;
-    }
-  }
-  return undefined;
-});
-
-function size(indexingAddresses) {
-  let total = {
-    contents: 0
-  };
-  Utils.Dict.forEach(indexingAddresses, inner => {
-    total.contents = total.contents + Utils.Dict.size(inner) | 0;
-  });
-  return total.contents;
-}
-
-function contractCount(indexingAddresses, contractName) {
-  let inner = indexingAddresses[contractName];
-  if (inner !== undefined) {
-    return Utils.Dict.size(inner);
-  } else {
-    return 0;
-  }
-}
-
-function getContractAddresses(indexingAddresses, contractName) {
-  let inner = indexingAddresses[contractName];
-  if (inner !== undefined) {
-    return Object.values(inner).map(ia => ia.address);
-  } else {
-    return [];
-  }
-}
-
-let emptyContractDict = {};
-
-function forContract(indexingAddresses, contractName) {
-  let inner = indexingAddresses[contractName];
-  if (inner !== undefined) {
-    return inner;
-  } else {
-    return emptyContractDict;
-  }
-}
-
-function register(indexingAddresses, additions) {
-  Utils.Dict.forEach(additions, indexingAddress => insert(indexingAddresses, indexingAddress));
-}
-
-function rollbackInPlace(indexingAddresses, targetBlockNumber) {
-  Utils.Dict.forEach(indexingAddresses, inner => Utils.Dict.forEachWithKey(inner, (indexingContract, address) => {
-    if (indexingContract.registrationBlock > targetBlockNumber) {
-      return Utils.Dict.deleteInPlace(inner, address);
-    }
-  }));
-}
-
-export {
-  deriveEffectiveStartBlock,
-  makeContractConfigs,
-  makeIndexingAddress,
-  make,
-  get,
-  size,
-  contractCount,
-  getContractAddresses,
-  forContract,
-  register,
-  rollbackInPlace,
-}
-/* Utils Not a pure module */

package/src/IndexingAddresses.resi

@@ -1,39 +0,0 @@
-type indexingAddress = Internal.indexingContract
-
-type contractConfig = {startBlock: option<int>}
-
-type t
-
-let deriveEffectiveStartBlock: (~registrationBlock: int, ~contractStartBlock: option<int>) => int
-
-let makeContractConfigs: (
-  ~onEventRegistrations: array<Internal.onEventRegistration>,
-) => dict<contractConfig>
-
-let makeIndexingAddress: (
-  ~contract: Internal.indexingAddress,
-  ~contractConfigs: dict<contractConfig>,
-) => indexingAddress
-
-let make: (~contractConfigs: dict<contractConfig>, ~addresses: array<Internal.indexingAddress>) => t
-
-let get: (t, string) => option<indexingAddress>
-
-let size: t => int
-
-// Number of registered addresses for a single contract (scans just that
-// contract's addresses).
-let contractCount: (t, ~contractName: string) => int
-
-let getContractAddresses: (t, ~contractName: string) => array<Address.t>
-
-// The address→entry dict for a single contract, passed to that contract's
-// precompiled `clientAddressFilter` (raw `byAddr[srcAddress]` access in
-// generated JS). Don't use elsewhere — prefer the domain accessors so the
-// opaque type stays enforced.
-let forContract: (t, ~contractName: string) => dict<indexingAddress>
-
-let register: (t, dict<indexingAddress>) => unit
-
-// Deletes addresses registered after `targetBlockNumber` from the index in place.
-let rollbackInPlace: (t, ~targetBlockNumber: int) => unit