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

package/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-hybrid-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(pid => ({
+      TAG: "PublishEvent",
+      _0: pid,
+      _1: {
+        TAG: "ItemOrdered",
+        productId: pid,
+        orderId: orderId,
+        customerId: customerId
+      }
+    }));
+  }
+  let orderId$1 = event.orderId;
+  return event.productIds.map(pid => ({
+    TAG: "PublishEvent",
+    _0: pid,
+    _1: {
+      TAG: "ItemOrderCancelled",
+      productId: pid,
+      orderId: orderId$1
+    }
+  }));
+};
+
+let name = "Orders";
+
+let Id;
+
+let ExtensionPoint;
+
+let moduleUrl = "@reventlessdev/online-shop-hybrid-ordering/src/ExtensionPoint/Orders_ExtensionPointMapping.res.mjs";
+
+export {
+  name,
+  Id,
+  ExtensionPoint,
+  Delegate,
+  mapIncomingCommand,
+  mapOutgoingEvent,
+  moduleUrl,
+}
+/* eventSchema Not a pure module */

package/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/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-hybrid-ordering/src/Order/AutomationSlice/AutoShipOrder.res.mjs";
+
+export {
+  name,
+  Id,
+  todoItemSchema,
+  commandSchema,
+  maxRetries,
+  heartbeatInterval,
+  targetName,
+  moduleUrl,
+  commandAuthorization,
+}
+/* todoItemSchema Not a pure module */

package/src/Order/AutomationSlice/AutoShipOrder_Automation.res

@@ -0,0 +1,37 @@
+@@reventless.automation
+
+// Single DCB source — events from the ordering plugin's own event log.
+// `name` MUST equal `<pluginName>DcbEventLog` so the dispatch in
+// `AutomationSlice_Callback` resolves it to the topic key `Plugin_Builder`
+// registers under.
+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/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-hybrid-ordering/src/Order/AutomationSlice/AutoShipOrder_Automation.res.mjs";
+
+export {
+  Spec,
+  M,
+  OrderingDcbSource,
+  FromOrderingDcb,
+  mappings,
+  process,
+  moduleUrl,
+}
+/* M Not a pure module */

package/src/Order/OutboundTranslationSlice/SendOrderConfirmation.res

@@ -0,0 +1,22 @@
+// SendOrderConfirmation OutboundTranslationSlice.
+// When OrderPlaced is emitted, sends a confirmation email via EmailService.
+// Fire-and-forget pattern (no inbound command).
+
+@@reventless.spec
+
+@schema
+type consumedEvent =
+  | OrderPlaced({orderId: string, customerId: string})
+
+@schema
+type outboundItem = {orderId: string, customerId: string}
+
+@schema
+type inboundCommand = unit
+
+let maxRetries = 3
+let heartbeatInterval = 60
+let targetName = None
+// Foreign system this anti-corruption slice publishes confirmations to — drawn as an
+// external box outside the Ordering plugin in the Event Graph.
+let externalSystem = Some("EmailService")

package/src/Order/OutboundTranslationSlice/SendOrderConfirmation.res.mjs

@@ -0,0 +1,45 @@
+// 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 consumedEventSchema = S.schema(s => ({
+  TAG: "OrderPlaced",
+  orderId: s.m(DcbTag$Reventless.string),
+  customerId: s.m(DcbTag$Reventless.string)
+}));
+
+let outboundItemSchema = S.schema(s => ({
+  orderId: s.m(S.string),
+  customerId: s.m(S.string)
+}));
+
+let name = "SendOrderConfirmation";
+
+let Id;
+
+let inboundCommandSchema = S.unit;
+
+let maxRetries = 3;
+
+let heartbeatInterval = 60;
+
+let targetName;
+
+let externalSystem = "EmailService";
+
+let moduleUrl = "@reventlessdev/online-shop-hybrid-ordering/src/Order/OutboundTranslationSlice/SendOrderConfirmation.res.mjs";
+
+export {
+  name,
+  Id,
+  consumedEventSchema,
+  outboundItemSchema,
+  inboundCommandSchema,
+  maxRetries,
+  heartbeatInterval,
+  targetName,
+  externalSystem,
+  moduleUrl,
+}
+/* consumedEventSchema Not a pure module */

package/src/Order/OutboundTranslationSlice/SendOrderConfirmation_Translation.res

@@ -0,0 +1,24 @@
+@@reventless.translation
+
+let collect = event =>
+  switch event {
+  | OrderPlaced({orderId, customerId}) => [(orderId, {orderId, customerId})]
+  }
+
+let translate = async (_id, item) => {
+  try {
+    await EmailService.sendOrderConfirmation(
+      ~email=item.customerId,
+      ~orderId=item.orderId,
+    )
+    Ok(None)
+  } catch {
+  | exn =>
+    let msg =
+      exn
+      ->JsExn.fromException
+      ->Option.flatMap(JsExn.message)
+      ->Option.getOr("email send failed")
+    Error(msg)
+  }
+}

package/src/Order/OutboundTranslationSlice/SendOrderConfirmation_Translation.res.mjs

@@ -0,0 +1,46 @@
+// Generated by ReScript, PLEASE EDIT WITH CARE
+
+import * as Stdlib_JsExn from "@rescript/runtime/lib/es6/Stdlib_JsExn.js";
+import * as Stdlib_Option from "@rescript/runtime/lib/es6/Stdlib_Option.js";
+import * as Primitive_exceptions from "@rescript/runtime/lib/es6/Primitive_exceptions.js";
+import * as EmailService$OrderingPlugin from "../../Service/EmailService.res.mjs";
+
+function collect(event) {
+  let orderId = event.orderId;
+  return [[
+      orderId,
+      {
+        orderId: orderId,
+        customerId: event.customerId
+      }
+    ]];
+}
+
+async function translate(_id, item) {
+  try {
+    await EmailService$OrderingPlugin.sendOrderConfirmation(item.customerId, item.orderId);
+    return {
+      TAG: "Ok",
+      _0: undefined
+    };
+  } catch (raw_exn) {
+    let exn = Primitive_exceptions.internalToException(raw_exn);
+    let msg = Stdlib_Option.getOr(Stdlib_Option.flatMap(Stdlib_JsExn.fromException(exn), Stdlib_JsExn.message), "email send failed");
+    return {
+      TAG: "Error",
+      _0: msg
+    };
+  }
+}
+
+let Spec;
+
+let moduleUrl = "@reventlessdev/online-shop-hybrid-ordering/src/Order/OutboundTranslationSlice/SendOrderConfirmation_Translation.res.mjs";
+
+export {
+  Spec,
+  collect,
+  translate,
+  moduleUrl,
+}
+/* Stdlib_JsExn Not a pure module */

package/src/Order/StateChangeSlice/CancelOrder.res

@@ -0,0 +1,29 @@
+// CancelOrder StateChangeSlice.
+// Requires order to exist and not be shipped; idempotent if already cancelled.
+
+@@reventless.spec
+
+@schema
+type consumedEvent =
+  | OrderPlaced({productIds: array<string>})
+  | OrderShipped
+  | OrderCancelled
+  | OrderReopened
+
+@schema
+type command =
+  | @allowedStates([Orders.Placed]) CancelOrder({orderId: string})
+  | @noApi ReopenOrder({orderId: string})  // Internal: admin/automation only
+
+@schema
+type error =
+  | OrderNotFound
+  | OrderAlreadyShipped
+
+@schema
+type event =
+  | OrderCancelled({
+      orderId: string,
+      productIds: array<string>,
+    })
+  | OrderReopened({orderId: string})

package/src/Order/StateChangeSlice/CancelOrder.res.mjs

@@ -0,0 +1,75 @@
+// 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 Api$ReventlessInfra from "@reventlessdev/reventless-infra/src/components/Api.res.mjs";
+
+let consumedEventSchema = S.union([
+  S.schema(s => ({
+    TAG: "OrderPlaced",
+    productIds: s.m(S.array(DcbTag$Reventless.stringForKey("productId")))
+  })),
+  S.literal("OrderShipped"),
+  S.literal("OrderCancelled"),
+  S.literal("OrderReopened")
+]);
+
+let commandSchema = S.union([
+  S.schema(s => ({
+    TAG: "CancelOrder",
+    orderId: s.m(DcbTag$Reventless.string)
+  })),
+  S.schema(s => ({
+    TAG: "ReopenOrder",
+    orderId: s.m(DcbTag$Reventless.string)
+  }))
+]);
+
+let errorSchema = S.union([
+  S.literal("OrderNotFound"),
+  S.literal("OrderAlreadyShipped")
+]);
+
+let eventSchema = S.union([
+  S.schema(s => ({
+    TAG: "OrderCancelled",
+    orderId: s.m(DcbTag$Reventless.string),
+    productIds: s.m(S.array(DcbTag$Reventless.stringForKey("productId")))
+  })),
+  S.schema(s => ({
+    TAG: "OrderReopened",
+    orderId: s.m(DcbTag$Reventless.string)
+  }))
+]);
+
+let commandSchema$1 = Api$ReventlessInfra.markNoApiVariants(commandSchema, ["ReopenOrder"]);
+
+let commandSchema$2 = Api$ReventlessInfra.markAllowedStates(commandSchema$1, [[
+    "CancelOrder",
+    ["Placed"]
+  ]]);
+
+function commandAuthorization(param) {
+  return "AllowAuthenticated";
+}
+
+let name = "CancelOrder";
+
+let Id;
+
+let moduleUrl = "@reventlessdev/online-shop-hybrid-ordering/src/Order/StateChangeSlice/CancelOrder.res.mjs";
+
+let readConsistency = "EscalateOnRetry";
+
+export {
+  name,
+  Id,
+  consumedEventSchema,
+  errorSchema,
+  eventSchema,
+  commandSchema$2 as commandSchema,
+  moduleUrl,
+  commandAuthorization,
+  readConsistency,
+}
+/* consumedEventSchema Not a pure module */

package/src/Order/StateChangeSlice/CancelOrder_Behavior.res

@@ -0,0 +1,35 @@
+@@reventless.behavior
+
+type state = {exists: bool, shipped: bool, cancelled: bool, productIds: array<string>}
+
+let initialState = {exists: false, shipped: false, cancelled: false, productIds: []}
+
+let evolve = (state, event) =>
+  switch event {
+  | OrderPlaced({productIds}) => {exists: true, shipped: false, cancelled: false, productIds}
+  | OrderShipped => {...state, shipped: true}
+  | OrderCancelled => {...state, cancelled: true}
+  | OrderReopened => {...state, cancelled: false}
+  }
+
+let decide = (state, command) =>
+  switch command {
+  | CancelOrder({orderId: theId}) =>
+    if !state.exists {
+      Error(OrderNotFound)
+    } else if state.shipped {
+      Error(OrderAlreadyShipped)
+    } else if state.cancelled {
+      Ok([]) // idempotent — already cancelled
+    } else {
+      Ok([OrderCancelled({orderId: theId, productIds: state.productIds})])
+    }
+  | ReopenOrder({orderId: theId}) =>
+    if !state.exists {
+      Error(OrderNotFound)
+    } else if !state.cancelled {
+      Ok([]) // idempotent — not cancelled
+    } else {
+      Ok([OrderReopened({orderId: theId})])
+    }
+  }

package/src/Order/StateChangeSlice/CancelOrder_Behavior.res.mjs

@@ -0,0 +1,110 @@
+// Generated by ReScript, PLEASE EDIT WITH CARE
+
+
+let initialState_productIds = [];
+
+let initialState = {
+  exists: false,
+  shipped: false,
+  cancelled: false,
+  productIds: initialState_productIds
+};
+
+function evolve(state, event) {
+  if (typeof event === "object") {
+    return {
+      exists: true,
+      shipped: false,
+      cancelled: false,
+      productIds: event.productIds
+    };
+  }
+  switch (event) {
+    case "OrderShipped" :
+      return {
+        exists: state.exists,
+        shipped: true,
+        cancelled: state.cancelled,
+        productIds: state.productIds
+      };
+    case "OrderCancelled" :
+      return {
+        exists: state.exists,
+        shipped: state.shipped,
+        cancelled: true,
+        productIds: state.productIds
+      };
+    case "OrderReopened" :
+      return {
+        exists: state.exists,
+        shipped: state.shipped,
+        cancelled: false,
+        productIds: state.productIds
+      };
+  }
+}
+
+function decide(state, command) {
+  if (command.TAG === "CancelOrder") {
+    if (state.exists) {
+      if (state.shipped) {
+        return {
+          TAG: "Error",
+          _0: "OrderAlreadyShipped"
+        };
+      } else if (state.cancelled) {
+        return {
+          TAG: "Ok",
+          _0: []
+        };
+      } else {
+        return {
+          TAG: "Ok",
+          _0: [{
+              TAG: "OrderCancelled",
+              orderId: command.orderId,
+              productIds: state.productIds
+            }]
+        };
+      }
+    } else {
+      return {
+        TAG: "Error",
+        _0: "OrderNotFound"
+      };
+    }
+  } else if (state.exists) {
+    if (state.cancelled) {
+      return {
+        TAG: "Ok",
+        _0: [{
+            TAG: "OrderReopened",
+            orderId: command.orderId
+          }]
+      };
+    } else {
+      return {
+        TAG: "Ok",
+        _0: []
+      };
+    }
+  } else {
+    return {
+      TAG: "Error",
+      _0: "OrderNotFound"
+    };
+  }
+}
+
+let Spec;
+
+let moduleUrl = "@reventlessdev/online-shop-hybrid-ordering/src/Order/StateChangeSlice/CancelOrder_Behavior.res.mjs";
+
+export {
+  Spec,
+  initialState,
+  evolve,
+  decide,
+  moduleUrl,
+}
+/* No side effect */