@atlisp/lint 0.1.24 → 0.1.25

package/atlisp-lint.default.json

@@ -57,7 +57,8 @@
     "error_handling": "warn",
     "global_naming": "warn",
     "extra_parens": "warn",
-    "arg_count": "warn",
+    "arg_count": "error",
+    "builtin_arg_count": "error",
     "strcat_usage": "warn",
     "cond_simplify": "warn",
     "quote_style": "warn",

package/dist/checks/builtin-arg-count.d.ts

@@ -0,0 +1,3 @@
+import { Issue } from '../types';
+export declare function checkBuiltinArgCount(content: string, file: string): Issue[];
+//# sourceMappingURL=builtin-arg-count.d.ts.map

package/dist/checks/builtin-arg-count.js

@@ -0,0 +1,282 @@
+"use strict";
+Object.defineProperty(exports, "__esModule", { value: true });
+exports.checkBuiltinArgCount = checkBuiltinArgCount;
+const locale_1 = require("../locale");
+const parser_1 = require("@atlisp/parser");
+const BUILTIN_ARITY = {
+    // === Special forms & control flow ===
+    if: { min: 2, max: 3 },
+    progn: { min: 0, max: -1 },
+    cond: { min: 0, max: -1 },
+    while: { min: 1, max: -1 },
+    repeat: { min: 1, max: -1 },
+    foreach: { min: 2, max: -1 },
+    'vlax-for': { min: 2, max: -1 },
+    setq: { min: 2, max: -1 },
+    set: { min: 2, max: 2 },
+    lambda: { min: 1, max: -1 },
+    defun: { min: 3, max: -1 },
+    'defun-q': { min: 3, max: -1 },
+    and: { min: 0, max: -1 },
+    or: { min: 0, max: -1 },
+    not: { min: 1, max: 1 },
+    null: { min: 1, max: 1 },
+    quote: { min: 1, max: 1 },
+    function: { min: 1, max: 1 },
+    eval: { min: 1, max: 1 },
+    apply: { min: 2, max: -1 },
+    mapcar: { min: 2, max: -1 },
+    // === Predicates ===
+    atom: { min: 1, max: 1 },
+    boundp: { min: 1, max: 1 },
+    type: { min: 1, max: 1 },
+    numberp: { min: 1, max: 1 },
+    zerop: { min: 1, max: 1 },
+    minusp: { min: 1, max: 1 },
+    plusp: { min: 1, max: 1 },
+    eq: { min: 2, max: 2 },
+    equal: { min: 2, max: 2 },
+    '=': { min: 2, max: -1 },
+    '/=': { min: 2, max: -1 },
+    '<': { min: 2, max: -1 },
+    '<=': { min: 2, max: -1 },
+    '>': { min: 2, max: -1 },
+    '>=': { min: 2, max: -1 },
+    wcmatch: { min: 2, max: 2 },
+    member: { min: 2, max: 2 },
+    assoc: { min: 2, max: 3 },
+    // === List/cons operations ===
+    car: { min: 1, max: 1 },
+    cdr: { min: 1, max: 1 },
+    caar: { min: 1, max: 1 },
+    cadr: { min: 1, max: 1 },
+    cdar: { min: 1, max: 1 },
+    cddr: { min: 1, max: 1 },
+    caaar: { min: 1, max: 1 },
+    caadr: { min: 1, max: 1 },
+    cadar: { min: 1, max: 1 },
+    caddr: { min: 1, max: 1 },
+    cdaar: { min: 1, max: 1 },
+    cdadr: { min: 1, max: 1 },
+    cddar: { min: 1, max: 1 },
+    cdddr: { min: 1, max: 1 },
+    cons: { min: 2, max: 2 },
+    list: { min: 0, max: -1 },
+    append: { min: 0, max: -1 },
+    reverse: { min: 1, max: 1 },
+    length: { min: 1, max: 1 },
+    subst: { min: 3, max: 3 },
+    'vl-remove': { min: 2, max: 2 },
+    // === Arithmetic ===
+    '+': { min: 0, max: -1 },
+    '-': { min: 1, max: -1 },
+    '*': { min: 0, max: -1 },
+    '/': { min: 1, max: -1 },
+    '1+': { min: 1, max: 1 },
+    '1-': { min: 1, max: 1 },
+    abs: { min: 1, max: 1 },
+    fix: { min: 1, max: 1 },
+    float: { min: 1, max: 1 },
+    max: { min: 1, max: -1 },
+    min: { min: 1, max: -1 },
+    gcd: { min: 2, max: 2 },
+    rem: { min: 2, max: 2 },
+    logand: { min: 0, max: -1 },
+    logior: { min: 0, max: -1 },
+    logxor: { min: 0, max: -1 },
+    lsh: { min: 2, max: 2 },
+    boole: { min: 3, max: 3 },
+    exp: { min: 1, max: 1 },
+    expt: { min: 2, max: 2 },
+    log: { min: 1, max: 2 },
+    sqrt: { min: 1, max: 1 },
+    sin: { min: 1, max: 1 },
+    cos: { min: 1, max: 1 },
+    tan: { min: 1, max: 1 },
+    atan: { min: 1, max: 2 },
+    atof: { min: 1, max: 1 },
+    atoi: { min: 1, max: 1 },
+    itoa: { min: 1, max: 1 },
+    rtos: { min: 1, max: 3 },
+    distof: { min: 2, max: 2 },
+    cvunit: { min: 2, max: 2 },
+    // === String ===
+    strcat: { min: 0, max: -1 },
+    strlen: { min: 1, max: 1 },
+    substr: { min: 2, max: 3 },
+    strcase: { min: 1, max: 2 },
+    'vl-string->list': { min: 1, max: 1 },
+    'vl-string-search': { min: 2, max: 3 },
+    'vl-string-subst': { min: 3, max: 4 },
+    // === File I/O ===
+    open: { min: 2, max: 3 },
+    close: { min: 1, max: 1 },
+    'read-line': { min: 0, max: 1 },
+    'read-char': { min: 0, max: 1 },
+    'write-line': { min: 1, max: 2 },
+    'write-char': { min: 1, max: 2 },
+    'read': { min: 0, max: 1 },
+    princ: { min: 0, max: 2 },
+    prin1: { min: 0, max: 2 },
+    print: { min: 0, max: 2 },
+    terpri: { min: 0, max: 0 },
+    prompt: { min: 1, max: 1 },
+    getstring: { min: 0, max: 2 },
+    getint: { min: 0, max: 2 },
+    getreal: { min: 0, max: 2 },
+    getpoint: { min: 0, max: 3 },
+    getcorner: { min: 1, max: 3 },
+    getdist: { min: 0, max: 3 },
+    getangle: { min: 0, max: 3 },
+    getorient: { min: 0, max: 3 },
+    getkword: { min: 0, max: 2 },
+    initget: { min: 1, max: 2 },
+    'load': { min: 1, max: 2 },
+    autoload: { min: 2, max: 2 },
+    // === System ===
+    getvar: { min: 1, max: 1 },
+    setvar: { min: 2, max: 2 },
+    command: { min: 0, max: -1 },
+    'vl-cmdf': { min: 0, max: -1 },
+    gc: { min: 0, max: 0 },
+    ver: { min: 0, max: 0 },
+    exit: { min: 0, max: 0 },
+    quit: { min: 0, max: 0 },
+    findfile: { min: 1, max: 1 },
+    getfiled: { min: 3, max: 4 },
+    // === Entity/selection ===
+    entget: { min: 1, max: 2 },
+    entmod: { min: 1, max: 1 },
+    entmake: { min: 0, max: 1 },
+    entmakex: { min: 0, max: 1 },
+    entdel: { min: 1, max: 1 },
+    entsel: { min: 0, max: 2 },
+    nentsel: { min: 0, max: 2 },
+    entlast: { min: 0, max: 0 },
+    entnext: { min: 0, max: 1 },
+    handent: { min: 1, max: 1 },
+    entupd: { min: 1, max: 1 },
+    'ssget': { min: 0, max: -1 },
+    ssadd: { min: 0, max: 2 },
+    ssdel: { min: 2, max: 2 },
+    sslength: { min: 1, max: 1 },
+    ssname: { min: 2, max: 2 },
+    ssnamex: { min: 1, max: 2 },
+    sssetfirst: { min: 1, max: 2 },
+    // === Geometry ===
+    polar: { min: 3, max: 3 },
+    angle: { min: 2, max: 2 },
+    distance: { min: 2, max: 2 },
+    inters: { min: 4, max: 5 },
+    textbox: { min: 1, max: 1 },
+    trans: { min: 3, max: 4 },
+    // === Table/dictionary ===
+    tblobjname: { min: 2, max: 2 },
+    tblnext: { min: 2, max: 2 },
+    tblsearch: { min: 2, max: 3 },
+    acad_colordlg: { min: 1, max: 3 },
+    // === ActiveX ===
+    'vlax-invoke-method': { min: 2, max: -1 },
+    'vlax-get-property': { min: 2, max: 2 },
+    'vlax-put-property': { min: 3, max: 3 },
+    'vlax-get-or-create-object': { min: 1, max: 2 },
+    'vlax-create-object': { min: 1, max: 1 },
+    'vlax-get-object': { min: 1, max: 1 },
+    'vlax-release-object': { min: 1, max: 1 },
+    'vlax-safearray->list': { min: 1, max: 1 },
+    'vlax-safearray-fill': { min: 2, max: 2 },
+    'vlax-safearray-put-element': { min: 2, max: -1 },
+    'vlax-safearray-get-dim': { min: 1, max: 1 },
+    'vlax-safearray-get-element': { min: 2, max: -1 },
+    'vlax-make-safearray': { min: 2, max: 3 },
+    'vlax-ename->vla-object': { min: 1, max: 1 },
+    'vlax-vla-object->ename': { min: 1, max: 1 },
+    'vlax-tmatrix': { min: 1, max: 1 },
+    'vlax-curve-getarea': { min: 1, max: 1 },
+    'vlax-curve-getdistatparam': { min: 2, max: 2 },
+    'vlax-curve-getdistatpoint': { min: 2, max: 2 },
+    'vlax-curve-getendparam': { min: 1, max: 1 },
+    'vlax-curve-getendpoint': { min: 1, max: 1 },
+    'vlax-curve-getparamatdist': { min: 2, max: 2 },
+    'vlax-curve-getparamatpoint': { min: 2, max: 2 },
+    'vlax-curve-getpointatdist': { min: 2, max: 2 },
+    'vlax-curve-getpointatparam': { min: 2, max: 2 },
+    'vlax-curve-getstartparam': { min: 1, max: 1 },
+    'vlax-curve-getstartpoint': { min: 1, max: 1 },
+    'vlax-curve-isclosed': { min: 1, max: 1 },
+    'vlax-curve-getclosestpointto': { min: 2, max: 3 },
+    'vl-catch-all-apply': { min: 1, max: -1 },
+    'vl-catch-all-error-message': { min: 1, max: 1 },
+    'vlax-read-enabled-p': { min: 1, max: 1 },
+    'vlax-write-enabled-p': { min: 1, max: 1 },
+    'vlax-erased-p': { min: 1, max: 1 },
+    'vlax-object-released-p': { min: 1, max: 1 },
+    'vlax-ldata-get': { min: 2, max: 3 },
+    'vlax-ldata-put': { min: 3, max: 3 },
+    'vlax-ldata-delete': { min: 2, max: 3 },
+    'vlax-ldata-list': { min: 1, max: 2 },
+    'vlax-dump-object': { min: 1, max: 2 },
+    'vl-propagate': { min: 1, max: 1 },
+    'vl-exit-with-error': { min: 1, max: 1 },
+    'vl-exit-with-value': { min: 1, max: 1 },
+    'vl-position': { min: 2, max: 2 },
+    // === Symbol/function management ===
+    'atoms-family': { min: 1, max: 2 },
+    'vl-acad-defun': { min: 1, max: 1 },
+    'vl-acad-undefun': { min: 1, max: 1 },
+    'vl-symbol-name': { min: 1, max: 1 },
+    'vl-symbol-value': { min: 1, max: 1 },
+    'vl-bb-ref': { min: 1, max: 1 },
+    'vl-bb-set': { min: 2, max: 2 },
+    // === DOSLib / common plugins ===
+    dos_gettext: { min: 0, max: -1 },
+    // === Misc ===
+    trace: { min: 1, max: 1 },
+    untrace: { min: 1, max: 1 },
+};
+function checkBuiltinArgCount(content, file) {
+    const issues = [];
+    const ast = (0, parser_1.parseAst)(content, { errorRecovery: true });
+    for (const node of (0, parser_1.astChildren)(ast)) {
+        checkNode(node, content, file, issues);
+    }
+    return issues;
+}
+function checkNode(node, content, file, issues) {
+    if (node.type !== 'list' || !node.children || node.children.length < 1)
+        return;
+    const head = node.children[0];
+    if (head.type !== 'symbol' || !head.name) {
+        for (const child of node.children) {
+            checkNode(child, content, file, issues);
+        }
+        return;
+    }
+    const funcName = head.name.toLowerCase();
+    const arity = BUILTIN_ARITY[funcName];
+    if (arity) {
+        const argCount = node.children.length - 1;
+        if (argCount < arity.min) {
+            issues.push({
+                file,
+                line: head.pos.line,
+                severity: 'warn',
+                rule: 'builtin_arg_count',
+                message: (0, locale_1.t)('builtin_arg_count.too_few', funcName, argCount, arity.min),
+            });
+        }
+        else if (arity.max !== -1 && argCount > arity.max) {
+            issues.push({
+                file,
+                line: head.pos.line,
+                severity: 'warn',
+                rule: 'builtin_arg_count',
+                message: (0, locale_1.t)('builtin_arg_count.too_many', funcName, argCount, arity.max),
+            });
+        }
+    }
+    for (const child of node.children) {
+        checkNode(child, content, file, issues);
+    }
+}
+//# sourceMappingURL=builtin-arg-count.js.map

package/dist/locale.js

@@ -19,6 +19,8 @@ const messages = {
         token_in_url: 'Possible token exposure in string: token= in URL',
         open_without_close: 'File has {0} open() calls but {1} close() calls (possible resource leak)',
         arg_count: "Function '{0}' called with {1} arguments but defined with {2}",
+        'builtin_arg_count.too_few': "Built-in function '{0}' called with {1} arguments, expected at least {2}",
+        'builtin_arg_count.too_many': "Built-in function '{0}' called with {1} arguments, expected at most {2}",
         bare_function_names: "Unnamespaced function '{0}' (missing @:: or C: prefix)",
         module_registration: 'Module file missing @::*modules* registration (expected in last lines)',
         'namespace_header.missing': 'Missing (in-package {0}) header',

package/dist/rules.js

@@ -11,7 +11,7 @@ exports.RULES = [
     },
     {
         name: 'arg_count',
-        defaultSeverity: 'warn',
+        defaultSeverity: 'error',
         description: '检查函数调用参数数量是否与定义匹配',
         category: '最佳实践',
     },
@@ -236,6 +236,7 @@ exports.RULES = [
     { name: 'promise_handler', defaultSeverity: 'warn', description: '检测 vlax-invoke 缺少回调处理器', category: '最佳实践' },
     { name: 'module_cycle', defaultSeverity: 'warn', description: '检测模块循环依赖', category: '架构' },
     { name: 'arg_count_project', defaultSeverity: 'warn', description: '跨文件检查函数参数数量', category: '正确性' },
+    { name: 'builtin_arg_count', defaultSeverity: 'error', description: '检查 AutoLISP 内置函数调用参数个数是否匹配', category: '正确性' },
 ];
 function generateRulesMarkdown() {
     const lines = [

package/dist/runner.js

@@ -59,6 +59,7 @@ const error_handling_1 = require("./checks/error-handling");
 const global_naming_1 = require("./checks/global-naming");
 const extra_parens_1 = require("./checks/extra-parens");
 const arg_count_1 = require("./checks/arg-count");
+const builtin_arg_count_1 = require("./checks/builtin-arg-count");
 const strcat_usage_1 = require("./checks/strcat-usage");
 const cond_simplify_1 = require("./checks/cond-simplify");
 const quote_style_1 = require("./checks/quote-style");
@@ -137,6 +138,7 @@ function runChecks(content, file, config) {
     addIfEnabled('global_naming', () => (0, global_naming_1.checkGlobalNaming)(content, file));
     addIfEnabled('extra_parens', () => (0, extra_parens_1.checkExtraParens)(content, file));
     addIfEnabled('arg_count', () => (0, arg_count_1.checkArgCount)(content, file));
+    addIfEnabled('builtin_arg_count', () => (0, builtin_arg_count_1.checkBuiltinArgCount)(content, file));
     addIfEnabled('strcat_usage', () => (0, strcat_usage_1.checkStrcatUsage)(content, file));
     addIfEnabled('cond_simplify', () => (0, cond_simplify_1.checkCondSimplify)(content, file));
     addIfEnabled('quote_style', () => (0, quote_style_1.checkQuoteStyle)(content, file));

package/package.json

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