wallet-core-embedded: added Anastasis policy discovery

packages/taler-wallet-embedded/src/wallet-qjs.ts

@@ -45,6 +45,8 @@ import {
   reduceAction,
   getBackupStartState,
   getRecoveryStartState,
+  discoverPolicies,
+  mergeDiscoveryAggregate,
   ReducerState,
 } from "@gnu-taler/anastasis-core";
 import {
@@ -195,18 +197,33 @@ async function handleAnastasisRequest(
     };
   };
 
+  let req = args ?? {};
+
   switch (operation) {
     case "anastasisReduce":
       // TODO: do some input validation here
-      let req = args ?? {};
+      let reduceRes = await reduceAction(req.state, req.action, req.args ?? {});
-      let res = await reduceAction(req.state, req.action, req.args ?? {});
       // For now, this will return "success" even if the wrapped Anastasis
       // response is a ReducerStateError.
-      return wrapSuccessResponse(res);
+      return wrapSuccessResponse(reduceRes);
     case "anastasisStartBackup":
       return wrapSuccessResponse(await getBackupStartState());
     case "anastasisStartRecovery":
       return wrapSuccessResponse(await getRecoveryStartState());
+    case "anastasisDiscoverPolicies":
+      let discoverRes = await discoverPolicies(req.state, req.cursor);
+      let aggregatedPolicies = mergeDiscoveryAggregate(
+        discoverRes.policies ?? [],
+        req.state.discoveryState?.aggregatedPolicies ?? [],
+      );
+      return wrapSuccessResponse({
+        ...req.state,
+        discoveryState: {
+          state: "finished",
+          aggregatedPolicies,
+          cursor: discoverRes.cursor,
+        },
+      });
   }
 }