@reventlessdev/online-shop-dcb-ordering 1.0.0-alpha.103

package/lib/bs/src/Customer/StateChangeSlice/RegisterCustomer_Behavior.res.mjs

@@ -0,0 +1,44 @@
+// Generated by ReScript, PLEASE EDIT WITH CARE
+
+
+function evolve(_state, event) {
+  return {
+    exists: true
+  };
+}
+
+function decide(state, command) {
+  if (state.exists) {
+    return {
+      TAG: "Error",
+      _0: "CustomerAlreadyRegistered"
+    };
+  } else {
+    return {
+      TAG: "Ok",
+      _0: [{
+          TAG: "CustomerRegistered",
+          customerId: command.customerId,
+          email: command.email,
+          address: command.address
+        }]
+    };
+  }
+}
+
+let Spec;
+
+let initialState = {
+  exists: false
+};
+
+let moduleUrl = "@reventlessdev/online-shop-dcb-ordering/src/Customer/StateChangeSlice/RegisterCustomer_Behavior.res.mjs";
+
+export {
+  Spec,
+  initialState,
+  evolve,
+  decide,
+  moduleUrl,
+}
+/* No side effect */

package/lib/bs/src/Customer/StateViewSlice/Customers.res

@@ -0,0 +1,18 @@
+// Customers StateViewSlice.
+// Projects customer events from the shared ordering event log into a Customers read model.
+@@reventless.spec
+
+@schema
+type state = {
+  customerId: string,
+  @displayName email: string,
+  address: string,
+  deactivated: bool,
+}
+
+@schema
+type consumedEvent =
+  | CustomerRegistered({customerId: string, email: string, address: string})
+  | EmailChanged({customerId: string, email: string})
+  | AddressChanged({customerId: string, address: string})
+  | CustomerDeactivated({customerId: string})

package/lib/bs/src/Customer/StateViewSlice/Customers.res.mjs

@@ -0,0 +1,69 @@
+// 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";
+import * as ReadModel$Reventless from "@reventlessdev/reventless-spec/src/components/ReadModel.res.mjs";
+import * as DisplayName$Reventless from "@reventlessdev/reventless-spec/src/components/DisplayName.res.mjs";
+
+let stateSchema = S.schema(s => ({
+  customerId: s.m(S.string),
+  email: s.m(S.string),
+  address: s.m(S.string),
+  deactivated: s.m(S.bool),
+  displayName: s.m(S.option(S.string))
+}));
+
+let stateSchema$1 = S.Metadata.set(stateSchema, DisplayName$Reventless.displayNameId, {
+  fields: ["email"],
+  separator: " "
+});
+
+let consumedEventSchema = S.union([
+  S.schema(s => ({
+    TAG: "CustomerRegistered",
+    customerId: s.m(DcbTag$Reventless.string),
+    email: s.m(S.string),
+    address: s.m(S.string)
+  })),
+  S.schema(s => ({
+    TAG: "EmailChanged",
+    customerId: s.m(DcbTag$Reventless.string),
+    email: s.m(S.string)
+  })),
+  S.schema(s => ({
+    TAG: "AddressChanged",
+    customerId: s.m(DcbTag$Reventless.string),
+    address: s.m(S.string)
+  })),
+  S.schema(s => ({
+    TAG: "CustomerDeactivated",
+    customerId: s.m(DcbTag$Reventless.string)
+  }))
+]);
+
+let config = ReadModel$Reventless.config(undefined, undefined, undefined);
+
+let name = "Customers";
+
+let Id;
+
+let subIdConfig;
+
+let moduleUrl = "@reventlessdev/online-shop-dcb-ordering/src/Customer/StateViewSlice/Customers.res.mjs";
+
+let authorization = "AllowAuthenticated";
+
+let visibility = "Public";
+
+export {
+  name,
+  Id,
+  stateSchema$1 as stateSchema,
+  consumedEventSchema,
+  config,
+  subIdConfig,
+  moduleUrl,
+  authorization,
+  visibility,
+}
+/* stateSchema Not a pure module */

package/lib/bs/src/Customer/StateViewSlice/Customers_Projection.res

@@ -0,0 +1,13 @@
+@@reventless.projection
+
+let project = event =>
+  switch event {
+  | CustomerRegistered({customerId, email, address}) => [
+      Set(customerId, {customerId, email, address, deactivated: false}),
+    ]
+  | EmailChanged({customerId, email}) => [Update(customerId, state => {...state, email})]
+  | AddressChanged({customerId, address}) => [Update(customerId, state => {...state, address})]
+  | CustomerDeactivated({customerId}) => [
+      Update(customerId, state => {...state, deactivated: true}),
+    ]
+  }

package/lib/bs/src/Customer/StateViewSlice/Customers_Projection.res.mjs

@@ -0,0 +1,62 @@
+// Generated by ReScript, PLEASE EDIT WITH CARE
+
+
+function project(event) {
+  switch (event.TAG) {
+    case "CustomerRegistered" :
+      let customerId = event.customerId;
+      return [{
+          TAG: "Set",
+          _0: customerId,
+          _1: {
+            customerId: customerId,
+            email: event.email,
+            address: event.address,
+            deactivated: false
+          }
+        }];
+    case "EmailChanged" :
+      let email = event.email;
+      return [{
+          TAG: "Update",
+          _0: event.customerId,
+          _1: state => {
+            let newrecord = {...state};
+            newrecord.email = email;
+            return newrecord;
+          }
+        }];
+    case "AddressChanged" :
+      let address = event.address;
+      return [{
+          TAG: "Update",
+          _0: event.customerId,
+          _1: state => {
+            let newrecord = {...state};
+            newrecord.address = address;
+            return newrecord;
+          }
+        }];
+    case "CustomerDeactivated" :
+      return [{
+          TAG: "Update",
+          _0: event.customerId,
+          _1: state => {
+            let newrecord = {...state};
+            newrecord.deactivated = true;
+            return newrecord;
+          }
+        }];
+  }
+}
+
+let Spec;
+
+let moduleUrl = "@reventlessdev/online-shop-dcb-ordering/src/Customer/StateViewSlice/Customers_Projection.res.mjs";
+
+export {
+  Spec,
+  project,
+  moduleUrl,
+}
+/* No side effect */

package/lib/bs/src/Extension/Products_Extension.res

@@ -0,0 +1,23 @@
+// Ordering's extension subscribing to Catalog's Products_ExtensionPoint.
+// Routes ProductBecameAvailable / ProductPriceChanged events to SyncCatalogProduct commands.
+
+@@reventless.extension
+
+module Mapping = {
+  module ExtensionPoint = CatalogSpec.Products_ExtensionPoint
+  module Delegate = SyncCatalogProduct
+
+  open ExtensionPoint
+  open SyncCatalogProduct
+  let mapIncomingEvent = (_id, event, _meta, _pluginDef, _queryEngine) =>
+    switch event {
+    | ProductBecameAvailable({productId, name, price}) => [
+        PublishStateChangeSliceCommand(SyncNewProduct({productId, name, price})),
+      ]
+    | ProductPriceChanged({productId, price}) => [
+        PublishStateChangeSliceCommand(ChangeSyncedPrice({productId, price})),
+      ]
+    }
+
+  let mapOutgoingEvent = None
+}

package/lib/bs/src/Extension/Products_Extension.res.mjs

@@ -0,0 +1,43 @@
+// Generated by ReScript, PLEASE EDIT WITH CARE
+
+import * as SyncCatalogProduct$OrderingPlugin from "../CatalogProduct/StateChangeSlice/SyncCatalogProduct.res.mjs";
+
+function mapIncomingEvent(_id, event, _meta, _pluginDef, _queryEngine) {
+  if (event.TAG === "ProductBecameAvailable") {
+    return [{
+        TAG: "PublishStateChangeSliceCommand",
+        _0: {
+          TAG: "SyncNewProduct",
+          productId: event.productId,
+          name: event.name,
+          price: event.price
+        }
+      }];
+  } else {
+    return [{
+        TAG: "PublishStateChangeSliceCommand",
+        _0: {
+          TAG: "ChangeSyncedPrice",
+          productId: event.productId,
+          price: event.price
+        }
+      }];
+  }
+}
+
+let Mapping = {
+  ExtensionPoint: undefined,
+  Delegate: undefined,
+  mapIncomingEvent: mapIncomingEvent,
+  mapOutgoingEvent: undefined,
+  delegateModuleUrl: SyncCatalogProduct$OrderingPlugin.moduleUrl,
+  moduleUrl: "@reventlessdev/online-shop-dcb-ordering/src/Extension/Products_Extension.res.mjs"
+};
+
+let moduleUrl = "@reventlessdev/online-shop-dcb-ordering/src/Extension/Products_Extension.res.mjs";
+
+export {
+  Mapping,
+  moduleUrl,
+}
+/* SyncCatalogProduct-OrderingPlugin Not a pure module */

package/lib/bs/src/ExtensionPoint/Orders_ExtensionPointMapping.res

@@ -0,0 +1,33 @@
+// Maps internal Ordering events to the stable Orders_ExtensionPoint public API.
+// Decomposes batch OrderPlaced / OrderCancelled events into per-product EP events.
+@@reventless.spec
+
+module ExtensionPoint = OrderingSpec.Orders_ExtensionPoint
+
+// DCB adapter: defines the event type used for outgoing event mapping.
+// Only the events relevant to the extension point are included.
+module Delegate = {
+  let name = "OrderingDcbEventLog"
+  @schema
+  type event =
+    | OrderPlaced({orderId: string, customerId: string, productIds: array<string>})
+    | OrderCancelled({orderId: string, productIds: array<string>})
+}
+
+let mapIncomingCommand = (_id, _command, _meta) => []
+
+let mapOutgoingEvent = Some((_id, event, _meta, _queryEngine) =>
+  switch event {
+  | Delegate.OrderPlaced({orderId, customerId, productIds}) =>
+    productIds->Array.map(productId =>
+      PublishEvent(
+        productId,
+        OrderingSpec.Orders_ExtensionPoint.ItemOrdered({productId, orderId, customerId}),
+      )
+    )
+  | Delegate.OrderCancelled({orderId, productIds}) =>
+    productIds->Array.map(productId =>
+      PublishEvent(productId, OrderingSpec.Orders_ExtensionPoint.ItemOrderCancelled({productId, orderId}))
+    )
+  }
+)

package/lib/bs/src/ExtensionPoint/Orders_ExtensionPointMapping.res.mjs

@@ -0,0 +1,82 @@
+// 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: "OrderPlaced",
+    orderId: s.m(DcbTag$Reventless.string),
+    customerId: s.m(DcbTag$Reventless.string),
+    productIds: s.m(S.array(DcbTag$Reventless.stringForKey("productId")))
+  })),
+  S.schema(s => ({
+    TAG: "OrderCancelled",
+    orderId: s.m(DcbTag$Reventless.string),
+    productIds: s.m(S.array(DcbTag$Reventless.stringForKey("productId")))
+  }))
+]);
+
+function commandAuthorization(param) {
+  return "AllowAuthenticated";
+}
+
+let Delegate = {
+  Id: undefined,
+  commandSchema: S.unit,
+  name: "OrderingDcbEventLog",
+  eventSchema: eventSchema,
+  errorSchema: S.unit,
+  moduleUrl: "@reventlessdev/online-shop-dcb-ordering/src/ExtensionPoint/Orders_ExtensionPointMapping.res.mjs",
+  commandAuthorization: commandAuthorization
+};
+
+function mapIncomingCommand(_id, _command, _meta) {
+  return [];
+}
+
+let mapOutgoingEvent = (_id, event, _meta, _queryEngine) => {
+  if (event.TAG === "OrderPlaced") {
+    let customerId = event.customerId;
+    let orderId = event.orderId;
+    return event.productIds.map(productId => ({
+      TAG: "PublishEvent",
+      _0: productId,
+      _1: {
+        TAG: "ItemOrdered",
+        productId: productId,
+        orderId: orderId,
+        customerId: customerId
+      }
+    }));
+  }
+  let orderId$1 = event.orderId;
+  return event.productIds.map(productId => ({
+    TAG: "PublishEvent",
+    _0: productId,
+    _1: {
+      TAG: "ItemOrderCancelled",
+      productId: productId,
+      orderId: orderId$1
+    }
+  }));
+};
+
+let name = "Orders";
+
+let Id;
+
+let ExtensionPoint;
+
+let moduleUrl = "@reventlessdev/online-shop-dcb-ordering/src/ExtensionPoint/Orders_ExtensionPointMapping.res.mjs";
+
+export {
+  name,
+  Id,
+  ExtensionPoint,
+  Delegate,
+  mapIncomingCommand,
+  mapOutgoingEvent,
+  moduleUrl,
+}
+/* eventSchema Not a pure module */

package/lib/bs/src/Order/AutomationSlice/AutoShipOrder.res

@@ -0,0 +1,19 @@
+// AutoShipOrder AutomationSlice.
+// When OrderPlaced is emitted, automatically issue a ShipOrder command.
+// Resolved when OrderShipped arrives.
+//
+// Consumed events come from per-source `Mapping.Make` modules in the sibling
+// `_Automation.res`. The framework derives the consumed-event set from each
+// mapping's `sourceEventSchema` — no manual union here.
+
+@@reventless.spec
+
+@schema
+type todoItem = {orderId: string}
+
+@schema
+type command = ShipOrder({orderId: string})
+
+let maxRetries = 3
+let heartbeatInterval = 60
+let targetName = "ShipOrder"

package/lib/bs/src/Order/AutomationSlice/AutoShipOrder.res.mjs

@@ -0,0 +1,42 @@
+// 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 todoItemSchema = S.schema(s => ({
+  orderId: s.m(S.string)
+}));
+
+let commandSchema = S.schema(s => ({
+  TAG: "ShipOrder",
+  orderId: s.m(DcbTag$Reventless.string)
+}));
+
+function commandAuthorization(param) {
+  return "AllowAuthenticated";
+}
+
+let name = "AutoShipOrder";
+
+let Id;
+
+let maxRetries = 3;
+
+let heartbeatInterval = 60;
+
+let targetName = "ShipOrder";
+
+let moduleUrl = "@reventlessdev/online-shop-dcb-ordering/src/Order/AutomationSlice/AutoShipOrder.res.mjs";
+
+export {
+  name,
+  Id,
+  todoItemSchema,
+  commandSchema,
+  maxRetries,
+  heartbeatInterval,
+  targetName,
+  moduleUrl,
+  commandAuthorization,
+}
+/* todoItemSchema Not a pure module */

package/lib/bs/src/Order/AutomationSlice/AutoShipOrder_Automation.res

@@ -0,0 +1,36 @@
+@@reventless.automation
+
+// Single DCB source — events from the ordering plugin's own event log.
+// `module Id = Reventless.Id.String` and dcbTags on `*Id` fields are
+// auto-injected by `@@reventless.automation` (Source-module scan).
+module OrderingDcbSource = {
+  let name = "OrderingDcbEventLog"
+  @schema
+  type event =
+    | OrderPlaced({orderId: string})
+    | OrderShipped({orderId: string})
+}
+
+module FromOrderingDcb = Mapping.Make(
+  OrderingDcbSource,
+  AutoShipOrder,
+  {
+    open OrderingDcbSource
+
+    let collect = (event, _ctx) =>
+      switch event {
+      | OrderPlaced({orderId}) => [(orderId, ({orderId: orderId}: AutoShipOrder.todoItem))]
+      | OrderShipped(_) => []
+      }
+
+    let resolve = event =>
+      switch event {
+      | OrderShipped({orderId}) => Some(orderId)
+      | OrderPlaced(_) => None
+      }
+  },
+)
+
+let mappings: array<module(Mapping)> = [module(FromOrderingDcb)]
+
+let process = (id, _item) => Some((id, ShipOrder({orderId: id})))

package/lib/bs/src/Order/AutomationSlice/AutoShipOrder_Automation.res.mjs

@@ -0,0 +1,101 @@
+// Generated by ReScript, PLEASE EDIT WITH CARE
+
+import * as S from "sury/src/S.res.mjs";
+import * as Id$Reventless from "@reventlessdev/reventless-spec/src/types/Id.res.mjs";
+import * as DcbTag$Reventless from "@reventlessdev/reventless-spec/src/components/DcbTag.res.mjs";
+import * as AutomationSlice$Reventless from "@reventlessdev/reventless-spec/src/components/AutomationSlice.res.mjs";
+import * as AutoShipOrder$OrderingPlugin from "./AutoShipOrder.res.mjs";
+
+let M = AutomationSlice$Reventless.Mappings.Make({
+  name: AutoShipOrder$OrderingPlugin.name,
+  moduleUrl: AutoShipOrder$OrderingPlugin.moduleUrl,
+  todoItemSchema: AutoShipOrder$OrderingPlugin.todoItemSchema,
+  commandSchema: AutoShipOrder$OrderingPlugin.commandSchema,
+  maxRetries: AutoShipOrder$OrderingPlugin.maxRetries,
+  heartbeatInterval: AutoShipOrder$OrderingPlugin.heartbeatInterval,
+  targetName: AutoShipOrder$OrderingPlugin.targetName
+});
+
+let name = "OrderingDcbEventLog";
+
+let eventSchema = S.union([
+  S.schema(s => ({
+    TAG: "OrderPlaced",
+    orderId: s.m(DcbTag$Reventless.string)
+  })),
+  S.schema(s => ({
+    TAG: "OrderShipped",
+    orderId: s.m(DcbTag$Reventless.string)
+  }))
+]);
+
+let OrderingDcbSource = {
+  Id: undefined,
+  name: name,
+  eventSchema: eventSchema
+};
+
+function collect(event, _ctx) {
+  if (event.TAG !== "OrderPlaced") {
+    return [];
+  }
+  let orderId = event.orderId;
+  return [[
+      orderId,
+      {
+        orderId: orderId
+      }
+    ]];
+}
+
+function resolve(event) {
+  if (event.TAG === "OrderPlaced") {
+    return;
+  } else {
+    return event.orderId;
+  }
+}
+
+let FromOrderingDcb = AutomationSlice$Reventless.Mapping.Make({
+  Id: Id$Reventless.$$String,
+  name: name,
+  eventSchema: eventSchema
+})({
+  name: AutoShipOrder$OrderingPlugin.name,
+  moduleUrl: AutoShipOrder$OrderingPlugin.moduleUrl,
+  todoItemSchema: AutoShipOrder$OrderingPlugin.todoItemSchema,
+  commandSchema: AutoShipOrder$OrderingPlugin.commandSchema,
+  maxRetries: AutoShipOrder$OrderingPlugin.maxRetries,
+  heartbeatInterval: AutoShipOrder$OrderingPlugin.heartbeatInterval,
+  targetName: AutoShipOrder$OrderingPlugin.targetName
+})({
+  collect: collect,
+  resolve: resolve
+});
+
+let mappings = [FromOrderingDcb];
+
+function process(id, _item) {
+  return [
+    id,
+    {
+      TAG: "ShipOrder",
+      orderId: id
+    }
+  ];
+}
+
+let Spec;
+
+let moduleUrl = "@reventlessdev/online-shop-dcb-ordering/src/Order/AutomationSlice/AutoShipOrder_Automation.res.mjs";
+
+export {
+  Spec,
+  M,
+  OrderingDcbSource,
+  FromOrderingDcb,
+  mappings,
+  process,
+  moduleUrl,
+}
+/* M Not a pure module */