envio 3.12.0 → 3.13.0-alpha.0

package/src/Worker.res.mjs

@@ -0,0 +1,80 @@
+// Generated by ReScript, PLEASE EDIT WITH CARE
+
+import * as ChainId from "./ChainId.res.mjs";
+import * as Logging from "./Logging.res.mjs";
+import * as Metrics from "./Metrics.res.mjs";
+import * as Process from "process";
+import * as Stdlib_Option from "@rescript/runtime/lib/es6/Stdlib_Option.js";
+import * as Stdlib_JsError from "@rescript/runtime/lib/es6/Stdlib_JsError.js";
+import * as Primitive_option from "@rescript/runtime/lib/es6/Primitive_option.js";
+import * as S$RescriptSchema from "rescript-schema/src/S.res.mjs";
+import * as Primitive_exceptions from "@rescript/runtime/lib/es6/Primitive_exceptions.js";
+
+let envVar = "ENVIO_INTERNAL_WORKER";
+
+let configSchema = S$RescriptSchema.object(s => ({
+  chainIds: s.f("chainIds", S$RescriptSchema.array(ChainId.schema)),
+  holdRealtime: s.fieldOr("holdRealtime", S$RescriptSchema.bool, false)
+}));
+
+function detect(env, hasChannel) {
+  let match = env[envVar];
+  if (!hasChannel) {
+    return;
+  }
+  if (match === undefined) {
+    return;
+  }
+  let config;
+  try {
+    config = S$RescriptSchema.parseJsonStringOrThrow(match, configSchema);
+  } catch (raw_error) {
+    let error = Primitive_exceptions.internalToException(raw_error);
+    if (error.RE_EXN_ID === S$RescriptSchema.Raised) {
+      return Stdlib_JsError.throwWithMessage(`Invalid ` + envVar + `: ` + S$RescriptSchema.$$Error.message(error._1) + `. It is set by an indexer supervisor for the processes it forks, and isn't meant to be set by hand.`);
+    }
+    throw error;
+  }
+  return config;
+}
+
+let config = detect(Process.env, Stdlib_Option.isSome(Primitive_option.fromNullable(process.channel)));
+
+let isEnabled = Stdlib_Option.isSome(config);
+
+function bindToSupervisor() {
+  process.on("SIGINT", () => {});
+  process.on("disconnect", () => {
+    Logging.error("The indexer supervisor is gone. Stopping this chain's process.");
+    Process.exit(1);
+  });
+}
+
+function bindRun(getMetrics, onReleaseRealtime) {
+  if (isEnabled) {
+    Metrics.startRuntimeCollectors();
+    setInterval(() => {
+      let message_0 = getMetrics();
+      let message_1 = Metrics.sampleRuntime();
+      let message = {
+        kind: "snapshot",
+        metrics: message_0,
+        runtime: message_1
+      };
+      process.send(message);
+    }, 500);
+    process.on("message", message => onReleaseRealtime());
+    return;
+  }
+}
+
+export {
+  envVar,
+  configSchema,
+  detect,
+  config,
+  isEnabled,
+  bindToSupervisor,
+  bindRun,
+}
+/* configSchema Not a pure module */

package/src/bindings/NodeJs.res

@@ -64,6 +64,21 @@ module Process = {
   @module("process") external version: string = "version"
   @module("process")
   external getActiveResourcesInfo: unit => array<string> = "getActiveResourcesInfo"
+
+  // Only a process forked with an IPC channel has these. Called through
+  // `process` rather than off a namespace import, which would drop the
+  // receiver Node's own implementations read.
+  @val @scope("process") external sendToParent: 'msg => bool = "send"
+  @val @scope("process")
+  external onMessage: (@as("message") _, 'msg => unit) => unit = "on"
+  @val @scope("process") external onSignal: (string, unit => unit) => unit = "on"
+  // Present only in a process forked with an IPC channel.
+  @val @scope("process") external channel: Nullable.t<unknown> = "channel"
+  @val @scope("process")
+  external onDisconnect: (@as("disconnect") _, unit => unit) => unit = "on"
+  @val @scope("process") external argv: array<string> = "argv"
+  @val @scope("process")
+  external emitMessage: (@as("message") _, 'msg) => bool = "emit"
 }
 
 module Buffer = {
@@ -141,6 +156,32 @@ module ChildProcess = {
 
   @module("child_process")
   external execWithOptions: (string, execOptions, callback) => unit = "exec"
+
+  type child
+  type forkOptions = {
+    cwd?: string,
+    env?: dict<string>,
+    // "advanced" uses the structured clone algorithm, so a message keeps the
+    // Date values a metrics snapshot carries instead of stringifying them.
+    serialization?: string,
+    stdio?: array<string>,
+  }
+  @module("child_process")
+  external fork: (string, array<string>, forkOptions) => child = "fork"
+  @send external send: (child, 'msg) => bool = "send"
+  @send external onMessage: (child, @as("message") _, 'msg => unit) => unit = "on"
+  @send
+  external onExit: (child, @as("exit") _, (Null.t<int>, Null.t<string>) => unit) => unit = "on"
+  @send external onChildError: (child, @as("error") _, exn => unit) => unit = "on"
+  @send external kill: (child, string) => bool = "kill"
+
+  // Present only for a stdio slot the parent asked to pipe.
+  type stdioStream
+  @get external stdout: child => Null.t<stdioStream> = "stdout"
+  @get external stderr: child => Null.t<stdioStream> = "stderr"
+  @send external setEncoding: (stdioStream, string) => unit = "setEncoding"
+  @send external onData: (stdioStream, @as("data") _, string => unit) => unit = "on"
+  @send external onEnd: (stdioStream, @as("end") _, unit => unit) => unit = "on"
 }
 
 module Url = {