@reventlessdev/online-shop-dcb-catalog 1.0.0-alpha.104

package/src/Product/StateChangeSlice/ChangeProductDescription.res.mjs

@@ -0,0 +1,54 @@
+// 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.union([
+  S.schema(s => ({
+    TAG: "ProductAdded",
+    description: s.m(S.string)
+  })),
+  S.schema(s => ({
+    TAG: "ProductDescriptionChanged",
+    description: s.m(S.string)
+  }))
+]);
+
+let commandSchema = S.schema(s => ({
+  TAG: "ChangeProductDescription",
+  productId: s.m(DcbTag$Reventless.string),
+  description: s.m(S.string)
+}));
+
+let errorSchema = S.literal("ProductNotFound");
+
+let eventSchema = S.schema(s => ({
+  TAG: "ProductDescriptionChanged",
+  productId: s.m(DcbTag$Reventless.string),
+  description: s.m(S.string)
+}));
+
+function commandAuthorization(param) {
+  return "AllowAuthenticated";
+}
+
+let name = "ChangeProductDescription";
+
+let Id;
+
+let moduleUrl = "@reventlessdev/online-shop-dcb-catalog/src/Product/StateChangeSlice/ChangeProductDescription.res.mjs";
+
+let readConsistency = "EscalateOnRetry";
+
+export {
+  name,
+  Id,
+  consumedEventSchema,
+  commandSchema,
+  errorSchema,
+  eventSchema,
+  moduleUrl,
+  commandAuthorization,
+  readConsistency,
+}
+/* consumedEventSchema Not a pure module */

package/src/Product/StateChangeSlice/ChangeProductDescription_Behavior.res

@@ -0,0 +1,26 @@
+@@reventless.behavior
+
+type state = {exists: bool, currentDescription: string}
+
+let initialState = {exists: false, currentDescription: ""}
+
+let evolve = (state, event) =>
+  switch event {
+  | ProductAdded({description}) => {exists: true, currentDescription: description}
+  | ProductDescriptionChanged({description}) => {
+      ...state,
+      currentDescription: description,
+    }
+  }
+
+let decide = (state, command) =>
+  switch command {
+  | ChangeProductDescription({productId, description}) =>
+    if !state.exists {
+      Error(ProductNotFound)
+    } else if description == state.currentDescription {
+      Ok([]) // idempotent — description unchanged
+    } else {
+      Ok([ProductDescriptionChanged({productId, description})])
+    }
+  }

package/src/Product/StateChangeSlice/ChangeProductDescription_Behavior.res.mjs

@@ -0,0 +1,59 @@
+// Generated by ReScript, PLEASE EDIT WITH CARE
+
+
+function evolve(state, event) {
+  if (event.TAG === "ProductAdded") {
+    return {
+      exists: true,
+      currentDescription: event.description
+    };
+  } else {
+    return {
+      exists: state.exists,
+      currentDescription: event.description
+    };
+  }
+}
+
+function decide(state, command) {
+  if (!state.exists) {
+    return {
+      TAG: "Error",
+      _0: "ProductNotFound"
+    };
+  }
+  let description = command.description;
+  if (description === state.currentDescription) {
+    return {
+      TAG: "Ok",
+      _0: []
+    };
+  } else {
+    return {
+      TAG: "Ok",
+      _0: [{
+          TAG: "ProductDescriptionChanged",
+          productId: command.productId,
+          description: description
+        }]
+    };
+  }
+}
+
+let Spec;
+
+let initialState = {
+  exists: false,
+  currentDescription: ""
+};
+
+let moduleUrl = "@reventlessdev/online-shop-dcb-catalog/src/Product/StateChangeSlice/ChangeProductDescription_Behavior.res.mjs";
+
+export {
+  Spec,
+  initialState,
+  evolve,
+  decide,
+  moduleUrl,
+}
+/* No side effect */

package/src/Product/StateChangeSlice/ChangeProductName.res

@@ -0,0 +1,17 @@
+// ChangeProductName StateChangeSlice.
+// Requires product to exist; idempotent when name is unchanged.
+@@reventless.spec
+
+@schema
+type consumedEvent =
+  | ProductAdded({name: string})
+  | ProductNameChanged({name: string})
+
+@schema
+type command = ChangeProductName({productId: string, name: string})
+
+@schema
+type error = ProductNotFound
+
+@schema
+type event = ProductNameChanged({productId: string, name: string})

package/src/Product/StateChangeSlice/ChangeProductName.res.mjs

@@ -0,0 +1,54 @@
+// 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.union([
+  S.schema(s => ({
+    TAG: "ProductAdded",
+    name: s.m(S.string)
+  })),
+  S.schema(s => ({
+    TAG: "ProductNameChanged",
+    name: s.m(S.string)
+  }))
+]);
+
+let commandSchema = S.schema(s => ({
+  TAG: "ChangeProductName",
+  productId: s.m(DcbTag$Reventless.string),
+  name: s.m(S.string)
+}));
+
+let errorSchema = S.literal("ProductNotFound");
+
+let eventSchema = S.schema(s => ({
+  TAG: "ProductNameChanged",
+  productId: s.m(DcbTag$Reventless.string),
+  name: s.m(S.string)
+}));
+
+function commandAuthorization(param) {
+  return "AllowAuthenticated";
+}
+
+let name = "ChangeProductName";
+
+let Id;
+
+let moduleUrl = "@reventlessdev/online-shop-dcb-catalog/src/Product/StateChangeSlice/ChangeProductName.res.mjs";
+
+let readConsistency = "EscalateOnRetry";
+
+export {
+  name,
+  Id,
+  consumedEventSchema,
+  commandSchema,
+  errorSchema,
+  eventSchema,
+  moduleUrl,
+  commandAuthorization,
+  readConsistency,
+}
+/* consumedEventSchema Not a pure module */

package/src/Product/StateChangeSlice/ChangeProductName_Behavior.res

@@ -0,0 +1,23 @@
+@@reventless.behavior
+
+type state = {exists: bool, currentName: string}
+
+let initialState = {exists: false, currentName: ""}
+
+let evolve = (state, event) =>
+  switch event {
+  | ProductAdded({name}) => {exists: true, currentName: name}
+  | ProductNameChanged({name}) => {...state, currentName: name}
+  }
+
+let decide = (state, command) =>
+  switch command {
+  | ChangeProductName({productId, name}) =>
+    if !state.exists {
+      Error(ProductNotFound)
+    } else if name == state.currentName {
+      Ok([]) // idempotent — name unchanged
+    } else {
+      Ok([ProductNameChanged({productId, name})])
+    }
+  }

package/src/Product/StateChangeSlice/ChangeProductName_Behavior.res.mjs

@@ -0,0 +1,59 @@
+// Generated by ReScript, PLEASE EDIT WITH CARE
+
+
+function evolve(state, event) {
+  if (event.TAG === "ProductAdded") {
+    return {
+      exists: true,
+      currentName: event.name
+    };
+  } else {
+    return {
+      exists: state.exists,
+      currentName: event.name
+    };
+  }
+}
+
+function decide(state, command) {
+  if (!state.exists) {
+    return {
+      TAG: "Error",
+      _0: "ProductNotFound"
+    };
+  }
+  let name = command.name;
+  if (name === state.currentName) {
+    return {
+      TAG: "Ok",
+      _0: []
+    };
+  } else {
+    return {
+      TAG: "Ok",
+      _0: [{
+          TAG: "ProductNameChanged",
+          productId: command.productId,
+          name: name
+        }]
+    };
+  }
+}
+
+let Spec;
+
+let initialState = {
+  exists: false,
+  currentName: ""
+};
+
+let moduleUrl = "@reventlessdev/online-shop-dcb-catalog/src/Product/StateChangeSlice/ChangeProductName_Behavior.res.mjs";
+
+export {
+  Spec,
+  initialState,
+  evolve,
+  decide,
+  moduleUrl,
+}
+/* No side effect */

package/src/Product/StateChangeSlice/ChangeProductPrice.res

@@ -0,0 +1,17 @@
+// ChangeProductPrice StateChangeSlice.
+// Requires product to exist; idempotent when price is unchanged.
+@@reventless.spec
+
+@schema
+type consumedEvent =
+  | ProductAdded({price: float})
+  | ProductPriceChanged({price: float})
+
+@schema
+type command = ChangeProductPrice({productId: string, price: float})
+
+@schema
+type error = ProductNotFound
+
+@schema
+type event = ProductPriceChanged({productId: string, price: float})

package/src/Product/StateChangeSlice/ChangeProductPrice.res.mjs

@@ -0,0 +1,54 @@
+// 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.union([
+  S.schema(s => ({
+    TAG: "ProductAdded",
+    price: s.m(S.float)
+  })),
+  S.schema(s => ({
+    TAG: "ProductPriceChanged",
+    price: s.m(S.float)
+  }))
+]);
+
+let commandSchema = S.schema(s => ({
+  TAG: "ChangeProductPrice",
+  productId: s.m(DcbTag$Reventless.string),
+  price: s.m(S.float)
+}));
+
+let errorSchema = S.literal("ProductNotFound");
+
+let eventSchema = S.schema(s => ({
+  TAG: "ProductPriceChanged",
+  productId: s.m(DcbTag$Reventless.string),
+  price: s.m(S.float)
+}));
+
+function commandAuthorization(param) {
+  return "AllowAuthenticated";
+}
+
+let name = "ChangeProductPrice";
+
+let Id;
+
+let moduleUrl = "@reventlessdev/online-shop-dcb-catalog/src/Product/StateChangeSlice/ChangeProductPrice.res.mjs";
+
+let readConsistency = "EscalateOnRetry";
+
+export {
+  name,
+  Id,
+  consumedEventSchema,
+  commandSchema,
+  errorSchema,
+  eventSchema,
+  moduleUrl,
+  commandAuthorization,
+  readConsistency,
+}
+/* consumedEventSchema Not a pure module */

package/src/Product/StateChangeSlice/ChangeProductPrice_Behavior.res

@@ -0,0 +1,23 @@
+@@reventless.behavior
+
+type state = {exists: bool, currentPrice: float}
+
+let initialState = {exists: false, currentPrice: 0.0}
+
+let evolve = (state, event) =>
+  switch event {
+  | ProductAdded({price}) => {exists: true, currentPrice: price}
+  | ProductPriceChanged({price}) => {...state, currentPrice: price}
+  }
+
+let decide = (state, command) =>
+  switch command {
+  | ChangeProductPrice({productId, price}) =>
+    if !state.exists {
+      Error(ProductNotFound)
+    } else if price == state.currentPrice {
+      Ok([]) // idempotent — price unchanged
+    } else {
+      Ok([ProductPriceChanged({productId, price})])
+    }
+  }

package/src/Product/StateChangeSlice/ChangeProductPrice_Behavior.res.mjs

@@ -0,0 +1,59 @@
+// Generated by ReScript, PLEASE EDIT WITH CARE
+
+
+function evolve(state, event) {
+  if (event.TAG === "ProductAdded") {
+    return {
+      exists: true,
+      currentPrice: event.price
+    };
+  } else {
+    return {
+      exists: state.exists,
+      currentPrice: event.price
+    };
+  }
+}
+
+function decide(state, command) {
+  if (!state.exists) {
+    return {
+      TAG: "Error",
+      _0: "ProductNotFound"
+    };
+  }
+  let price = command.price;
+  if (price === state.currentPrice) {
+    return {
+      TAG: "Ok",
+      _0: []
+    };
+  } else {
+    return {
+      TAG: "Ok",
+      _0: [{
+          TAG: "ProductPriceChanged",
+          productId: command.productId,
+          price: price
+        }]
+    };
+  }
+}
+
+let Spec;
+
+let initialState = {
+  exists: false,
+  currentPrice: 0.0
+};
+
+let moduleUrl = "@reventlessdev/online-shop-dcb-catalog/src/Product/StateChangeSlice/ChangeProductPrice_Behavior.res.mjs";
+
+export {
+  Spec,
+  initialState,
+  evolve,
+  decide,
+  moduleUrl,
+}
+/* No side effect */

package/src/Product/StateChangeSlice/RecordProductDemand.res

@@ -0,0 +1,30 @@
+// RecordProductDemand StateChangeSlice.
+// Records and revokes per-product order demand driven by Ordering's extension point events.
+@@reventless.spec
+
+@schema
+type consumedEvent =
+  | ProductDemandRecorded({orderId: string})
+  | ProductDemandRevoked({orderId: string})
+
+// Not a UI/API command — driven only by Ordering's extension-point events.
+// @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 =
+  | RecordDemand({productId: string, orderId: string})
+  | RevokeDemand({productId: string, orderId: string})
+
+@schema
+type error = unit // always succeeds — demand recording is idempotent
+
+@schema
+type event =
+  | ProductDemandRecorded({
+      @partitionTag productId: string,
+      orderId: string,
+    })
+  | ProductDemandRevoked({
+      @partitionTag productId: string,
+      orderId: string,
+    })

package/src/Product/StateChangeSlice/RecordProductDemand.res.mjs

@@ -0,0 +1,71 @@
+// 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: "ProductDemandRecorded",
+    orderId: s.m(DcbTag$Reventless.string)
+  })),
+  S.schema(s => ({
+    TAG: "ProductDemandRevoked",
+    orderId: s.m(DcbTag$Reventless.string)
+  }))
+]);
+
+let commandSchema = S.union([
+  S.schema(s => ({
+    TAG: "RecordDemand",
+    productId: s.m(DcbTag$Reventless.string),
+    orderId: s.m(DcbTag$Reventless.string)
+  })),
+  S.schema(s => ({
+    TAG: "RevokeDemand",
+    productId: s.m(DcbTag$Reventless.string),
+    orderId: s.m(DcbTag$Reventless.string)
+  }))
+]);
+
+let eventSchema = S.union([
+  S.schema(s => ({
+    TAG: "ProductDemandRecorded",
+    productId: s.m(DcbTag$Reventless.partition),
+    orderId: s.m(DcbTag$Reventless.string)
+  })),
+  S.schema(s => ({
+    TAG: "ProductDemandRevoked",
+    productId: s.m(DcbTag$Reventless.partition),
+    orderId: s.m(DcbTag$Reventless.string)
+  }))
+]);
+
+let commandSchema$1 = Api$ReventlessInfra.markNoApi(commandSchema);
+
+function commandAuthorization(param) {
+  return "AllowAuthenticated";
+}
+
+let name = "RecordProductDemand";
+
+let Id;
+
+let errorSchema = S.unit;
+
+let moduleUrl = "@reventlessdev/online-shop-dcb-catalog/src/Product/StateChangeSlice/RecordProductDemand.res.mjs";
+
+let readConsistency = "EscalateOnRetry";
+
+export {
+  name,
+  Id,
+  consumedEventSchema,
+  errorSchema,
+  eventSchema,
+  commandSchema$1 as commandSchema,
+  moduleUrl,
+  commandAuthorization,
+  readConsistency,
+}
+/* consumedEventSchema Not a pure module */

package/src/Product/StateChangeSlice/RecordProductDemand_Behavior.res

@@ -0,0 +1,30 @@
+@@reventless.behavior
+
+type state = {recordedOrderIds: array<string>}
+let initialState = {recordedOrderIds: []}
+
+let evolve = (state, event) =>
+  switch event {
+  | ProductDemandRecorded({orderId}) => {
+      recordedOrderIds: Array.concat(state.recordedOrderIds, [orderId]),
+    }
+  | ProductDemandRevoked({orderId}) => {
+      recordedOrderIds: state.recordedOrderIds->Array.filter(id => id !== orderId),
+    }
+  }
+
+let decide = (state, command) =>
+  switch command {
+  | RecordDemand({productId, orderId}) =>
+    if state.recordedOrderIds->Array.includes(orderId) {
+      Ok([]) // idempotent
+    } else {
+      Ok([ProductDemandRecorded({productId, orderId})])
+    }
+  | RevokeDemand({productId, orderId}) =>
+    if !(state.recordedOrderIds->Array.includes(orderId)) {
+      Ok([]) // idempotent
+    } else {
+      Ok([ProductDemandRevoked({productId, orderId})])
+    }
+  }

package/src/Product/StateChangeSlice/RecordProductDemand_Behavior.res.mjs

@@ -0,0 +1,68 @@
+// Generated by ReScript, PLEASE EDIT WITH CARE
+
+
+let initialState = {
+  recordedOrderIds: []
+};
+
+function evolve(state, event) {
+  if (event.TAG === "ProductDemandRecorded") {
+    return {
+      recordedOrderIds: state.recordedOrderIds.concat([event.orderId])
+    };
+  }
+  let orderId = event.orderId;
+  return {
+    recordedOrderIds: state.recordedOrderIds.filter(id => id !== orderId)
+  };
+}
+
+function decide(state, command) {
+  if (command.TAG === "RecordDemand") {
+    let orderId = command.orderId;
+    if (state.recordedOrderIds.includes(orderId)) {
+      return {
+        TAG: "Ok",
+        _0: []
+      };
+    } else {
+      return {
+        TAG: "Ok",
+        _0: [{
+            TAG: "ProductDemandRecorded",
+            productId: command.productId,
+            orderId: orderId
+          }]
+      };
+    }
+  }
+  let orderId$1 = command.orderId;
+  if (state.recordedOrderIds.includes(orderId$1)) {
+    return {
+      TAG: "Ok",
+      _0: [{
+          TAG: "ProductDemandRevoked",
+          productId: command.productId,
+          orderId: orderId$1
+        }]
+    };
+  } else {
+    return {
+      TAG: "Ok",
+      _0: []
+    };
+  }
+}
+
+let Spec;
+
+let moduleUrl = "@reventlessdev/online-shop-dcb-catalog/src/Product/StateChangeSlice/RecordProductDemand_Behavior.res.mjs";
+
+export {
+  Spec,
+  initialState,
+  evolve,
+  decide,
+  moduleUrl,
+}
+/* No side effect */

package/src/Product/StateViewSlice/ProductDemand.res

@@ -0,0 +1,12 @@
+// ProductDemand StateViewSlice.
+// Projects catalog events into a per-product demand counter (order count).
+@@reventless.spec
+
+@schema
+type state = {productId: string, name: string, orderCount: int}
+
+@schema
+type consumedEvent =
+  | ProductAdded({productId: string, name: string})
+  | ProductDemandRecorded({productId: string})
+  | ProductDemandRevoked({productId: string})