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

package/lib/bs/src/Product/InboundTranslationSlice/ImportProduct.res.mjs

@@ -0,0 +1,43 @@
+// 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 externalInputSchema = S.schema(s => ({
+  sku: s.m(S.string),
+  title: s.m(S.string),
+  desc: s.m(S.string),
+  unitPrice: s.m(S.int),
+  currency: s.m(S.string)
+}));
+
+let commandSchema = S.schema(s => ({
+  TAG: "AddProduct",
+  productId: s.m(DcbTag$Reventless.string),
+  name: s.m(S.string),
+  description: s.m(S.string),
+  price: s.m(S.float)
+}));
+
+function commandAuthorization(param) {
+  return "AllowAuthenticated";
+}
+
+let name = "ImportProduct";
+
+let Id;
+
+let targetName = "AddProduct";
+
+let moduleUrl = "@reventlessdev/online-shop-dcb-catalog/src/Product/InboundTranslationSlice/ImportProduct.res.mjs";
+
+export {
+  name,
+  Id,
+  externalInputSchema,
+  commandSchema,
+  targetName,
+  moduleUrl,
+  commandAuthorization,
+}
+/* externalInputSchema Not a pure module */

package/lib/bs/src/Product/InboundTranslationSlice/ImportProduct_Translation.res

@@ -0,0 +1,20 @@
+@@reventless.translation
+
+let translate = input =>
+  if input.currency !== "USD" {
+    Error("Unsupported currency: " ++ input.currency)
+  } else if input.unitPrice <= 0 {
+    Error("Price must be positive")
+  } else if input.sku === "" {
+    Error("SKU is required")
+  } else {
+    Ok([(
+      input.sku,
+      AddProduct({
+        productId: input.sku,
+        name: input.title,
+        description: input.desc,
+        price: Int.toFloat(input.unitPrice) /. 100.0,
+      }),
+    )])
+  }

package/lib/bs/src/Product/InboundTranslationSlice/ImportProduct_Translation.res.mjs

@@ -0,0 +1,46 @@
+// Generated by ReScript, PLEASE EDIT WITH CARE
+
+
+function translate(input) {
+  if (input.currency !== "USD") {
+    return {
+      TAG: "Error",
+      _0: "Unsupported currency: " + input.currency
+    };
+  } else if (input.unitPrice <= 0) {
+    return {
+      TAG: "Error",
+      _0: "Price must be positive"
+    };
+  } else if (input.sku === "") {
+    return {
+      TAG: "Error",
+      _0: "SKU is required"
+    };
+  } else {
+    return {
+      TAG: "Ok",
+      _0: [[
+          input.sku,
+          {
+            TAG: "AddProduct",
+            productId: input.sku,
+            name: input.title,
+            description: input.desc,
+            price: input.unitPrice / 100.0
+          }
+        ]]
+    };
+  }
+}
+
+let Spec;
+
+let moduleUrl = "@reventlessdev/online-shop-dcb-catalog/src/Product/InboundTranslationSlice/ImportProduct_Translation.res.mjs";
+
+export {
+  Spec,
+  translate,
+  moduleUrl,
+}
+/* No side effect */

package/lib/bs/src/Product/StateChangeSlice/AddProduct.res

@@ -0,0 +1,28 @@
+// AddProduct StateChangeSlice.
+// Handles the AddProduct command; rejects duplicate creation via DCB optimistic concurrency.
+@@reventless.spec
+
+@schema
+type consumedEvent =
+  | ProductAdded
+
+@schema
+type command =
+  | AddProduct({
+      productId: string,
+      name: string,
+      description: string,
+      price: float,
+    })
+
+@schema
+type error = ProductAlreadyExists
+
+@schema
+type event =
+  | ProductAdded({
+      productId: string,
+      name: string,
+      description: string,
+      price: float,
+    })

package/lib/bs/src/Product/StateChangeSlice/AddProduct.res.mjs

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

package/lib/bs/src/Product/StateChangeSlice/AddProduct_Behavior.res

@@ -0,0 +1,20 @@
+@@reventless.behavior
+
+type state = {exists: bool}
+
+let initialState = {exists: false}
+
+let evolve = (_state, event) =>
+  switch event {
+  | ProductAdded => {exists: true}
+  }
+
+let decide = (state, command) =>
+  switch command {
+  | AddProduct({productId, name, description, price}) =>
+    if state.exists {
+      Error(ProductAlreadyExists)
+    } else {
+      Ok([ProductAdded({productId, name, description, price})])
+    }
+  }

package/lib/bs/src/Product/StateChangeSlice/AddProduct_Behavior.res.mjs

@@ -0,0 +1,45 @@
+// 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: "ProductAlreadyExists"
+    };
+  } else {
+    return {
+      TAG: "Ok",
+      _0: [{
+          TAG: "ProductAdded",
+          productId: command.productId,
+          name: command.name,
+          description: command.description,
+          price: command.price
+        }]
+    };
+  }
+}
+
+let Spec;
+
+let initialState = {
+  exists: false
+};
+
+let moduleUrl = "@reventlessdev/online-shop-dcb-catalog/src/Product/StateChangeSlice/AddProduct_Behavior.res.mjs";
+
+export {
+  Spec,
+  initialState,
+  evolve,
+  decide,
+  moduleUrl,
+}
+/* No side effect */

package/lib/bs/src/Product/StateChangeSlice/ChangeProductDescription.res

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

package/lib/bs/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/lib/bs/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/lib/bs/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/lib/bs/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/lib/bs/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/lib/bs/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/lib/bs/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/lib/bs/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})