@atlisp/cli 1.2.0

package/completion/atlisp-completion.bash

@@ -0,0 +1,107 @@
+#!/usr/bin/env bash
+# @lisp CLI bash/zsh completion
+# Source this file in your .bashrc or .zshrc:
+#   source /path/to/atlisp-completion.bash
+
+_atlisp_completions() {
+  local cur prev words cword
+  if type _get_comp_words_by_ref &>/dev/null 2>&1; then
+    _get_comp_words_by_ref cur prev words cword
+  else
+    cur="${COMP_WORDS[COMP_CWORD]}"
+    prev="${COMP_WORDS[COMP_CWORD-1]}"
+  fi
+
+  local commands="install pull remove list search init checksum config login build build-module deploy test batch find check doctor qrcode qrcode-ascii info doc sync --help --version"
+
+  local templates="basic dialog ai enterprise"
+  local platforms="sbcl cad"
+  local config_actions="get set list"
+  local sync_actions="--push --pull --status"
+  local tools="at-pm base network pkgman qrencode userman"
+
+  if [[ $cword -eq 1 ]]; then
+    COMPREPLY=($(compgen -W "${commands}" -- "${cur}"))
+    return 0
+  fi
+
+  case "${prev}" in
+    install)
+      COMPREPLY=($(compgen -W "--auto" -- "${cur}"))
+      ;;
+    pull|remove|info)
+      COMPREPLY=($(compgen -W "--auto --download" -- "${cur}"))
+      ;;
+    init)
+      COMPREPLY=($(compgen -W "--template" -- "${cur}"))
+      ;;
+    build-module|bm)
+      COMPREPLY=($(compgen -W "${tools}" -- "${cur}"))
+      ;;
+    test)
+      COMPREPLY=($(compgen -W "--platform --list --load --auto" -- "${cur}"))
+      ;;
+    doctor)
+      COMPREPLY=($(compgen -W "--fix" -- "${cur}"))
+      ;;
+    config)
+      COMPREPLY=($(compgen -W "${config_actions}" -- "${cur}"))
+      ;;
+    sync)
+      COMPREPLY=($(compgen -W "${sync_actions}" -- "${cur}"))
+      ;;
+    qrcode|qrcode-ascii|qr|qra|doc|checksum|search)
+      # free text argument, no completion
+      COMPREPLY=()
+      ;;
+    --template)
+      COMPREPLY=($(compgen -W "${templates}" -- "${cur}"))
+      ;;
+    --platform)
+      COMPREPLY=($(compgen -W "${platforms}" -- "${cur}"))
+      ;;
+    --out)
+      # file path completion
+      COMPREPLY=($(compgen -f -- "${cur}"))
+      ;;
+    --path)
+      COMPREPLY=($(compgen -d -- "${cur}"))
+      ;;
+    get|set)
+      # config key completion
+      local config_keys="user-email user-token server-url installDir draw-scale sso-type sso-url sso-client-id enterprise-registry"
+      COMPREPLY=($(compgen -W "${config_keys}" -- "${cur}"))
+      ;;
+    *)
+      if [[ $cword -eq 2 ]]; then
+        case "${COMP_WORDS[1]}" in
+          config)
+            COMPREPLY=($(compgen -W "${config_actions}" -- "${cur}"))
+            ;;
+          build-module|bm)
+            COMPREPLY=($(compgen -W "${tools}" -- "${cur}"))
+            ;;
+          test)
+            COMPREPLY=($(compgen -W "--platform --list --load --auto" -- "${cur}"))
+            ;;
+          sync)
+            COMPREPLY=($(compgen -W "${sync_actions}" -- "${cur}"))
+            ;;
+          batch)
+            COMPREPLY=($(compgen -W "--path --expr --save --visible --force" -- "${cur}"))
+            ;;
+          find)
+            COMPREPLY=($(compgen -W "--path --name --table" -- "${cur}"))
+            ;;
+        esac
+      fi
+      ;;
+  esac
+}
+
+# Register completion for both 'atlisp' and 'atlisp-node'
+if type complete &>/dev/null 2>&1; then
+  complete -F _atlisp_completions atlisp atlisp-node
+elif type compdef &>/dev/null 2>&1; then
+  compdef _atlisp_completions atlisp atlisp-node
+fi

package/completion/atlisp-completion.ps1

@@ -0,0 +1,64 @@
+# @lisp CLI PowerShell completion
+# Add to your $PROFILE:
+#   . C:\path\to\atlisp-completion.ps1
+
+$atlispCommands = @(
+  'install', 'pull', 'remove', 'list', 'search', 'init', 'checksum',
+  'config', 'login', 'build', 'build-module', 'deploy', 'test',
+  'batch', 'find', 'check', 'doctor', 'qrcode', 'qrcode-ascii',
+  'info', 'doc', 'sync', '--help', '--version'
+)
+
+$atlispTemplates = @('basic', 'dialog', 'ai', 'enterprise')
+$atlispPlatforms = @('sbcl', 'cad')
+$atlispConfigActions = @('get', 'set', 'list')
+$atlispTools = @('at-pm', 'base', 'network', 'pkgman', 'qrencode', 'userman')
+$atlispConfigKeys = @(
+  'user-email', 'user-token', 'server-url', 'installDir',
+  'draw-scale', 'sso-type', 'sso-url', 'sso-client-id',
+  'enterprise-registry'
+)
+
+Register-ArgumentCompleter -Native -CommandName atlisp -ScriptBlock {
+  param($wordToComplete, $commandAst, $cursorPosition)
+
+  $commandElements = $commandAst.CommandElements
+  $currentIndex = $commandElements.Count - 1
+  $parentCommand = if ($currentIndex -ge 1) { $commandElements[1].Value } else { $null }
+  $grandParentCommand = if ($currentIndex -ge 2) { $commandElements[2].Value } else { $null }
+
+  function Complete-From($values) {
+    $values | Where-Object { $_ -like "$wordToComplete*" } | ForEach-Object { "'$_'" }
+  }
+
+  if ($currentIndex -eq 1) {
+    return Complete-From $atlispCommands
+  }
+
+  switch ($parentCommand) {
+    'install' { return Complete-From @('--auto') }
+    'pull' { return Complete-From @('--download', '--auto') }
+    'remove' { return Complete-From @('--auto') }
+    'init' { return Complete-From @('--template') }
+    'build-module' { return Complete-From $atlispTools }
+    'test' { return Complete-From @('--platform', '--list', '--load', '--auto') }
+    'doctor' { return Complete-From @('--fix') }
+    'config' {
+      if ($currentIndex -eq 2) { return Complete-From $atlispConfigActions }
+      if ($grandParentCommand -in @('get', 'set')) { return Complete-From $atlispConfigKeys }
+    }
+    'sync' { return Complete-From @('--push', '--pull', '--status') }
+    'batch' { return Complete-From @('--path', '--expr', '--save', '--visible', '--force') }
+    'find' { return Complete-From @('--path', '--name', '--table') }
+    'doc' { return $null }
+    'qrcode' { return $null }
+    'qrcode-ascii' { return $null }
+    'search' { return $null }
+  }
+
+  # Complete flag values
+  switch ($grandParentCommand) {
+    '--template' { return Complete-From $atlispTemplates }
+    '--platform' { return Complete-From $atlispPlatforms }
+  }
+}

package/index.js

@@ -0,0 +1,13 @@
+const lib = require("./lib/atlisp");
+const { batch } = require("./lib/batch");
+const { find, CAD_TABLES } = require("./lib/find");
+const cad = require("./lib/cad");
+
+module.exports = {
+  atlisp: lib.atlisp,
+  ...lib,
+  batch,
+  find,
+  CAD_TABLES,
+  cad,
+};

package/kernel-order.json

@@ -0,0 +1,28 @@
+[
+  "compat/cl-functions.lsp", "compat/cl-macros.lsp", "platform-api.lsp",
+  "lib/string-utils.lsp", "lib/version-utils.lsp", "lib/file-utils.lsp", "lib/dcl.lsp",
+  "event-bus.lsp", "base-function.lsp",
+  "platform.lsp", "version.lsp", "constants.lsp", "bootstrap.lsp", "error/safe-eval.lsp", "error/handler.lsp",
+  "log.lsp", "i18n.lsp",
+  "net/ax-request.lsp", "net/cache.lsp", "net/checksum.lsp",
+  "net/headers.lsp", "net/http.lsp", "net/mid.lsp",
+  "net/module.lsp", "net/probe.lsp", "net/progress.lsp",
+  "net/proxy.lsp", "net/registry.lsp", "net/reload.lsp",
+  "net/uri.lsp", "net/wget.lsp",
+  "funlib/record.lsp", "funlib/download.lsp", "funlib/browse.lsp", "@lisp-env.lsp",
+  "setup.lsp",
+  "sub-system/help-system.lsp",
+  "sub-system/config/store.lsp", "sub-system/config/migrate.lsp", "sub-system/config/dialog.lsp",
+  "sub-system/ui.lsp", "sub-system/ui/hotkey.lsp", "sub-system/ui/menu.lsp", "sub-system/ui/panel.lsp",
+  "sub-system/voice.lsp",
+  "sub-system/package/lifecycle.lsp", "sub-system/package/lock.lsp", "sub-system/package/persist.lsp",
+  "sub-system/package/load.lsp", "sub-system/package/version.lsp", "sub-system/package/cmd.lsp",
+  "sub-system/user-manager.lsp", "sub-system/update.lsp",
+  "sub-system/condition/cn-commands.lsp", "sub-system/condition/nlp.lsp", "sub-system/condition/reactor.lsp",
+  "sub-system/cache.lsp", "sub-system/scheduler.lsp",
+  "sub-system/audit.lsp", "sub-system/permission.lsp",
+  "sub-system/config-sync/file.lsp", "sub-system/config-sync/config.lsp",
+  "sub-system/config/config.lsp",
+  "sub-system/command.lsp",
+  "init/compat.lsp", "init/steps.lsp", "init/sequence.lsp"
+]

package/lib/atlisp.js

@@ -0,0 +1,15 @@
+const common = require("./common");
+const cad = require("./cad");
+const batchMod = require("./batch");
+const findMod = require("./find");
+
+module.exports = {
+  atlisp: () => "atlisp - CAD package manager!",
+  ...common,
+  ...cad,
+  batch: batchMod.batch,
+  find: findMod.find,
+  normalizeTable: findMod.normalizeTable,
+  CAD_TABLES: findMod.CAD_TABLES,
+  gatherDwgs: batchMod.gatherDwgs,
+};

package/lib/batch.js

@@ -0,0 +1,173 @@
+const { execSync } = require("child_process");
+const path = require("path");
+const fs = require("fs");
+const os = require("os");
+const { resolveAppId, isWindows } = require("./cad");
+
+function gatherDwgs(predir) {
+  if (!predir) return [];
+  const absPath = path.resolve(predir);
+  if (!fs.existsSync(absPath)) return [];
+  const stat = fs.statSync(absPath);
+  if (stat.isFile()) {
+    const ext = path.extname(absPath).toLowerCase();
+    if (ext === ".dwg") return [absPath];
+    if (ext === ".txt" || ext === ".csv") {
+      return fs.readFileSync(absPath, "utf-8")
+        .split("\n")
+        .map(l => l.trim())
+        .filter(Boolean)
+        .map(l => path.resolve(l));
+    }
+    return [];
+  }
+  if (stat.isDirectory()) {
+    return walkDwgs(absPath);
+  }
+  return [];
+}
+
+function walkDwgs(dir) {
+  let results = [];
+  try {
+    const list = fs.readdirSync(dir);
+    for (const entry of list) {
+      const full = path.join(dir, entry);
+      const stat = fs.statSync(full);
+      if (stat.isDirectory()) {
+        results = results.concat(walkDwgs(full));
+      } else if (path.extname(full).toLowerCase() === ".dwg") {
+        results.push(full);
+      }
+    }
+  } catch (e) {}
+  return results;
+}
+
+function batchPS(appId, profile, dwgList, expr, save, visible, preserveTime) {
+  const dwgJson = JSON.stringify(dwgList);
+  const escExpr = expr.replace(/\\/g, "\\\\").replace(/'/g, "\\'");
+  return `
+$dwgs = @(${dwgList.map(d => `'${d.replace(/'/g, "''")}'`).join(", ")})
+$appId = "${resolveAppId(appId)}"
+$profile = "${profile || ""}"
+$save = ${save ? "$true" : "$false"}
+$visible = ${visible ? "$true" : "$false"}
+$preserveTime = ${preserveTime ? "$true" : "$false"}
+$expr = '${escExpr}'
+$total = $dwgs.Count
+$i = 0
+$failed = 0
+
+$acad = $null
+try { $acad = [System.Runtime.InteropServices.Marshal]::GetActiveObject($appId) } catch {}
+if (-not $acad) { $acad = New-Object -ComObject $appId }
+
+try {
+  if ($profile -ne "") {
+    $profiles = $acad.Preferences.Profiles.GetAllProfileNames()
+    if ($profiles -contains $profile) { $acad.Preferences.Profiles.ActiveProfile = $profile }
+  }
+  $acad.Visible = $visible
+  if ($acad.Documents.Count -eq 0) { $acad.Documents.Add() }
+  Start-Sleep -Seconds 3
+
+  while ($acad.Documents.Count -gt 0) {
+    try { $acad.ActiveDocument.Close($false) } catch {}
+  }
+
+  foreach ($dwg in $dwgs) {
+    $i++
+    Write-Output "[$i/$total] $dwg"
+    try {
+      if ($preserveTime) { $stInfo = [System.IO.File]::GetLastWriteTime($dwg) }
+      $doc = $acad.Documents.Open($dwg, $false)
+      Start-Sleep -Seconds 2
+      $doc.SendCommand($expr + " ")
+      Start-Sleep -Seconds 2
+      if ($save) {
+        $doc.Save()
+        Write-Output "  saved"
+      }
+      if ($preserveTime) {
+        [System.IO.File]::SetLastWriteTime($dwg, $stInfo)
+      }
+      $doc.Close($false)
+    } catch {
+      Write-Output "  ERROR: $($_.Exception.Message)"
+      $failed++
+    }
+  }
+} catch {
+  Write-Output "FATAL: $($_.Exception.Message)"
+  $failed = $total
+} finally {
+  try { if ($acad) { $acad.Quit() } } catch {}
+}
+Write-Output "DONE: processed=$total failed=$failed"
+`;
+}
+
+async function batch(options) {
+  if (!isWindows()) {
+    console.error("batch 命令仅支持 Windows CAD COM 自动化。");
+    return false;
+  }
+
+  const { path: predir, expr, save, force, visible, mt, appId, profile } = options;
+
+  if (!expr) {
+    console.error("错误: 请使用 --expr 指定要执行的 Lisp 表达式。");
+    return false;
+  }
+
+  let dwgs = gatherDwgs(predir);
+  if (dwgs.length === 0) {
+    console.error("错误: 未找到 DWG 文件。请使用 --path 指定包含 DWG 的目录、单个 DWG 文件或 .txt 文件列表。");
+    return false;
+  }
+
+  const totalStr = dwgs.length > 2 ? ` (显示前 2 个)` : "";
+  console.log("  找到 " + dwgs.length + " 个 DWG 文件" + totalStr);
+  dwgs.slice(0, 2).forEach(d => console.log("    " + d));
+  console.log("  表达式: " + expr);
+  console.log("  保存: " + (save ? "是" : "否"));
+  console.log("  可见: " + (visible ? "是" : "否"));
+
+  if (!force) {
+    console.log("  使用 --force 跳过确认直接执行。");
+  }
+
+  const PS = batchPS(appId, profile, dwgs, expr, save, visible, false);
+  const scriptPath = path.join(os.tmpdir(), "atlisp-batch-" + Date.now() + ".ps1");
+  fs.writeFileSync(scriptPath, PS, "utf-8");
+
+  console.log("\n  开始批处理...");
+  try {
+    const out = execSync(`powershell -ExecutionPolicy Bypass -File "${scriptPath}"`, {
+      encoding: "utf-8",
+      timeout: Math.max(60000, dwgs.length * 15000),
+      maxBuffer: 1024 * 1024,
+    });
+    const lines = out.split("\n").filter(Boolean);
+    for (const line of lines) {
+      if (line.startsWith("DONE:")) {
+        const m = line.match(/processed=(\d+) failed=(\d+)/);
+        if (m) {
+          console.log("  处理完成: " + m[1] + " 个文件, " + m[2] + " 个失败");
+        }
+      } else {
+        console.log("  " + line);
+      }
+    }
+    const failedMatch = out.match(/failed=(\d+)/);
+    return failedMatch && parseInt(failedMatch[1]) === 0;
+  } catch (e) {
+    console.error("  批处理失败: " + e.message);
+    return false;
+  } finally {
+    try { fs.unlinkSync(scriptPath); } catch (e) {}
+  }
+}
+
+module.exports = { batch, gatherDwgs };

package/lib/cad.js

@@ -0,0 +1,199 @@
+const { execSync } = require("child_process");
+const path = require("path");
+const os = require("os");
+const fs = require("fs");
+const { installCode, ATLISP_DIR } = require("./common");
+
+const PLATFORM_MAP = {
+  autocad: "AutoCAD.Application",
+  zwcad: "ZWCAD.Application",
+  gstarcad: "GStarCAD.Application",
+  bricscad: "BricscadApp.AcadApplication",
+};
+
+function resolveAppId(app) {
+  if (!app || app === "auto") return "AutoCAD.Application";
+  const lower = app.toLowerCase();
+  for (const [name, id] of Object.entries(PLATFORM_MAP)) {
+    if (lower === name) return id;
+  }
+  for (const [name, id] of Object.entries(PLATFORM_MAP)) {
+    if (lower.startsWith(name + ".")) return app;
+  }
+  return app;
+}
+
+function execPS(script) {
+  const psPath = path.join(os.tmpdir(), "atlisp-cad-" + Date.now() + ".ps1");
+  fs.writeFileSync(psPath, script, "utf-8");
+  try {
+    const out = execSync(`powershell -ExecutionPolicy Bypass -File "${psPath}"`, {
+      encoding: "utf-8",
+      timeout: 120000,
+    });
+    return out.trim();
+  } finally {
+    try { fs.unlinkSync(psPath); } catch (e) {}
+  }
+}
+
+// Try GetActiveObject first (running CAD), fall back to New-Object
+const GET_CAD_PS = (appId) => `
+$acad = $null
+try { $acad = [System.Runtime.InteropServices.Marshal]::GetActiveObject("${appId}") } catch {}
+if (-not $acad) { $acad = New-Object -ComObject "${appId}" }
+`;
+
+const INSTALL_PS = (appId, profile) => `
+${GET_CAD_PS(appId)}
+try {
+  ${profile ? `$profiles = $acad.Preferences.Profiles.GetAllProfileNames()
+  if ($profiles -contains "${profile}") { $acad.Preferences.Profiles.ActiveProfile = "${profile}" }` 
+  : ""}
+  if ($acad.Documents.Count -eq 0) { $acad.Documents.Add() }
+  $acad.Visible = $false
+  $acad.ActiveDocument.SendCommand('${installCode} ')
+  Start-Sleep -Seconds 3
+  $acad.ActiveDocument.SendCommand('(@::set-config \\'@::tips-currpage 2\\') ')
+  Start-Sleep -Seconds 1
+  Write-Output "OK"
+} catch {
+  Write-Output "ERROR: $($_.Exception.Message)"
+} finally {
+  if ($acad -and $acad.Visible -eq $false) {
+    try { $acad.Visible = $true } catch {}
+  }
+}
+`;
+
+const SEND_PS = (appId, profile, lispCode) => `
+${GET_CAD_PS(appId)}
+try {
+  ${profile ? `$profiles = $acad.Preferences.Profiles.GetAllProfileNames()
+  if ($profiles -contains "${profile}") { $acad.Preferences.Profiles.ActiveProfile = "${profile}" }` 
+  : ""}
+  if ($acad.Documents.Count -eq 0) { $acad.Documents.Add() }
+  Start-Sleep -Seconds 2
+  $acad.ActiveDocument.SendCommand('${lispCode} ')
+  Start-Sleep -Seconds 3
+  Write-Output "OK"
+} catch {
+  Write-Output "ERROR: $($_.Exception.Message)"
+}
+`;
+
+function isWindows() {
+  return process.platform === "win32";
+}
+
+function checkCAD() {
+  if (!isWindows()) {
+    return { ok: false, error: "CAD COM automation 仅支持 Windows" };
+  }
+  try {
+    const out = execPS(`
+$acad = $null
+try { $acad = [System.Runtime.InteropServices.Marshal]::GetActiveObject("AutoCAD.Application") } catch {}
+if (-not $acad) { $acad = New-Object -ComObject "AutoCAD.Application" }
+try {
+  Write-Output "$($acad.Name)|$($acad.Version)"
+} catch { Write-Output "ERROR: $($_.Exception.Message)" }
+`);
+    if (out.startsWith("ERROR")) {
+      return { ok: false, error: out.replace("ERROR: ", "") };
+    }
+    const parts = out.split("|");
+    return { ok: true, name: parts[0] || "AutoCAD", version: parts[1] || "" };
+  } catch (e) {
+    return { ok: false, error: e.message };
+  }
+}
+
+async function installAtLisp(appId, profile) {
+  if (!isWindows()) {
+    console.log("  CAD COM 自动化仅支持 Windows。请手动将安装代码粘贴到 CAD 命令行:");
+    console.log("  " + installCode);
+    return false;
+  }
+  console.log("  正在启动 CAD...");
+  try {
+    const out = execPS(INSTALL_PS(resolveAppId(appId), profile));
+    if (out.startsWith("ERROR")) {
+      console.error("  CAD 错误: " + out.replace("ERROR: ", ""));
+      return false;
+    }
+    console.log("  ✓ @lisp 安装成功!");
+    return true;
+  } catch (e) {
+    console.error("  执行失败: " + e.message);
+    console.log("  请手动将安装代码粘贴到 CAD 命令行:");
+    console.log("  " + installCode);
+    return false;
+  }
+}
+
+async function sendLisp(lispCode, appId, profile) {
+  if (!isWindows()) {
+    console.log("  CAD COM 自动化仅支持 Windows。");
+    return { ok: false, error: "不支持当前平台" };
+  }
+  try {
+    const out = execPS(SEND_PS(resolveAppId(appId), profile, lispCode));
+    if (out.startsWith("ERROR")) {
+      return { ok: false, error: out.replace("ERROR: ", "") };
+    }
+    return { ok: true, output: out };
+  } catch (e) {
+    return { ok: false, error: e.message };
+  }
+}
+
+async function pull(pkgName, appId, profile) {
+  if (!isWindows()) {
+    console.log("  CAD COM 自动化仅支持 Windows。请手动将安装代码粘贴到 CAD 命令行:");
+    console.log("  " + (installCode.replace(/\/@/, "/" + pkgName)));
+    return false;
+  }
+  console.log("  正在启动 CAD...");
+  try {
+    const lisp = `(progn(@::load-module "pkgman")(@::package-install "${pkgName}"))`;
+    const out = execPS(SEND_PS(resolveAppId(appId), profile, lisp));
+    if (out.startsWith("ERROR")) {
+      console.error("  CAD 错误: " + out.replace("ERROR: ", ""));
+      return false;
+    }
+    console.log("  ✓ 包 " + pkgName + " 安装成功!");
+    return true;
+  } catch (e) {
+    console.error("  执行失败: " + e.message);
+    console.log("  请手动在 CAD 命令行执行:");
+    console.log("  (@::package-install \"" + pkgName + "\")");
+    return false;
+  }
+}
+
+async function remove(pkgName, appId, profile) {
+  if (!isWindows()) {
+    console.log("  CAD COM 自动化仅支持 Windows。请手动在 CAD 命令行执行:");
+    console.log("  (@::package-remove \"" + pkgName + "\")");
+    return false;
+  }
+  console.log("  正在启动 CAD...");
+  try {
+    const lisp = `(progn(@::package-remove "${pkgName}")(if @::flag-menu-need-update (C:@m)))`;
+    const out = execPS(SEND_PS(resolveAppId(appId), profile, lisp));
+    if (out.startsWith("ERROR")) {
+      console.error("  CAD 错误: " + out.replace("ERROR: ", ""));
+      return false;
+    }
+    console.log("  ✓ 包 " + pkgName + " 卸载成功!");
+    return true;
+  } catch (e) {
+    console.error("  执行失败: " + e.message);
+    console.log("  请手动在 CAD 命令行执行:");
+    console.log("  (@::package-remove \"" + pkgName + "\")");
+    return false;
+  }
+}
+
+module.exports = { resolveAppId, checkCAD, installAtLisp, pull, remove, sendLisp, isWindows };