@atlisp/lint 0.1.9 → 0.1.11

package/atlisp-lint.default.json

@@ -9,7 +9,7 @@
     "encoding": "error",
     "cl_syntax": "warn",
     "quit_exit": "error",
-    "command_shell": "error",
+    "command_shell": "warn",
     "startapp": "warn",
     "vl_registry_write": "warn",
     "vlax_without_loading": "warn",
@@ -95,7 +95,7 @@
   "dangerous_calls": {
     "quit": "error",
     "exit": "error",
-    "command_shell": "error",
+    "command_shell": "warn",
     "startapp": "warn",
     "vl_registry_write": "warn"
   },

package/dist/checks/missing-doc.js

@@ -18,17 +18,7 @@ function checkMissingDoc(content, file) {
             continue;
         if (name === 'T' || name === 'nil')
             continue;
-        // Check if previous non-empty line is a comment (use raw line, not stripped)
-        let hasDoc = false;
-        for (let j = i - 1; j >= 0; j--) {
-            const prev = lines[j].trim();
-            if (!prev)
-                continue;
-            if (prev.startsWith(';'))
-                hasDoc = true;
-            break;
-        }
-        if (!hasDoc) {
+        if (!hasDocString(lines, i)) {
             issues.push({
                 file,
                 line: i + 1,
@@ -40,4 +30,65 @@ function checkMissingDoc(content, file) {
     }
     return issues;
 }
+function hasDocString(lines, defunLine) {
+    let depth = 0;
+    let inArgs = false;
+    let argsDone = false;
+    let inStr = false;
+    let foundExpr = false;
+    for (let i = defunLine; i < lines.length; i++) {
+        const line = lines[i];
+        for (let j = 0; j < line.length; j++) {
+            const ch = line[j];
+            if (ch === ';' && !inStr)
+                break;
+            if (inStr) {
+                if (ch === '\\') {
+                    j++;
+                    continue;
+                }
+                if (ch === '"') {
+                    inStr = false;
+                    if (argsDone && !foundExpr) {
+                        return true;
+                    }
+                }
+                continue;
+            }
+            if (ch === '"') {
+                inStr = true;
+                continue;
+            }
+            if (ch === '(') {
+                depth++;
+                if (!inArgs && depth === 2)
+                    inArgs = true;
+                if (argsDone && !foundExpr) {
+                    foundExpr = true;
+                }
+                continue;
+            }
+            if (ch === ')') {
+                const wasClosingArgList = inArgs && depth === 2;
+                if (wasClosingArgList) {
+                    inArgs = false;
+                    argsDone = true;
+                }
+                depth--;
+                if (depth === 0)
+                    return false;
+                if (argsDone && !foundExpr && !wasClosingArgList) {
+                    foundExpr = true;
+                }
+                continue;
+            }
+            if (!ch.match(/\s/) && argsDone && !foundExpr) {
+                foundExpr = true;
+            }
+        }
+        if (depth === 0)
+            break;
+    }
+    return false;
+}
 //# sourceMappingURL=missing-doc.js.map

package/dist/config.js

@@ -51,7 +51,7 @@ const DEFAULT_CONFIG = {
         encoding: 'error',
         cl_syntax: 'warn',
         quit_exit: 'error',
-        command_shell: 'error',
+        command_shell: 'warn',
         startapp: 'warn',
         vl_registry_write: 'warn',
         vlax_without_loading: 'warn',
@@ -137,7 +137,7 @@ const DEFAULT_CONFIG = {
     dangerous_calls: {
         quit: 'error',
         exit: 'error',
-        command_shell: 'error',
+        command_shell: 'warn',
         startapp: 'warn',
         vl_registry_write: 'warn',
     },

package/dist/index.js

@@ -164,10 +164,11 @@ function* walkFiles(dir, rootDir, regex) {
 function globFiles(pattern, rootDir) {
     const regexStr = pattern
         .replace(/\./g, '\\.')
-        .replace(/\*\*\//g, '(.*/)?')
+        .replace(/\*\*\//g, '\x00GLOB\x00')
         .replace(/\*\*/g, '.*')
         .replace(/\*/g, '[^/]*')
-        .replace(/\?/g, '.');
+        .replace(/\?/g, '.')
+        .replace(/\x00GLOB\x00/g, '(.*/)?');
     const regex = new RegExp(`^${regexStr}$`);
     return Array.from(walkFiles(rootDir, rootDir, regex));
 }
@@ -195,7 +196,11 @@ function collectFiles(rootDir, opts, config) {
         }
     }
     const excludePatterns = config.source.exclude.map(e => {
-        const str = e.replace(/\./g, '\\.').replace(/\*\*/g, '.*').replace(/\*/g, '[^/]*');
+        const str = e
+            .replace(/\./g, '\\.')
+            .replace(/\*\*/g, '\x00STAR\x00')
+            .replace(/\*/g, '[^/]*')
+            .replace(/\x00STAR\x00/g, '.*');
         return new RegExp(`^${str}$`);
     });
     return Array.from(files)

package/dist/presets.js

@@ -8,7 +8,7 @@ exports.PRESETS = {
             encoding: 'error',
             cl_syntax: 'warn',
             quit_exit: 'error',
-            command_shell: 'error',
+            command_shell: 'warn',
             startapp: 'warn',
             vl_registry_write: 'warn',
             token_in_url: 'warn',
@@ -74,7 +74,7 @@ exports.PRESETS = {
             encoding: 'error',
             cl_syntax: 'error',
             quit_exit: 'error',
-            command_shell: 'error',
+            command_shell: 'warn',
             startapp: 'error',
             vl_registry_write: 'error',
             vlax_without_loading: 'error',
@@ -152,7 +152,7 @@ exports.PRESETS = {
             parens: 'error',
             encoding: 'error',
             quit_exit: 'error',
-            command_shell: 'error',
+            command_shell: 'warn',
         },
     },
 };

package/package.json

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