@atlisp/mcp 1.3.7 → 1.3.8

package/dist/atlisp-mcp.js

@@ -730,6 +730,17 @@ function getCached(key) {
 function setCache(key, data) {
   resourceCache.set(key, { data, timestamp: Date.now() });
 }
+function clearCache(uri) {
+  if (uri) {
+    for (const key of resourceCache.keys()) {
+      if (key.startsWith(uri.split("://")[1]?.split("/")[0] + ":")) {
+        resourceCache.delete(key);
+      }
+    }
+  } else {
+    resourceCache.clear();
+  }
+}
 function parseLispList(str) {
   if (!str || typeof str !== "string") return null;
   const trimmed = str.trim();
@@ -1015,17 +1026,60 @@ async function getDwgPath() {
   }
 }
 async function getPackages(filterName = null) {
-  const packages = MOCK_PACKAGES.map((p) => ({
-    name: p.name,
-    version: p.version,
-    description: p.description,
-    loaded: true
-  }));
-  if (filterName) {
-    const pkg = packages.find((p) => p.name === filterName);
-    return pkg ? [pkg] : [];
+  const cacheKey = filterName ? `packages:${filterName}` : "packages:all";
+  const cached = getCached(cacheKey);
+  if (cached) return cached;
+  if (!cad.connected) await cad.connect();
+  if (!cad.connected) return [];
+  try {
+    const code = `(mapcar 'cdr @::*local-pkgs*)`;
+    const result = await cad.sendCommandWithResult(code);
+    if (!result || result === "" || result === "nil") {
+      setCache(cacheKey, []);
+      return [];
+    }
+    let raw = [];
+    try {
+      raw = JSON.parse(result);
+    } catch {
+      raw = parseLispList(result) || [];
+    }
+    if (!Array.isArray(raw)) raw = [];
+    const packages = raw.map((item) => {
+      if (Array.isArray(item)) {
+        const pkg = { name: "", version: "0.0.0", description: "", loaded: true };
+        for (const entry of item) {
+          if (entry && typeof entry === "object" && !Array.isArray(entry)) {
+            const [[key, val]] = Object.entries(entry);
+            const k = String(key);
+            const v = String(val);
+            if (k === ":NAME") pkg.name = v;
+            else if (k === ":VERSION") pkg.version = v;
+            else if (k === ":DESCRIPTION") pkg.description = v;
+            else if (k === ":FULL-NAME") pkg.fullName = v;
+            else if (k === ":AUTHOR") pkg.author = v;
+            else if (k === ":CATEGORY") pkg.category = v;
+            else if (k === ":URL") pkg.url = v;
+          }
+        }
+        return pkg;
+      }
+      if (typeof item === "string" || typeof item === "number") {
+        return { name: String(item), version: "0.0.0", loaded: true };
+      }
+      return null;
+    }).filter(Boolean);
+    if (filterName) {
+      const filtered = packages.filter((p) => p.name === filterName);
+      setCache(cacheKey, filtered);
+      return filtered;
+    }
+    setCache(cacheKey, packages);
+    return packages;
+  } catch (e) {
+    setCache(cacheKey, []);
+    return [];
   }
-  return packages;
 }
 function getPlatforms() {
   return CAD_PLATFORMS.map((name) => ({
@@ -2563,14 +2617,16 @@ async function handleToolCall(name, args) {
 }
 function notifyResourceChanges(toolName) {
   const resourceMap = {
-    connect_cad: ["atlisp://cad/info"],
+    connect_cad: ["atlisp://cad/info", "atlisp://cad/layers", "atlisp://dwg/name", "atlisp://dwg/path", "atlisp://packages"],
     new_document: ["atlisp://dwg/name", "atlisp://dwg/path", "atlisp://cad/layers", "atlisp://cad/entities"],
     install_package: ["atlisp://packages"],
-    install_atlisp: ["atlisp://packages"]
+    install_atlisp: ["atlisp://packages", "atlisp://cad/info"],
+    init_atlisp: ["atlisp://packages", "atlisp://cad/info"]
   };
   const uris = resourceMap[toolName];
   if (uris) {
     for (const uri of uris) {
+      clearCache(uri);
       if (isSubscribed(uri)) {
         notify(uri, null);
       }

package/package.json

@@ -1,6 +1,6 @@
 {
     "name": "@atlisp/mcp",
-    "version": "1.3.7",
+    "version": "1.3.8",
     "description": "MCP Server for @lisp on CAD",
     "type": "module",
     "bin": {