@atlisp/lint 0.1.0 → 0.1.2

package/dist/worker.js

@@ -0,0 +1,72 @@
+"use strict";
+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;
+}
+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 output = { filepath: input.filepath, issues };
+        worker_threads_1.parentPort.postMessage(output);
+    }
+    catch {
+        const output = {
+            filepath: input.filepath,
+            issues: [{
+                    file: input.relPath, line: 1, severity: 'error', rule: 'read',
+                    message: 'Cannot read file',
+                }],
+        };
+        worker_threads_1.parentPort.postMessage(output);
+    }
+}
+//# sourceMappingURL=worker.js.map

package/dist/worker.js.map

@@ -0,0 +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"}

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,8 +1,17 @@
 {
   "name": "@atlisp/lint",
-  "version": "0.1.0",
+  "version": "0.1.2",
   "description": "AutoLISP static analysis tool — parens, security, conventions, SBCL syntax validation",
-  "keywords": ["CAD", "autolisp", "atlisp", "lint", "autocad", "zwcad", "gstarcad", "bricscad"],
+  "keywords": [
+    "CAD",
+    "autolisp",
+    "atlisp",
+    "lint",
+    "autocad",
+    "zwcad",
+    "gstarcad",
+    "bricscad"
+  ],
   "bin": {
     "atlisp-lint": "./bin/atlisp-lint"
   },