@atlisp/lint 0.1.26 → 0.1.28

package/atlisp-lint.default.json

@@ -15,7 +15,7 @@
     "vlax_without_loading": "warn",
     "token_in_url": "warn",
     "open_without_close": "warn",
-    "bare_function_names": "warn",
+    "bare_function_names": "off",
     "line_length": "warn",
     "function_complexity": "warn",
     "parameter_naming": "warn",
@@ -32,7 +32,7 @@
     "recursive_call": "warn",
     "variable_shadow": "warn",
     "unused_local_fun": "warn",
-    "multiple_setq": "warn",
+    "multiple_setq": "off",
     "redundant_quotes": "warn",
     "trailing_paren": "warn",
     "empty_comment": "warn",
@@ -81,8 +81,8 @@
     "type_check": "off",
     "redundant_if": "warn",
     "undeclared_setq": "warn",
-    "unused_catch_result": "warn",
-    "string_concat_loop": "warn",
+    "unused_catch_result": "off",
+    "string_concat_loop": "off",
     "if_without_else": "off",
     "redundant_list": "warn",
     "entget_in_loop": "warn",

package/dist/config.js

@@ -57,7 +57,7 @@ const DEFAULT_CONFIG = {
         vlax_without_loading: 'warn',
         token_in_url: 'warn',
         open_without_close: 'warn',
-        bare_function_names: 'warn',
+        bare_function_names: 'off',
         line_length: 'warn',
         function_complexity: 'warn',
         parameter_naming: 'warn',
@@ -75,7 +75,7 @@ const DEFAULT_CONFIG = {
         recursive_call: 'warn',
         variable_shadow: 'warn',
         unused_local_fun: 'warn',
-        multiple_setq: 'warn',
+        multiple_setq: 'off',
         redundant_quotes: 'warn',
         trailing_paren: 'warn',
         empty_comment: 'warn',
@@ -122,8 +122,8 @@ const DEFAULT_CONFIG = {
         type_check: 'off',
         format_indent: 'off',
         redundant_if: 'warn',
-        unused_catch_result: 'warn',
-        string_concat_loop: 'warn',
+        unused_catch_result: 'off',
+        string_concat_loop: 'off',
         if_without_else: 'off',
         redundant_list: 'warn',
         entget_in_loop: 'warn',

package/dist/presets.js

@@ -27,7 +27,7 @@ exports.PRESETS = {
             recursive_call: 'warn',
             variable_shadow: 'warn',
             unused_local_fun: 'warn',
-            multiple_setq: 'warn',
+            multiple_setq: 'off',
             redundant_quotes: 'warn',
             trailing_paren: 'warn',
             empty_comment: 'warn',
@@ -65,8 +65,8 @@ exports.PRESETS = {
             shadow_builtin: 'warn',
             dynamic_doc: 'warn',
             redundant_if: 'warn',
-            unused_catch_result: 'warn',
-            string_concat_loop: 'warn',
+            unused_catch_result: 'off',
+            string_concat_loop: 'off',
             if_without_else: 'off',
             redundant_list: 'warn',
             entget_in_loop: 'warn',
@@ -87,7 +87,7 @@ exports.PRESETS = {
             vlax_without_loading: 'error',
             token_in_url: 'error',
             open_without_close: 'error',
-            bare_function_names: 'error',
+            bare_function_names: 'off',
             line_length: 'error',
             function_complexity: 'error',
             parameter_naming: 'error',
@@ -102,7 +102,7 @@ exports.PRESETS = {
             recursive_call: 'error',
             variable_shadow: 'error',
             unused_local_fun: 'error',
-            multiple_setq: 'warn',
+            multiple_setq: 'off',
             redundant_quotes: 'error',
             trailing_paren: 'error',
             empty_comment: 'error',
@@ -152,7 +152,7 @@ exports.PRESETS = {
             module_registration: 'error',
             namespace_header: 'error',
             unused_catch_result: 'error',
-            string_concat_loop: 'warn',
+            string_concat_loop: 'off',
             if_without_else: 'off',
             redundant_list: 'error',
             entget_in_loop: 'warn',

package/dist/rules.js

@@ -120,7 +120,7 @@ exports.RULES = [
         description: '检测模块文件是否注册到 *modules*',
         category: '架构',
     },
-    { name: 'multiple_setq', defaultSeverity: 'warn', description: '检测多个连续 setq 可以合并', category: '风格' },
+    { name: 'multiple_setq', defaultSeverity: 'off', description: '检测多个连续 setq 可以合并', category: '风格' },
     {
         name: 'namespace_header',
         defaultSeverity: 'off',
@@ -228,8 +228,8 @@ exports.RULES = [
         description: '检测 vlax-* 使用前未调用 vl-load-com',
         category: '最佳实践',
     },
-    { name: 'unused_catch_result', defaultSeverity: 'warn', description: '检测 vl-catch-all-apply 结果被当布尔值用', category: '正确性' },
-    { name: 'string_concat_loop', defaultSeverity: 'warn', description: '检测循环内字符串拼接', category: '性能' },
+    { name: 'unused_catch_result', defaultSeverity: 'off', description: '检测 vl-catch-all-apply 结果被当布尔值用', category: '正确性' },
+    { name: 'string_concat_loop', defaultSeverity: 'off', description: '检测循环内字符串拼接', category: '性能' },
     { name: 'if_without_else', defaultSeverity: 'off', description: '检测 if 无 else 分支', category: '风格' },
     { name: 'redundant_list', defaultSeverity: 'warn', description: '检测 (list) 等价于 nil', category: '风格' },
     { name: 'entget_in_loop', defaultSeverity: 'warn', description: '检测循环内 entget', category: '性能' },

package/package.json

@@ -1,6 +1,6 @@
 {
   "name": "@atlisp/lint",
-  "version": "0.1.26",
+  "version": "0.1.28",
   "description": "AutoLISP static analysis tool — parens, security, conventions, SBCL syntax validation",
   "keywords": [
     "CAD",

package/dist/atlisp-lint.default.json

@@ -1,90 +0,0 @@
-{
-  "locale": "zh",
-  "source": {
-    "globs": ["**/*.lsp"],
-    "exclude": ["**/node_modules/**", "**/vendor/**", "**/.git/**"]
-  },
-  "checks": {
-    "parens": "error",
-    "encoding": "warn",
-    "cl_syntax": "warn",
-    "quit_exit": "error",
-    "command_shell": "error",
-    "startapp": "warn",
-    "vl_registry_write": "warn",
-    "vlax_without_loading": "off",
-    "token_in_url": "warn",
-    "open_without_close": "warn",
-    "bare_function_names": "off",
-    "line_length": "warn",
-    "function_complexity": "warn",
-    "parameter_naming": "warn",
-    "unused_variable": "warn",
-    "missing_doc": "warn",
-    "error_handling": "warn",
-    "global_naming": "warn",
-    "extra_parens": "warn",
-    "arg_count": "warn",
-    "strcat_usage": "warn",
-    "cond_simplify": "warn",
-    "redundant_progn": "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",
-    "function_order": "off",
-    "magic_number": "off",
-    "mixed_indent": "warn",
-    "long_function_call": "warn",
-    "no_return": "warn",
-    "shadow_builtin": "warn",
-    "dynamic_doc": "warn",
-    "loop_optimization": "off",
-    "type_check": "off",
-    "redundant_if": "warn",
-    "trailing_whitespace": "warn",
-    "module_registration": "off",
-    "namespace_header": "off"
-  },
-  "line_length": {
-    "max": 100,
-    "tab_width": 2
-  },
-  "function_complexity": {
-    "max_lines": 60,
-    "max_nesting": 6
-  },
-  "cl_syntax": {
-    "keywords": ["&key"]
-  },
-  "dangerous_calls": {
-    "quit": "error",
-    "exit": "error",
-    "command_shell": "error",
-    "startapp": "warn",
-    "vl_registry_write": "warn"
-  },
-  "module_registration": {
-    "severity": "off",
-    "patterns": [],
-    "dirs": ["modules"]
-  },
-  "namespace_header": {
-    "severity": "off",
-    "package": "",
-    "deps": [],
-    "search_lines": 15
-  },
-  "bare_function_names": {
-    "allowlist": ["T", "nil"],
-    "namespace_pattern": "^[a-z]+:"
-  },
-  "sbcl": {
-    "walk_exclude": [".vscode", "vendor", ".git"],
-    "defmacro_allow_files": ["compat-cl"]
-  }
-}

package/dist/lib/lint-sbcl.lisp

@@ -1,161 +0,0 @@
-;; @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/stub-packages.json

@@ -1,41 +0,0 @@
-((AUTOLISP ())
- (@ (COMMON-LISP AUTOLISP))
- (C ())
- (JSON ())
- (SIDEBAR ())
- (FUN ())
- (DCL ())
- (BASE ())
- (STRING ())
- (BLOCK ())
- (ENTITY ())
- (LAYER ())
- (LAYOUT ())
- (CURVE ())
- (LIST ())
- (M ())
- (P ())
- (UI ())
- (SYS ())
- (EXCEL ())
- (WORD ())
- (RE ())
- (VECTRA ())
- (DOS ())
- (AT-PM ())
- (QRENCODE ())
- (NETWORK ())
- (PKGMAN ())
- (DATETIME ())
- (DICT ())
- (@NLP ())
- (AT-SIDEBAR ())
- (S ())
- (VL ())
- (VLR ())
- (VLAX ())
- (THEME ())
- (AJAX ())
- (ATLISP ())
- (LOG ())
- (ATLISP-CORE ()))