@reventlessdev/reventless-spec 3.0.0-alpha.62 → 3.0.0-alpha.64

package/src/generator/Discovery.res.mjs

@@ -1,61 +1,9 @@
 // Generated by ReScript, PLEASE EDIT WITH CARE
 
 import * as Nodepath from "node:path";
+import * as ComponentKind$Reventless from "../components/ComponentKind.res.mjs";
 import * as Generator_Node$Reventless from "./Generator_Node.res.mjs";
 
-function folderToComponentType(folder) {
-  switch (folder) {
-    case "Aggregate" :
-    case "Aggregates" :
-      return "Aggregate";
-    case "Automation" :
-    case "AutomationSlice" :
-    case "AutomationSlices" :
-    case "Automations" :
-      return "AutomationSlice";
-    case "ExtensionPoint" :
-    case "ExtensionPoints" :
-      return "ExtensionPoint";
-    case "Extension" :
-    case "Extensions" :
-      return "Extension";
-    case "InboundTranslation" :
-    case "InboundTranslationSlice" :
-    case "InboundTranslationSlices" :
-    case "InboundTranslations" :
-      return "InboundTranslationSlice";
-    case "OutboundTranslation" :
-    case "OutboundTranslationSlice" :
-    case "OutboundTranslationSlices" :
-    case "OutboundTranslations" :
-      return "OutboundTranslationSlice";
-    case "ReadModelStream" :
-    case "ReadModelStreams" :
-      return "ReadModelStream";
-    case "ReadModel" :
-    case "ReadModels" :
-      return "ReadModel";
-    case "StateChange" :
-    case "StateChangeSlice" :
-    case "StateChangeSlices" :
-    case "StateChanges" :
-      return "StateChangeSlice";
-    case "StateViewSliceStream" :
-    case "StateViewSliceStreams" :
-      return "StateViewSliceStream";
-    case "StateView" :
-    case "StateViewSlice" :
-    case "StateViewSlices" :
-    case "StateViews" :
-      return "StateViewSlice";
-    case "Task" :
-    case "Tasks" :
-      return "Task";
-    default:
-      return;
-  }
-}
-
 function isAlwaysExcludedDir(name) {
   if (name === "Plugin" || name === "tests") {
     return true;
@@ -146,7 +94,7 @@ function walkDir(dir, relDir, parentComponentType, epGroup, exclude, acc) {
       if (isAlwaysExcludedDir(entryName)) {
         return;
       }
-      let ct = folderToComponentType(entryName);
+      let ct = ComponentKind$Reventless.folderToKind(entryName);
       if (ct === undefined) {
         return walkDir(Nodepath.join(dir, entryName), relPath, parentComponentType, epGroup, exclude, acc);
       }
@@ -199,6 +147,8 @@ function scan(srcDir, exclude) {
   return acc;
 }
 
+let folderToComponentType = ComponentKind$Reventless.folderToKind;
+
 export {
   folderToComponentType,
   isAlwaysExcludedDir,

package/src/generator/Pairing.res

@@ -165,6 +165,38 @@ let hasAsyncAttribute = (filePath: string): bool => {
   }
 }
 
+// Partition the ExtensionPoint mapping files into flat (ungrouped) and grouped
+// `extensionPointDef`s: every mapping sharing an `epGroup` collects into one
+// grouped entry; the ungrouped ones share a single flat (`group: None`) entry.
+// Pure (no I/O) so the grouping is unit-testable — in particular the A8 fix:
+// `Option.getOr`'s eager default previously re-created the group's array every
+// iteration, so a group with ≥2 mappings collapsed to `[]` and the generator
+// emitted a `Plugin.res` referencing a never-generated module.
+let groupExtensionPoints = (epFiles: array<Discovery.discoveredFile>): array<extensionPointDef> => {
+  let epByGroup: Dict.t<array<string>> = Dict.make()
+  let flatEpMappings: array<string> = []
+
+  epFiles->Array.forEach(({stem, epGroup}) =>
+    switch epGroup {
+    | None => flatEpMappings->Array.push(stem)
+    | Some(g) =>
+      switch Dict.get(epByGroup, g) {
+      | Some(arr) => arr->Array.push(stem)
+      | None => Dict.set(epByGroup, g, [stem])
+      }
+    }
+  )
+
+  let extensionPoints: array<extensionPointDef> = []
+  if flatEpMappings->Array.length > 0 {
+    extensionPoints->Array.push({group: None, mappings: flatEpMappings->sortedStems})
+  }
+  Dict.toArray(epByGroup)->Array.forEach(((group, mappings)) =>
+    extensionPoints->Array.push({group: Some(group), mappings: mappings->sortedStems})
+  )
+  extensionPoints
+}
+
 let resolve = (discovered: array<Discovery.discoveredFile>, ~srcDir: string): resolved => {
   let eventMappings = findEventMappings(~srcDir)
 
@@ -309,31 +341,7 @@ let resolve = (discovered: array<Discovery.discoveredFile>, ~srcDir: string): re
   )
 
   // ── ExtensionPoint grouping ────────────────────────────────────────────────
-  let epByGroup: Dict.t<array<string>> = Dict.make()
-  let flatEpMappings: array<string> = []
-
-  epFiles->Array.forEach(({stem, epGroup}) => {
-    switch epGroup {
-    | None => flatEpMappings->Array.push(stem)
-    | Some(g) =>
-      let arr = Dict.get(epByGroup, g)->Option.getOr({
-        let a: array<string> = []
-        Dict.set(epByGroup, g, a)
-        a
-      })
-      arr->Array.push(stem)
-    }
-  })
-
-  let extensionPoints: array<extensionPointDef> = []
-
-  if flatEpMappings->Array.length > 0 {
-    extensionPoints->Array.push({group: None, mappings: flatEpMappings->sortedStems})
-  }
-
-  Dict.toArray(epByGroup)->Array.forEach(((group, mappings)) => {
-    extensionPoints->Array.push({group: Some(group), mappings: mappings->sortedStems})
-  })
+  let extensionPoints = groupExtensionPoints(epFiles)
 
   // ── targetName extraction ──────────────────────────────────────────────────
   let buildTargets = (stems: array<string>, relPaths: Dict.t<string>): Dict.t<option<string>> => {

package/src/generator/Pairing.res.mjs

@@ -3,7 +3,6 @@
 import * as Nodefs from "node:fs";
 import * as Nodepath from "node:path";
 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 Generator_Node$Reventless from "./Generator_Node.res.mjs";
 
 let implSuffixForStateChange = "_Behavior";
@@ -132,6 +131,39 @@ function hasAsyncAttribute(filePath) {
   }
 }
 
+function groupExtensionPoints(epFiles) {
+  let epByGroup = {};
+  let flatEpMappings = [];
+  epFiles.forEach(param => {
+    let epGroup = param.epGroup;
+    let stem = param.stem;
+    if (epGroup !== undefined) {
+      let arr = epByGroup[epGroup];
+      if (arr !== undefined) {
+        arr.push(stem);
+      } else {
+        epByGroup[epGroup] = [stem];
+      }
+      return;
+    }
+    flatEpMappings.push(stem);
+  });
+  let extensionPoints = [];
+  if (flatEpMappings.length !== 0) {
+    extensionPoints.push({
+      group: undefined,
+      mappings: sortedStems(flatEpMappings)
+    });
+  }
+  Object.entries(epByGroup).forEach(param => {
+    extensionPoints.push({
+      group: param[0],
+      mappings: sortedStems(param[1])
+    });
+  });
+  return extensionPoints;
+}
+
 function resolve(discovered, srcDir) {
   let eventMappings = findEventMappings(srcDir);
   let stateChangeSlices = [];
@@ -276,32 +308,7 @@ function resolve(discovered, srcDir) {
     }
   };
   let readModels = Stdlib_Array.filterMap(sortedStems(readModelStems), rm => pairReadModel(false, rm)).concat(Stdlib_Array.filterMap(sortedStems(readModelStreamStems), rm => pairReadModel(true, rm)));
-  let epByGroup = {};
-  let flatEpMappings = [];
-  epFiles.forEach(param => {
-    let epGroup = param.epGroup;
-    let stem = param.stem;
-    if (epGroup !== undefined) {
-      let a = [];
-      let arr = Stdlib_Option.getOr(epByGroup[epGroup], (epByGroup[epGroup] = a, a));
-      arr.push(stem);
-      return;
-    }
-    flatEpMappings.push(stem);
-  });
-  let extensionPoints = [];
-  if (flatEpMappings.length !== 0) {
-    extensionPoints.push({
-      group: undefined,
-      mappings: sortedStems(flatEpMappings)
-    });
-  }
-  Object.entries(epByGroup).forEach(param => {
-    extensionPoints.push({
-      group: param[0],
-      mappings: sortedStems(param[1])
-    });
-  });
+  let extensionPoints = groupExtensionPoints(epFiles);
   let buildTargets = (stems, relPaths) => {
     let dict = {};
     stems.forEach(stem => {
@@ -348,6 +355,7 @@ export {
   sortedStems,
   extractTargetName,
   hasAsyncAttribute,
+  groupExtensionPoints,
   resolve,
 }
 /* node:fs Not a pure module */

package/src/generator/PluginGenerator.res

@@ -2,6 +2,8 @@
 // Usage: generate-plugin <srcDir>
 //        generate-plugin --aws <Namespace> <srcDir>
 
+@val external processExit: int => unit = "process.exit"
+
 let () = {
   let argv2 = Generator_Node.argv->Array.get(2)->Option.getOr("")
   let argv3 = Generator_Node.argv->Array.get(3)->Option.getOr("")
@@ -23,6 +25,9 @@ let () = {
       Console.error("Usage: generate-plugin <srcDir>")
       Console.error("       generate-plugin --aws <Namespace> <srcDir>")
     }
+    // Exit non-zero on a usage error so `prebuild` (and CI) actually fail
+    // instead of continuing green with no Plugin.res generated.
+    processExit(1)
   } else {
     // Resolve to absolute path (handles relative paths and trailing slashes)
     let srcDir = Generator_Node.resolve([srcDirArg])

package/src/generator/PluginGenerator.res.mjs

@@ -39,6 +39,7 @@ if (srcDirArg === "") {
     console.error("Usage: generate-plugin <srcDir>");
     console.error("       generate-plugin --aws <Namespace> <srcDir>");
   }
+  process.exit(1);
 } else {
   let srcDir = Nodepath.resolve(srcDirArg);
   let init = Config$Reventless.read(srcDir);

package/src/types/Behavior.res

@@ -72,6 +72,14 @@ module type T = {
   */
   let decide: (state, Spec.command) => result<array<Spec.event>, Spec.error>
 
+  /** Persisted-snapshot configuration (docs/plans/aggregate-snapshotting.md).
+      `None` — the default, auto-injected by `@@reventless.behavior` — keeps
+      full replay; `Some({interval, stateSchema})` writes a keep-one snapshot
+      every `interval` events and seeds cold replays from the latest one.
+      Enable with `@@reventless.snapshots(<interval>)` (requires
+      `@schema type state`) or a manual binding. */
+  let snapshot: option<Snapshot.config<state>>
+
   /** File URL of this module (`import.meta.url`). Used by AWS builders to derive
       the npm specifier for runtime dynamic imports. */
   let moduleUrl: string