@atlisp/lint 0.1.23 → 0.1.25

package/dist/checks/single-arg-and-or.js

@@ -5,7 +5,7 @@ exports.checkSingleArgAndOrAst = checkSingleArgAndOrAst;
 const locale_1 = require("../locale");
 const parser_1 = require("@atlisp/parser");
 function checkSingleArgAndOr(content, file) {
-    const ast = (0, parser_1.parseAst)(content);
+    const ast = (0, parser_1.parseAst)(content, { errorRecovery: true });
     return checkSingleArgAndOrAst(ast, file);
 }
 function checkSingleArgAndOrAst(ast, file) {

package/dist/checks/undeclared-setq.js

@@ -42,7 +42,7 @@ function findEnclosingDefun(node) {
 }
 function checkUndeclaredSetq(content, file) {
     const issues = [];
-    const ast = (0, parser_1.parseAst)(content);
+    const ast = (0, parser_1.parseAst)(content, { errorRecovery: true });
     const setqForms = (0, parser_1.astFindListWithHead)(ast, 'setq');
     for (const setq of setqForms) {
         if (!setq.children || setq.children.length < 2)

package/dist/checks/unused-catch-result.js

@@ -5,7 +5,7 @@ const locale_1 = require("../locale");
 const parser_1 = require("@atlisp/parser");
 function checkUnusedCatchResult(content, file) {
     const issues = [];
-    const ast = (0, parser_1.parseAst)(content);
+    const ast = (0, parser_1.parseAst)(content, { errorRecovery: true });
     const catchNodes = (0, parser_1.astFindAll)(ast, n => (0, parser_1.astIsList)(n, 'vl-catch-all-apply'));
     for (const node of catchNodes) {
         if (isInQuote(node))

package/dist/checks/unused-let.js

@@ -5,7 +5,7 @@ exports.checkUnusedLetBindingAst = checkUnusedLetBindingAst;
 const locale_1 = require("../locale");
 const parser_1 = require("@atlisp/parser");
 function checkUnusedLetBinding(content, file) {
-    const ast = (0, parser_1.parseAst)(content);
+    const ast = (0, parser_1.parseAst)(content, { errorRecovery: true });
     return checkUnusedLetBindingAst(ast, file);
 }
 function checkUnusedLetBindingAst(ast, file) {

package/dist/checks/unused-local-fun.js

@@ -5,7 +5,7 @@ exports.checkUnusedLocalFunAst = checkUnusedLocalFunAst;
 const locale_1 = require("../locale");
 const parser_1 = require("@atlisp/parser");
 function checkUnusedLocalFun(content, file) {
-    const ast = (0, parser_1.parseAst)(content);
+    const ast = (0, parser_1.parseAst)(content, { errorRecovery: true });
     return checkUnusedLocalFunAst(ast, file);
 }
 function checkUnusedLocalFunAst(ast, file) {

package/dist/checks/unused-package-dep.js

@@ -40,7 +40,7 @@ const fs = __importStar(require("fs"));
 function checkUnusedPackageDep(file) {
     const issues = [];
     const content = fs.readFileSync(file, 'utf-8');
-    const ast = (0, parser_1.parseAst)(content);
+    const ast = (0, parser_1.parseAst)(content, { errorRecovery: true });
     const inPackageNodes = (0, parser_1.astFindAll)(ast, n => (0, parser_1.astIsList)(n, 'in-package'));
     if (inPackageNodes.length === 0)
         return issues;

package/dist/checks/unused-param.js

@@ -5,7 +5,7 @@ exports.checkUnusedParameterAst = checkUnusedParameterAst;
 const locale_1 = require("../locale");
 const parser_1 = require("@atlisp/parser");
 function checkUnusedParameter(content, file) {
-    const ast = (0, parser_1.parseAst)(content);
+    const ast = (0, parser_1.parseAst)(content, { errorRecovery: true });
     return checkUnusedParameterAst(ast, file);
 }
 function checkUnusedParameterAst(ast, file) {

package/dist/checks/unused-variable.js

@@ -5,7 +5,7 @@ exports.checkUnusedVariableAst = checkUnusedVariableAst;
 const locale_1 = require("../locale");
 const parser_1 = require("@atlisp/parser");
 function checkUnusedVariable(content, file) {
-    const ast = (0, parser_1.parseAst)(content);
+    const ast = (0, parser_1.parseAst)(content, { errorRecovery: true });
     return checkUnusedVariableAst(ast, file);
 }
 function checkUnusedVariableAst(ast, file) {

package/dist/checks/variable-shadow.js

@@ -5,7 +5,7 @@ exports.checkVariableShadowAst = checkVariableShadowAst;
 const locale_1 = require("../locale");
 const parser_1 = require("@atlisp/parser");
 function checkVariableShadow(content, file) {
-    const ast = (0, parser_1.parseAst)(content);
+    const ast = (0, parser_1.parseAst)(content, { errorRecovery: true });
     return checkVariableShadowAst(ast, file);
 }
 function checkVariableShadowAst(ast, file) {

package/dist/checks/while-constant.js

@@ -5,7 +5,7 @@ exports.checkWhileConstantAst = checkWhileConstantAst;
 const locale_1 = require("../locale");
 const parser_1 = require("@atlisp/parser");
 function checkWhileConstant(content, file) {
-    const ast = (0, parser_1.parseAst)(content);
+    const ast = (0, parser_1.parseAst)(content, { errorRecovery: true });
     return checkWhileConstantAst(ast, file);
 }
 function checkWhileConstantAst(ast, file) {

package/dist/formatters.d.ts

@@ -1,5 +1,4 @@
 import { Issue } from './types';
 export declare function formatDefault(issues: Issue[], fileContents?: Map<string, string>): string;
-export declare function formatHtml(issues: Issue[], errorCount: number, warningCount: number): string;
 export declare function formatJson(issues: Issue[], errorCount?: number, warningCount?: number): string;
 //# sourceMappingURL=formatters.d.ts.map

package/dist/formatters.js

@@ -1,7 +1,6 @@
 "use strict";
 Object.defineProperty(exports, "__esModule", { value: true });
 exports.formatDefault = formatDefault;
-exports.formatHtml = formatHtml;
 exports.formatJson = formatJson;
 const locale_1 = require("./locale");
 const colors = {
@@ -69,21 +68,6 @@ function formatDefault(issues, fileContents) {
     }
     return lines.join('\n');
 }
-function formatHtml(issues, errorCount, warningCount) {
-    let html = `<!DOCTYPE html>
-<html lang="en">
-<head><meta charset="UTF-8"><title>@atlisp/lint Report</title></head>
-<body>
-<h1>@atlisp/lint Report</h1>
-<p>${errorCount} error(s), ${warningCount} warning(s)</p>
-<ul>
-`;
-    for (const iss of issues) {
-        html += `  <li>${iss.severity}: ${iss.file}:${iss.line} — ${iss.message}</li>\n`;
-    }
-    html += '</ul>\n</body>\n</html>';
-    return html;
-}
 function formatJson(issues, errorCount, warningCount) {
     return JSON.stringify({
         issues,

package/dist/lib/lint-sbcl.lisp

@@ -0,0 +1,161 @@
+;; @lisp SBCL Lint — syntax validation via SBCL
+;; Usage: sbcl --script lint-sbcl.lisp <src-dir> <stub-packages.json> <walk-exclude-json> <defmacro-allow-files-json> <locale>
+
+(require :uiop)
+
+(defparameter *errors* 0)
+(defparameter *warnings* 0)
+(defparameter *checked* 0)
+(defparameter *locale* "zh")
+
+;; ── i18n ──────────────────────────────────────────────────────────────
+(defun i18n (key)
+  (cdr (assoc key
+    (if (string= *locale* "zh")
+      '((:not-found . "not found symbol")
+        (:syntax-error . "syntax error")
+        (:vec-syntax . "#( vector syntax")
+        (:char-syntax . "# backslash char literal")
+        (:eval-syntax . "#. read-time eval")
+        (:defmacro . "defmacro")
+        (:trailing-ws . "trailing whitespace")
+        (:ok . "OK")
+        (:fail . "FAIL")
+        (:header . "  @lisp SBCL Lint")
+        (:source . "  Source")
+        (:found . "  Found ~d .lsp files")
+        (:scanned . "  Scanned")
+        (:errors . "  Errors")
+        (:warnings . "  Warnings"))
+      '((:not-found . "not found symbol")
+        (:syntax-error . "syntax error")
+        (:vec-syntax . "#( vector syntax")
+        (:char-syntax . "# backslash char literal")
+        (:eval-syntax . "#. read-time eval")
+        (:defmacro . "defmacro")
+        (:trailing-ws . "trailing whitespace")
+        (:ok . "OK")
+        (:fail . "FAIL")
+        (:header . "  @lisp SBCL Lint")
+        (:source . "  Source")
+        (:found . "  Found ~d .lsp files")
+        (:scanned . "  Scanned")
+        (:errors . "  Errors")
+        (:warnings . "  Warnings"))))))
+
+;; ── Stub packages from external file ──────────────────────────────────
+(defun load-stub-packages (file-path)
+  (flet ((ensure-pkg (name &optional use-list)
+           (unless (find-package name)
+             (make-package name :use (or use-list '())))))
+    (with-open-file (s file-path :direction :input)
+      (let ((packages (read s)))
+        (dolist (pkg packages)
+          (ensure-pkg (first pkg) (second pkg)))))))
+
+;; ── File walking ──────────────────────────────────────────────────────
+(defun source-files (dir)
+  (sort
+    (remove-if-not
+      (lambda (p)
+        (let ((n (pathname-type p)))
+          (and n (string-equal n "lsp"))))
+      (uiop:directory-files dir))
+    'string< :key #'namestring))
+
+(defun walk-tree (dir exclude-dirs)
+  (let ((result (source-files dir)))
+    (dolist (sub (uiop:subdirectories dir))
+      (let ((name (car (last (pathname-directory sub)))))
+        (unless (find name exclude-dirs :test 'string=)
+          (setf result (append result (walk-tree sub exclude-dirs))))))
+    result))
+
+;; ── Per-file check ────────────────────────────────────────────────────
+(defun check-file (path src-dir defmacro-allow-files)
+  (incf *checked*)
+  (let* ((rel (enough-namestring path src-dir))
+         (fullname (format nil "~a.~a" (pathname-name path) (pathname-type path))))
+    (format t "  ~a ... " rel)
+    (force-output)
+    ;; Syntax check via READ
+    (handler-case
+        (with-open-file (s path :direction :input)
+          (loop for form = (read s nil :eof)
+                until (eq form :eof)))
+      (error (e)
+        (let ((msg (princ-to-string e)))
+          (cond
+            ((search "not found" msg)
+             (format t "~%  [NOTE] ~a: ~a~%" rel (i18n :not-found))
+             (incf *warnings*))
+            (t
+             (format t "~a~%  [ERROR] ~a: ~a~%" (i18n :fail) rel (i18n :syntax-error))
+             (incf *errors*)
+             (return-from check-file))))))
+    ;; Trailing whitespace
+    (with-open-file (s path :direction :input)
+      (loop for line = (read-line s nil nil)
+            for lineno from 1
+            while line
+            when (and (> (length line) 0)
+                      (find (char line (1- (length line))) '(#\Space #\Tab)))
+              do (progn
+                   (format t "~%  [WARN] ~a line ~d: ~a~%" rel lineno (i18n :trailing-ws))
+                   (incf *warnings*))))
+    ;; CL-ism checks: raw content scan
+    (with-open-file (s path :direction :input)
+      (let ((content (make-string (file-length s))))
+        (file-position s 0)
+        (read-sequence content s)
+        (when (search "#(" content)
+          (format t "~%  [WARN] ~a: ~a~%" rel (i18n :vec-syntax))
+          (incf *warnings*))
+        (when (search "#\\" content)
+          (format t "~%  [WARN] ~a: ~a~%" rel (i18n :char-syntax))
+          (incf *warnings*))
+        (when (search "#." content)
+          (format t "~%  [WARN] ~a: ~a~%" rel (i18n :eval-syntax))
+          (incf *warnings*))
+        (when (and (search "defmacro" content)
+                   (not (some (lambda (s) (search s fullname)) defmacro-allow-files)))
+          (format t "~%  [WARN] ~a: ~a~%" rel (i18n :defmacro))
+          (incf *warnings*))))
+    (format t "~a~%" (i18n :ok))))
+
+;; ── Main ──────────────────────────────────────────────────────────────
+(defun main ()
+  (let* ((args (uiop:command-line-arguments))
+         (src-dir (first args))
+         (stub-file (second args))
+         (walk-exclude (if (third args)
+                          (read-from-string (third args))
+                          '(".vscode" "test" "experiment" "tools" ".git")))
+         (defmacro-allow (if (fourth args)
+                            (read-from-string (fourth args))
+                            '("compat-cl")))
+         (locale (fifth args)))
+    (when locale (setf *locale* locale))
+    (load-stub-packages stub-file)
+
+    (format t "~%==================================================~%")
+    (format t "~a~%" (i18n :header))
+    (format t "~a: ~a~%" (i18n :source) (namestring (pathname src-dir)))
+    (format t "==================================================~%~%")
+    (setf *errors* 0 *warnings* 0 *checked* 0)
+
+    (let ((files (walk-tree src-dir walk-exclude)))
+      (format t "~a~%~%" (format nil (i18n :found) (length files)))
+      (dolist (f files)
+        (check-file f src-dir defmacro-allow)))
+
+    (format t "~%==================================================~%")
+    (format t "~a: ~d~%" (i18n :scanned) *checked*)
+    (format t "~a: ~d~%" (i18n :errors) *errors*)
+    (format t "~a: ~d~%" (i18n :warnings) *warnings*)
+    (format t "==================================================~%~%")
+    (if (> *errors* 0)
+        (uiop:quit 1)
+        (uiop:quit 0))))
+
+(main)

package/dist/locale.js

@@ -19,6 +19,8 @@ const messages = {
         token_in_url: 'Possible token exposure in string: token= in URL',
         open_without_close: 'File has {0} open() calls but {1} close() calls (possible resource leak)',
         arg_count: "Function '{0}' called with {1} arguments but defined with {2}",
+        'builtin_arg_count.too_few': "Built-in function '{0}' called with {1} arguments, expected at least {2}",
+        'builtin_arg_count.too_many': "Built-in function '{0}' called with {1} arguments, expected at most {2}",
         bare_function_names: "Unnamespaced function '{0}' (missing @:: or C: prefix)",
         module_registration: 'Module file missing @::*modules* registration (expected in last lines)',
         'namespace_header.missing': 'Missing (in-package {0}) header',

package/dist/project.js

@@ -44,7 +44,7 @@ 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 ast = (0, parser_1.parseAst)(content, { errorRecovery: true });
     const results = [];
     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) {
@@ -56,7 +56,7 @@ function collectDefuns(file) {
 }
 function collectReferences(file) {
     const content = fs.readFileSync(file, 'utf-8');
-    const ast = (0, parser_1.parseAst)(content);
+    const ast = (0, parser_1.parseAst)(content, { errorRecovery: true });
     const results = [];
     const allCalls = (0, parser_1.astFindAll)(ast, n => {
         if (n.type !== 'list' || !n.children || n.children.length === 0)
@@ -73,7 +73,7 @@ function collectReferences(file) {
 }
 function countFunctionArgs(file) {
     const content = fs.readFileSync(file, 'utf-8');
-    const ast = (0, parser_1.parseAst)(content);
+    const ast = (0, parser_1.parseAst)(content, { errorRecovery: true });
     const result = new Map();
     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) {
@@ -102,7 +102,7 @@ function countFunctionArgs(file) {
 }
 function countCallArgs(file) {
     const content = fs.readFileSync(file, 'utf-8');
-    const ast = (0, parser_1.parseAst)(content);
+    const ast = (0, parser_1.parseAst)(content, { errorRecovery: true });
     const result = new Map();
     const allCalls = (0, parser_1.astFindAll)(ast, n => {
         if (n.type !== 'list' || !n.children || n.children.length === 0)
@@ -122,7 +122,7 @@ function countCallArgs(file) {
 }
 function findModuleDeps(filepath) {
     const content = fs.readFileSync(filepath, 'utf-8');
-    const ast = (0, parser_1.parseAst)(content);
+    const ast = (0, parser_1.parseAst)(content, { errorRecovery: true });
     const imports = [];
     const exports = [];
     const inPackageNodes = (0, parser_1.astFindAll)(ast, n => (0, parser_1.astIsList)(n, 'in-package'));

package/dist/rules.js

@@ -11,7 +11,7 @@ exports.RULES = [
     },
     {
         name: 'arg_count',
-        defaultSeverity: 'warn',
+        defaultSeverity: 'error',
         description: '检查函数调用参数数量是否与定义匹配',
         category: '最佳实践',
     },
@@ -236,6 +236,7 @@ exports.RULES = [
     { name: 'promise_handler', defaultSeverity: 'warn', description: '检测 vlax-invoke 缺少回调处理器', category: '最佳实践' },
     { name: 'module_cycle', defaultSeverity: 'warn', description: '检测模块循环依赖', category: '架构' },
     { name: 'arg_count_project', defaultSeverity: 'warn', description: '跨文件检查函数参数数量', category: '正确性' },
+    { name: 'builtin_arg_count', defaultSeverity: 'error', description: '检查 AutoLISP 内置函数调用参数个数是否匹配', category: '正确性' },
 ];
 function generateRulesMarkdown() {
     const lines = [

package/dist/runner.d.ts

@@ -1,6 +1,5 @@
 import { Issue, LintConfig } from './types';
 export declare function runChecks(content: string, file: string, config: LintConfig): Issue[];
-export declare function runChecksWithVisitorWrapper(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 const FIXABLE_RULES: Set<string>;