@reventlessdev/online-shop-hybrid-catalog 1.0.0-alpha.100

package/src/Category/StateChangeSlice/RenameCategory_Behavior.res

@@ -0,0 +1,26 @@
+@@reventless.behavior
+
+type state = {exists: bool, archived: bool, name: string}
+
+let initialState = {exists: false, archived: false, name: ""}
+
+let evolve = (state, event: consumedEvent) =>
+  switch event {
+  | CategoryAdded({name}) => {exists: true, archived: false, name}
+  | CategoryRenamed({name}) => {...state, name}
+  | CategoryArchived => {...state, archived: true}
+  }
+
+let decide = (state, command) =>
+  switch command {
+  | RenameCategory({categoryId, name}) =>
+    if !state.exists {
+      Error(CategoryNotFound)
+    } else if state.archived {
+      Error(CategoryAlreadyArchived)
+    } else if name == state.name {
+      Ok([])
+    } else {
+      Ok([CategoryRenamed({categoryId, name})])
+    }
+  }

package/src/Category/StateChangeSlice/RenameCategory_Behavior.res.mjs

@@ -0,0 +1,74 @@
+// Generated by ReScript, PLEASE EDIT WITH CARE
+
+
+function evolve(state, event) {
+  if (typeof event !== "object") {
+    return {
+      exists: state.exists,
+      archived: true,
+      name: state.name
+    };
+  } else if (event.TAG === "CategoryAdded") {
+    return {
+      exists: true,
+      archived: false,
+      name: event.name
+    };
+  } else {
+    return {
+      exists: state.exists,
+      archived: state.archived,
+      name: event.name
+    };
+  }
+}
+
+function decide(state, command) {
+  if (!state.exists) {
+    return {
+      TAG: "Error",
+      _0: "CategoryNotFound"
+    };
+  }
+  if (state.archived) {
+    return {
+      TAG: "Error",
+      _0: "CategoryAlreadyArchived"
+    };
+  }
+  let name = command.name;
+  if (name === state.name) {
+    return {
+      TAG: "Ok",
+      _0: []
+    };
+  } else {
+    return {
+      TAG: "Ok",
+      _0: [{
+          TAG: "CategoryRenamed",
+          categoryId: command.categoryId,
+          name: name
+        }]
+    };
+  }
+}
+
+let Spec;
+
+let initialState = {
+  exists: false,
+  archived: false,
+  name: ""
+};
+
+let moduleUrl = "@reventlessdev/online-shop-hybrid-catalog/src/Category/StateChangeSlice/RenameCategory_Behavior.res.mjs";
+
+export {
+  Spec,
+  initialState,
+  evolve,
+  decide,
+  moduleUrl,
+}
+/* No side effect */

package/src/Category/StateViewSliceStream/Categories.res

@@ -0,0 +1,13 @@
+// Categories StateViewSliceStream.
+// Projects category events from the shared catalog event log into a Categories read model.
+
+@@reventless.spec
+
+@schema
+type consumedEvent =
+  | CategoryAdded({categoryId: string, name: string})
+  | CategoryRenamed({categoryId: string, name: string})
+  | CategoryArchived({categoryId: string})
+
+@schema
+type state = {categoryId: string, name: string, archived: bool}

package/src/Category/StateViewSliceStream/Categories.res.mjs

@@ -0,0 +1,54 @@
+// Generated by ReScript, PLEASE EDIT WITH CARE
+
+import * as S from "sury/src/S.res.mjs";
+import * as ReadModel$Reventless from "@reventlessdev/reventless-spec/src/components/ReadModel.res.mjs";
+
+let consumedEventSchema = S.union([
+  S.schema(s => ({
+    TAG: "CategoryAdded",
+    categoryId: s.m(S.string),
+    name: s.m(S.string)
+  })),
+  S.schema(s => ({
+    TAG: "CategoryRenamed",
+    categoryId: s.m(S.string),
+    name: s.m(S.string)
+  })),
+  S.schema(s => ({
+    TAG: "CategoryArchived",
+    categoryId: s.m(S.string)
+  }))
+]);
+
+let stateSchema = S.schema(s => ({
+  categoryId: s.m(S.string),
+  name: s.m(S.string),
+  archived: s.m(S.bool)
+}));
+
+let config = ReadModel$Reventless.config(undefined, undefined, undefined);
+
+let name = "Categories";
+
+let Id;
+
+let subIdConfig;
+
+let moduleUrl = "@reventlessdev/online-shop-hybrid-catalog/src/Category/StateViewSliceStream/Categories.res.mjs";
+
+let authorization = "AllowAuthenticated";
+
+let visibility = "Public";
+
+export {
+  name,
+  Id,
+  consumedEventSchema,
+  stateSchema,
+  config,
+  subIdConfig,
+  moduleUrl,
+  authorization,
+  visibility,
+}
+/* consumedEventSchema Not a pure module */

package/src/Category/StateViewSliceStream/Categories_Projection.res

@@ -0,0 +1,8 @@
+@@reventless.projection
+
+let project = event =>
+  switch event {
+  | CategoryAdded({categoryId, name}) => [Set(categoryId, {categoryId, name, archived: false})]
+  | CategoryRenamed({categoryId, name}) => [Update(categoryId, state => {...state, name})]
+  | CategoryArchived({categoryId}) => [Update(categoryId, state => {...state, archived: true})]
+  }

package/src/Category/StateViewSliceStream/Categories_Projection.res.mjs

@@ -0,0 +1,50 @@
+// Generated by ReScript, PLEASE EDIT WITH CARE
+
+
+function project(event) {
+  switch (event.TAG) {
+    case "CategoryAdded" :
+      let categoryId = event.categoryId;
+      return [{
+          TAG: "Set",
+          _0: categoryId,
+          _1: {
+            categoryId: categoryId,
+            name: event.name,
+            archived: false
+          }
+        }];
+    case "CategoryRenamed" :
+      let name = event.name;
+      return [{
+          TAG: "Update",
+          _0: event.categoryId,
+          _1: state => ({
+            categoryId: state.categoryId,
+            name: name,
+            archived: state.archived
+          })
+        }];
+    case "CategoryArchived" :
+      return [{
+          TAG: "Update",
+          _0: event.categoryId,
+          _1: state => ({
+            categoryId: state.categoryId,
+            name: state.name,
+            archived: true
+          })
+        }];
+  }
+}
+
+let Spec;
+
+let moduleUrl = "@reventlessdev/online-shop-hybrid-catalog/src/Category/StateViewSliceStream/Categories_Projection.res.mjs";
+
+export {
+  Spec,
+  project,
+  moduleUrl,
+}
+/* No side effect */

package/src/Extension/Orders_Extension.res

@@ -0,0 +1,48 @@
+// Catalog's extension subscribing to Ordering's Orders_ExtensionPoint.
+// Routes ItemOrdered / ItemOrderCancelled events to RecordProductDemand commands.
+
+@@reventless.extension
+
+module Mapping = {
+  module ExtensionPoint = OrderingSpec.Orders_ExtensionPoint
+  module Delegate = RecordProductDemand
+
+  open ExtensionPoint
+  open RecordProductDemand
+
+  // Extension-side directive handler: pure fire-and-forget
+  // (`'directive => promise<unit>`). Query-based decisions live in
+  // `mapIncomingEvent` (which has `_queryEngine`); the handler executes the
+  // resulting side effect.
+  let directiveHandler = async (directive: ExtensionPoint.directive) =>
+    switch directive {
+    | EmitOrderRecordedTelemetry({productId, orderId}) =>
+      Console.log(
+        `[Catalog.OrdersExtension] telemetry: order recorded product=${productId} order=${orderId}`,
+      )
+    | EmitOrderCancelledTelemetry({productId, orderId}) =>
+      Console.log(
+        `[Catalog.OrdersExtension] telemetry: order cancelled product=${productId} order=${orderId}`,
+      )
+    }
+
+  let mapIncomingEvent = (_id, event, _meta, _pluginDef, _queryEngine) =>
+    switch event {
+    | ItemOrdered({productId, orderId}) => [
+        PublishStateChangeSliceCommand(RecordDemand({productId, orderId})),
+        HandleDirective(
+          directiveHandler,
+          EmitOrderRecordedTelemetry({productId, orderId}),
+        ),
+      ]
+    | ItemOrderCancelled({productId, orderId}) => [
+        PublishStateChangeSliceCommand(RevokeDemand({productId, orderId})),
+        HandleDirective(
+          directiveHandler,
+          EmitOrderCancelledTelemetry({productId, orderId}),
+        ),
+      ]
+    }
+
+  let mapOutgoingEvent = None
+}

package/src/Extension/Orders_Extension.res.mjs

@@ -0,0 +1,76 @@
+// Generated by ReScript, PLEASE EDIT WITH CARE
+
+import * as RecordProductDemand$CatalogPlugin from "../ProductDemand/StateChangeSlice/RecordProductDemand.res.mjs";
+
+async function directiveHandler(directive) {
+  if (directive.TAG === "EmitOrderRecordedTelemetry") {
+    console.log(`[Catalog.OrdersExtension] telemetry: order recorded product=` + directive.productId + ` order=` + directive.orderId);
+    return;
+  }
+  console.log(`[Catalog.OrdersExtension] telemetry: order cancelled product=` + directive.productId + ` order=` + directive.orderId);
+}
+
+function mapIncomingEvent(_id, event, _meta, _pluginDef, _queryEngine) {
+  if (event.TAG === "ItemOrdered") {
+    let orderId = event.orderId;
+    let productId = event.productId;
+    return [
+      {
+        TAG: "PublishStateChangeSliceCommand",
+        _0: {
+          TAG: "RecordDemand",
+          productId: productId,
+          orderId: orderId
+        }
+      },
+      {
+        TAG: "HandleDirective",
+        _0: directiveHandler,
+        _1: {
+          TAG: "EmitOrderRecordedTelemetry",
+          productId: productId,
+          orderId: orderId
+        }
+      }
+    ];
+  }
+  let orderId$1 = event.orderId;
+  let productId$1 = event.productId;
+  return [
+    {
+      TAG: "PublishStateChangeSliceCommand",
+      _0: {
+        TAG: "RevokeDemand",
+        productId: productId$1,
+        orderId: orderId$1
+      }
+    },
+    {
+      TAG: "HandleDirective",
+      _0: directiveHandler,
+      _1: {
+        TAG: "EmitOrderCancelledTelemetry",
+        productId: productId$1,
+        orderId: orderId$1
+      }
+    }
+  ];
+}
+
+let Mapping = {
+  ExtensionPoint: undefined,
+  Delegate: undefined,
+  directiveHandler: directiveHandler,
+  mapIncomingEvent: mapIncomingEvent,
+  mapOutgoingEvent: undefined,
+  delegateModuleUrl: RecordProductDemand$CatalogPlugin.moduleUrl,
+  moduleUrl: "@reventlessdev/online-shop-hybrid-catalog/src/Extension/Orders_Extension.res.mjs"
+};
+
+let moduleUrl = "@reventlessdev/online-shop-hybrid-catalog/src/Extension/Orders_Extension.res.mjs";
+
+export {
+  Mapping,
+  moduleUrl,
+}
+/* RecordProductDemand-CatalogPlugin Not a pure module */

package/src/ExtensionPoint/Products_ExtensionPointMapping.res

@@ -0,0 +1,59 @@
+// Maps internal Catalog events to the stable Products_ExtensionPoint public API.
+@@reventless.spec
+
+module ExtensionPoint = CatalogSpec.Products_ExtensionPoint
+
+// DCB adapter: defines the event type used for outgoing event mapping.
+// Only the events relevant to the extension point are included.
+// `name` MUST equal `<pluginName>DcbEventLog` so the dispatch in
+// `Plugin_Callback` resolves it to the topic key `Plugin_Builder` registers
+// under (`name ++ "DcbEventLog"`).
+module Delegate = {
+  let name = "CatalogDcbEventLog"
+  @schema
+  type event =
+    | ProductAdded({productId: string, name: string, description: string, price: float})
+    | ProductPriceChanged({productId: string, price: float})
+}
+
+let mapIncomingCommand = (_id, _command, _meta) => []
+
+// EP-side directive handler: receives Schedule.create / Schedule.delete /
+// QueryEngine.operations as well as the directive itself. A real handler might
+// post telemetry to an external sink, schedule a follow-up command, or query
+// state. For this demo we only log; see
+// `reventless-core/src/plugin/connect/PluginExtensionPoint_Plugin.res` for a canonical
+// multi-capability EP-side handler.
+let directiveHandler = async (
+  _createSchedule: Reventless.Schedule.create,
+  _deleteSchedule: Reventless.Schedule.delete,
+  _queryEngine: Reventless.QueryEngine.operations,
+  directive: CatalogSpec.Products_ExtensionPoint.directive,
+) =>
+  switch directive {
+  | EmitPricingUpdate({productId, price}) =>
+    Console.log(
+      `[Catalog.ProductsExtensionPoint] telemetry: pricing update product=${productId} price=${price->Float.toString}`,
+    )
+  }
+
+let mapOutgoingEvent = Some((_id, event, _meta, _queryEngine) =>
+  switch event {
+  | Delegate.ProductAdded({productId, name, price}) => [
+      PublishEvent(
+        productId,
+        CatalogSpec.Products_ExtensionPoint.ProductBecameAvailable({productId, name, price}),
+      ),
+    ]
+  | Delegate.ProductPriceChanged({productId, price}) => [
+      PublishEvent(
+        productId,
+        CatalogSpec.Products_ExtensionPoint.ProductPriceChanged({productId, price}),
+      ),
+      HandleDirective(
+        directiveHandler,
+        CatalogSpec.Products_ExtensionPoint.EmitPricingUpdate({productId, price}),
+      ),
+    ]
+  }
+)

package/src/ExtensionPoint/Products_ExtensionPointMapping.res.mjs

@@ -0,0 +1,99 @@
+// Generated by ReScript, PLEASE EDIT WITH CARE
+
+import * as S from "sury/src/S.res.mjs";
+import * as DcbTag$Reventless from "@reventlessdev/reventless-spec/src/components/DcbTag.res.mjs";
+
+let eventSchema = S.union([
+  S.schema(s => ({
+    TAG: "ProductAdded",
+    productId: s.m(DcbTag$Reventless.string),
+    name: s.m(S.string),
+    description: s.m(S.string),
+    price: s.m(S.float)
+  })),
+  S.schema(s => ({
+    TAG: "ProductPriceChanged",
+    productId: s.m(DcbTag$Reventless.string),
+    price: s.m(S.float)
+  }))
+]);
+
+function commandAuthorization(param) {
+  return "AllowAuthenticated";
+}
+
+let Delegate = {
+  Id: undefined,
+  commandSchema: S.unit,
+  name: "CatalogDcbEventLog",
+  eventSchema: eventSchema,
+  errorSchema: S.unit,
+  moduleUrl: "@reventlessdev/online-shop-hybrid-catalog/src/ExtensionPoint/Products_ExtensionPointMapping.res.mjs",
+  commandAuthorization: commandAuthorization
+};
+
+function mapIncomingCommand(_id, _command, _meta) {
+  return [];
+}
+
+async function directiveHandler(_createSchedule, _deleteSchedule, _queryEngine, directive) {
+  console.log(`[Catalog.ProductsExtensionPoint] telemetry: pricing update product=` + directive.productId + ` price=` + directive.price.toString());
+}
+
+let mapOutgoingEvent = (_id, event, _meta, _queryEngine) => {
+  if (event.TAG === "ProductAdded") {
+    let productId = event.productId;
+    return [{
+        TAG: "PublishEvent",
+        _0: productId,
+        _1: {
+          TAG: "ProductBecameAvailable",
+          productId: productId,
+          name: event.name,
+          price: event.price
+        }
+      }];
+  }
+  let price = event.price;
+  let productId$1 = event.productId;
+  return [
+    {
+      TAG: "PublishEvent",
+      _0: productId$1,
+      _1: {
+        TAG: "ProductPriceChanged",
+        productId: productId$1,
+        price: price
+      }
+    },
+    {
+      TAG: "HandleDirective",
+      _0: directiveHandler,
+      _1: {
+        TAG: "EmitPricingUpdate",
+        productId: productId$1,
+        price: price
+      }
+    }
+  ];
+};
+
+let name = "Products";
+
+let Id;
+
+let ExtensionPoint;
+
+let moduleUrl = "@reventlessdev/online-shop-hybrid-catalog/src/ExtensionPoint/Products_ExtensionPointMapping.res.mjs";
+
+export {
+  name,
+  Id,
+  ExtensionPoint,
+  Delegate,
+  mapIncomingCommand,
+  directiveHandler,
+  mapOutgoingEvent,
+  moduleUrl,
+}
+/* eventSchema Not a pure module */

package/src/Plugin.res

@@ -0,0 +1,63 @@
+// AUTO-GENERATED — do not edit. Run `npm run generate` to update.
+
+@val external uiBundleUrl: option<string> = "process.env.CATALOG_UI_BUNDLE_URL"
+
+module Make = (Platform: ReventlessInfra.Platform.T) => {
+  // StateChangeSlices
+  module AddCategorySlice = Platform.StateChangeSlice.Make(AddCategory, AddCategory_Behavior)
+  module AddProductSlice = Platform.StateChangeSlice.Make(AddProduct, AddProduct_Behavior)
+  module ArchiveCategorySlice = Platform.StateChangeSlice.Make(ArchiveCategory, ArchiveCategory_Behavior)
+  module ChangeProductDescriptionSlice = Platform.StateChangeSlice.Make(ChangeProductDescription, ChangeProductDescription_Behavior)
+  module ChangeProductNameSlice = Platform.StateChangeSlice.Make(ChangeProductName, ChangeProductName_Behavior)
+  module ChangeProductPriceSlice = Platform.StateChangeSlice.Make(ChangeProductPrice, ChangeProductPrice_Behavior)
+  module RecordProductDemandSlice = Platform.StateChangeSlice.Make(RecordProductDemand, RecordProductDemand_Behavior)
+  module RenameCategorySlice = Platform.StateChangeSlice.Make(RenameCategory, RenameCategory_Behavior)
+
+  // StateViewSliceStreams
+  module CategoriesStreamSlice = Platform.StateViewSliceStream.Make(Categories, Categories_Projection)
+  module ProductDemandStreamSlice = Platform.StateViewSliceStream.Make(ProductDemand, ProductDemand_Projection)
+  module ProductsStreamSlice = Platform.StateViewSliceStream.Make(Products, Products_Projection)
+
+  // InboundTranslationSlices
+  module ImportProductSlice = Platform.InboundTranslationSlice.Make(ImportProduct, ImportProduct_Translation)
+
+  // Tasks
+  module ImportProductsTask = Platform.Task.Make(ImportProducts)
+
+  // ExtensionPoints
+  module Products_ExtensionPoint = Platform.ExtensionPoint.Make(Products_ExtensionPointMapping)
+
+  // Extensions
+  module Orders_Extension = Platform.Extension.Make(Orders_Extension.Mapping)
+
+  let pluginStructure = Platform.Plugin.makePluginDefinition(
+    ~name="Catalog",
+    ~stateViewSlices=[module(CategoriesStreamSlice), module(ProductDemandStreamSlice), module(ProductsStreamSlice)],
+    ~stateChangeSlices=[module(AddCategorySlice), module(AddProductSlice), module(ArchiveCategorySlice), module(ChangeProductDescriptionSlice), module(ChangeProductNameSlice), module(ChangeProductPriceSlice), module(RecordProductDemandSlice), module(RenameCategorySlice)],
+    ~inboundTranslationSlices=[module(ImportProductSlice)],
+    ~extensions=[module(Orders_Extension)],
+    ~extensionPoints=[module(Products_ExtensionPointMapping)],
+  )
+
+  let make = () =>
+    Platform.Plugin.make(
+      ~name="Catalog",
+      ~heartbeatInterval=5,
+      ~extensionPoints=[module(Products_ExtensionPoint)],
+      ~extensions=[module(Orders_Extension)],
+      ~tasks=[module(ImportProductsTask)],
+      ~stateChangeSlices=[module(AddCategorySlice), module(AddProductSlice), module(ArchiveCategorySlice), module(ChangeProductDescriptionSlice), module(ChangeProductNameSlice), module(ChangeProductPriceSlice), module(RecordProductDemandSlice), module(RenameCategorySlice)],
+      ~stateViewSlices=[module(CategoriesStreamSlice), module(ProductDemandStreamSlice), module(ProductsStreamSlice)],
+      ~inboundTranslationSlices=[module(ImportProductSlice)],
+      ~pluginStructure=pluginStructure,
+      ~uiFragments=?uiBundleUrl->Option.map(url =>
+        Platform.Plugin.makeAutoUIManifest(
+          ~remoteEntryUrl=url,
+          ~name="Catalog",
+          ~pluginStructure,
+          ~readModelPositions=["platform-summary"],
+          ~aggregatePositions=["resource-detail"],
+        )
+      ),
+    )
+}