d365fo-mcp 1.0.0

package/dist/utils/xppFormat.js

@@ -0,0 +1,102 @@
+/**
+ * X++ method-source re-indentation.
+ *
+ * Re-derives indentation from brace depth alone, discarding whatever leading
+ * whitespace the input had, so output is consistent regardless of how the
+ * caller indented a method body.
+ *
+ * Microsoft convention (verified against shipped platform code, e.g.
+ * ApplicationFoundation/AxClass/AVActionCompletedEventData.xml): the doc
+ * comment + signature line sit at one indent level (4 spaces) — the matching
+ * `{`/`}` sit at that same level, and nested content goes one level deeper
+ * per brace.
+ */
+const INDENT_UNIT = '    ';
+/** Net open/close bracket delta for one line, ignoring string literals and comments. */
+function braceDelta(line) {
+    let delta = 0;
+    let leadingCloses = 0;
+    let sawNonCloseNonSpace = false;
+    let inString = false;
+    let inLineComment = false;
+    let inBlockComment = false;
+    for (let i = 0; i < line.length; i++) {
+        const c = line[i];
+        const next = line[i + 1];
+        if (inLineComment)
+            break;
+        if (inBlockComment) {
+            if (c === '*' && next === '/') {
+                inBlockComment = false;
+                i++;
+            }
+            continue;
+        }
+        if (inString) {
+            if (c === "'" && next === "'") {
+                i++;
+                continue;
+            } // escaped '' inside a string
+            if (c === "'")
+                inString = false;
+            continue;
+        }
+        if (c === "'") {
+            inString = true;
+            continue;
+        }
+        if (c === '/' && next === '/') {
+            inLineComment = true;
+            break;
+        }
+        if (c === '/' && next === '*') {
+            inBlockComment = true;
+            i++;
+            continue;
+        }
+        if (c === '{') {
+            delta++;
+            sawNonCloseNonSpace = true;
+        }
+        else if (c === '}') {
+            delta--;
+            if (!sawNonCloseNonSpace)
+                leadingCloses++;
+        }
+        else if (c !== ' ' && c !== '\t') {
+            sawNonCloseNonSpace = true;
+        }
+    }
+    return { delta, leadingCloses };
+}
+/**
+ * Re-indent an X++ method source block (doc comment + signature + body) to
+ * the D365FO convention. `baseDepth` is the indent level (in 4-space units)
+ * of the signature line itself — 1 for a method embedded in a class/table
+ * <Source> element (the standard case), matching real shipped code.
+ */
+export function reindentXppSource(source, baseDepth = 1) {
+    const lines = source.replace(/\r\n/g, '\n').split('\n');
+    // Trim leading/trailing all-blank lines; preserve blank lines in the middle.
+    while (lines.length && lines[0].trim() === '')
+        lines.shift();
+    while (lines.length && lines[lines.length - 1].trim() === '')
+        lines.pop();
+    if (lines.length === 0)
+        return '';
+    let depth = baseDepth;
+    const out = [];
+    for (const raw of lines) {
+        const trimmed = raw.trim();
+        if (trimmed === '') {
+            out.push('');
+            continue;
+        }
+        const { delta, leadingCloses } = braceDelta(trimmed);
+        const thisLineDepth = Math.max(depth - leadingCloses, 0);
+        out.push(INDENT_UNIT.repeat(thisLineDepth) + trimmed);
+        depth = Math.max(depth + delta, 0);
+    }
+    return out.join('\n');
+}
+//# sourceMappingURL=xppFormat.js.map

package/dist/utils/xppFormat.js.map

@@ -0,0 +1 @@
+{"version":3,"file":"xppFormat.js","sourceRoot":"","sources":["../../src/utils/xppFormat.ts"],"names":[],"mappings":"AAAA;;;;;;;;;;;;GAYG;AAEH,MAAM,WAAW,GAAG,MAAM,CAAC;AAE3B,wFAAwF;AACxF,SAAS,UAAU,CAAC,IAAY;IAC9B,IAAI,KAAK,GAAG,CAAC,CAAC;IACd,IAAI,aAAa,GAAG,CAAC,CAAC;IACtB,IAAI,mBAAmB,GAAG,KAAK,CAAC;IAChC,IAAI,QAAQ,GAAG,KAAK,CAAC;IACrB,IAAI,aAAa,GAAG,KAAK,CAAC;IAC1B,IAAI,cAAc,GAAG,KAAK,CAAC;IAE3B,KAAK,IAAI,CAAC,GAAG,CAAC,EAAE,CAAC,GAAG,IAAI,CAAC,MAAM,EAAE,CAAC,EAAE,EAAE,CAAC;QACrC,MAAM,CAAC,GAAG,IAAI,CAAC,CAAC,CAAC,CAAC;QAClB,MAAM,IAAI,GAAG,IAAI,CAAC,CAAC,GAAG,CAAC,CAAC,CAAC;QAEzB,IAAI,aAAa;YAAE,MAAM;QACzB,IAAI,cAAc,EAAE,CAAC;YACnB,IAAI,CAAC,KAAK,GAAG,IAAI,IAAI,KAAK,GAAG,EAAE,CAAC;gBAAC,cAAc,GAAG,KAAK,CAAC;gBAAC,CAAC,EAAE,CAAC;YAAC,CAAC;YAC/D,SAAS;QACX,CAAC;QACD,IAAI,QAAQ,EAAE,CAAC;YACb,IAAI,CAAC,KAAK,GAAG,IAAI,IAAI,KAAK,GAAG,EAAE,CAAC;gBAAC,CAAC,EAAE,CAAC;gBAAC,SAAS;YAAC,CAAC,CAAC,6BAA6B;YAC/E,IAAI,CAAC,KAAK,GAAG;gBAAE,QAAQ,GAAG,KAAK,CAAC;YAChC,SAAS;QACX,CAAC;QACD,IAAI,CAAC,KAAK,GAAG,EAAE,CAAC;YAAC,QAAQ,GAAG,IAAI,CAAC;YAAC,SAAS;QAAC,CAAC;QAC7C,IAAI,CAAC,KAAK,GAAG,IAAI,IAAI,KAAK,GAAG,EAAE,CAAC;YAAC,aAAa,GAAG,IAAI,CAAC;YAAC,MAAM;QAAC,CAAC;QAC/D,IAAI,CAAC,KAAK,GAAG,IAAI,IAAI,KAAK,GAAG,EAAE,CAAC;YAAC,cAAc,GAAG,IAAI,CAAC;YAAC,CAAC,EAAE,CAAC;YAAC,SAAS;QAAC,CAAC;QAExE,IAAI,CAAC,KAAK,GAAG,EAAE,CAAC;YAAC,KAAK,EAAE,CAAC;YAAC,mBAAmB,GAAG,IAAI,CAAC;QAAC,CAAC;aAClD,IAAI,CAAC,KAAK,GAAG,EAAE,CAAC;YACnB,KAAK,EAAE,CAAC;YACR,IAAI,CAAC,mBAAmB;gBAAE,aAAa,EAAE,CAAC;QAC5C,CAAC;aAAM,IAAI,CAAC,KAAK,GAAG,IAAI,CAAC,KAAK,IAAI,EAAE,CAAC;YACnC,mBAAmB,GAAG,IAAI,CAAC;QAC7B,CAAC;IACH,CAAC;IACD,OAAO,EAAE,KAAK,EAAE,aAAa,EAAE,CAAC;AAClC,CAAC;AAED;;;;;GAKG;AACH,MAAM,UAAU,iBAAiB,CAAC,MAAc,EAAE,SAAS,GAAG,CAAC;IAC7D,MAAM,KAAK,GAAG,MAAM,CAAC,OAAO,CAAC,OAAO,EAAE,IAAI,CAAC,CAAC,KAAK,CAAC,IAAI,CAAC,CAAC;IAExD,6EAA6E;IAC7E,OAAO,KAAK,CAAC,MAAM,IAAI,KAAK,CAAC,CAAC,CAAC,CAAC,IAAI,EAAE,KAAK,EAAE;QAAE,KAAK,CAAC,KAAK,EAAE,CAAC;IAC7D,OAAO,KAAK,CAAC,MAAM,IAAI,KAAK,CAAC,KAAK,CAAC,MAAM,GAAG,CAAC,CAAC,CAAC,IAAI,EAAE,KAAK,EAAE;QAAE,KAAK,CAAC,GAAG,EAAE,CAAC;IAC1E,IAAI,KAAK,CAAC,MAAM,KAAK,CAAC;QAAE,OAAO,EAAE,CAAC;IAElC,IAAI,KAAK,GAAG,SAAS,CAAC;IACtB,MAAM,GAAG,GAAa,EAAE,CAAC;IACzB,KAAK,MAAM,GAAG,IAAI,KAAK,EAAE,CAAC;QACxB,MAAM,OAAO,GAAG,GAAG,CAAC,IAAI,EAAE,CAAC;QAC3B,IAAI,OAAO,KAAK,EAAE,EAAE,CAAC;YAAC,GAAG,CAAC,IAAI,CAAC,EAAE,CAAC,CAAC;YAAC,SAAS;QAAC,CAAC;QAE/C,MAAM,EAAE,KAAK,EAAE,aAAa,EAAE,GAAG,UAAU,CAAC,OAAO,CAAC,CAAC;QACrD,MAAM,aAAa,GAAG,IAAI,CAAC,GAAG,CAAC,KAAK,GAAG,aAAa,EAAE,CAAC,CAAC,CAAC;QACzD,GAAG,CAAC,IAAI,CAAC,WAAW,CAAC,MAAM,CAAC,aAAa,CAAC,GAAG,OAAO,CAAC,CAAC;QACtD,KAAK,GAAG,IAAI,CAAC,GAAG,CAAC,KAAK,GAAG,KAAK,EAAE,CAAC,CAAC,CAAC;IACrC,CAAC;IACD,OAAO,GAAG,CAAC,IAAI,CAAC,IAAI,CAAC,CAAC;AACxB,CAAC"}

package/dist/utils/xppSelectLint.d.ts

@@ -0,0 +1,18 @@
+/**
+ * Lightweight, advisory X++ select-statement linter.
+ *
+ * Detects a main-table WHERE clause placed after a join. In X++ a select reads:
+ *   select [field] from Main [where mainCond]
+ *       [ [exists|notexists|outer] join Buf from T where joinCond ]...
+ * The main WHERE must precede every join, and each join clause carries at most one where.
+ * Two `where` keywords inside a single join segment means a stray where landed after
+ * the join.
+ *
+ * Advisory only: returns human-readable warnings, never throws or blocks.
+ */
+/**
+ * Inspect X++ source for misplaced WHERE clauses in select statements. Returns a list of
+ * advisory warning strings (empty when clean).
+ */
+export declare function lintXppSelect(source: string | undefined): string[];
+//# sourceMappingURL=xppSelectLint.d.ts.map

package/dist/utils/xppSelectLint.d.ts.map

@@ -0,0 +1 @@
+{"version":3,"file":"xppSelectLint.d.ts","sourceRoot":"","sources":["../../src/utils/xppSelectLint.ts"],"names":[],"mappings":"AAAA;;;;;;;;;;;GAWG;AAgCH;;;GAGG;AACH,wBAAgB,aAAa,CAAC,MAAM,EAAE,MAAM,GAAG,SAAS,GAAG,MAAM,EAAE,CA+BlE"}

package/dist/utils/xppSelectLint.js

@@ -0,0 +1,80 @@
+/**
+ * Lightweight, advisory X++ select-statement linter.
+ *
+ * Detects a main-table WHERE clause placed after a join. In X++ a select reads:
+ *   select [field] from Main [where mainCond]
+ *       [ [exists|notexists|outer] join Buf from T where joinCond ]...
+ * The main WHERE must precede every join, and each join clause carries at most one where.
+ * Two `where` keywords inside a single join segment means a stray where landed after
+ * the join.
+ *
+ * Advisory only: returns human-readable warnings, never throws or blocks.
+ */
+/** Strip X++ line/block comments and string literals so 'where'/'join' tokens inside
+ *  them don't skew the scan. */
+function stripCommentsAndStrings(s) {
+    let out = '';
+    let i = 0;
+    while (i < s.length) {
+        const two = s.slice(i, i + 2);
+        if (two === '//') {
+            const nl = s.indexOf('\n', i);
+            i = nl === -1 ? s.length : nl;
+            continue;
+        }
+        if (two === '/*') {
+            const end = s.indexOf('*/', i + 2);
+            i = end === -1 ? s.length : end + 2;
+            continue;
+        }
+        if (s[i] === '"') {
+            i++;
+            while (i < s.length && s[i] !== '"') {
+                if (s[i] === '\\')
+                    i++;
+                i++;
+            }
+            i++;
+            out += '""';
+            continue;
+        }
+        out += s[i];
+        i++;
+    }
+    return out;
+}
+/**
+ * Inspect X++ source for misplaced WHERE clauses in select statements. Returns a list of
+ * advisory warning strings (empty when clean).
+ */
+export function lintXppSelect(source) {
+    if (!source || !/\bselect\b/i.test(source))
+        return [];
+    const cleaned = stripCommentsAndStrings(source);
+    const warnings = [];
+    // Each select statement spans from `select` to its terminating `;`.
+    const selectRe = /\bselect\b[\s\S]*?;/gi;
+    let m;
+    while ((m = selectRe.exec(cleaned)) !== null) {
+        const stmt = m[0];
+        if (!/\bjoin\b/i.test(stmt))
+            continue; // only join-bearing selects can have this bug
+        // Segment 0 is the main-table region (its where is legal); every later segment is
+        // one join's clause and may hold at most one where.
+        const segments = stmt.split(/\bjoin\b/i);
+        for (let s = 1; s < segments.length; s++) {
+            const whereCount = (segments[s].match(/\bwhere\b/gi) ?? []).length;
+            if (whereCount >= 2) {
+                const snippet = stmt.replace(/\s+/g, ' ').trim().slice(0, 120);
+                warnings.push(`⚠️ Possible X++ select error: a WHERE clause appears AFTER a join.\n` +
+                    `   In X++ the main-table WHERE must come BEFORE any join, and each join has at most one WHERE.\n` +
+                    `   Move the main-table condition ahead of the join:\n` +
+                    `     select <field> from <Main> where <mainCond> exists join <Buf> from <T> where <joinCond>;\n` +
+                    `   Statement: ${snippet}${stmt.length > 120 ? '…' : ''}`);
+                break; // one warning per statement is enough
+            }
+        }
+    }
+    return warnings;
+}
+//# sourceMappingURL=xppSelectLint.js.map

package/dist/utils/xppSelectLint.js.map

@@ -0,0 +1 @@
+{"version":3,"file":"xppSelectLint.js","sourceRoot":"","sources":["../../src/utils/xppSelectLint.ts"],"names":[],"mappings":"AAAA;;;;;;;;;;;GAWG;AAEH;gCACgC;AAChC,SAAS,uBAAuB,CAAC,CAAS;IACxC,IAAI,GAAG,GAAG,EAAE,CAAC;IACb,IAAI,CAAC,GAAG,CAAC,CAAC;IACV,OAAO,CAAC,GAAG,CAAC,CAAC,MAAM,EAAE,CAAC;QACpB,MAAM,GAAG,GAAG,CAAC,CAAC,KAAK,CAAC,CAAC,EAAE,CAAC,GAAG,CAAC,CAAC,CAAC;QAC9B,IAAI,GAAG,KAAK,IAAI,EAAE,CAAC;YACjB,MAAM,EAAE,GAAG,CAAC,CAAC,OAAO,CAAC,IAAI,EAAE,CAAC,CAAC,CAAC;YAC9B,CAAC,GAAG,EAAE,KAAK,CAAC,CAAC,CAAC,CAAC,CAAC,CAAC,CAAC,MAAM,CAAC,CAAC,CAAC,EAAE,CAAC;YAC9B,SAAS;QACX,CAAC;QACD,IAAI,GAAG,KAAK,IAAI,EAAE,CAAC;YACjB,MAAM,GAAG,GAAG,CAAC,CAAC,OAAO,CAAC,IAAI,EAAE,CAAC,GAAG,CAAC,CAAC,CAAC;YACnC,CAAC,GAAG,GAAG,KAAK,CAAC,CAAC,CAAC,CAAC,CAAC,CAAC,CAAC,MAAM,CAAC,CAAC,CAAC,GAAG,GAAG,CAAC,CAAC;YACpC,SAAS;QACX,CAAC;QACD,IAAI,CAAC,CAAC,CAAC,CAAC,KAAK,GAAG,EAAE,CAAC;YACjB,CAAC,EAAE,CAAC;YACJ,OAAO,CAAC,GAAG,CAAC,CAAC,MAAM,IAAI,CAAC,CAAC,CAAC,CAAC,KAAK,GAAG,EAAE,CAAC;gBAAC,IAAI,CAAC,CAAC,CAAC,CAAC,KAAK,IAAI;oBAAE,CAAC,EAAE,CAAC;gBAAC,CAAC,EAAE,CAAC;YAAC,CAAC;YACrE,CAAC,EAAE,CAAC;YACJ,GAAG,IAAI,IAAI,CAAC;YACZ,SAAS;QACX,CAAC;QACD,GAAG,IAAI,CAAC,CAAC,CAAC,CAAC,CAAC;QACZ,CAAC,EAAE,CAAC;IACN,CAAC;IACD,OAAO,GAAG,CAAC;AACb,CAAC;AAED;;;GAGG;AACH,MAAM,UAAU,aAAa,CAAC,MAA0B;IACtD,IAAI,CAAC,MAAM,IAAI,CAAC,aAAa,CAAC,IAAI,CAAC,MAAM,CAAC;QAAE,OAAO,EAAE,CAAC;IACtD,MAAM,OAAO,GAAG,uBAAuB,CAAC,MAAM,CAAC,CAAC;IAChD,MAAM,QAAQ,GAAa,EAAE,CAAC;IAE9B,oEAAoE;IACpE,MAAM,QAAQ,GAAG,uBAAuB,CAAC;IACzC,IAAI,CAAyB,CAAC;IAC9B,OAAO,CAAC,CAAC,GAAG,QAAQ,CAAC,IAAI,CAAC,OAAO,CAAC,CAAC,KAAK,IAAI,EAAE,CAAC;QAC7C,MAAM,IAAI,GAAG,CAAC,CAAC,CAAC,CAAC,CAAC;QAClB,IAAI,CAAC,WAAW,CAAC,IAAI,CAAC,IAAI,CAAC;YAAE,SAAS,CAAC,8CAA8C;QAErF,kFAAkF;QAClF,oDAAoD;QACpD,MAAM,QAAQ,GAAG,IAAI,CAAC,KAAK,CAAC,WAAW,CAAC,CAAC;QACzC,KAAK,IAAI,CAAC,GAAG,CAAC,EAAE,CAAC,GAAG,QAAQ,CAAC,MAAM,EAAE,CAAC,EAAE,EAAE,CAAC;YACzC,MAAM,UAAU,GAAG,CAAC,QAAQ,CAAC,CAAC,CAAC,CAAC,KAAK,CAAC,aAAa,CAAC,IAAI,EAAE,CAAC,CAAC,MAAM,CAAC;YACnE,IAAI,UAAU,IAAI,CAAC,EAAE,CAAC;gBACpB,MAAM,OAAO,GAAG,IAAI,CAAC,OAAO,CAAC,MAAM,EAAE,GAAG,CAAC,CAAC,IAAI,EAAE,CAAC,KAAK,CAAC,CAAC,EAAE,GAAG,CAAC,CAAC;gBAC/D,QAAQ,CAAC,IAAI,CACX,sEAAsE;oBACtE,kGAAkG;oBAClG,uDAAuD;oBACvD,iGAAiG;oBACjG,iBAAiB,OAAO,GAAG,IAAI,CAAC,MAAM,GAAG,GAAG,CAAC,CAAC,CAAC,GAAG,CAAC,CAAC,CAAC,EAAE,EAAE,CAC1D,CAAC;gBACF,MAAM,CAAC,sCAAsC;YAC/C,CAAC;QACH,CAAC;IACH,CAAC;IACD,OAAO,QAAQ,CAAC;AAClB,CAAC"}

package/dist/validation/formPatternValidator.d.ts

@@ -0,0 +1,53 @@
+/**
+ * Form Pattern Validator — pure structural validator for AxForm XML against
+ * the curated form pattern catalog (src/knowledge/formPatterns).
+ *
+ * Rules:
+ *   FP001 (error)   unknown <Pattern> on Design / unknown sub-pattern on a container
+ *   FP002 (error)   unknown PatternVersion for a known pattern
+ *         (warning) known-but-older version, or version newer than catalog (PU drift)
+ *   FP003 (error)   required node missing (e.g. SimpleList without a Grid)
+ *   FP004 (error)   child control type not allowed in a patterned container
+ *   FP005 (error)   required children out of order (e.g. Grid before ActionPane)
+ *   FP006 (warning) container that requires a sub-pattern has none ("unspecified")
+ *   FP007 (error)   sub-pattern applied to an unsupported control type / parent pattern,
+ *                   or not allowed at this slot of the parent pattern
+ *   FP008 (warning) datasource expectation unmet (count / TitleDataSource)
+ *   FP009 (warning) Design/control property differs from the pattern default
+ *   FP010 (warning) no <Pattern> declared on Design at all
+ *
+ * Severity policy: only structural rules (FP001-FP005, FP007) are errors and
+ * may block writes; the rest are recommendations.
+ */
+import { type FormDesignInfo } from '../metadata/formPatternMiner.js';
+export interface FormPatternViolation {
+    rule: string;
+    severity: 'error' | 'warning';
+    /** Tree path, e.g. 'Design/Tab[TabHeader]/TabPage[General]' */
+    path: string;
+    excerpt: string;
+    fix: string;
+}
+export interface FormPatternReport {
+    formName?: string;
+    pattern?: string;
+    patternVersion?: string;
+    violations: FormPatternViolation[];
+    coverage: {
+        containersTotal: number;
+        containersPatterned: number;
+    };
+}
+interface FormFacts {
+    design: FormDesignInfo;
+    dataSourceCount: number;
+    formName?: string;
+}
+/** Validate an already-walked design tree (used by tests and the miner path). */
+export declare function validateFormTree(facts: FormFacts): FormPatternReport;
+/** Parse AxForm XML and validate it against the catalog. */
+export declare function validateFormPatternXml(xml: string): Promise<FormPatternReport>;
+/** True when the report contains error-severity violations. */
+export declare function hasPatternErrors(report: FormPatternReport): boolean;
+export {};
+//# sourceMappingURL=formPatternValidator.d.ts.map

package/dist/validation/formPatternValidator.d.ts.map

@@ -0,0 +1 @@
+{"version":3,"file":"formPatternValidator.d.ts","sourceRoot":"","sources":["../../src/validation/formPatternValidator.ts"],"names":[],"mappings":"AAAA;;;;;;;;;;;;;;;;;;;;GAoBG;AAGH,OAAO,EAGL,KAAK,cAAc,EACpB,MAAM,iCAAiC,CAAC;AAYzC,MAAM,WAAW,oBAAoB;IACnC,IAAI,EAAE,MAAM,CAAC;IACb,QAAQ,EAAE,OAAO,GAAG,SAAS,CAAC;IAC9B,+DAA+D;IAC/D,IAAI,EAAE,MAAM,CAAC;IACb,OAAO,EAAE,MAAM,CAAC;IAChB,GAAG,EAAE,MAAM,CAAC;CACb;AAED,MAAM,WAAW,iBAAiB;IAChC,QAAQ,CAAC,EAAE,MAAM,CAAC;IAClB,OAAO,CAAC,EAAE,MAAM,CAAC;IACjB,cAAc,CAAC,EAAE,MAAM,CAAC;IACxB,UAAU,EAAE,oBAAoB,EAAE,CAAC;IACnC,QAAQ,EAAE;QAAE,eAAe,EAAE,MAAM,CAAC;QAAC,mBAAmB,EAAE,MAAM,CAAA;KAAE,CAAC;CACpE;AAED,UAAU,SAAS;IACjB,MAAM,EAAE,cAAc,CAAC;IACvB,eAAe,EAAE,MAAM,CAAC;IACxB,QAAQ,CAAC,EAAE,MAAM,CAAC;CACnB;AA+WD,iFAAiF;AACjF,wBAAgB,gBAAgB,CAAC,KAAK,EAAE,SAAS,GAAG,iBAAiB,CA+FpE;AAED,4DAA4D;AAC5D,wBAAsB,sBAAsB,CAAC,GAAG,EAAE,MAAM,GAAG,OAAO,CAAC,iBAAiB,CAAC,CA+CpF;AAED,+DAA+D;AAC/D,wBAAgB,gBAAgB,CAAC,MAAM,EAAE,iBAAiB,GAAG,OAAO,CAEnE"}