@atlisp/lint 0.1.5 → 0.1.8

package/dist/locale.js

@@ -52,6 +52,16 @@ const messages = {
         quote_vs_function: 'Quoted lambda passed to {0} — use (function (lambda ...)) instead for compiled code',
         commented_code: 'Commented-out code detected — remove or uncomment if needed',
         double_not: 'Double (not (not ...)) — simplifies to single not',
+        error_handling: "Functions using command but missing *error*: '{0}'",
+        global_naming: "Global variable '{0}' should use *...* naming convention",
+        extra_parens: 'Suspicious excessive closing parenthesis: {0} extra )',
+        format_indent: 'Code indentation does not match expected format',
+        setq_single_arg: "Variable '{0}' is setq'd with no value — likely a typo",
+        assoc_without_cdr: 'assoc result is not used — wrap with cdr to extract the value',
+        identical_branches: 'if has identical then and else branches — possible copy-paste error',
+        while_constant: "while with constant condition '{0}' — loop may never execute or never terminate",
+        cond_duplicate: 'cond has duplicate conditions — second clause is unreachable',
+        duplicate_defun: "Function '{0}' is defined multiple times",
         dangling_defun: "Function '{0}' is defined but never called",
         missing_export: "Function '{0}' is not registered in @::*modules*",
         unused_package_dep: "Imported package '{0}' is never referenced",
@@ -74,6 +84,34 @@ const messages = {
         'index.cached': 'Cached, skipping',
         'index.all_cached': 'All files are cached, nothing to lint',
         'index.cache_cleared': 'Cache cleared',
+        'index.watching': 'Watching',
+        'index.watch_hint': 'Press Ctrl+C to stop',
+        'index.watch_status': '{0} files checked: {1} error(s), {2} warning(s)',
+        'index.format_unstable': 'Formatting is not idempotent — re-running formatCode produces different output',
+        'help.text': `@atlisp/lint - AutoLISP static analysis tool
+
+Usage: atlisp-lint [options]
+
+Options:
+  --src <dir>            Specify source directory (may be repeated)
+  --test <dir>           Specify test directory (may be repeated)
+  --config <path>        Path to config file
+  --staged               Only check git staged .lsp files
+  --format <format>      Output format: default | json
+  --init                 Generate atlisp-lint.json in current directory
+  --install-hook         Install git pre-commit hook
+  --fix                  Auto-fix trailing whitespace, BOM, trailing parens, etc.
+  --cache                Enable file hash caching, skip unchanged files
+  --clear-cache          Clear cache directory
+  --parallel             Enable multi-threaded parallel checking
+  --project              Enable cross-file analysis (Phase 1b)
+  --sbcl                 Enable SBCL syntax validation (Phase 2)
+  --watch                Watch mode: re-check on file changes
+  --hook-args <args>     Custom pre-commit hook arguments (with --install-hook)
+  --help                 Show this help message
+  --version              Show version number
+  --format-code          Auto-format code indentation
+  --format-check         Check if files are formatted (exit 1 if not)`,
     },
     zh: {
         'parens.mismatch': "括号不匹配：{0} 个 '(' vs {1} 个 ')'（{2}）",
@@ -123,6 +161,16 @@ const messages = {
         quote_vs_function: '在 {0} 中使用引用 lambda —— 建议改用 (function (lambda ...)) 以支持编译优化',
         commented_code: '检测到被注释掉的代码 —— 请删除或取消注释',
         double_not: '双重 (not (not ...)) —— 可以简化为单个 not',
+        error_handling: "使用 command 但缺少 *error* 的函数: '{0}'",
+        global_naming: "全局变量 '{0}' 应使用 *...* 命名约定",
+        extra_parens: '可疑的过多闭合括号：多余 {0} 个 )',
+        format_indent: '代码缩进不符合格式化规范',
+        setq_single_arg: "变量 '{0}' 被 setq 但未赋值——可能是笔误",
+        assoc_without_cdr: 'assoc 的结果未被使用——应使用 cdr 获取值',
+        identical_branches: 'if 的 then 和 else 分支完全相同——可能是复制粘贴错误',
+        while_constant: "while 使用了常量条件 '{0}'——循环可能永不执行或永不终止",
+        cond_duplicate: 'cond 中存在重复条件——第二个子句不可达',
+        duplicate_defun: "函数 '{0}' 被多次定义",
         dangling_defun: "函数 '{0}' 定义了但从未被调用",
         missing_export: "函数 '{0}' 未注册到 @::*modules*",
         unused_package_dep: "导入的包 '{0}' 从未被引用",
@@ -145,6 +193,34 @@ const messages = {
         'index.cached': '已缓存，跳过',
         'index.all_cached': '所有文件均已缓存，无需检查',
         'index.cache_cleared': '缓存已清除',
+        'index.watching': '监听中',
+        'index.watch_hint': '按 Ctrl+C 停止',
+        'index.watch_status': '已检查 {0} 个文件: {1} 个错误, {2} 个警告',
+        'index.format_unstable': '格式化结果不稳定——再次格式化后输出不同',
+        'help.text': `@atlisp/lint - AutoLISP 静态分析工具
+
+用法: atlisp-lint [选项]
+
+选项:
+  --src <目录>            指定源代码目录（可重复）
+  --test <目录>           指定测试目录（可重复）
+  --config <路径>         配置文件路径
+  --staged                仅检查 git 暂存区的 .lsp 文件
+  --format <格式>         输出格式：default | json
+  --init                  在当前目录生成 atlisp-lint.json
+  --install-hook          安装 git pre-commit 钩子
+  --fix                   自动修复尾部空格、BOM、尾部括号等
+  --cache                 启用文件哈希缓存，跳过未变更的文件
+  --clear-cache           清除缓存目录
+  --parallel              启用多线程并行检查
+  --project               启用跨文件分析（Phase 1b）
+  --sbcl                  启用 SBCL 语法验证（Phase 2）
+  --watch                 监视模式：文件变更时重新检查
+  --hook-args <参数>      自定义 pre-commit 钩子参数（与 --install-hook 配合使用）
+  --help                  显示此帮助信息
+  --version               显示版本号
+  --format-code           自动格式化代码缩进
+  --format-check          检查文件是否已格式化（未格式化则退出码为 1）`,
     },
 };
 let currentLocale = 'zh';

package/dist/presets.d.ts

@@ -0,0 +1,4 @@
+import { LintConfig } from './types';
+export type PresetName = 'recommended' | 'strict' | 'relaxed';
+export declare const PRESETS: Record<PresetName, Partial<LintConfig>>;
+//# sourceMappingURL=presets.d.ts.map

package/dist/presets.js

@@ -0,0 +1,159 @@
+"use strict";
+Object.defineProperty(exports, "__esModule", { value: true });
+exports.PRESETS = void 0;
+exports.PRESETS = {
+    recommended: {
+        checks: {
+            parens: 'error',
+            encoding: 'error',
+            cl_syntax: 'warn',
+            quit_exit: 'error',
+            command_shell: 'error',
+            startapp: 'warn',
+            vl_registry_write: 'warn',
+            token_in_url: 'warn',
+            open_without_close: 'warn',
+            line_length: 'warn',
+            function_complexity: 'warn',
+            parameter_naming: 'warn',
+            unused_variable: 'warn',
+            missing_doc: 'warn',
+            trailing_whitespace: 'warn',
+            unused_parameter: 'warn',
+            constant_condition: 'warn',
+            redundant_progn: 'warn',
+            empty_branch: 'warn',
+            unused_let_binding: 'warn',
+            recursive_call: 'warn',
+            variable_shadow: 'warn',
+            redundant_cond: 'warn',
+            unused_local_fun: 'warn',
+            multiple_setq: 'warn',
+            redundant_quotes: 'warn',
+            trailing_paren: 'warn',
+            empty_comment: 'warn',
+            redundant_setq: 'warn',
+            redundant_nil_else: 'warn',
+            single_arg_and_or: 'warn',
+            redundant_let: 'warn',
+            self_compare: 'warn',
+            misplaced_else: 'warn',
+            quote_vs_function: 'warn',
+            commented_code: 'warn',
+            double_not: 'warn',
+            setq_single_arg: 'warn',
+            assoc_without_cdr: 'warn',
+            identical_branches: 'warn',
+            while_constant: 'warn',
+            cond_duplicate: 'warn',
+            error_handling: 'warn',
+            global_naming: 'warn',
+            extra_parens: 'warn',
+            arg_count: 'warn',
+            strcat_usage: 'warn',
+            cond_simplify: 'warn',
+            quote_style: 'warn',
+            eq_usage: 'warn',
+            lambda_syntax: 'warn',
+            comment_style: 'warn',
+            empty_catch: 'warn',
+            nth_usage: 'warn',
+            append_single: 'warn',
+            setq_multiple: 'warn',
+            mixed_indent: 'warn',
+            long_function_call: 'warn',
+            no_return: 'warn',
+            shadow_builtin: 'warn',
+            dynamic_doc: 'warn',
+            redundant_if: 'warn',
+        },
+    },
+    strict: {
+        checks: {
+            parens: 'error',
+            encoding: 'error',
+            cl_syntax: 'error',
+            quit_exit: 'error',
+            command_shell: 'error',
+            startapp: 'error',
+            vl_registry_write: 'error',
+            vlax_without_loading: 'error',
+            token_in_url: 'error',
+            open_without_close: 'error',
+            bare_function_names: 'error',
+            line_length: 'error',
+            function_complexity: 'error',
+            parameter_naming: 'error',
+            unused_variable: 'error',
+            missing_doc: 'error',
+            trailing_whitespace: 'error',
+            unused_parameter: 'error',
+            constant_condition: 'error',
+            redundant_progn: 'error',
+            empty_branch: 'error',
+            unused_let_binding: 'error',
+            recursive_call: 'error',
+            variable_shadow: 'error',
+            redundant_cond: 'error',
+            unused_local_fun: 'error',
+            multiple_setq: 'warn',
+            redundant_quotes: 'error',
+            trailing_paren: 'error',
+            empty_comment: 'error',
+            redundant_setq: 'error',
+            redundant_nil_else: 'error',
+            single_arg_and_or: 'error',
+            redundant_let: 'error',
+            self_compare: 'error',
+            misplaced_else: 'error',
+            quote_vs_function: 'error',
+            commented_code: 'error',
+            double_not: 'error',
+            setq_single_arg: 'error',
+            assoc_without_cdr: 'error',
+            identical_branches: 'error',
+            while_constant: 'error',
+            cond_duplicate: 'error',
+            duplicate_defun: 'error',
+            dangling_defun: 'error',
+            missing_export: 'error',
+            unused_package_dep: 'error',
+            error_handling: 'error',
+            global_naming: 'error',
+            extra_parens: 'error',
+            arg_count: 'error',
+            strcat_usage: 'error',
+            cond_simplify: 'error',
+            quote_style: 'error',
+            eq_usage: 'error',
+            lambda_syntax: 'error',
+            comment_style: 'error',
+            empty_catch: 'error',
+            nth_usage: 'error',
+            append_single: 'error',
+            setq_multiple: 'error',
+            function_order: 'warn',
+            magic_number: 'warn',
+            mixed_indent: 'error',
+            long_function_call: 'error',
+            no_return: 'error',
+            shadow_builtin: 'error',
+            dynamic_doc: 'error',
+            loop_optimization: 'warn',
+            type_check: 'warn',
+            format_indent: 'warn',
+            redundant_if: 'error',
+            module_registration: 'error',
+            namespace_header: 'error',
+        },
+    },
+    relaxed: {
+        checks: {
+            parens: 'error',
+            encoding: 'error',
+            quit_exit: 'error',
+            command_shell: 'error',
+        },
+    },
+};
+//# sourceMappingURL=presets.js.map

package/dist/project.js

@@ -40,12 +40,13 @@ const parser_1 = require("@atlisp/parser");
 const dangling_defun_1 = require("./checks/dangling-defun");
 const missing_export_1 = require("./checks/missing-export");
 const unused_package_dep_1 = require("./checks/unused-package-dep");
+const duplicate_defun_1 = require("./checks/duplicate-defun");
 const locale_1 = require("./locale");
 function collectDefuns(file) {
     const content = fs.readFileSync(file, 'utf-8');
     const ast = (0, parser_1.parseAst)(content);
     const results = [];
-    const defunNodes = (0, parser_1.astFindAll)(ast, (n) => (0, parser_1.astIsList)(n, 'defun') || (0, parser_1.astIsList)(n, 'defun-q'));
+    const defunNodes = (0, parser_1.astFindAll)(ast, n => (0, parser_1.astIsList)(n, 'defun') || (0, parser_1.astIsList)(n, 'defun-q'));
     for (const node of defunNodes) {
         if (node.children && node.children.length >= 2 && (0, parser_1.astIsSymbol)(node.children[1])) {
             results.push({ name: node.children[1].name, line: node.pos.line });
@@ -53,10 +54,27 @@ function collectDefuns(file) {
     }
     return results;
 }
+function collectReferences(file, _filepath) {
+    const content = fs.readFileSync(file, 'utf-8');
+    const ast = (0, parser_1.parseAst)(content);
+    const results = [];
+    const allCalls = (0, parser_1.astFindAll)(ast, n => {
+        if (n.type !== 'list' || !n.children || n.children.length === 0)
+            return false;
+        return (0, parser_1.astIsSymbol)(n.children[0]);
+    });
+    for (const call of allCalls) {
+        const name = call.children[0].name;
+        if (name !== 'defun' && name !== 'defun-q' && !name.startsWith('c:') && !name.includes(':')) {
+            results.push({ name, line: call.pos.line });
+        }
+    }
+    return results;
+}
 function lintProject(files, config, rootDir) {
     (0, locale_1.setLocale)(config.locale || 'zh');
     const allIssues = [];
-    const defuns = { defuns: new Map() };
+    const symbols = { defuns: new Map(), references: new Map() };
     const fileContents = new Map();
     for (const filepath of files) {
         try {
@@ -70,9 +88,15 @@ function lintProject(files, config, rootDir) {
     for (const [filepath] of fileContents) {
         const defunList = collectDefuns(filepath);
         for (const d of defunList) {
-            const list = defuns.defuns.get(d.name) || [];
+            const list = symbols.defuns.get(d.name) || [];
             list.push({ file: filepath, line: d.line });
-            defuns.defuns.set(d.name, list);
+            symbols.defuns.set(d.name, list);
+        }
+        const refList = collectReferences(filepath, filepath);
+        for (const r of refList) {
+            const list = symbols.references.get(r.name) || [];
+            list.push({ file: filepath, line: r.line });
+            symbols.references.set(r.name, list);
         }
     }
     for (const [filepath] of fileContents) {
@@ -80,7 +104,7 @@ function lintProject(files, config, rootDir) {
         const override = findProjectOverride(filepath);
         const checks = override?.checks || config.checks;
         if (checks['dangling_defun'] !== 'off') {
-            const danglingIssues = (0, dangling_defun_1.checkDanglingDefun)(filepath, defuns.defuns);
+            const danglingIssues = (0, dangling_defun_1.checkDanglingDefun)(filepath, symbols.defuns, symbols.references);
             for (const iss of danglingIssues) {
                 iss.file = relPath;
                 allIssues.push(iss);
@@ -89,7 +113,7 @@ function lintProject(files, config, rootDir) {
         if (checks['missing_export'] !== 'off') {
             const pkgDir = findPackageDir(filepath);
             if (pkgDir) {
-                const missingIssues = (0, missing_export_1.checkMissingExport)(filepath, pkgDir, defuns.defuns);
+                const missingIssues = (0, missing_export_1.checkMissingExport)(filepath, pkgDir, symbols.defuns);
                 for (const iss of missingIssues) {
                     iss.file = relPath;
                     allIssues.push(iss);
@@ -103,6 +127,13 @@ function lintProject(files, config, rootDir) {
                 allIssues.push(iss);
             }
         }
+        if (checks['duplicate_defun'] !== 'off') {
+            const dupIssues = (0, duplicate_defun_1.checkDuplicateDefun)(filepath, symbols.defuns);
+            for (const iss of dupIssues) {
+                iss.file = relPath;
+                allIssues.push(iss);
+            }
+        }
     }
     return allIssues;
 }

package/dist/rules.d.ts

@@ -0,0 +1,9 @@
+export interface RuleDoc {
+    name: string;
+    defaultSeverity: string;
+    description: string;
+    category: string;
+}
+export declare const RULES: RuleDoc[];
+export declare function generateRulesMarkdown(): string;
+//# sourceMappingURL=rules.d.ts.map

package/dist/rules.js

@@ -0,0 +1,239 @@
+"use strict";
+Object.defineProperty(exports, "__esModule", { value: true });
+exports.RULES = void 0;
+exports.generateRulesMarkdown = generateRulesMarkdown;
+exports.RULES = [
+    {
+        name: 'append_single',
+        defaultSeverity: 'warn',
+        description: '检测 (append (list ...)) 推荐使用 cons',
+        category: '风格',
+    },
+    {
+        name: 'arg_count',
+        defaultSeverity: 'warn',
+        description: '检查函数调用参数数量是否与定义匹配',
+        category: '最佳实践',
+    },
+    {
+        name: 'assoc_without_cdr',
+        defaultSeverity: 'warn',
+        description: '检测 assoc 结果未用 cdr 提取值',
+        category: '正确性',
+    },
+    {
+        name: 'bare_function_names',
+        defaultSeverity: 'off',
+        description: '检测缺少命名空间前缀的 defun',
+        category: '风格',
+    },
+    { name: 'cl_syntax', defaultSeverity: 'warn', description: '检测 Common Lisp 特有语法（如 &key）', category: '语法' },
+    {
+        name: 'command_shell',
+        defaultSeverity: 'error',
+        description: '检测 command shell 调用（命令注入风险）',
+        category: '安全',
+    },
+    { name: 'comment_style', defaultSeverity: 'warn', description: '检测 ; 后缺少空格的注释', category: '风格' },
+    { name: 'commented_code', defaultSeverity: 'warn', description: '检测被注释掉的代码', category: '风格' },
+    { name: 'cond_simplify', defaultSeverity: 'warn', description: '检测可简化为 if 的单分支 cond', category: '风格' },
+    {
+        name: 'constant_condition',
+        defaultSeverity: 'warn',
+        description: '检测 if/while/cond 中使用的常量条件',
+        category: '风格',
+    },
+    { name: 'cond_duplicate', defaultSeverity: 'warn', description: '检测 cond 中的重复条件', category: '正确性' },
+    {
+        name: 'dangling_defun',
+        defaultSeverity: 'warn',
+        description: '检测定义了但从未被调用的函数（跨文件）',
+        category: '正确性',
+    },
+    { name: 'duplicate_defun', defaultSeverity: 'warn', description: '检测多次定义的函数名', category: '正确性' },
+    {
+        name: 'double_not',
+        defaultSeverity: 'warn',
+        description: '检测双重 (not (not ...)) 可简化为单个 not',
+        category: '风格',
+    },
+    { name: 'dynamic_doc', defaultSeverity: 'warn', description: '检测 C: 命令是否缺少 (princ)', category: '最佳实践' },
+    { name: 'empty_branch', defaultSeverity: 'warn', description: '检测 if/cond 中为空的分支', category: '风格' },
+    {
+        name: 'empty_catch',
+        defaultSeverity: 'warn',
+        description: '检测未检查结果的 vl-catch-all-apply',
+        category: '最佳实践',
+    },
+    { name: 'empty_comment', defaultSeverity: 'warn', description: '检测空注释行（只有分号没有内容）', category: '风格' },
+    { name: 'encoding', defaultSeverity: 'error', description: '检查 UTF-8 BOM 和非 UTF-8 编码', category: '编码' },
+    { name: 'eq_usage', defaultSeverity: 'warn', description: '检测 eq 与数字比较', category: '最佳实践' },
+    {
+        name: 'error_handling',
+        defaultSeverity: 'warn',
+        description: '检测使用 command 但缺少 *error* 处理',
+        category: '最佳实践',
+    },
+    { name: 'extra_parens', defaultSeverity: 'warn', description: '检测可疑的连续右括号', category: '语法' },
+    {
+        name: 'function_complexity',
+        defaultSeverity: 'warn',
+        description: '检查函数行数和嵌套深度是否超限',
+        category: '复杂度',
+    },
+    { name: 'function_order', defaultSeverity: 'off', description: '检测函数定义在使用之后', category: '风格' },
+    { name: 'format_indent', defaultSeverity: 'off', description: '检测代码缩进是否符合格式化规范', category: '风格' },
+    {
+        name: 'identical_branches',
+        defaultSeverity: 'warn',
+        description: '检测 if 中 then 和 else 分支完全相同',
+        category: '正确性',
+    },
+    { name: 'global_naming', defaultSeverity: 'warn', description: '检测全局变量是否使用 *...* 命名', category: '风格' },
+    {
+        name: 'lambda_syntax',
+        defaultSeverity: 'warn',
+        description: '检测 (function (lambda ...)) 建议使用缩写',
+        category: '风格',
+    },
+    { name: 'line_length', defaultSeverity: 'warn', description: '检查行长度是否超过限制', category: '风格' },
+    { name: 'long_function_call', defaultSeverity: 'warn', description: '检测单行参数过多的函数调用', category: '风格' },
+    {
+        name: 'loop_optimization',
+        defaultSeverity: 'off',
+        description: '检测可优化的 while/assoc 循环',
+        category: '最佳实践',
+    },
+    { name: 'magic_number', defaultSeverity: 'off', description: '检测硬编码的魔法数字', category: '风格' },
+    {
+        name: 'misplaced_else',
+        defaultSeverity: 'warn',
+        description: '检测 (if (not ...) ...) 建议交换分支',
+        category: '风格',
+    },
+    { name: 'missing_doc', defaultSeverity: 'warn', description: '检测缺少注释说明的函数', category: '风格' },
+    { name: 'missing_export', defaultSeverity: 'warn', description: '检测函数未注册到 @::*modules*', category: '架构' },
+    { name: 'mixed_indent', defaultSeverity: 'warn', description: '检测缩进中混用 tab 和空格', category: '风格' },
+    {
+        name: 'module_registration',
+        defaultSeverity: 'off',
+        description: '检测模块文件是否注册到 *modules*',
+        category: '架构',
+    },
+    { name: 'multiple_setq', defaultSeverity: 'warn', description: '检测多个连续 setq 可以合并', category: '风格' },
+    {
+        name: 'namespace_header',
+        defaultSeverity: 'off',
+        description: '检测文件是否包含 (in-package ...) 头',
+        category: '架构',
+    },
+    { name: 'no_return', defaultSeverity: 'warn', description: '检测没有返回值的函数', category: '最佳实践' },
+    { name: 'nth_usage', defaultSeverity: 'warn', description: '检测 (nth 0 ...) 推荐使用 car', category: '风格' },
+    {
+        name: 'open_without_close',
+        defaultSeverity: 'warn',
+        description: '检测 open/close 数量不匹配（资源泄露）',
+        category: '最佳实践',
+    },
+    { name: 'parameter_naming', defaultSeverity: 'warn', description: '检查参数名是否首字母大写', category: '风格' },
+    { name: 'parens', defaultSeverity: 'error', description: '检查括号是否匹配（考虑字符串和注释）', category: '语法' },
+    {
+        name: 'quit_exit',
+        defaultSeverity: 'error',
+        description: '检测 quit/exit 调用（会终止 CAD 进程）',
+        category: '安全',
+    },
+    { name: 'quote_style', defaultSeverity: 'warn', description: '检测 (quote ...) 建议使用缩写', category: '风格' },
+    {
+        name: 'quote_vs_function',
+        defaultSeverity: 'warn',
+        description: '检测在 mapcar/apply 中使用引用 lambda 而非 function',
+        category: '风格',
+    },
+    {
+        name: 'recursive_call',
+        defaultSeverity: 'warn',
+        description: '检测函数调用自身（可能无限递归）',
+        category: '正确性',
+    },
+    { name: 'redundant_cond', defaultSeverity: 'warn', description: '检测单子句 cond 或末尾 T 子句', category: '风格' },
+    { name: 'redundant_if', defaultSeverity: 'warn', description: '检测 if/when 分支中冗余 progn', category: '风格' },
+    { name: 'redundant_let', defaultSeverity: 'warn', description: '检测无绑定的 let 建议改用 progn', category: '风格' },
+    { name: 'redundant_nil_else', defaultSeverity: 'warn', description: '检测 if 中冗余的 nil 分支', category: '风格' },
+    { name: 'redundant_progn', defaultSeverity: 'warn', description: '检测分支中多余的 progn', category: '风格' },
+    { name: 'redundant_quotes', defaultSeverity: 'warn', description: "检测冗余双引号（如 ''x）", category: '风格' },
+    { name: 'redundant_setq', defaultSeverity: 'warn', description: '检测 setq 变量赋值为自身', category: '风格' },
+    {
+        name: 'self_compare',
+        defaultSeverity: 'warn',
+        description: '检测自比较表达式（恒为 T 或 nil）',
+        category: '正确性',
+    },
+    { name: 'setq_single_arg', defaultSeverity: 'warn', description: '检测 setq 只有变量名缺少值', category: '正确性' },
+    { name: 'setq_multiple', defaultSeverity: 'warn', description: '检测多个连续 setq 可以合并', category: '风格' },
+    { name: 'shadow_builtin', defaultSeverity: 'warn', description: '检测覆盖内置函数的 defun', category: '最佳实践' },
+    { name: 'single_arg_and_or', defaultSeverity: 'warn', description: '检测单参数 and/or 建议简化', category: '风格' },
+    { name: 'startapp', defaultSeverity: 'warn', description: '检测 startapp 调用（启动外部程序）', category: '安全' },
+    {
+        name: 'strcat_usage',
+        defaultSeverity: 'warn',
+        description: '检测是否使用 + 而非 strcat 拼接字符串',
+        category: '最佳实践',
+    },
+    {
+        name: 'token_in_url',
+        defaultSeverity: 'warn',
+        description: '检测字符串中的 token= 参数（凭据泄露）',
+        category: '安全',
+    },
+    { name: 'trailing_paren', defaultSeverity: 'warn', description: '检测多余闭合括号', category: '语法' },
+    { name: 'trailing_whitespace', defaultSeverity: 'warn', description: '检测行尾多余空格', category: '风格' },
+    { name: 'type_check', defaultSeverity: 'off', description: '检测 getvar 结果未做类型检查', category: '最佳实践' },
+    {
+        name: 'unused_let_binding',
+        defaultSeverity: 'warn',
+        description: '检测 let 绑定但未使用的变量',
+        category: '最佳实践',
+    },
+    {
+        name: 'unused_local_fun',
+        defaultSeverity: 'warn',
+        description: '检测 defun / 后定义的局部函数/变量未使用',
+        category: '最佳实践',
+    },
+    { name: 'unused_package_dep', defaultSeverity: 'warn', description: '检测导入的包从未被引用', category: '架构' },
+    { name: 'unused_parameter', defaultSeverity: 'warn', description: '检测函数中未使用的参数', category: '最佳实践' },
+    { name: 'unused_variable', defaultSeverity: 'warn', description: '检测被赋值但未使用的变量', category: '最佳实践' },
+    {
+        name: 'variable_shadow',
+        defaultSeverity: 'warn',
+        description: '检测 setq 覆盖了 let 绑定的同名变量',
+        category: '最佳实践',
+    },
+    { name: 'while_constant', defaultSeverity: 'warn', description: '检测 while 使用常量条件', category: '正确性' },
+    {
+        name: 'vl_registry_write',
+        defaultSeverity: 'warn',
+        description: '检测 vl-registry-write（修改注册表）',
+        category: '安全',
+    },
+    {
+        name: 'vlax_without_loading',
+        defaultSeverity: 'off',
+        description: '检测 vlax-* 使用前未调用 vl-load-com',
+        category: '最佳实践',
+    },
+];
+function generateRulesMarkdown() {
+    const lines = [
+        '# @atlisp/lint Rules',
+        '',
+        '| Rule | Default | Category | Description |',
+        '|------|---------|----------|-------------|',
+    ];
+    for (const r of exports.RULES) {
+        lines.push(`| \`${r.name}\` | ${r.defaultSeverity} | ${r.category} | ${r.description} |`);
+    }
+    return lines.join('\n');
+}
+//# sourceMappingURL=rules.js.map

package/dist/runner.d.ts

@@ -4,5 +4,7 @@ export declare function runChecks(content: string, file: string, config: LintCon
 export declare function runChecksWithVisitor(content: string, file: string, config: LintConfig): Issue[];
 export declare function lintFiles(files: string[], config: LintConfig, rootDir: string): Issue[];
 export declare function lintFilesParallel(files: string[], config: LintConfig, rootDir: string): Promise<Issue[]>;
+export declare function applyFixes(issues: Issue[], content: string, filepath: string): string;
+export declare function parseIgnoreFile(rootDir: string): string[];
 export declare function fixFile(filepath: string): string[];
 //# sourceMappingURL=runner.d.ts.map