@atlisp/lint 0.1.0

package/dist/utils.js

@@ -0,0 +1,104 @@
+"use strict";
+Object.defineProperty(exports, "__esModule", { value: true });
+exports.stripLine = stripLine;
+exports.stripLineRaw = stripLineRaw;
+exports.codeLines = codeLines;
+exports.extractStrings = extractStrings;
+/** Strip string contents and comments from a line of AutoLISP code */
+function stripLine(line) {
+    const out = [];
+    let inStr = false;
+    let i = 0;
+    while (i < line.length) {
+        const ch = line[i];
+        if (ch === ';' && !inStr)
+            break;
+        if (ch === '"') {
+            inStr = !inStr;
+            i++;
+            continue;
+        }
+        if (ch === '\\' && inStr) {
+            i += 2;
+            continue;
+        }
+        if (!inStr)
+            out.push(ch);
+        i++;
+    }
+    return out.join('');
+}
+function stripLineRaw(line) {
+    const out = [];
+    let inStr = false;
+    let i = 0;
+    while (i < line.length) {
+        const ch = line[i];
+        if (ch === ';' && !inStr)
+            break;
+        if (ch === '"') {
+            inStr = !inStr;
+            out.push(ch);
+            i++;
+            continue;
+        }
+        if (ch === '\\' && inStr) {
+            out.push(ch);
+            if (i + 1 < line.length) {
+                out.push(line[i + 1]);
+                i++;
+            }
+            i++;
+            continue;
+        }
+        out.push(ch);
+        i++;
+    }
+    return out.join('');
+}
+/** Iterate lines with string-aware content */
+function* codeLines(content) {
+    const lines = content.split('\n');
+    for (let i = 0; i < lines.length; i++) {
+        yield {
+            lineno: i + 1,
+            text: lines[i],
+            stripped: stripLine(lines[i]),
+        };
+    }
+}
+/** Extract string literals from a line */
+function extractStrings(line) {
+    const strings = [];
+    let inStr = false;
+    let buf = [];
+    let i = 0;
+    while (i < line.length) {
+        const ch = line[i];
+        if (ch === ';' && !inStr)
+            break;
+        if (ch === '"') {
+            if (inStr) {
+                strings.push(buf.join(''));
+                buf = [];
+            }
+            inStr = !inStr;
+            i++;
+            continue;
+        }
+        if (ch === '\\' && inStr) {
+            buf.push(ch);
+            if (i + 1 < line.length) {
+                buf.push(line[i + 1]);
+                i++;
+            }
+            i++;
+            continue;
+        }
+        if (inStr)
+            buf.push(ch);
+        i++;
+    }
+    return strings;
+}
+//# sourceMappingURL=utils.js.map

package/dist/utils.js.map

@@ -0,0 +1 @@
+{"version":3,"file":"utils.js","sourceRoot":"","sources":["../src/utils.ts"],"names":[],"mappings":";;AACA,8BAoBC;AAED,oCAuBC;AAGD,8BASC;AAGD,wCA2BC;AAxFD,sEAAsE;AACtE,SAAgB,SAAS,CAAC,IAAY;IACpC,MAAM,GAAG,GAAa,EAAE,CAAC;IACzB,IAAI,KAAK,GAAG,KAAK,CAAC;IAClB,IAAI,CAAC,GAAG,CAAC,CAAC;IACV,OAAO,CAAC,GAAG,IAAI,CAAC,MAAM,EAAE,CAAC;QACvB,MAAM,EAAE,GAAG,IAAI,CAAC,CAAC,CAAC,CAAC;QACnB,IAAI,EAAE,KAAK,GAAG,IAAI,CAAC,KAAK;YAAE,MAAM;QAChC,IAAI,EAAE,KAAK,GAAG,EAAE,CAAC;YACf,KAAK,GAAG,CAAC,KAAK,CAAC;YACf,CAAC,EAAE,CAAC;YACJ,SAAS;QACX,CAAC;QACD,IAAI,EAAE,KAAK,IAAI,IAAI,KAAK,EAAE,CAAC;YACzB,CAAC,IAAI,CAAC,CAAC;YACP,SAAS;QACX,CAAC;QACD,IAAI,CAAC,KAAK;YAAE,GAAG,CAAC,IAAI,CAAC,EAAE,CAAC,CAAC;QACzB,CAAC,EAAE,CAAC;IACN,CAAC;IACD,OAAO,GAAG,CAAC,IAAI,CAAC,EAAE,CAAC,CAAC;AACtB,CAAC;AAED,SAAgB,YAAY,CAAC,IAAY;IACvC,MAAM,GAAG,GAAa,EAAE,CAAC;IACzB,IAAI,KAAK,GAAG,KAAK,CAAC;IAClB,IAAI,CAAC,GAAG,CAAC,CAAC;IACV,OAAO,CAAC,GAAG,IAAI,CAAC,MAAM,EAAE,CAAC;QACvB,MAAM,EAAE,GAAG,IAAI,CAAC,CAAC,CAAC,CAAC;QACnB,IAAI,EAAE,KAAK,GAAG,IAAI,CAAC,KAAK;YAAE,MAAM;QAChC,IAAI,EAAE,KAAK,GAAG,EAAE,CAAC;YACf,KAAK,GAAG,CAAC,KAAK,CAAC;YACf,GAAG,CAAC,IAAI,CAAC,EAAE,CAAC,CAAC;YACb,CAAC,EAAE,CAAC;YACJ,SAAS;QACX,CAAC;QACD,IAAI,EAAE,KAAK,IAAI,IAAI,KAAK,EAAE,CAAC;YACzB,GAAG,CAAC,IAAI,CAAC,EAAE,CAAC,CAAC;YACb,IAAI,CAAC,GAAG,CAAC,GAAG,IAAI,CAAC,MAAM,EAAE,CAAC;gBAAC,GAAG,CAAC,IAAI,CAAC,IAAI,CAAC,CAAC,GAAG,CAAC,CAAC,CAAC,CAAC;gBAAC,CAAC,EAAE,CAAC;YAAC,CAAC;YACxD,CAAC,EAAE,CAAC;YACJ,SAAS;QACX,CAAC;QACD,GAAG,CAAC,IAAI,CAAC,EAAE,CAAC,CAAC;QACb,CAAC,EAAE,CAAC;IACN,CAAC;IACD,OAAO,GAAG,CAAC,IAAI,CAAC,EAAE,CAAC,CAAC;AACtB,CAAC;AAED,8CAA8C;AAC9C,QAAe,CAAC,CAAC,SAAS,CAAC,OAAe;IACxC,MAAM,KAAK,GAAG,OAAO,CAAC,KAAK,CAAC,IAAI,CAAC,CAAC;IAClC,KAAK,IAAI,CAAC,GAAG,CAAC,EAAE,CAAC,GAAG,KAAK,CAAC,MAAM,EAAE,CAAC,EAAE,EAAE,CAAC;QACtC,MAAM;YACJ,MAAM,EAAE,CAAC,GAAG,CAAC;YACb,IAAI,EAAE,KAAK,CAAC,CAAC,CAAC;YACd,QAAQ,EAAE,SAAS,CAAC,KAAK,CAAC,CAAC,CAAC,CAAC;SAC9B,CAAC;IACJ,CAAC;AACH,CAAC;AAED,0CAA0C;AAC1C,SAAgB,cAAc,CAAC,IAAY;IACzC,MAAM,OAAO,GAAa,EAAE,CAAC;IAC7B,IAAI,KAAK,GAAG,KAAK,CAAC;IAClB,IAAI,GAAG,GAAa,EAAE,CAAC;IACvB,IAAI,CAAC,GAAG,CAAC,CAAC;IACV,OAAO,CAAC,GAAG,IAAI,CAAC,MAAM,EAAE,CAAC;QACvB,MAAM,EAAE,GAAG,IAAI,CAAC,CAAC,CAAC,CAAC;QACnB,IAAI,EAAE,KAAK,GAAG,IAAI,CAAC,KAAK;YAAE,MAAM;QAChC,IAAI,EAAE,KAAK,GAAG,EAAE,CAAC;YACf,IAAI,KAAK,EAAE,CAAC;gBACV,OAAO,CAAC,IAAI,CAAC,GAAG,CAAC,IAAI,CAAC,EAAE,CAAC,CAAC,CAAC;gBAC3B,GAAG,GAAG,EAAE,CAAC;YACX,CAAC;YACD,KAAK,GAAG,CAAC,KAAK,CAAC;YACf,CAAC,EAAE,CAAC;YACJ,SAAS;QACX,CAAC;QACD,IAAI,EAAE,KAAK,IAAI,IAAI,KAAK,EAAE,CAAC;YACzB,GAAG,CAAC,IAAI,CAAC,EAAE,CAAC,CAAC;YACb,IAAI,CAAC,GAAG,CAAC,GAAG,IAAI,CAAC,MAAM,EAAE,CAAC;gBAAC,GAAG,CAAC,IAAI,CAAC,IAAI,CAAC,CAAC,GAAG,CAAC,CAAC,CAAC,CAAC;gBAAC,CAAC,EAAE,CAAC;YAAC,CAAC;YACxD,CAAC,EAAE,CAAC;YACJ,SAAS;QACX,CAAC;QACD,IAAI,KAAK;YAAE,GAAG,CAAC,IAAI,CAAC,EAAE,CAAC,CAAC;QACxB,CAAC,EAAE,CAAC;IACN,CAAC;IACD,OAAO,OAAO,CAAC;AACjB,CAAC"}

package/lib/lint-sbcl.lisp

@@ -0,0 +1,126 @@
+;; @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>
+
+(require :uiop)
+
+(defparameter *errors* 0)
+(defparameter *warnings* 0)
+(defparameter *checked* 0)
+
+;; ── 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)
+             (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
+                     (subseq msg 0 (min 80 (length msg))))
+             (incf *warnings*))
+            (t
+             (format t "FAIL~%  [ERROR] ~a: ~a~%" rel e)
+             (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: trailing whitespace~%" rel lineno)
+                   (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: #( vector syntax (not valid in AutoLISP)~%" rel)
+          (incf *warnings*))
+        (when (search "#\\" content)
+          (format t "~%  [WARN] ~a: #\\ character literal syntax (not valid in AutoLISP)~%" rel)
+          (incf *warnings*))
+        (when (search "#." content)
+          (format t "~%  [WARN] ~a: #. read-time eval syntax (not valid in AutoLISP)~%" rel)
+          (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)
+          (incf *warnings*))))
+    (format t "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"))))
+    ;; Load stub packages for CAD runtime symbols
+    (load-stub-packages stub-file)
+
+    (format t "~%==================================================~%")
+    (format t "  @lisp SBCL Lint~%")
+    (format t "  Source: ~a~%" (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))
+      (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 "==================================================~%~%")
+    (if (> *errors* 0)
+        (uiop:quit 1)
+        (uiop:quit 0))))
+
+(main)

package/package.json

@@ -0,0 +1,35 @@
+{
+  "name": "@atlisp/lint",
+  "version": "0.1.0",
+  "description": "AutoLISP static analysis tool — parens, security, conventions, SBCL syntax validation",
+  "keywords": ["CAD", "autolisp", "atlisp", "lint", "autocad", "zwcad", "gstarcad", "bricscad"],
+  "bin": {
+    "atlisp-lint": "./bin/atlisp-lint"
+  },
+  "files": [
+    "dist/",
+    "lib/",
+    "bin/",
+    "atlisp-lint.default.json",
+    "stub-packages.json",
+    "pre-commit/"
+  ],
+  "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)))\"",
+    "test": "jest",
+    "prepublishOnly": "npm run build",
+    "prepack": "npm run build"
+  },
+  "devDependencies": {
+    "@types/jest": "^29",
+    "@types/node": "^18",
+    "jest": "^29",
+    "ts-jest": "^29",
+    "ts-node": "^10.9.2",
+    "typescript": "^5"
+  },
+  "engines": {
+    "node": ">=18"
+  },
+  "license": "MIT"
+}

package/pre-commit/hook.sh

@@ -0,0 +1,4 @@
+#!/bin/sh
+# AutoLISP Lint pre-commit hook
+# Install via: atlisp-lint --install-hook
+npx @atlisp/lint --staged || exit 1

package/stub-packages.json

@@ -0,0 +1,41 @@
+((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 ()))