agda-mcp-server 0.4.0

package/dist/tools/session.js

@@ -0,0 +1,108 @@
+// MIT License — see LICENSE
+//
+// Session management tools: agda_load, agda_session_status, agda_typecheck
+import { z } from "zod";
+import { resolve, relative } from "node:path";
+import { existsSync } from "node:fs";
+import { typeCheckBatch } from "../agda-process.js";
+export function register(server, session, repoRoot) {
+    // ── agda_load ─────────────────────────────────────────────────────
+    server.tool("agda_load", "Load and type-check an Agda file. This establishes the interactive session — subsequent commands (goal_type, case_split, give, refine, auto) operate on the loaded file's goals. Returns errors, warnings, and a list of unsolved goals with their IDs.", {
+        file: z.string().describe("Path to the .agda file (relative to repo root or absolute)"),
+    }, async ({ file }) => {
+        const filePath = resolve(repoRoot, file);
+        if (!existsSync(filePath)) {
+            return { content: [{ type: "text", text: `File not found: ${filePath}` }] };
+        }
+        try {
+            const result = await session.load(filePath);
+            const relPath = relative(repoRoot, filePath);
+            let output = `## Loaded: ${relPath}\n\n`;
+            output += `**Status:** ${result.success ? "OK" : "FAILED"}\n`;
+            output += `**Goals:** ${result.goals.length} unsolved\n\n`;
+            if (result.errors.length > 0) {
+                output += `### Errors\n`;
+                for (const err of result.errors) {
+                    output += `\`\`\`\n${err}\n\`\`\`\n`;
+                }
+            }
+            if (result.allGoalsText) {
+                output += `### Goals & Warnings\n\`\`\`\n${result.allGoalsText}\n\`\`\`\n`;
+            }
+            if (result.goals.length > 0) {
+                output += `\n### Goal IDs\n`;
+                output += `Use these IDs with \`agda_goal_type\`, \`agda_case_split\`, \`agda_give\`, \`agda_refine\`, \`agda_auto\`, \`agda_compute\`, \`agda_infer\`.\n\n`;
+                for (const goal of result.goals) {
+                    output += `- **?${goal.goalId}**\n`;
+                }
+            }
+            return { content: [{ type: "text", text: output }] };
+        }
+        catch (err) {
+            return {
+                content: [{ type: "text", text: `Agda load failed: ${err instanceof Error ? err.message : String(err)}` }],
+            };
+        }
+    });
+    // ── agda_session_status ───────────────────────────────────────────
+    server.tool("agda_session_status", "Show the current Agda session status: loaded file and available goal IDs.", {}, async () => {
+        const loadedFile = session.getLoadedFile();
+        const goalIds = session.getGoalIds();
+        let output = `## Agda Session Status\n\n`;
+        output += `**Loaded file:** ${loadedFile ? relative(repoRoot, loadedFile) : "(none)"}\n`;
+        output += `**Goal IDs:** ${goalIds.length > 0 ? goalIds.map((id) => `?${id}`).join(", ") : "(none)"}\n\n`;
+        if (!loadedFile) {
+            output += `Use \`agda_load\` to load a file and start an interactive session.\n`;
+        }
+        else {
+            output += `### Available commands\n`;
+            output += `- \`agda_goal_type\` — show type/context for a goal\n`;
+            output += `- \`agda_case_split\` — case-split on a variable\n`;
+            output += `- \`agda_give\` — fill a goal with an expression\n`;
+            output += `- \`agda_refine\` — refine a goal\n`;
+            output += `- \`agda_auto\` — auto-solve a goal\n`;
+            output += `- \`agda_auto_all\` — auto-solve all goals\n`;
+            output += `- \`agda_solve_all\` — solve all uniquely-solvable goals\n`;
+            output += `- \`agda_compute\` — normalize an expression\n`;
+            output += `- \`agda_infer\` — infer the type of an expression\n`;
+            output += `- \`agda_elaborate\` — elaborate an expression\n`;
+            output += `- \`agda_constraints\` — show constraints\n`;
+            output += `- \`agda_why_in_scope\` — explain why a name is in scope\n`;
+            output += `- \`agda_show_module\` — show module contents\n`;
+            output += `- \`agda_search_about\` — search definitions by type signature\n`;
+        }
+        return { content: [{ type: "text", text: output }] };
+    });
+    // ── agda_typecheck ────────────────────────────────────────────────
+    server.tool("agda_typecheck", "Quick batch type-check of an Agda file (stateless — does not establish an interactive session). Use agda_load for interactive proof work.", {
+        file: z.string().describe("Path to the .agda file"),
+    }, async ({ file }) => {
+        const filePath = resolve(repoRoot, file);
+        if (!existsSync(filePath)) {
+            return { content: [{ type: "text", text: `File not found: ${filePath}` }] };
+        }
+        try {
+            const result = await typeCheckBatch(filePath, repoRoot);
+            const relPath = relative(repoRoot, filePath);
+            let output = `## Type-check: ${relPath}\n\n`;
+            output += `**Status:** ${result.success ? "OK" : "FAILED"}\n\n`;
+            if (result.errors.length > 0) {
+                output += `### Errors (${result.errors.length})\n`;
+                for (const err of result.errors)
+                    output += `- ${err}\n`;
+            }
+            if (result.warnings.length > 0) {
+                output += `### Warnings (${result.warnings.length})\n`;
+                for (const warn of result.warnings)
+                    output += `- ${warn}\n`;
+            }
+            return { content: [{ type: "text", text: output }] };
+        }
+        catch (err) {
+            return {
+                content: [{ type: "text", text: `Agda invocation failed: ${err instanceof Error ? err.message : String(err)}` }],
+            };
+        }
+    });
+}
+//# sourceMappingURL=session.js.map

package/dist/tools/session.js.map

@@ -0,0 +1 @@
+{"version":3,"file":"session.js","sourceRoot":"","sources":["../../src/tools/session.ts"],"names":[],"mappings":"AAAA,4BAA4B;AAC5B,EAAE;AACF,2EAA2E;AAG3E,OAAO,EAAE,CAAC,EAAE,MAAM,KAAK,CAAC;AACxB,OAAO,EAAE,OAAO,EAAE,QAAQ,EAAE,MAAM,WAAW,CAAC;AAC9C,OAAO,EAAE,UAAU,EAAE,MAAM,SAAS,CAAC;AACrC,OAAO,EAAe,cAAc,EAAE,MAAM,oBAAoB,CAAC;AAEjE,MAAM,UAAU,QAAQ,CACtB,MAAiB,EACjB,OAAoB,EACpB,QAAgB;IAEhB,qEAAqE;IACrE,MAAM,CAAC,IAAI,CACT,WAAW,EACX,yPAAyP,EACzP;QACE,IAAI,EAAE,CAAC,CAAC,MAAM,EAAE,CAAC,QAAQ,CACvB,4DAA4D,CAC7D;KACF,EACD,KAAK,EAAE,EAAE,IAAI,EAAE,EAAE,EAAE;QACjB,MAAM,QAAQ,GAAG,OAAO,CAAC,QAAQ,EAAE,IAAI,CAAC,CAAC;QACzC,IAAI,CAAC,UAAU,CAAC,QAAQ,CAAC,EAAE,CAAC;YAC1B,OAAO,EAAE,OAAO,EAAE,CAAC,EAAE,IAAI,EAAE,MAAe,EAAE,IAAI,EAAE,mBAAmB,QAAQ,EAAE,EAAE,CAAC,EAAE,CAAC;QACvF,CAAC;QAED,IAAI,CAAC;YACH,MAAM,MAAM,GAAG,MAAM,OAAO,CAAC,IAAI,CAAC,QAAQ,CAAC,CAAC;YAC5C,MAAM,OAAO,GAAG,QAAQ,CAAC,QAAQ,EAAE,QAAQ,CAAC,CAAC;YAE7C,IAAI,MAAM,GAAG,cAAc,OAAO,MAAM,CAAC;YACzC,MAAM,IAAI,eAAe,MAAM,CAAC,OAAO,CAAC,CAAC,CAAC,IAAI,CAAC,CAAC,CAAC,QAAQ,IAAI,CAAC;YAC9D,MAAM,IAAI,cAAc,MAAM,CAAC,KAAK,CAAC,MAAM,eAAe,CAAC;YAE3D,IAAI,MAAM,CAAC,MAAM,CAAC,MAAM,GAAG,CAAC,EAAE,CAAC;gBAC7B,MAAM,IAAI,cAAc,CAAC;gBACzB,KAAK,MAAM,GAAG,IAAI,MAAM,CAAC,MAAM,EAAE,CAAC;oBAChC,MAAM,IAAI,WAAW,GAAG,YAAY,CAAC;gBACvC,CAAC;YACH,CAAC;YAED,IAAI,MAAM,CAAC,YAAY,EAAE,CAAC;gBACxB,MAAM,IAAI,iCAAiC,MAAM,CAAC,YAAY,YAAY,CAAC;YAC7E,CAAC;YAED,IAAI,MAAM,CAAC,KAAK,CAAC,MAAM,GAAG,CAAC,EAAE,CAAC;gBAC5B,MAAM,IAAI,kBAAkB,CAAC;gBAC7B,MAAM,IAAI,kJAAkJ,CAAC;gBAC7J,KAAK,MAAM,IAAI,IAAI,MAAM,CAAC,KAAK,EAAE,CAAC;oBAChC,MAAM,IAAI,QAAQ,IAAI,CAAC,MAAM,MAAM,CAAC;gBACtC,CAAC;YACH,CAAC;YAED,OAAO,EAAE,OAAO,EAAE,CAAC,EAAE,IAAI,EAAE,MAAe,EAAE,IAAI,EAAE,MAAM,EAAE,CAAC,EAAE,CAAC;QAChE,CAAC;QAAC,OAAO,GAAG,EAAE,CAAC;YACb,OAAO;gBACL,OAAO,EAAE,CAAC,EAAE,IAAI,EAAE,MAAe,EAAE,IAAI,EAAE,qBAAqB,GAAG,YAAY,KAAK,CAAC,CAAC,CAAC,GAAG,CAAC,OAAO,CAAC,CAAC,CAAC,MAAM,CAAC,GAAG,CAAC,EAAE,EAAE,CAAC;aACpH,CAAC;QACJ,CAAC;IACH,CAAC,CACF,CAAC;IAEF,qEAAqE;IACrE,MAAM,CAAC,IAAI,CACT,qBAAqB,EACrB,2EAA2E,EAC3E,EAAE,EACF,KAAK,IAAI,EAAE;QACT,MAAM,UAAU,GAAG,OAAO,CAAC,aAAa,EAAE,CAAC;QAC3C,MAAM,OAAO,GAAG,OAAO,CAAC,UAAU,EAAE,CAAC;QAErC,IAAI,MAAM,GAAG,4BAA4B,CAAC;QAC1C,MAAM,IAAI,oBAAoB,UAAU,CAAC,CAAC,CAAC,QAAQ,CAAC,QAAQ,EAAE,UAAU,CAAC,CAAC,CAAC,CAAC,QAAQ,IAAI,CAAC;QACzF,MAAM,IAAI,iBAAiB,OAAO,CAAC,MAAM,GAAG,CAAC,CAAC,CAAC,CAAC,OAAO,CAAC,GAAG,CAAC,CAAC,EAAE,EAAE,EAAE,CAAC,IAAI,EAAE,EAAE,CAAC,CAAC,IAAI,CAAC,IAAI,CAAC,CAAC,CAAC,CAAC,QAAQ,MAAM,CAAC;QAE1G,IAAI,CAAC,UAAU,EAAE,CAAC;YAChB,MAAM,IAAI,sEAAsE,CAAC;QACnF,CAAC;aAAM,CAAC;YACN,MAAM,IAAI,0BAA0B,CAAC;YACrC,MAAM,IAAI,uDAAuD,CAAC;YAClE,MAAM,IAAI,oDAAoD,CAAC;YAC/D,MAAM,IAAI,oDAAoD,CAAC;YAC/D,MAAM,IAAI,qCAAqC,CAAC;YAChD,MAAM,IAAI,uCAAuC,CAAC;YAClD,MAAM,IAAI,8CAA8C,CAAC;YACzD,MAAM,IAAI,4DAA4D,CAAC;YACvE,MAAM,IAAI,gDAAgD,CAAC;YAC3D,MAAM,IAAI,sDAAsD,CAAC;YACjE,MAAM,IAAI,kDAAkD,CAAC;YAC7D,MAAM,IAAI,6CAA6C,CAAC;YACxD,MAAM,IAAI,4DAA4D,CAAC;YACvE,MAAM,IAAI,iDAAiD,CAAC;YAC5D,MAAM,IAAI,kEAAkE,CAAC;QAC/E,CAAC;QAED,OAAO,EAAE,OAAO,EAAE,CAAC,EAAE,IAAI,EAAE,MAAe,EAAE,IAAI,EAAE,MAAM,EAAE,CAAC,EAAE,CAAC;IAChE,CAAC,CACF,CAAC;IAEF,qEAAqE;IACrE,MAAM,CAAC,IAAI,CACT,gBAAgB,EAChB,2IAA2I,EAC3I;QACE,IAAI,EAAE,CAAC,CAAC,MAAM,EAAE,CAAC,QAAQ,CAAC,wBAAwB,CAAC;KACpD,EACD,KAAK,EAAE,EAAE,IAAI,EAAE,EAAE,EAAE;QACjB,MAAM,QAAQ,GAAG,OAAO,CAAC,QAAQ,EAAE,IAAI,CAAC,CAAC;QACzC,IAAI,CAAC,UAAU,CAAC,QAAQ,CAAC,EAAE,CAAC;YAC1B,OAAO,EAAE,OAAO,EAAE,CAAC,EAAE,IAAI,EAAE,MAAe,EAAE,IAAI,EAAE,mBAAmB,QAAQ,EAAE,EAAE,CAAC,EAAE,CAAC;QACvF,CAAC;QAED,IAAI,CAAC;YACH,MAAM,MAAM,GAAG,MAAM,cAAc,CAAC,QAAQ,EAAE,QAAQ,CAAC,CAAC;YACxD,MAAM,OAAO,GAAG,QAAQ,CAAC,QAAQ,EAAE,QAAQ,CAAC,CAAC;YAE7C,IAAI,MAAM,GAAG,kBAAkB,OAAO,MAAM,CAAC;YAC7C,MAAM,IAAI,eAAe,MAAM,CAAC,OAAO,CAAC,CAAC,CAAC,IAAI,CAAC,CAAC,CAAC,QAAQ,MAAM,CAAC;YAEhE,IAAI,MAAM,CAAC,MAAM,CAAC,MAAM,GAAG,CAAC,EAAE,CAAC;gBAC7B,MAAM,IAAI,eAAe,MAAM,CAAC,MAAM,CAAC,MAAM,KAAK,CAAC;gBACnD,KAAK,MAAM,GAAG,IAAI,MAAM,CAAC,MAAM;oBAAE,MAAM,IAAI,KAAK,GAAG,IAAI,CAAC;YAC1D,CAAC;YACD,IAAI,MAAM,CAAC,QAAQ,CAAC,MAAM,GAAG,CAAC,EAAE,CAAC;gBAC/B,MAAM,IAAI,iBAAiB,MAAM,CAAC,QAAQ,CAAC,MAAM,KAAK,CAAC;gBACvD,KAAK,MAAM,IAAI,IAAI,MAAM,CAAC,QAAQ;oBAAE,MAAM,IAAI,KAAK,IAAI,IAAI,CAAC;YAC9D,CAAC;YAED,OAAO,EAAE,OAAO,EAAE,CAAC,EAAE,IAAI,EAAE,MAAe,EAAE,IAAI,EAAE,MAAM,EAAE,CAAC,EAAE,CAAC;QAChE,CAAC;QAAC,OAAO,GAAG,EAAE,CAAC;YACb,OAAO;gBACL,OAAO,EAAE,CAAC,EAAE,IAAI,EAAE,MAAe,EAAE,IAAI,EAAE,2BAA2B,GAAG,YAAY,KAAK,CAAC,CAAC,CAAC,GAAG,CAAC,OAAO,CAAC,CAAC,CAAC,MAAM,CAAC,GAAG,CAAC,EAAE,EAAE,CAAC;aAC1H,CAAC;QACJ,CAAC;IACH,CAAC,CACF,CAAC;AACJ,CAAC"}

package/package.json

@@ -0,0 +1,65 @@
+{
+  "name": "agda-mcp-server",
+  "version": "0.4.0",
+  "description": "MCP server for interactive Agda proof development — type-checking, goal inspection, case splitting, proof search, and more via the Model Context Protocol",
+  "type": "module",
+  "main": "./dist/index.js",
+  "types": "./dist/index.d.ts",
+  "files": [
+    "dist",
+    "README.md",
+    "LICENSE"
+  ],
+  "exports": {
+    ".": {
+      "import": "./dist/index.js",
+      "types": "./dist/index.d.ts"
+    }
+  },
+  "bin": {
+    "agda-mcp-server": "./dist/index.js"
+  },
+  "scripts": {
+    "build": "tsc -p tsconfig.json",
+    "start": "node dist/index.js",
+    "dev": "tsx src/index.ts",
+    "pretest": "npm run build",
+    "test": "node --test test/**/*.test.js",
+    "test:integration": "node --test test/integration/**/*.test.js",
+    "verify": "npm test && npm pack --dry-run",
+    "prepublishOnly": "npm run verify"
+  },
+  "packageManager": "npm@11.11.0",
+  "repository": {
+    "type": "git",
+    "url": "git+https://github.com/LionOfJewdah/agda-mcp-server.git"
+  },
+  "homepage": "https://github.com/LionOfJewdah/agda-mcp-server#readme",
+  "bugs": {
+    "url": "https://github.com/LionOfJewdah/agda-mcp-server/issues"
+  },
+  "keywords": [
+    "agda",
+    "mcp",
+    "model-context-protocol",
+    "proof-assistant",
+    "type-theory",
+    "interactive-theorem-proving"
+  ],
+  "publishConfig": {
+    "access": "public"
+  },
+  "dependencies": {
+    "@modelcontextprotocol/sdk": "^1.12.0",
+    "zod": "^3.25 || ^4.0"
+  },
+  "devDependencies": {
+    "@types/node": "^24.5.2",
+    "tsx": "^4.0.0",
+    "typescript": "^5.9.3"
+  },
+  "engines": {
+    "node": ">=24"
+  },
+  "license": "MIT"
+}