@reventlessdev/reventless-core 3.0.0-alpha.169 → 3.0.0-alpha.170

package/src/plugin/component/Plugin_Builder.res

@@ -56,6 +56,7 @@ module Make = (
     ~outboundTranslationSlices: array<module(ReventlessInfra.OutboundTranslationSlice.T)>,
     ~inboundTranslationSlices: array<module(ReventlessInfra.InboundTranslationSlice.T)>,
     ~systemCallableComponents: array<string>,
+    ~componentRuntime: dict<ReventlessInfra.RuntimeHints.t>,
     ~uiFragments: option<Reventless.Plugin.uiFragmentManifest>,
     ~pluginStructure: option<Reventless.Plugin.pluginStructure>,
     self,
@@ -133,7 +134,8 @@ module Make = (
     // AutomationSlices created inside DcbBuilder. The same `aggregateEventTopics`
     // dict (after merging in the DCB EventLog topic) is reused later as
     // `allEventTopics` for ReadModels.
-    let aggregatesWithoutEventMappers = aggregates->createAggregatesWithoutEventMappers(~api, opts)
+    let aggregatesWithoutEventMappers =
+      aggregates->createAggregatesWithoutEventMappers(~api, ~componentRuntime, opts)
     let aggregateEventTopics = Aggregate.allEventTopics(aggregatesWithoutEventMappers)
 
     // Construct DCB components and derive DCB-specific API schema entries
@@ -157,6 +159,7 @@ module Make = (
       ~outboundTranslationSlices,
       ~inboundTranslationSlices,
       ~systemCallableComponents,
+      ~componentRuntime,
       ~pluginStructure?,
       ~opts,
     )
@@ -335,7 +338,8 @@ module Make = (
     | None => ()
     }
 
-    let readModelsOutputs = readModels->createReadModels(~api, ~apiRole, allEventTopics, opts)
+    let readModelsOutputs =
+      readModels->createReadModels(~api, ~apiRole, ~componentRuntime, allEventTopics, opts)
     let allQueryDbs = readModelsOutputs->ReadModel.allQueryDbs
     // Merge DCB StateViewSlice, InboundTranslation, AutomationSlice, and
     // OutboundTranslation QueryDbs into allQueryDbs so createResolvers builds
@@ -613,6 +617,7 @@ module Make = (
             ~scheduler,
             ~queryEngine,
             ~resourceNaming=Spec.resourceNaming,
+            ~componentRuntime,
             ~opts,
           )
 
@@ -858,6 +863,7 @@ module Make = (
           ~publishToAggregates,
           ~queryEngine,
           ~resourceNaming=Spec.resourceNaming,
+          ~componentRuntime,
           ~opts,
         )
 
@@ -1063,6 +1069,7 @@ module Make = (
     ~outboundTranslationSlices=[],
     ~inboundTranslationSlices=[],
     ~systemCallableComponents=[],
+    ~componentRuntime=Dict.make(),
     ~uiFragments: option<Reventless.Plugin.uiFragmentManifest>=?,
     ~pluginStructure: option<Reventless.Plugin.pluginStructure>=?,
     ~opts=?,
@@ -1086,6 +1093,7 @@ module Make = (
         ~outboundTranslationSlices,
         ~inboundTranslationSlices,
         ~systemCallableComponents,
+        ~componentRuntime,
         ~uiFragments,
         ~pluginStructure,
         ...

package/src/plugin/component/Plugin_Builder.res.mjs

@@ -103,7 +103,7 @@ function Make(Spec) {
       let componentChapters = componentChaptersOpt !== undefined ? componentChaptersOpt : ({});
       return Plugin_Structure$ReventlessCore.make(name, aggregates, readModels, stateViewSlices, stateChangeSlices, automationSlices, outboundTranslationSlices, inboundTranslationSlices, extensions, extensionPoints, componentChapters);
     };
-    let make = (name, heartbeatInterval, extensionPointsOpt, extensionsOpt, aggregatesOpt, readModelsOpt, tasksOpt, stateChangeSlicesOpt, stateViewSlicesOpt, automationSlicesOpt, outboundTranslationSlicesOpt, inboundTranslationSlicesOpt, systemCallableComponentsOpt, uiFragments, pluginStructure, opts) => {
+    let make = (name, heartbeatInterval, extensionPointsOpt, extensionsOpt, aggregatesOpt, readModelsOpt, tasksOpt, stateChangeSlicesOpt, stateViewSlicesOpt, automationSlicesOpt, outboundTranslationSlicesOpt, inboundTranslationSlicesOpt, systemCallableComponentsOpt, componentRuntimeOpt, uiFragments, pluginStructure, opts) => {
       let extensionPoints = extensionPointsOpt !== undefined ? extensionPointsOpt : [];
       let extensions = extensionsOpt !== undefined ? extensionsOpt : [];
       let aggregates = aggregatesOpt !== undefined ? aggregatesOpt : [];
@@ -115,6 +115,7 @@ function Make(Spec) {
       let outboundTranslationSlices = outboundTranslationSlicesOpt !== undefined ? outboundTranslationSlicesOpt : [];
       let inboundTranslationSlices = inboundTranslationSlicesOpt !== undefined ? inboundTranslationSlicesOpt : [];
       let systemCallableComponents = systemCallableComponentsOpt !== undefined ? systemCallableComponentsOpt : [];
+      let componentRuntime = componentRuntimeOpt !== undefined ? componentRuntimeOpt : ({});
       PluginRuntimeBuilder.registerPluginName(name);
       let version = PackageVersion$Reventless.fromCaller();
       return Component$ReventlessCore.make(ComponentType$ReventlessCore.toString(Plugin$ReventlessCore.componentType), name, (extra, extra$1) => {
@@ -142,12 +143,12 @@ function Make(Spec) {
           parent: opts_parent
         };
         let childName = ComponentType$ReventlessCore.name(extra$1, Plugin$ReventlessCore.componentType);
-        let aggregatesWithoutEventMappers = Plugin_Helpers$ReventlessCore.createAggregatesWithoutEventMappers(aggregates, api, opts);
+        let aggregatesWithoutEventMappers = Plugin_Helpers$ReventlessCore.createAggregatesWithoutEventMappers(aggregates, api, componentRuntime, opts);
         let aggregateEventTopics = Aggregate$ReventlessCore.allEventTopics(aggregatesWithoutEventMappers);
         let DcbBuilder = Dcb_Builder$ReventlessCore.Make(DcbEventLogStorage)(DcbEventTopicPublisher)(DcbCommandTopicChannel)(DcbCommandTopicChannelAsync)(PluginRuntimeBuilder)({
           hooks: Spec.hooks
         });
-        let dcbResult = DcbBuilder.construct(extra$1, childName, undefined, undefined, Spec.environment, Spec.platformName, aggregateEventTopics, stateChangeSlices, stateViewSlices, automationSlices, outboundTranslationSlices, inboundTranslationSlices, systemCallableComponents, pluginStructure, opts);
+        let dcbResult = DcbBuilder.construct(extra$1, childName, undefined, undefined, Spec.environment, Spec.platformName, aggregateEventTopics, stateChangeSlices, stateViewSlices, automationSlices, outboundTranslationSlices, inboundTranslationSlices, systemCallableComponents, componentRuntime, pluginStructure, opts);
         let mutationEntriesFromAggregates = aggregates.flatMap(M => {
           let commandSchema = M.Spec.commandSchema;
           if (ApiNoApiHelpers$ReventlessCore.isNoApi(commandSchema)) {
@@ -252,7 +253,7 @@ function Make(Spec) {
         if (dcbOutputs !== undefined) {
           aggregateEventTopics[extra$1 + "DcbEventLog"] = dcbOutputs.eventTopic;
         }
-        let readModelsOutputs = Plugin_Helpers$ReventlessCore.createReadModels(readModels, api, apiRole, aggregateEventTopics, opts);
+        let readModelsOutputs = Plugin_Helpers$ReventlessCore.createReadModels(readModels, api, apiRole, componentRuntime, aggregateEventTopics, opts);
         let allQueryDbs = ReadModel$ReventlessCore.allQueryDbs(readModelsOutputs);
         Object.entries(dcbResult.stateViewSlicesOutputs).forEach(param => {
           allQueryDbs[param[0]] = param[1].queryDb;
@@ -428,7 +429,7 @@ function Make(Spec) {
           let localAdminResolvedEP = match[1];
           let interstackAdminExtensionPoints = match[0];
           let aggregatesOutputs = Plugin_Helpers$ReventlessCore.addEventMappers(aggregateEventTopics, queryEngine);
-          let match$1 = Plugin_Helpers$ReventlessCore.createExtensionPoints(extensionPoints, aggregateResources, publishToAggregates, scheduler, queryEngine, Spec.resourceNaming, opts);
+          let match$1 = Plugin_Helpers$ReventlessCore.createExtensionPoints(extensionPoints, aggregateResources, publishToAggregates, scheduler, queryEngine, Spec.resourceNaming, componentRuntime, opts);
           let extensionPointsHandlers = match$1[1];
           let extensionPointsOutputs = match$1[0];
           let coreSetup;
@@ -531,7 +532,7 @@ function Make(Spec) {
           } else {
             EventCollectorHelper.connect(eventCollector, eventTopics, extensionPointsOutputs, extensionsOutputs, undefined, pluginDefinition, Primitive_option.some(uiFragments), undefined, extensionsHandlers, extensionPointsHandlers, undefined, extensionRegistryInfos, undefined, aggregateQueueUrls, readModelQueueUrls, Plugin_Helpers$ReventlessCore.readModelNamesForSourceName);
           }
-          let tasksOutputs = Plugin_Helpers$ReventlessCore.createTasks(tasks, aggregatesOutputs, scheduler, schedulerRoleUrn, publishToAggregates, queryEngine, Spec.resourceNaming, opts);
+          let tasksOutputs = Plugin_Helpers$ReventlessCore.createTasks(tasks, aggregatesOutputs, scheduler, schedulerRoleUrn, publishToAggregates, queryEngine, Spec.resourceNaming, componentRuntime, opts);
           let resolvers = Plugin_Helpers$ReventlessCore.createResolvers(allQueryDbs);
           Stdlib_Option.forEach(Spec.hooks.subscriptionInfraHook, hook => hook({
             allQueryDbs: allQueryDbs,

package/src/plugin/component/Plugin_Helpers.res

@@ -416,6 +416,7 @@ let createTasks = (
   ~publishToAggregates,
   ~queryEngine,
   ~resourceNaming,
+  ~componentRuntime: dict<ReventlessInfra.RuntimeHints.t>,
   ~opts,
 ) => {
   tasksOutputs :=
@@ -429,6 +430,7 @@ let createTasks = (
         ~queryEngine,
         ~resourceNaming,
         ~allAggregates=aggregatesOutputs,
+        ~runtime=?componentRuntime->Dict.get(SpecificTask.Spec.name),
         ~opts=Some(opts),
       ))
     )

package/src/plugin/component/Plugin_Helpers.res.mjs

@@ -243,11 +243,11 @@ let tasksOutputs = {
   contents: []
 };
 
-function createTasks(tasks, aggregatesOutputs, scheduler, schedulerRoleUrn, publishToAggregates, queryEngine, resourceNaming, opts) {
+function createTasks(tasks, aggregatesOutputs, scheduler, schedulerRoleUrn, publishToAggregates, queryEngine, resourceNaming, componentRuntime, opts) {
   tasksOutputs.contents = tasks.map(SpecificTask => SpecificTask.outputs(SpecificTask.make((taskName, bucketNameOpt) => {
     let bucketName = bucketNameOpt !== undefined ? bucketNameOpt : "Bucket";
     return ResourceQueryRuntime$ReventlessCore.bucketNameOfTaskExn(tasksOutputs.contents, taskName, bucketName);
-  }, scheduler, schedulerRoleUrn, publishToAggregates, queryEngine, resourceNaming, aggregatesOutputs, opts)));
+  }, scheduler, schedulerRoleUrn, publishToAggregates, queryEngine, resourceNaming, aggregatesOutputs, componentRuntime[SpecificTask.Spec.name], opts)));
   return tasksOutputs.contents;
 }
 

package/tests/plugin/ManifestVisibilityTest.res

@@ -48,7 +48,7 @@ module PublicReadModel: ReventlessInfra.ReadModel.T
   // A read model that projects an event reaching it via a (DCB-log-sourced) mapping — the
   // case Plugin_Structure must surface as a qualified `consumedEventTypes` entry.
   let consumedEventNames: array<string> = ["OrderPlaced"]
-  let make = (~api as _, ~apiRole as _, ~allEventTopics as _, ~opts as _=?): component =>
+  let make = (~api as _, ~apiRole as _, ~allEventTopics as _, ~runtime as _=?, ~opts as _=?): component =>
     Obj.magic(0)
   let outputs = (_: component): ReventlessInfra.ReadModel.outputs => Obj.magic(0)
   let operations = (_: component): Pulumi.Output.t<ReventlessInfra.ReadModel.operations> =>
@@ -64,7 +64,7 @@ module InternalReadModel: ReventlessInfra.ReadModel.T
   type component
   let sourceNames: array<string> = []
   let consumedEventNames: array<string> = []
-  let make = (~api as _, ~apiRole as _, ~allEventTopics as _, ~opts as _=?): component =>
+  let make = (~api as _, ~apiRole as _, ~allEventTopics as _, ~runtime as _=?, ~opts as _=?): component =>
     Obj.magic(0)
   let outputs = (_: component): ReventlessInfra.ReadModel.outputs => Obj.magic(0)
   let operations = (_: component): Pulumi.Output.t<ReventlessInfra.ReadModel.operations> =>

package/tests/plugin/ManifestVisibilityTest.res.mjs

@@ -55,7 +55,7 @@ let sourceNames = [];
 
 let consumedEventNames = ["OrderPlaced"];
 
-function make(param, param$1, param$2, param$3) {
+function make(param, param$1, param$2, param$3, param$4) {
   return 0;
 }
 
@@ -102,7 +102,7 @@ let sourceNames$1 = [];
 
 let consumedEventNames$1 = [];
 
-function make$1(param, param$1, param$2, param$3) {
+function make$1(param, param$1, param$2, param$3, param$4) {
   return 0;
 }
 

package/tests/plugin/PluginStructureTest.res

@@ -27,7 +27,7 @@ module PsPlaceOrderSlice: ReventlessInfra.StateChangeSlice.T = {
   }
   let isAsync = false
   type component = scsComponent
-  let make = (~dcbEventLog as _, ~publishJsons as _, ~tagKeysByEventType as _=?, ~crossPartitionTagKeys as _=?, ~opts as _=?): component => Obj.magic(0)
+  let make = (~dcbEventLog as _, ~publishJsons as _, ~tagKeysByEventType as _=?, ~crossPartitionTagKeys as _=?, ~runtime as _=?, ~opts as _=?): component => Obj.magic(0)
 }
 module PsShipOrderSlice: ReventlessInfra.StateChangeSlice.T = {
   module Spec = PsShipOrder
@@ -40,7 +40,7 @@ module PsShipOrderSlice: ReventlessInfra.StateChangeSlice.T = {
   }
   let isAsync = false
   type component = scsComponent
-  let make = (~dcbEventLog as _, ~publishJsons as _, ~tagKeysByEventType as _=?, ~crossPartitionTagKeys as _=?, ~opts as _=?): component => Obj.magic(0)
+  let make = (~dcbEventLog as _, ~publishJsons as _, ~tagKeysByEventType as _=?, ~crossPartitionTagKeys as _=?, ~runtime as _=?, ~opts as _=?): component => Obj.magic(0)
 }
 module PsOrdersViewSlice: ReventlessInfra.StateViewSlice.T = {
   module Spec = PsOrdersView
@@ -49,7 +49,7 @@ module PsOrdersViewSlice: ReventlessInfra.StateViewSlice.T = {
     let moduleUrl = PsOrdersView.moduleUrl
   }
   type component = svsComponent
-  let make = (~dcbEventLog as _, ~opts as _=?): component => Obj.magic(0)
+  let make = (~dcbEventLog as _, ~runtime as _=?, ~opts as _=?): component => Obj.magic(0)
 }
 module PsAvailableProductsViewSlice: ReventlessInfra.StateViewSlice.T = {
   module Spec = PsAvailableProductsView
@@ -58,7 +58,7 @@ module PsAvailableProductsViewSlice: ReventlessInfra.StateViewSlice.T = {
     let moduleUrl = PsAvailableProductsView.moduleUrl
   }
   type component = svsComponent
-  let make = (~dcbEventLog as _, ~opts as _=?): component => Obj.magic(0)
+  let make = (~dcbEventLog as _, ~runtime as _=?, ~opts as _=?): component => Obj.magic(0)
 }
 module PsCustomersViewSlice: ReventlessInfra.StateViewSlice.T = {
   module Spec = PsCustomersView
@@ -67,7 +67,7 @@ module PsCustomersViewSlice: ReventlessInfra.StateViewSlice.T = {
     let moduleUrl = PsCustomersView.moduleUrl
   }
   type component = svsComponent
-  let make = (~dcbEventLog as _, ~opts as _=?): component => Obj.magic(0)
+  let make = (~dcbEventLog as _, ~runtime as _=?, ~opts as _=?): component => Obj.magic(0)
 }
 module PsAnnotatedViewSlice: ReventlessInfra.StateViewSlice.T = {
   module Spec = PsAnnotatedView
@@ -76,7 +76,7 @@ module PsAnnotatedViewSlice: ReventlessInfra.StateViewSlice.T = {
     let moduleUrl = PsAnnotatedView.moduleUrl
   }
   type component = svsComponent
-  let make = (~dcbEventLog as _, ~opts as _=?): component => Obj.magic(0)
+  let make = (~dcbEventLog as _, ~runtime as _=?, ~opts as _=?): component => Obj.magic(0)
 }
 
 let structure = Plugin_Structure.make(

package/tests/plugin/PluginStructureTest.res.mjs

@@ -18,7 +18,7 @@ let Behavior = {
   moduleUrl: PsPlaceOrder$ReventlessCore.moduleUrl
 };
 
-function make(param, param$1, param$2, param$3, param$4) {
+function make(param, param$1, param$2, param$3, param$4, param$5) {
   return 0;
 }
 
@@ -48,7 +48,7 @@ let Behavior$1 = {
   moduleUrl: PsShipOrder$ReventlessCore.moduleUrl
 };
 
-function make$1(param, param$1, param$2, param$3, param$4) {
+function make$1(param, param$1, param$2, param$3, param$4, param$5) {
   return 0;
 }
 
@@ -76,7 +76,7 @@ let Projection = {
   moduleUrl: PsOrdersView$ReventlessCore.moduleUrl
 };
 
-function make$2(param, param$1) {
+function make$2(param, param$1, param$2) {
   return 0;
 }
 
@@ -102,7 +102,7 @@ let Projection$1 = {
   moduleUrl: PsAvailableProductsView$ReventlessCore.moduleUrl
 };
 
-function make$3(param, param$1) {
+function make$3(param, param$1, param$2) {
   return 0;
 }
 
@@ -128,7 +128,7 @@ let Projection$2 = {
   moduleUrl: PsCustomersView$ReventlessCore.moduleUrl
 };
 
-function make$4(param, param$1) {
+function make$4(param, param$1, param$2) {
   return 0;
 }
 
@@ -154,7 +154,7 @@ let Projection$3 = {
   moduleUrl: PsAnnotatedView$ReventlessCore.moduleUrl
 };
 
-function make$5(param, param$1) {
+function make$5(param, param$1, param$2) {
   return 0;
 }