@voltro/cache 0.86.0 → 0.87.0

package/dist/Cache.js

@@ -1,26 +1,50 @@
 import { CacheStore as e } from "./CacheStore.js";
 import { Clock as t, Context as n, Deferred as r, Effect as i, HashMap as a, Layer as o, Metric as s, Option as c, SynchronizedRef as l } from "effect";
+import { CACHE_FENCE_RETENTION_MS as u } from "@voltro/kv/connection";
 //#region src/Cache.ts
-var u = (e) => typeof e == "object" && !!e && e._voltroSwr === 1, d = class d extends n.Service()("@voltro/Cache", { make: i.gen(function* () {
-	let n = yield* e, o = yield* l.make(a.empty()), d = s.counter("voltro_cache_hits"), f = s.counter("voltro_cache_misses"), p = (e, r, a) => {
-		let o = a.tags === void 0 ? {} : { tags: a.tags }, s = a.swrMs;
-		if (s !== void 0) {
-			let c = a.ttlMs ?? 0;
+var d = () => ({
+	hits: 0,
+	stale: 0,
+	misses: 0,
+	stored: 0,
+	voided: 0,
+	decodeMisses: 0,
+	uncacheable: 0,
+	oversized: 0
+}), f = (e) => typeof e == "object" && !!e && e._voltroSwr === 1, p = class p extends n.Service()("@voltro/Cache", { make: i.gen(function* () {
+	let n = yield* e, o = yield* l.make(a.empty()), p = s.counter("voltro_cache_hits"), m = s.counter("voltro_cache_misses"), h = s.counter("voltro_cache_voided_stores", { description: "Computed values not stored because an invalidation of one of their tags overtook the compute." }), g = s.counter("voltro_query_cache_events_total", { description: "Cached-query outcomes by query name and event (hit, stale, miss, stored, voided, decodeMiss, uncacheable, oversized)." }), _ = /* @__PURE__ */ new Map(), v = /* @__PURE__ */ new Map(), y = (e, t) => i.suspend(() => {
+		let n = v.get(e);
+		n === void 0 && (n = d(), v.set(e, n)), n[t] += 1;
+		let r = `${e}\u0000${t}`, i = _.get(r);
+		return i === void 0 && (i = s.withAttributes(g, {
+			query: e,
+			event: t
+		}), _.set(r, i)), s.update(i, 1);
+	}), b = (e, r, a, o) => {
+		let s = {
+			...a.tags === void 0 ? {} : { tags: a.tags },
+			...o === void 0 ? {} : { fence: o }
+		}, c = a.swrMs;
+		if (c !== void 0) {
+			let o = a.ttlMs ?? 0;
 			return t.currentTimeMillis.pipe(i.flatMap((t) => n.setWithTags(e, {
 				_voltroSwr: 1,
 				v: r,
-				freshUntil: t + c
+				freshUntil: t + o
 			}, {
-				ttlMs: c + s,
-				...o
+				ttlMs: o + c,
+				...s
 			})));
 		}
-		let c = a.ttlMs === void 0 ? {} : { ttlMs: a.ttlMs };
+		let l = a.ttlMs === void 0 ? {} : { ttlMs: a.ttlMs };
 		return n.setWithTags(e, r, {
-			...c,
-			...o
+			...l,
+			...s
 		});
-	}, m = (e, t, n) => n.pipe(i.tap((n) => p(e, n, t))), h = (e, t) => l.modifyEffect(o, (t) => {
+	}, x = (e, r, a) => i.gen(function* () {
+		let i = yield* n.fence(), o = yield* t.currentTimeMillis, c = yield* a;
+		return (yield* t.currentTimeMillis) - o < u && (yield* b(e, c, r, i)) || (yield* s.update(h, 1)), c;
+	}), S = (e, t) => l.modifyEffect(o, (t) => {
 		let n = a.get(t, e);
 		return c.isSome(n) ? i.succeed([{
 			kind: "await",
@@ -33,27 +57,107 @@ var u = (e) => typeof e == "object" && !!e && e._voltroSwr === 1, d = class d ex
 		if (n.kind === "await") return r.await(n.deferred);
 		let s = n.deferred;
 		return t.pipe(i.onExit((t) => r.done(s, t).pipe(i.andThen(l.update(o, (t) => a.remove(t, e))))));
-	})), g = (e, r, a) => n.get(e).pipe(i.flatMap((n) => {
+	})), C = (e, r, a) => n.get(e).pipe(i.catchTag("CacheError", () => i.succeed(c.none())), i.flatMap((e) => {
+		if (c.isNone(e)) return i.succeed(c.none());
+		let n = e.value, o = f(n) ? n : void 0;
+		return a(o === void 0 ? n : o.v).pipe(i.flatMap((e) => c.isNone(e) ? y(r.label, "decodeMisses").pipe(i.as(c.none())) : o === void 0 ? i.succeed(c.some({
+			value: e.value,
+			fresh: !0
+		})) : t.currentTimeMillis.pipe(i.map((t) => c.some({
+			value: e.value,
+			fresh: t < o.freshUntil
+		})))));
+	})), w = (e, r, a) => i.gen(function* () {
+		let o = yield* n.fence().pipe(i.option), l = yield* t.currentTimeMillis, d = yield* a, f = yield* t.currentTimeMillis;
+		if (d.store === void 0) return d.notApplicable !== !0 && (yield* y(r.label, "uncacheable")), {
+			value: d.value,
+			kept: !1
+		};
+		if (c.isNone(o) || f - l >= u) return yield* y(r.label, "voided"), {
+			value: d.value,
+			kept: !1
+		};
+		let p = yield* b(e, d.store.stored, {
+			ttlMs: r.ttlMs,
+			...r.swrMs === void 0 ? {} : { swrMs: r.swrMs },
+			tags: d.store.tags
+		}, o.value).pipe(i.catchTag("CacheError", () => i.succeed(!1)));
+		return yield* y(r.label, p ? "stored" : "voided"), p || (yield* s.update(h, 1)), {
+			value: d.value,
+			kept: p
+		};
+	}), T = (e, r, a, o) => {
+		let s = n.claim, l = w(e, r, o).pipe(i.map((e) => ({
+			value: e.value,
+			served: "miss",
+			shareable: e.kept
+		})));
+		if (r.leaseMs === void 0 || s === void 0) return l;
+		let u = r.leaseMs, d = `\u0000lease:${e}`, f = l.pipe(i.ensuring(n.remove(d).pipe(i.ignore))), p = s(d, u).pipe(i.catchTag("CacheError", () => i.succeed(!0))), m = (n) => C(e, r, a).pipe(i.flatMap((e) => c.isSome(e) ? y(r.label, "hits").pipe(i.as({
+			value: e.value.value,
+			served: "hit",
+			shareable: !0
+		})) : p.pipe(i.flatMap((e) => e ? f : t.currentTimeMillis.pipe(i.flatMap((e) => e >= n ? l : i.sleep(Math.min(25, n - e)).pipe(i.andThen(m(n)))))))));
+		return p.pipe(i.flatMap((e) => e ? f : t.currentTimeMillis.pipe(i.flatMap((e) => m(e + u)))));
+	}, E = (e, t, n, r) => C(e, t, r).pipe(i.flatMap((a) => {
+		if (c.isSome(a)) {
+			if (a.value.fresh) return y(t.label, "hits").pipe(i.as({
+				value: a.value.value,
+				served: "hit"
+			}));
+			let r = S(e, w(e, t, n)).pipe(i.catchCause(() => i.void));
+			return y(t.label, "stale").pipe(i.andThen(i.forkDetach(r)), i.as({
+				value: a.value.value,
+				served: "stale"
+			}));
+		}
+		return y(t.label, "misses").pipe(i.andThen(D(e, t, r, n)), i.map(({ value: e, served: t }) => ({
+			value: e,
+			served: t
+		})));
+	})), D = (e, t, n, s) => l.modifyEffect(o, (t) => {
+		let n = a.get(t, e);
+		return c.isSome(n) ? i.succeed([{
+			kind: "await",
+			deferred: n.value
+		}, t]) : r.make().pipe(i.map((n) => [{
+			kind: "own",
+			deferred: n
+		}, a.set(t, e, n)]));
+	}).pipe(i.flatMap((u) => u.kind === "own" ? T(e, t, n, s).pipe(i.onExit((t) => r.done(u.deferred, t).pipe(i.andThen(l.update(o, (t) => a.remove(t, e)))))) : r.await(u.deferred).pipe(i.option, i.flatMap((n) => {
+		let r = n;
+		return c.isSome(r) && r.value.shareable ? i.succeed({
+			...r.value,
+			served: "miss"
+		}) : w(e, t, s).pipe(i.map((e) => ({
+			value: e.value,
+			served: "miss",
+			shareable: e.kept
+		})));
+	})))), O = (e, r, a) => n.get(e).pipe(i.flatMap((n) => {
 		if (c.isSome(n)) {
 			let o = n.value;
-			return u(o) ? s.update(d, 1).pipe(i.andThen(t.currentTimeMillis), i.flatMap((t) => {
+			return f(o) ? s.update(p, 1).pipe(i.andThen(t.currentTimeMillis), i.flatMap((t) => {
 				if (t < o.freshUntil) return i.succeed(o.v);
-				let n = h(e, m(e, r, a)).pipe(i.catchCause(() => i.void));
+				let n = S(e, x(e, r, a)).pipe(i.catchCause(() => i.void));
 				return i.forkDetach(n).pipe(i.as(o.v));
-			})) : s.update(d, 1).pipe(i.as(o));
+			})) : s.update(p, 1).pipe(i.as(o));
 		}
-		return s.update(f, 1).pipe(i.andThen(h(e, m(e, r, a))));
+		return s.update(m, 1).pipe(i.andThen(S(e, x(e, r, a))));
 	}));
 	return {
 		get: (e) => n.get(e),
 		set: (e, t, r) => n.set(e, t, r),
-		setWithTags: (e, t, r) => n.setWithTags(e, t, r),
-		put: (e, t, n) => p(e, n, t),
+		setWithTags: (e, t, r) => n.setWithTags(e, t, r).pipe(i.asVoid),
+		put: (e, t, n, r) => b(e, n, t, r).pipe(i.tap((e) => e ? i.void : s.update(h, 1))),
+		fence: () => n.fence(),
 		remove: n.remove,
 		has: n.has,
 		clear: n.clear,
 		invalidateTag: n.invalidateTag,
-		wrap: g,
+		wrap: O,
+		wrapDynamic: E,
+		queryStats: () => i.sync(() => Object.fromEntries([...v].map(([e, t]) => [e, { ...t }]))),
 		partition: (e, t = {}) => {
 			let r = (t) => `${e}:${t}`, i = (e) => ({
 				...t.ttlMs === void 0 ? {} : { ttlMs: t.ttlMs },
@@ -66,24 +170,26 @@ var u = (e) => typeof e == "object" && !!e && e._voltroSwr === 1, d = class d ex
 				set: (e, i, a) => n.set(r(e), i, a ?? (t.ttlMs === void 0 ? void 0 : { ttlMs: t.ttlMs })),
 				has: (e) => n.has(r(e)),
 				remove: (e) => n.remove(r(e)),
-				wrap: (e, t, n) => g(r(e), i(t), n),
+				wrap: (e, t, n) => O(r(e), i(t), n),
 				invalidateTag: (e) => n.invalidateTag(e)
 			};
 		},
 		stats: () => i.all({
-			hits: s.value(d),
-			misses: s.value(f)
-		}).pipe(i.map(({ hits: e, misses: t }) => {
-			let n = Number(e.count), r = Number(t.count), i = n + r;
+			hits: s.value(p),
+			misses: s.value(m),
+			voided: s.value(h)
+		}).pipe(i.map(({ hits: e, misses: t, voided: n }) => {
+			let r = Number(e.count), i = Number(t.count), a = r + i;
 			return {
-				hits: n,
-				misses: r,
-				hitRate: i === 0 ? 0 : n / i
+				hits: r,
+				misses: i,
+				hitRate: a === 0 ? 0 : r / a,
+				voided: Number(n.count)
 			};
 		}))
 	};
 }) }) {
-	static layer = o.effect(d, d.make);
+	static layer = o.effect(p, p.make);
 };
 //#endregion
-export { d as Cache };
+export { p as Cache };

package/dist/CacheStore.js

@@ -1,5 +1,6 @@
 import { Context as e } from "effect";
+import { CACHE_FENCE_RETENTION_MS as t } from "@voltro/kv/connection";
 //#region src/CacheStore.ts
-var t = class extends e.Service()("@voltro/CacheStore") {};
+var n = class extends e.Service()("@voltro/CacheStore") {};
 //#endregion
-export { t as CacheStore };
+export { t as CACHE_FENCE_RETENTION_MS, n as CacheStore };

package/dist/backendMemory.js

@@ -1,13 +1,29 @@
 import { CacheStore as e } from "./CacheStore.js";
 import { Clock as t, Effect as n, HashMap as r, HashSet as i, Layer as a, Option as o, Ref as s } from "effect";
+import { CACHE_FENCE_RETENTION_MS as c } from "@voltro/kv/connection";
 //#region src/backendMemory.ts
-var c = {
+var l = {
 	entries: r.empty(),
 	tagIndex: r.empty(),
 	seq: 0,
 	oldest: void 0,
-	newest: void 0
-}, l = (e, t, n) => {
+	newest: void 0,
+	sequence: 0,
+	epochs: r.empty()
+}, u = 1024, d = (e, t, n) => {
+	let i = e.sequence + 1, a = r.set(e.epochs, t, {
+		sequence: i,
+		at: n
+	});
+	return r.size(a) > u && (a = r.filter(a, (e) => e.at > n - c)), {
+		...e,
+		sequence: i,
+		epochs: a
+	};
+}, f = (e, t, n) => t.some((t) => {
+	let i = r.get(e.epochs, t);
+	return o.isSome(i) && i.value.sequence > n;
+}), p = (e, t, n) => {
 	let a = e;
 	for (let e of n) {
 		let n = r.get(a, e);
@@ -16,7 +32,7 @@ var c = {
 		a = i.size(s) === 0 ? r.remove(a, e) : r.set(a, e, s);
 	}
 	return a;
-}, u = (e, t) => {
+}, m = (e, t) => {
 	let n = r.get(e.entries, t);
 	if (o.isNone(n)) return e;
 	let { older: i, newer: a } = n.value, s = r.remove(e.entries, t);
@@ -35,29 +51,65 @@ var c = {
 		}));
 	}
 	return {
+		...e,
 		entries: s,
-		tagIndex: l(e.tagIndex, t, n.value.tags),
-		seq: e.seq,
+		tagIndex: p(e.tagIndex, t, n.value.tags),
 		oldest: i === void 0 ? a : e.oldest,
 		newest: a === void 0 ? i : e.newest
 	};
-}, d = (e, t, n) => {
+}, h = (e, t, n) => {
 	let a = r.get(e, t), s = o.isSome(a) ? i.add(a.value, n) : i.make(n);
 	return r.set(e, t, s);
-}, f = (e, t) => {
+}, g = (e, t) => {
+	let n = r.get(e.entries, t);
+	if (o.isNone(n) || e.newest === t) return e;
+	let { older: i, newer: a, ...s } = n.value, c = e.entries;
+	if (i !== void 0) {
+		let e = r.get(c, i);
+		o.isSome(e) && (c = r.set(c, i, {
+			...e.value,
+			newer: a
+		}));
+	}
+	if (a !== void 0) {
+		let e = r.get(c, a);
+		o.isSome(e) && (c = r.set(c, a, {
+			...e.value,
+			older: i
+		}));
+	}
+	let l = e.newest;
+	if (l !== void 0) {
+		let e = r.get(c, l);
+		o.isSome(e) && (c = r.set(c, l, {
+			...e.value,
+			newer: t
+		}));
+	}
+	return c = r.set(c, t, {
+		...s,
+		older: l,
+		newer: void 0
+	}), {
+		...e,
+		entries: c,
+		oldest: e.oldest === t ? a : e.oldest,
+		newest: t
+	};
+}, _ = (e, t) => {
 	let n = r.size(e.entries) - t;
 	if (n <= 0) return e;
 	let i = e;
 	for (let e = 0; e < n; e++) {
 		let e = i.oldest;
 		if (e === void 0) break;
-		i = u(i, e);
+		i = m(i, e);
 	}
 	return i;
-}, p = (e, t, n, i, a, s) => {
-	let c = u(e, t), l = c.seq + 1, p = c.tagIndex;
-	for (let e of a) p = d(p, e, t);
-	let m = r.set(c.entries, t, {
+}, v = (e, t, n, i, a, s) => {
+	let c = m(e, t), l = c.seq + 1, u = c.tagIndex;
+	for (let e of a) u = h(u, e, t);
+	let d = r.set(c.entries, t, {
 		value: n,
 		expiresAt: i,
 		tags: a,
@@ -66,49 +118,58 @@ var c = {
 		newer: void 0
 	});
 	if (c.newest !== void 0) {
-		let e = r.get(m, c.newest);
-		o.isSome(e) && (m = r.set(m, c.newest, {
+		let e = r.get(d, c.newest);
+		o.isSome(e) && (d = r.set(d, c.newest, {
 			...e.value,
 			newer: t
 		}));
 	}
-	let h = {
-		entries: m,
-		tagIndex: p,
+	let f = {
+		...c,
+		entries: d,
+		tagIndex: u,
 		seq: l,
 		oldest: c.oldest ?? t,
 		newest: t
 	};
-	return s === void 0 ? h : f(h, s);
-}, m = (e, t) => t === void 0 ? Infinity : e + t, h = (e) => n.gen(function* () {
-	let i = yield* s.make(c), a = e.maxEntries, l = e.now === void 0 ? t.currentTimeMillis : n.sync(e.now);
+	return s === void 0 ? f : _(f, s);
+}, y = (e, t) => t === void 0 ? Infinity : e + t, b = (e) => n.gen(function* () {
+	let i = yield* s.make(l), a = e.maxEntries, c = e.now === void 0 ? t.currentTimeMillis : n.sync(e.now);
 	return {
-		get: (e) => l.pipe(n.flatMap((t) => s.modify(i, (n) => {
+		get: (e) => c.pipe(n.flatMap((t) => s.modify(i, (n) => {
 			let i = r.get(n.entries, e);
-			return o.isNone(i) ? [o.none(), n] : i.value.expiresAt <= t ? [o.none(), u(n, e)] : [o.some(i.value.value), n];
+			return o.isNone(i) ? [o.none(), n] : i.value.expiresAt <= t ? [o.none(), m(n, e)] : [o.some(i.value.value), a === void 0 ? n : g(n, e)];
+		}))),
+		set: (e, t, r) => c.pipe(n.flatMap((n) => s.update(i, (i) => v(i, e, t, y(n, r?.ttlMs), [], a)))),
+		setWithTags: (e, t, r) => c.pipe(n.flatMap((n) => s.modify(i, (i) => {
+			let o = r.tags ?? [];
+			return r.fence !== void 0 && f(i, o, r.fence) ? [!1, i] : [!0, v(i, e, t, y(n, r.ttlMs), o, a)];
 		}))),
-		set: (e, t, r) => l.pipe(n.flatMap((n) => s.update(i, (i) => p(i, e, t, m(n, r?.ttlMs), [], a)))),
-		setWithTags: (e, t, r) => l.pipe(n.flatMap((n) => s.update(i, (i) => p(i, e, t, m(n, r.ttlMs), r.tags ?? [], a)))),
-		remove: (e) => l.pipe(n.flatMap((t) => s.modify(i, (n) => {
+		fence: () => s.get(i).pipe(n.map((e) => e.sequence)),
+		remove: (e) => c.pipe(n.flatMap((t) => s.modify(i, (n) => {
 			let i = r.get(n.entries, e);
-			return o.isNone(i) ? [!1, n] : [i.value.expiresAt > t, u(n, e)];
+			return o.isNone(i) ? [!1, n] : [i.value.expiresAt > t, m(n, e)];
 		}))),
-		has: (e) => l.pipe(n.flatMap((t) => s.modify(i, (n) => {
+		has: (e) => c.pipe(n.flatMap((t) => s.modify(i, (n) => {
 			let i = r.get(n.entries, e);
-			return o.isNone(i) ? [!1, n] : i.value.expiresAt <= t ? [!1, u(n, e)] : [!0, n];
+			return o.isNone(i) ? [!1, n] : i.value.expiresAt <= t ? [!1, m(n, e)] : [!0, n];
 		}))),
-		clear: () => s.set(i, c),
-		invalidateTag: (e) => s.modify(i, (t) => {
-			let n = r.get(t.tagIndex, e);
-			if (o.isNone(n)) return [0, t];
-			let i = t, a = 0;
-			for (let e of n.value) i = u(i, e), a += 1;
-			return [a, {
-				...i,
-				tagIndex: r.remove(i.tagIndex, e)
+		clear: () => s.update(i, (e) => ({
+			...l,
+			sequence: e.sequence,
+			epochs: e.epochs
+		})),
+		invalidateTag: (e) => c.pipe(n.flatMap((t) => s.modify(i, (n) => {
+			let i = d(n, e, t), a = r.get(i.tagIndex, e);
+			if (o.isNone(a)) return [0, i];
+			let s = i, c = 0;
+			for (let e of a.value) s = m(s, e), c += 1;
+			return [c, {
+				...s,
+				tagIndex: r.remove(s.tagIndex, e)
 			}];
-		})
+		})))
 	};
-}), g = (t = {}) => a.effect(e, h(t));
+}), x = (t = {}) => a.effect(e, b(t));
 //#endregion
-export { g as layerMemory };
+export { x as layerMemory };

package/dist/backendRedis.js

@@ -1,56 +1,172 @@
 import { CacheError as e } from "./errors.js";
 import { CacheStore as t } from "./CacheStore.js";
-import { Clock as n, Effect as r, Layer as i, Option as a } from "effect";
-import { commandRetry as o, connect as s } from "@voltro/kv/connection";
+import { Effect as n, Layer as r, Option as i } from "effect";
+import { CACHE_ATOMIC_SCRIPT as a, RedisConnections as o, cacheAtomicArray as s, cacheAtomicComponent as c, cacheAtomicKeys as l, cacheAtomicMember as u, cacheAtomicRoot as d, cacheAtomicScanPage as f, cacheAtomicSnapshot as p, cacheAtomicTtl as m, cacheAtomicValueSnapshots as h, decodeCacheAtomicCommand as g, decodeCacheAtomicReply as _ } from "@voltro/kv/connection";
 //#region src/backendRedis.ts
-var c = (t) => s({
-	url: t.url,
-	driver: t.driver,
-	...t.token === void 0 ? {} : { token: t.token }
-}).pipe(r.mapError((t) => new e({
-	operation: "connect",
-	key: "",
-	cause: String(t)
-}))), l = "\nlocal NOEXP = 9000000000000000\nlocal ttl = tonumber(ARGV[1])\nlocal now = tonumber(ARGV[2])\nlocal score\nif ttl < 0 then score = NOEXP else score = now + ttl end\nredis.call('ZADD', KEYS[1], score, ARGV[3])\nlocal top = redis.call('ZREVRANGE', KEYS[1], 0, 0, 'WITHSCORES')\nlocal maxScore = tonumber(top[2])\nif maxScore >= NOEXP then\n  redis.call('PERSIST', KEYS[1])\nelse\n  local rem = maxScore - now\n  if rem < 1 then rem = 1 end\n  redis.call('PEXPIRE', KEYS[1], rem)\nend\nreturn 1\n", u = (t) => r.gen(function* () {
-	let i = yield* r.acquireRelease(c(t), (e) => r.promise(() => e.close().catch(() => void 0))), s = t.keyPrefix ?? "voltro:cache", u = (e) => `${s}:v:${e}`, d = (e) => `${s}:t:${e}`, f = (t, n, a) => r.tryPromise({
-		try: () => a(i),
-		catch: (r) => new e({
-			operation: t,
-			key: n,
-			cause: String(r)
-		})
-	}).pipe(r.retry(o)), p = (t, n) => r.try({
-		try: () => JSON.stringify(n),
-		catch: (n) => new e({
-			operation: "serialize",
-			key: t,
-			cause: String(n)
-		})
-	}), m = (t, n) => r.try({
-		try: () => a.some(JSON.parse(n)),
-		catch: (n) => new e({
-			operation: "deserialize",
-			key: t,
-			cause: String(n)
-		})
-	}), h = (e) => f("clear", "", (t) => t.scan(e, `${s}:*`, 200)).pipe(r.flatMap(({ cursor: e, keys: t }) => (t.length > 0 ? f("clear", "", (e) => e.del(t)) : r.succeed(0)).pipe(r.flatMap(() => e === "0" ? r.void : h(e))))), g = (e, t, n) => p(e, t).pipe(r.flatMap((t) => n !== void 0 && n > 0 ? f("set", e, (r) => r.psetex(u(e), Math.ceil(n), t)) : f("set", e, (n) => n.set(u(e), t))), r.asVoid);
+var v = (t, r = "voltro:cache") => {
+	let o = d(r), v = (t, n, r) => new e({
+		operation: t,
+		key: n,
+		cause: r
+	}), y = (e, t, r) => n.try({
+		try: r,
+		catch: () => v(e, t, "Cache command or stored metadata is invalid.")
+	}), b = (e, r, i) => n.gen(function* () {
+		let s = yield* y(e, r, () => {
+			let e = g(i);
+			return {
+				keys: l(o, e),
+				body: JSON.stringify(e)
+			};
+		}), c = yield* n.tryPromise({
+			try: () => t.eval(a, s.keys.length, ...s.keys, s.body),
+			catch: () => v(e, r, "Cache transport failed; a write outcome may be unknown.")
+		}).pipe(n.uninterruptible), u = yield* y(e, r, () => _(c));
+		return u.status === "limit" ? yield* n.fail(v(e, r, "Cache operation exceeds the server limit.")) : u;
+	}), x = (e, t, r) => b(e, t, r).pipe(n.flatMap((r) => r.status === "ok" ? n.succeed(r.value) : n.fail(v(e, t, "Cache observation unexpectedly conflicted.")))), S = (e, t, r) => x(e, t, {
+		op: "inspect",
+		key: r
+	}).pipe(n.flatMap((n) => y(e, t, () => p(n)))), C = (e, t, r) => n.gen(function* () {
+		for (let n = 0; n < 8; n++) {
+			let n = yield* r(), i = yield* b(e, t, n.command);
+			if (i.status !== "conflict") return yield* y(e, t, () => n.decode(i.value));
+		}
+		return yield* n.fail(v(e, t, "Cache changed during the operation; retry with a fresh observation."));
+	}), w = (e) => {
+		if (typeof e != "number" || !Number.isSafeInteger(e) || e < 0) throw Error("Invalid cache count");
+		return e;
+	}, T = (e) => C("get", e, () => n.gen(function* () {
+		let t = yield* y("get", e, () => c(e));
+		return {
+			command: {
+				op: "read",
+				key: t,
+				snapshot: yield* S("get", e, t)
+			},
+			decode: (e) => {
+				if (e !== null && typeof e != "string") throw Error("Invalid cache payload");
+				return e;
+			}
+		};
+	})), E = (e, t, r) => C("set", e, () => n.gen(function* () {
+		let n = yield* y("set", e, () => {
+			let n = JSON.stringify(t);
+			if (n === void 0) throw Error("Value is not JSON serializable");
+			return {
+				id: c(e),
+				tags: [...new Set((r?.tags ?? []).map(c))].sort(),
+				value: n,
+				ttlMs: m(r?.ttlMs),
+				version: globalThis.crypto.randomUUID(),
+				revision: globalThis.crypto.randomUUID(),
+				fence: r?.fence ?? null
+			};
+		}), i = yield* S("set", e, n.id);
+		return {
+			command: {
+				op: "write",
+				key: n.id,
+				snapshot: i,
+				version: n.version,
+				revision: n.revision,
+				tags: n.tags,
+				value: n.value,
+				ttlMs: n.ttlMs,
+				fence: n.fence
+			},
+			decode: (e) => w(e) > 0
+		};
+	}));
 	return {
-		get: (e) => f("get", e, (t) => t.get(u(e))).pipe(r.flatMap((t) => t === null ? r.succeed(a.none()) : m(e, t))),
-		set: (e, t, n) => g(e, t, n?.ttlMs),
-		setWithTags: (e, t, i) => g(e, t, i.ttlMs).pipe(r.flatMap(() => {
-			let t = i.tags ?? [];
-			if (t.length === 0) return r.void;
-			let a = i.ttlMs !== void 0 && i.ttlMs > 0 ? Math.ceil(i.ttlMs) : -1;
-			return n.currentTimeMillis.pipe(r.flatMap((n) => r.forEach(t, (t) => f("setWithTags", e, (r) => r.eval(l, 1, d(t), a, n, e)), { discard: !0 })));
+		get: (e) => T(e).pipe(n.flatMap((t) => t === null ? n.succeed(i.none()) : y("get", e, () => i.some(JSON.parse(t))))),
+		set: (e, t, r) => E(e, t, r).pipe(n.asVoid),
+		setWithTags: (e, t, n) => E(e, t, n),
+		fence: () => x("fence", "", { op: "fence" }).pipe(n.flatMap((e) => y("fence", "", () => w(e)))),
+		claim: (e, t) => n.gen(function* () {
+			let n = yield* y("claim", e, () => ({
+				op: "write",
+				key: c(e),
+				snapshot: null,
+				version: globalThis.crypto.randomUUID(),
+				revision: globalThis.crypto.randomUUID(),
+				tags: [],
+				value: "true",
+				ttlMs: m(t),
+				fence: null
+			}));
+			return (yield* b("claim", e, n)).status === "ok";
+		}),
+		has: (e) => T(e).pipe(n.map((e) => e !== null)),
+		remove: (e) => C("remove", e, () => n.gen(function* () {
+			let t = yield* y("remove", e, () => ({
+				id: c(e),
+				revision: globalThis.crypto.randomUUID()
+			})), n = yield* S("remove", e, t.id);
+			return {
+				command: {
+					op: "remove",
+					key: t.id,
+					snapshot: n,
+					revision: t.revision
+				},
+				decode: (e) => w(e) > 0
+			};
 		})),
-		remove: (e) => f("remove", e, (t) => t.del([u(e)])).pipe(r.map((e) => e > 0)),
-		has: (e) => f("has", e, (t) => t.exists(u(e))).pipe(r.map((e) => e > 0)),
-		clear: () => h("0"),
-		invalidateTag: (e) => f("invalidateTag", e, (t) => t.zrange(d(e))).pipe(r.flatMap((t) => f("invalidateTag", e, async (n) => {
-			let r = t.map(u), i = r.length > 0 ? await n.del(r) : 0;
-			return await n.del([d(e)]), i;
-		})))
+		invalidateTag: (e) => C("invalidateTag", e, () => n.gen(function* () {
+			let t = yield* y("invalidateTag", e, () => ({
+				id: c(e),
+				revision: globalThis.crypto.randomUUID()
+			})), n = yield* x("invalidateTag", e, {
+				op: "tag",
+				tag: t.id
+			}), r = yield* y("invalidateTag", e, () => s(n).map((e) => (u(e), String(e))).sort()), i = [...new Set(r.map((e) => u(e).key))].sort(), a = yield* x("invalidateTag", e, {
+				op: "inspect-values",
+				keys: i
+			}), o = yield* y("invalidateTag", e, () => h(a));
+			return {
+				command: {
+					op: "invalidate",
+					tag: t.id,
+					members: r,
+					snapshots: o,
+					revision: t.revision
+				},
+				decode: w
+			};
+		})),
+		clear: () => C("clear", "", () => n.gen(function* () {
+			let e = yield* x("clear", "", { op: "revision" });
+			yield* y("clear", "", () => g({
+				op: "clear",
+				keys: [],
+				revision: e
+			}));
+			let t = /* @__PURE__ */ new Set(), r = /* @__PURE__ */ new Set(), i = "0";
+			do {
+				if (r.has(i)) return yield* n.fail(v("clear", "", "Cache scan did not progress."));
+				r.add(i);
+				let e = yield* x("clear", "", {
+					op: "scan",
+					cursor: i
+				}), a = yield* y("clear", "", () => f(o, e));
+				a.keys.forEach((e) => t.add(e)), i = a.cursor;
+			} while (i !== "0");
+			return {
+				command: {
+					op: "clear",
+					keys: [...t].sort(),
+					revision: e
+				},
+				decode: () => {}
+			};
+		}))
 	};
-}), d = (e) => i.effect(t, u(e));
+}, y = (i = {}) => r.effect(t, n.gen(function* () {
+	return v(yield* (yield* o).client(i.connectionName ?? "cache").pipe(n.mapError(() => new e({
+		operation: "connect",
+		key: "",
+		cause: "Connection unavailable"
+	}))), i.keyPrefix);
+}));
 //#endregion
-export { d as layerRedis };
+export { y as layerRedis, v as makeRedisCacheStore };