@reventlessdev/online-shop-aggregates-catalog 3.0.0-alpha.101

package/lib/bs/src/Product/Aggregate/Product_Behavior.res.mjs

@@ -0,0 +1,150 @@
+// Generated by ReScript, PLEASE EDIT WITH CARE
+
+import * as S from "sury/src/S.res.mjs";
+
+let stateSchema = S.union([
+  S.literal("NotCreated"),
+  S.schema(s => ({
+    TAG: "Created",
+    name: s.m(S.string),
+    description: s.m(S.string),
+    price: s.m(S.float)
+  }))
+]);
+
+function evolve(state, event) {
+  if (typeof state !== "object") {
+    if (event.TAG === "Added") {
+      return {
+        TAG: "Created",
+        name: event.name,
+        description: event.description,
+        price: event.price
+      };
+    } else {
+      return state;
+    }
+  }
+  switch (event.TAG) {
+    case "Added" :
+      return {
+        TAG: "Created",
+        name: event.name,
+        description: event.description,
+        price: event.price
+      };
+    case "NameUpdated" :
+      return {
+        TAG: "Created",
+        name: event.name,
+        description: state.description,
+        price: state.price
+      };
+    case "DescriptionUpdated" :
+      return {
+        TAG: "Created",
+        name: state.name,
+        description: event.description,
+        price: state.price
+      };
+    case "PriceUpdated" :
+      return {
+        TAG: "Created",
+        name: state.name,
+        description: state.description,
+        price: event.price
+      };
+  }
+}
+
+function decide(state, command) {
+  if (typeof state !== "object") {
+    if (command.TAG === "Add") {
+      return {
+        TAG: "Ok",
+        _0: [{
+            TAG: "Added",
+            name: command.name,
+            description: command.description,
+            price: command.price
+          }]
+      };
+    } else {
+      return {
+        TAG: "Error",
+        _0: "ProductNotFound"
+      };
+    }
+  }
+  switch (command.TAG) {
+    case "Add" :
+      return {
+        TAG: "Error",
+        _0: "ProductAlreadyExists"
+      };
+    case "UpdateName" :
+      let name = command.name;
+      if (name === state.name) {
+        return {
+          TAG: "Ok",
+          _0: []
+        };
+      } else {
+        return {
+          TAG: "Ok",
+          _0: [{
+              TAG: "NameUpdated",
+              name: name
+            }]
+        };
+      }
+    case "UpdateDescription" :
+      let description = command.description;
+      if (description === state.description) {
+        return {
+          TAG: "Ok",
+          _0: []
+        };
+      } else {
+        return {
+          TAG: "Ok",
+          _0: [{
+              TAG: "DescriptionUpdated",
+              description: description
+            }]
+        };
+      }
+    case "UpdatePrice" :
+      let price = command.price;
+      if (price === state.price) {
+        return {
+          TAG: "Ok",
+          _0: []
+        };
+      } else {
+        return {
+          TAG: "Ok",
+          _0: [{
+              TAG: "PriceUpdated",
+              price: price
+            }]
+        };
+      }
+  }
+}
+
+let Spec;
+
+let initialState = "NotCreated";
+
+let moduleUrl = "@reventlessdev/online-shop-aggregates-catalog/src/Product/Aggregate/Product_Behavior.res.mjs";
+
+export {
+  Spec,
+  stateSchema,
+  initialState,
+  evolve,
+  decide,
+  moduleUrl,
+}
+/* stateSchema Not a pure module */

package/lib/bs/src/Product/ReadModel/Products.res

@@ -0,0 +1,12 @@
+// Products read model specification.
+// Query-side state for product listings.
+
+@@reventless.spec
+
+@schema
+type state = {
+  name: string,
+  description: string,
+  price: float,
+}
+

package/lib/bs/src/Product/ReadModel/Products.res.mjs

@@ -0,0 +1,36 @@
+// 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 stateSchema = S.schema(s => ({
+  name: s.m(S.string),
+  description: s.m(S.string),
+  price: s.m(S.float)
+}));
+
+let config = ReadModel$Reventless.config(undefined, undefined, undefined);
+
+let name = "Products";
+
+let Id;
+
+let subIdConfig;
+
+let moduleUrl = "@reventlessdev/online-shop-aggregates-catalog/src/Product/ReadModel/Products.res.mjs";
+
+let authorization = "AllowAuthenticated";
+
+let visibility = "Public";
+
+export {
+  name,
+  Id,
+  stateSchema,
+  config,
+  subIdConfig,
+  moduleUrl,
+  authorization,
+  visibility,
+}
+/* stateSchema Not a pure module */

package/lib/bs/src/Product/ReadModel/Products_Projections.res

@@ -0,0 +1,22 @@
+// Product projection mappings.
+// Maps Product aggregate events to Products read model state changes.
+@@reventless.mappings
+
+module ProductMapping = Mapping.Make(
+  Product,
+  Products,
+  {
+    open Product
+    let project = ({event, id, _}) =>
+      switch event {
+      | Added({name, description, price}) =>
+        Set(id, {Products.name: name, description, price})
+      | NameUpdated({name}) => Update(id, state => {...state, name})
+      | DescriptionUpdated({description}) =>
+        Update(id, state => {...state, description})
+      | PriceUpdated({price}) => Update(id, state => {...state, price})
+      }
+  },
+)
+
+let mappings: array<module(Mapping)> = [module(ProductMapping)]

package/lib/bs/src/Product/ReadModel/Products_Projections.res.mjs

@@ -0,0 +1,91 @@
+// Generated by ReScript, PLEASE EDIT WITH CARE
+
+import * as Id$Reventless from "@reventlessdev/reventless-spec/src/types/Id.res.mjs";
+import * as Product$CatalogPlugin from "../Aggregate/Product.res.mjs";
+import * as Projection$Reventless from "@reventlessdev/reventless-spec/src/types/Projection.res.mjs";
+import * as Products$CatalogPlugin from "./Products.res.mjs";
+
+let M = Projection$Reventless.Mappings.Make({
+  Id: Id$Reventless.$$String,
+  name: Products$CatalogPlugin.name,
+  stateSchema: Products$CatalogPlugin.stateSchema,
+  subIdConfig: undefined
+});
+
+function project(param) {
+  let event = param.event;
+  let id = param.id;
+  switch (event.TAG) {
+    case "Added" :
+      return {
+        TAG: "Set",
+        _0: id,
+        _1: {
+          name: event.name,
+          description: event.description,
+          price: event.price
+        }
+      };
+    case "NameUpdated" :
+      let name = event.name;
+      return {
+        TAG: "Update",
+        _0: id,
+        _1: state => ({
+          name: name,
+          description: state.description,
+          price: state.price
+        })
+      };
+    case "DescriptionUpdated" :
+      let description = event.description;
+      return {
+        TAG: "Update",
+        _0: id,
+        _1: state => ({
+          name: state.name,
+          description: description,
+          price: state.price
+        })
+      };
+    case "PriceUpdated" :
+      let price = event.price;
+      return {
+        TAG: "Update",
+        _0: id,
+        _1: state => ({
+          name: state.name,
+          description: state.description,
+          price: price
+        })
+      };
+  }
+}
+
+let ProductMapping = Projection$Reventless.Mapping.Make({
+  Id: Id$Reventless.$$String,
+  name: Product$CatalogPlugin.name,
+  eventSchema: Product$CatalogPlugin.eventSchema
+})({
+  Id: Id$Reventless.$$String,
+  name: Products$CatalogPlugin.name,
+  stateSchema: Products$CatalogPlugin.stateSchema,
+  subIdConfig: undefined
+})({
+  project: project
+});
+
+let mappings = [ProductMapping];
+
+let Target;
+
+let moduleUrl = "@reventlessdev/online-shop-aggregates-catalog/src/Product/ReadModel/Products_Projections.res.mjs";
+
+export {
+  Target,
+  M,
+  ProductMapping,
+  mappings,
+  moduleUrl,
+}
+/* M Not a pure module */

package/lib/bs/src/ProductDemand/Aggregate/ProductDemand.res

@@ -0,0 +1,20 @@
+// ProductDemand aggregate specification.
+// Records per-product order demand, driven by Ordering's OrdersExtensionPoint.
+
+@@reventless.spec
+
+// Not a UI/API command — driven only by Ordering's OrdersExtensionPoint.
+// @noApi removes it from the GraphQL/MCP/AutoUI surface, so the cross-plugin
+// `orderId` is never rendered as a picker and needs no @ref.
+@schema @noApi
+type command =
+  | Record({orderId: string})
+  | Revoke({orderId: string})
+
+@schema
+type event =
+  | Recorded({orderId: string})
+  | Revoked({orderId: string})
+
+@schema
+type error = unit

package/lib/bs/src/ProductDemand/Aggregate/ProductDemand.res.mjs

@@ -0,0 +1,51 @@
+// Generated by ReScript, PLEASE EDIT WITH CARE
+
+import * as S from "sury/src/S.res.mjs";
+import * as Api$ReventlessInfra from "@reventlessdev/reventless-infra/src/components/Api.res.mjs";
+
+let commandSchema = S.union([
+  S.schema(s => ({
+    TAG: "Record",
+    orderId: s.m(S.string)
+  })),
+  S.schema(s => ({
+    TAG: "Revoke",
+    orderId: s.m(S.string)
+  }))
+]);
+
+let eventSchema = S.union([
+  S.schema(s => ({
+    TAG: "Recorded",
+    orderId: s.m(S.string)
+  })),
+  S.schema(s => ({
+    TAG: "Revoked",
+    orderId: s.m(S.string)
+  }))
+]);
+
+let commandSchema$1 = Api$ReventlessInfra.markNoApi(commandSchema);
+
+function commandAuthorization(param) {
+  return "AllowAuthenticated";
+}
+
+let name = "ProductDemand";
+
+let Id;
+
+let errorSchema = S.unit;
+
+let moduleUrl = "@reventlessdev/online-shop-aggregates-catalog/src/ProductDemand/Aggregate/ProductDemand.res.mjs";
+
+export {
+  name,
+  Id,
+  eventSchema,
+  errorSchema,
+  commandSchema$1 as commandSchema,
+  moduleUrl,
+  commandAuthorization,
+}
+/* commandSchema Not a pure module */

package/lib/bs/src/ProductDemand/Aggregate/ProductDemand_Behavior.res

@@ -0,0 +1,39 @@
+// ProductDemand aggregate behavior.
+// Idempotently records and revokes order demand per product.
+
+@@reventless.behavior
+
+@schema
+type state =
+  | NotCreated
+  | Created({recordedOrderIds: array<string>})
+
+let initialState = NotCreated
+
+let evolve = (state, event) =>
+  switch (state, event) {
+  | (NotCreated, Recorded({orderId})) => Created({recordedOrderIds: [orderId]})
+  | (Created(s), Recorded({orderId})) =>
+    Created({recordedOrderIds: Array.concat(s.recordedOrderIds, [orderId])})
+  | (Created(s), Revoked({orderId})) =>
+    Created({recordedOrderIds: s.recordedOrderIds->Array.filter(id => id !== orderId)})
+  | (NotCreated, Revoked(_)) => state
+  }
+
+let decide = (state, command) =>
+  switch (state, command) {
+  | (NotCreated, Record({orderId})) => Ok([Recorded({orderId: orderId})])
+  | (NotCreated, Revoke(_)) => Ok([]) // nothing recorded yet — idempotent
+  | (Created(s), Record({orderId})) =>
+    if s.recordedOrderIds->Array.includes(orderId) {
+      Ok([]) // idempotent
+    } else {
+      Ok([Recorded({orderId: orderId})])
+    }
+  | (Created(s), Revoke({orderId})) =>
+    if !(s.recordedOrderIds->Array.includes(orderId)) {
+      Ok([]) // idempotent
+    } else {
+      Ok([Revoked({orderId: orderId})])
+    }
+  }

package/lib/bs/src/ProductDemand/Aggregate/ProductDemand_Behavior.res.mjs

@@ -0,0 +1,102 @@
+// Generated by ReScript, PLEASE EDIT WITH CARE
+
+import * as S from "sury/src/S.res.mjs";
+
+let stateSchema = S.union([
+  S.literal("NotCreated"),
+  S.schema(s => ({
+    TAG: "Created",
+    recordedOrderIds: s.m(S.array(S.string))
+  }))
+]);
+
+function evolve(state, event) {
+  if (typeof state !== "object") {
+    if (event.TAG === "Recorded") {
+      return {
+        TAG: "Created",
+        recordedOrderIds: [event.orderId]
+      };
+    } else {
+      return state;
+    }
+  }
+  if (event.TAG === "Recorded") {
+    return {
+      TAG: "Created",
+      recordedOrderIds: state.recordedOrderIds.concat([event.orderId])
+    };
+  }
+  let orderId = event.orderId;
+  return {
+    TAG: "Created",
+    recordedOrderIds: state.recordedOrderIds.filter(id => id !== orderId)
+  };
+}
+
+function decide(state, command) {
+  if (typeof state !== "object") {
+    if (command.TAG === "Record") {
+      return {
+        TAG: "Ok",
+        _0: [{
+            TAG: "Recorded",
+            orderId: command.orderId
+          }]
+      };
+    } else {
+      return {
+        TAG: "Ok",
+        _0: []
+      };
+    }
+  }
+  if (command.TAG === "Record") {
+    let orderId = command.orderId;
+    if (state.recordedOrderIds.includes(orderId)) {
+      return {
+        TAG: "Ok",
+        _0: []
+      };
+    } else {
+      return {
+        TAG: "Ok",
+        _0: [{
+            TAG: "Recorded",
+            orderId: orderId
+          }]
+      };
+    }
+  }
+  let orderId$1 = command.orderId;
+  if (state.recordedOrderIds.includes(orderId$1)) {
+    return {
+      TAG: "Ok",
+      _0: [{
+          TAG: "Revoked",
+          orderId: orderId$1
+        }]
+    };
+  } else {
+    return {
+      TAG: "Ok",
+      _0: []
+    };
+  }
+}
+
+let Spec;
+
+let initialState = "NotCreated";
+
+let moduleUrl = "@reventlessdev/online-shop-aggregates-catalog/src/ProductDemand/Aggregate/ProductDemand_Behavior.res.mjs";
+
+export {
+  Spec,
+  stateSchema,
+  initialState,
+  evolve,
+  decide,
+  moduleUrl,
+}
+/* stateSchema Not a pure module */

package/lib/bs/src/ProductDemand/ReadModel/ProductDemands.res

@@ -0,0 +1,8 @@
+// ProductDemand read model specification.
+// Tracks per-product order demand counts, combining data from Product and ProductDemand aggregates.
+
+@@reventless.spec
+
+@schema
+type state = {name: string, orderCount: int}
+

package/lib/bs/src/ProductDemand/ReadModel/ProductDemands.res.mjs

@@ -0,0 +1,35 @@
+// 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 stateSchema = S.schema(s => ({
+  name: s.m(S.string),
+  orderCount: s.m(S.int)
+}));
+
+let config = ReadModel$Reventless.config(undefined, undefined, undefined);
+
+let name = "ProductDemands";
+
+let Id;
+
+let subIdConfig;
+
+let moduleUrl = "@reventlessdev/online-shop-aggregates-catalog/src/ProductDemand/ReadModel/ProductDemands.res.mjs";
+
+let authorization = "AllowAuthenticated";
+
+let visibility = "Public";
+
+export {
+  name,
+  Id,
+  stateSchema,
+  config,
+  subIdConfig,
+  moduleUrl,
+  authorization,
+  visibility,
+}
+/* stateSchema Not a pure module */

package/lib/bs/src/ProductDemand/ReadModel/ProductDemands_Projections.res

@@ -0,0 +1,36 @@
+// ProductDemands projection mappings.
+// Multi-source read model: combines events from two aggregates.
+// Source 1: Product — initialises the entry on Added.
+// Source 2: ProductDemand — increments / decrements the order count.
+@@reventless.mappings
+
+module ProductMapping = Mapping.Make(
+  Product,
+  ProductDemands,
+  {
+    open Product
+    let project = ({event, id, _}) =>
+      switch event {
+      | Added({name}) =>
+        Set(id, {ProductDemands.name: name, orderCount: 0})
+      | _ => Ignore
+      }
+  },
+)
+
+module ProductDemandMapping = Mapping.Make(
+  ProductDemand,
+  ProductDemands,
+  {
+    open ProductDemand
+    let project = ({event, id, _}) =>
+      switch event {
+      | Recorded(_) =>
+        Update(id, (state: ProductDemands.state) => {...state, orderCount: state.orderCount + 1})
+      | Revoked(_) =>
+        Update(id, (state: ProductDemands.state) => {...state, orderCount: max(0, state.orderCount - 1)})
+      }
+  },
+)
+
+let mappings: array<module(Mapping)> = [module(ProductMapping), module(ProductDemandMapping)]