PasNavigator MCP

用于在 Delphi/Pascal 代码库中进行语义导航的 MCP 服务器。

长期设计是：

• 基于 Delphi 的索引器/后端，复用 CodeComparer 的思路和代码

• 轻量 MCP 服务器层，暴露项目索引和符号导航工具

• 面向 AI 代理的紧凑符号级响应，而非原始 grep 输出

当前状态

本仓库包含：

• Python MCP 工具面和进程适配器

• Delphi 控制台后端，包含位于 delphi/vendor/codecomparer/ 下的内置 CodeComparer/DelphiAST 源码

• 不依赖实时的 CodeComparer 仓库检出

编译 Delphi 索引器仍需要 DevExpress VCL（DXVCL）。

内置导入器带有少量本地修改，使 defines 和 unit_scopes 能够到达解析器；这些修改列在 delphi/vendor/codecomparer/NOTICE.txt 中。

文档：

• 协议：docs/delphi-backend-protocol.md

• Delphi 构建：delphi/README.md

Related MCP server: Delphi Compiler MCP

工具

• open_project, open_project_from_config

• project_status

• find_symbol — 排序、封顶、报告 total_count

• get_symbol

• get_hierarchy

• get_descendants

• get_source

配置

示例项目配置：

{
  "project_name": "MyApp",
  "roots": [
    "E:/Work/MyApp/Source",
    "E:/Work/MyApp/Modules"
  ],
  "search_paths": [
    "E:/Libs/Common",
    "C:/RAD/Studio/22.0/source/vcl"
  ],
  "defines": ["MSWINDOWS", "VER350"],
  "unit_scopes": ["System", "Vcl", "Winapi"],
  "excludes": ["**/__history/**", "**/backup/**"]
}

开发

创建虚拟环境并以可编辑模式安装包：

python -m venv .venv
.venv\Scripts\Activate.ps1
pip install -e .

使用内存桩运行服务器：

python -m pasnavigator_mcp

与 Delphi 控制台后端通信（桩构建，无 DevExpress）：

$env:PASNAVIGATOR_BACKEND = "delphi"
$env:PASNAVIGATOR_DELPHI_EXE = "E:\Github_dm75\PasNavigator_MCP\delphi\bin\Win32\Debug\PasNavigatorBackend.exe"
python -m pasnavigator_mcp

运行测试。需要编译后端的用例在缺少 PasNavigatorBackend.exe 时会自行跳过；其余用例针对 Python 假进程运行：

python -m unittest discover -s tests

下一步

MCP 层本身（server.py、config.py）没有测试覆盖，因为 mcp 依赖在此环境中一直无法安装。