@reventlessdev/reventless-core 3.0.0-alpha.239 → 3.0.0-alpha.241

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

@@ -3,6 +3,7 @@
 import * as Stdlib_Array from "@rescript/runtime/lib/es6/Stdlib_Array.js";
 import * as Stdlib_Option from "@rescript/runtime/lib/es6/Stdlib_Option.js";
 import * as StorageRef$Reventless from "@reventlessdev/reventless-spec/src/semantic/StorageRef.res.mjs";
+import * as Api_Naming$ReventlessCore from "../../components/Api/Api_Naming.res.mjs";
 
 let refLikeNames = [
   "file",
@@ -56,7 +57,7 @@ function scanSchema(component, schema) {
       return [];
     }
   };
-  if (schema.type === "union") {
+  if (schema.type === "anyOf") {
     return schema.anyOf.flatMap(fromVariant);
   } else {
     return fromVariant(schema);
@@ -67,6 +68,127 @@ function message(w) {
   return w.component + `.` + w.field + ` looks like a stored-object reference but declares no store — annotate it \`@storageRef("<store>")\` so the deployment provisions the store it needs, or rename the field if it holds an external URL. Heuristic matches are never provisioned.`;
 }
 
+function withinOneEdit(a, b) {
+  let la = a.length;
+  let lb = b.length;
+  if (la === lb) {
+    let diffs = [];
+    for (let i = 0; i < la; ++i) {
+      if (a.charAt(i) !== b.charAt(i)) {
+        diffs.push(i);
+      }
+    }
+    let len = diffs.length;
+    if (len >= 3) {
+      return false;
+    }
+    switch (len) {
+      case 0 :
+      case 1 :
+        return true;
+      case 2 :
+        let i$1 = diffs[0];
+        let j = diffs[1];
+        if (j === (i$1 + 1 | 0) && a.charAt(i$1) === b.charAt(j)) {
+          return a.charAt(j) === b.charAt(i$1);
+        } else {
+          return false;
+        }
+    }
+  } else {
+    if ((la - lb | 0) !== 1 && (lb - la | 0) !== 1) {
+      return false;
+    }
+    let match = la > lb ? [
+        a,
+        b
+      ] : [
+        b,
+        a
+      ];
+    let short = match[1];
+    let long = match[0];
+    let _li = 0;
+    let _si = 0;
+    let _skipped = false;
+    while (true) {
+      let skipped = _skipped;
+      let si = _si;
+      let li = _li;
+      if (si >= short.length) {
+        return true;
+      }
+      if (long.charAt(li) === short.charAt(si)) {
+        _si = si + 1 | 0;
+        _li = li + 1 | 0;
+        continue;
+      }
+      if (skipped) {
+        return false;
+      }
+      _skipped = true;
+      _li = li + 1 | 0;
+      continue;
+    };
+  }
+}
+
+function sameStem(a, b) {
+  return Api_Naming$ReventlessCore.singularize(a) === Api_Naming$ReventlessCore.singularize(b);
+}
+
+function splitKey(key) {
+  let match = key.split(".");
+  if (match.length !== 2) {
+    return [
+      "",
+      key
+    ];
+  }
+  let plugin = match[0];
+  let store = match[1];
+  return [
+    plugin,
+    store
+  ];
+}
+
+function collisions(declarations) {
+  let byStore = {};
+  declarations.forEach(d => {
+    let match = byStore[d.store];
+    if (match !== undefined) {
+      return;
+    } else {
+      byStore[d.store] = d;
+      return;
+    }
+  });
+  let unique = Object.values(byStore);
+  let found = [];
+  for (let i = 0, i_finish = unique.length; i < i_finish; ++i) {
+    for (let j = i + 1 | 0, j_finish = unique.length; j < j_finish; ++j) {
+      let a = unique[i];
+      let b = unique[j];
+      let match = splitKey(a.store);
+      let storeA = match[1];
+      let match$1 = splitKey(b.store);
+      let storeB = match$1[1];
+      if (match[0] === match$1[0] && (withinOneEdit(storeA, storeB) || sameStem(storeA, storeB))) {
+        found.push({
+          a: a,
+          b: b
+        });
+      }
+    }
+  }
+  return found;
+}
+
+function collisionMessage(c) {
+  return c.a.store + ` (` + c.a.component + `.` + c.a.field + `) and ` + c.b.store + ` ` + (`(` + c.b.component + `.` + c.b.field + `) differ by one edit — one is probably a typo for `) + `the other, and both would be provisioned, splitting objects across two stores. Fix the field name, or name the store explicitly with \`@storageRef("<store>")\` if the two really are separate stores.`;
+}
+
 export {
   refLikeNames,
   refLikeSuffixes,
@@ -75,5 +197,10 @@ export {
   warningsFromProperties,
   scanSchema,
   message,
+  withinOneEdit,
+  sameStem,
+  splitKey,
+  collisions,
+  collisionMessage,
 }
 /* StorageRef-Reventless Not a pure module */

package/src/plugin/component/Plugin_Builder.res

@@ -687,7 +687,7 @@ module Make = (
               interstackAdminExtensionPoints
               ->Pulumi.StackReference.get(PluginExtensionPointSpec.name)
               ->Obj.magic: JSON.t
-            )->S.parseOrThrow(ReventlessInterop.ExtensionPoint.resolvedOutputsSchema)
+            )->S.parseOrThrow(~to=ReventlessInterop.ExtensionPoint.resolvedOutputsSchema)
             let pluginExtensionPointCommandTopicRemoteChannel = PluginExtensionPointRemoteChannel.make(
               pluginExtensionPointUnwrapped.commandTopic.resources->Array.map(
                 Adapter.fromInteropResolved,
@@ -1030,7 +1030,7 @@ module Make = (
       builderOutputs->Pulumi.Output.apply(outputs =>
         outputs
         ->toInteropMeta
-        ->S.reverseConvertToJsonOrThrow(ReventlessInterop.ExportMeta.schema)
+        ->Reventless.Util_Sury.toJson(ReventlessInterop.ExportMeta.schema)
       )
 
     Logger.currentPluginName := _prevPluginName

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

@@ -9,6 +9,7 @@ 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 DcbTag$Reventless from "@reventlessdev/reventless-spec/src/components/DcbTag.res.mjs";
 import * as Plugin$Reventless from "@reventlessdev/reventless-spec/src/components/Plugin.res.mjs";
+import * as Util_Sury$Reventless from "@reventlessdev/reventless-spec/src/util/Util_Sury.res.mjs";
 import * as Logger$ReventlessCore from "../../util/Logger.res.mjs";
 import * as Plugin$ReventlessCore from "./Plugin.res.mjs";
 import * as StackReference$Pulumi from "@reventlessdev/rescript-pulumi-pulumi/src/StackReference.res.mjs";
@@ -648,7 +649,7 @@ function Make(Spec) {
           inboundTranslationSlices: pluginOutputs_inboundTranslationSlices
         };
         Component$ReventlessCore.setOutputs(extra, pluginOutputs);
-        Plugin_Helpers$ReventlessCore.interopMetaOutput.contents = builderOutputs.apply(outputs => S.reverseConvertToJsonOrThrow(Plugin_Helpers$ReventlessCore.toInteropMeta(outputs), ExportMeta$ReventlessInterop.schema));
+        Plugin_Helpers$ReventlessCore.interopMetaOutput.contents = builderOutputs.apply(outputs => Util_Sury$Reventless.toJson(Plugin_Helpers$ReventlessCore.toInteropMeta(outputs), ExportMeta$ReventlessInterop.schema));
         Logger$ReventlessCore.currentPluginName.contents = _prevPluginName;
         return ResourceAttribution$ReventlessCore.restore(_prevAttribution);
       }, opts);

package/src/plugin/component/Plugin_Helpers.res

@@ -46,7 +46,7 @@ let getRemoteStorageResources = (pluginName, queryDbName) =>
           | Some(rawReadModel) =>
             try {
               let readModel =
-                rawReadModel->S.parseOrThrow(ReventlessInterop.ReadModel.resolvedOutputsSchema)
+                rawReadModel->S.parseOrThrow(~to=ReventlessInterop.ReadModel.resolvedOutputsSchema)
               readModel.queryDb.resources->Adapter.fromInteropResources
             } catch {
             | exn =>
@@ -607,12 +607,12 @@ module MakeEventCollectorHelper = (
         ecResource.name->ComponentType.nameOpt(EventCollector.componentType)
       let pluginDefinitionJson =
         pluginDefinition
-        ->S.reverseConvertToJsonOrThrow(Reventless.Plugin.pluginDefinitionSchema)
+        ->Reventless.Util_Sury.toJson(Reventless.Plugin.pluginDefinitionSchema)
         ->JSON.stringify
         ->Pulumi.Output.make
       let uiFragmentsJson =
         uiFragments
-        ->S.reverseConvertToJsonOrThrow(Reventless.Plugin.uiFragmentManifestOptionSchema)
+        ->Reventless.Util_Sury.toJson(Reventless.Plugin.uiFragmentManifestOptionSchema)
         ->JSON.stringify
         ->Pulumi.Output.make
       let pluginExtensionPointCmdTopicUrl = switch pluginExtensionPointUnwrapped {
@@ -824,7 +824,7 @@ let offloadPayload = (value: 'a, ~schema: S.t<'a>, ~store: string): Reventless.O
   switch offloadHook.contents {
   | Some(hook) =>
     Reventless.Offload.Offloaded(
-      hook(~store, ~bytes=value->S.reverseConvertToJsonStringOrThrow(schema)),
+      hook(~store, ~bytes=value->Reventless.Util_Sury.toJsonString(schema)),
     )
   | None => Reventless.Offload.Inline(value)
   }
@@ -1250,7 +1250,7 @@ let serializePlainDictExport = (
     ->toResolved
     ->Pulumi.Output.apply(resolved => (
       name,
-      resolved->S.reverseConvertToJsonOrThrow(schema),
+      resolved->Reventless.Util_Sury.toJson(schema),
     ))
   )
   ->Pulumi.Output.all
@@ -1269,7 +1269,7 @@ let serializeDictExport = (
       ->toResolved
       ->Pulumi.Output.apply(resolved => (
         name,
-        resolved->S.reverseConvertToJsonOrThrow(schema),
+        resolved->Reventless.Util_Sury.toJson(schema),
       ))
     )
     ->Pulumi.Output.all
@@ -1285,7 +1285,7 @@ let serializeTasksOutputs = (pluginOutputs: Plugin.outputs): Pulumi.Output.t<JSO
       task
       ->Task.toResolvedOutputs
       ->Pulumi.Output.apply(resolved =>
-        resolved->S.reverseConvertToJsonOrThrow(ReventlessInterop.Task.resolvedOutputsSchema)
+        resolved->Reventless.Util_Sury.toJson(ReventlessInterop.Task.resolvedOutputsSchema)
       )
     )
     ->Pulumi.Output.all
@@ -1310,7 +1310,7 @@ let serializeEventMappersOutputs = (pluginOutputs: Plugin.outputs): Pulumi.Outpu
           ->EventMapper.toResolvedOutputs
           ->Pulumi.Output.apply(resolved =>
             Some(
-              resolved->S.reverseConvertToJsonOrThrow(
+              resolved->Reventless.Util_Sury.toJson(
                 ReventlessInterop.EventMapper.resolvedOutputsSchema,
               ),
             )
@@ -1350,7 +1350,7 @@ let exportPlatformOutputs = (
         ->ExtensionPoint.toResolvedOutputs
         ->Pulumi.Output.apply(resolved => (
           ep.name,
-          resolved->S.reverseConvertToJsonOrThrow(
+          resolved->Reventless.Util_Sury.toJson(
             ReventlessInterop.ExtensionPoint.resolvedOutputsSchema,
           ),
         ))
@@ -1392,7 +1392,7 @@ let exportPlatformOutputs = (
       dcbOutputs
       ->DcbEventLog.toResolvedOutputs
       ->Pulumi.Output.apply(resolved =>
-        resolved->S.reverseConvertToJsonOrThrow(
+        resolved->Reventless.Util_Sury.toJson(
           ReventlessInterop.DcbEventLog.resolvedOutputsSchema,
         )
       ),
@@ -1545,7 +1545,7 @@ let exportPluginOutputs = (pluginOutputs: Plugin.outputs) => {
         dcbOutputs
         ->DcbEventLog.toResolvedOutputs
         ->Pulumi.Output.apply(resolved =>
-          resolved->S.reverseConvertToJsonOrThrow(
+          resolved->Reventless.Util_Sury.toJson(
             ReventlessInterop.DcbEventLog.resolvedOutputsSchema,
           )
         )

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

@@ -16,6 +16,7 @@ import * as DcbTag$Reventless from "@reventlessdev/reventless-spec/src/component
 import * as Plugin$Reventless from "@reventlessdev/reventless-spec/src/components/Plugin.res.mjs";
 import * as Task$ReventlessCore from "../../components/Task/Task.res.mjs";
 import * as Primitive_exceptions from "@rescript/runtime/lib/es6/Primitive_exceptions.js";
+import * as Util_Sury$Reventless from "@reventlessdev/reventless-spec/src/util/Util_Sury.res.mjs";
 import * as Logger$ReventlessCore from "../../util/Logger.res.mjs";
 import * as Adapter$ReventlessCore from "../../adapter/Adapter.res.mjs";
 import * as Task$ReventlessInterop from "@reventlessdev/reventless-interop/src/components/Task.res.mjs";
@@ -321,8 +322,8 @@ function MakeEventCollectorHelper(RuntimeEnvironment) {
         let handler = PluginEventCollector.makeHandler(eventCollector, Callback.handleJsonEvents);
         let ecResource = Component$ReventlessCore.toPulumiResource(eventCollector);
         let ecName = ComponentType$ReventlessCore.nameOpt(ecResource.__name, EventCollector$ReventlessCore.componentType);
-        let pluginDefinitionJson = Pulumi.output(JSON.stringify(S.reverseConvertToJsonOrThrow(pluginDefinition, Plugin$Reventless.pluginDefinitionSchema)));
-        let uiFragmentsJson = Pulumi.output(JSON.stringify(S.reverseConvertToJsonOrThrow(uiFragments, Plugin$Reventless.uiFragmentManifestOptionSchema)));
+        let pluginDefinitionJson = Pulumi.output(JSON.stringify(Util_Sury$Reventless.toJson(pluginDefinition, Plugin$Reventless.pluginDefinitionSchema)));
+        let uiFragmentsJson = Pulumi.output(JSON.stringify(Util_Sury$Reventless.toJson(uiFragments, Plugin$Reventless.uiFragmentManifestOptionSchema)));
         let pluginExtensionPointCmdTopicUrl;
         if (pluginExtensionPointUnwrapped !== undefined) {
           let r = pluginExtensionPointUnwrapped.commandTopic.resources[0];
@@ -436,7 +437,7 @@ function offloadPayload(value, schema, store) {
   if (hook !== undefined) {
     return {
       TAG: "Offloaded",
-      _0: hook(store, S.reverseConvertToJsonStringOrThrow(value, schema, undefined))
+      _0: hook(store, Util_Sury$Reventless.toJsonString(value, schema, undefined))
     };
   } else {
     return {
@@ -636,7 +637,7 @@ function serializePlainDictExport(dict, toResolved, schema) {
     let name = param[0];
     return toResolved(param[1]).apply(resolved => [
       name,
-      S.reverseConvertToJsonOrThrow(resolved, schema)
+      Util_Sury$Reventless.toJson(resolved, schema)
     ]);
   })).apply(pairs => Object.fromEntries(pairs));
 }
@@ -646,19 +647,19 @@ function serializeDictExport(dictOutput, toResolved, schema) {
     let name = param[0];
     return toResolved(param[1]).apply(resolved => [
       name,
-      S.reverseConvertToJsonOrThrow(resolved, schema)
+      Util_Sury$Reventless.toJson(resolved, schema)
     ]);
   })).apply(pairs => Object.fromEntries(pairs)));
 }
 
 function serializeTasksOutputs(pluginOutputs) {
-  return Output$Pulumi.flatMap(pluginOutputs.tasks, tasks => Pulumi.all(Object.values(tasks).map(task => Task$ReventlessCore.toResolvedOutputs(task).apply(resolved => S.reverseConvertToJsonOrThrow(resolved, Task$ReventlessInterop.resolvedOutputsSchema)))).apply(arr => arr));
+  return Output$Pulumi.flatMap(pluginOutputs.tasks, tasks => Pulumi.all(Object.values(tasks).map(task => Task$ReventlessCore.toResolvedOutputs(task).apply(resolved => Util_Sury$Reventless.toJson(resolved, Task$ReventlessInterop.resolvedOutputsSchema)))).apply(arr => arr));
 }
 
 function serializeEventMappersOutputs(pluginOutputs) {
   return Output$Pulumi.flatMap(pluginOutputs.aggregates, aggregates => Pulumi.all(Object.values(aggregates).map(agg => Output$Pulumi.flatMap(agg.eventMapper, em => {
     if (em !== undefined) {
-      return EventMapper$ReventlessCore.toResolvedOutputs(em).apply(resolved => S.reverseConvertToJsonOrThrow(resolved, EventMapper$ReventlessInterop.resolvedOutputsSchema));
+      return EventMapper$ReventlessCore.toResolvedOutputs(em).apply(resolved => Util_Sury$Reventless.toJson(resolved, EventMapper$ReventlessInterop.resolvedOutputsSchema));
     } else {
       return Pulumi.output(undefined);
     }
@@ -669,7 +670,7 @@ function exportPlatformOutputs(extensionPointsOutputs, aggregatesOutputs, readMo
   exportDeploymentMetadata();
   Pulumi$Pulumi.$$export("extensionPoints", Output$Pulumi.flatMap(extensionPointsOutputs, eps => Pulumi.all(eps.map(ep => ExtensionPoint$ReventlessCore.toResolvedOutputs(ep).apply(resolved => [
     ep.name,
-    S.reverseConvertToJsonOrThrow(resolved, ExtensionPoint$ReventlessInterop.resolvedOutputsSchema)
+    Util_Sury$Reventless.toJson(resolved, ExtensionPoint$ReventlessInterop.resolvedOutputsSchema)
   ]))).apply(pairs => Object.fromEntries(pairs))));
   if (Object.keys(aggregatesOutputs).length !== 0) {
     Pulumi$Pulumi.$$export("aggregates", serializePlainDictExport(aggregatesOutputs, Aggregate$ReventlessCore.toResolvedOutputs, Aggregate$ReventlessInterop.resolvedOutputsSchema));
@@ -678,7 +679,7 @@ function exportPlatformOutputs(extensionPointsOutputs, aggregatesOutputs, readMo
     Pulumi$Pulumi.$$export("readModels", serializePlainDictExport(readModelsOutputs, ReadModel$ReventlessCore.toResolvedOutputs, ReadModel$ReventlessInterop.resolvedOutputsSchema));
   }
   if (dcbEventLogOutputs !== undefined) {
-    Pulumi$Pulumi.$$export("dcbEventLog", DcbEventLog$ReventlessCore.toResolvedOutputs(dcbEventLogOutputs).apply(resolved => S.reverseConvertToJsonOrThrow(resolved, DcbEventLog$ReventlessInterop.resolvedOutputsSchema)));
+    Pulumi$Pulumi.$$export("dcbEventLog", DcbEventLog$ReventlessCore.toResolvedOutputs(dcbEventLogOutputs).apply(resolved => Util_Sury$Reventless.toJson(resolved, DcbEventLog$ReventlessInterop.resolvedOutputsSchema)));
   }
   if (Object.keys(stateChangeSlicesOutputs).length !== 0) {
     Pulumi$Pulumi.$$export("stateChangeSlices", serializePlainDictExport(stateChangeSlicesOutputs, StateChangeSlice$ReventlessCore.toResolvedOutputs, StateChangeSlice$ReventlessInterop.resolvedOutputsSchema));
@@ -711,7 +712,7 @@ function exportPluginOutputs(pluginOutputs) {
   Pulumi$Pulumi.$$export("inboundTranslationSlices", serializeDictExport(pluginOutputs.inboundTranslationSlices, InboundTranslationSlice$ReventlessCore.toResolvedOutputs, InboundTranslationSlice$ReventlessInterop.resolvedOutputsSchema));
   Pulumi$Pulumi.$$export("dcbEventLog", Output$Pulumi.flatMap(pluginOutputs.dcbEventLog, opt => {
     if (opt !== undefined) {
-      return DcbEventLog$ReventlessCore.toResolvedOutputs(opt).apply(resolved => S.reverseConvertToJsonOrThrow(resolved, DcbEventLog$ReventlessInterop.resolvedOutputsSchema));
+      return DcbEventLog$ReventlessCore.toResolvedOutputs(opt).apply(resolved => Util_Sury$Reventless.toJson(resolved, DcbEventLog$ReventlessInterop.resolvedOutputsSchema));
     } else {
       return Pulumi.output(null);
     }