envio 3.0.0-alpha.2 → 3.0.0-alpha.21

package/src/bindings/Hrtime.res.mjs

@@ -30,18 +30,34 @@ function toMillis(param) {
   return param[0] * 1000 + param[1] / 1000000;
 }
 
+function toSeconds(param) {
+  return param[0] + param[1] / 1000000000;
+}
+
+function toSecondsFloat(elapsed) {
+  return toSeconds(elapsed);
+}
+
 function toInt($$float) {
   return $$float | 0;
 }
 
-function floatFromMillis(prim) {
-  return prim;
+function floatFromMillis(v) {
+  return v;
+}
+
+function floatFromSeconds(v) {
+  return v;
 }
 
 function millisBetween(from, to) {
   return (toMillis(to) | 0) - (toMillis(from) | 0) | 0;
 }
 
+function secondsBetween(from, to) {
+  return toSeconds(to) - toSeconds(from);
+}
+
 function makeTimer(prim) {
   return process.hrtime();
 }
@@ -63,10 +79,14 @@ export {
   secToMilli ,
   timeElapsedToNewRef ,
   toMillis ,
+  toSeconds ,
+  toSecondsFloat ,
   intFromMillis ,
   intFromNanos ,
   intFromSeconds ,
   floatFromMillis ,
+  floatFromSeconds ,
   millisBetween ,
+  secondsBetween ,
 }
 /* No side effect */

package/src/bindings/Hrtime.resi

@@ -17,10 +17,14 @@ let secToMilli: seconds => milliseconds
 
 let timeElapsedToNewRef: (timeElapsed, timeRef) => timeRef
 let toMillis: timeElapsed => milliseconds
+let toSeconds: timeElapsed => seconds
+let toSecondsFloat: timeElapsed => float
 
 let intFromMillis: milliseconds => int
 let intFromNanos: nanoseconds => int
 let intFromSeconds: seconds => int
 let floatFromMillis: milliseconds => float
+let floatFromSeconds: seconds => float
 
 let millisBetween: (~from: timeRef, ~to: timeRef) => int
+let secondsBetween: (~from: timeRef, ~to: timeRef) => float

package/src/bindings/Lodash.res

@@ -1,3 +1,2 @@
 // TODO: Remove this file once we have our own impl of cloneDeep or it is no longer needed
 @module("./vendored-lodash-fns.js") external cloneDeep: 'a => 'a = "cloneDeep"
-

package/src/bindings/NodeJs.res

@@ -3,6 +3,11 @@ type t
 @send external exit: (t, unit) => unit = "exit"
 type exitCode = | @as(0) Success | @as(1) Failure
 @send external exitWithCode: (t, exitCode) => unit = "exit"
+// Use @val to access the global `process` object for EventEmitter methods like `on`.
+// The @module binding above compiles to `import * as Process from "process"` (a namespace import),
+// which exposes named exports (exit, cwd) but not EventEmitter prototype methods (on, off, emit).
+@val external globalProcess: t = "process"
+@send external onUnhandledRejection: (t, @as("unhandledRejection") _, exn => unit) => unit = "on"
 
 module Util = {
   @unboxed
@@ -36,8 +41,9 @@ module Util = {
 }
 
 module Process = {
-  type t = {env: Js.Dict.t<string>}
+  type t = {env: Js.Dict.t<string>, execArgv: array<string>}
   @module external process: t = "process"
+  @module("process") external cwd: unit => string = "cwd"
 }
 
 module ChildProcess = {
@@ -59,11 +65,24 @@ module ChildProcess = {
 module Url = {
   type t
   @module("url") external fileURLToPath: t => string = "fileURLToPath"
+  @module("url") external fileURLToPathFromString: string => string = "fileURLToPath"
+  // Convert a file path to a file:// URL string (for dynamic imports)
+  @module("url") external pathToFileURL: string => t = "pathToFileURL"
+  @send external toString: t => string = "toString"
 }
 
 module ImportMeta = {
   type t = {url: Url.t}
   @val external importMeta: t = "import.meta"
+  // Get import.meta.url as string for module registration
+  @val external url: string = "import.meta.url"
+  // Resolve module specifier to file:// URL
+  @val external resolve: string => string = "import.meta.resolve"
+}
+
+module Module = {
+  // Register ESM loader hooks (e.g., for TypeScript support via tsx)
+  @module("node:module") external register: (string, string) => unit = "register"
 }
 
 module Path = {
@@ -77,8 +96,35 @@ module Path = {
 
   external toString: t => string = "%identity"
 
-  // ESM-compatible __dirname replacement
-  let __dirname = dirname(Url.fileURLToPath(ImportMeta.importMeta.url))
+  // ESM-compatible __dirname replacement - accepts importMeta from calling file
+  let getDirname = (importMeta: ImportMeta.t) => dirname(Url.fileURLToPath(importMeta.url))
+}
+
+module WorkerThreads = {
+  // Check if we're in the main thread or a worker
+  @module("worker_threads") external isMainThread: bool = "isMainThread"
+
+  // Worker data passed from main thread
+  @module("worker_threads") external workerData: Js.Nullable.t<'a> = "workerData"
+
+  // MessagePort for communication with parent
+  type messagePort
+  @module("worker_threads") external parentPort: Js.Nullable.t<messagePort> = "parentPort"
+  @send external postMessage: (messagePort, 'a) => unit = "postMessage"
+  @send external onPortMessage: (messagePort, @as("message") _, 'a => unit) => unit = "on"
+
+  // Worker class for spawning workers
+  type worker
+  type workerOptions = {workerData?: Js.Json.t, execArgv?: array<string>}
+
+  @new @module("worker_threads")
+  external makeWorker: (string, workerOptions) => worker = "Worker"
+
+  @send external onMessage: (worker, @as("message") _, 'a => unit) => unit = "on"
+  @send external onError: (worker, @as("error") _, exn => unit) => unit = "on"
+  @send external onExit: (worker, @as("exit") _, int => unit) => unit = "on"
+  @send external terminate: worker => promise<int> = "terminate"
+  @send external workerPostMessage: (worker, 'a) => unit = "postMessage"
 }
 
 module Fs = {

package/src/bindings/NodeJs.res.mjs

@@ -24,12 +24,18 @@ var Url$1 = {};
 
 var ImportMeta = {};
 
-var $$__dirname = Path.dirname(Url.fileURLToPath(import.meta.url));
+var Module = {};
+
+function getDirname(importMeta) {
+  return Path.dirname(Url.fileURLToPath(importMeta.url));
+}
 
 var Path$1 = {
-  $$__dirname: $$__dirname
+  getDirname: getDirname
 };
 
+var WorkerThreads = {};
+
 var Promises = {};
 
 var Fs = {
@@ -42,7 +48,9 @@ export {
   ChildProcess ,
   Url$1 as Url,
   ImportMeta ,
+  Module ,
   Path$1 as Path,
+  WorkerThreads ,
   Fs ,
 }
-/* __dirname Not a pure module */
+/* url Not a pure module */

package/src/bindings/Pino.res

@@ -5,6 +5,7 @@ type logLevelBuiltin = [
   | #warn
   | #error
   | #fatal
+  | #silent
 ]
 @genType
 type logLevelUser = [
@@ -39,21 +40,21 @@ external levels: t => 'a = "levels"
 @set external setLevel: (t, logLevel) => unit = "level"
 
 @ocaml.doc(`Identity function to help co-erce any type to a pino log message`)
-let createPinoMessage = (message): pinoMessageBlob => Utils.magic(message)
+let createPinoMessage = (message): pinoMessageBlob => message->(Utils.magic: 'a => pinoMessageBlob)
 let createPinoMessageWithError = (message, err): pinoMessageBlobWithError => {
   //See https://github.com/pinojs/pino-std-serializers for standard pino serializers
   //for common objects. We have also defined the serializer in this format in the
   // serializers type below: `type serializers = {err: Js.Json.t => Js.Json.t}`
-  Utils.magic({
+  {
     "msg": message,
     "err": err->Utils.prettifyExn,
-  })
+  }->(Utils.magic: 'a => pinoMessageBlobWithError)
 }
 
 module Transport = {
   type t
   type optionsObject
-  let makeTransportOptions: 'a => optionsObject = Utils.magic
+  let makeTransportOptions: 'a => optionsObject = v => v->(Utils.magic: 'a => optionsObject)
 
   // NOTE: this config is pretty polymorphic - so keeping this as all optional fields.
   type rec transportTarget = {
@@ -104,7 +105,7 @@ type options = {
 @module("pino") external makeWithOptionsAndTransport: (options, Transport.t) => t = "pino"
 
 type childParams
-let createChildParams: 'a => childParams = Utils.magic
+let createChildParams: 'a => childParams = v => v->(Utils.magic: 'a => childParams)
 @send external child: (t, childParams) => t = "child"
 
 module ECS = {
@@ -132,15 +133,28 @@ module MultiStreamLogger = {
   }
   @module("pino") external destination: destinationOpts => stream = "destination"
 
-  type prettyFactoryOpts = {...options, customColors?: string}
+  type prettyFactoryOpts = {...options, customColors?: string, colorize?: bool}
   @module("pino-pretty")
   external prettyFactory: prettyFactoryOpts => string => string = "prettyFactory"
 
   let makeFormatter = logLevels => {
-    prettyFactory({
-      customLevels: logLevels,
-      customColors: "fatal:bgRed,error:red,warn:yellow,info:green,udebug:bgBlue,uinfo:bgGreen,uwarn:bgYellow,uerror:bgRed,debug:blue,trace:gray",
-    })
+    let customColors = "fatal:bgRed,error:red,warn:yellow,info:green,udebug:bgBlue,uinfo:bgGreen,uwarn:bgYellow,uerror:bgRed,debug:blue,trace:gray"
+    // Force colors when running for logs format test
+    let options = switch %raw(`"ENVIO_TEST_LOGGING_FORMAT" in process.env`) {
+    | Some(_) => {
+        customLevels: logLevels,
+        customColors,
+        colorize: true,
+      }
+    // For some reason setting colorize as undefined,
+    // makes it behave as false.
+    | None => {
+        customLevels: logLevels,
+        customColors,
+      }
+    }
+
+    prettyFactory(options)
   }
 
   let makeStreams = (~userLogLevel, ~formatter, ~logFile, ~defaultFileLogLevel) => {

package/src/bindings/Pino.res.mjs

@@ -19,16 +19,16 @@ function createPinoMessageWithError(message, err) {
         };
 }
 
-function makeTransportOptions(prim) {
-  return prim;
+function makeTransportOptions(v) {
+  return v;
 }
 
 var Transport = {
   makeTransportOptions: makeTransportOptions
 };
 
-function createChildParams(prim) {
-  return prim;
+function createChildParams(v) {
+  return v;
 }
 
 function make(prim) {
@@ -40,10 +40,16 @@ var ECS = {
 };
 
 function makeFormatter(logLevels) {
-  return PinoPretty.prettyFactory({
-              customLevels: logLevels,
-              customColors: "fatal:bgRed,error:red,warn:yellow,info:green,udebug:bgBlue,uinfo:bgGreen,uwarn:bgYellow,uerror:bgRed,debug:blue,trace:gray"
-            });
+  var customColors = "fatal:bgRed,error:red,warn:yellow,info:green,udebug:bgBlue,uinfo:bgGreen,uwarn:bgYellow,uerror:bgRed,debug:blue,trace:gray";
+  var match = ("ENVIO_TEST_LOGGING_FORMAT" in process.env);
+  return PinoPretty.prettyFactory(match !== undefined ? ({
+                  customLevels: logLevels,
+                  customColors: customColors,
+                  colorize: true
+                }) : ({
+                  customLevels: logLevels,
+                  customColors: customColors
+                }));
 }
 
 function makeStreams(userLogLevel, formatter, logFile, defaultFileLogLevel) {

package/src/bindings/Postgres.gen.ts

@@ -0,0 +1,8 @@
+/* TypeScript file generated from Postgres.res by genType. */
+
+/* eslint-disable */
+/* tslint:disable */
+
+import type {Sql as $$sql} from 'postgres';
+
+export type sql = $$sql;

package/src/bindings/Postgres.res

@@ -1,3 +1,6 @@
+// Only needed for some old tests
+// Remove @genType in the future
+@genType.import(("postgres", "Sql"))
 type sql
 
 type undefinedTransform = | @as(undefined) Undefined | @as(null) Null
@@ -75,7 +78,6 @@ type poolConfig = {
   idleTimeout?: int, // Idle connection timeout in seconds (default: 0)
   connectTimeout?: int, // Connect timeout in seconds (default: 30)
   prepare?: bool, // Automatic creation of prepared statements (default: true)
-  // types?: array<'a>, // Array of custom types, see more below (default: [])
   onnotice?: string => unit, // Default console.log, set false to silence NOTICE (default: fn)
   onParameter?: (string, string) => unit, // (key, value) when server param change (default: fn)
   debug?: (~connection: unknown, ~query: unknown, ~params: unknown, ~types: unknown) => unit, // Is called with (connection, query, params, types)
@@ -96,6 +98,7 @@ external makeSql: (~config: poolConfig) => sql = "default"
 // external sql:  array<string>  => (sql, array<string>) => int = "sql"
 
 @send external unsafe: (sql, string) => promise<'a> = "unsafe"
+@send external unpreparedUnsafe: (sql, string, unknown) => promise<'a> = "unsafe"
 @send
 external preparedUnsafe: (sql, string, unknown, @as(json`{prepare: true}`) _) => promise<'a> =
   "unsafe"
@@ -109,6 +112,7 @@ type columnType =
   | @as("DOUBLE PRECISION") DoublePrecision
   | @as("TEXT") Text
   | @as("SERIAL") Serial
+  | @as("BIGSERIAL") BigSerial
   | @as("JSONB") JsonB
   | @as("TIMESTAMP WITH TIME ZONE") TimestampWithTimezone
   | @as("TIMESTAMP WITH TIME ZONE NULL") TimestampWithTimezoneNull

package/src/bindings/Postgres.res.d.mts

@@ -0,0 +1,5 @@
+// This is to prevent tsc --noEmit from failing
+// when importing code from .res.mjs files in genType .ts files
+// After we upgrade GenType and it starts to include ts-ignore,
+// the line can be removed.
+export type sql = any;

package/src/bindings/PromClient.res

@@ -48,16 +48,6 @@ module Gauge = {
   @send external get: gauge => promise<{"values": array<dict<string>>}> = "get"
 }
 
-module Histogram = {
-  type histogram
-  @new @module("prom-client") external make: customMetric<'a> => histogram = "Histogram"
-
-  @send external observe: (histogram, float) => unit = "observe"
-  @send external startTimer: histogram => unit => unit = "startTimer"
-
-  @send external labels: (histogram, 'labelsObject) => histogram = "labels"
-}
-
 module Summary = {
   type summary
   @new @module("prom-client") external makeSummary: customMetric<'a> => summary = "Summary"

package/src/bindings/PromClient.res.mjs

@@ -5,14 +5,11 @@ var Counter = {};
 
 var Gauge = {};
 
-var Histogram = {};
-
 var Summary = {};
 
 export {
   Counter ,
   Gauge ,
-  Histogram ,
   Summary ,
 }
 /* No side effect */

package/src/bindings/Vitest.res

@@ -0,0 +1,144 @@
+// Vitest bindings for ReScript
+
+// ============================================================================
+// Expectation object returned by expect()
+// ============================================================================
+
+type rec expectation<'a> = {
+  // Equality matchers
+  toBe: 'a => unit,
+  toEqual: 'a => unit,
+  toStrictEqual: 'a => unit,
+  // Truthiness matchers
+  toBeTruthy: unit => unit,
+  toBeFalsy: unit => unit,
+  toBeNull: unit => unit,
+  toBeUndefined: unit => unit,
+  toBeDefined: unit => unit,
+  // Number matchers
+  toBeGreaterThan: 'a => unit,
+  toBeGreaterThanOrEqual: 'a => unit,
+  toBeLessThan: 'a => unit,
+  toBeLessThanOrEqual: 'a => unit,
+  toBeCloseTo: (float, ~numDigits: int=?) => unit,
+  toBeNaN: unit => unit,
+  // String matchers
+  toContain: string => unit,
+  toMatch: Js.Re.t => unit,
+  toMatchString: string => unit,
+  // Array matchers
+  toContainItem: 'a => unit,
+  toHaveLength: int => unit,
+  // Object matchers
+  toHaveProperty: string => unit,
+  toHavePropertyValue: 'b. (string, 'b) => unit,
+  // Exception matchers
+  toThrow: unit => unit,
+  toThrowError: string => unit,
+  // Snapshot matchers
+  toMatchSnapshot: unit => unit,
+  // Negation
+  not: expectation<'a>,
+}
+
+// Test context passed to test callbacks
+type testContext = {expect: 'a. ('a, ~message: string=?) => expectation<'a>}
+
+// ============================================================================
+// Test Suite Functions
+// ============================================================================
+
+@module("vitest")
+external describe: (string, unit => unit) => unit = "describe"
+
+@module("vitest") @scope("describe")
+external describe_only: (string, unit => unit) => unit = "only"
+
+@module("vitest") @scope("describe")
+external describe_skip: (string, unit => unit) => unit = "skip"
+
+// ============================================================================
+// Test Functions (sync)
+// ============================================================================
+
+@module("vitest")
+external it: (string, testContext => unit) => unit = "it"
+
+@module("vitest") @scope("it")
+external it_only: (string, testContext => unit) => unit = "only"
+
+@module("vitest") @scope("it")
+external it_skip: (string, testContext => unit) => unit = "skip"
+
+@module("vitest")
+external test: (string, testContext => unit) => unit = "test"
+
+@module("vitest") @scope("test")
+external test_only: (string, testContext => unit) => unit = "only"
+
+@module("vitest") @scope("test")
+external test_skip: (string, testContext => unit) => unit = "skip"
+
+// ============================================================================
+// Setup and Teardown
+// ============================================================================
+
+@module("vitest")
+external beforeAll: (unit => unit) => unit = "beforeAll"
+
+@module("vitest")
+external afterAll: (unit => unit) => unit = "afterAll"
+
+@module("vitest")
+external beforeEach: (unit => unit) => unit = "beforeEach"
+
+@module("vitest")
+external afterEach: (unit => unit) => unit = "afterEach"
+
+// ============================================================================
+// Async Module
+// ============================================================================
+
+type options = {retry?: int}
+
+module Async = {
+  @module("vitest")
+  external it: (string, testContext => promise<unit>, ~timeout: int=?) => unit = "it"
+
+  @module("vitest")
+  external itWithOptions: (string, options, testContext => promise<unit>) => unit = "it"
+
+  @module("vitest") @scope("it")
+  external it_only: (string, testContext => promise<unit>) => unit = "only"
+
+  @module("vitest") @scope("it")
+  external it_skip: (string, testContext => promise<unit>) => unit = "skip"
+
+  @module("vitest")
+  external test: (string, testContext => promise<unit>) => unit = "test"
+
+  @module("vitest") @scope("test")
+  external test_only: (string, testContext => promise<unit>) => unit = "only"
+
+  @module("vitest") @scope("test")
+  external test_skip: (string, testContext => promise<unit>) => unit = "skip"
+
+  @module("vitest")
+  external beforeAll: (unit => promise<unit>) => unit = "beforeAll"
+
+  @module("vitest")
+  external afterAll: (unit => promise<unit>) => unit = "afterAll"
+
+  @module("vitest")
+  external beforeEach: (unit => promise<unit>) => unit = "beforeEach"
+
+  @module("vitest")
+  external afterEach: (unit => promise<unit>) => unit = "afterEach"
+}
+
+// ============================================================================
+// Expect
+// ============================================================================
+
+@module("vitest")
+external expect: ('a, ~message: string=?) => expectation<'a> = "expect"

package/src/bindings/Vitest.res.mjs

@@ -0,0 +1,9 @@
+// Generated by ReScript, PLEASE EDIT WITH CARE
+
+
+var Async = {};
+
+export {
+  Async ,
+}
+/* No side effect */

package/src/bindings/WebSocket.res

@@ -0,0 +1,27 @@
+/*
+Binding to the built-in Node.js WebSocket API (available in Node.js >= 22).
+Used for eth_subscribe("newHeads") real-time block tracking.
+*/
+
+type t
+
+@new external create: string => t = "WebSocket"
+
+@unboxed
+type readyState =
+  | @as(0) Connecting
+  | @as(1) Open
+  | @as(2) Closing
+  | @as(3) Closed
+
+@get external readyState: t => readyState = "readyState"
+
+@set external onopen: (t, unit => unit) => unit = "onopen"
+@set external onerror: (t, Js.Exn.t => unit) => unit = "onerror"
+@set external onclose: (t, unit => unit) => unit = "onclose"
+
+type messageEvent = {data: string}
+@set external onmessage: (t, messageEvent => unit) => unit = "onmessage"
+
+@send external send: (t, string) => unit = "send"
+@send external close: t => unit = "close"

package/src/bindings/WebSocket.res.mjs

@@ -0,0 +1,2 @@
+// Generated by ReScript, PLEASE EDIT WITH CARE
+/* This output is empty. Its source's type definitions, externals and/or unused code got optimized away. */

package/src/bindings/Yargs.res

@@ -0,0 +1,8 @@
+type arg = string
+
+type parsedArgs<'a> = 'a
+
+@module("yargs/yargs") external yargs: array<arg> => parsedArgs<'a> = "default"
+@module("yargs/helpers") external hideBin: array<arg> => array<arg> = "hideBin"
+
+@get external argv: parsedArgs<'a> => 'a = "argv"

package/src/bindings/Yargs.res.mjs

@@ -0,0 +1,2 @@
+// Generated by ReScript, PLEASE EDIT WITH CARE
+/* This output is empty. Its source's type definitions, externals and/or unused code got optimized away. */

package/src/db/EntityHistory.res

@@ -15,7 +15,7 @@ module RowAction = {
 // Prefix with envio_ to avoid colleasions
 let changeFieldName = "envio_change"
 let checkpointIdFieldName = "envio_checkpoint_id"
-let checkpointIdFieldType = Uint32
+let checkpointIdFieldType = UInt64
 let changeFieldType = Enum({config: RowAction.config->Table.fromGenericEnumConfig})
 
 let unsafeCheckpointIdSchema =
@@ -23,11 +23,11 @@ let unsafeCheckpointIdSchema =
   ->S.setName("CheckpointId")
   ->S.transform(s => {
     parser: string =>
-      switch string->Belt.Float.fromString {
-      | Some(float) => float
+      switch BigInt.fromString(string) {
       | None => s.fail("The string is not valid CheckpointId")
+      | Some(v) => v
       },
-    serializer: float => float->Belt.Float.toString,
+    serializer: bigint => bigint->BigInt.toString,
   })
 
 let makeSetUpdateSchema: S.t<'entity> => S.t<Change.t<'entity>> = entitySchema => {
@@ -112,7 +112,7 @@ let pruneStaleEntityHistory = (
 ): promise<unit> => {
   sql->Postgres.preparedUnsafe(
     makePruneStaleEntityHistoryQuery(~entityName, ~entityIndex, ~pgSchema),
-    [safeCheckpointId]->Utils.magic,
+    [safeCheckpointId->BigInt.toString]->(Utils.magic: array<string> => unknown),
   )
 }
 
@@ -144,14 +144,14 @@ let backfillHistory = (sql, ~pgSchema, ~entityName, ~entityIndex, ~ids: array<st
   ->Promise.ignoreValue
 }
 
-let rollback = (sql, ~pgSchema, ~entityName, ~entityIndex, ~rollbackTargetCheckpointId: float) => {
+let rollback = (sql, ~pgSchema, ~entityName, ~entityIndex, ~rollbackTargetCheckpointId: Internal.checkpointId) => {
   sql
   ->Postgres.preparedUnsafe(
     `DELETE FROM "${pgSchema}"."${historyTableName(
         ~entityName,
         ~entityIndex,
       )}" WHERE "${checkpointIdFieldName}" > $1;`,
-    [rollbackTargetCheckpointId]->Utils.magic,
+    [rollbackTargetCheckpointId->BigInt.toString]->(Utils.magic: array<string> => unknown),
   )
   ->Promise.ignoreValue
 }