@atlisp/lint 0.1.1 → 0.1.3

package/dist/worker.js

@@ -3,58 +3,13 @@ Object.defineProperty(exports, "__esModule", { value: true });
 const worker_threads_1 = require("worker_threads");
 const fs_1 = require("fs");
 const locale_1 = require("./locale");
-const disable_1 = require("./disable");
-const encoding_1 = require("./checks/encoding");
-const parens_1 = require("./checks/parens");
-const cl_syntax_1 = require("./checks/cl-syntax");
-const dangerous_calls_1 = require("./checks/dangerous-calls");
-const vlax_1 = require("./checks/vlax");
-const token_in_url_1 = require("./checks/token-in-url");
-const open_close_1 = require("./checks/open-close");
-const bare_names_1 = require("./checks/bare-names");
-const module_reg_1 = require("./checks/module-reg");
-const namespace_header_1 = require("./checks/namespace-header");
-const line_length_1 = require("./checks/line-length");
-const function_complexity_1 = require("./checks/function-complexity");
-const parameter_naming_1 = require("./checks/parameter-naming");
-const unused_variable_1 = require("./checks/unused-variable");
-const missing_doc_1 = require("./checks/missing-doc");
-const trailing_ws_1 = require("./checks/trailing-ws");
-function runChecks(content, file, config) {
-    const issues = [];
-    const disableMap = (0, disable_1.parseDisableComments)(content);
-    function addIfEnabled(rule, fn) {
-        const results = fn();
-        for (const r of results) {
-            if (!(0, disable_1.isDisabled)(r.rule, r.line, disableMap)) {
-                issues.push(r);
-            }
-        }
-    }
-    addIfEnabled('encoding', () => (0, encoding_1.checkEncoding)(content, file));
-    addIfEnabled('parens', () => (0, parens_1.checkParens)(content, file));
-    addIfEnabled('cl_syntax', () => (0, cl_syntax_1.checkClSyntax)(content, file, config.cl_syntax.keywords));
-    addIfEnabled('quit_exit', () => (0, dangerous_calls_1.checkDangerousCalls)(content, file, config.dangerous_calls));
-    addIfEnabled('vlax_without_loading', () => (0, vlax_1.checkVlaxWithoutLoading)(content, file));
-    addIfEnabled('token_in_url', () => (0, token_in_url_1.checkTokenInUrl)(content, file));
-    addIfEnabled('open_without_close', () => (0, open_close_1.checkOpenWithoutClose)(content, file));
-    addIfEnabled('bare_function_names', () => (0, bare_names_1.checkBareFunctionNames)(content, file, config.bare_function_names.allowlist, config.bare_function_names.namespace_pattern));
-    addIfEnabled('module_registration', () => (0, module_reg_1.checkModuleRegistration)(content, file, file, config.module_registration));
-    addIfEnabled('namespace_header', () => (0, namespace_header_1.checkNamespaceHeader)(content, file, config.namespace_header));
-    addIfEnabled('line_length', () => (0, line_length_1.checkLineLength)(content, file, config.line_length.max, config.line_length.tab_width));
-    addIfEnabled('function_complexity', () => (0, function_complexity_1.checkFunctionComplexity)(content, file, config.function_complexity.max_lines, config.function_complexity.max_nesting));
-    addIfEnabled('parameter_naming', () => (0, parameter_naming_1.checkParameterNaming)(content, file));
-    addIfEnabled('unused_variable', () => (0, unused_variable_1.checkUnusedVariable)(content, file));
-    addIfEnabled('missing_doc', () => (0, missing_doc_1.checkMissingDoc)(content, file));
-    addIfEnabled('trailing_whitespace', () => (0, trailing_ws_1.checkTrailingWhitespace)(content, file));
-    return issues;
-}
+const index_1 = require("./checks/index");
 if (worker_threads_1.parentPort && worker_threads_1.workerData) {
     const input = worker_threads_1.workerData;
     (0, locale_1.setLocale)(input.config.locale || 'zh');
     try {
         const content = (0, fs_1.readFileSync)(input.filepath, 'utf-8');
-        const issues = runChecks(content, input.relPath, input.config);
+        const issues = (0, index_1.runChecks)(content, input.relPath, input.config);
         const output = { filepath: input.filepath, issues };
         worker_threads_1.parentPort.postMessage(output);
     }

package/dist/worker.js.map

@@ -1 +1 @@
-{"version":3,"file":"worker.js","sourceRoot":"","sources":["../src/worker.ts"],"names":[],"mappings":";;AAAA,mDAAwD;AACxD,2BAAkC;AAElC,qCAAqC;AACrC,uCAA6D;AAC7D,gDAAkD;AAClD,4CAA8C;AAC9C,kDAAmD;AACnD,8DAA+D;AAC/D,wCAAwD;AACxD,wDAAwD;AACxD,oDAA4D;AAC5D,oDAA6D;AAC7D,oDAA8D;AAC9D,gEAAiE;AACjE,sDAAuD;AACvD,sEAAuE;AACvE,gEAAiE;AACjE,8DAA+D;AAC/D,sDAAuD;AACvD,sDAA+D;AAa/D,SAAS,SAAS,CAAC,OAAe,EAAE,IAAY,EAAE,MAAkB;IAClE,MAAM,MAAM,GAA8B,EAAE,CAAC;IAC7C,MAAM,UAAU,GAAG,IAAA,8BAAoB,EAAC,OAAO,CAAC,CAAA;IAEhD,SAAS,YAAY,CAAC,IAAY,EAAE,EAAmC;QACrE,MAAM,OAAO,GAAG,EAAE,EAAE,CAAA;QACpB,KAAK,MAAM,CAAC,IAAI,OAAO,EAAE,CAAC;YACxB,IAAI,CAAC,IAAA,oBAAU,EAAC,CAAC,CAAC,IAAI,EAAE,CAAC,CAAC,IAAI,EAAE,UAAU,CAAC,EAAE,CAAC;gBAC5C,MAAM,CAAC,IAAI,CAAC,CAAC,CAAC,CAAA;YAChB,CAAC;QACH,CAAC;IACH,CAAC;IAED,YAAY,CAAC,UAAU,EAAE,GAAG,EAAE,CAAC,IAAA,wBAAa,EAAC,OAAO,EAAE,IAAI,CAAC,CAAC,CAAA;IAC5D,YAAY,CAAC,QAAQ,EAAE,GAAG,EAAE,CAAC,IAAA,oBAAW,EAAC,OAAO,EAAE,IAAI,CAAC,CAAC,CAAA;IACxD,YAAY,CAAC,WAAW,EAAE,GAAG,EAAE,CAAC,IAAA,yBAAa,EAAC,OAAO,EAAE,IAAI,EAAE,MAAM,CAAC,SAAS,CAAC,QAAQ,CAAC,CAAC,CAAA;IACxF,YAAY,CAAC,WAAW,EAAE,GAAG,EAAE,CAAC,IAAA,qCAAmB,EAAC,OAAO,EAAE,IAAI,EAAE,MAAM,CAAC,eAAe,CAAC,CAAC,CAAA;IAC3F,YAAY,CAAC,sBAAsB,EAAE,GAAG,EAAE,CAAC,IAAA,8BAAuB,EAAC,OAAO,EAAE,IAAI,CAAC,CAAC,CAAA;IAClF,YAAY,CAAC,cAAc,EAAE,GAAG,EAAE,CAAC,IAAA,8BAAe,EAAC,OAAO,EAAE,IAAI,CAAC,CAAC,CAAA;IAClE,YAAY,CAAC,oBAAoB,EAAE,GAAG,EAAE,CAAC,IAAA,kCAAqB,EAAC,OAAO,EAAE,IAAI,CAAC,CAAC,CAAA;IAC9E,YAAY,CAAC,qBAAqB,EAAE,GAAG,EAAE,CAAC,IAAA,mCAAsB,EAAC,OAAO,EAAE,IAAI,EAAE,MAAM,CAAC,mBAAmB,CAAC,SAAS,EAAE,MAAM,CAAC,mBAAmB,CAAC,iBAAiB,CAAC,CAAC,CAAA;IACpK,YAAY,CAAC,qBAAqB,EAAE,GAAG,EAAE,CAAC,IAAA,oCAAuB,EAAC,OAAO,EAAE,IAAI,EAAE,IAAI,EAAE,MAAM,CAAC,mBAAmB,CAAC,CAAC,CAAA;IACnH,YAAY,CAAC,kBAAkB,EAAE,GAAG,EAAE,CAAC,IAAA,uCAAoB,EAAC,OAAO,EAAE,IAAI,EAAE,MAAM,CAAC,gBAAgB,CAAC,CAAC,CAAA;IACpG,YAAY,CAAC,aAAa,EAAE,GAAG,EAAE,CAAC,IAAA,6BAAe,EAAC,OAAO,EAAE,IAAI,EAAE,MAAM,CAAC,WAAW,CAAC,GAAG,EAAE,MAAM,CAAC,WAAW,CAAC,SAAS,CAAC,CAAC,CAAA;IACvH,YAAY,CAAC,qBAAqB,EAAE,GAAG,EAAE,CAAC,IAAA,6CAAuB,EAAC,OAAO,EAAE,IAAI,EAAE,MAAM,CAAC,mBAAmB,CAAC,SAAS,EAAE,MAAM,CAAC,mBAAmB,CAAC,WAAW,CAAC,CAAC,CAAA;IAC/J,YAAY,CAAC,kBAAkB,EAAE,GAAG,EAAE,CAAC,IAAA,uCAAoB,EAAC,OAAO,EAAE,IAAI,CAAC,CAAC,CAAA;IAC3E,YAAY,CAAC,iBAAiB,EAAE,GAAG,EAAE,CAAC,IAAA,qCAAmB,EAAC,OAAO,EAAE,IAAI,CAAC,CAAC,CAAA;IACzE,YAAY,CAAC,aAAa,EAAE,GAAG,EAAE,CAAC,IAAA,6BAAe,EAAC,OAAO,EAAE,IAAI,CAAC,CAAC,CAAA;IACjE,YAAY,CAAC,qBAAqB,EAAE,GAAG,EAAE,CAAC,IAAA,qCAAuB,EAAC,OAAO,EAAE,IAAI,CAAC,CAAC,CAAA;IAEjF,OAAO,MAAM,CAAA;AACf,CAAC;AAED,IAAI,2BAAU,IAAI,2BAAU,EAAE,CAAC;IAC7B,MAAM,KAAK,GAAG,2BAAyB,CAAC;IACxC,IAAA,kBAAS,EAAC,KAAK,CAAC,MAAM,CAAC,MAAM,IAAI,IAAI,CAAC,CAAC;IAEvC,IAAI,CAAC;QACH,MAAM,OAAO,GAAG,IAAA,iBAAY,EAAC,KAAK,CAAC,QAAQ,EAAE,OAAO,CAAC,CAAC;QACtD,MAAM,MAAM,GAAG,SAAS,CAAC,OAAO,EAAE,KAAK,CAAC,OAAO,EAAE,KAAK,CAAC,MAAM,CAAC,CAAC;QAC/D,MAAM,MAAM,GAAiB,EAAE,QAAQ,EAAE,KAAK,CAAC,QAAQ,EAAE,MAAM,EAAE,CAAC;QAClE,2BAAU,CAAC,WAAW,CAAC,MAAM,CAAC,CAAC;IACjC,CAAC;IAAC,MAAM,CAAC;QACP,MAAM,MAAM,GAAiB;YAC3B,QAAQ,EAAE,KAAK,CAAC,QAAQ;YACxB,MAAM,EAAE,CAAC;oBACP,IAAI,EAAE,KAAK,CAAC,OAAO,EAAE,IAAI,EAAE,CAAC,EAAE,QAAQ,EAAE,OAAO,EAAE,IAAI,EAAE,MAAM;oBAC7D,OAAO,EAAE,kBAAkB;iBAC5B,CAAC;SACH,CAAC;QACF,2BAAU,CAAC,WAAW,CAAC,MAAM,CAAC,CAAC;IACjC,CAAC;AACH,CAAC"}
+{"version":3,"file":"worker.js","sourceRoot":"","sources":["../src/worker.ts"],"names":[],"mappings":";;AAAA,mDAAwD;AACxD,2BAAkC;AAElC,qCAAqC;AACrC,0CAA2C;AAE3C,IAAI,2BAAU,IAAI,2BAAU,EAAE,CAAC;IAC7B,MAAM,KAAK,GAAG,2BAAuE,CAAC;IACtF,IAAA,kBAAS,EAAC,KAAK,CAAC,MAAM,CAAC,MAAM,IAAI,IAAI,CAAC,CAAC;IAEvC,IAAI,CAAC;QACH,MAAM,OAAO,GAAG,IAAA,iBAAY,EAAC,KAAK,CAAC,QAAQ,EAAE,OAAO,CAAC,CAAC;QACtD,MAAM,MAAM,GAAG,IAAA,iBAAS,EAAC,OAAO,EAAE,KAAK,CAAC,OAAO,EAAE,KAAK,CAAC,MAAM,CAAC,CAAC;QAC/D,MAAM,MAAM,GAAG,EAAE,QAAQ,EAAE,KAAK,CAAC,QAAQ,EAAE,MAAM,EAAE,CAAC;QACpD,2BAAU,CAAC,WAAW,CAAC,MAAM,CAAC,CAAC;IACjC,CAAC;IAAC,MAAM,CAAC;QACP,MAAM,MAAM,GAAG;YACb,QAAQ,EAAE,KAAK,CAAC,QAAQ;YACxB,MAAM,EAAE,CAAC;oBACP,IAAI,EAAE,KAAK,CAAC,OAAO,EAAE,IAAI,EAAE,CAAC,EAAE,QAAQ,EAAE,OAAgB,EAAE,IAAI,EAAE,MAAM;oBACtE,OAAO,EAAE,kBAAkB;iBAC5B,CAAC;SACH,CAAC;QACF,2BAAU,CAAC,WAAW,CAAC,MAAM,CAAC,CAAC;IACjC,CAAC;AACH,CAAC"}

package/lib/lint-sbcl.lisp

@@ -1,14 +1,49 @@
 ;; @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>
+;; 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 ──────────────────────────────────
-;; File format: alist ((name use*) ...) — valid Lisp data
 (defun load-stub-packages (file-path)
   (flet ((ensure-pkg (name &optional use-list)
            (unless (find-package name)
@@ -52,11 +87,10 @@
         (let ((msg (princ-to-string e)))
           (cond
             ((search "not found" msg)
-             (format t "~%  [NOTE] ~a: ~a~%" rel
-                     (subseq msg 0 (min 80 (length msg))))
+             (format t "~%  [NOTE] ~a: ~a~%" rel (i18n :not-found))
              (incf *warnings*))
             (t
-             (format t "FAIL~%  [ERROR] ~a: ~a~%" rel e)
+             (format t "~a~%  [ERROR] ~a: ~a~%" (i18n :fail) rel (i18n :syntax-error))
              (incf *errors*)
              (return-from check-file))))))
     ;; Trailing whitespace
@@ -67,7 +101,7 @@
             when (and (> (length line) 0)
                       (find (char line (1- (length line))) '(#\Space #\Tab)))
               do (progn
-                   (format t "~%  [WARN] ~a line ~d: trailing whitespace~%" rel lineno)
+                   (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)
@@ -75,19 +109,19 @@
         (file-position s 0)
         (read-sequence content s)
         (when (search "#(" content)
-          (format t "~%  [WARN] ~a: #( vector syntax (not valid in AutoLISP)~%" rel)
+          (format t "~%  [WARN] ~a: ~a~%" rel (i18n :vec-syntax))
           (incf *warnings*))
         (when (search "#\\" content)
-          (format t "~%  [WARN] ~a: #\\ character literal syntax (not valid in AutoLISP)~%" rel)
+          (format t "~%  [WARN] ~a: ~a~%" rel (i18n :char-syntax))
           (incf *warnings*))
         (when (search "#." content)
-          (format t "~%  [WARN] ~a: #. read-time eval syntax (not valid in AutoLISP)~%" rel)
+          (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: defmacro (not valid in AutoLISP)~%" rel)
+          (format t "~%  [WARN] ~a: ~a~%" rel (i18n :defmacro))
           (incf *warnings*))))
-    (format t "OK~%")))
+    (format t "~a~%" (i18n :ok))))
 
 ;; ── Main ──────────────────────────────────────────────────────────────
 (defun main ()
@@ -99,25 +133,26 @@
                           '(".vscode" "test" "experiment" "tools" ".git")))
          (defmacro-allow (if (fourth args)
                             (read-from-string (fourth args))
-                            '("compat-cl"))))
-    ;; Load stub packages for CAD runtime symbols
+                            '("compat-cl")))
+         (locale (fifth args)))
+    (when locale (setf *locale* locale))
     (load-stub-packages stub-file)
 
     (format t "~%==================================================~%")
-    (format t "  @lisp SBCL Lint~%")
-    (format t "  Source: ~a~%" (namestring (pathname src-dir)))
+    (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 "  Found ~d .lsp files~%~%" (length files))
+      (format t "~a~%~%" (format nil (i18n :found) (length files)))
       (dolist (f files)
         (check-file f src-dir defmacro-allow)))
 
     (format t "~%==================================================~%")
-    (format t "  Scanned: ~d files~%" *checked*)
-    (format t "  Errors: ~d~%" *errors*)
-    (format t "  Warnings: ~d~%" *warnings*)
+    (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)

package/package.json

@@ -1,6 +1,6 @@
 {
   "name": "@atlisp/lint",
-  "version": "0.1.1",
+  "version": "0.1.3",
   "description": "AutoLISP static analysis tool — parens, security, conventions, SBCL syntax validation",
   "keywords": [
     "CAD",
@@ -25,14 +25,21 @@
   ],
   "scripts": {
     "build": "tsc && node -e \"const fs=require('fs'),p=require('path');fs.mkdirSync(p.join('dist','lib'),{recursive:true});fs.readdirSync('lib').forEach(f=>fs.copyFileSync(p.join('lib',f),p.join('dist','lib',f)));['atlisp-lint.default.json','stub-packages.json'].forEach(f=>fs.copyFileSync(f,p.join('dist',f)))\"",
+    "clean": "rm -rf dist",
     "test": "jest",
+    "test:coverage": "jest --coverage",
+    "test:watch": "jest --watch",
     "prepublishOnly": "npm run build",
     "prepack": "npm run build"
   },
   "devDependencies": {
     "@types/jest": "^29",
     "@types/node": "^18",
+    "@typescript-eslint/eslint-plugin": "^7",
+    "@typescript-eslint/parser": "^7",
+    "eslint": "^8",
     "jest": "^29",
+    "prettier": "^3",
     "ts-jest": "^29",
     "ts-node": "^10.9.2",
     "typescript": "^5"