@reventlessdev/reventless-core 3.0.0-alpha.134

package/src/ComponentType.res

@@ -0,0 +1,125 @@
+type t =
+  | Aggregate
+  | Counter
+  | Plugin
+  | CommandGenerator
+  | CommandTopic
+  | EventCollector
+  | EventLog
+  | EventMapper
+  | EventTopic
+  | ExtensionPoint
+  | Extension
+  | QueryDb
+  | ReadModel
+  | Scheduler
+  | Service
+  | SideEffectHandler
+  | Task
+  | Vpc
+  | Core
+  | Heartbeat
+  | Cloner
+  | DcbEventLog
+  | StateChangeSlice
+  | StateViewSlice
+  | AutomationSlice
+  | OutboundTranslationSlice
+  | InboundTranslationSlice
+
+let toString = componentType =>
+  switch componentType {
+  | Aggregate => "Aggregate"
+  | Counter => "Counter"
+  | Plugin => "Plugin"
+  | CommandGenerator => "CommandGenerator"
+  | CommandTopic => "CommandTopic"
+  | EventCollector => "EventCollector"
+  | EventLog => "EventLog"
+  | EventMapper => "EventMapper"
+  | EventTopic => "EventTopic"
+  | ExtensionPoint => "ExtensionPoint"
+  | Extension => "Extension"
+  | QueryDb => "QueryDB"
+  | ReadModel => "ReadModel"
+  | Scheduler => "Scheduler"
+  | Service => "Service"
+  | SideEffectHandler => "SideEffectHandler"
+  | Task => "Task"
+  | Vpc => "Vpc"
+  | Core => "Core"
+  | Heartbeat => "Heartbeat"
+  | Cloner => "Cloner"
+  | DcbEventLog => "DcbEventLog"
+  | StateChangeSlice => "StateChangeSlice"
+  | StateViewSlice => "StateViewSlice"
+  | AutomationSlice => "AutomationSlice"
+  | OutboundTranslationSlice => "OutboundTranslationSlice"
+  | InboundTranslationSlice => "InboundTranslationSlice"
+  }
+
+let ofString = str =>
+  switch str {
+  | "Aggregate" => Aggregate->Some
+  | "Counter" => Counter->Some
+  | "Plugin" => Plugin->Some
+  | "CommandGenerator" => CommandGenerator->Some
+  | "CommandTopic" => CommandTopic->Some
+  | "EventCollector" => EventCollector->Some
+  | "EventLog" => EventLog->Some
+  | "EventMapper" => EventMapper->Some
+  | "EventTopic" => EventTopic->Some
+  | "ExtensionPoint" => ExtensionPoint->Some
+  | "Extension" => Extension->Some
+  | "QueryDB" => QueryDb->Some
+  | "ReadModel" => ReadModel->Some
+  | "Scheduler" => Scheduler->Some
+  | "Service" => Service->Some
+  | "SideEffectHandler" => SideEffectHandler->Some
+  | "Task" => Task->Some
+  | "Vpc" => Vpc->Some
+  | "Core" => Core->Some
+  | "Heartbeat" => Heartbeat->Some
+  | "Cloner" => Cloner->Some
+  | "DcbEventLog" => DcbEventLog->Some
+  | "StateChangeSlice" => StateChangeSlice->Some
+  | "StateViewSlice" => StateViewSlice->Some
+  | "AutomationSlice" => AutomationSlice->Some
+  | "OutboundTranslationSlice" => OutboundTranslationSlice->Some
+  | "InboundTranslationSlice" => InboundTranslationSlice->Some
+  | _ => None
+  }
+
+let toName = componentType =>
+  switch componentType {
+  | Aggregate => "Aggr"
+  | Counter => "Counter"
+  | Plugin => "Plugin"
+  | CommandGenerator => "CmdGen"
+  | CommandTopic => "CmdTopic"
+  | EventCollector => "EventColl"
+  | EventLog => "EventLog"
+  | EventMapper => "EventMapper"
+  | EventTopic => "EventTopic"
+  | ExtensionPoint => "ExtPoint"
+  | Extension => "Extension"
+  | QueryDb => "QueryDb"
+  | ReadModel => "ReadModel"
+  | Scheduler => "Scheduler"
+  | Service => "Service"
+  | SideEffectHandler => "SideEffectHandler"
+  | Task => "Task"
+  | Vpc => "Vpc"
+  | Core => "Core"
+  | Heartbeat => "Heartbeat"
+  | Cloner => "Cloner"
+  | DcbEventLog => "DcbEventLog"
+  | StateChangeSlice => "StateChangeSlice"
+  | StateViewSlice => "StateViewSlice"
+  | AutomationSlice => "AutomationSlice"
+  | OutboundTranslationSlice => "OutboundTranslationSlice"
+  | InboundTranslationSlice => "InboundTranslationSlice"
+  }
+
+let name = (name, t) => name ++ t->toName
+let nameOpt = (name, t) => name->Option.getOr("") ++ t->toName

package/src/ComponentType.res.mjs

@@ -0,0 +1,199 @@
+// Generated by ReScript, PLEASE EDIT WITH CARE
+
+import * as Stdlib_Option from "@rescript/runtime/lib/es6/Stdlib_Option.js";
+
+function toString(componentType) {
+  switch (componentType) {
+    case "Aggregate" :
+      return "Aggregate";
+    case "Counter" :
+      return "Counter";
+    case "Plugin" :
+      return "Plugin";
+    case "CommandGenerator" :
+      return "CommandGenerator";
+    case "CommandTopic" :
+      return "CommandTopic";
+    case "EventCollector" :
+      return "EventCollector";
+    case "EventLog" :
+      return "EventLog";
+    case "EventMapper" :
+      return "EventMapper";
+    case "EventTopic" :
+      return "EventTopic";
+    case "ExtensionPoint" :
+      return "ExtensionPoint";
+    case "Extension" :
+      return "Extension";
+    case "QueryDb" :
+      return "QueryDB";
+    case "ReadModel" :
+      return "ReadModel";
+    case "Scheduler" :
+      return "Scheduler";
+    case "Service" :
+      return "Service";
+    case "SideEffectHandler" :
+      return "SideEffectHandler";
+    case "Task" :
+      return "Task";
+    case "Vpc" :
+      return "Vpc";
+    case "Core" :
+      return "Core";
+    case "Heartbeat" :
+      return "Heartbeat";
+    case "Cloner" :
+      return "Cloner";
+    case "DcbEventLog" :
+      return "DcbEventLog";
+    case "StateChangeSlice" :
+      return "StateChangeSlice";
+    case "StateViewSlice" :
+      return "StateViewSlice";
+    case "AutomationSlice" :
+      return "AutomationSlice";
+    case "OutboundTranslationSlice" :
+      return "OutboundTranslationSlice";
+    case "InboundTranslationSlice" :
+      return "InboundTranslationSlice";
+  }
+}
+
+function ofString(str) {
+  switch (str) {
+    case "Aggregate" :
+      return "Aggregate";
+    case "AutomationSlice" :
+      return "AutomationSlice";
+    case "Cloner" :
+      return "Cloner";
+    case "CommandGenerator" :
+      return "CommandGenerator";
+    case "CommandTopic" :
+      return "CommandTopic";
+    case "Core" :
+      return "Core";
+    case "Counter" :
+      return "Counter";
+    case "DcbEventLog" :
+      return "DcbEventLog";
+    case "EventCollector" :
+      return "EventCollector";
+    case "EventLog" :
+      return "EventLog";
+    case "EventMapper" :
+      return "EventMapper";
+    case "EventTopic" :
+      return "EventTopic";
+    case "Extension" :
+      return "Extension";
+    case "ExtensionPoint" :
+      return "ExtensionPoint";
+    case "Heartbeat" :
+      return "Heartbeat";
+    case "InboundTranslationSlice" :
+      return "InboundTranslationSlice";
+    case "OutboundTranslationSlice" :
+      return "OutboundTranslationSlice";
+    case "Plugin" :
+      return "Plugin";
+    case "QueryDB" :
+      return "QueryDb";
+    case "ReadModel" :
+      return "ReadModel";
+    case "Scheduler" :
+      return "Scheduler";
+    case "Service" :
+      return "Service";
+    case "SideEffectHandler" :
+      return "SideEffectHandler";
+    case "StateChangeSlice" :
+      return "StateChangeSlice";
+    case "StateViewSlice" :
+      return "StateViewSlice";
+    case "Task" :
+      return "Task";
+    case "Vpc" :
+      return "Vpc";
+    default:
+      return;
+  }
+}
+
+function toName(componentType) {
+  switch (componentType) {
+    case "Aggregate" :
+      return "Aggr";
+    case "Counter" :
+      return "Counter";
+    case "Plugin" :
+      return "Plugin";
+    case "CommandGenerator" :
+      return "CmdGen";
+    case "CommandTopic" :
+      return "CmdTopic";
+    case "EventCollector" :
+      return "EventColl";
+    case "EventLog" :
+      return "EventLog";
+    case "EventMapper" :
+      return "EventMapper";
+    case "EventTopic" :
+      return "EventTopic";
+    case "ExtensionPoint" :
+      return "ExtPoint";
+    case "Extension" :
+      return "Extension";
+    case "QueryDb" :
+      return "QueryDb";
+    case "ReadModel" :
+      return "ReadModel";
+    case "Scheduler" :
+      return "Scheduler";
+    case "Service" :
+      return "Service";
+    case "SideEffectHandler" :
+      return "SideEffectHandler";
+    case "Task" :
+      return "Task";
+    case "Vpc" :
+      return "Vpc";
+    case "Core" :
+      return "Core";
+    case "Heartbeat" :
+      return "Heartbeat";
+    case "Cloner" :
+      return "Cloner";
+    case "DcbEventLog" :
+      return "DcbEventLog";
+    case "StateChangeSlice" :
+      return "StateChangeSlice";
+    case "StateViewSlice" :
+      return "StateViewSlice";
+    case "AutomationSlice" :
+      return "AutomationSlice";
+    case "OutboundTranslationSlice" :
+      return "OutboundTranslationSlice";
+    case "InboundTranslationSlice" :
+      return "InboundTranslationSlice";
+  }
+}
+
+function name(name$1, t) {
+  return name$1 + toName(t);
+}
+
+function nameOpt(name, t) {
+  return Stdlib_Option.getOr(name, "") + toName(t);
+}
+
+export {
+  toString,
+  ofString,
+  toName,
+  name,
+  nameOpt,
+}
+/* No side effect */

package/src/Env.res

@@ -0,0 +1,5 @@
+@val
+external pulumiOrganization: option<string> = "process.env.PULUMI_ORGANIZATION"
+
+@val
+external restoreDateTime: option<string> = "process.env.RESTORE_DATE_TIME"

package/src/Env.res.mjs

@@ -0,0 +1,2 @@
+// Generated by ReScript, PLEASE EDIT WITH CARE
+/* This output is empty. Its source's type definitions, externals and/or unused code got optimized away. */

package/src/Mapper.res

@@ -0,0 +1,36 @@
+type encode<'a> = 'a => JSON.t
+type decode<'a> = JSON.t => 'a
+
+module type GenericSource = {
+  let name: string
+  type t
+  let decode': decode<Message.event'<string, t>> // why decode' ?
+}
+
+module type GenericTarget = {
+  let name: string
+  type t
+  let decode: decode<t>
+  let encode: encode<t>
+}
+
+module type EventSource = {
+  module Id: Reventless.Id.T
+  let name: string
+  @schema
+  type event
+}
+
+module type CommandTarget = {
+  let name: string
+  @schema
+  type command
+}
+
+// TODO: en/decode command'
+module MakeGenericTargetFromCommandTarget = (CommandTarget: CommandTarget): GenericTarget => {
+  let name = CommandTarget.name
+  type t = CommandTarget.command
+  let decode = json => json->Message.decode(CommandTarget.commandSchema)
+  let encode = cmd => cmd->Message.encode(CommandTarget.commandSchema)
+}

package/src/Mapper.res.mjs

@@ -0,0 +1,18 @@
+// Generated by ReScript, PLEASE EDIT WITH CARE
+
+import * as Message$ReventlessCore from "./Message.res.mjs";
+
+function MakeGenericTargetFromCommandTarget(CommandTarget) {
+  let decode = json => Message$ReventlessCore.decode(json, CommandTarget.commandSchema);
+  let encode = cmd => Message$ReventlessCore.encode(cmd, CommandTarget.commandSchema);
+  return {
+    name: CommandTarget.name,
+    decode: decode,
+    encode: encode
+  };
+}
+
+export {
+  MakeGenericTargetFromCommandTarget,
+}
+/* Message-ReventlessCore Not a pure module */

package/src/Mapper1toN.res

@@ -0,0 +1,107 @@
+// TODO
+
+// module type Spec = {
+//   module type Source;
+//   module type Target;
+//   // module ToGenericSource: (Source) => GenericSource;
+//   // module ToGenericTarget: (Target) => GenericTarget;
+//   type action('a);
+//   type abstractAction;
+//   let toAbstractAction:
+//     (
+//       action('a),
+//       JSON.t => result('a, Decco.decodeError),
+//       'a => JSON.t
+//     ) =>
+//     abstractAction;
+// };
+// module type MappingImpl = {
+//   module Spec: Spec; // to be removed via destructive replace in functor call
+//   module Source: GenericSource;
+//   module Target: GenericTarget;
+//   [@schema]
+//   type source;
+//   [@schema]
+//   type target;
+//   let map: (source, Reventless.Message.context) => Spec.action(target);
+// };
+//   module type Mapping = {
+//     module Spec: Spec; // to be removed via destructive replace in functor call
+//     module Source: GenericSource;
+//     let targetName: string;
+//     let map: JSON.t => Spec.action(JSON.t);
+//   };
+//   module Mapping =
+//          (
+//            Spec: Spec,
+//            Source: Spec.Source,
+//            Target: Spec.Target,
+//            Impl: MappingImpl with module Spec := Spec and
+//                           type source := Spec.ToGenericSource(Source).t and
+//                type target := Spec.ToGenericTarget(Target).t,
+//          )
+//            : (
+//              Mapping with
+//                module Spec := Spec and
+//                module Source := Spec.ToGenericSource(Impl.Source)
+//          ) => {
+//     module Source = Spec.ToGenericSource(Impl.Source);
+//     module Target = Spec.ToGenericTarget(Impl.Target);
+//     let targetName = Target.name;
+//     let map = json => {
+//       switch (
+//         json->Reventless.Message.context_decode,
+//         json->Source.decode,
+//       ) {
+//       | (Ok(context), Ok(source)) =>
+//         source
+//         ->Impl.map(context)
+//         ->Spec.toAbstractAction(Target.decode, Target.encode)
+//       | _ =>
+//         Js.Exn.raiseError(
+//           "Couldn't decode source:" ++ json->JSON.stringify,
+//         )
+//       };
+//     };
+//   };
+//   module type Mappings = {
+//     module Spec: Spec; // to be removed via destructive replace in functor call
+//     module Source: GenericSource; // to be removed via destructive replace in functor call
+//     module type Mapping =
+//       Mapping with module Spec := Spec and module Source := Source;
+//     let mappings: array(module Mapping);
+//   };
+//   module type Mapper = {
+//     module Spec: Spec; // to be removed via destructive replace in functor call
+//     let map:
+//       (~targetName: option(string), JSON.t) =>
+//       array(Spec.action(JSON.t));
+//   };
+//   module Mapper =
+//          (
+//            Spec: Spec,
+//            Source: GenericSource,
+//            Mappings:
+//              Mappings with module Spec := Spec and module Source := Source,
+//          )
+//          : (Mapper with module Spec := Spec) => {
+//     let findMappings = (targetNameOpt, mappings) =>
+//       targetNameOpt->Option.mapOr([||], targetName =>
+//         mappings->Array.filter((module Mapping: Mappings.Mapping) =>
+//           Mapping.targetName == targetName
+//         )
+//       );
+//     let map = (~targetName, json) =>
+//       findMappings(targetName, Mappings.mappings)
+//       ->Array.filterMap((module Mapping: Mappings.Mapping) =>
+//           try (Some(json->Mapping.map)) {
+//           | exn =>
+//             Console.log2(
+//               "Mapping failed:",
+//               exn->Js.Exn.asJsExn->Option.map(Js.Exn.message),
+//             );
+//             None;
+//           }
+//         );
+//   };
+

package/src/Mapper1toN.res.mjs

@@ -0,0 +1,2 @@
+// Generated by ReScript, PLEASE EDIT WITH CARE
+/* This output is empty. Its source's type definitions, externals and/or unused code got optimized away. */

package/src/MapperNto1.res

@@ -0,0 +1,78 @@
+type mapGeneric<'action> = JSON.t => 'action
+type mapImpl<'msg, 'action> = 'msg => 'action
+
+let makeGenericMap: (Mapper.decode<'msg>, mapImpl<'msg, 'action>) => mapGeneric<'action> = (
+  decode,
+  map,
+) => json => json->decode->map
+
+module type Spec = {
+  module type Source
+  module type Target
+
+  type action<'id, 'a>
+}
+
+module type Mapper = {
+  type targetState
+  type action<'id, 'state>
+  let map: (~sourceName: option<string>, JSON.t) => array<action<'id, 'state>>
+}
+
+module type Mapping = {
+  module Spec: Spec // to be removed via destructive replace in functor call
+  let sourceName: string
+  /**
+  Variant TAGs declared by this mapping's source-event schema. The mapping
+  pipeline pre-filters incoming JSON by TAG and only invokes `project` for
+  variants in this list — sibling variants on the same source log are
+  silently skipped without any decode attempt.
+  */
+  let acceptedTags: array<string>
+  type target
+
+  let project: JSON.t => Spec.action<string, target>
+}
+
+module type Mappings = {
+  module Spec: Spec // to be removed via destructive replace in functor call
+  module Target: Mapper.GenericTarget // to be removed via destructive replace in functor call
+  module type Mapping = Mapping with module Spec := Spec and type target := Target.t
+  let mappings: array<module(Mapping)>
+}
+
+module Mapper = (
+  Spec: Spec,
+  Target: Mapper.GenericTarget,
+  Mappings: Mappings with module Spec := Spec and module Target := Target,
+): (
+  Mapper
+    with type targetState := Target.t
+    and type action<'id, 'state> := Spec.action<string, Target.t>
+) => {
+  let findMappings = (sourceNameOpt, mappings) =>
+    sourceNameOpt->Option.mapOr([], sourceName =>
+      mappings->Array.filter((module(Mapping: Mappings.Mapping)) =>
+        Mapping.sourceName == sourceName
+      )
+    )
+
+  let variantTagOfEnvelope = json =>
+    json
+    ->JSON.Decode.object
+    ->Option.flatMap(d => d->Dict.get("event"))
+    ->Option.map(Message.variantNameOfJson)
+    ->Option.getOr("unknown")
+
+  let map = (~sourceName, json) => {
+    let tag = variantTagOfEnvelope(json)
+    findMappings(
+      sourceName,
+      Mappings.mappings,
+    )->Array.filterMap((module(Mapping: Mappings.Mapping)) =>
+      // Skip silently when the variant is not in this mapping's source schema —
+      // the mapping has explicitly opted out of these variants.
+      Mapping.acceptedTags->Array.includes(tag) ? Some(json->Mapping.project) : None
+    )
+  }
+}

package/src/MapperNto1.res.mjs

@@ -0,0 +1,35 @@
+// Generated by ReScript, PLEASE EDIT WITH CARE
+
+import * as Stdlib_JSON from "@rescript/runtime/lib/es6/Stdlib_JSON.js";
+import * as Stdlib_Array from "@rescript/runtime/lib/es6/Stdlib_Array.js";
+import * as Stdlib_Option from "@rescript/runtime/lib/es6/Stdlib_Option.js";
+import * as Primitive_option from "@rescript/runtime/lib/es6/Primitive_option.js";
+import * as Message$ReventlessCore from "./Message.res.mjs";
+
+function makeGenericMap(decode, map) {
+  return json => map(decode(json));
+}
+
+function Mapper(Spec) {
+  return Target => (Mappings => {
+    let findMappings = (sourceNameOpt, mappings) => Stdlib_Option.mapOr(sourceNameOpt, [], sourceName => mappings.filter(Mapping => Mapping.sourceName === sourceName));
+    let variantTagOfEnvelope = json => Stdlib_Option.getOr(Stdlib_Option.map(Stdlib_Option.flatMap(Stdlib_JSON.Decode.object(json), d => d["event"]), Message$ReventlessCore.variantNameOfJson), "unknown");
+    let map = (sourceName, json) => {
+      let tag = variantTagOfEnvelope(json);
+      return Stdlib_Array.filterMap(findMappings(sourceName, Mappings.mappings), Mapping => {
+        if (Mapping.acceptedTags.includes(tag)) {
+          return Primitive_option.some(Mapping.project(json));
+        }
+      });
+    };
+    return {
+      map: map
+    };
+  });
+}
+
+export {
+  makeGenericMap,
+  Mapper,
+}
+/* Message-ReventlessCore Not a pure module */