@reventlessdev/reventless-local 3.0.0-alpha.114 → 3.0.0-alpha.116

package/src/Platform.res.mjs

@@ -4,15 +4,14 @@ import * as S from "sury/src/S.res.mjs";
 import * as Stream from "@reventlessdev/rescript-effect/src/Stream.res.mjs";
 import * as Stdlib_Int from "@rescript/runtime/lib/es6/Stdlib_Int.js";
 import * as Stdlib_Bool from "@rescript/runtime/lib/es6/Stdlib_Bool.js";
-import * as Stdlib_Dict from "@rescript/runtime/lib/es6/Stdlib_Dict.js";
 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 Id$Reventless from "@reventlessdev/reventless-spec/src/types/Id.res.mjs";
 import * as Stdlib_Option from "@rescript/runtime/lib/es6/Stdlib_Option.js";
 import * as Stdlib_String from "@rescript/runtime/lib/es6/Stdlib_String.js";
 import * as Effect from "effect/Effect";
-import * as Stream$1 from "effect/Stream";
 import * as Pulumi from "@pulumi/pulumi";
+import * as Stdlib_Promise from "@rescript/runtime/lib/es6/Stdlib_Promise.js";
 import * as Plugin$Reventless from "@reventlessdev/reventless-spec/src/components/Plugin.res.mjs";
 import * as Logger$ReventlessCore from "@reventlessdev/reventless-core/src/util/Logger.res.mjs";
 import * as Plugin$ReventlessCore from "@reventlessdev/reventless-core/src/plugin/component/Plugin.res.mjs";
@@ -47,12 +46,15 @@ import * as Scheduler_Builder$ReventlessCore from "@reventlessdev/reventless-cor
 import * as Aggregate_Builder$ReventlessLocal from "./components/Aggregate_Builder.res.mjs";
 import * as LocalClonerRunner$ReventlessLocal from "./adapter/Cloner/LocalClonerRunner.res.mjs";
 import * as PluginBaseFragment$ReventlessCore from "@reventlessdev/reventless-core/src/plugin/api/PluginBaseFragment.res.mjs";
+import * as ProjectionPending$ReventlessLocal from "./adapter/ProjectionPending.res.mjs";
 import * as ReadModel_Builder$ReventlessLocal from "./components/ReadModel_Builder.res.mjs";
 import * as PlatformMCP_Server$ReventlessLocal from "./adapter/PlatformMCP_Server.res.mjs";
 import * as Auth_GraphqlContext$ReventlessLocal from "./adapter/Auth/Auth_GraphqlContext.res.mjs";
 import * as PluginsReadModelSpec$ReventlessCore from "@reventlessdev/reventless-core/src/plugin/lifecycle/PluginsReadModelSpec.res.mjs";
 import * as DomainGraphQL_Server$ReventlessLocal from "./adapter/DomainGraphQL_Server.res.mjs";
+import * as EventPublish_Callback$ReventlessCore from "@reventlessdev/reventless-core/src/components/EventLog/EventPublish_Callback.res.mjs";
 import * as LocalGraphQL_Adapter$ReventlessLocal from "./adapter/Api/LocalGraphQL_Adapter.res.mjs";
+import * as ProjectionCheckpoint$ReventlessLocal from "./adapter/ProjectionCheckpoint.res.mjs";
 import * as ExtensionPointMapping$ReventlessInfra from "@reventlessdev/reventless-infra/src/types/ExtensionPointMapping.res.mjs";
 import * as EventLogStorage_Sqlite$ReventlessLocal from "./adapter/EventLog/EventLogStorage_Sqlite.res.mjs";
 import * as ExtensionPoint_Builder$ReventlessLocal from "./components/ExtensionPoint_Builder.res.mjs";
@@ -63,6 +65,7 @@ import * as AutomationSlice_Builder$ReventlessLocal from "./components/Automatio
 import * as LocalRuntimeEnvironment$ReventlessLocal from "./adapter/Runtime/LocalRuntimeEnvironment.res.mjs";
 import * as LocalScheduledPublisher$ReventlessLocal from "./adapter/Scheduler/LocalScheduledPublisher.res.mjs";
 import * as Platform_Admin_Structure$ReventlessCore from "@reventlessdev/reventless-core/src/admin/Platform_Admin_Structure.res.mjs";
+import * as QueryDbStorage_InMemory$ReventlessLocal from "./adapter/QueryDb/QueryDbStorage_InMemory.res.mjs";
 import * as LocalCommandTopicChannel$ReventlessLocal from "./adapter/CommandTopic/LocalCommandTopicChannel.res.mjs";
 import * as LocalEventTopicPublisher$ReventlessLocal from "./adapter/EventTopic/LocalEventTopicPublisher.res.mjs";
 import * as StateChangeSlice_Builder$ReventlessLocal from "./components/StateChangeSlice_Builder.res.mjs";
@@ -94,6 +97,14 @@ let platformMCPRef = {
   contents: undefined
 };
 
+function decodePluginEventEnvelope(eventJson) {
+  try {
+    return Stdlib_Option.map(Stdlib_Option.flatMap(Stdlib_JSON.Decode.object(eventJson), d => d["event"]), payload => S.parseJsonOrThrow(payload, PluginSpec$ReventlessCore.eventSchema));
+  } catch (exn) {
+    return;
+  }
+}
+
 function MakeWithConfig(Config) {
   TestRunner$ReventlessLocal.setup();
   let match = Config.backend;
@@ -107,6 +118,12 @@ function MakeWithConfig(Config) {
     let db = SqliteDriver$ReventlessLocal.openDb(path);
     BackendState$ReventlessLocal.setSqlite(db, path);
     LocalBus$ReventlessLocal.seedEventTapSeq(EventLogStorage_Sqlite$ReventlessLocal.countAll(db) + DcbEventLogStorage_Sqlite$ReventlessLocal.countAll(db) | 0);
+    ProjectionPending$ReventlessLocal.enableTracking();
+    EventPublish_Callback$ReventlessCore.registerAfterPublish(async publishedEvent => {
+      let metas = publishedEvent.metas;
+      let msgIds = metas !== undefined ? metas.map(m => m.msgId) : Stdlib_Array.filterMap(publishedEvent.eventsJson, json => Stdlib_Option.flatMap(Stdlib_Option.flatMap(Stdlib_JSON.Decode.object(json), d => d["msgId"]), Stdlib_JSON.Decode.string));
+      return ProjectionCheckpoint$ReventlessLocal.completePublished(db, msgIds);
+    });
   }
   let Bus = LocalBus$ReventlessLocal.Impl({
     capacity: undefined,
@@ -268,7 +285,15 @@ function MakeWithConfig(Config) {
       let paginate = (events, getPosition) => {
         let filtered;
         if (after !== undefined) {
-          let idx = events.findIndex(e => Stdlib_Option.mapOr(getPosition(e), false, p => p > after));
+          let idx = events.findIndex(e => Stdlib_Option.mapOr(getPosition(e), false, p => {
+            let match = Stdlib_Int.fromString(p, undefined);
+            let match$1 = Stdlib_Int.fromString(after, undefined);
+            if (match !== undefined && match$1 !== undefined) {
+              return match > match$1;
+            } else {
+              return p > after;
+            }
+          }));
           filtered = idx >= 0 ? events.slice(idx, events.length) : [];
         } else {
           filtered = events;
@@ -630,6 +655,7 @@ function MakeWithConfig(Config) {
     initialState: PluginBehavior$ReventlessCore.initialState,
     evolve: PluginBehavior$ReventlessCore.evolve,
     decide: PluginBehavior$ReventlessCore.decide,
+    snapshot: undefined,
     moduleUrl: PluginBehavior$ReventlessCore.moduleUrl
   })(NoEventMappings$ReventlessInfra.Make({
     name: PluginSpec$ReventlessCore.name,
@@ -704,89 +730,14 @@ function MakeWithConfig(Config) {
   let uiFragmentQueryDbOpsRef = {
     contents: undefined
   };
+  let UIFragmentStorage = QueryDbStorage_InMemory$ReventlessLocal.Make(Bus);
   let ensureUIFragmentRegistryQueryDbStore = () => {
     let ops = uiFragmentQueryDbOpsRef.contents;
     if (ops !== undefined) {
       return ops;
     }
-    let store = {
-      contents: {}
-    };
-    let allItems = {
-      contents: []
-    };
-    let syncAll = () => {
-      allItems.contents = Object.entries(store.contents).flatMap(param => {
-        let id = param[0];
-        return param[1].map(item => {
-          let obj = Stdlib_Option.getOr(Stdlib_JSON.Decode.object(item), {});
-          if (Stdlib_Option.isSome(obj["id"])) {
-            return item;
-          }
-          let copy = {};
-          Object.entries(obj).forEach(param => {
-            copy[param[0]] = param[1];
-          });
-          copy["id"] = id;
-          return copy;
-        });
-      });
-    };
-    let ops_load = async id => ({
-      TAG: "Ok",
-      _0: Stdlib_Option.getOr(store.contents[id], [])
-    });
-    let ops_loadStream = id => Stream$1.fromIterable(Stdlib_Option.getOr(store.contents[id], []));
-    let ops_save = async (id, state, param, param$1) => {
-      store.contents[id] = [state];
-      syncAll();
-      return {
-        TAG: "Ok",
-        _0: undefined
-      };
-    };
-    let ops_saveBatch = async batch => {
-      batch.forEach(param => {
-        store.contents[param[0]] = [param[1]];
-      });
-      syncAll();
-      return {
-        TAG: "Ok",
-        _0: undefined
-      };
-    };
-    let ops_count = async (param, param$1, inc) => ({
-      TAG: "Ok",
-      _0: inc
-    });
-    let ops_delete = async (id, param) => {
-      Stdlib_Dict.$$delete(store.contents, id);
-      syncAll();
-      return {
-        TAG: "Ok",
-        _0: undefined
-      };
-    };
-    let ops_deleteBatch = async ids => {
-      ids.forEach(param => Stdlib_Dict.$$delete(store.contents, param[0]));
-      syncAll();
-      return {
-        TAG: "Ok",
-        _0: undefined
-      };
-    };
-    let ops$1 = {
-      load: ops_load,
-      loadStream: ops_loadStream,
-      save: ops_save,
-      saveBatch: ops_saveBatch,
-      count: ops_count,
-      delete: ops_delete,
-      deleteBatch: ops_deleteBatch
-    };
-    Bus.registerQueryDb(UIFragmentRegistryReadModelSpec$ReventlessCore.name, ops$1);
-    Bus.registerQueryDbScan(UIFragmentRegistryReadModelSpec$ReventlessCore.name, () => allItems.contents);
-    Bus.registerQueryDbStream(UIFragmentRegistryReadModelSpec$ReventlessCore.name, () => Stream$1.fromIterable(allItems.contents));
+    UIFragmentStorage.make(UIFragmentRegistryReadModelSpec$ReventlessCore.name, [], undefined, undefined, undefined, undefined, {});
+    let ops$1 = Stdlib_Option.getOrThrow(Bus.getQueryDb(UIFragmentRegistryReadModelSpec$ReventlessCore.name), undefined);
     uiFragmentQueryDbOpsRef.contents = ops$1;
     return ops$1;
   };
@@ -855,33 +806,31 @@ function MakeWithConfig(Config) {
       ]
     ]));
     Bus.subscribeToEvents(pluginEventTopicKey, async (_service, _meta, eventJson) => {
-      let def;
-      try {
-        def = S.convertOrThrow(eventJson, PluginSpec$ReventlessCore.eventSchema);
-      } catch (exn) {
+      let match = decodePluginEventEnvelope(eventJson);
+      if (match === undefined) {
         return;
       }
-      switch (def.TAG) {
+      switch (match.TAG) {
         case "VersionDisconnected" :
-          return publishStatus(def._0.name, "Disconnected");
+          return publishStatus(match._0.name, "Disconnected");
         case "VersionDeactivated" :
-          return publishStatus(def._0.name, "Inactive");
+          return publishStatus(match._0.name, "Inactive");
         case "VersionRetired" :
-          return publishStatus(def._0.name, "Retired");
+          return publishStatus(match._0.name, "Retired");
         case "VersionDetected" :
         case "VersionSuperseded" :
         case "IncompatiblePluginDetected" :
           return;
         case "UIFragmentRegistered" :
-          let data = def._0;
+          let data = match._0;
           return publishUIFragment(Plugin$ReventlessCore.name(data.pluginId), "Registered", S.reverseConvertToJsonOrThrow(data.manifest, Plugin$Reventless.uiFragmentManifestSchema));
         case "UIFragmentUpdated" :
-          let data$1 = def._0;
+          let data$1 = match._0;
           return publishUIFragment(Plugin$ReventlessCore.name(data$1.pluginId), "Updated", S.reverseConvertToJsonOrThrow(data$1.newManifest, Plugin$Reventless.uiFragmentManifestSchema));
         case "UIFragmentDeregistered" :
-          return publishUIFragment(Plugin$ReventlessCore.name(def._0.pluginId), "Deregistered", null);
+          return publishUIFragment(Plugin$ReventlessCore.name(match._0.pluginId), "Deregistered", null);
         default:
-          return publishStatus(def._0.name, "Connected");
+          return publishStatus(match._0.name, "Connected");
       }
     });
   };
@@ -1149,6 +1098,11 @@ function MakeWithConfig(Config) {
         match.resetOnStart ? ", resetOnStart" : ""
       ) + `)`;
     log.info("Platform", undefined, tmp);
+    let projectionCatchup = Stdlib_Option.map(BackendState$ReventlessLocal.getDb(), db => [
+      db,
+      ProjectionCheckpoint$ReventlessLocal.maxPosition(db, "Aggregate"),
+      ProjectionCheckpoint$ReventlessLocal.maxPosition(db, "Dcb")
+    ]);
     let scheduler = makeScheduler();
     hooks_scheduler.contents = scheduler;
     hooks_api.contents = {
@@ -1207,9 +1161,22 @@ function MakeWithConfig(Config) {
       adminResources: []
     });
     subscribeToPluginEvents();
-    connectPlugin(plugins$1);
-    seedUIFragmentRegistryQueryDb(plugins$1);
-    seedPluginStructuresStore(plugins$1);
+    let seedAdminStores = () => {
+      connectPlugin(plugins$1);
+      seedUIFragmentRegistryQueryDb(plugins$1);
+      seedPluginStructuresStore(plugins$1);
+    };
+    if (projectionCatchup !== undefined) {
+      Stdlib_Promise.$$catch(ProjectionCheckpoint$ReventlessLocal.startupCatchup(projectionCatchup[0], projectionCatchup[1], projectionCatchup[2], () => Bus.projectionCatchupHandlers()), e => {
+        console.error("[Platform] projection catch-up failed:", e);
+        return Promise.resolve();
+      }).then(() => {
+        seedAdminStores();
+        return Promise.resolve();
+      });
+    } else {
+      seedAdminStores();
+    }
     pluginStructuresStore.contents[Platform_Admin_Structure$ReventlessCore.pluginId] = Platform_Admin_Structure$ReventlessCore.structure;
     CommandGeneratorResolvers_GraphQL$ReventlessLocal.setPluginStatusGate(field => {
       let parts = field.split("_");
@@ -1766,6 +1733,12 @@ function Make($star) {
     let db = SqliteDriver$ReventlessLocal.openDb(path);
     BackendState$ReventlessLocal.setSqlite(db, path);
     LocalBus$ReventlessLocal.seedEventTapSeq(EventLogStorage_Sqlite$ReventlessLocal.countAll(db) + DcbEventLogStorage_Sqlite$ReventlessLocal.countAll(db) | 0);
+    ProjectionPending$ReventlessLocal.enableTracking();
+    EventPublish_Callback$ReventlessCore.registerAfterPublish(async publishedEvent => {
+      let metas = publishedEvent.metas;
+      let msgIds = metas !== undefined ? metas.map(m => m.msgId) : Stdlib_Array.filterMap(publishedEvent.eventsJson, json => Stdlib_Option.flatMap(Stdlib_Option.flatMap(Stdlib_JSON.Decode.object(json), d => d["msgId"]), Stdlib_JSON.Decode.string));
+      return ProjectionCheckpoint$ReventlessLocal.completePublished(db, msgIds);
+    });
   }
   let Bus = LocalBus$ReventlessLocal.Impl({
     capacity: undefined,
@@ -1921,7 +1894,15 @@ function Make($star) {
       let paginate = (events, getPosition) => {
         let filtered;
         if (after !== undefined) {
-          let idx = events.findIndex(e => Stdlib_Option.mapOr(getPosition(e), false, p => p > after));
+          let idx = events.findIndex(e => Stdlib_Option.mapOr(getPosition(e), false, p => {
+            let match = Stdlib_Int.fromString(p, undefined);
+            let match$1 = Stdlib_Int.fromString(after, undefined);
+            if (match !== undefined && match$1 !== undefined) {
+              return match > match$1;
+            } else {
+              return p > after;
+            }
+          }));
           filtered = idx >= 0 ? events.slice(idx, events.length) : [];
         } else {
           filtered = events;
@@ -2282,6 +2263,7 @@ function Make($star) {
     initialState: PluginBehavior$ReventlessCore.initialState,
     evolve: PluginBehavior$ReventlessCore.evolve,
     decide: PluginBehavior$ReventlessCore.decide,
+    snapshot: undefined,
     moduleUrl: PluginBehavior$ReventlessCore.moduleUrl
   })(NoEventMappings$ReventlessInfra.Make({
     name: PluginSpec$ReventlessCore.name,
@@ -2356,89 +2338,14 @@ function Make($star) {
   let uiFragmentQueryDbOpsRef = {
     contents: undefined
   };
+  let UIFragmentStorage = QueryDbStorage_InMemory$ReventlessLocal.Make(Bus);
   let ensureUIFragmentRegistryQueryDbStore = () => {
     let ops = uiFragmentQueryDbOpsRef.contents;
     if (ops !== undefined) {
       return ops;
     }
-    let store = {
-      contents: {}
-    };
-    let allItems = {
-      contents: []
-    };
-    let syncAll = () => {
-      allItems.contents = Object.entries(store.contents).flatMap(param => {
-        let id = param[0];
-        return param[1].map(item => {
-          let obj = Stdlib_Option.getOr(Stdlib_JSON.Decode.object(item), {});
-          if (Stdlib_Option.isSome(obj["id"])) {
-            return item;
-          }
-          let copy = {};
-          Object.entries(obj).forEach(param => {
-            copy[param[0]] = param[1];
-          });
-          copy["id"] = id;
-          return copy;
-        });
-      });
-    };
-    let ops_load = async id => ({
-      TAG: "Ok",
-      _0: Stdlib_Option.getOr(store.contents[id], [])
-    });
-    let ops_loadStream = id => Stream$1.fromIterable(Stdlib_Option.getOr(store.contents[id], []));
-    let ops_save = async (id, state, param, param$1) => {
-      store.contents[id] = [state];
-      syncAll();
-      return {
-        TAG: "Ok",
-        _0: undefined
-      };
-    };
-    let ops_saveBatch = async batch => {
-      batch.forEach(param => {
-        store.contents[param[0]] = [param[1]];
-      });
-      syncAll();
-      return {
-        TAG: "Ok",
-        _0: undefined
-      };
-    };
-    let ops_count = async (param, param$1, inc) => ({
-      TAG: "Ok",
-      _0: inc
-    });
-    let ops_delete = async (id, param) => {
-      Stdlib_Dict.$$delete(store.contents, id);
-      syncAll();
-      return {
-        TAG: "Ok",
-        _0: undefined
-      };
-    };
-    let ops_deleteBatch = async ids => {
-      ids.forEach(param => Stdlib_Dict.$$delete(store.contents, param[0]));
-      syncAll();
-      return {
-        TAG: "Ok",
-        _0: undefined
-      };
-    };
-    let ops$1 = {
-      load: ops_load,
-      loadStream: ops_loadStream,
-      save: ops_save,
-      saveBatch: ops_saveBatch,
-      count: ops_count,
-      delete: ops_delete,
-      deleteBatch: ops_deleteBatch
-    };
-    Bus.registerQueryDb(UIFragmentRegistryReadModelSpec$ReventlessCore.name, ops$1);
-    Bus.registerQueryDbScan(UIFragmentRegistryReadModelSpec$ReventlessCore.name, () => allItems.contents);
-    Bus.registerQueryDbStream(UIFragmentRegistryReadModelSpec$ReventlessCore.name, () => Stream$1.fromIterable(allItems.contents));
+    UIFragmentStorage.make(UIFragmentRegistryReadModelSpec$ReventlessCore.name, [], undefined, undefined, undefined, undefined, {});
+    let ops$1 = Stdlib_Option.getOrThrow(Bus.getQueryDb(UIFragmentRegistryReadModelSpec$ReventlessCore.name), undefined);
     uiFragmentQueryDbOpsRef.contents = ops$1;
     return ops$1;
   };
@@ -2507,33 +2414,31 @@ function Make($star) {
       ]
     ]));
     Bus.subscribeToEvents(pluginEventTopicKey, async (_service, _meta, eventJson) => {
-      let def;
-      try {
-        def = S.convertOrThrow(eventJson, PluginSpec$ReventlessCore.eventSchema);
-      } catch (exn) {
+      let match = decodePluginEventEnvelope(eventJson);
+      if (match === undefined) {
         return;
       }
-      switch (def.TAG) {
+      switch (match.TAG) {
         case "VersionDisconnected" :
-          return publishStatus(def._0.name, "Disconnected");
+          return publishStatus(match._0.name, "Disconnected");
         case "VersionDeactivated" :
-          return publishStatus(def._0.name, "Inactive");
+          return publishStatus(match._0.name, "Inactive");
         case "VersionRetired" :
-          return publishStatus(def._0.name, "Retired");
+          return publishStatus(match._0.name, "Retired");
         case "VersionDetected" :
         case "VersionSuperseded" :
         case "IncompatiblePluginDetected" :
           return;
         case "UIFragmentRegistered" :
-          let data = def._0;
+          let data = match._0;
           return publishUIFragment(Plugin$ReventlessCore.name(data.pluginId), "Registered", S.reverseConvertToJsonOrThrow(data.manifest, Plugin$Reventless.uiFragmentManifestSchema));
         case "UIFragmentUpdated" :
-          let data$1 = def._0;
+          let data$1 = match._0;
           return publishUIFragment(Plugin$ReventlessCore.name(data$1.pluginId), "Updated", S.reverseConvertToJsonOrThrow(data$1.newManifest, Plugin$Reventless.uiFragmentManifestSchema));
         case "UIFragmentDeregistered" :
-          return publishUIFragment(Plugin$ReventlessCore.name(def._0.pluginId), "Deregistered", null);
+          return publishUIFragment(Plugin$ReventlessCore.name(match._0.pluginId), "Deregistered", null);
         default:
-          return publishStatus(def._0.name, "Connected");
+          return publishStatus(match._0.name, "Connected");
       }
     });
   };
@@ -2796,6 +2701,11 @@ function Make($star) {
         backend.resetOnStart ? ", resetOnStart" : ""
       ) + `)`;
     log.info("Platform", undefined, tmp);
+    let projectionCatchup = Stdlib_Option.map(BackendState$ReventlessLocal.getDb(), db => [
+      db,
+      ProjectionCheckpoint$ReventlessLocal.maxPosition(db, "Aggregate"),
+      ProjectionCheckpoint$ReventlessLocal.maxPosition(db, "Dcb")
+    ]);
     let scheduler = makeScheduler();
     hooks_scheduler.contents = scheduler;
     hooks_api.contents = {
@@ -2854,9 +2764,22 @@ function Make($star) {
       adminResources: []
     });
     subscribeToPluginEvents();
-    connectPlugin(plugins$1);
-    seedUIFragmentRegistryQueryDb(plugins$1);
-    seedPluginStructuresStore(plugins$1);
+    let seedAdminStores = () => {
+      connectPlugin(plugins$1);
+      seedUIFragmentRegistryQueryDb(plugins$1);
+      seedPluginStructuresStore(plugins$1);
+    };
+    if (projectionCatchup !== undefined) {
+      Stdlib_Promise.$$catch(ProjectionCheckpoint$ReventlessLocal.startupCatchup(projectionCatchup[0], projectionCatchup[1], projectionCatchup[2], () => Bus.projectionCatchupHandlers()), e => {
+        console.error("[Platform] projection catch-up failed:", e);
+        return Promise.resolve();
+      }).then(() => {
+        seedAdminStores();
+        return Promise.resolve();
+      });
+    } else {
+      seedAdminStores();
+    }
     pluginStructuresStore.contents[Platform_Admin_Structure$ReventlessCore.pluginId] = Platform_Admin_Structure$ReventlessCore.structure;
     CommandGeneratorResolvers_GraphQL$ReventlessLocal.setPluginStatusGate(field => {
       let parts = field.split("_");
@@ -3391,6 +3314,7 @@ export {
   platformGraphQLRef,
   getPlatformGraphQL,
   platformMCPRef,
+  decodePluginEventEnvelope,
   MakeWithConfig,
   Make,
 }

package/src/adapter/DcbEventLog/DcbEventLogStorage_InMemory.res

@@ -25,18 +25,108 @@ let matchesQuery = (event: DcbEventLog_Adapter.rawSequencedEvent, query: Reventl
     })
   }
 
+// Composite key for the per-(key,value) tag posting list. NUL can't appear in a
+// tag key or value, so it's an unambiguous separator.
+let tagPostingKey = (key: string, value: string) => key ++ "\x00" ++ value
+
+// Intersect two ascending, duplicate-free index arrays (two-pointer merge).
+let intersectSorted = (a: array<int>, b: array<int>): array<int> => {
+  let out = []
+  let i = ref(0)
+  let j = ref(0)
+  while i.contents < a->Array.length && j.contents < b->Array.length {
+    let av = a->Array.getUnsafe(i.contents)
+    let bv = b->Array.getUnsafe(j.contents)
+    if av == bv {
+      out->Array.push(av)
+      i := i.contents + 1
+      j := j.contents + 1
+    } else if av < bv {
+      i := i.contents + 1
+    } else {
+      j := j.contents + 1
+    }
+  }
+  out
+}
+
 let makeStorage = (~name as _name, ~indexes as _, ~partitionTag as _, ~opts as _) => {
   let events: ref<array<DcbEventLog_Adapter.rawSequencedEvent>> = ref([])
   let position = ref(0)
+  // Posting lists: tag "key\0value" / eventType → ascending array indices into
+  // `events`. Events are only ever appended (never removed) in position order, so
+  // every list stays sorted and duplicate-free by construction. They turn the
+  // per-read / per-conditional-append full scan (O(n) → O(n²) over a session)
+  // into a lookup + intersection over the (usually tiny) candidate set.
+  let byTag: Dict.t<array<int>> = Dict.make()
+  let byType: Dict.t<array<int>> = Dict.make()
+  let pushInto = (dict: Dict.t<array<int>>, key: string, idx: int) =>
+    switch dict->Dict.get(key) {
+    | Some(list) => list->Array.push(idx)
+    | None => dict->Dict.set(key, [idx])
+    }
+  let indexEvent = (idx: int, ev: DcbEventLog_Adapter.rawSequencedEvent) => {
+    pushInto(byType, ev.eventType, idx)
+    ev.tags->Array.forEach(t => pushInto(byTag, tagPostingKey(t.key, t.value), idx))
+  }
 
-  let read = async (~query, ~after=?) => {
-    let filtered = events.contents->Array.filter(event => {
+  // Ascending, duplicate-free superset of the indices that could satisfy the
+  // query (an OR of clauses). Narrowing only — the authoritative `matchesQuery`
+  // predicate is still applied to each candidate, so the result is identical to
+  // the old linear scan even if this over-includes. Callers guarantee query≠[].
+  let candidateIndices = (query: Reventless.DcbTag.query): array<int> => {
+    let acc: Dict.t<int> = Dict.make()
+    let addAll = (arr: array<int>) => arr->Array.forEach(i => acc->Dict.set(Int.toString(i), i))
+    query->Array.forEach(clause => {
+      switch clause.tags {
+      | Some(tags) if tags->Array.length > 0 =>
+        // Events carrying ALL of the clause's tags = intersection of the tags'
+        // posting lists; a missing tag ⇒ empty ⇒ this clause adds nothing.
+        let lists = tags->Array.map(t =>
+          byTag->Dict.get(tagPostingKey(t.key, t.value))->Option.getOr([])
+        )
+        if lists->Array.some(l => l->Array.length == 0) {
+          ()
+        } else {
+          let sorted = lists->Array.toSorted((a, b) => Int.toFloat(a->Array.length - b->Array.length))
+          let acc0 = sorted->Array.getUnsafe(0)
+          let folded =
+            sorted->Array.slice(~start=1, ~end=sorted->Array.length)->Array.reduce(acc0, intersectSorted)
+          addAll(folded)
+        }
+      | _ =>
+        // No tag constraint: narrow by event type when present (union of the
+        // types' posting lists — disjoint since an event has one type), else the
+        // clause is unconstrained and matches everything.
+        switch clause.eventTypes {
+        | Some(types) => types->Array.forEach(t => addAll(byType->Dict.get(t)->Option.getOr([])))
+        | None => events.contents->Array.forEachWithIndex((_, i) => acc->Dict.set(Int.toString(i), i))
+        }
+      }
+    })
+    acc->Dict.valuesToArray->Array.toSorted((a, b) => Int.toFloat(a - b))
+  }
+
+  let matchingEvents = (~query, ~after): array<DcbEventLog_Adapter.rawSequencedEvent> => {
+    let pass = (ev: DcbEventLog_Adapter.rawSequencedEvent) => {
       let afterMatch = switch after {
-      | Some(afterPos) => event.position->posToInt > afterPos->posToInt
+      | Some(afterPos) => ev.position->posToInt > afterPos->posToInt
       | None => true
       }
-      afterMatch && matchesQuery(event, query)
-    })
+      afterMatch && matchesQuery(ev, query)
+    }
+    if query->Array.length == 0 {
+      events.contents->Array.filter(pass)
+    } else {
+      candidateIndices(query)->Array.filterMap(i => {
+        let ev = events.contents->Array.getUnsafe(i)
+        pass(ev) ? Some(ev) : None
+      })
+    }
+  }
+
+  let read = async (~query, ~after=?) => {
+    let filtered = matchingEvents(~query, ~after)
     let headPosition =
       events.contents
       ->Array.get(events.contents->Array.length - 1)
@@ -50,30 +140,27 @@ let makeStorage = (~name as _name, ~indexes as _, ~partitionTag as _, ~opts as _
   let append = async (newEvents, ~condition=?) => {
     let conflictDetected = switch condition {
     | Some(cond: Reventless.DcbTag.appendCondition) =>
-      events.contents->Array.some(event => {
-        let afterMatch = switch cond.after {
-        | Some(pos) => event.position->posToInt > pos->posToInt
-        | None => true
-        }
-        afterMatch && matchesQuery(event, cond.query)
-      })
+      matchingEvents(~query=cond.query, ~after=cond.after)->Array.length > 0
     | None => false
     }
     if conflictDetected {
       Error("conflict: condition check failed")
     } else {
+      let base = events.contents->Array.length
       let storedEvents =
-        newEvents->Array.map((event: DcbEventLog_Adapter.rawStoredEvent) => {
+        newEvents->Array.mapWithIndex((event: DcbEventLog_Adapter.rawStoredEvent, j) => {
           position := position.contents + 1
           let pos = position.contents->Int.toString
-          {
-            DcbEventLog_Adapter.position: pos,
+          let stored: DcbEventLog_Adapter.rawSequencedEvent = {
+            position: pos,
             eventType: event.eventType,
             data: event.data,
             tags: event.tags,
             meta: event.meta,
             recordedAt: Message.nowAsISOString(),
           }
+          indexEvent(base + j, stored)
+          stored
         })
       events := events.contents->Array.concat(storedEvents)
       Ok(position.contents->Int.toString)
@@ -113,8 +200,6 @@ module Make = (Bus: LocalBus.T) => {
     | Some(db) =>
       let (storageName, read, storage) = DcbEventLogStorage_Sqlite.makeStorage(
         ~db,
-        ~bus=(_, _) => (),
-        ~publishToTopic=(~topicName as _, ~json as _) => (),
         ~name,
         ~indexes,
         ~partitionTag,