@hoilab/ada-cli 0.84.22 → 0.85.0

package/dist/server/extension-ops.js

@@ -0,0 +1,146 @@
+/**
+ * Operaciones de Ada sobre sesiones residentes: `compact`, `rename`, `fork` y
+ * `kill`.
+ *
+ * Viajan por el comando genérico `extension` del protocolo en vez de tener cada
+ * una su propio comando tipado. La razón es de coste, no de pereza:
+ * `packages/protocol` y `packages/server` son de upstream, y cada línea que
+ * añadimos ahí se reaplica en cada sync y se rompe cuando upstream refactoriza
+ * esos ficheros. Un comando genérico se paga una vez; estas cuatro operaciones
+ * y todas las futuras viven aquí, a coste cero.
+ *
+ * Lo que el cable pierde en tipado se recupera AQUÍ: cada op valida su payload
+ * con su propio schema antes de tocar nada. La validación no desaparece, se
+ * mueve a donde no cuesta presupuesto.
+ */
+import { Type } from "typebox";
+import { Value } from "typebox/value";
+const NoPayload = Type.Object({});
+const RenamePayload = Type.Object({ name: Type.String({ minLength: 1 }) });
+const CompactPayload = Type.Object({ customInstructions: Type.Optional(Type.String()) });
+/**
+ * Valida el payload opaco contra el schema de la operación.
+ *
+ * Se lanza con el error de validación real, no un "argumentos inválidos"
+ * genérico: quien llama por un socket no tiene forma de inspeccionar qué
+ * esperaba el otro lado.
+ */
+function parse(schema, payload) {
+    const value = payload ?? {};
+    if (Value.Check(schema, value))
+        return value;
+    const [first] = [...Value.Errors(schema, value)];
+    throw new Error(`payload inválido: ${first ? first.message : "no coincide con el schema"}`);
+}
+/** Exige una sesión viva. Las cuatro ops operan sobre una sesión concreta. */
+function requireRuntime(request) {
+    if (!request.sessionId)
+        throw new Error("falta sessionId");
+    if (!request.runtime)
+        throw new Error(`la sesión ${request.sessionId} no está abierta en este servidor`);
+    return request.runtime;
+}
+/** Nombres soportados, para que `mcp_list`-style clients puedan descubrirlos. */
+export const EXTENSION_OPS = ["ops", "compact", "rename", "fork", "kill"];
+export function createExtensionHandler(context) {
+    return async (request) => {
+        switch (request.op) {
+            // Descubrimiento: un cliente nuevo contra un servidor viejo necesita
+            // poder preguntar qué existe en vez de adivinar.
+            case "ops":
+                return { ops: [...EXTENSION_OPS] };
+            case "compact": {
+                const { customInstructions } = parse(CompactPayload, request.payload);
+                const runtime = requireRuntime(request);
+                const result = await runtime.session.compact(customInstructions);
+                return { compacted: true, result };
+            }
+            case "rename": {
+                const { name } = parse(RenamePayload, request.payload);
+                const runtime = requireRuntime(request);
+                // El nombre se persiste como una entrada más del JSONL, que es como
+                // lo hace el resto del producto: sin estado paralelo que se
+                // desincronice del fichero de sesión.
+                runtime.sessionManager.appendSessionInfo(name);
+                return { renamed: true, name };
+            }
+            case "fork": {
+                parse(NoPayload, request.payload);
+                const runtime = requireRuntime(request);
+                const sourceFile = runtime.sessionManager.getSessionFile();
+                if (!sourceFile)
+                    throw new Error("la sesión aún no se ha persistido; no hay nada que bifurcar");
+                // Copia del JSONL a una sesión nueva. NO se abre aquí: bifurcar es
+                // una operación sobre el historial, y decidir cuándo cargarla es del
+                // cliente. Abrirla sola dejaría un runtime que nadie pidió.
+                const { copyFile } = await import("node:fs/promises");
+                const { SessionManager } = await import("../core/session-manager.js");
+                const target = SessionManager.create(runtime.sessionManager.getCwd());
+                const targetFile = target.getSessionFile() ?? target.newSession();
+                if (!targetFile)
+                    throw new Error("no se pudo crear la sesión destino");
+                await copyFile(sourceFile, targetFile);
+                return { forked: true, sessionId: target.getSessionId(), path: targetFile };
+            }
+            case "kill": {
+                parse(NoPayload, request.payload);
+                const runtime = requireRuntime(request);
+                // El historial en disco NO se borra. "kill" retira la sesión de la
+                // memoria del servidor; destruir el JSONL sería irreversible y no es
+                // lo que nadie espera de un kill.
+                await runtime.dispose();
+                context.forget(request.sessionId);
+                return { killed: true, historyKept: true };
+            }
+            default:
+                throw new Error(`operación desconocida: ${request.op}. Disponibles: ${EXTENSION_OPS.join(", ")}`);
+        }
+    };
+}
+/**
+ * Cliente de las operaciones desde el CLI.
+ *
+ * Vive aquí, junto a la definición de las ops, para que añadir una no obligue a
+ * tocar dos sitios distantes ni a recordar que existe un cliente aparte.
+ */
+export async function runExtensionOp(options) {
+    const { PiClient } = await import("@earendil-works/pi-client");
+    const { createUnixTransportFactory } = await import("@earendil-works/pi-client/unix");
+    const client = new PiClient({ transportFactory: createUnixTransportFactory({ path: options.socketPath }) });
+    try {
+        await client.connect();
+        // `attachSession` antes de operar: el servidor solo entrega el runtime vivo
+        // de una sesión abierta, y sin esto un `compact` sobre una sesión existente
+        // pero cerrada fallaría con "no está abierta" sin explicar que basta con
+        // engancharse.
+        if (options.sessionId)
+            await client.attachSession(options.sessionId).catch(() => undefined);
+        // El punto de extensión del protocolo lo añadimos nosotros a
+        // `packages/{client,protocol,server}`, y esos paquetes NO viajan en el
+        // tarball: `@hoilab/ada-cli` los resuelve del registro de npm, así que
+        // quien instala recibe los de upstream, sin este comando.
+        //
+        // Sin esta comprobación, `ada-cli session <id> compact` reventaba con
+        // «client.extension is not a function» —un error que no dice nada de la
+        // causa— en vez de explicar qué falta. Es la diferencia entre «está roto» y
+        // «esto necesita una compilación desde fuentes».
+        if (typeof client.extension !== "function") {
+            return {
+                ok: false,
+                error: "Esta operación necesita el punto de extensión del protocolo, que solo está en una " +
+                    "compilación desde fuentes: el paquete publicado depende de `@earendil-works/pi-client` " +
+                    "del registro, que no lo trae. Compila desde el repositorio (ver la sección «Building " +
+                    "from source» del README) o usa el resto de subcomandos, que no lo necesitan.",
+            };
+        }
+        const result = await client.extension(options.op, {
+            sessionId: options.sessionId,
+            payload: options.payload,
+        });
+        return { ok: result.ok, data: result.data, error: result.error };
+    }
+    finally {
+        await client.dispose().catch(() => { });
+    }
+}
+//# sourceMappingURL=extension-ops.js.map

package/dist/server/extension-ops.js.map

@@ -0,0 +1 @@
+{"version":3,"file":"extension-ops.js","sourceRoot":"","sources":["../../src/server/extension-ops.ts"],"names":[],"mappings":"AAAA;;;;;;;;;;;;;;GAcG;AAGH,OAAO,EAA6B,IAAI,EAAE,MAAM,SAAS,CAAC;AAC1D,OAAO,EAAE,KAAK,EAAE,MAAM,eAAe,CAAC;AAGtC,MAAM,SAAS,GAAG,IAAI,CAAC,MAAM,CAAC,EAAE,CAAC,CAAC;AAClC,MAAM,aAAa,GAAG,IAAI,CAAC,MAAM,CAAC,EAAE,IAAI,EAAE,IAAI,CAAC,MAAM,CAAC,EAAE,SAAS,EAAE,CAAC,EAAE,CAAC,EAAE,CAAC,CAAC;AAC3E,MAAM,cAAc,GAAG,IAAI,CAAC,MAAM,CAAC,EAAE,kBAAkB,EAAE,IAAI,CAAC,QAAQ,CAAC,IAAI,CAAC,MAAM,EAAE,CAAC,EAAE,CAAC,CAAC;AAEzF;;;;;;GAMG;AACH,SAAS,KAAK,CAAoB,MAAS,EAAE,OAAgB,EAAa;IACzE,MAAM,KAAK,GAAG,OAAO,IAAI,EAAE,CAAC;IAC5B,IAAI,KAAK,CAAC,KAAK,CAAC,MAAM,EAAE,KAAK,CAAC;QAAE,OAAO,KAAkB,CAAC;IAC1D,MAAM,CAAC,KAAK,CAAC,GAAG,CAAC,GAAG,KAAK,CAAC,MAAM,CAAC,MAAM,EAAE,KAAK,CAAC,CAAC,CAAC;IACjD,MAAM,IAAI,KAAK,CAAC,sBAAqB,KAAK,CAAC,CAAC,CAAC,KAAK,CAAC,OAAO,CAAC,CAAC,CAAC,2BAA2B,EAAE,CAAC,CAAC;AAAA,CAC5F;AAED,gFAA8E;AAC9E,SAAS,cAAc,CAAC,OAAyB,EAAqB;IACrE,IAAI,CAAC,OAAO,CAAC,SAAS;QAAE,MAAM,IAAI,KAAK,CAAC,iBAAiB,CAAC,CAAC;IAC3D,IAAI,CAAC,OAAO,CAAC,OAAO;QAAE,MAAM,IAAI,KAAK,CAAC,cAAa,OAAO,CAAC,SAAS,oCAAmC,CAAC,CAAC;IACzG,OAAO,OAAO,CAAC,OAA4B,CAAC;AAAA,CAC5C;AAOD,iFAAiF;AACjF,MAAM,CAAC,MAAM,aAAa,GAAG,CAAC,KAAK,EAAE,SAAS,EAAE,QAAQ,EAAE,MAAM,EAAE,MAAM,CAAU,CAAC;AAEnF,MAAM,UAAU,sBAAsB,CAAC,OAA4B,EAAE;IACpE,OAAO,KAAK,EAAE,OAAyB,EAAoB,EAAE,CAAC;QAC7D,QAAQ,OAAO,CAAC,EAAE,EAAE,CAAC;YACpB,qEAAqE;YACrE,kDAAiD;YACjD,KAAK,KAAK;gBACT,OAAO,EAAE,GAAG,EAAE,CAAC,GAAG,aAAa,CAAC,EAAE,CAAC;YAEpC,KAAK,SAAS,EAAE,CAAC;gBAChB,MAAM,EAAE,kBAAkB,EAAE,GAAG,KAAK,CAAC,cAAc,EAAE,OAAO,CAAC,OAAO,CAAC,CAAC;gBACtE,MAAM,OAAO,GAAG,cAAc,CAAC,OAAO,CAAC,CAAC;gBACxC,MAAM,MAAM,GAAG,MAAM,OAAO,CAAC,OAAO,CAAC,OAAO,CAAC,kBAAkB,CAAC,CAAC;gBACjE,OAAO,EAAE,SAAS,EAAE,IAAI,EAAE,MAAM,EAAE,CAAC;YACpC,CAAC;YAED,KAAK,QAAQ,EAAE,CAAC;gBACf,MAAM,EAAE,IAAI,EAAE,GAAG,KAAK,CAAC,aAAa,EAAE,OAAO,CAAC,OAAO,CAAC,CAAC;gBACvD,MAAM,OAAO,GAAG,cAAc,CAAC,OAAO,CAAC,CAAC;gBACxC,qEAAoE;gBACpE,4DAA4D;gBAC5D,uCAAsC;gBACtC,OAAO,CAAC,cAAc,CAAC,iBAAiB,CAAC,IAAI,CAAC,CAAC;gBAC/C,OAAO,EAAE,OAAO,EAAE,IAAI,EAAE,IAAI,EAAE,CAAC;YAChC,CAAC;YAED,KAAK,MAAM,EAAE,CAAC;gBACb,KAAK,CAAC,SAAS,EAAE,OAAO,CAAC,OAAO,CAAC,CAAC;gBAClC,MAAM,OAAO,GAAG,cAAc,CAAC,OAAO,CAAC,CAAC;gBACxC,MAAM,UAAU,GAAG,OAAO,CAAC,cAAc,CAAC,cAAc,EAAE,CAAC;gBAC3D,IAAI,CAAC,UAAU;oBAAE,MAAM,IAAI,KAAK,CAAC,+DAA6D,CAAC,CAAC;gBAChG,qEAAmE;gBACnE,uEAAqE;gBACrE,8DAA4D;gBAC5D,MAAM,EAAE,QAAQ,EAAE,GAAG,MAAM,MAAM,CAAC,kBAAkB,CAAC,CAAC;gBACtD,MAAM,EAAE,cAAc,EAAE,GAAG,MAAM,MAAM,CAAC,4BAA4B,CAAC,CAAC;gBACtE,MAAM,MAAM,GAAG,cAAc,CAAC,MAAM,CAAC,OAAO,CAAC,cAAc,CAAC,MAAM,EAAE,CAAC,CAAC;gBACtE,MAAM,UAAU,GAAG,MAAM,CAAC,cAAc,EAAE,IAAI,MAAM,CAAC,UAAU,EAAE,CAAC;gBAClE,IAAI,CAAC,UAAU;oBAAE,MAAM,IAAI,KAAK,CAAC,qCAAoC,CAAC,CAAC;gBACvE,MAAM,QAAQ,CAAC,UAAU,EAAE,UAAU,CAAC,CAAC;gBACvC,OAAO,EAAE,MAAM,EAAE,IAAI,EAAE,SAAS,EAAE,MAAM,CAAC,YAAY,EAAE,EAAE,IAAI,EAAE,UAAU,EAAE,CAAC;YAC7E,CAAC;YAED,KAAK,MAAM,EAAE,CAAC;gBACb,KAAK,CAAC,SAAS,EAAE,OAAO,CAAC,OAAO,CAAC,CAAC;gBAClC,MAAM,OAAO,GAAG,cAAc,CAAC,OAAO,CAAC,CAAC;gBACxC,oEAAmE;gBACnE,sEAAqE;gBACrE,kCAAkC;gBAClC,MAAM,OAAO,CAAC,OAAO,EAAE,CAAC;gBACxB,OAAO,CAAC,MAAM,CAAC,OAAO,CAAC,SAAmB,CAAC,CAAC;gBAC5C,OAAO,EAAE,MAAM,EAAE,IAAI,EAAE,WAAW,EAAE,IAAI,EAAE,CAAC;YAC5C,CAAC;YAED;gBACC,MAAM,IAAI,KAAK,CAAC,2BAA0B,OAAO,CAAC,EAAE,kBAAkB,aAAa,CAAC,IAAI,CAAC,IAAI,CAAC,EAAE,CAAC,CAAC;QACpG,CAAC;IAAA,CACD,CAAC;AAAA,CACF;AAED;;;;;GAKG;AACH,MAAM,CAAC,KAAK,UAAU,cAAc,CAAC,OAKpC,EAA4D;IAC5D,MAAM,EAAE,QAAQ,EAAE,GAAG,MAAM,MAAM,CAAC,2BAA2B,CAAC,CAAC;IAC/D,MAAM,EAAE,0BAA0B,EAAE,GAAG,MAAM,MAAM,CAAC,gCAAgC,CAAC,CAAC;IACtF,MAAM,MAAM,GAAG,IAAI,QAAQ,CAAC,EAAE,gBAAgB,EAAE,0BAA0B,CAAC,EAAE,IAAI,EAAE,OAAO,CAAC,UAAU,EAAE,CAAC,EAAE,CAAC,CAAC;IAC5G,IAAI,CAAC;QACJ,MAAM,MAAM,CAAC,OAAO,EAAE,CAAC;QACvB,4EAA4E;QAC5E,8EAA4E;QAC5E,2EAAyE;QACzE,eAAe;QACf,IAAI,OAAO,CAAC,SAAS;YAAE,MAAM,MAAM,CAAC,aAAa,CAAC,OAAO,CAAC,SAAS,CAAC,CAAC,KAAK,CAAC,GAAG,EAAE,CAAC,SAAS,CAAC,CAAC;QAE5F,+DAA6D;QAC7D,uEAAuE;QACvE,wEAAuE;QACvE,0DAA0D;QAC1D,EAAE;QACF,uEAAsE;QACtE,4EAAwE;QACxE,kFAA4E;QAC5E,oDAAiD;QACjD,IAAI,OAAQ,MAAkC,CAAC,SAAS,KAAK,UAAU,EAAE,CAAC;YACzE,OAAO;gBACN,EAAE,EAAE,KAAK;gBACT,KAAK,EACJ,uFAAoF;oBACpF,0FAAyF;oBACzF,yFAAuF;oBACvF,+EAA8E;aAC/E,CAAC;QACH,CAAC;QAED,MAAM,MAAM,GAAG,MAAM,MAAM,CAAC,SAAS,CAAC,OAAO,CAAC,EAAE,EAAE;YACjD,SAAS,EAAE,OAAO,CAAC,SAAS;YAC5B,OAAO,EAAE,OAAO,CAAC,OAAO;SACxB,CAAC,CAAC;QACH,OAAO,EAAE,EAAE,EAAE,MAAM,CAAC,EAAE,EAAE,IAAI,EAAE,MAAM,CAAC,IAAI,EAAE,KAAK,EAAE,MAAM,CAAC,KAAK,EAAE,CAAC;IAClE,CAAC;YAAS,CAAC;QACV,MAAM,MAAM,CAAC,OAAO,EAAE,CAAC,KAAK,CAAC,GAAG,EAAE,CAAC,EAAC,CAAC,CAAC,CAAC;IACxC,CAAC;AAAA,CACD","sourcesContent":["/**\n * Operaciones de Ada sobre sesiones residentes: `compact`, `rename`, `fork` y\n * `kill`.\n *\n * Viajan por el comando genérico `extension` del protocolo en vez de tener cada\n * una su propio comando tipado. La razón es de coste, no de pereza:\n * `packages/protocol` y `packages/server` son de upstream, y cada línea que\n * añadimos ahí se reaplica en cada sync y se rompe cuando upstream refactoriza\n * esos ficheros. Un comando genérico se paga una vez; estas cuatro operaciones\n * y todas las futuras viven aquí, a coste cero.\n *\n * Lo que el cable pierde en tipado se recupera AQUÍ: cada op valida su payload\n * con su propio schema antes de tocar nada. La validación no desaparece, se\n * mueve a donde no cuesta presupuesto.\n */\n\nimport type { ExtensionRequest } from \"@earendil-works/pi-server\";\nimport { type Static, type TSchema, Type } from \"typebox\";\nimport { Value } from \"typebox/value\";\nimport type { AdaSessionRuntime } from \"./pi-server-service.ts\";\n\nconst NoPayload = Type.Object({});\nconst RenamePayload = Type.Object({ name: Type.String({ minLength: 1 }) });\nconst CompactPayload = Type.Object({ customInstructions: Type.Optional(Type.String()) });\n\n/**\n * Valida el payload opaco contra el schema de la operación.\n *\n * Se lanza con el error de validación real, no un \"argumentos inválidos\"\n * genérico: quien llama por un socket no tiene forma de inspeccionar qué\n * esperaba el otro lado.\n */\nfunction parse<T extends TSchema>(schema: T, payload: unknown): Static<T> {\n\tconst value = payload ?? {};\n\tif (Value.Check(schema, value)) return value as Static<T>;\n\tconst [first] = [...Value.Errors(schema, value)];\n\tthrow new Error(`payload inválido: ${first ? first.message : \"no coincide con el schema\"}`);\n}\n\n/** Exige una sesión viva. Las cuatro ops operan sobre una sesión concreta. */\nfunction requireRuntime(request: ExtensionRequest): AdaSessionRuntime {\n\tif (!request.sessionId) throw new Error(\"falta sessionId\");\n\tif (!request.runtime) throw new Error(`la sesión ${request.sessionId} no está abierta en este servidor`);\n\treturn request.runtime as AdaSessionRuntime;\n}\n\nexport interface ExtensionOpsContext {\n\t/** Retira una sesión del servidor tras un `kill`. */\n\tforget: (sessionId: string) => void;\n}\n\n/** Nombres soportados, para que `mcp_list`-style clients puedan descubrirlos. */\nexport const EXTENSION_OPS = [\"ops\", \"compact\", \"rename\", \"fork\", \"kill\"] as const;\n\nexport function createExtensionHandler(context: ExtensionOpsContext) {\n\treturn async (request: ExtensionRequest): Promise<unknown> => {\n\t\tswitch (request.op) {\n\t\t\t// Descubrimiento: un cliente nuevo contra un servidor viejo necesita\n\t\t\t// poder preguntar qué existe en vez de adivinar.\n\t\t\tcase \"ops\":\n\t\t\t\treturn { ops: [...EXTENSION_OPS] };\n\n\t\t\tcase \"compact\": {\n\t\t\t\tconst { customInstructions } = parse(CompactPayload, request.payload);\n\t\t\t\tconst runtime = requireRuntime(request);\n\t\t\t\tconst result = await runtime.session.compact(customInstructions);\n\t\t\t\treturn { compacted: true, result };\n\t\t\t}\n\n\t\t\tcase \"rename\": {\n\t\t\t\tconst { name } = parse(RenamePayload, request.payload);\n\t\t\t\tconst runtime = requireRuntime(request);\n\t\t\t\t// El nombre se persiste como una entrada más del JSONL, que es como\n\t\t\t\t// lo hace el resto del producto: sin estado paralelo que se\n\t\t\t\t// desincronice del fichero de sesión.\n\t\t\t\truntime.sessionManager.appendSessionInfo(name);\n\t\t\t\treturn { renamed: true, name };\n\t\t\t}\n\n\t\t\tcase \"fork\": {\n\t\t\t\tparse(NoPayload, request.payload);\n\t\t\t\tconst runtime = requireRuntime(request);\n\t\t\t\tconst sourceFile = runtime.sessionManager.getSessionFile();\n\t\t\t\tif (!sourceFile) throw new Error(\"la sesión aún no se ha persistido; no hay nada que bifurcar\");\n\t\t\t\t// Copia del JSONL a una sesión nueva. NO se abre aquí: bifurcar es\n\t\t\t\t// una operación sobre el historial, y decidir cuándo cargarla es del\n\t\t\t\t// cliente. Abrirla sola dejaría un runtime que nadie pidió.\n\t\t\t\tconst { copyFile } = await import(\"node:fs/promises\");\n\t\t\t\tconst { SessionManager } = await import(\"../core/session-manager.ts\");\n\t\t\t\tconst target = SessionManager.create(runtime.sessionManager.getCwd());\n\t\t\t\tconst targetFile = target.getSessionFile() ?? target.newSession();\n\t\t\t\tif (!targetFile) throw new Error(\"no se pudo crear la sesión destino\");\n\t\t\t\tawait copyFile(sourceFile, targetFile);\n\t\t\t\treturn { forked: true, sessionId: target.getSessionId(), path: targetFile };\n\t\t\t}\n\n\t\t\tcase \"kill\": {\n\t\t\t\tparse(NoPayload, request.payload);\n\t\t\t\tconst runtime = requireRuntime(request);\n\t\t\t\t// El historial en disco NO se borra. \"kill\" retira la sesión de la\n\t\t\t\t// memoria del servidor; destruir el JSONL sería irreversible y no es\n\t\t\t\t// lo que nadie espera de un kill.\n\t\t\t\tawait runtime.dispose();\n\t\t\t\tcontext.forget(request.sessionId as string);\n\t\t\t\treturn { killed: true, historyKept: true };\n\t\t\t}\n\n\t\t\tdefault:\n\t\t\t\tthrow new Error(`operación desconocida: ${request.op}. Disponibles: ${EXTENSION_OPS.join(\", \")}`);\n\t\t}\n\t};\n}\n\n/**\n * Cliente de las operaciones desde el CLI.\n *\n * Vive aquí, junto a la definición de las ops, para que añadir una no obligue a\n * tocar dos sitios distantes ni a recordar que existe un cliente aparte.\n */\nexport async function runExtensionOp(options: {\n\tsocketPath: string;\n\top: string;\n\tsessionId?: string;\n\tpayload?: unknown;\n}): Promise<{ ok: boolean; data?: unknown; error?: string }> {\n\tconst { PiClient } = await import(\"@earendil-works/pi-client\");\n\tconst { createUnixTransportFactory } = await import(\"@earendil-works/pi-client/unix\");\n\tconst client = new PiClient({ transportFactory: createUnixTransportFactory({ path: options.socketPath }) });\n\ttry {\n\t\tawait client.connect();\n\t\t// `attachSession` antes de operar: el servidor solo entrega el runtime vivo\n\t\t// de una sesión abierta, y sin esto un `compact` sobre una sesión existente\n\t\t// pero cerrada fallaría con \"no está abierta\" sin explicar que basta con\n\t\t// engancharse.\n\t\tif (options.sessionId) await client.attachSession(options.sessionId).catch(() => undefined);\n\n\t\t// El punto de extensión del protocolo lo añadimos nosotros a\n\t\t// `packages/{client,protocol,server}`, y esos paquetes NO viajan en el\n\t\t// tarball: `@hoilab/ada-cli` los resuelve del registro de npm, así que\n\t\t// quien instala recibe los de upstream, sin este comando.\n\t\t//\n\t\t// Sin esta comprobación, `ada-cli session <id> compact` reventaba con\n\t\t// «client.extension is not a function» —un error que no dice nada de la\n\t\t// causa— en vez de explicar qué falta. Es la diferencia entre «está roto» y\n\t\t// «esto necesita una compilación desde fuentes».\n\t\tif (typeof (client as { extension?: unknown }).extension !== \"function\") {\n\t\t\treturn {\n\t\t\t\tok: false,\n\t\t\t\terror:\n\t\t\t\t\t\"Esta operación necesita el punto de extensión del protocolo, que solo está en una \" +\n\t\t\t\t\t\"compilación desde fuentes: el paquete publicado depende de `@earendil-works/pi-client` \" +\n\t\t\t\t\t\"del registro, que no lo trae. Compila desde el repositorio (ver la sección «Building \" +\n\t\t\t\t\t\"from source» del README) o usa el resto de subcomandos, que no lo necesitan.\",\n\t\t\t};\n\t\t}\n\n\t\tconst result = await client.extension(options.op, {\n\t\t\tsessionId: options.sessionId,\n\t\t\tpayload: options.payload,\n\t\t});\n\t\treturn { ok: result.ok, data: result.data, error: result.error };\n\t} finally {\n\t\tawait client.dispose().catch(() => {});\n\t}\n}\n"]}

package/dist/server/pi-server-service.d.ts

@@ -0,0 +1,85 @@
+/**
+ * Implementación de `PiServerService` — sesiones residentes de Ada.
+ *
+ * Ada distribuye `packages/server` y `packages/client` de upstream desde hace
+ * versiones y NADIE los implementaba: `PiServerService` es una interfaz de 4
+ * métodos que estaba a cero. Ese era todo el hueco frente a un competidor que,
+ * tras BORRAR esos paquetes de su fork, construyó ~20k líneas de demonio a mano.
+ *
+ * Aquí solo se adapta lo que ya tenemos (SessionManager, AgentSession) a esa
+ * interfaz. El acoplamiento a un esquema que upstream marca como experimental
+ * queda contenido en este fichero y en `serve.ts`: si cambia una firma, se
+ * arregla aquí y en ningún otro sitio.
+ */
+import type { ModelMetadata, ModelRef, SessionMetadata, SessionPhase, SessionSnapshot, ThinkingLevel } from "@earendil-works/pi-protocol";
+import type { CreateSessionOptions, PiServerService, PiSessionRuntime, PiSessionRuntimeEvent, PromptInput, SteerInput } from "@earendil-works/pi-server";
+import type { AgentSession } from "../core/agent-session.ts";
+import { SessionManager } from "../core/session-manager.ts";
+/** Crea la AgentSession subyacente. Inyectable para tests. */
+export type CreateServedSession = (options: {
+    cwd: string;
+    sessionManager: SessionManager;
+    model?: ModelRef;
+    thinkingLevel?: ThinkingLevel;
+}) => Promise<AgentSession>;
+export interface AdaServerServiceOptions {
+    agentDir: string;
+    defaultCwd: string;
+    createSession: CreateServedSession;
+    listModels?: () => Promise<ModelMetadata[]>;
+}
+/**
+ * Un runtime adquirido sobre una AgentSession viva.
+ *
+ * `revision` es monótona y sube en cada evento: es lo que permite a un cliente
+ * saber que su copia está obsoleta sin comparar transcripts enteros.
+ */
+export declare class AdaSessionRuntime implements PiSessionRuntime {
+    private listeners;
+    private revision;
+    private phase;
+    private unsubscribe;
+    private disposed;
+    readonly session: AgentSession;
+    readonly sessionManager: SessionManager;
+    private createdAt;
+    constructor(session: AgentSession, sessionManager: SessionManager, createdAt: number);
+    private emit;
+    snapshot(): SessionSnapshot;
+    getPhase(): SessionPhase;
+    prompt(input: PromptInput): Promise<void>;
+    steer(input: SteerInput): Promise<void>;
+    abort(): Promise<void>;
+    setModel(model: ModelRef): Promise<void>;
+    setThinking(thinkingLevel: ThinkingLevel): Promise<void>;
+    subscribe(listener: (event: PiSessionRuntimeEvent) => void): () => void;
+    dispose(): Promise<void>;
+}
+/**
+ * Servicio de sesiones residentes.
+ *
+ * Exclusividad: una sesión abierta dos veces devuelve el MISMO runtime en vez de
+ * crear un segundo dueño de ejecución. Dos procesos escribiendo el mismo JSONL
+ * es corrupción silenciosa, y con residencia deja de ser hipotético.
+ */
+export declare class AdaServerService implements PiServerService {
+    private open;
+    private extensionHandler;
+    private options;
+    constructor(options: AdaServerServiceOptions);
+    listSessions(): Promise<SessionMetadata[]>;
+    listModels(): Promise<ModelMetadata[]>;
+    createSession(options: CreateSessionOptions): Promise<PiSessionRuntime>;
+    openSession(sessionId: string): Promise<PiSessionRuntime>;
+    /**
+     * Operaciones propias de Ada (compact/rename/fork/kill).
+     *
+     * Se delega en `extension-ops.ts` en vez de crecer aquí: el servicio es la
+     * frontera con el protocolo, no el sitio donde acumular una op por cada cosa
+     * que se le ocurra a un cliente.
+     */
+    extension(request: import("@earendil-works/pi-server").ExtensionRequest): Promise<unknown>;
+    /** Cierra todos los runtimes vivos (apagado del servidor). */
+    disposeAll(): Promise<void>;
+}
+//# sourceMappingURL=pi-server-service.d.ts.map

package/dist/server/pi-server-service.d.ts.map

@@ -0,0 +1 @@
+{"version":3,"file":"pi-server-service.d.ts","sourceRoot":"","sources":["../../src/server/pi-server-service.ts"],"names":[],"mappings":"AAAA;;;;;;;;;;;;GAYG;AAEH,OAAO,KAAK,EACX,aAAa,EACb,QAAQ,EACR,eAAe,EACf,YAAY,EACZ,eAAe,EACf,aAAa,EACb,MAAM,6BAA6B,CAAC;AACrC,OAAO,KAAK,EACX,oBAAoB,EACpB,eAAe,EACf,gBAAgB,EAChB,qBAAqB,EACrB,WAAW,EACX,UAAU,EACV,MAAM,2BAA2B,CAAC;AACnC,OAAO,KAAK,EAAE,YAAY,EAAE,MAAM,0BAA0B,CAAC;AAC7D,OAAO,EAAE,cAAc,EAAE,MAAM,4BAA4B,CAAC;AAI5D,8DAA8D;AAC9D,MAAM,MAAM,mBAAmB,GAAG,CAAC,OAAO,EAAE;IAC3C,GAAG,EAAE,MAAM,CAAC;IACZ,cAAc,EAAE,cAAc,CAAC;IAC/B,KAAK,CAAC,EAAE,QAAQ,CAAC;IACjB,aAAa,CAAC,EAAE,aAAa,CAAC;CAC9B,KAAK,OAAO,CAAC,YAAY,CAAC,CAAC;AAE5B,MAAM,WAAW,uBAAuB;IACvC,QAAQ,EAAE,MAAM,CAAC;IACjB,UAAU,EAAE,MAAM,CAAC;IACnB,aAAa,EAAE,mBAAmB,CAAC;IACnC,UAAU,CAAC,EAAE,MAAM,OAAO,CAAC,aAAa,EAAE,CAAC,CAAC;CAC5C;AAED;;;;;GAKG;AACH,qBAAa,iBAAkB,YAAW,gBAAgB;IACzD,OAAO,CAAC,SAAS,CAAqD;IACtE,OAAO,CAAC,QAAQ,CAAK;IACrB,OAAO,CAAC,KAAK,CAAwB;IACrC,OAAO,CAAC,WAAW,CAA6B;IAChD,OAAO,CAAC,QAAQ,CAAS;IAKzB,QAAQ,CAAC,OAAO,EAAE,YAAY,CAAC;IAC/B,QAAQ,CAAC,cAAc,EAAE,cAAc,CAAC;IACxC,OAAO,CAAC,SAAS,CAAS;IAE1B,YAAY,OAAO,EAAE,YAAY,EAAE,cAAc,EAAE,cAAc,EAAE,SAAS,EAAE,MAAM,EAWnF;IAED,OAAO,CAAC,IAAI;IAUZ,QAAQ,IAAI,eAAe,CAqB1B;IAED,QAAQ,IAAI,YAAY,CAEvB;IAEK,MAAM,CAAC,KAAK,EAAE,WAAW,GAAG,OAAO,CAAC,IAAI,CAAC,CAE9C;IAEK,KAAK,CAAC,KAAK,EAAE,UAAU,GAAG,OAAO,CAAC,IAAI,CAAC,CAG5C;IAEK,KAAK,IAAI,OAAO,CAAC,IAAI,CAAC,CAE3B;IAEK,QAAQ,CAAC,KAAK,EAAE,QAAQ,GAAG,OAAO,CAAC,IAAI,CAAC,CAK7C;IAEK,WAAW,CAAC,aAAa,EAAE,aAAa,GAAG,OAAO,CAAC,IAAI,CAAC,CAE7D;IAED,SAAS,CAAC,QAAQ,EAAE,CAAC,KAAK,EAAE,qBAAqB,KAAK,IAAI,GAAG,MAAM,IAAI,CAKtE;IAEK,OAAO,IAAI,OAAO,CAAC,IAAI,CAAC,CAM7B;CACD;AAED;;;;;;GAMG;AACH,qBAAa,gBAAiB,YAAW,eAAe;IACvD,OAAO,CAAC,IAAI,CAAwC;IACpD,OAAO,CAAC,gBAAgB,CAAwD;IAEhF,OAAO,CAAC,OAAO,CAA0B;IAEzC,YAAY,OAAO,EAAE,uBAAuB,EAE3C;IAEK,YAAY,IAAI,OAAO,CAAC,eAAe,EAAE,CAAC,CAS/C;IAEK,UAAU,IAAI,OAAO,CAAC,aAAa,EAAE,CAAC,CAE3C;IAEK,aAAa,CAAC,OAAO,EAAE,oBAAoB,GAAG,OAAO,CAAC,gBAAgB,CAAC,CAe5E;IAEK,WAAW,CAAC,SAAS,EAAE,MAAM,GAAG,OAAO,CAAC,gBAAgB,CAAC,CAW9D;IAED;;;;;;OAMG;IACG,SAAS,CAAC,OAAO,EAAE,OAAO,2BAA2B,EAAE,gBAAgB,GAAG,OAAO,CAAC,OAAO,CAAC,CAc/F;IAED,8DAA8D;IACxD,UAAU,IAAI,OAAO,CAAC,IAAI,CAAC,CAQhC;CACD","sourcesContent":["/**\n * Implementación de `PiServerService` — sesiones residentes de Ada.\n *\n * Ada distribuye `packages/server` y `packages/client` de upstream desde hace\n * versiones y NADIE los implementaba: `PiServerService` es una interfaz de 4\n * métodos que estaba a cero. Ese era todo el hueco frente a un competidor que,\n * tras BORRAR esos paquetes de su fork, construyó ~20k líneas de demonio a mano.\n *\n * Aquí solo se adapta lo que ya tenemos (SessionManager, AgentSession) a esa\n * interfaz. El acoplamiento a un esquema que upstream marca como experimental\n * queda contenido en este fichero y en `serve.ts`: si cambia una firma, se\n * arregla aquí y en ningún otro sitio.\n */\n\nimport type {\n\tModelMetadata,\n\tModelRef,\n\tSessionMetadata,\n\tSessionPhase,\n\tSessionSnapshot,\n\tThinkingLevel,\n} from \"@earendil-works/pi-protocol\";\nimport type {\n\tCreateSessionOptions,\n\tPiServerService,\n\tPiSessionRuntime,\n\tPiSessionRuntimeEvent,\n\tPromptInput,\n\tSteerInput,\n} from \"@earendil-works/pi-server\";\nimport type { AgentSession } from \"../core/agent-session.ts\";\nimport { SessionManager } from \"../core/session-manager.ts\";\nimport { createExtensionHandler } from \"./extension-ops.ts\";\nimport { projectTranscript } from \"./transcript.ts\";\n\n/** Crea la AgentSession subyacente. Inyectable para tests. */\nexport type CreateServedSession = (options: {\n\tcwd: string;\n\tsessionManager: SessionManager;\n\tmodel?: ModelRef;\n\tthinkingLevel?: ThinkingLevel;\n}) => Promise<AgentSession>;\n\nexport interface AdaServerServiceOptions {\n\tagentDir: string;\n\tdefaultCwd: string;\n\tcreateSession: CreateServedSession;\n\tlistModels?: () => Promise<ModelMetadata[]>;\n}\n\n/**\n * Un runtime adquirido sobre una AgentSession viva.\n *\n * `revision` es monótona y sube en cada evento: es lo que permite a un cliente\n * saber que su copia está obsoleta sin comparar transcripts enteros.\n */\nexport class AdaSessionRuntime implements PiSessionRuntime {\n\tprivate listeners = new Set<(event: PiSessionRuntimeEvent) => void>();\n\tprivate revision = 0;\n\tprivate phase: SessionPhase = \"idle\";\n\tprivate unsubscribe: (() => void) | null = null;\n\tprivate disposed = false;\n\n\t// Accesibles para las operaciones de extensión (extension-ops.ts), que\n\t// necesitan la sesión y su manager y viven fuera de esta clase para no\n\t// engordarla con una op por cada cosa que se le ocurra a un cliente.\n\treadonly session: AgentSession;\n\treadonly sessionManager: SessionManager;\n\tprivate createdAt: number;\n\n\tconstructor(session: AgentSession, sessionManager: SessionManager, createdAt: number) {\n\t\tthis.session = session;\n\t\tthis.sessionManager = sessionManager;\n\t\tthis.createdAt = createdAt;\n\t\tthis.unsubscribe = this.session.subscribe((event: { type?: string }) => {\n\t\t\t// Fase derivada de los eventos de la sesión: el cliente la pinta.\n\t\t\tif (event.type === \"agent_start\") this.phase = \"turn\";\n\t\t\telse if (event.type === \"agent_end\" || event.type === \"agent_settled\") this.phase = \"idle\";\n\t\t\tthis.revision++;\n\t\t\tthis.emit({ type: \"snapshot\" });\n\t\t});\n\t}\n\n\tprivate emit(event: PiSessionRuntimeEvent): void {\n\t\tfor (const listener of this.listeners) {\n\t\t\ttry {\n\t\t\t\tlistener(event);\n\t\t\t} catch {\n\t\t\t\t// Un cliente que revienta no debe tumbar la sesión.\n\t\t\t}\n\t\t}\n\t}\n\n\tsnapshot(): SessionSnapshot {\n\t\tconst messages = this.session.messages ?? [];\n\t\tconst model = this.session.model;\n\t\treturn {\n\t\t\tid: this.sessionManager.getSessionId(),\n\t\t\t...(this.sessionManager.getSessionName() ? { name: this.sessionManager.getSessionName() as string } : {}),\n\t\t\tcwd: this.sessionManager.getCwd() || process.cwd(),\n\t\t\tcreatedAt: this.createdAt,\n\t\t\tupdatedAt: Date.now(),\n\t\t\tphase: this.phase,\n\t\t\tmodel: { provider: model?.provider ?? \"unknown\", id: model?.id ?? \"unknown\" },\n\t\t\tthinkingLevel: (this.session.thinkingLevel ?? \"off\") as ThinkingLevel,\n\t\t\tattached: this.listeners.size > 0,\n\t\t\tlocked: false,\n\t\t\trevision: this.revision,\n\t\t\ttranscript: projectTranscript(messages as never),\n\t\t\t// El encolado de steering vive en la AgentSession y no se expone; se\n\t\t\t// declara vacío en vez de inventarlo.\n\t\t\tqueuedSteer: [],\n\t\t\tqueuedSteerCount: 0,\n\t\t};\n\t}\n\n\tgetPhase(): SessionPhase {\n\t\treturn this.phase;\n\t}\n\n\tasync prompt(input: PromptInput): Promise<void> {\n\t\tawait this.session.sendUserMessage(input.text);\n\t}\n\n\tasync steer(input: SteerInput): Promise<void> {\n\t\t// `steer` entra en el turno en curso; `prompt` abre uno nuevo.\n\t\tawait this.session.sendUserMessage(input.text, { streamingBehavior: \"steer\" } as never);\n\t}\n\n\tasync abort(): Promise<void> {\n\t\tawait this.session.abort();\n\t}\n\n\tasync setModel(model: ModelRef): Promise<void> {\n\t\t// setModel espera un Model resuelto; el protocolo manda una referencia.\n\t\tconst resolved = this.session.modelRuntime.getModel(model.provider, model.id);\n\t\tif (!resolved) throw new Error(`Modelo desconocido: ${model.provider}/${model.id}`);\n\t\tawait this.session.setModel(resolved);\n\t}\n\n\tasync setThinking(thinkingLevel: ThinkingLevel): Promise<void> {\n\t\tthis.session.setThinkingLevel(thinkingLevel as never);\n\t}\n\n\tsubscribe(listener: (event: PiSessionRuntimeEvent) => void): () => void {\n\t\tthis.listeners.add(listener);\n\t\treturn () => {\n\t\t\tthis.listeners.delete(listener);\n\t\t};\n\t}\n\n\tasync dispose(): Promise<void> {\n\t\tif (this.disposed) return;\n\t\tthis.disposed = true;\n\t\tthis.unsubscribe?.();\n\t\tthis.unsubscribe = null;\n\t\tthis.listeners.clear();\n\t}\n}\n\n/**\n * Servicio de sesiones residentes.\n *\n * Exclusividad: una sesión abierta dos veces devuelve el MISMO runtime en vez de\n * crear un segundo dueño de ejecución. Dos procesos escribiendo el mismo JSONL\n * es corrupción silenciosa, y con residencia deja de ser hipotético.\n */\nexport class AdaServerService implements PiServerService {\n\tprivate open = new Map<string, AdaSessionRuntime>();\n\tprivate extensionHandler: ReturnType<typeof createExtensionHandler> | undefined;\n\n\tprivate options: AdaServerServiceOptions;\n\n\tconstructor(options: AdaServerServiceOptions) {\n\t\tthis.options = options;\n\t}\n\n\tasync listSessions(): Promise<SessionMetadata[]> {\n\t\tconst sessions = await SessionManager.list(this.options.defaultCwd);\n\t\treturn sessions.map((s) => ({\n\t\t\tid: s.id,\n\t\t\tcreatedAt: s.created instanceof Date ? s.created.getTime() : 0,\n\t\t\t...(s.modified instanceof Date ? { updatedAt: s.modified.getTime() } : {}),\n\t\t\t...(s.name ? { sessionName: s.name } : {}),\n\t\t\t...(s.cwd ? { cwd: s.cwd } : {}),\n\t\t}));\n\t}\n\n\tasync listModels(): Promise<ModelMetadata[]> {\n\t\treturn (await this.options.listModels?.()) ?? [];\n\t}\n\n\tasync createSession(options: CreateSessionOptions): Promise<PiSessionRuntime> {\n\t\tconst cwd = options.cwd ?? this.options.defaultCwd;\n\t\tconst sessionManager = SessionManager.create(cwd);\n\t\tconst session = await this.options.createSession({\n\t\t\tcwd,\n\t\t\tsessionManager,\n\t\t\tmodel: options.model,\n\t\t\tthinkingLevel: options.thinkingLevel,\n\t\t});\n\t\tif (options.name) sessionManager.appendSessionInfo(options.name);\n\t\tconst runtime = new AdaSessionRuntime(session, sessionManager, Date.now());\n\t\t// PiServer asigna el id; se persiste ese exacto para poder reabrir.\n\t\tthis.open.set(options.id, runtime);\n\t\tthis.open.set(sessionManager.getSessionId(), runtime);\n\t\treturn runtime;\n\t}\n\n\tasync openSession(sessionId: string): Promise<PiSessionRuntime> {\n\t\tconst existing = this.open.get(sessionId);\n\t\tif (existing) return existing;\n\t\tconst sessions = await SessionManager.list(this.options.defaultCwd);\n\t\tconst found = sessions.find((s) => s.id === sessionId || s.id.startsWith(sessionId));\n\t\tif (!found) throw new Error(`Sesión no encontrada: ${sessionId}`);\n\t\tconst sessionManager = SessionManager.open(found.path, undefined, found.cwd || this.options.defaultCwd);\n\t\tconst session = await this.options.createSession({ cwd: found.cwd || this.options.defaultCwd, sessionManager });\n\t\tconst runtime = new AdaSessionRuntime(session, sessionManager, found.created?.getTime?.() ?? Date.now());\n\t\tthis.open.set(sessionId, runtime);\n\t\treturn runtime;\n\t}\n\n\t/**\n\t * Operaciones propias de Ada (compact/rename/fork/kill).\n\t *\n\t * Se delega en `extension-ops.ts` en vez de crecer aquí: el servicio es la\n\t * frontera con el protocolo, no el sitio donde acumular una op por cada cosa\n\t * que se le ocurra a un cliente.\n\t */\n\tasync extension(request: import(\"@earendil-works/pi-server\").ExtensionRequest): Promise<unknown> {\n\t\tthis.extensionHandler ??= createExtensionHandler({\n\t\t\tforget: (sessionId) => {\n\t\t\t\t// Se retiran TODOS los alias del runtime: `createSession` registra el\n\t\t\t\t// id del servidor y el del SessionManager, y dejar uno colgando haría\n\t\t\t\t// que un `open` posterior devolviera un runtime ya cerrado.\n\t\t\t\tconst runtime = this.open.get(sessionId);\n\t\t\t\tif (!runtime) return;\n\t\t\t\tfor (const [key, value] of [...this.open]) {\n\t\t\t\t\tif (value === runtime) this.open.delete(key);\n\t\t\t\t}\n\t\t\t},\n\t\t});\n\t\treturn this.extensionHandler(request);\n\t}\n\n\t/** Cierra todos los runtimes vivos (apagado del servidor). */\n\tasync disposeAll(): Promise<void> {\n\t\tconst seen = new Set<AdaSessionRuntime>();\n\t\tfor (const runtime of this.open.values()) {\n\t\t\tif (seen.has(runtime)) continue;\n\t\t\tseen.add(runtime);\n\t\t\tawait runtime.dispose();\n\t\t}\n\t\tthis.open.clear();\n\t}\n}\n"]}

package/dist/server/pi-server-service.js

@@ -0,0 +1,213 @@
+/**
+ * Implementación de `PiServerService` — sesiones residentes de Ada.
+ *
+ * Ada distribuye `packages/server` y `packages/client` de upstream desde hace
+ * versiones y NADIE los implementaba: `PiServerService` es una interfaz de 4
+ * métodos que estaba a cero. Ese era todo el hueco frente a un competidor que,
+ * tras BORRAR esos paquetes de su fork, construyó ~20k líneas de demonio a mano.
+ *
+ * Aquí solo se adapta lo que ya tenemos (SessionManager, AgentSession) a esa
+ * interfaz. El acoplamiento a un esquema que upstream marca como experimental
+ * queda contenido en este fichero y en `serve.ts`: si cambia una firma, se
+ * arregla aquí y en ningún otro sitio.
+ */
+import { SessionManager } from "../core/session-manager.js";
+import { createExtensionHandler } from "./extension-ops.js";
+import { projectTranscript } from "./transcript.js";
+/**
+ * Un runtime adquirido sobre una AgentSession viva.
+ *
+ * `revision` es monótona y sube en cada evento: es lo que permite a un cliente
+ * saber que su copia está obsoleta sin comparar transcripts enteros.
+ */
+export class AdaSessionRuntime {
+    listeners = new Set();
+    revision = 0;
+    phase = "idle";
+    unsubscribe = null;
+    disposed = false;
+    // Accesibles para las operaciones de extensión (extension-ops.ts), que
+    // necesitan la sesión y su manager y viven fuera de esta clase para no
+    // engordarla con una op por cada cosa que se le ocurra a un cliente.
+    session;
+    sessionManager;
+    createdAt;
+    constructor(session, sessionManager, createdAt) {
+        this.session = session;
+        this.sessionManager = sessionManager;
+        this.createdAt = createdAt;
+        this.unsubscribe = this.session.subscribe((event) => {
+            // Fase derivada de los eventos de la sesión: el cliente la pinta.
+            if (event.type === "agent_start")
+                this.phase = "turn";
+            else if (event.type === "agent_end" || event.type === "agent_settled")
+                this.phase = "idle";
+            this.revision++;
+            this.emit({ type: "snapshot" });
+        });
+    }
+    emit(event) {
+        for (const listener of this.listeners) {
+            try {
+                listener(event);
+            }
+            catch {
+                // Un cliente que revienta no debe tumbar la sesión.
+            }
+        }
+    }
+    snapshot() {
+        const messages = this.session.messages ?? [];
+        const model = this.session.model;
+        return {
+            id: this.sessionManager.getSessionId(),
+            ...(this.sessionManager.getSessionName() ? { name: this.sessionManager.getSessionName() } : {}),
+            cwd: this.sessionManager.getCwd() || process.cwd(),
+            createdAt: this.createdAt,
+            updatedAt: Date.now(),
+            phase: this.phase,
+            model: { provider: model?.provider ?? "unknown", id: model?.id ?? "unknown" },
+            thinkingLevel: (this.session.thinkingLevel ?? "off"),
+            attached: this.listeners.size > 0,
+            locked: false,
+            revision: this.revision,
+            transcript: projectTranscript(messages),
+            // El encolado de steering vive en la AgentSession y no se expone; se
+            // declara vacío en vez de inventarlo.
+            queuedSteer: [],
+            queuedSteerCount: 0,
+        };
+    }
+    getPhase() {
+        return this.phase;
+    }
+    async prompt(input) {
+        await this.session.sendUserMessage(input.text);
+    }
+    async steer(input) {
+        // `steer` entra en el turno en curso; `prompt` abre uno nuevo.
+        await this.session.sendUserMessage(input.text, { streamingBehavior: "steer" });
+    }
+    async abort() {
+        await this.session.abort();
+    }
+    async setModel(model) {
+        // setModel espera un Model resuelto; el protocolo manda una referencia.
+        const resolved = this.session.modelRuntime.getModel(model.provider, model.id);
+        if (!resolved)
+            throw new Error(`Modelo desconocido: ${model.provider}/${model.id}`);
+        await this.session.setModel(resolved);
+    }
+    async setThinking(thinkingLevel) {
+        this.session.setThinkingLevel(thinkingLevel);
+    }
+    subscribe(listener) {
+        this.listeners.add(listener);
+        return () => {
+            this.listeners.delete(listener);
+        };
+    }
+    async dispose() {
+        if (this.disposed)
+            return;
+        this.disposed = true;
+        this.unsubscribe?.();
+        this.unsubscribe = null;
+        this.listeners.clear();
+    }
+}
+/**
+ * Servicio de sesiones residentes.
+ *
+ * Exclusividad: una sesión abierta dos veces devuelve el MISMO runtime en vez de
+ * crear un segundo dueño de ejecución. Dos procesos escribiendo el mismo JSONL
+ * es corrupción silenciosa, y con residencia deja de ser hipotético.
+ */
+export class AdaServerService {
+    open = new Map();
+    extensionHandler;
+    options;
+    constructor(options) {
+        this.options = options;
+    }
+    async listSessions() {
+        const sessions = await SessionManager.list(this.options.defaultCwd);
+        return sessions.map((s) => ({
+            id: s.id,
+            createdAt: s.created instanceof Date ? s.created.getTime() : 0,
+            ...(s.modified instanceof Date ? { updatedAt: s.modified.getTime() } : {}),
+            ...(s.name ? { sessionName: s.name } : {}),
+            ...(s.cwd ? { cwd: s.cwd } : {}),
+        }));
+    }
+    async listModels() {
+        return (await this.options.listModels?.()) ?? [];
+    }
+    async createSession(options) {
+        const cwd = options.cwd ?? this.options.defaultCwd;
+        const sessionManager = SessionManager.create(cwd);
+        const session = await this.options.createSession({
+            cwd,
+            sessionManager,
+            model: options.model,
+            thinkingLevel: options.thinkingLevel,
+        });
+        if (options.name)
+            sessionManager.appendSessionInfo(options.name);
+        const runtime = new AdaSessionRuntime(session, sessionManager, Date.now());
+        // PiServer asigna el id; se persiste ese exacto para poder reabrir.
+        this.open.set(options.id, runtime);
+        this.open.set(sessionManager.getSessionId(), runtime);
+        return runtime;
+    }
+    async openSession(sessionId) {
+        const existing = this.open.get(sessionId);
+        if (existing)
+            return existing;
+        const sessions = await SessionManager.list(this.options.defaultCwd);
+        const found = sessions.find((s) => s.id === sessionId || s.id.startsWith(sessionId));
+        if (!found)
+            throw new Error(`Sesión no encontrada: ${sessionId}`);
+        const sessionManager = SessionManager.open(found.path, undefined, found.cwd || this.options.defaultCwd);
+        const session = await this.options.createSession({ cwd: found.cwd || this.options.defaultCwd, sessionManager });
+        const runtime = new AdaSessionRuntime(session, sessionManager, found.created?.getTime?.() ?? Date.now());
+        this.open.set(sessionId, runtime);
+        return runtime;
+    }
+    /**
+     * Operaciones propias de Ada (compact/rename/fork/kill).
+     *
+     * Se delega en `extension-ops.ts` en vez de crecer aquí: el servicio es la
+     * frontera con el protocolo, no el sitio donde acumular una op por cada cosa
+     * que se le ocurra a un cliente.
+     */
+    async extension(request) {
+        this.extensionHandler ??= createExtensionHandler({
+            forget: (sessionId) => {
+                // Se retiran TODOS los alias del runtime: `createSession` registra el
+                // id del servidor y el del SessionManager, y dejar uno colgando haría
+                // que un `open` posterior devolviera un runtime ya cerrado.
+                const runtime = this.open.get(sessionId);
+                if (!runtime)
+                    return;
+                for (const [key, value] of [...this.open]) {
+                    if (value === runtime)
+                        this.open.delete(key);
+                }
+            },
+        });
+        return this.extensionHandler(request);
+    }
+    /** Cierra todos los runtimes vivos (apagado del servidor). */
+    async disposeAll() {
+        const seen = new Set();
+        for (const runtime of this.open.values()) {
+            if (seen.has(runtime))
+                continue;
+            seen.add(runtime);
+            await runtime.dispose();
+        }
+        this.open.clear();
+    }
+}
+//# sourceMappingURL=pi-server-service.js.map

package/dist/server/pi-server-service.js.map

@@ -0,0 +1 @@
+{"version":3,"file":"pi-server-service.js","sourceRoot":"","sources":["../../src/server/pi-server-service.ts"],"names":[],"mappings":"AAAA;;;;;;;;;;;;GAYG;AAmBH,OAAO,EAAE,cAAc,EAAE,MAAM,4BAA4B,CAAC;AAC5D,OAAO,EAAE,sBAAsB,EAAE,MAAM,oBAAoB,CAAC;AAC5D,OAAO,EAAE,iBAAiB,EAAE,MAAM,iBAAiB,CAAC;AAiBpD;;;;;GAKG;AACH,MAAM,OAAO,iBAAiB;IACrB,SAAS,GAAG,IAAI,GAAG,EAA0C,CAAC;IAC9D,QAAQ,GAAG,CAAC,CAAC;IACb,KAAK,GAAiB,MAAM,CAAC;IAC7B,WAAW,GAAwB,IAAI,CAAC;IACxC,QAAQ,GAAG,KAAK,CAAC;IAEzB,wEAAuE;IACvE,wEAAuE;IACvE,qEAAqE;IAC5D,OAAO,CAAe;IACtB,cAAc,CAAiB;IAChC,SAAS,CAAS;IAE1B,YAAY,OAAqB,EAAE,cAA8B,EAAE,SAAiB,EAAE;QACrF,IAAI,CAAC,OAAO,GAAG,OAAO,CAAC;QACvB,IAAI,CAAC,cAAc,GAAG,cAAc,CAAC;QACrC,IAAI,CAAC,SAAS,GAAG,SAAS,CAAC;QAC3B,IAAI,CAAC,WAAW,GAAG,IAAI,CAAC,OAAO,CAAC,SAAS,CAAC,CAAC,KAAwB,EAAE,EAAE,CAAC;YACvE,mEAAkE;YAClE,IAAI,KAAK,CAAC,IAAI,KAAK,aAAa;gBAAE,IAAI,CAAC,KAAK,GAAG,MAAM,CAAC;iBACjD,IAAI,KAAK,CAAC,IAAI,KAAK,WAAW,IAAI,KAAK,CAAC,IAAI,KAAK,eAAe;gBAAE,IAAI,CAAC,KAAK,GAAG,MAAM,CAAC;YAC3F,IAAI,CAAC,QAAQ,EAAE,CAAC;YAChB,IAAI,CAAC,IAAI,CAAC,EAAE,IAAI,EAAE,UAAU,EAAE,CAAC,CAAC;QAAA,CAChC,CAAC,CAAC;IAAA,CACH;IAEO,IAAI,CAAC,KAA4B,EAAQ;QAChD,KAAK,MAAM,QAAQ,IAAI,IAAI,CAAC,SAAS,EAAE,CAAC;YACvC,IAAI,CAAC;gBACJ,QAAQ,CAAC,KAAK,CAAC,CAAC;YACjB,CAAC;YAAC,MAAM,CAAC;gBACR,qDAAoD;YACrD,CAAC;QACF,CAAC;IAAA,CACD;IAED,QAAQ,GAAoB;QAC3B,MAAM,QAAQ,GAAG,IAAI,CAAC,OAAO,CAAC,QAAQ,IAAI,EAAE,CAAC;QAC7C,MAAM,KAAK,GAAG,IAAI,CAAC,OAAO,CAAC,KAAK,CAAC;QACjC,OAAO;YACN,EAAE,EAAE,IAAI,CAAC,cAAc,CAAC,YAAY,EAAE;YACtC,GAAG,CAAC,IAAI,CAAC,cAAc,CAAC,cAAc,EAAE,CAAC,CAAC,CAAC,EAAE,IAAI,EAAE,IAAI,CAAC,cAAc,CAAC,cAAc,EAAY,EAAE,CAAC,CAAC,CAAC,EAAE,CAAC;YACzG,GAAG,EAAE,IAAI,CAAC,cAAc,CAAC,MAAM,EAAE,IAAI,OAAO,CAAC,GAAG,EAAE;YAClD,SAAS,EAAE,IAAI,CAAC,SAAS;YACzB,SAAS,EAAE,IAAI,CAAC,GAAG,EAAE;YACrB,KAAK,EAAE,IAAI,CAAC,KAAK;YACjB,KAAK,EAAE,EAAE,QAAQ,EAAE,KAAK,EAAE,QAAQ,IAAI,SAAS,EAAE,EAAE,EAAE,KAAK,EAAE,EAAE,IAAI,SAAS,EAAE;YAC7E,aAAa,EAAE,CAAC,IAAI,CAAC,OAAO,CAAC,aAAa,IAAI,KAAK,CAAkB;YACrE,QAAQ,EAAE,IAAI,CAAC,SAAS,CAAC,IAAI,GAAG,CAAC;YACjC,MAAM,EAAE,KAAK;YACb,QAAQ,EAAE,IAAI,CAAC,QAAQ;YACvB,UAAU,EAAE,iBAAiB,CAAC,QAAiB,CAAC;YAChD,qEAAqE;YACrE,uCAAsC;YACtC,WAAW,EAAE,EAAE;YACf,gBAAgB,EAAE,CAAC;SACnB,CAAC;IAAA,CACF;IAED,QAAQ,GAAiB;QACxB,OAAO,IAAI,CAAC,KAAK,CAAC;IAAA,CAClB;IAED,KAAK,CAAC,MAAM,CAAC,KAAkB,EAAiB;QAC/C,MAAM,IAAI,CAAC,OAAO,CAAC,eAAe,CAAC,KAAK,CAAC,IAAI,CAAC,CAAC;IAAA,CAC/C;IAED,KAAK,CAAC,KAAK,CAAC,KAAiB,EAAiB;QAC7C,+DAA+D;QAC/D,MAAM,IAAI,CAAC,OAAO,CAAC,eAAe,CAAC,KAAK,CAAC,IAAI,EAAE,EAAE,iBAAiB,EAAE,OAAO,EAAW,CAAC,CAAC;IAAA,CACxF;IAED,KAAK,CAAC,KAAK,GAAkB;QAC5B,MAAM,IAAI,CAAC,OAAO,CAAC,KAAK,EAAE,CAAC;IAAA,CAC3B;IAED,KAAK,CAAC,QAAQ,CAAC,KAAe,EAAiB;QAC9C,wEAAwE;QACxE,MAAM,QAAQ,GAAG,IAAI,CAAC,OAAO,CAAC,YAAY,CAAC,QAAQ,CAAC,KAAK,CAAC,QAAQ,EAAE,KAAK,CAAC,EAAE,CAAC,CAAC;QAC9E,IAAI,CAAC,QAAQ;YAAE,MAAM,IAAI,KAAK,CAAC,uBAAuB,KAAK,CAAC,QAAQ,IAAI,KAAK,CAAC,EAAE,EAAE,CAAC,CAAC;QACpF,MAAM,IAAI,CAAC,OAAO,CAAC,QAAQ,CAAC,QAAQ,CAAC,CAAC;IAAA,CACtC;IAED,KAAK,CAAC,WAAW,CAAC,aAA4B,EAAiB;QAC9D,IAAI,CAAC,OAAO,CAAC,gBAAgB,CAAC,aAAsB,CAAC,CAAC;IAAA,CACtD;IAED,SAAS,CAAC,QAAgD,EAAc;QACvE,IAAI,CAAC,SAAS,CAAC,GAAG,CAAC,QAAQ,CAAC,CAAC;QAC7B,OAAO,GAAG,EAAE,CAAC;YACZ,IAAI,CAAC,SAAS,CAAC,MAAM,CAAC,QAAQ,CAAC,CAAC;QAAA,CAChC,CAAC;IAAA,CACF;IAED,KAAK,CAAC,OAAO,GAAkB;QAC9B,IAAI,IAAI,CAAC,QAAQ;YAAE,OAAO;QAC1B,IAAI,CAAC,QAAQ,GAAG,IAAI,CAAC;QACrB,IAAI,CAAC,WAAW,EAAE,EAAE,CAAC;QACrB,IAAI,CAAC,WAAW,GAAG,IAAI,CAAC;QACxB,IAAI,CAAC,SAAS,CAAC,KAAK,EAAE,CAAC;IAAA,CACvB;CACD;AAED;;;;;;GAMG;AACH,MAAM,OAAO,gBAAgB;IACpB,IAAI,GAAG,IAAI,GAAG,EAA6B,CAAC;IAC5C,gBAAgB,CAAwD;IAExE,OAAO,CAA0B;IAEzC,YAAY,OAAgC,EAAE;QAC7C,IAAI,CAAC,OAAO,GAAG,OAAO,CAAC;IAAA,CACvB;IAED,KAAK,CAAC,YAAY,GAA+B;QAChD,MAAM,QAAQ,GAAG,MAAM,cAAc,CAAC,IAAI,CAAC,IAAI,CAAC,OAAO,CAAC,UAAU,CAAC,CAAC;QACpE,OAAO,QAAQ,CAAC,GAAG,CAAC,CAAC,CAAC,EAAE,EAAE,CAAC,CAAC;YAC3B,EAAE,EAAE,CAAC,CAAC,EAAE;YACR,SAAS,EAAE,CAAC,CAAC,OAAO,YAAY,IAAI,CAAC,CAAC,CAAC,CAAC,CAAC,OAAO,CAAC,OAAO,EAAE,CAAC,CAAC,CAAC,CAAC;YAC9D,GAAG,CAAC,CAAC,CAAC,QAAQ,YAAY,IAAI,CAAC,CAAC,CAAC,EAAE,SAAS,EAAE,CAAC,CAAC,QAAQ,CAAC,OAAO,EAAE,EAAE,CAAC,CAAC,CAAC,EAAE,CAAC;YAC1E,GAAG,CAAC,CAAC,CAAC,IAAI,CAAC,CAAC,CAAC,EAAE,WAAW,EAAE,CAAC,CAAC,IAAI,EAAE,CAAC,CAAC,CAAC,EAAE,CAAC;YAC1C,GAAG,CAAC,CAAC,CAAC,GAAG,CAAC,CAAC,CAAC,EAAE,GAAG,EAAE,CAAC,CAAC,GAAG,EAAE,CAAC,CAAC,CAAC,EAAE,CAAC;SAChC,CAAC,CAAC,CAAC;IAAA,CACJ;IAED,KAAK,CAAC,UAAU,GAA6B;QAC5C,OAAO,CAAC,MAAM,IAAI,CAAC,OAAO,CAAC,UAAU,EAAE,EAAE,CAAC,IAAI,EAAE,CAAC;IAAA,CACjD;IAED,KAAK,CAAC,aAAa,CAAC,OAA6B,EAA6B;QAC7E,MAAM,GAAG,GAAG,OAAO,CAAC,GAAG,IAAI,IAAI,CAAC,OAAO,CAAC,UAAU,CAAC;QACnD,MAAM,cAAc,GAAG,cAAc,CAAC,MAAM,CAAC,GAAG,CAAC,CAAC;QAClD,MAAM,OAAO,GAAG,MAAM,IAAI,CAAC,OAAO,CAAC,aAAa,CAAC;YAChD,GAAG;YACH,cAAc;YACd,KAAK,EAAE,OAAO,CAAC,KAAK;YACpB,aAAa,EAAE,OAAO,CAAC,aAAa;SACpC,CAAC,CAAC;QACH,IAAI,OAAO,CAAC,IAAI;YAAE,cAAc,CAAC,iBAAiB,CAAC,OAAO,CAAC,IAAI,CAAC,CAAC;QACjE,MAAM,OAAO,GAAG,IAAI,iBAAiB,CAAC,OAAO,EAAE,cAAc,EAAE,IAAI,CAAC,GAAG,EAAE,CAAC,CAAC;QAC3E,oEAAoE;QACpE,IAAI,CAAC,IAAI,CAAC,GAAG,CAAC,OAAO,CAAC,EAAE,EAAE,OAAO,CAAC,CAAC;QACnC,IAAI,CAAC,IAAI,CAAC,GAAG,CAAC,cAAc,CAAC,YAAY,EAAE,EAAE,OAAO,CAAC,CAAC;QACtD,OAAO,OAAO,CAAC;IAAA,CACf;IAED,KAAK,CAAC,WAAW,CAAC,SAAiB,EAA6B;QAC/D,MAAM,QAAQ,GAAG,IAAI,CAAC,IAAI,CAAC,GAAG,CAAC,SAAS,CAAC,CAAC;QAC1C,IAAI,QAAQ;YAAE,OAAO,QAAQ,CAAC;QAC9B,MAAM,QAAQ,GAAG,MAAM,cAAc,CAAC,IAAI,CAAC,IAAI,CAAC,OAAO,CAAC,UAAU,CAAC,CAAC;QACpE,MAAM,KAAK,GAAG,QAAQ,CAAC,IAAI,CAAC,CAAC,CAAC,EAAE,EAAE,CAAC,CAAC,CAAC,EAAE,KAAK,SAAS,IAAI,CAAC,CAAC,EAAE,CAAC,UAAU,CAAC,SAAS,CAAC,CAAC,CAAC;QACrF,IAAI,CAAC,KAAK;YAAE,MAAM,IAAI,KAAK,CAAC,0BAAyB,SAAS,EAAE,CAAC,CAAC;QAClE,MAAM,cAAc,GAAG,cAAc,CAAC,IAAI,CAAC,KAAK,CAAC,IAAI,EAAE,SAAS,EAAE,KAAK,CAAC,GAAG,IAAI,IAAI,CAAC,OAAO,CAAC,UAAU,CAAC,CAAC;QACxG,MAAM,OAAO,GAAG,MAAM,IAAI,CAAC,OAAO,CAAC,aAAa,CAAC,EAAE,GAAG,EAAE,KAAK,CAAC,GAAG,IAAI,IAAI,CAAC,OAAO,CAAC,UAAU,EAAE,cAAc,EAAE,CAAC,CAAC;QAChH,MAAM,OAAO,GAAG,IAAI,iBAAiB,CAAC,OAAO,EAAE,cAAc,EAAE,KAAK,CAAC,OAAO,EAAE,OAAO,EAAE,EAAE,IAAI,IAAI,CAAC,GAAG,EAAE,CAAC,CAAC;QACzG,IAAI,CAAC,IAAI,CAAC,GAAG,CAAC,SAAS,EAAE,OAAO,CAAC,CAAC;QAClC,OAAO,OAAO,CAAC;IAAA,CACf;IAED;;;;;;OAMG;IACH,KAAK,CAAC,SAAS,CAAC,OAA6D,EAAoB;QAChG,IAAI,CAAC,gBAAgB,KAAK,sBAAsB,CAAC;YAChD,MAAM,EAAE,CAAC,SAAS,EAAE,EAAE,CAAC;gBACtB,sEAAsE;gBACtE,uEAAsE;gBACtE,4DAA4D;gBAC5D,MAAM,OAAO,GAAG,IAAI,CAAC,IAAI,CAAC,GAAG,CAAC,SAAS,CAAC,CAAC;gBACzC,IAAI,CAAC,OAAO;oBAAE,OAAO;gBACrB,KAAK,MAAM,CAAC,GAAG,EAAE,KAAK,CAAC,IAAI,CAAC,GAAG,IAAI,CAAC,IAAI,CAAC,EAAE,CAAC;oBAC3C,IAAI,KAAK,KAAK,OAAO;wBAAE,IAAI,CAAC,IAAI,CAAC,MAAM,CAAC,GAAG,CAAC,CAAC;gBAC9C,CAAC;YAAA,CACD;SACD,CAAC,CAAC;QACH,OAAO,IAAI,CAAC,gBAAgB,CAAC,OAAO,CAAC,CAAC;IAAA,CACtC;IAED,8DAA8D;IAC9D,KAAK,CAAC,UAAU,GAAkB;QACjC,MAAM,IAAI,GAAG,IAAI,GAAG,EAAqB,CAAC;QAC1C,KAAK,MAAM,OAAO,IAAI,IAAI,CAAC,IAAI,CAAC,MAAM,EAAE,EAAE,CAAC;YAC1C,IAAI,IAAI,CAAC,GAAG,CAAC,OAAO,CAAC;gBAAE,SAAS;YAChC,IAAI,CAAC,GAAG,CAAC,OAAO,CAAC,CAAC;YAClB,MAAM,OAAO,CAAC,OAAO,EAAE,CAAC;QACzB,CAAC;QACD,IAAI,CAAC,IAAI,CAAC,KAAK,EAAE,CAAC;IAAA,CAClB;CACD","sourcesContent":["/**\n * Implementación de `PiServerService` — sesiones residentes de Ada.\n *\n * Ada distribuye `packages/server` y `packages/client` de upstream desde hace\n * versiones y NADIE los implementaba: `PiServerService` es una interfaz de 4\n * métodos que estaba a cero. Ese era todo el hueco frente a un competidor que,\n * tras BORRAR esos paquetes de su fork, construyó ~20k líneas de demonio a mano.\n *\n * Aquí solo se adapta lo que ya tenemos (SessionManager, AgentSession) a esa\n * interfaz. El acoplamiento a un esquema que upstream marca como experimental\n * queda contenido en este fichero y en `serve.ts`: si cambia una firma, se\n * arregla aquí y en ningún otro sitio.\n */\n\nimport type {\n\tModelMetadata,\n\tModelRef,\n\tSessionMetadata,\n\tSessionPhase,\n\tSessionSnapshot,\n\tThinkingLevel,\n} from \"@earendil-works/pi-protocol\";\nimport type {\n\tCreateSessionOptions,\n\tPiServerService,\n\tPiSessionRuntime,\n\tPiSessionRuntimeEvent,\n\tPromptInput,\n\tSteerInput,\n} from \"@earendil-works/pi-server\";\nimport type { AgentSession } from \"../core/agent-session.ts\";\nimport { SessionManager } from \"../core/session-manager.ts\";\nimport { createExtensionHandler } from \"./extension-ops.ts\";\nimport { projectTranscript } from \"./transcript.ts\";\n\n/** Crea la AgentSession subyacente. Inyectable para tests. */\nexport type CreateServedSession = (options: {\n\tcwd: string;\n\tsessionManager: SessionManager;\n\tmodel?: ModelRef;\n\tthinkingLevel?: ThinkingLevel;\n}) => Promise<AgentSession>;\n\nexport interface AdaServerServiceOptions {\n\tagentDir: string;\n\tdefaultCwd: string;\n\tcreateSession: CreateServedSession;\n\tlistModels?: () => Promise<ModelMetadata[]>;\n}\n\n/**\n * Un runtime adquirido sobre una AgentSession viva.\n *\n * `revision` es monótona y sube en cada evento: es lo que permite a un cliente\n * saber que su copia está obsoleta sin comparar transcripts enteros.\n */\nexport class AdaSessionRuntime implements PiSessionRuntime {\n\tprivate listeners = new Set<(event: PiSessionRuntimeEvent) => void>();\n\tprivate revision = 0;\n\tprivate phase: SessionPhase = \"idle\";\n\tprivate unsubscribe: (() => void) | null = null;\n\tprivate disposed = false;\n\n\t// Accesibles para las operaciones de extensión (extension-ops.ts), que\n\t// necesitan la sesión y su manager y viven fuera de esta clase para no\n\t// engordarla con una op por cada cosa que se le ocurra a un cliente.\n\treadonly session: AgentSession;\n\treadonly sessionManager: SessionManager;\n\tprivate createdAt: number;\n\n\tconstructor(session: AgentSession, sessionManager: SessionManager, createdAt: number) {\n\t\tthis.session = session;\n\t\tthis.sessionManager = sessionManager;\n\t\tthis.createdAt = createdAt;\n\t\tthis.unsubscribe = this.session.subscribe((event: { type?: string }) => {\n\t\t\t// Fase derivada de los eventos de la sesión: el cliente la pinta.\n\t\t\tif (event.type === \"agent_start\") this.phase = \"turn\";\n\t\t\telse if (event.type === \"agent_end\" || event.type === \"agent_settled\") this.phase = \"idle\";\n\t\t\tthis.revision++;\n\t\t\tthis.emit({ type: \"snapshot\" });\n\t\t});\n\t}\n\n\tprivate emit(event: PiSessionRuntimeEvent): void {\n\t\tfor (const listener of this.listeners) {\n\t\t\ttry {\n\t\t\t\tlistener(event);\n\t\t\t} catch {\n\t\t\t\t// Un cliente que revienta no debe tumbar la sesión.\n\t\t\t}\n\t\t}\n\t}\n\n\tsnapshot(): SessionSnapshot {\n\t\tconst messages = this.session.messages ?? [];\n\t\tconst model = this.session.model;\n\t\treturn {\n\t\t\tid: this.sessionManager.getSessionId(),\n\t\t\t...(this.sessionManager.getSessionName() ? { name: this.sessionManager.getSessionName() as string } : {}),\n\t\t\tcwd: this.sessionManager.getCwd() || process.cwd(),\n\t\t\tcreatedAt: this.createdAt,\n\t\t\tupdatedAt: Date.now(),\n\t\t\tphase: this.phase,\n\t\t\tmodel: { provider: model?.provider ?? \"unknown\", id: model?.id ?? \"unknown\" },\n\t\t\tthinkingLevel: (this.session.thinkingLevel ?? \"off\") as ThinkingLevel,\n\t\t\tattached: this.listeners.size > 0,\n\t\t\tlocked: false,\n\t\t\trevision: this.revision,\n\t\t\ttranscript: projectTranscript(messages as never),\n\t\t\t// El encolado de steering vive en la AgentSession y no se expone; se\n\t\t\t// declara vacío en vez de inventarlo.\n\t\t\tqueuedSteer: [],\n\t\t\tqueuedSteerCount: 0,\n\t\t};\n\t}\n\n\tgetPhase(): SessionPhase {\n\t\treturn this.phase;\n\t}\n\n\tasync prompt(input: PromptInput): Promise<void> {\n\t\tawait this.session.sendUserMessage(input.text);\n\t}\n\n\tasync steer(input: SteerInput): Promise<void> {\n\t\t// `steer` entra en el turno en curso; `prompt` abre uno nuevo.\n\t\tawait this.session.sendUserMessage(input.text, { streamingBehavior: \"steer\" } as never);\n\t}\n\n\tasync abort(): Promise<void> {\n\t\tawait this.session.abort();\n\t}\n\n\tasync setModel(model: ModelRef): Promise<void> {\n\t\t// setModel espera un Model resuelto; el protocolo manda una referencia.\n\t\tconst resolved = this.session.modelRuntime.getModel(model.provider, model.id);\n\t\tif (!resolved) throw new Error(`Modelo desconocido: ${model.provider}/${model.id}`);\n\t\tawait this.session.setModel(resolved);\n\t}\n\n\tasync setThinking(thinkingLevel: ThinkingLevel): Promise<void> {\n\t\tthis.session.setThinkingLevel(thinkingLevel as never);\n\t}\n\n\tsubscribe(listener: (event: PiSessionRuntimeEvent) => void): () => void {\n\t\tthis.listeners.add(listener);\n\t\treturn () => {\n\t\t\tthis.listeners.delete(listener);\n\t\t};\n\t}\n\n\tasync dispose(): Promise<void> {\n\t\tif (this.disposed) return;\n\t\tthis.disposed = true;\n\t\tthis.unsubscribe?.();\n\t\tthis.unsubscribe = null;\n\t\tthis.listeners.clear();\n\t}\n}\n\n/**\n * Servicio de sesiones residentes.\n *\n * Exclusividad: una sesión abierta dos veces devuelve el MISMO runtime en vez de\n * crear un segundo dueño de ejecución. Dos procesos escribiendo el mismo JSONL\n * es corrupción silenciosa, y con residencia deja de ser hipotético.\n */\nexport class AdaServerService implements PiServerService {\n\tprivate open = new Map<string, AdaSessionRuntime>();\n\tprivate extensionHandler: ReturnType<typeof createExtensionHandler> | undefined;\n\n\tprivate options: AdaServerServiceOptions;\n\n\tconstructor(options: AdaServerServiceOptions) {\n\t\tthis.options = options;\n\t}\n\n\tasync listSessions(): Promise<SessionMetadata[]> {\n\t\tconst sessions = await SessionManager.list(this.options.defaultCwd);\n\t\treturn sessions.map((s) => ({\n\t\t\tid: s.id,\n\t\t\tcreatedAt: s.created instanceof Date ? s.created.getTime() : 0,\n\t\t\t...(s.modified instanceof Date ? { updatedAt: s.modified.getTime() } : {}),\n\t\t\t...(s.name ? { sessionName: s.name } : {}),\n\t\t\t...(s.cwd ? { cwd: s.cwd } : {}),\n\t\t}));\n\t}\n\n\tasync listModels(): Promise<ModelMetadata[]> {\n\t\treturn (await this.options.listModels?.()) ?? [];\n\t}\n\n\tasync createSession(options: CreateSessionOptions): Promise<PiSessionRuntime> {\n\t\tconst cwd = options.cwd ?? this.options.defaultCwd;\n\t\tconst sessionManager = SessionManager.create(cwd);\n\t\tconst session = await this.options.createSession({\n\t\t\tcwd,\n\t\t\tsessionManager,\n\t\t\tmodel: options.model,\n\t\t\tthinkingLevel: options.thinkingLevel,\n\t\t});\n\t\tif (options.name) sessionManager.appendSessionInfo(options.name);\n\t\tconst runtime = new AdaSessionRuntime(session, sessionManager, Date.now());\n\t\t// PiServer asigna el id; se persiste ese exacto para poder reabrir.\n\t\tthis.open.set(options.id, runtime);\n\t\tthis.open.set(sessionManager.getSessionId(), runtime);\n\t\treturn runtime;\n\t}\n\n\tasync openSession(sessionId: string): Promise<PiSessionRuntime> {\n\t\tconst existing = this.open.get(sessionId);\n\t\tif (existing) return existing;\n\t\tconst sessions = await SessionManager.list(this.options.defaultCwd);\n\t\tconst found = sessions.find((s) => s.id === sessionId || s.id.startsWith(sessionId));\n\t\tif (!found) throw new Error(`Sesión no encontrada: ${sessionId}`);\n\t\tconst sessionManager = SessionManager.open(found.path, undefined, found.cwd || this.options.defaultCwd);\n\t\tconst session = await this.options.createSession({ cwd: found.cwd || this.options.defaultCwd, sessionManager });\n\t\tconst runtime = new AdaSessionRuntime(session, sessionManager, found.created?.getTime?.() ?? Date.now());\n\t\tthis.open.set(sessionId, runtime);\n\t\treturn runtime;\n\t}\n\n\t/**\n\t * Operaciones propias de Ada (compact/rename/fork/kill).\n\t *\n\t * Se delega en `extension-ops.ts` en vez de crecer aquí: el servicio es la\n\t * frontera con el protocolo, no el sitio donde acumular una op por cada cosa\n\t * que se le ocurra a un cliente.\n\t */\n\tasync extension(request: import(\"@earendil-works/pi-server\").ExtensionRequest): Promise<unknown> {\n\t\tthis.extensionHandler ??= createExtensionHandler({\n\t\t\tforget: (sessionId) => {\n\t\t\t\t// Se retiran TODOS los alias del runtime: `createSession` registra el\n\t\t\t\t// id del servidor y el del SessionManager, y dejar uno colgando haría\n\t\t\t\t// que un `open` posterior devolviera un runtime ya cerrado.\n\t\t\t\tconst runtime = this.open.get(sessionId);\n\t\t\t\tif (!runtime) return;\n\t\t\t\tfor (const [key, value] of [...this.open]) {\n\t\t\t\t\tif (value === runtime) this.open.delete(key);\n\t\t\t\t}\n\t\t\t},\n\t\t});\n\t\treturn this.extensionHandler(request);\n\t}\n\n\t/** Cierra todos los runtimes vivos (apagado del servidor). */\n\tasync disposeAll(): Promise<void> {\n\t\tconst seen = new Set<AdaSessionRuntime>();\n\t\tfor (const runtime of this.open.values()) {\n\t\t\tif (seen.has(runtime)) continue;\n\t\t\tseen.add(runtime);\n\t\t\tawait runtime.dispose();\n\t\t}\n\t\tthis.open.clear();\n\t}\n}\n"]}

package/dist/server/scheduler-tick.d.ts

@@ -0,0 +1,32 @@
+/**
+ * Reloj del scheduler dentro de `ada-cli serve`.
+ *
+ * El `Scheduler` sabe qué toca ejecutar (`claimDue`) y cómo cerrar una ejecución
+ * (`complete`), pero no ejecuta nada: necesita un proceso vivo que le pregunte.
+ * Ese proceso es el servidor, que es justamente el que ya mantiene sesiones
+ * residentes.
+ *
+ * Cada job entrega su prompt a una sesión propia. No se reutiliza una sesión
+ * compartida a propósito: dos jobs recurrentes escribiendo en el mismo historial
+ * se contaminarían el contexto mutuamente.
+ */
+import type { Scheduler } from "../core/scheduler/scheduler.ts";
+export interface SchedulerTickOptions {
+    scheduler: Scheduler;
+    /** Entrega el prompt de un job. Devuelve false si falló. */
+    dispatch: (job: {
+        id: string;
+        prompt: string;
+    }) => Promise<boolean>;
+    intervalMs?: number;
+    /** Reloj inyectable para los tests. */
+    now?: () => string;
+    onError?: (error: Error) => void;
+}
+export interface SchedulerTickHandle {
+    stop: () => void;
+    /** Ejecuta un ciclo ahora mismo. Para tests y para el arranque. */
+    tick: () => Promise<number>;
+}
+export declare function startSchedulerTick(options: SchedulerTickOptions): SchedulerTickHandle;
+//# sourceMappingURL=scheduler-tick.d.ts.map

package/dist/server/scheduler-tick.d.ts.map

@@ -0,0 +1 @@
+{"version":3,"file":"scheduler-tick.d.ts","sourceRoot":"","sources":["../../src/server/scheduler-tick.ts"],"names":[],"mappings":"AAAA;;;;;;;;;;;GAWG;AAEH,OAAO,KAAK,EAAE,SAAS,EAAE,MAAM,gCAAgC,CAAC;AAEhE,MAAM,WAAW,oBAAoB;IACpC,SAAS,EAAE,SAAS,CAAC;IACrB,6DAA4D;IAC5D,QAAQ,EAAE,CAAC,GAAG,EAAE;QAAE,EAAE,EAAE,MAAM,CAAC;QAAC,MAAM,EAAE,MAAM,CAAA;KAAE,KAAK,OAAO,CAAC,OAAO,CAAC,CAAC;IACpE,UAAU,CAAC,EAAE,MAAM,CAAC;IACpB,uCAAuC;IACvC,GAAG,CAAC,EAAE,MAAM,MAAM,CAAC;IACnB,OAAO,CAAC,EAAE,CAAC,KAAK,EAAE,KAAK,KAAK,IAAI,CAAC;CACjC;AAED,MAAM,WAAW,mBAAmB;IACnC,IAAI,EAAE,MAAM,IAAI,CAAC;IACjB,mEAAmE;IACnE,IAAI,EAAE,MAAM,OAAO,CAAC,MAAM,CAAC,CAAC;CAC5B;AAED,wBAAgB,kBAAkB,CAAC,OAAO,EAAE,oBAAoB,GAAG,mBAAmB,CAmCrF","sourcesContent":["/**\n * Reloj del scheduler dentro de `ada-cli serve`.\n *\n * El `Scheduler` sabe qué toca ejecutar (`claimDue`) y cómo cerrar una ejecución\n * (`complete`), pero no ejecuta nada: necesita un proceso vivo que le pregunte.\n * Ese proceso es el servidor, que es justamente el que ya mantiene sesiones\n * residentes.\n *\n * Cada job entrega su prompt a una sesión propia. No se reutiliza una sesión\n * compartida a propósito: dos jobs recurrentes escribiendo en el mismo historial\n * se contaminarían el contexto mutuamente.\n */\n\nimport type { Scheduler } from \"../core/scheduler/scheduler.ts\";\n\nexport interface SchedulerTickOptions {\n\tscheduler: Scheduler;\n\t/** Entrega el prompt de un job. Devuelve false si falló. */\n\tdispatch: (job: { id: string; prompt: string }) => Promise<boolean>;\n\tintervalMs?: number;\n\t/** Reloj inyectable para los tests. */\n\tnow?: () => string;\n\tonError?: (error: Error) => void;\n}\n\nexport interface SchedulerTickHandle {\n\tstop: () => void;\n\t/** Ejecuta un ciclo ahora mismo. Para tests y para el arranque. */\n\ttick: () => Promise<number>;\n}\n\nexport function startSchedulerTick(options: SchedulerTickOptions): SchedulerTickHandle {\n\tconst now = options.now ?? (() => new Date().toISOString());\n\tconst intervalMs = options.intervalMs ?? 30_000;\n\n\t// Al arrancar se liberan las ejecuciones que murieron con el proceso\n\t// anterior: sin esto un crash deja el job marcado \"en vuelo\" para siempre y\n\t// no se vuelve a entregar nunca.\n\toptions.scheduler.reconcile(now());\n\n\tconst tick = async (): Promise<number> => {\n\t\tlet dispatched = 0;\n\t\tfor (const { dispatchId, job } of options.scheduler.claimDue(now())) {\n\t\t\ttry {\n\t\t\t\tconst ok = await options.dispatch({ id: job.id, prompt: job.prompt });\n\t\t\t\toptions.scheduler.complete(dispatchId, ok);\n\t\t\t\tif (ok) dispatched++;\n\t\t\t} catch (error) {\n\t\t\t\t// Un job que revienta se cierra como fallo y NO tumba el reloj: el\n\t\t\t\t// resto de trabajos programados no tienen la culpa.\n\t\t\t\toptions.scheduler.complete(dispatchId, false);\n\t\t\t\toptions.onError?.(error instanceof Error ? error : new Error(String(error)));\n\t\t\t}\n\t\t}\n\t\treturn dispatched;\n\t};\n\n\tconst timer = setInterval(() => {\n\t\tvoid tick().catch((error: unknown) => {\n\t\t\toptions.onError?.(error instanceof Error ? error : new Error(String(error)));\n\t\t});\n\t}, intervalMs);\n\t// El reloj no debe impedir que el proceso termine si todo lo demás acabó.\n\ttimer.unref?.();\n\n\treturn { stop: () => clearInterval(timer), tick };\n}\n"]}

package/dist/server/scheduler-tick.js

@@ -0,0 +1,47 @@
+/**
+ * Reloj del scheduler dentro de `ada-cli serve`.
+ *
+ * El `Scheduler` sabe qué toca ejecutar (`claimDue`) y cómo cerrar una ejecución
+ * (`complete`), pero no ejecuta nada: necesita un proceso vivo que le pregunte.
+ * Ese proceso es el servidor, que es justamente el que ya mantiene sesiones
+ * residentes.
+ *
+ * Cada job entrega su prompt a una sesión propia. No se reutiliza una sesión
+ * compartida a propósito: dos jobs recurrentes escribiendo en el mismo historial
+ * se contaminarían el contexto mutuamente.
+ */
+export function startSchedulerTick(options) {
+    const now = options.now ?? (() => new Date().toISOString());
+    const intervalMs = options.intervalMs ?? 30_000;
+    // Al arrancar se liberan las ejecuciones que murieron con el proceso
+    // anterior: sin esto un crash deja el job marcado "en vuelo" para siempre y
+    // no se vuelve a entregar nunca.
+    options.scheduler.reconcile(now());
+    const tick = async () => {
+        let dispatched = 0;
+        for (const { dispatchId, job } of options.scheduler.claimDue(now())) {
+            try {
+                const ok = await options.dispatch({ id: job.id, prompt: job.prompt });
+                options.scheduler.complete(dispatchId, ok);
+                if (ok)
+                    dispatched++;
+            }
+            catch (error) {
+                // Un job que revienta se cierra como fallo y NO tumba el reloj: el
+                // resto de trabajos programados no tienen la culpa.
+                options.scheduler.complete(dispatchId, false);
+                options.onError?.(error instanceof Error ? error : new Error(String(error)));
+            }
+        }
+        return dispatched;
+    };
+    const timer = setInterval(() => {
+        void tick().catch((error) => {
+            options.onError?.(error instanceof Error ? error : new Error(String(error)));
+        });
+    }, intervalMs);
+    // El reloj no debe impedir que el proceso termine si todo lo demás acabó.
+    timer.unref?.();
+    return { stop: () => clearInterval(timer), tick };
+}
+//# sourceMappingURL=scheduler-tick.js.map

package/dist/server/scheduler-tick.js.map

@@ -0,0 +1 @@
+{"version":3,"file":"scheduler-tick.js","sourceRoot":"","sources":["../../src/server/scheduler-tick.ts"],"names":[],"mappings":"AAAA;;;;;;;;;;;GAWG;AAoBH,MAAM,UAAU,kBAAkB,CAAC,OAA6B,EAAuB;IACtF,MAAM,GAAG,GAAG,OAAO,CAAC,GAAG,IAAI,CAAC,GAAG,EAAE,CAAC,IAAI,IAAI,EAAE,CAAC,WAAW,EAAE,CAAC,CAAC;IAC5D,MAAM,UAAU,GAAG,OAAO,CAAC,UAAU,IAAI,MAAM,CAAC;IAEhD,qEAAqE;IACrE,4EAA4E;IAC5E,iCAAiC;IACjC,OAAO,CAAC,SAAS,CAAC,SAAS,CAAC,GAAG,EAAE,CAAC,CAAC;IAEnC,MAAM,IAAI,GAAG,KAAK,IAAqB,EAAE,CAAC;QACzC,IAAI,UAAU,GAAG,CAAC,CAAC;QACnB,KAAK,MAAM,EAAE,UAAU,EAAE,GAAG,EAAE,IAAI,OAAO,CAAC,SAAS,CAAC,QAAQ,CAAC,GAAG,EAAE,CAAC,EAAE,CAAC;YACrE,IAAI,CAAC;gBACJ,MAAM,EAAE,GAAG,MAAM,OAAO,CAAC,QAAQ,CAAC,EAAE,EAAE,EAAE,GAAG,CAAC,EAAE,EAAE,MAAM,EAAE,GAAG,CAAC,MAAM,EAAE,CAAC,CAAC;gBACtE,OAAO,CAAC,SAAS,CAAC,QAAQ,CAAC,UAAU,EAAE,EAAE,CAAC,CAAC;gBAC3C,IAAI,EAAE;oBAAE,UAAU,EAAE,CAAC;YACtB,CAAC;YAAC,OAAO,KAAK,EAAE,CAAC;gBAChB,mEAAmE;gBACnE,oDAAoD;gBACpD,OAAO,CAAC,SAAS,CAAC,QAAQ,CAAC,UAAU,EAAE,KAAK,CAAC,CAAC;gBAC9C,OAAO,CAAC,OAAO,EAAE,CAAC,KAAK,YAAY,KAAK,CAAC,CAAC,CAAC,KAAK,CAAC,CAAC,CAAC,IAAI,KAAK,CAAC,MAAM,CAAC,KAAK,CAAC,CAAC,CAAC,CAAC;YAC9E,CAAC;QACF,CAAC;QACD,OAAO,UAAU,CAAC;IAAA,CAClB,CAAC;IAEF,MAAM,KAAK,GAAG,WAAW,CAAC,GAAG,EAAE,CAAC;QAC/B,KAAK,IAAI,EAAE,CAAC,KAAK,CAAC,CAAC,KAAc,EAAE,EAAE,CAAC;YACrC,OAAO,CAAC,OAAO,EAAE,CAAC,KAAK,YAAY,KAAK,CAAC,CAAC,CAAC,KAAK,CAAC,CAAC,CAAC,IAAI,KAAK,CAAC,MAAM,CAAC,KAAK,CAAC,CAAC,CAAC,CAAC;QAAA,CAC7E,CAAC,CAAC;IAAA,CACH,EAAE,UAAU,CAAC,CAAC;IACf,4EAA0E;IAC1E,KAAK,CAAC,KAAK,EAAE,EAAE,CAAC;IAEhB,OAAO,EAAE,IAAI,EAAE,GAAG,EAAE,CAAC,aAAa,CAAC,KAAK,CAAC,EAAE,IAAI,EAAE,CAAC;AAAA,CAClD","sourcesContent":["/**\n * Reloj del scheduler dentro de `ada-cli serve`.\n *\n * El `Scheduler` sabe qué toca ejecutar (`claimDue`) y cómo cerrar una ejecución\n * (`complete`), pero no ejecuta nada: necesita un proceso vivo que le pregunte.\n * Ese proceso es el servidor, que es justamente el que ya mantiene sesiones\n * residentes.\n *\n * Cada job entrega su prompt a una sesión propia. No se reutiliza una sesión\n * compartida a propósito: dos jobs recurrentes escribiendo en el mismo historial\n * se contaminarían el contexto mutuamente.\n */\n\nimport type { Scheduler } from \"../core/scheduler/scheduler.ts\";\n\nexport interface SchedulerTickOptions {\n\tscheduler: Scheduler;\n\t/** Entrega el prompt de un job. Devuelve false si falló. */\n\tdispatch: (job: { id: string; prompt: string }) => Promise<boolean>;\n\tintervalMs?: number;\n\t/** Reloj inyectable para los tests. */\n\tnow?: () => string;\n\tonError?: (error: Error) => void;\n}\n\nexport interface SchedulerTickHandle {\n\tstop: () => void;\n\t/** Ejecuta un ciclo ahora mismo. Para tests y para el arranque. */\n\ttick: () => Promise<number>;\n}\n\nexport function startSchedulerTick(options: SchedulerTickOptions): SchedulerTickHandle {\n\tconst now = options.now ?? (() => new Date().toISOString());\n\tconst intervalMs = options.intervalMs ?? 30_000;\n\n\t// Al arrancar se liberan las ejecuciones que murieron con el proceso\n\t// anterior: sin esto un crash deja el job marcado \"en vuelo\" para siempre y\n\t// no se vuelve a entregar nunca.\n\toptions.scheduler.reconcile(now());\n\n\tconst tick = async (): Promise<number> => {\n\t\tlet dispatched = 0;\n\t\tfor (const { dispatchId, job } of options.scheduler.claimDue(now())) {\n\t\t\ttry {\n\t\t\t\tconst ok = await options.dispatch({ id: job.id, prompt: job.prompt });\n\t\t\t\toptions.scheduler.complete(dispatchId, ok);\n\t\t\t\tif (ok) dispatched++;\n\t\t\t} catch (error) {\n\t\t\t\t// Un job que revienta se cierra como fallo y NO tumba el reloj: el\n\t\t\t\t// resto de trabajos programados no tienen la culpa.\n\t\t\t\toptions.scheduler.complete(dispatchId, false);\n\t\t\t\toptions.onError?.(error instanceof Error ? error : new Error(String(error)));\n\t\t\t}\n\t\t}\n\t\treturn dispatched;\n\t};\n\n\tconst timer = setInterval(() => {\n\t\tvoid tick().catch((error: unknown) => {\n\t\t\toptions.onError?.(error instanceof Error ? error : new Error(String(error)));\n\t\t});\n\t}, intervalMs);\n\t// El reloj no debe impedir que el proceso termine si todo lo demás acabó.\n\ttimer.unref?.();\n\n\treturn { stop: () => clearInterval(timer), tick };\n}\n"]}