@reventlessdev/reventless-aws 3.0.0-alpha.167

package/src/adapter/Runtime/AggregateRuntime_Builder_Micro_Async.res.mjs

@@ -0,0 +1,240 @@
+// Generated by ReScript, PLEASE EDIT WITH CARE
+
+import * as Stdlib_Option from "@rescript/runtime/lib/es6/Stdlib_Option.js";
+import * as Pulumi from "@pulumi/pulumi";
+import * as Stdlib_JsError from "@rescript/runtime/lib/es6/Stdlib_JsError.js";
+import * as Logger$ReventlessCore from "@reventlessdev/reventless-core/src/util/Logger.res.mjs";
+import * as Aggregate$ReventlessCore from "@reventlessdev/reventless-core/src/components/Aggregate/Aggregate.res.mjs";
+import * as Component$ReventlessCore from "@reventlessdev/reventless-core/src/components/Component.res.mjs";
+import * as Util_Bundle$ReventlessAws from "../../util/Util_Bundle.res.mjs";
+import * as ComponentType$ReventlessCore from "@reventlessdev/reventless-core/src/ComponentType.res.mjs";
+import * as RuntimeEnvironment_Lambda$ReventlessAws from "./RuntimeEnvironment_Lambda.res.mjs";
+import * as EventCollectorChannel_DynamoDbStream$ReventlessAws from "../EventCollector/EventCollectorChannel_DynamoDbStream.res.mjs";
+
+let log = Logger$ReventlessCore.fromEnv();
+
+let aggregateInfos = {};
+
+function registerAggregate(aggregateName, specModulePath, behaviorModulePath, eventLogTableName, mappingsModulePath) {
+  aggregateInfos[aggregateName] = {
+    specModulePath: specModulePath,
+    behaviorModulePath: behaviorModulePath,
+    eventLogTableName: eventLogTableName,
+    mappingsModulePath: mappingsModulePath
+  };
+}
+
+let storedSpecs = {};
+
+function getStoredSpec(aggregateName, aggregateResource) {
+  return Stdlib_Option.getOr(storedSpecs[aggregateName], {
+    aggregateName: aggregateName,
+    aggregateResource: aggregateResource,
+    queueUrl: Pulumi.output(""),
+    queueArn: Pulumi.output(""),
+    commandTopicConnects: [],
+    commandGeneratorConnects: [],
+    eventCollectorChannelSpec: undefined,
+    commandTopicMemorySize: 0,
+    commandTopicTimeout: 0,
+    commandGeneratorMemorySize: 0,
+    commandGeneratorTimeout: 0,
+    eventCollectorMemorySize: 0,
+    eventCollectorTimeout: 0
+  });
+}
+
+function forCommandGenerator(param, connect, memorySizeOpt, timeoutOpt, commandGenerator) {
+  let memorySize = memorySizeOpt !== undefined ? memorySizeOpt : 1024;
+  let timeout = timeoutOpt !== undefined ? timeoutOpt : 30;
+  let resource = Component$ReventlessCore.toPulumiResource(commandGenerator);
+  let aggregateResource = resource.__parentResource;
+  if (aggregateResource === undefined) {
+    return;
+  }
+  let aggregateName = Stdlib_Option.getOr(aggregateResource.__name, "Unnamed");
+  let spec = getStoredSpec(aggregateName, aggregateResource);
+  storedSpecs[aggregateName] = {
+    aggregateName: spec.aggregateName,
+    aggregateResource: spec.aggregateResource,
+    queueUrl: spec.queueUrl,
+    queueArn: spec.queueArn,
+    commandTopicConnects: spec.commandTopicConnects,
+    commandGeneratorConnects: spec.commandGeneratorConnects.concat([connect]),
+    eventCollectorChannelSpec: spec.eventCollectorChannelSpec,
+    commandTopicMemorySize: spec.commandTopicMemorySize,
+    commandTopicTimeout: spec.commandTopicTimeout,
+    commandGeneratorMemorySize: Math.max(spec.commandGeneratorMemorySize, memorySize),
+    commandGeneratorTimeout: Math.max(spec.commandGeneratorTimeout, timeout),
+    eventCollectorMemorySize: spec.eventCollectorMemorySize,
+    eventCollectorTimeout: spec.eventCollectorTimeout
+  };
+}
+
+function forCommandTopic(param, connect, memorySizeOpt, timeoutOpt, commandTopic) {
+  let memorySize = memorySizeOpt !== undefined ? memorySizeOpt : 1024;
+  let timeout = timeoutOpt !== undefined ? timeoutOpt : 30;
+  let commandTopicResource = Component$ReventlessCore.toPulumiResource(commandTopic);
+  let aggregateResource = commandTopicResource.__parentResource;
+  if (aggregateResource !== undefined) {
+    let aggregateName = Stdlib_Option.getOr(aggregateResource.__name, "Unnamed");
+    let channel = commandTopic.channel;
+    let channelParts = channel.parts;
+    let queue = channelParts.queue;
+    let spec = getStoredSpec(aggregateName, aggregateResource);
+    storedSpecs[aggregateName] = {
+      aggregateName: spec.aggregateName,
+      aggregateResource: spec.aggregateResource,
+      queueUrl: queue.id,
+      queueArn: queue.arn,
+      commandTopicConnects: spec.commandTopicConnects.concat([connect]),
+      commandGeneratorConnects: spec.commandGeneratorConnects,
+      eventCollectorChannelSpec: spec.eventCollectorChannelSpec,
+      commandTopicMemorySize: Math.max(spec.commandTopicMemorySize, memorySize),
+      commandTopicTimeout: Math.max(spec.commandTopicTimeout, timeout),
+      commandGeneratorMemorySize: spec.commandGeneratorMemorySize,
+      commandGeneratorTimeout: spec.commandGeneratorTimeout,
+      eventCollectorMemorySize: spec.eventCollectorMemorySize,
+      eventCollectorTimeout: spec.eventCollectorTimeout
+    };
+    return;
+  }
+  let name = Stdlib_Option.getOr(commandTopicResource.__name, "Unnamed");
+  Stdlib_JsError.throwWithMessage(`forCommandTopic(micro-async): commandTopic ` + name + ` has no Aggregate parent`);
+}
+
+function forEventCollector(param, eventTopics, resources, memorySizeOpt, timeoutOpt, eventCollector) {
+  let memorySize = memorySizeOpt !== undefined ? memorySizeOpt : 2048;
+  let timeout = timeoutOpt !== undefined ? timeoutOpt : 180;
+  let eventCollectorResource = Component$ReventlessCore.toPulumiResource(eventCollector);
+  let channel = eventCollector.channel;
+  let aggregateResource = Stdlib_Option.flatMap(eventCollectorResource.__parentResource, parent => parent.__parentResource);
+  if (aggregateResource !== undefined) {
+    let aggregateName = Stdlib_Option.getOr(aggregateResource.__name, "Unnamed");
+    let spec = getStoredSpec(aggregateName, aggregateResource);
+    storedSpecs[aggregateName] = {
+      aggregateName: spec.aggregateName,
+      aggregateResource: spec.aggregateResource,
+      queueUrl: spec.queueUrl,
+      queueArn: spec.queueArn,
+      commandTopicConnects: spec.commandTopicConnects,
+      commandGeneratorConnects: spec.commandGeneratorConnects,
+      eventCollectorChannelSpec: {
+        channel: channel,
+        eventTopics: eventTopics,
+        resources: resources
+      },
+      commandTopicMemorySize: spec.commandTopicMemorySize,
+      commandTopicTimeout: spec.commandTopicTimeout,
+      commandGeneratorMemorySize: spec.commandGeneratorMemorySize,
+      commandGeneratorTimeout: spec.commandGeneratorTimeout,
+      eventCollectorMemorySize: Math.max(spec.eventCollectorMemorySize, memorySize),
+      eventCollectorTimeout: Math.max(spec.eventCollectorTimeout, timeout)
+    };
+    return;
+  }
+  let name = Stdlib_Option.getOr(eventCollectorResource.__name, "Unnamed");
+  Stdlib_JsError.throwWithMessage(`forEventCollector(micro-async): eventCollector ` + name + ` has no Aggregate parent`);
+}
+
+let finished = {
+  contents: false
+};
+
+function finish() {
+  if (finished.contents) {
+    return;
+  }
+  let specs = Object.values(storedSpecs);
+  if (specs.length !== 0) {
+    specs.forEach(spec => {
+      let info = aggregateInfos[spec.aggregateName];
+      if (info === undefined) {
+        return log.warn("AggregateRuntime_Builder_Micro_Async", undefined, `no handler registered for ` + spec.aggregateName);
+      }
+      let aggregateOpts_parent = spec.aggregateResource;
+      let aggregateOpts = {
+        parent: aggregateOpts_parent
+      };
+      let baseName = ComponentType$ReventlessCore.name(spec.aggregateName, Aggregate$ReventlessCore.componentType);
+      let packageDirs = {};
+      let specPkg = Util_Bundle$ReventlessAws.extractPackageName(info.specModulePath);
+      let behaviorPkg = Util_Bundle$ReventlessAws.extractPackageName(info.behaviorModulePath);
+      packageDirs[specPkg] = Util_Bundle$ReventlessAws.resolvePackageRoot(specPkg);
+      packageDirs[behaviorPkg] = Util_Bundle$ReventlessAws.resolvePackageRoot(behaviorPkg);
+      let specModule = Stdlib_Option.getOr(JSON.stringify(info.specModulePath), `""`);
+      let behaviorModule = Stdlib_Option.getOr(JSON.stringify(info.behaviorModulePath), `""`);
+      let cmdTopicHandlerConfigOutput = Pulumi.all([
+        info.eventLogTableName,
+        spec.queueUrl,
+        spec.queueArn
+      ]).apply(param => `{"handlers":[{"specModule":` + specModule + `,"behaviorModule":` + behaviorModule + `,"eventLogTable":"` + param[0] + `","queueUrl":"` + param[1] + `","queueArn":"` + param[2] + `"}]}`);
+      let cmdTopicEnvVars = {};
+      cmdTopicEnvVars["HANDLER_CONFIG"] = cmdTopicHandlerConfigOutput;
+      let match = Util_Bundle$ReventlessAws.buildCodeArchive("@reventlessdev/reventless-aws/src/adapter/Runtime/AggregateEntryPoint.mjs", packageDirs, undefined);
+      let cmdTopicName = baseName + "CmdHandler";
+      let cmdTopicRuntime = RuntimeEnvironment_Lambda$ReventlessAws.makeFromCodeAsset(cmdTopicName, match.code, match.sourceCodeHash, cmdTopicEnvVars, Math.max(spec.commandTopicMemorySize, 1024), Math.max(spec.commandTopicTimeout, 30), undefined, undefined, undefined, undefined, aggregateOpts);
+      spec.commandTopicConnects.forEach(connect => connect(cmdTopicRuntime));
+      if (spec.commandGeneratorConnects.length !== 0) {
+        let cmdGenHandlerConfigOutput = Pulumi.all([
+          info.eventLogTableName,
+          spec.queueUrl,
+          spec.queueArn
+        ]).apply(param => `{"handlers":[{"specModule":` + specModule + `,"behaviorModule":` + behaviorModule + `,"eventLogTable":"` + param[0] + `","queueUrl":"` + param[1] + `","queueArn":"` + param[2] + `"}]}`);
+        let cmdGenEnvVars = {};
+        cmdGenEnvVars["HANDLER_CONFIG"] = cmdGenHandlerConfigOutput;
+        cmdGenEnvVars["DISPATCH_MODE"] = "async";
+        let match$1 = Util_Bundle$ReventlessAws.buildCodeArchive("@reventlessdev/reventless-aws/src/adapter/Runtime/AggregateEntryPoint.mjs", packageDirs, undefined);
+        let cmdGenName = baseName + "CmdGen";
+        let cmdGenRuntime = RuntimeEnvironment_Lambda$ReventlessAws.makeFromCodeAsset(cmdGenName, match$1.code, match$1.sourceCodeHash, cmdGenEnvVars, Math.max(spec.commandGeneratorMemorySize, 1024), Math.max(spec.commandGeneratorTimeout, 30), undefined, undefined, undefined, undefined, aggregateOpts);
+        spec.commandGeneratorConnects.forEach(connect => connect(cmdGenRuntime));
+      }
+      let match$2 = spec.eventCollectorChannelSpec;
+      let match$3 = info.mappingsModulePath;
+      if (match$2 === undefined) {
+        return;
+      }
+      if (match$3 === undefined) {
+        return log.warn("AggregateRuntime_Builder_Micro_Async", undefined, `eventCollector registered for ` + spec.aggregateName + ` but no mappingsModulePath — skipping EventMapper Lambda`);
+      }
+      let evtMapperEnvVars = {};
+      let targetSpecModule = Stdlib_Option.getOr(JSON.stringify(info.specModulePath), `""`);
+      let mappingsModuleJson = Stdlib_Option.getOr(JSON.stringify(match$3), `""`);
+      let handlerConfigJson = spec.queueUrl.apply(queueUrl => `{"targetSpecModule":` + targetSpecModule + `,"mappingsModule":` + mappingsModuleJson + `,"queueUrl":"` + queueUrl + `"}`);
+      evtMapperEnvVars["HANDLER_CONFIG"] = handlerConfigJson;
+      let evtMapperPackageDirs = {};
+      let specPkg$1 = Util_Bundle$ReventlessAws.extractPackageName(info.specModulePath);
+      let mappingsPkg = Util_Bundle$ReventlessAws.extractPackageName(match$3);
+      evtMapperPackageDirs[specPkg$1] = Util_Bundle$ReventlessAws.resolvePackageRoot(specPkg$1);
+      evtMapperPackageDirs[mappingsPkg] = Util_Bundle$ReventlessAws.resolvePackageRoot(mappingsPkg);
+      let match$4 = Util_Bundle$ReventlessAws.buildCodeArchive("@reventlessdev/reventless-aws/src/adapter/Runtime/EventMapperEntryPoint.mjs", evtMapperPackageDirs, undefined);
+      let evtMapperName = baseName + "EventMapper";
+      let evtMapperRuntime = RuntimeEnvironment_Lambda$ReventlessAws.makeFromCodeAsset(evtMapperName, match$4.code, match$4.sourceCodeHash, evtMapperEnvVars, Math.max(spec.eventCollectorMemorySize, 2048), Math.max(spec.eventCollectorTimeout, 180), undefined, undefined, undefined, undefined, aggregateOpts);
+      EventCollectorChannel_DynamoDbStream$ReventlessAws.connect(evtMapperName, [match$2], evtMapperRuntime, aggregateOpts);
+    });
+  }
+  finished.contents = true;
+}
+
+let CommandTopicChannel;
+
+let EventCollectorChannel;
+
+let RuntimeEnvironment;
+
+export {
+  CommandTopicChannel,
+  EventCollectorChannel,
+  RuntimeEnvironment,
+  log,
+  aggregateInfos,
+  registerAggregate,
+  storedSpecs,
+  getStoredSpec,
+  forCommandGenerator,
+  forCommandTopic,
+  forEventCollector,
+  finished,
+  finish,
+}
+/* log Not a pure module */

package/src/adapter/Runtime/AggregateRuntime_Builder_PerAggregate.res

@@ -0,0 +1,247 @@
+module CommandTopicChannel = CommandTopicChannel.SQS_Sync
+module EventCollectorChannel = EventCollectorChannel.DynamoDbStream
+module RuntimeEnvironment = RuntimeEnvironment.Lambda
+
+let log = ReventlessCore.Logger.fromEnv()
+
+type context = PulumiAws.Lambda.context
+type runtimeParts = Util.Lambda.runtimeParts
+
+type aggregateInfo = {
+  specModulePath: string,
+  behaviorModulePath: string,
+  eventLogTableName: Pulumi.Output.t<string>,
+}
+
+let aggregateInfos: dict<aggregateInfo> = Dict.make()
+
+let registerAggregate = (
+  ~aggregateName,
+  ~specModulePath,
+  ~behaviorModulePath,
+  ~eventLogTableName,
+) =>
+  aggregateInfos->Dict.set(
+    aggregateName,
+    {specModulePath, behaviorModulePath, eventLogTableName},
+  )
+
+type storedSpec = {
+  aggregateName: string,
+  aggregateResource: Pulumi.Resource.t,
+  queueUrl: Pulumi.Output.t<string>,
+  queueArn: Pulumi.Output.t<string>,
+  connects: array<ReventlessCore.Runtime.connect<runtimeParts>>,
+  eventCollectorChannelSpec: option<
+    ReventlessCore.EventCollector_Adapter.channelSpec<
+      EventCollectorChannel.callbackEvent,
+      context,
+      EventCollectorChannel.channelParts,
+    >,
+  >,
+  memorySize: int,
+  timeout: int,
+}
+
+let storedSpecs: dict<storedSpec> = Dict.make()
+
+let getStoredSpec = (aggregateName, aggregateResource) =>
+  storedSpecs
+  ->Dict.get(aggregateName)
+  ->Option.getOr({
+    aggregateName,
+    aggregateResource,
+    queueUrl: ""->Pulumi.Output.make,
+    queueArn: ""->Pulumi.Output.make,
+    connects: [],
+    eventCollectorChannelSpec: None,
+    memorySize: 0,
+    timeout: 0,
+  })
+
+let forCommandGenerator: ReventlessCore.Runtime.forComponent<
+  ReventlessCore.CommandGenerator.effectEventHandler<context>,
+  runtimeParts,
+  ReventlessCore.CommandGenerator.component,
+> = (
+  ~handler as _,
+  ~connect,
+  ~memorySize=1024,
+  ~timeout=30,
+  commandGenerator,
+) => {
+  let resource = commandGenerator->ReventlessCore.Component.toPulumiResource
+  switch resource.parent {
+  | Some(aggregateResource) =>
+    let aggregateName = aggregateResource.name->Option.getOr("Unnamed")
+    let spec = getStoredSpec(aggregateName, aggregateResource)
+    storedSpecs->Dict.set(aggregateName, {
+      ...spec,
+      connects: spec.connects->Array.concat([connect]),
+      memorySize: Math.Int.max(spec.memorySize, memorySize),
+      timeout: Math.Int.max(spec.timeout, timeout),
+    })
+  | None => ()
+  }
+}
+
+let forCommandTopic: ReventlessCore.Runtime.forComponent<
+  ReventlessCore.Runtime.effectHandler<
+    CommandTopicChannel.callbackEvent,
+    context,
+    unit,
+    string,
+  >,
+  runtimeParts,
+  ReventlessCore.CommandTopic.component<'op>,
+> = (
+  ~handler as _,
+  ~connect,
+  ~memorySize=1024,
+  ~timeout=30,
+  commandTopic,
+) => {
+  let commandTopicResource = commandTopic->ReventlessCore.Component.toPulumiResource
+  switch commandTopicResource.parent {
+  | Some(aggregateResource) =>
+    let aggregateName = aggregateResource.name->Option.getOr("Unnamed")
+    let channel = commandTopic->ReventlessCore.CommandTopic_Adapter.channel
+    let channelParts: Util.SQS.channelParts = Obj.magic(channel.parts)
+    let queue = channelParts.queue
+
+    let spec = getStoredSpec(aggregateName, aggregateResource)
+    storedSpecs->Dict.set(aggregateName, {
+      ...spec,
+      queueUrl: queue.id,
+      queueArn: queue.arn,
+      connects: spec.connects->Array.concat([connect]),
+      memorySize: Math.Int.max(spec.memorySize, memorySize),
+      timeout: Math.Int.max(spec.timeout, timeout),
+    })
+  | None =>
+    let name = commandTopicResource.name->Option.getOr("Unnamed")
+    JsError.throwWithMessage(
+      `forCommandTopic(per-aggregate): commandTopic ${name} has no Aggregate parent`,
+    )
+  }
+}
+
+let forEventCollector: ReventlessCore.Runtime.forEventCollector<
+  ReventlessCore.Runtime.effectHandler<
+    EventCollectorChannel.callbackEvent,
+    context,
+    unit,
+    string,
+  >,
+  ReventlessCore.EventCollector.component,
+> = (
+  ~handler as _,
+  ~eventTopics,
+  ~resources,
+  ~memorySize=1024,
+  ~timeout=30,
+  eventCollector,
+) => {
+  let eventCollectorResource = eventCollector->ReventlessCore.Component.toPulumiResource
+  let channel = eventCollector->ReventlessCore.EventCollector_Adapter.channel
+  switch eventCollectorResource.parent->Option.flatMap(parent => parent.parent) {
+  | Some(aggregateResource) =>
+    let aggregateName = aggregateResource.name->Option.getOr("Unnamed")
+    let spec = getStoredSpec(aggregateName, aggregateResource)
+    storedSpecs->Dict.set(aggregateName, {
+      ...spec,
+      eventCollectorChannelSpec: Some({channel, eventTopics, resources}),
+      memorySize: Math.Int.max(spec.memorySize, memorySize),
+      timeout: Math.Int.max(spec.timeout, timeout),
+    })
+  | None =>
+    let name = eventCollectorResource.name->Option.getOr("Unnamed")
+    JsError.throwWithMessage(
+      `forEventCollector(per-aggregate): eventCollector ${name} has no Aggregate parent`,
+    )
+  }
+}
+
+let finished = ref(false)
+
+let finish = () =>
+  if !finished.contents {
+    // PerAggregate strategy: CommandTopic and EventCollector share one Lambda per aggregate.
+    // Unlike Single (one Lambda for all) or Micro (one Lambda per function), here memorySize
+    // and timeout are a single value per aggregate — the max across all registered functions.
+    let specs = storedSpecs->Dict.valuesToArray
+    if specs->Array.length > 0 {
+      specs->Array.forEach(spec => {
+        switch aggregateInfos->Dict.get(spec.aggregateName) {
+        | Some(info) =>
+          let aggregateOpts = {
+            Pulumi.ComponentResource.parent: spec.aggregateResource,
+          }
+          let name =
+            spec.aggregateName->ReventlessCore.ComponentType.name(
+              ReventlessCore.Aggregate.componentType,
+            )
+          // The single per-aggregate Lambda carries the canonical `CmdHandler`
+          // kind (greppable alongside Single/Micro); the EventCollector connect
+          // below keeps the bare `<Entity>Aggr` stem so it composes to
+          // `<Entity>AggrEventColl`.
+          let lambdaName = name ++ "CmdHandler"
+
+          // Build HANDLER_CONFIG with single handler
+          let specModule =
+            info.specModulePath->JSON.stringifyAny->Option.getOr(`""`)
+          let behaviorModule =
+            info.behaviorModulePath->JSON.stringifyAny->Option.getOr(`""`)
+
+          let handlerConfigOutput =
+            Pulumi.Output.all3((info.eventLogTableName, spec.queueUrl, spec.queueArn))
+            ->Pulumi.Output.apply(((table, queueUrl, queueArn)) =>
+              `{"handlers":[{"specModule":${specModule},"behaviorModule":${behaviorModule},"eventLogTable":"${table}","queueUrl":"${queueUrl}","queueArn":"${queueArn}"}]}`
+            )
+
+          let envVars: dict<Pulumi.Input.t<string>> = Dict.make()
+          envVars->Dict.set("HANDLER_CONFIG", handlerConfigOutput->Pulumi.Output.asInput)
+
+          // Collect user packages
+          let packageDirs: dict<string> = Dict.make()
+          let specPkg = Util_Bundle.extractPackageName(info.specModulePath)
+          let behaviorPkg = Util_Bundle.extractPackageName(info.behaviorModulePath)
+          packageDirs->Dict.set(specPkg, Util_Bundle.resolvePackageRoot(specPkg))
+          packageDirs->Dict.set(behaviorPkg, Util_Bundle.resolvePackageRoot(behaviorPkg))
+
+          // Build AssetArchive: static re-export + user packages
+          let {code, sourceCodeHash} = Util_Bundle.buildCodeArchive(
+            ~entryPointModule="@reventlessdev/reventless-aws/src/adapter/Runtime/AggregateEntryPoint.mjs",
+            ~packageDirs,
+          )
+
+          let runtime = RuntimeEnvironment_Lambda.makeFromCodeAsset(
+            ~name=lambdaName,
+            ~code,
+            ~sourceCodeHash,
+            ~envVars,
+            ~memorySize=spec.memorySize,
+            ~timeout=spec.timeout,
+            ~opts=aggregateOpts,
+          )
+
+          spec.connects->Array.forEach(connect => connect(~runtime))
+
+          let channelSpecs =
+            spec.eventCollectorChannelSpec->Option.mapOr([], cs => [cs])
+          let _connectResources = EventCollectorChannel.connect(
+            ~name,
+            ~channelSpecs,
+            ~runtime,
+            ~opts=aggregateOpts,
+          )
+        | None =>
+          log.warn(
+            ~comp="AggregateRuntime_Builder_PerAggregate",
+            `no handler registered for ${spec.aggregateName}`,
+          )
+        }
+      })
+    }
+    finished := true
+  }

package/src/adapter/Runtime/AggregateRuntime_Builder_PerAggregate.res.mjs

@@ -0,0 +1,185 @@
+// Generated by ReScript, PLEASE EDIT WITH CARE
+
+import * as Stdlib_Option from "@rescript/runtime/lib/es6/Stdlib_Option.js";
+import * as Pulumi from "@pulumi/pulumi";
+import * as Stdlib_JsError from "@rescript/runtime/lib/es6/Stdlib_JsError.js";
+import * as Logger$ReventlessCore from "@reventlessdev/reventless-core/src/util/Logger.res.mjs";
+import * as Aggregate$ReventlessCore from "@reventlessdev/reventless-core/src/components/Aggregate/Aggregate.res.mjs";
+import * as Component$ReventlessCore from "@reventlessdev/reventless-core/src/components/Component.res.mjs";
+import * as Util_Bundle$ReventlessAws from "../../util/Util_Bundle.res.mjs";
+import * as ComponentType$ReventlessCore from "@reventlessdev/reventless-core/src/ComponentType.res.mjs";
+import * as RuntimeEnvironment_Lambda$ReventlessAws from "./RuntimeEnvironment_Lambda.res.mjs";
+import * as EventCollectorChannel_DynamoDbStream$ReventlessAws from "../EventCollector/EventCollectorChannel_DynamoDbStream.res.mjs";
+
+let log = Logger$ReventlessCore.fromEnv();
+
+let aggregateInfos = {};
+
+function registerAggregate(aggregateName, specModulePath, behaviorModulePath, eventLogTableName) {
+  aggregateInfos[aggregateName] = {
+    specModulePath: specModulePath,
+    behaviorModulePath: behaviorModulePath,
+    eventLogTableName: eventLogTableName
+  };
+}
+
+let storedSpecs = {};
+
+function getStoredSpec(aggregateName, aggregateResource) {
+  return Stdlib_Option.getOr(storedSpecs[aggregateName], {
+    aggregateName: aggregateName,
+    aggregateResource: aggregateResource,
+    queueUrl: Pulumi.output(""),
+    queueArn: Pulumi.output(""),
+    connects: [],
+    eventCollectorChannelSpec: undefined,
+    memorySize: 0,
+    timeout: 0
+  });
+}
+
+function forCommandGenerator(param, connect, memorySizeOpt, timeoutOpt, commandGenerator) {
+  let memorySize = memorySizeOpt !== undefined ? memorySizeOpt : 1024;
+  let timeout = timeoutOpt !== undefined ? timeoutOpt : 30;
+  let resource = Component$ReventlessCore.toPulumiResource(commandGenerator);
+  let aggregateResource = resource.__parentResource;
+  if (aggregateResource === undefined) {
+    return;
+  }
+  let aggregateName = Stdlib_Option.getOr(aggregateResource.__name, "Unnamed");
+  let spec = getStoredSpec(aggregateName, aggregateResource);
+  storedSpecs[aggregateName] = {
+    aggregateName: spec.aggregateName,
+    aggregateResource: spec.aggregateResource,
+    queueUrl: spec.queueUrl,
+    queueArn: spec.queueArn,
+    connects: spec.connects.concat([connect]),
+    eventCollectorChannelSpec: spec.eventCollectorChannelSpec,
+    memorySize: Math.max(spec.memorySize, memorySize),
+    timeout: Math.max(spec.timeout, timeout)
+  };
+}
+
+function forCommandTopic(param, connect, memorySizeOpt, timeoutOpt, commandTopic) {
+  let memorySize = memorySizeOpt !== undefined ? memorySizeOpt : 1024;
+  let timeout = timeoutOpt !== undefined ? timeoutOpt : 30;
+  let commandTopicResource = Component$ReventlessCore.toPulumiResource(commandTopic);
+  let aggregateResource = commandTopicResource.__parentResource;
+  if (aggregateResource !== undefined) {
+    let aggregateName = Stdlib_Option.getOr(aggregateResource.__name, "Unnamed");
+    let channel = commandTopic.channel;
+    let channelParts = channel.parts;
+    let queue = channelParts.queue;
+    let spec = getStoredSpec(aggregateName, aggregateResource);
+    storedSpecs[aggregateName] = {
+      aggregateName: spec.aggregateName,
+      aggregateResource: spec.aggregateResource,
+      queueUrl: queue.id,
+      queueArn: queue.arn,
+      connects: spec.connects.concat([connect]),
+      eventCollectorChannelSpec: spec.eventCollectorChannelSpec,
+      memorySize: Math.max(spec.memorySize, memorySize),
+      timeout: Math.max(spec.timeout, timeout)
+    };
+    return;
+  }
+  let name = Stdlib_Option.getOr(commandTopicResource.__name, "Unnamed");
+  Stdlib_JsError.throwWithMessage(`forCommandTopic(per-aggregate): commandTopic ` + name + ` has no Aggregate parent`);
+}
+
+function forEventCollector(param, eventTopics, resources, memorySizeOpt, timeoutOpt, eventCollector) {
+  let memorySize = memorySizeOpt !== undefined ? memorySizeOpt : 1024;
+  let timeout = timeoutOpt !== undefined ? timeoutOpt : 30;
+  let eventCollectorResource = Component$ReventlessCore.toPulumiResource(eventCollector);
+  let channel = eventCollector.channel;
+  let aggregateResource = Stdlib_Option.flatMap(eventCollectorResource.__parentResource, parent => parent.__parentResource);
+  if (aggregateResource !== undefined) {
+    let aggregateName = Stdlib_Option.getOr(aggregateResource.__name, "Unnamed");
+    let spec = getStoredSpec(aggregateName, aggregateResource);
+    storedSpecs[aggregateName] = {
+      aggregateName: spec.aggregateName,
+      aggregateResource: spec.aggregateResource,
+      queueUrl: spec.queueUrl,
+      queueArn: spec.queueArn,
+      connects: spec.connects,
+      eventCollectorChannelSpec: {
+        channel: channel,
+        eventTopics: eventTopics,
+        resources: resources
+      },
+      memorySize: Math.max(spec.memorySize, memorySize),
+      timeout: Math.max(spec.timeout, timeout)
+    };
+    return;
+  }
+  let name = Stdlib_Option.getOr(eventCollectorResource.__name, "Unnamed");
+  Stdlib_JsError.throwWithMessage(`forEventCollector(per-aggregate): eventCollector ` + name + ` has no Aggregate parent`);
+}
+
+let finished = {
+  contents: false
+};
+
+function finish() {
+  if (finished.contents) {
+    return;
+  }
+  let specs = Object.values(storedSpecs);
+  if (specs.length !== 0) {
+    specs.forEach(spec => {
+      let info = aggregateInfos[spec.aggregateName];
+      if (info === undefined) {
+        return log.warn("AggregateRuntime_Builder_PerAggregate", undefined, `no handler registered for ` + spec.aggregateName);
+      }
+      let aggregateOpts_parent = spec.aggregateResource;
+      let aggregateOpts = {
+        parent: aggregateOpts_parent
+      };
+      let name = ComponentType$ReventlessCore.name(spec.aggregateName, Aggregate$ReventlessCore.componentType);
+      let lambdaName = name + "CmdHandler";
+      let specModule = Stdlib_Option.getOr(JSON.stringify(info.specModulePath), `""`);
+      let behaviorModule = Stdlib_Option.getOr(JSON.stringify(info.behaviorModulePath), `""`);
+      let handlerConfigOutput = Pulumi.all([
+        info.eventLogTableName,
+        spec.queueUrl,
+        spec.queueArn
+      ]).apply(param => `{"handlers":[{"specModule":` + specModule + `,"behaviorModule":` + behaviorModule + `,"eventLogTable":"` + param[0] + `","queueUrl":"` + param[1] + `","queueArn":"` + param[2] + `"}]}`);
+      let envVars = {};
+      envVars["HANDLER_CONFIG"] = handlerConfigOutput;
+      let packageDirs = {};
+      let specPkg = Util_Bundle$ReventlessAws.extractPackageName(info.specModulePath);
+      let behaviorPkg = Util_Bundle$ReventlessAws.extractPackageName(info.behaviorModulePath);
+      packageDirs[specPkg] = Util_Bundle$ReventlessAws.resolvePackageRoot(specPkg);
+      packageDirs[behaviorPkg] = Util_Bundle$ReventlessAws.resolvePackageRoot(behaviorPkg);
+      let match = Util_Bundle$ReventlessAws.buildCodeArchive("@reventlessdev/reventless-aws/src/adapter/Runtime/AggregateEntryPoint.mjs", packageDirs, undefined);
+      let runtime = RuntimeEnvironment_Lambda$ReventlessAws.makeFromCodeAsset(lambdaName, match.code, match.sourceCodeHash, envVars, spec.memorySize, spec.timeout, undefined, undefined, undefined, undefined, aggregateOpts);
+      spec.connects.forEach(connect => connect(runtime));
+      let channelSpecs = Stdlib_Option.mapOr(spec.eventCollectorChannelSpec, [], cs => [cs]);
+      EventCollectorChannel_DynamoDbStream$ReventlessAws.connect(name, channelSpecs, runtime, aggregateOpts);
+    });
+  }
+  finished.contents = true;
+}
+
+let CommandTopicChannel;
+
+let EventCollectorChannel;
+
+let RuntimeEnvironment;
+
+export {
+  CommandTopicChannel,
+  EventCollectorChannel,
+  RuntimeEnvironment,
+  log,
+  aggregateInfos,
+  registerAggregate,
+  storedSpecs,
+  getStoredSpec,
+  forCommandGenerator,
+  forCommandTopic,
+  forEventCollector,
+  finished,
+  finish,
+}
+/* log Not a pure module */