@atlisp/mcp 1.8.21 → 1.8.25

package/dist/handlers/skill-handlers.js

@@ -0,0 +1,152 @@
+import fs from 'fs';
+import path from 'path';
+import os from 'os';
+
+const SKILLS_DIR = path.join(os.homedir(), '.atlisp', 'skills');
+const REGISTRY_URL = process.env.SKILL_REGISTRY_URL || 'https://raw.githubusercontent.com/atlisp/skill-registry/main/index.json';
+const CACHE_PATH = path.join(os.homedir(), '.atlisp', 'skill-registry-cache.json');
+
+function readCache() {
+    try { if (fs.existsSync(CACHE_PATH)) return JSON.parse(fs.readFileSync(CACHE_PATH, 'utf-8')); } catch {}
+    return null;
+}
+
+function writeCache(data) {
+    try { fs.writeFileSync(CACHE_PATH, JSON.stringify(data, null, 2), 'utf-8'); } catch {}
+}
+
+async function fetchIndex() {
+    let index = readCache();
+    if (index && (Date.now() - index.fetchedAt < 3600000)) return index;
+    try {
+        const resp = await fetch(REGISTRY_URL, { headers: { 'User-Agent': 'atlisp-mcp' } });
+        if (resp.ok) {
+            index = await resp.json();
+            index.fetchedAt = Date.now();
+            writeCache(index);
+        }
+    } catch {}
+    return index;
+}
+
+export async function skill_search(a) {
+    const index = await fetchIndex();
+    if (!index?.skills) return { content: [{ type: 'text', text: '无法获取 skill 注册表索引' }], isError: true };
+    const q = (a.query || '').toLowerCase();
+    const results = index.skills.filter(s =>
+        s.name.toLowerCase().includes(q) ||
+        (s.description || '').toLowerCase().includes(q) ||
+        (s.tags || []).some(t => t.toLowerCase().includes(q))
+    );
+    if (!results.length) return { content: [{ type: 'text', text: `未找到匹配 "${a.query}" 的 skill` }] };
+    const lines = [`找到 ${results.length} 个 skill:\n`];
+    for (const s of results) {
+        lines.push(`**${s.name}**`);
+        if (s.description) lines.push(`  描述: ${s.description}`);
+        if (s.tags?.length) lines.push(`  标签: ${s.tags.join(', ')}`);
+        if (s.version) lines.push(`  版本: ${s.version}`);
+        lines.push('');
+    }
+    return { content: [{ type: 'text', text: lines.join('\n') }] };
+}
+
+export async function skill_install(a) {
+    if (!a.name) return { content: [{ type: 'text', text: '需要 skill 名称' }], isError: true };
+    const index = await fetchIndex();
+    if (!index?.skills) return { content: [{ type: 'text', text: '无法获取 skill 注册表索引' }], isError: true };
+    const skill = index.skills.find(s => s.name === a.name);
+    if (!skill) return { content: [{ type: 'text', text: `未找到 skill: ${a.name}` }], isError: true };
+    const downloadUrl = skill.download_url || skill.url;
+    if (!downloadUrl) return { content: [{ type: 'text', text: `Skill "${a.name}" 没有下载地址` }], isError: true };
+    let content;
+    try {
+        const resp = await fetch(downloadUrl, { headers: { 'User-Agent': 'atlisp-mcp' } });
+        if (!resp.ok) throw new Error(`HTTP ${resp.status}`);
+        content = await resp.text();
+    } catch (e) {
+        return { content: [{ type: 'text', text: `下载失败: ${e.message}` }], isError: true };
+    }
+    try { fs.mkdirSync(SKILLS_DIR, { recursive: true }); } catch {}
+    const safeName = a.name.replace(/[^a-zA-Z0-9\u4e00-\u9fff_-]/g, '-').substring(0, 40);
+    const skillFile = path.join(SKILLS_DIR, `skill-${safeName}.md`);
+    if (fs.existsSync(skillFile)) {
+        return { content: [{ type: 'text', text: `Skill "${a.name}" 已安装 (${skillFile})` }], isError: true };
+    }
+    let finalContent = content;
+    if (!content.match(/^---\n/)) {
+        const tags = (skill.tags || []).join(', ');
+        finalContent = `---\nname: ${a.name}\ndescription: ${skill.description || ''}\ntags: ${tags}\n---\n\n${content}`;
+    }
+    fs.writeFileSync(skillFile, finalContent, 'utf-8');
+    return { content: [{ type: 'text', text: `${skill.name} 安装成功\n文件: ${skillFile}${skill.version ? `\n版本: ${skill.version}` : ''}` }] };
+}
+
+export async function skill_list_installed() {
+    if (!fs.existsSync(SKILLS_DIR)) return { content: [{ type: 'text', text: '暂无已安装的 skill' }] };
+    const results = [];
+    try {
+        const entries = fs.readdirSync(SKILLS_DIR, { withFileTypes: true });
+        for (const entry of entries) {
+            if (entry.isFile() && entry.name.endsWith('.md')) {
+                const fullPath = path.join(SKILLS_DIR, entry.name);
+                try {
+                    const raw = fs.readFileSync(fullPath, 'utf-8');
+                    const match = raw.match(/^---\n([\s\S]*?)\n---/);
+                    if (match) {
+                        const fm = {};
+                        for (const line of match[1].split('\n')) {
+                            const sep = line.indexOf(':');
+                            if (sep > 0) fm[line.slice(0, sep).trim()] = line.slice(sep + 1).trim();
+                        }
+                        results.push({ name: fm.name || entry.name.replace('.md', ''), description: fm.description || '', tags: fm.tags || '' });
+                    } else {
+                        results.push({ name: entry.name.replace('.md', ''), description: '', tags: '' });
+                    }
+                } catch {}
+            }
+        }
+    } catch {}
+    if (!results.length) return { content: [{ type: 'text', text: '暂无已安装的 skill' }] };
+    const lines = [`已安装 ${results.length} 个 skill:\n`];
+    for (const s of results) {
+        lines.push(`**${s.name}**${s.description ? ` — ${s.description}` : ''}`);
+        if (s.tags) lines.push(`  标签: ${s.tags}`);
+    }
+    return { content: [{ type: 'text', text: lines.join('\n') }] };
+}
+
+export async function skill_uninstall(a) {
+    if (!a.name) return { content: [{ type: 'text', text: '需要 skill 名称' }], isError: true };
+    if (!fs.existsSync(SKILLS_DIR)) return { content: [{ type: 'text', text: `未安装 skill: ${a.name}` }], isError: true };
+    let found = null;
+    try {
+        const entries = fs.readdirSync(SKILLS_DIR, { withFileTypes: true });
+        for (const entry of entries) {
+            if (entry.isFile() && entry.name.endsWith('.md')) {
+                const fullPath = path.join(SKILLS_DIR, entry.name);
+                try {
+                    const raw = fs.readFileSync(fullPath, 'utf-8');
+                    const match = raw.match(/^---\n([\s\S]*?)\n---/);
+                    if (match) {
+                        for (const line of match[1].split('\n')) {
+                            if (line.startsWith('name:') && line.slice(5).trim() === a.name) { found = fullPath; break; }
+                        }
+                    } else if (entry.name.replace('.md', '') === a.name) { found = fullPath; }
+                } catch {}
+                if (found) break;
+            }
+        }
+    } catch {}
+    if (!found) return { content: [{ type: 'text', text: `未安装 skill: ${a.name}` }], isError: true };
+    fs.unlinkSync(found);
+    return { content: [{ type: 'text', text: `${a.name} 已卸载` }] };
+}
+
+export async function skill_list_categories() {
+    const index = await fetchIndex();
+    if (!index?.skills) return { content: [{ type: 'text', text: '无法获取 skill 注册表索引' }], isError: true };
+    const cats = new Set();
+    for (const s of index.skills) for (const t of (s.tags || [])) cats.add(t);
+    const sorted = Array.from(cats).sort();
+    return { content: [{ type: 'text', text: sorted.length ? `注册表分类 (${sorted.length}):\n${sorted.join('\n')}` : '暂无分类' }] };
+}

package/dist/lisp-security.js

@@ -116,3 +116,68 @@ export function checkParens(code) {
   if (depth < 0) return { valid: false, error: `多余 ${-depth} 个左括号 (` };
   return { valid: true };
 }
+
+// === Session Sandbox (merged from lisp-sandbox.js) ===
+
+export const RULES = SECURITY_RULES;
+
+const sessionAllowlist = new Map();
+
+export function getSessionAllowlist(sessionId) {
+  if (!sessionAllowlist.has(sessionId)) {
+    sessionAllowlist.set(sessionId, new Set());
+  }
+  return sessionAllowlist.get(sessionId);
+}
+
+export function addToAllowlist(sessionId, ruleIndex) {
+  const list = getSessionAllowlist(sessionId);
+  list.add(ruleIndex);
+}
+
+export function removeFromAllowlist(sessionId, ruleIndex) {
+  const list = getSessionAllowlist(sessionId);
+  list.delete(ruleIndex);
+}
+
+export function clearSessionAllowlist(sessionId) {
+  sessionAllowlist.delete(sessionId);
+}
+
+export function validateLispCode(code, sessionId = null) {
+  const withoutComments = stripStringsAndComments(code);
+  const effectiveSeverity = getEffectiveSeverity();
+
+  const results = [];
+  let blocked = false;
+
+  for (let i = 0; i < RULES.length; i++) {
+    const rule = RULES[i];
+    if (rule.re.test(withoutComments)) {
+      const isAllowed = sessionId && getSessionAllowlist(sessionId).has(i);
+
+      const severity = effectiveSeverity === THREAT_ALLOW ? THREAT_ALLOW
+        : isAllowed ? THREAT_ALLOW
+        : effectiveSeverity;
+
+      results.push({
+        ruleIndex: i,
+        severity,
+        message: rule.msg,
+        blocked: severity === THREAT_BLOCK,
+        warned: severity === THREAT_WARN,
+        allowed: severity === THREAT_ALLOW,
+      });
+      if (severity === THREAT_BLOCK) {
+        blocked = true;
+      }
+    }
+  }
+
+  return {
+    valid: !blocked,
+    blocked,
+    results,
+    summary: blocked ? `安全限制: ${results.filter(r => r.blocked).map(r => r.message).join('; ')}` : '通过',
+  };
+}

package/dist/prompts/definitions/workflow-batch-doc.json

@@ -0,0 +1,27 @@
+{
+  "name": "workflow-batch-doc",
+  "description": "批量文档处理工作流：打开多个 DWG → 执行操作 → 保存/导出 → 关闭。适用于批量清理、替换文字、统一修改",
+  "arguments": [
+    { "name": "action", "description": "步骤: open/process/save/report", "required": true, "default": "process" },
+    { "name": "operation", "description": "操作类型: cleanup/find-replace/check-standards/export-pdf", "required": false, "default": "cleanup" },
+    { "name": "files", "description": "DWG 文件路径列表，用逗号分隔", "required": false }
+  ],
+  "templates": {
+    "open": {
+      "code": "",
+      "description": "1. 确定目标文件列表\n2. 对每个文件，循环调用 open_dwg({ filePath }) → 执行操作 → save_dwg/export_pdf → close_dwg\n\n示例流程：\n```\n文件列表 = [\"project/a.dwg\", \"project/b.dwg\"]\nfor each file in 文件列表:\n  open_dwg({ filePath })\n  ... 执行操作 ...\n  save_dwg()\n  close_dwg()\n```"
+    },
+    "process": {
+      "code": "",
+      "description": "选择 operation:\n- cleanup: 打开文件 → 执行 eval_lisp({ code: '(command \"_.PURGE\" \"_B\" \"*\" \"_N\")(command \"_.AUDIT\" \"_Y\")' }) → save_dwg → close_dwg\n- find-replace: 打开文件 → replace_text({ pattern, replacement }) → save_dwg → close_dwg\n- check-standards: 打开文件 → eval_lisp_with_result 检查图层/样式 → 记录结果 → close_dwg (不保存)\n- export-pdf: 打开文件 → export_pdf({ outputPath, layout: \"Model\" }) → close_dwg (不保存)\n\n对每个文件重复此流程，收集结果。"
+    },
+    "save": {
+      "code": "",
+      "description": "使用 save_dwg() 保存当前文件。如需另存为不同路径，传入 filePath 参数。\n完成后用 close_dwg({ save: false }) 关闭。"
+    },
+    "report": {
+      "code": "",
+      "description": "汇总所有文件的操作结果:\n- 已处理文件数\n- 每个文件的执行结果（成功/失败）\n- 失败原因\n\n使用 get_system_status 检查 CAD 最终状态。"
+    }
+  }
+}

package/package.json

@@ -1,6 +1,6 @@
 {
   "name": "@atlisp/mcp",
-  "version": "1.8.21",
+  "version": "1.8.25",
   "description": "MCP Server for @lisp on CAD,support AutoCAD/GstarCAD/ZWCAD/BricsCAD or CAD platform compatible with AutoLISP",
   "type": "module",
   "bin": {
@@ -16,9 +16,10 @@
   ],
   "scripts": {
     "start": "node src/atlisp-mcp.js",
-    "build": "npm run build:main && npm run build:worker",
+    "build": "npm run build:main && npm run build:worker && npm run build:rot",
     "build:main": "esbuild src/atlisp-mcp.js --bundle --platform=node --target=node18 --format=esm --outdir=dist --external:edge-js --packages=external --banner:js=\"#!/usr/bin/env node\"",
     "build:worker": "node -e \"const fs=require('fs');const path=require('path');for(const f of ['cad-worker.js','lisp-security.js','logger.js','config.js'])fs.copyFileSync('src/'+f,'dist/'+f);if(!fs.existsSync('dist/html'))fs.mkdirSync('dist/html');for(const f of fs.readdirSync('src/html'))fs.copyFileSync('src/html/'+f,'dist/html/'+f);if(!fs.existsSync('dist/handlers'))fs.mkdirSync('dist/handlers');for(const f of fs.readdirSync('src/handlers'))fs.copyFileSync('src/handlers/'+f,'dist/handlers/'+f);if(!fs.existsSync('dist/prompts/definitions'))fs.mkdirSync('dist/prompts/definitions',{recursive:true});for(const f of fs.readdirSync('src/prompts/definitions'))fs.copyFileSync('src/prompts/definitions/'+f,'dist/prompts/definitions/'+f)\"",
+    "build:rot": "powershell -Command \"& 'C:\\Windows\\Microsoft.NET\\Framework\\v4.0.30319\\csc.exe' /target:library /out:dist\\cad-rothelper.dll src\\cad-rothelper.cs\"",
     "prepublishOnly": "npm run build",
     "test": "vitest run",
     "test:watch": "vitest",

package/dist/pipelines/analyze-and-report.json

@@ -1,16 +0,0 @@
-{
-  "name": "analyze-and-report",
-  "description": "分析当前图纸实体并生成统计报告。先获取所有实体，再逐个获取详细信息",
-  "steps": [
-    {
-      "name": "entities",
-      "tool": "stream_entities",
-      "args": { "chunk": 500, "offset": 0 }
-    },
-    {
-      "name": "info",
-      "tool": "get_cad_info",
-      "args": {}
-    }
-  ]
-}

package/dist/pipelines/batch-export-pdfs.json

@@ -1,11 +0,0 @@
-{
-  "name": "batch-export-pdfs",
-  "description": "遍历所有布局并逐个导出为 PDF。先列出布局，再对每个布局执行导出",
-  "steps": [
-    {
-      "name": "layouts",
-      "tool": "list_layouts",
-      "args": {}
-    }
-  ]
-}

package/dist/pipelines/batch-layer-move.json

@@ -1,19 +0,0 @@
-{
-  "name": "batch-layer-move",
-  "description": "按条件选择实体并移动到目标图层。先选择指定类型/图层的实体，再移动到新图层",
-  "steps": [
-    {
-      "name": "selection",
-      "tool": "select_entities",
-      "args": { "filter": { "type": "LINE", "layer": "0" } }
-    },
-    {
-      "name": "move",
-      "tool": "batch_set_layer",
-      "args": {
-        "handles": "$ref:selection.result",
-        "layerName": "TargetLayer"
-      }
-    }
-  ]
-}

package/dist/pipelines/export-current-drawing.json

@@ -1,18 +0,0 @@
-{
-  "name": "export-current-drawing",
-  "description": "导出当前图纸为 PDF。先获取图纸信息，再执行导出",
-  "steps": [
-    {
-      "name": "info",
-      "tool": "get_cad_info",
-      "args": {}
-    },
-    {
-      "name": "export",
-      "tool": "export_pdf",
-      "args": {
-        "outputPath": "$ref:info.docName.pdf"
-      }
-    }
-  ]
-}

package/dist/pipelines/purge-and-save.json

@@ -1,16 +0,0 @@
-{
-  "name": "purge-and-save",
-  "description": "清理未使用的块、图层、样式，然后保存当前图形",
-  "steps": [
-    {
-      "name": "purge_blocks",
-      "tool": "purge_all",
-      "args": {}
-    },
-    {
-      "name": "save",
-      "tool": "save_dwg",
-      "args": {}
-    }
-  ]
-}