@miguelduran14/knowflow 0.1.1

package/dist/inventory.js

@@ -0,0 +1,453 @@
+import { cleanLines, extractProgramIds, matchHeader } from './source-lines.js';
+/**
+ * Inventario de lo que el programa toca: ficheros con sus operaciones,
+ * bloques EXEC SQL (tablas y cursores) y comandos EXEC CICS.
+ *
+ * Es extracción literal, no interpretación: se dice QUÉ tabla se nombra y
+ * en qué línea, nunca qué significa la consulta. Lo que no se puede
+ * resolver contra el fuente aportado (un WRITE de un registro cuyo FD está
+ * en un copybook ausente) se lista aparte en vez de atribuirse a un
+ * fichero inventado (ADR-0003).
+ */
+const DIVISION_RE = /^\s*(IDENTIFICATION|ENVIRONMENT|DATA|PROCEDURE)\s+DIVISION/i;
+const SECTION_RE = /^\s*([A-Z][\w-]*)\s+SECTION\s*\.\s*$/i;
+const FILE_CONTROL_RE = /^\s*FILE-CONTROL\s*\./i;
+const FD_RE = /^\s*(?:FD|SD)\s+([A-Za-z][\w-]*)/i;
+const LEVEL_01_RE = /^\s*01\s+([A-Za-z][\w-]*)/i;
+const SELECT_RE = /(?<![\w-])SELECT\s+(?:OPTIONAL\s+)?([A-Za-z][\w-]*)/i;
+const ASSIGN_RE = /(?<![\w-])ASSIGN\s+(?:TO\s+)?([A-Za-z][\w-]*(?:-[\w-]*)*)/i;
+const ORGANIZATION_RE = /(?<![\w-])ORGANIZATION\s+(?:IS\s+)?([A-Za-z][\w-]*)/i;
+const ACCESS_RE = /(?<![\w-])ACCESS\s+(?:MODE\s+)?(?:IS\s+)?([A-Za-z][\w-]*)/i;
+const EXEC_START_RE = /(?<![\w-])EXEC\s+(SQL|CICS)(?![\w-])/i;
+const END_EXEC_RE = /(?<![\w-])END-EXEC(?![\w-])/i;
+// Verbos de E/S de fichero. OPEN y CLOSE aceptan varios ficheros por
+// sentencia; el resto nombra uno solo (fichero o registro).
+const OPEN_RE = /(?<![\w-])OPEN(?![\w-])([^.]*)/i;
+const CLOSE_RE = /(?<![\w-])CLOSE(?![\w-])([^.]*)/i;
+const SINGLE_IO_RE = /(?<![\w-])(READ|WRITE|REWRITE|DELETE|START)\s+([A-Za-z][\w-]*)/gi;
+const OPEN_MODES = new Set(['INPUT', 'OUTPUT', 'I-O', 'EXTEND']);
+// Verbos y palabras de control con los que puede empezar una sentencia:
+// si una línea arranca por uno de ellos, ya no es continuación del
+// OPEN/CLOSE anterior.
+const STATEMENT_START_RE = /^\s*(OPEN|CLOSE|READ|WRITE|REWRITE|DELETE|START|MOVE|PERFORM|IF|ELSE|END-IF|EVALUATE|WHEN|END-EVALUATE|CALL|GO|DISPLAY|ACCEPT|ADD|SUBTRACT|MULTIPLY|DIVIDE|COMPUTE|EXEC|STOP|GOBACK|EXIT|SET|INITIALIZE|STRING|UNSTRING|INSPECT|SEARCH|SORT|RETURN|RELEASE|CANCEL|CONTINUE|UNLOCK)(?![\w-])/i;
+// Palabras que pueden seguir al nombre en un OPEN/CLOSE sin ser ficheros
+const IO_NOISE = new Set(['WITH', 'NO', 'REWIND', 'LOCK', 'FOR', 'REMOVAL', 'UNIT', 'REEL']);
+function unique(values) {
+    return [...new Set(values)];
+}
+/** Tablas nombradas por un EXEC SQL. Solo posiciones donde SQL exige un
+ *  nombre de tabla: los host variables (`:WS-X`) y las subconsultas
+ *  quedan fuera, así que un `SELECT ... INTO :WS-N FROM T` da solo `T`. */
+function sqlTables(text) {
+    const found = [];
+    // Juego de caracteres de un identificador DB2 (letras, dígitos, _, $, #, @),
+    // no el de COBOL: el guion NO forma parte de un nombre de tabla.
+    const name = "[A-Za-z][\\w$#@]*(?:\\.[A-Za-z][\\w$#@]*)?";
+    const patterns = [
+        new RegExp(`(?<![\\w-])FROM\\s+(${name})`, 'gi'),
+        new RegExp(`(?<![\\w-])JOIN\\s+(${name})`, 'gi'),
+        new RegExp(`(?<![\\w-])INSERT\\s+INTO\\s+(${name})`, 'gi'),
+        new RegExp(`(?<![\\w-])UPDATE\\s+(${name})`, 'gi'),
+    ];
+    for (const re of patterns) {
+        for (const m of text.matchAll(re))
+            found.push(m[1].toUpperCase());
+    }
+    // Una lista `FROM A, B` nombra las dos tablas.
+    for (const m of text.matchAll(new RegExp(`(?<![\\w-])FROM\\s+${name}((?:\\s*,\\s*${name})+)`, 'gi'))) {
+        for (const part of m[1].split(',')) {
+            const trimmed = part.trim();
+            if (trimmed !== '')
+                found.push(trimmed.toUpperCase());
+        }
+    }
+    return unique(found);
+}
+/** Cursor nombrado por el bloque, si lo hay */
+function sqlCursor(text) {
+    const declare = /(?<![\w-])DECLARE\s+([A-Za-z][\w-]*)\s+(?:.*\s+)?CURSOR(?![\w-])/i.exec(text);
+    if (declare)
+        return { name: declare[1].toUpperCase(), role: 'declare' };
+    const open = /(?<![\w-])OPEN\s+([A-Za-z][\w-]*)/i.exec(text);
+    if (open)
+        return { name: open[1].toUpperCase(), role: 'open' };
+    const fetch = /(?<![\w-])FETCH\s+(?:FIRST\s+FROM\s+|NEXT\s+FROM\s+|FROM\s+)?([A-Za-z][\w-]*)/i.exec(text);
+    if (fetch)
+        return { name: fetch[1].toUpperCase(), role: 'fetch' };
+    const close = /(?<![\w-])CLOSE\s+([A-Za-z][\w-]*)/i.exec(text);
+    if (close)
+        return { name: close[1].toUpperCase(), role: 'close' };
+    return undefined;
+}
+/**
+ * Comando CICS: el primer token tras CICS, más un segundo token si es una
+ * palabra suelta sin paréntesis (`HANDLE CONDITION`). En `SEND MAP('M1')`
+ * el MAP lleva valor, así que queda como opción y el comando es `SEND` —
+ * es la forma del fuente, no una normalización a la sintaxis del manual.
+ */
+function cicsCommand(text) {
+    const m = /(?<![\w-])EXEC\s+CICS\s+([A-Za-z][\w-]*)(?:\s+([A-Za-z][\w-]*)(?![\w-])(?!\s*\())?/i.exec(text);
+    if (!m)
+        return '';
+    return m[2] ? `${m[1].toUpperCase()} ${m[2].toUpperCase()}` : m[1].toUpperCase();
+}
+// Opciones CICS que nombran un recurso: si su valor es un data-name en
+// vez de un literal, el recurso real solo se conoce en ejecución.
+const CICS_RESOURCE_KEYS = new Set([
+    'FILE',
+    'DATASET',
+    'PROGRAM',
+    'MAP',
+    'MAPSET',
+    'TRANSID',
+    'QUEUE',
+    'TSQUEUE',
+    'TDQUEUE',
+    'QNAME',
+]);
+/**
+ * Opciones CICS con nombre de recurso: literales tal cual (`FILE(CUSTFILE)`)
+ * y, para las opciones de recurso, también los data-name (`FILE(WS-NOMBRE)`)
+ * — estos marcan el bloque como dinámico, porque el recurso real no está en
+ * el fuente. Las opciones sin literal ni recurso (LENGTH(100), RESP(WS-R))
+ * no se listan: no dicen qué toca el programa.
+ */
+function cicsOptions(text) {
+    const options = [];
+    let dynamic = false;
+    for (const m of text.matchAll(/(?<![\w-])([A-Za-z][\w-]*)\s*\(\s*(?:'([^']*)'|"([^"]*)"|([A-Za-z][\w-]*))\s*\)/g)) {
+        const key = m[1].toUpperCase();
+        const literal = m[2] ?? m[3];
+        const ident = m[4];
+        if (literal !== undefined) {
+            options.push(`${key}(${literal})`);
+        }
+        else if (ident !== undefined && CICS_RESOURCE_KEYS.has(key)) {
+            options.push(`${key}(${ident.toUpperCase()})`);
+            dynamic = true;
+        }
+    }
+    return { options: unique(options), dynamic };
+}
+/** Sentencias SELECT de FILE-CONTROL, cada una unida hasta su punto final */
+function collectSelects(lines) {
+    const files = [];
+    let inFileControl = false;
+    let buffer = '';
+    const flush = () => {
+        const stmt = buffer.replace(/\s+/g, ' ').trim();
+        buffer = '';
+        const select = SELECT_RE.exec(stmt);
+        if (!select)
+            return;
+        const assign = ASSIGN_RE.exec(stmt);
+        const organization = ORGANIZATION_RE.exec(stmt);
+        const access = ACCESS_RE.exec(stmt);
+        files.push({
+            name: select[1].toUpperCase(),
+            ...(assign ? { assignTo: assign[1].toUpperCase() } : {}),
+            ...(organization ? { organization: organization[1].toUpperCase() } : {}),
+            ...(access ? { access: access[1].toUpperCase() } : {}),
+            records: [],
+            operations: [],
+        });
+    };
+    for (const { masked } of lines) {
+        if (FILE_CONTROL_RE.test(masked)) {
+            inFileControl = true;
+            continue;
+        }
+        if (!inFileControl)
+            continue;
+        // FILE-CONTROL termina donde empieza otra sección o división.
+        if (DIVISION_RE.test(masked) || SECTION_RE.test(masked)) {
+            flush();
+            inFileControl = false;
+            continue;
+        }
+        // Un SELECT termina en su punto, esté donde esté: partir la línea por
+        // puntos permite tanto un SELECT repartido en varias líneas como dos
+        // SELECT en la misma.
+        const segments = masked.split('.');
+        for (let i = 0; i < segments.length; i++) {
+            buffer += ' ' + segments[i];
+            if (i < segments.length - 1)
+                flush();
+        }
+    }
+    flush();
+    return files;
+}
+/** Registros 01 bajo cada FD: es lo que permite resolver un WRITE, que
+ *  nombra el registro y no el fichero. */
+function collectFdRecords(lines) {
+    const byFile = new Map();
+    let currentFd;
+    for (const { masked } of lines) {
+        if (DIVISION_RE.test(masked)) {
+            currentFd = undefined;
+            continue;
+        }
+        const fd = FD_RE.exec(masked);
+        if (fd) {
+            currentFd = fd[1].toUpperCase();
+            byFile.set(currentFd, []);
+            continue;
+        }
+        if (SECTION_RE.test(masked)) {
+            currentFd = undefined;
+            continue;
+        }
+        if (!currentFd)
+            continue;
+        const record = LEVEL_01_RE.exec(masked);
+        if (record)
+            byFile.get(currentFd).push(record[1].toUpperCase());
+    }
+    return byFile;
+}
+/**
+ * Extrae el inventario de E/S y bloques EXEC del fuente completo — los
+ * EXEC SQL viven tanto en WORKING-STORAGE (DECLARE CURSOR, INCLUDE) como
+ * en la PROCEDURE DIVISION, así que se recorre el programa entero.
+ */
+export function parseInventory(source) {
+    const lines = cleanLines(source);
+    // Nombre del nodo de entrada sintético — el mismo criterio que usa el
+    // parser de flujo, para que un párrafo implícito se llame igual en las
+    // dos vistas y se puedan cruzar.
+    const implicitEntry = extractProgramIds(lines)[0]?.name ?? 'MAIN';
+    const files = collectSelects(lines);
+    const fdRecords = collectFdRecords(lines);
+    for (const file of files) {
+        file.records = fdRecords.get(file.name) ?? [];
+    }
+    const byName = new Map(files.map(f => [f.name, f]));
+    const byRecord = new Map();
+    for (const file of files) {
+        for (const record of file.records)
+            byRecord.set(record, file);
+    }
+    const execs = [];
+    const unresolvedFileOps = [];
+    let inProcedure = false;
+    let paragraph;
+    // OPEN/CLOSE cuya lista de ficheros sigue abierta en la línea siguiente
+    let pendingIo;
+    let pendingMode;
+    // Un bloque EXEC abierto acumula líneas hasta su END-EXEC. Se guardan
+    // las dos versiones: la enmascarada para reconocer verbos y tablas (un
+    // "FROM T" dentro de un literal no es una tabla) y la original para el
+    // texto legible y los valores literales de las opciones CICS.
+    let openExec;
+    const record = (target, op) => {
+        const file = byName.get(target) ?? byRecord.get(target);
+        if (file)
+            file.operations.push(op);
+        else
+            unresolvedFileOps.push({ ...op, target });
+    };
+    const collapse = (parts) => parts.join(' ').replace(/\s+/g, ' ').trim();
+    for (const { body, masked, line } of lines) {
+        if (openExec) {
+            openExec.parts.push(masked.trim());
+            openExec.raw.push(body.trim());
+            if (END_EXEC_RE.test(masked)) {
+                execs.push(buildExec(openExec.kind, collapse(openExec.parts), collapse(openExec.raw), openExec.line, {
+                    paragraph: openExec.paragraph,
+                    implicit: openExec.paragraphImplicit,
+                }));
+                openExec = undefined;
+            }
+            continue;
+        }
+        if (/^\s*PROCEDURE\s+DIVISION/i.test(masked)) {
+            inProcedure = true;
+            continue;
+        }
+        const execStart = EXEC_START_RE.exec(masked);
+        if (execStart) {
+            const kind = execStart[1].toUpperCase() === 'SQL' ? 'sql' : 'cics';
+            // Un EXEC en la DATA DIVISION no tiene párrafo. Uno en la PROCEDURE
+            // que aparezca antes de la primera cabecera cae en el nodo de
+            // entrada sintético, y se marca como tal: el nombre no está en el
+            // fuente (ADR-0003).
+            const where = inProcedure ? paragraph ?? implicitEntry : undefined;
+            const isImplicit = inProcedure && paragraph === undefined;
+            if (END_EXEC_RE.test(masked)) {
+                execs.push(buildExec(kind, collapse([masked]), collapse([body]), line, {
+                    paragraph: where,
+                    implicit: isImplicit,
+                }));
+            }
+            else {
+                openExec = {
+                    kind,
+                    line,
+                    parts: [masked.trim()],
+                    raw: [body.trim()],
+                    paragraph: where,
+                    ...(isImplicit ? { paragraphImplicit: true } : {}),
+                };
+            }
+            continue;
+        }
+        if (!inProcedure)
+            continue;
+        const header = matchHeader(masked);
+        if (header) {
+            paragraph = header.name;
+            continue;
+        }
+        const owner = paragraph ?? implicitEntry;
+        const ownerImplicit = paragraph === undefined;
+        /** Consume la lista de ficheros de un OPEN/CLOSE, actualizando el modo */
+        const takeFileList = (verb, text) => {
+            for (const token of text.trim().split(/\s+/)) {
+                const upper = token.toUpperCase();
+                if (upper === '')
+                    continue;
+                if (verb === 'OPEN' && OPEN_MODES.has(upper)) {
+                    pendingMode = upper;
+                    continue;
+                }
+                if (IO_NOISE.has(upper))
+                    continue;
+                record(upper, {
+                    verb,
+                    ...(verb === 'OPEN' && pendingMode ? { mode: pendingMode } : {}),
+                    paragraph: owner,
+                    ...(ownerImplicit ? { paragraphImplicit: true } : {}),
+                    line,
+                });
+            }
+        };
+        // Un OPEN/CLOSE con varios ficheros suele repartirse en varias líneas
+        // ("OPEN INPUT CUST-FILE" / "OUTPUT RPT-FILE"). La continuación se
+        // reconoce por descarte: mientras no empiece otro verbo, sigue siendo
+        // la lista del OPEN/CLOSE anterior, hasta el punto que lo cierra.
+        if (pendingIo) {
+            if (STATEMENT_START_RE.test(masked)) {
+                pendingIo = undefined;
+            }
+            else {
+                takeFileList(pendingIo, masked.split('.')[0]);
+                if (masked.includes('.'))
+                    pendingIo = undefined;
+                continue;
+            }
+        }
+        const open = OPEN_RE.exec(masked);
+        if (open) {
+            pendingMode = undefined;
+            takeFileList('OPEN', open[1]);
+            pendingIo = masked.includes('.') ? undefined : 'OPEN';
+        }
+        const close = CLOSE_RE.exec(masked);
+        if (close) {
+            takeFileList('CLOSE', close[1]);
+            pendingIo = masked.includes('.') ? undefined : 'CLOSE';
+        }
+        for (const m of masked.matchAll(SINGLE_IO_RE)) {
+            record(m[2].toUpperCase(), {
+                verb: m[1].toUpperCase(),
+                paragraph: owner,
+                ...(ownerImplicit ? { paragraphImplicit: true } : {}),
+                line,
+            });
+        }
+    }
+    // Un EXEC sin END-EXEC (fuente truncado) se registra igual: es un hecho
+    // del fuente aportado, y ocultarlo perdería una tabla o un comando.
+    if (openExec) {
+        execs.push(buildExec(openExec.kind, collapse(openExec.parts), collapse(openExec.raw), openExec.line, {
+            paragraph: openExec.paragraph,
+            implicit: openExec.paragraphImplicit,
+        }));
+    }
+    const tables = unique(execs.flatMap(e => e.tables));
+    const cursors = new Map();
+    for (const exec of execs) {
+        if (exec.kind !== 'sql' || !exec.cursor)
+            continue;
+        const entry = cursors.get(exec.cursor) ?? {
+            name: exec.cursor,
+            declared: false,
+            opened: false,
+            fetched: false,
+            closed: false,
+            tables: [],
+        };
+        const verb = exec.verb;
+        if (verb === 'DECLARE') {
+            entry.declared = true;
+            entry.tables = unique([...entry.tables, ...exec.tables]);
+        }
+        if (verb === 'OPEN')
+            entry.opened = true;
+        if (verb === 'FETCH')
+            entry.fetched = true;
+        if (verb === 'CLOSE')
+            entry.closed = true;
+        cursors.set(exec.cursor, entry);
+    }
+    const cicsCounts = new Map();
+    for (const exec of execs) {
+        if (exec.kind !== 'cics')
+            continue;
+        cicsCounts.set(exec.verb, (cicsCounts.get(exec.verb) ?? 0) + 1);
+    }
+    return {
+        files,
+        unresolvedFileOps,
+        execs,
+        tables,
+        cursors: [...cursors.values()],
+        cicsCommands: [...cicsCounts].map(([command, count]) => ({ command, count })),
+    };
+}
+/**
+ * `masked` es la versión con los literales en blanco: de ahí salen verbos,
+ * tablas y cursores, para que un `FROM ORDERS` escrito dentro de una
+ * cadena no se cuele como tabla. `raw` es el texto real: de ahí salen el
+ * texto legible del bloque y los valores literales de las opciones CICS,
+ * que es precisamente lo que interesa (`FILE('ACCTFILE')`).
+ */
+function buildExec(kind, masked, raw, line, where) {
+    const location = {
+        ...(where.paragraph ? { paragraph: where.paragraph } : {}),
+        ...(where.implicit ? { paragraphImplicit: true } : {}),
+    };
+    if (kind === 'cics') {
+        const { options, dynamic } = cicsOptions(raw);
+        return {
+            kind,
+            verb: cicsCommand(masked),
+            ...location,
+            line,
+            text: raw,
+            tables: [],
+            options,
+            ...(dynamic ? { dynamic: true } : {}),
+        };
+    }
+    const verbMatch = /(?<![\w-])EXEC\s+SQL\s+([A-Za-z][\w-]*)/i.exec(masked);
+    const verb = verbMatch ? verbMatch[1].toUpperCase() : '';
+    const cursor = sqlCursor(masked);
+    // SQL dinámico: la sentencia viaja en una host variable, así que no hay
+    // tabla que nombrar en el fuente. Se marca en vez de fingir que no toca
+    // nada (podría tocar cualquier tabla).
+    const dynamic = verb === 'PREPARE' || verb === 'EXECUTE';
+    return {
+        kind,
+        verb,
+        ...location,
+        line,
+        text: raw,
+        tables: sqlTables(masked),
+        options: [],
+        ...(cursor ? { cursor: cursor.name } : {}),
+        ...(dynamic ? { dynamic: true } : {}),
+    };
+}
+//# sourceMappingURL=inventory.js.map

package/dist/inventory.js.map

@@ -0,0 +1 @@
+{"version":3,"file":"inventory.js","sourceRoot":"","sources":["../src/inventory.ts"],"names":[],"mappings":"AAQA,OAAO,EAAE,UAAU,EAAE,iBAAiB,EAAE,WAAW,EAAmB,MAAM,mBAAmB,CAAA;AAE/F;;;;;;;;;GASG;AAEH,MAAM,WAAW,GAAG,6DAA6D,CAAA;AACjF,MAAM,UAAU,GAAG,uCAAuC,CAAA;AAC1D,MAAM,eAAe,GAAG,wBAAwB,CAAA;AAChD,MAAM,KAAK,GAAG,mCAAmC,CAAA;AACjD,MAAM,WAAW,GAAG,4BAA4B,CAAA;AAEhD,MAAM,SAAS,GAAG,sDAAsD,CAAA;AACxE,MAAM,SAAS,GAAG,4DAA4D,CAAA;AAC9E,MAAM,eAAe,GAAG,sDAAsD,CAAA;AAC9E,MAAM,SAAS,GAAG,4DAA4D,CAAA;AAE9E,MAAM,aAAa,GAAG,uCAAuC,CAAA;AAC7D,MAAM,WAAW,GAAG,8BAA8B,CAAA;AAElD,qEAAqE;AACrE,4DAA4D;AAC5D,MAAM,OAAO,GAAG,iCAAiC,CAAA;AACjD,MAAM,QAAQ,GAAG,kCAAkC,CAAA;AACnD,MAAM,YAAY,GAAG,kEAAkE,CAAA;AACvF,MAAM,UAAU,GAAG,IAAI,GAAG,CAAC,CAAC,OAAO,EAAE,QAAQ,EAAE,KAAK,EAAE,QAAQ,CAAC,CAAC,CAAA;AAChE,wEAAwE;AACxE,mEAAmE;AACnE,uBAAuB;AACvB,MAAM,kBAAkB,GACtB,8RAA8R,CAAA;AAChS,yEAAyE;AACzE,MAAM,QAAQ,GAAG,IAAI,GAAG,CAAC,CAAC,MAAM,EAAE,IAAI,EAAE,QAAQ,EAAE,MAAM,EAAE,KAAK,EAAE,SAAS,EAAE,MAAM,EAAE,MAAM,CAAC,CAAC,CAAA;AAE5F,SAAS,MAAM,CAAC,MAAgB;IAC9B,OAAO,CAAC,GAAG,IAAI,GAAG,CAAC,MAAM,CAAC,CAAC,CAAA;AAC7B,CAAC;AAED;;2EAE2E;AAC3E,SAAS,SAAS,CAAC,IAAY;IAC7B,MAAM,KAAK,GAAa,EAAE,CAAA;IAC1B,6EAA6E;IAC7E,iEAAiE;IACjE,MAAM,IAAI,GAAG,4CAA4C,CAAA;IACzD,MAAM,QAAQ,GAAG;QACf,IAAI,MAAM,CAAC,uBAAuB,IAAI,GAAG,EAAE,IAAI,CAAC;QAChD,IAAI,MAAM,CAAC,uBAAuB,IAAI,GAAG,EAAE,IAAI,CAAC;QAChD,IAAI,MAAM,CAAC,iCAAiC,IAAI,GAAG,EAAE,IAAI,CAAC;QAC1D,IAAI,MAAM,CAAC,yBAAyB,IAAI,GAAG,EAAE,IAAI,CAAC;KACnD,CAAA;IACD,KAAK,MAAM,EAAE,IAAI,QAAQ,EAAE,CAAC;QAC1B,KAAK,MAAM,CAAC,IAAI,IAAI,CAAC,QAAQ,CAAC,EAAE,CAAC;YAAE,KAAK,CAAC,IAAI,CAAC,CAAC,CAAC,CAAC,CAAE,CAAC,WAAW,EAAE,CAAC,CAAA;IACpE,CAAC;IACD,+CAA+C;IAC/C,KAAK,MAAM,CAAC,IAAI,IAAI,CAAC,QAAQ,CAAC,IAAI,MAAM,CAAC,sBAAsB,IAAI,gBAAgB,IAAI,KAAK,EAAE,IAAI,CAAC,CAAC,EAAE,CAAC;QACrG,KAAK,MAAM,IAAI,IAAI,CAAC,CAAC,CAAC,CAAE,CAAC,KAAK,CAAC,GAAG,CAAC,EAAE,CAAC;YACpC,MAAM,OAAO,GAAG,IAAI,CAAC,IAAI,EAAE,CAAA;YAC3B,IAAI,OAAO,KAAK,EAAE;gBAAE,KAAK,CAAC,IAAI,CAAC,OAAO,CAAC,WAAW,EAAE,CAAC,CAAA;QACvD,CAAC;IACH,CAAC;IACD,OAAO,MAAM,CAAC,KAAK,CAAC,CAAA;AACtB,CAAC;AAED,+CAA+C;AAC/C,SAAS,SAAS,CAAC,IAAY;IAC7B,MAAM,OAAO,GAAG,mEAAmE,CAAC,IAAI,CAAC,IAAI,CAAC,CAAA;IAC9F,IAAI,OAAO;QAAE,OAAO,EAAE,IAAI,EAAE,OAAO,CAAC,CAAC,CAAE,CAAC,WAAW,EAAE,EAAE,IAAI,EAAE,SAAS,EAAE,CAAA;IACxE,MAAM,IAAI,GAAG,oCAAoC,CAAC,IAAI,CAAC,IAAI,CAAC,CAAA;IAC5D,IAAI,IAAI;QAAE,OAAO,EAAE,IAAI,EAAE,IAAI,CAAC,CAAC,CAAE,CAAC,WAAW,EAAE,EAAE,IAAI,EAAE,MAAM,EAAE,CAAA;IAC/D,MAAM,KAAK,GAAG,gFAAgF,CAAC,IAAI,CAAC,IAAI,CAAC,CAAA;IACzG,IAAI,KAAK;QAAE,OAAO,EAAE,IAAI,EAAE,KAAK,CAAC,CAAC,CAAE,CAAC,WAAW,EAAE,EAAE,IAAI,EAAE,OAAO,EAAE,CAAA;IAClE,MAAM,KAAK,GAAG,qCAAqC,CAAC,IAAI,CAAC,IAAI,CAAC,CAAA;IAC9D,IAAI,KAAK;QAAE,OAAO,EAAE,IAAI,EAAE,KAAK,CAAC,CAAC,CAAE,CAAC,WAAW,EAAE,EAAE,IAAI,EAAE,OAAO,EAAE,CAAA;IAClE,OAAO,SAAS,CAAA;AAClB,CAAC;AAED;;;;;GAKG;AACH,SAAS,WAAW,CAAC,IAAY;IAC/B,MAAM,CAAC,GAAG,qFAAqF,CAAC,IAAI,CAAC,IAAI,CAAC,CAAA;IAC1G,IAAI,CAAC,CAAC;QAAE,OAAO,EAAE,CAAA;IACjB,OAAO,CAAC,CAAC,CAAC,CAAC,CAAC,CAAC,CAAC,GAAG,CAAC,CAAC,CAAC,CAAE,CAAC,WAAW,EAAE,IAAI,CAAC,CAAC,CAAC,CAAC,CAAC,WAAW,EAAE,EAAE,CAAC,CAAC,CAAC,CAAC,CAAC,CAAC,CAAE,CAAC,WAAW,EAAE,CAAA;AACpF,CAAC;AAED,uEAAuE;AACvE,kEAAkE;AAClE,MAAM,kBAAkB,GAAG,IAAI,GAAG,CAAC;IACjC,MAAM;IACN,SAAS;IACT,SAAS;IACT,KAAK;IACL,QAAQ;IACR,SAAS;IACT,OAAO;IACP,SAAS;IACT,SAAS;IACT,OAAO;CACR,CAAC,CAAA;AAEF;;;;;;GAMG;AACH,SAAS,WAAW,CAAC,IAAY;IAC/B,MAAM,OAAO,GAAa,EAAE,CAAA;IAC5B,IAAI,OAAO,GAAG,KAAK,CAAA;IACnB,KAAK,MAAM,CAAC,IAAI,IAAI,CAAC,QAAQ,CAC3B,kFAAkF,CACnF,EAAE,CAAC;QACF,MAAM,GAAG,GAAG,CAAC,CAAC,CAAC,CAAE,CAAC,WAAW,EAAE,CAAA;QAC/B,MAAM,OAAO,GAAG,CAAC,CAAC,CAAC,CAAC,IAAI,CAAC,CAAC,CAAC,CAAC,CAAA;QAC5B,MAAM,KAAK,GAAG,CAAC,CAAC,CAAC,CAAC,CAAA;QAClB,IAAI,OAAO,KAAK,SAAS,EAAE,CAAC;YAC1B,OAAO,CAAC,IAAI,CAAC,GAAG,GAAG,IAAI,OAAO,GAAG,CAAC,CAAA;QACpC,CAAC;aAAM,IAAI,KAAK,KAAK,SAAS,IAAI,kBAAkB,CAAC,GAAG,CAAC,GAAG,CAAC,EAAE,CAAC;YAC9D,OAAO,CAAC,IAAI,CAAC,GAAG,GAAG,IAAI,KAAK,CAAC,WAAW,EAAE,GAAG,CAAC,CAAA;YAC9C,OAAO,GAAG,IAAI,CAAA;QAChB,CAAC;IACH,CAAC;IACD,OAAO,EAAE,OAAO,EAAE,MAAM,CAAC,OAAO,CAAC,EAAE,OAAO,EAAE,CAAA;AAC9C,CAAC;AAED,6EAA6E;AAC7E,SAAS,cAAc,CAAC,KAAmB;IACzC,MAAM,KAAK,GAAgB,EAAE,CAAA;IAC7B,IAAI,aAAa,GAAG,KAAK,CAAA;IACzB,IAAI,MAAM,GAAG,EAAE,CAAA;IAEf,MAAM,KAAK,GAAG,GAAS,EAAE;QACvB,MAAM,IAAI,GAAG,MAAM,CAAC,OAAO,CAAC,MAAM,EAAE,GAAG,CAAC,CAAC,IAAI,EAAE,CAAA;QAC/C,MAAM,GAAG,EAAE,CAAA;QACX,MAAM,MAAM,GAAG,SAAS,CAAC,IAAI,CAAC,IAAI,CAAC,CAAA;QACnC,IAAI,CAAC,MAAM;YAAE,OAAM;QACnB,MAAM,MAAM,GAAG,SAAS,CAAC,IAAI,CAAC,IAAI,CAAC,CAAA;QACnC,MAAM,YAAY,GAAG,eAAe,CAAC,IAAI,CAAC,IAAI,CAAC,CAAA;QAC/C,MAAM,MAAM,GAAG,SAAS,CAAC,IAAI,CAAC,IAAI,CAAC,CAAA;QACnC,KAAK,CAAC,IAAI,CAAC;YACT,IAAI,EAAE,MAAM,CAAC,CAAC,CAAE,CAAC,WAAW,EAAE;YAC9B,GAAG,CAAC,MAAM,CAAC,CAAC,CAAC,EAAE,QAAQ,EAAE,MAAM,CAAC,CAAC,CAAE,CAAC,WAAW,EAAE,EAAE,CAAC,CAAC,CAAC,EAAE,CAAC;YACzD,GAAG,CAAC,YAAY,CAAC,CAAC,CAAC,EAAE,YAAY,EAAE,YAAY,CAAC,CAAC,CAAE,CAAC,WAAW,EAAE,EAAE,CAAC,CAAC,CAAC,EAAE,CAAC;YACzE,GAAG,CAAC,MAAM,CAAC,CAAC,CAAC,EAAE,MAAM,EAAE,MAAM,CAAC,CAAC,CAAE,CAAC,WAAW,EAAE,EAAE,CAAC,CAAC,CAAC,EAAE,CAAC;YACvD,OAAO,EAAE,EAAE;YACX,UAAU,EAAE,EAAE;SACf,CAAC,CAAA;IACJ,CAAC,CAAA;IAED,KAAK,MAAM,EAAE,MAAM,EAAE,IAAI,KAAK,EAAE,CAAC;QAC/B,IAAI,eAAe,CAAC,IAAI,CAAC,MAAM,CAAC,EAAE,CAAC;YACjC,aAAa,GAAG,IAAI,CAAA;YACpB,SAAQ;QACV,CAAC;QACD,IAAI,CAAC,aAAa;YAAE,SAAQ;QAC5B,8DAA8D;QAC9D,IAAI,WAAW,CAAC,IAAI,CAAC,MAAM,CAAC,IAAI,UAAU,CAAC,IAAI,CAAC,MAAM,CAAC,EAAE,CAAC;YACxD,KAAK,EAAE,CAAA;YACP,aAAa,GAAG,KAAK,CAAA;YACrB,SAAQ;QACV,CAAC;QACD,sEAAsE;QACtE,qEAAqE;QACrE,sBAAsB;QACtB,MAAM,QAAQ,GAAG,MAAM,CAAC,KAAK,CAAC,GAAG,CAAC,CAAA;QAClC,KAAK,IAAI,CAAC,GAAG,CAAC,EAAE,CAAC,GAAG,QAAQ,CAAC,MAAM,EAAE,CAAC,EAAE,EAAE,CAAC;YACzC,MAAM,IAAI,GAAG,GAAG,QAAQ,CAAC,CAAC,CAAE,CAAA;YAC5B,IAAI,CAAC,GAAG,QAAQ,CAAC,MAAM,GAAG,CAAC;gBAAE,KAAK,EAAE,CAAA;QACtC,CAAC;IACH,CAAC;IACD,KAAK,EAAE,CAAA;IAEP,OAAO,KAAK,CAAA;AACd,CAAC;AAED;0CAC0C;AAC1C,SAAS,gBAAgB,CAAC,KAAmB;IAC3C,MAAM,MAAM,GAAG,IAAI,GAAG,EAAoB,CAAA;IAC1C,IAAI,SAA6B,CAAA;IAEjC,KAAK,MAAM,EAAE,MAAM,EAAE,IAAI,KAAK,EAAE,CAAC;QAC/B,IAAI,WAAW,CAAC,IAAI,CAAC,MAAM,CAAC,EAAE,CAAC;YAC7B,SAAS,GAAG,SAAS,CAAA;YACrB,SAAQ;QACV,CAAC;QACD,MAAM,EAAE,GAAG,KAAK,CAAC,IAAI,CAAC,MAAM,CAAC,CAAA;QAC7B,IAAI,EAAE,EAAE,CAAC;YACP,SAAS,GAAG,EAAE,CAAC,CAAC,CAAE,CAAC,WAAW,EAAE,CAAA;YAChC,MAAM,CAAC,GAAG,CAAC,SAAS,EAAE,EAAE,CAAC,CAAA;YACzB,SAAQ;QACV,CAAC;QACD,IAAI,UAAU,CAAC,IAAI,CAAC,MAAM,CAAC,EAAE,CAAC;YAC5B,SAAS,GAAG,SAAS,CAAA;YACrB,SAAQ;QACV,CAAC;QACD,IAAI,CAAC,SAAS;YAAE,SAAQ;QACxB,MAAM,MAAM,GAAG,WAAW,CAAC,IAAI,CAAC,MAAM,CAAC,CAAA;QACvC,IAAI,MAAM;YAAE,MAAM,CAAC,GAAG,CAAC,SAAS,CAAE,CAAC,IAAI,CAAC,MAAM,CAAC,CAAC,CAAE,CAAC,WAAW,EAAE,CAAC,CAAA;IACnE,CAAC;IAED,OAAO,MAAM,CAAA;AACf,CAAC;AAED;;;;GAIG;AACH,MAAM,UAAU,cAAc,CAAC,MAAc;IAC3C,MAAM,KAAK,GAAG,UAAU,CAAC,MAAM,CAAC,CAAA;IAEhC,sEAAsE;IACtE,uEAAuE;IACvE,iCAAiC;IACjC,MAAM,aAAa,GAAG,iBAAiB,CAAC,KAAK,CAAC,CAAC,CAAC,CAAC,EAAE,IAAI,IAAI,MAAM,CAAA;IAEjE,MAAM,KAAK,GAAG,cAAc,CAAC,KAAK,CAAC,CAAA;IACnC,MAAM,SAAS,GAAG,gBAAgB,CAAC,KAAK,CAAC,CAAA;IACzC,KAAK,MAAM,IAAI,IAAI,KAAK,EAAE,CAAC;QACzB,IAAI,CAAC,OAAO,GAAG,SAAS,CAAC,GAAG,CAAC,IAAI,CAAC,IAAI,CAAC,IAAI,EAAE,CAAA;IAC/C,CAAC;IAED,MAAM,MAAM,GAAG,IAAI,GAAG,CAAC,KAAK,CAAC,GAAG,CAAC,CAAC,CAAC,EAAE,CAAC,CAAC,CAAC,CAAC,IAAI,EAAE,CAAC,CAAC,CAAC,CAAC,CAAA;IACnD,MAAM,QAAQ,GAAG,IAAI,GAAG,EAAqB,CAAA;IAC7C,KAAK,MAAM,IAAI,IAAI,KAAK,EAAE,CAAC;QACzB,KAAK,MAAM,MAAM,IAAI,IAAI,CAAC,OAAO;YAAE,QAAQ,CAAC,GAAG,CAAC,MAAM,EAAE,IAAI,CAAC,CAAA;IAC/D,CAAC;IAED,MAAM,KAAK,GAAgB,EAAE,CAAA;IAC7B,MAAM,iBAAiB,GAA2C,EAAE,CAAA;IAEpE,IAAI,WAAW,GAAG,KAAK,CAAA;IACvB,IAAI,SAA6B,CAAA;IACjC,wEAAwE;IACxE,IAAI,SAAuC,CAAA;IAC3C,IAAI,WAA+B,CAAA;IACnC,sEAAsE;IACtE,uEAAuE;IACvE,uEAAuE;IACvE,8DAA8D;IAC9D,IAAI,QASS,CAAA;IAEb,MAAM,MAAM,GAAG,CAAC,MAAc,EAAE,EAAiB,EAAQ,EAAE;QACzD,MAAM,IAAI,GAAG,MAAM,CAAC,GAAG,CAAC,MAAM,CAAC,IAAI,QAAQ,CAAC,GAAG,CAAC,MAAM,CAAC,CAAA;QACvD,IAAI,IAAI;YAAE,IAAI,CAAC,UAAU,CAAC,IAAI,CAAC,EAAE,CAAC,CAAA;;YAC7B,iBAAiB,CAAC,IAAI,CAAC,EAAE,GAAG,EAAE,EAAE,MAAM,EAAE,CAAC,CAAA;IAChD,CAAC,CAAA;IAED,MAAM,QAAQ,GAAG,CAAC,KAAe,EAAU,EAAE,CAAC,KAAK,CAAC,IAAI,CAAC,GAAG,CAAC,CAAC,OAAO,CAAC,MAAM,EAAE,GAAG,CAAC,CAAC,IAAI,EAAE,CAAA;IAEzF,KAAK,MAAM,EAAE,IAAI,EAAE,MAAM,EAAE,IAAI,EAAE,IAAI,KAAK,EAAE,CAAC;QAC3C,IAAI,QAAQ,EAAE,CAAC;YACb,QAAQ,CAAC,KAAK,CAAC,IAAI,CAAC,MAAM,CAAC,IAAI,EAAE,CAAC,CAAA;YAClC,QAAQ,CAAC,GAAG,CAAC,IAAI,CAAC,IAAI,CAAC,IAAI,EAAE,CAAC,CAAA;YAC9B,IAAI,WAAW,CAAC,IAAI,CAAC,MAAM,CAAC,EAAE,CAAC;gBAC7B,KAAK,CAAC,IAAI,CACR,SAAS,CAAC,QAAQ,CAAC,IAAI,EAAE,QAAQ,CAAC,QAAQ,CAAC,KAAK,CAAC,EAAE,QAAQ,CAAC,QAAQ,CAAC,GAAG,CAAC,EAAE,QAAQ,CAAC,IAAI,EAAE;oBACxF,SAAS,EAAE,QAAQ,CAAC,SAAS;oBAC7B,QAAQ,EAAE,QAAQ,CAAC,iBAAiB;iBACrC,CAAC,CACH,CAAA;gBACD,QAAQ,GAAG,SAAS,CAAA;YACtB,CAAC;YACD,SAAQ;QACV,CAAC;QAED,IAAI,2BAA2B,CAAC,IAAI,CAAC,MAAM,CAAC,EAAE,CAAC;YAC7C,WAAW,GAAG,IAAI,CAAA;YAClB,SAAQ;QACV,CAAC;QAED,MAAM,SAAS,GAAG,aAAa,CAAC,IAAI,CAAC,MAAM,CAAC,CAAA;QAC5C,IAAI,SAAS,EAAE,CAAC;YACd,MAAM,IAAI,GAAG,SAAS,CAAC,CAAC,CAAE,CAAC,WAAW,EAAE,KAAK,KAAK,CAAC,CAAC,CAAC,KAAK,CAAC,CAAC,CAAC,MAAM,CAAA;YACnE,oEAAoE;YACpE,8DAA8D;YAC9D,kEAAkE;YAClE,qBAAqB;YACrB,MAAM,KAAK,GAAG,WAAW,CAAC,CAAC,CAAC,SAAS,IAAI,aAAa,CAAC,CAAC,CAAC,SAAS,CAAA;YAClE,MAAM,UAAU,GAAG,WAAW,IAAI,SAAS,KAAK,SAAS,CAAA;YACzD,IAAI,WAAW,CAAC,IAAI,CAAC,MAAM,CAAC,EAAE,CAAC;gBAC7B,KAAK,CAAC,IAAI,CACR,SAAS,CAAC,IAAI,EAAE,QAAQ,CAAC,CAAC,MAAM,CAAC,CAAC,EAAE,QAAQ,CAAC,CAAC,IAAI,CAAC,CAAC,EAAE,IAAI,EAAE;oBAC1D,SAAS,EAAE,KAAK;oBAChB,QAAQ,EAAE,UAAU;iBACrB,CAAC,CACH,CAAA;YACH,CAAC;iBAAM,CAAC;gBACN,QAAQ,GAAG;oBACT,IAAI;oBACJ,IAAI;oBACJ,KAAK,EAAE,CAAC,MAAM,CAAC,IAAI,EAAE,CAAC;oBACtB,GAAG,EAAE,CAAC,IAAI,CAAC,IAAI,EAAE,CAAC;oBAClB,SAAS,EAAE,KAAK;oBAChB,GAAG,CAAC,UAAU,CAAC,CAAC,CAAC,EAAE,iBAAiB,EAAE,IAAI,EAAE,CAAC,CAAC,CAAC,EAAE,CAAC;iBACnD,CAAA;YACH,CAAC;YACD,SAAQ;QACV,CAAC;QAED,IAAI,CAAC,WAAW;YAAE,SAAQ;QAE1B,MAAM,MAAM,GAAG,WAAW,CAAC,MAAM,CAAC,CAAA;QAClC,IAAI,MAAM,EAAE,CAAC;YACX,SAAS,GAAG,MAAM,CAAC,IAAI,CAAA;YACvB,SAAQ;QACV,CAAC;QACD,MAAM,KAAK,GAAG,SAAS,IAAI,aAAa,CAAA;QACxC,MAAM,aAAa,GAAG,SAAS,KAAK,SAAS,CAAA;QAE7C,0EAA0E;QAC1E,MAAM,YAAY,GAAG,CAAC,IAAsB,EAAE,IAAY,EAAQ,EAAE;YAClE,KAAK,MAAM,KAAK,IAAI,IAAI,CAAC,IAAI,EAAE,CAAC,KAAK,CAAC,KAAK,CAAC,EAAE,CAAC;gBAC7C,MAAM,KAAK,GAAG,KAAK,CAAC,WAAW,EAAE,CAAA;gBACjC,IAAI,KAAK,KAAK,EAAE;oBAAE,SAAQ;gBAC1B,IAAI,IAAI,KAAK,MAAM,IAAI,UAAU,CAAC,GAAG,CAAC,KAAK,CAAC,EAAE,CAAC;oBAC7C,WAAW,GAAG,KAAK,CAAA;oBACnB,SAAQ;gBACV,CAAC;gBACD,IAAI,QAAQ,CAAC,GAAG,CAAC,KAAK,CAAC;oBAAE,SAAQ;gBACjC,MAAM,CAAC,KAAK,EAAE;oBACZ,IAAI;oBACJ,GAAG,CAAC,IAAI,KAAK,MAAM,IAAI,WAAW,CAAC,CAAC,CAAC,EAAE,IAAI,EAAE,WAAW,EAAE,CAAC,CAAC,CAAC,EAAE,CAAC;oBAChE,SAAS,EAAE,KAAK;oBAChB,GAAG,CAAC,aAAa,CAAC,CAAC,CAAC,EAAE,iBAAiB,EAAE,IAAI,EAAE,CAAC,CAAC,CAAC,EAAE,CAAC;oBACrD,IAAI;iBACL,CAAC,CAAA;YACJ,CAAC;QACH,CAAC,CAAA;QAED,sEAAsE;QACtE,mEAAmE;QACnE,sEAAsE;QACtE,kEAAkE;QAClE,IAAI,SAAS,EAAE,CAAC;YACd,IAAI,kBAAkB,CAAC,IAAI,CAAC,MAAM,CAAC,EAAE,CAAC;gBACpC,SAAS,GAAG,SAAS,CAAA;YACvB,CAAC;iBAAM,CAAC;gBACN,YAAY,CAAC,SAAS,EAAE,MAAM,CAAC,KAAK,CAAC,GAAG,CAAC,CAAC,CAAC,CAAE,CAAC,CAAA;gBAC9C,IAAI,MAAM,CAAC,QAAQ,CAAC,GAAG,CAAC;oBAAE,SAAS,GAAG,SAAS,CAAA;gBAC/C,SAAQ;YACV,CAAC;QACH,CAAC;QAED,MAAM,IAAI,GAAG,OAAO,CAAC,IAAI,CAAC,MAAM,CAAC,CAAA;QACjC,IAAI,IAAI,EAAE,CAAC;YACT,WAAW,GAAG,SAAS,CAAA;YACvB,YAAY,CAAC,MAAM,EAAE,IAAI,CAAC,CAAC,CAAE,CAAC,CAAA;YAC9B,SAAS,GAAG,MAAM,CAAC,QAAQ,CAAC,GAAG,CAAC,CAAC,CAAC,CAAC,SAAS,CAAC,CAAC,CAAC,MAAM,CAAA;QACvD,CAAC;QAED,MAAM,KAAK,GAAG,QAAQ,CAAC,IAAI,CAAC,MAAM,CAAC,CAAA;QACnC,IAAI,KAAK,EAAE,CAAC;YACV,YAAY,CAAC,OAAO,EAAE,KAAK,CAAC,CAAC,CAAE,CAAC,CAAA;YAChC,SAAS,GAAG,MAAM,CAAC,QAAQ,CAAC,GAAG,CAAC,CAAC,CAAC,CAAC,SAAS,CAAC,CAAC,CAAC,OAAO,CAAA;QACxD,CAAC;QAED,KAAK,MAAM,CAAC,IAAI,MAAM,CAAC,QAAQ,CAAC,YAAY,CAAC,EAAE,CAAC;YAC9C,MAAM,CAAC,CAAC,CAAC,CAAC,CAAE,CAAC,WAAW,EAAE,EAAE;gBAC1B,IAAI,EAAE,CAAC,CAAC,CAAC,CAAE,CAAC,WAAW,EAAc;gBACrC,SAAS,EAAE,KAAK;gBAChB,GAAG,CAAC,aAAa,CAAC,CAAC,CAAC,EAAE,iBAAiB,EAAE,IAAI,EAAE,CAAC,CAAC,CAAC,EAAE,CAAC;gBACrD,IAAI;aACL,CAAC,CAAA;QACJ,CAAC;IACH,CAAC;IAED,wEAAwE;IACxE,oEAAoE;IACpE,IAAI,QAAQ,EAAE,CAAC;QACb,KAAK,CAAC,IAAI,CACR,SAAS,CAAC,QAAQ,CAAC,IAAI,EAAE,QAAQ,CAAC,QAAQ,CAAC,KAAK,CAAC,EAAE,QAAQ,CAAC,QAAQ,CAAC,GAAG,CAAC,EAAE,QAAQ,CAAC,IAAI,EAAE;YACxF,SAAS,EAAE,QAAQ,CAAC,SAAS;YAC7B,QAAQ,EAAE,QAAQ,CAAC,iBAAiB;SACrC,CAAC,CACH,CAAA;IACH,CAAC;IAED,MAAM,MAAM,GAAG,MAAM,CAAC,KAAK,CAAC,OAAO,CAAC,CAAC,CAAC,EAAE,CAAC,CAAC,CAAC,MAAM,CAAC,CAAC,CAAA;IAEnD,MAAM,OAAO,GAAG,IAAI,GAAG,EAAuB,CAAA;IAC9C,KAAK,MAAM,IAAI,IAAI,KAAK,EAAE,CAAC;QACzB,IAAI,IAAI,CAAC,IAAI,KAAK,KAAK,IAAI,CAAC,IAAI,CAAC,MAAM;YAAE,SAAQ;QACjD,MAAM,KAAK,GAAG,OAAO,CAAC,GAAG,CAAC,IAAI,CAAC,MAAM,CAAC,IAAI;YACxC,IAAI,EAAE,IAAI,CAAC,MAAM;YACjB,QAAQ,EAAE,KAAK;YACf,MAAM,EAAE,KAAK;YACb,OAAO,EAAE,KAAK;YACd,MAAM,EAAE,KAAK;YACb,MAAM,EAAE,EAAE;SACX,CAAA;QACD,MAAM,IAAI,GAAG,IAAI,CAAC,IAAI,CAAA;QACtB,IAAI,IAAI,KAAK,SAAS,EAAE,CAAC;YACvB,KAAK,CAAC,QAAQ,GAAG,IAAI,CAAA;YACrB,KAAK,CAAC,MAAM,GAAG,MAAM,CAAC,CAAC,GAAG,KAAK,CAAC,MAAM,EAAE,GAAG,IAAI,CAAC,MAAM,CAAC,CAAC,CAAA;QAC1D,CAAC;QACD,IAAI,IAAI,KAAK,MAAM;YAAE,KAAK,CAAC,MAAM,GAAG,IAAI,CAAA;QACxC,IAAI,IAAI,KAAK,OAAO;YAAE,KAAK,CAAC,OAAO,GAAG,IAAI,CAAA;QAC1C,IAAI,IAAI,KAAK,OAAO;YAAE,KAAK,CAAC,MAAM,GAAG,IAAI,CAAA;QACzC,OAAO,CAAC,GAAG,CAAC,IAAI,CAAC,MAAM,EAAE,KAAK,CAAC,CAAA;IACjC,CAAC;IAED,MAAM,UAAU,GAAG,IAAI,GAAG,EAAkB,CAAA;IAC5C,KAAK,MAAM,IAAI,IAAI,KAAK,EAAE,CAAC;QACzB,IAAI,IAAI,CAAC,IAAI,KAAK,MAAM;YAAE,SAAQ;QAClC,UAAU,CAAC,GAAG,CAAC,IAAI,CAAC,IAAI,EAAE,CAAC,UAAU,CAAC,GAAG,CAAC,IAAI,CAAC,IAAI,CAAC,IAAI,CAAC,CAAC,GAAG,CAAC,CAAC,CAAA;IACjE,CAAC;IAED,OAAO;QACL,KAAK;QACL,iBAAiB;QACjB,KAAK;QACL,MAAM;QACN,OAAO,EAAE,CAAC,GAAG,OAAO,CAAC,MAAM,EAAE,CAAC;QAC9B,YAAY,EAAE,CAAC,GAAG,UAAU,CAAC,CAAC,GAAG,CAAC,CAAC,CAAC,OAAO,EAAE,KAAK,CAAC,EAAE,EAAE,CAAC,CAAC,EAAE,OAAO,EAAE,KAAK,EAAE,CAAC,CAAC;KAC9E,CAAA;AACH,CAAC;AAED;;;;;;GAMG;AACH,SAAS,SAAS,CAChB,IAAoB,EACpB,MAAc,EACd,GAAW,EACX,IAAY,EACZ,KAAuE;IAEvE,MAAM,QAAQ,GAAG;QACf,GAAG,CAAC,KAAK,CAAC,SAAS,CAAC,CAAC,CAAC,EAAE,SAAS,EAAE,KAAK,CAAC,SAAS,EAAE,CAAC,CAAC,CAAC,EAAE,CAAC;QAC1D,GAAG,CAAC,KAAK,CAAC,QAAQ,CAAC,CAAC,CAAC,EAAE,iBAAiB,EAAE,IAAI,EAAE,CAAC,CAAC,CAAC,EAAE,CAAC;KACvD,CAAA;IAED,IAAI,IAAI,KAAK,MAAM,EAAE,CAAC;QACpB,MAAM,EAAE,OAAO,EAAE,OAAO,EAAE,GAAG,WAAW,CAAC,GAAG,CAAC,CAAA;QAC7C,OAAO;YACL,IAAI;YACJ,IAAI,EAAE,WAAW,CAAC,MAAM,CAAC;YACzB,GAAG,QAAQ;YACX,IAAI;YACJ,IAAI,EAAE,GAAG;YACT,MAAM,EAAE,EAAE;YACV,OAAO;YACP,GAAG,CAAC,OAAO,CAAC,CAAC,CAAC,EAAE,OAAO,EAAE,IAAI,EAAE,CAAC,CAAC,CAAC,EAAE,CAAC;SACtC,CAAA;IACH,CAAC;IAED,MAAM,SAAS,GAAG,0CAA0C,CAAC,IAAI,CAAC,MAAM,CAAC,CAAA;IACzE,MAAM,IAAI,GAAG,SAAS,CAAC,CAAC,CAAC,SAAS,CAAC,CAAC,CAAE,CAAC,WAAW,EAAE,CAAC,CAAC,CAAC,EAAE,CAAA;IACzD,MAAM,MAAM,GAAG,SAAS,CAAC,MAAM,CAAC,CAAA;IAChC,wEAAwE;IACxE,wEAAwE;IACxE,uCAAuC;IACvC,MAAM,OAAO,GAAG,IAAI,KAAK,SAAS,IAAI,IAAI,KAAK,SAAS,CAAA;IACxD,OAAO;QACL,IAAI;QACJ,IAAI;QACJ,GAAG,QAAQ;QACX,IAAI;QACJ,IAAI,EAAE,GAAG;QACT,MAAM,EAAE,SAAS,CAAC,MAAM,CAAC;QACzB,OAAO,EAAE,EAAE;QACX,GAAG,CAAC,MAAM,CAAC,CAAC,CAAC,EAAE,MAAM,EAAE,MAAM,CAAC,IAAI,EAAE,CAAC,CAAC,CAAC,EAAE,CAAC;QAC1C,GAAG,CAAC,OAAO,CAAC,CAAC,CAAC,EAAE,OAAO,EAAE,IAAI,EAAE,CAAC,CAAC,CAAC,EAAE,CAAC;KACtC,CAAA;AACH,CAAC"}

package/dist/lines.d.ts

@@ -0,0 +1,15 @@
+/**
+ * Une líneas de continuación COBOL (columna 7 = '-' o carácter no blanco
+ * en área A tras un punto y aparte) en sentencias lógicas. Reconoce el
+ * inicio de una sentencia nueva por nivel numérico, COPY o EXEC SQL —
+ * las tres formas de sentencia que aparecen en un copybook.
+ *
+ * Detecta formato fijo vs libre igual que el lado de flujo/inventario
+ * (`isFixedFormat`): en fijo se recortan las columnas de secuencia (1-6) e
+ * identificación (73-80) y el indicador va en la col. 7; en libre el código
+ * ocupa la línea entera y recortar columnas destrozaría los nombres (un
+ * `01 WS-REC.` en col. 1 se quedaría en `S-REC.`). Sin esta distinción, la
+ * DATA DIVISION en formato libre se parseaba a un esquema vacío mientras el
+ * flujo sí se leía — una inconsistencia dentro del propio motor.
+ */
+export declare function joinContinuations(lines: string[]): string[];

package/dist/lines.js

@@ -0,0 +1,53 @@
+import { isFixedFormat } from './source-lines.js';
+/**
+ * Une líneas de continuación COBOL (columna 7 = '-' o carácter no blanco
+ * en área A tras un punto y aparte) en sentencias lógicas. Reconoce el
+ * inicio de una sentencia nueva por nivel numérico, COPY o EXEC SQL —
+ * las tres formas de sentencia que aparecen en un copybook.
+ *
+ * Detecta formato fijo vs libre igual que el lado de flujo/inventario
+ * (`isFixedFormat`): en fijo se recortan las columnas de secuencia (1-6) e
+ * identificación (73-80) y el indicador va en la col. 7; en libre el código
+ * ocupa la línea entera y recortar columnas destrozaría los nombres (un
+ * `01 WS-REC.` en col. 1 se quedaría en `S-REC.`). Sin esta distinción, la
+ * DATA DIVISION en formato libre se parseaba a un esquema vacío mientras el
+ * flujo sí se leía — una inconsistencia dentro del propio motor.
+ */
+export function joinContinuations(lines) {
+    const logical = [];
+    const fixed = isFixedFormat(lines);
+    for (const raw of lines) {
+        // Columna 7 = indicador, columnas 8-72 = programa, 73-80 = zona de
+        // identificación que el compilador ignora (p. ej. "CM2014.2" en la
+        // suite NIST). Recortarla evita que un VALUE o un PIC se traguen esa
+        // basura y que la detección de fin de sentencia por punto se rompa. En
+        // formato libre no hay columnas que recortar.
+        const line = fixed ? (raw.length > 6 ? raw.slice(6, 72) : raw) : raw;
+        const trimmed = line.trimStart();
+        if (trimmed === '' || trimmed.startsWith('*'))
+            continue;
+        // Columna 7 = '-': continuación explícita — siempre se une a la
+        // anterior, aunque esta acabara en punto (p. ej. un literal cuyo
+        // texto termina en '.' y sigue en la línea siguiente). Solo es
+        // indicador en la col. 7 del formato fijo; en libre una sentencia no
+        // empieza por '-'.
+        const explicitContinuation = fixed && line[0] === '-';
+        const startsNewStatement = /^(\d{1,2}\s+|COPY\b|EXEC\s+SQL\b)/i.test(trimmed);
+        // El punto cierra la sentencia COBOL: si la lógica anterior ya terminó
+        // en punto, esta línea empieza una nueva aunque no parezca "de datos".
+        // Sin esta regla, en un programa completo la última cláusula VALUE de
+        // un nivel 88 se tragaría las divisiones siguientes como continuación.
+        const previousClosed = logical.length > 0 && /\.\s*$/.test(logical[logical.length - 1]);
+        if (!explicitContinuation && (startsNewStatement || previousClosed || logical.length === 0)) {
+            logical.push(trimmed);
+        }
+        else if (logical.length === 0) {
+            logical.push(trimmed.replace(/^-\s*/, ''));
+        }
+        else {
+            logical[logical.length - 1] += ' ' + trimmed.replace(/^-\s*/, '');
+        }
+    }
+    return logical;
+}
+//# sourceMappingURL=lines.js.map

package/dist/lines.js.map

@@ -0,0 +1 @@
+{"version":3,"file":"lines.js","sourceRoot":"","sources":["../src/lines.ts"],"names":[],"mappings":"AAAA,OAAO,EAAE,aAAa,EAAE,MAAM,mBAAmB,CAAA;AAEjD;;;;;;;;;;;;;GAaG;AACH,MAAM,UAAU,iBAAiB,CAAC,KAAe;IAC/C,MAAM,OAAO,GAAa,EAAE,CAAA;IAC5B,MAAM,KAAK,GAAG,aAAa,CAAC,KAAK,CAAC,CAAA;IAElC,KAAK,MAAM,GAAG,IAAI,KAAK,EAAE,CAAC;QACxB,mEAAmE;QACnE,mEAAmE;QACnE,qEAAqE;QACrE,uEAAuE;QACvE,8CAA8C;QAC9C,MAAM,IAAI,GAAG,KAAK,CAAC,CAAC,CAAC,CAAC,GAAG,CAAC,MAAM,GAAG,CAAC,CAAC,CAAC,CAAC,GAAG,CAAC,KAAK,CAAC,CAAC,EAAE,EAAE,CAAC,CAAC,CAAC,CAAC,GAAG,CAAC,CAAC,CAAC,CAAC,GAAG,CAAA;QACpE,MAAM,OAAO,GAAG,IAAI,CAAC,SAAS,EAAE,CAAA;QAEhC,IAAI,OAAO,KAAK,EAAE,IAAI,OAAO,CAAC,UAAU,CAAC,GAAG,CAAC;YAAE,SAAQ;QAEvD,gEAAgE;QAChE,iEAAiE;QACjE,+DAA+D;QAC/D,qEAAqE;QACrE,mBAAmB;QACnB,MAAM,oBAAoB,GAAG,KAAK,IAAI,IAAI,CAAC,CAAC,CAAC,KAAK,GAAG,CAAA;QACrD,MAAM,kBAAkB,GAAG,oCAAoC,CAAC,IAAI,CAAC,OAAO,CAAC,CAAA;QAC7E,uEAAuE;QACvE,uEAAuE;QACvE,sEAAsE;QACtE,uEAAuE;QACvE,MAAM,cAAc,GAAG,OAAO,CAAC,MAAM,GAAG,CAAC,IAAI,QAAQ,CAAC,IAAI,CAAC,OAAO,CAAC,OAAO,CAAC,MAAM,GAAG,CAAC,CAAE,CAAC,CAAA;QAExF,IAAI,CAAC,oBAAoB,IAAI,CAAC,kBAAkB,IAAI,cAAc,IAAI,OAAO,CAAC,MAAM,KAAK,CAAC,CAAC,EAAE,CAAC;YAC5F,OAAO,CAAC,IAAI,CAAC,OAAO,CAAC,CAAA;QACvB,CAAC;aAAM,IAAI,OAAO,CAAC,MAAM,KAAK,CAAC,EAAE,CAAC;YAChC,OAAO,CAAC,IAAI,CAAC,OAAO,CAAC,OAAO,CAAC,OAAO,EAAE,EAAE,CAAC,CAAC,CAAA;QAC5C,CAAC;aAAM,CAAC;YACN,OAAO,CAAC,OAAO,CAAC,MAAM,GAAG,CAAC,CAAC,IAAI,GAAG,GAAG,OAAO,CAAC,OAAO,CAAC,OAAO,EAAE,EAAE,CAAC,CAAA;QACnE,CAAC;IACH,CAAC;IAED,OAAO,OAAO,CAAA;AAChB,CAAC"}

package/dist/linker.d.ts

@@ -0,0 +1,17 @@
+import type { LinkedFlow } from './types.js';
+/**
+ * Encadena varios programas COBOL: extrae el flujo de cada uno y resuelve
+ * qué CALL cruzan de un programa a otro de los aportados.
+ *
+ * Reglas de honestidad (ADR-0003):
+ * - Un CALL dinámico (`CALL WS-VARIABLE`) NUNCA se resuelve, aunque exista
+ *   un programa con ese nombre: el destino real depende del valor de la
+ *   variable en ejecución, y elegir uno sería inventar el flujo.
+ * - Un CALL literal a un programa no aportado se marca como no resuelto y
+ *   se lista en `missingPrograms` — eso le dice al usuario exactamente qué
+ *   fuente le falta por bajar del PDS.
+ *
+ * `sources` mapea nombre de fichero -> contenido. La identidad de cada
+ * programa es su PROGRAM-ID si lo declara; si no, el nombre del fichero.
+ */
+export declare function linkPrograms(sources: Map<string, string>): LinkedFlow;

package/dist/linker.js

@@ -0,0 +1,56 @@
+import { parseFlow } from './flow-parser.js';
+/** COBOL es case-insensitive: los nombres de programa se comparan en mayúsculas */
+function key(name) {
+    return name.toUpperCase();
+}
+/**
+ * Encadena varios programas COBOL: extrae el flujo de cada uno y resuelve
+ * qué CALL cruzan de un programa a otro de los aportados.
+ *
+ * Reglas de honestidad (ADR-0003):
+ * - Un CALL dinámico (`CALL WS-VARIABLE`) NUNCA se resuelve, aunque exista
+ *   un programa con ese nombre: el destino real depende del valor de la
+ *   variable en ejecución, y elegir uno sería inventar el flujo.
+ * - Un CALL literal a un programa no aportado se marca como no resuelto y
+ *   se lista en `missingPrograms` — eso le dice al usuario exactamente qué
+ *   fuente le falta por bajar del PDS.
+ *
+ * `sources` mapea nombre de fichero -> contenido. La identidad de cada
+ * programa es su PROGRAM-ID si lo declara; si no, el nombre del fichero.
+ */
+export function linkPrograms(sources) {
+    const programs = [];
+    for (const [sourceName, text] of sources) {
+        const flow = parseFlow(text);
+        const fallback = sourceName.replace(/\.[^.]+$/, '');
+        programs.push({
+            name: flow.programId ?? fallback,
+            sourceName,
+            flow,
+        });
+    }
+    const byName = new Set(programs.map(p => key(p.name)));
+    const calls = [];
+    const missingPrograms = [];
+    for (const program of programs) {
+        for (const edge of program.flow.edges) {
+            if (edge.kind !== 'call')
+                continue;
+            const dynamic = edge.dynamic === true;
+            const resolved = !dynamic && byName.has(key(edge.to));
+            if (!dynamic && !resolved && !missingPrograms.includes(edge.to)) {
+                missingPrograms.push(edge.to);
+            }
+            calls.push({
+                fromProgram: program.name,
+                fromParagraph: edge.from,
+                toProgram: edge.to,
+                resolved,
+                dynamic,
+                line: edge.line,
+            });
+        }
+    }
+    return { programs, calls, missingPrograms };
+}
+//# sourceMappingURL=linker.js.map

package/dist/linker.js.map

@@ -0,0 +1 @@
+{"version":3,"file":"linker.js","sourceRoot":"","sources":["../src/linker.ts"],"names":[],"mappings":"AAAA,OAAO,EAAE,SAAS,EAAE,MAAM,kBAAkB,CAAA;AAG5C,mFAAmF;AACnF,SAAS,GAAG,CAAC,IAAY;IACvB,OAAO,IAAI,CAAC,WAAW,EAAE,CAAA;AAC3B,CAAC;AAED;;;;;;;;;;;;;;GAcG;AACH,MAAM,UAAU,YAAY,CAAC,OAA4B;IACvD,MAAM,QAAQ,GAAoB,EAAE,CAAA;IAEpC,KAAK,MAAM,CAAC,UAAU,EAAE,IAAI,CAAC,IAAI,OAAO,EAAE,CAAC;QACzC,MAAM,IAAI,GAAG,SAAS,CAAC,IAAI,CAAC,CAAA;QAC5B,MAAM,QAAQ,GAAG,UAAU,CAAC,OAAO,CAAC,UAAU,EAAE,EAAE,CAAC,CAAA;QACnD,QAAQ,CAAC,IAAI,CAAC;YACZ,IAAI,EAAE,IAAI,CAAC,SAAS,IAAI,QAAQ;YAChC,UAAU;YACV,IAAI;SACL,CAAC,CAAA;IACJ,CAAC;IAED,MAAM,MAAM,GAAG,IAAI,GAAG,CAAC,QAAQ,CAAC,GAAG,CAAC,CAAC,CAAC,EAAE,CAAC,GAAG,CAAC,CAAC,CAAC,IAAI,CAAC,CAAC,CAAC,CAAA;IACtD,MAAM,KAAK,GAAuB,EAAE,CAAA;IACpC,MAAM,eAAe,GAAa,EAAE,CAAA;IAEpC,KAAK,MAAM,OAAO,IAAI,QAAQ,EAAE,CAAC;QAC/B,KAAK,MAAM,IAAI,IAAI,OAAO,CAAC,IAAI,CAAC,KAAK,EAAE,CAAC;YACtC,IAAI,IAAI,CAAC,IAAI,KAAK,MAAM;gBAAE,SAAQ;YAElC,MAAM,OAAO,GAAG,IAAI,CAAC,OAAO,KAAK,IAAI,CAAA;YACrC,MAAM,QAAQ,GAAG,CAAC,OAAO,IAAI,MAAM,CAAC,GAAG,CAAC,GAAG,CAAC,IAAI,CAAC,EAAE,CAAC,CAAC,CAAA;YAErD,IAAI,CAAC,OAAO,IAAI,CAAC,QAAQ,IAAI,CAAC,eAAe,CAAC,QAAQ,CAAC,IAAI,CAAC,EAAE,CAAC,EAAE,CAAC;gBAChE,eAAe,CAAC,IAAI,CAAC,IAAI,CAAC,EAAE,CAAC,CAAA;YAC/B,CAAC;YAED,KAAK,CAAC,IAAI,CAAC;gBACT,WAAW,EAAE,OAAO,CAAC,IAAI;gBACzB,aAAa,EAAE,IAAI,CAAC,IAAI;gBACxB,SAAS,EAAE,IAAI,CAAC,EAAE;gBAClB,QAAQ;gBACR,OAAO;gBACP,IAAI,EAAE,IAAI,CAAC,IAAI;aAChB,CAAC,CAAA;QACJ,CAAC;IACH,CAAC;IAED,OAAO,EAAE,QAAQ,EAAE,KAAK,EAAE,eAAe,EAAE,CAAA;AAC7C,CAAC"}

package/dist/mermaid.d.ts

@@ -0,0 +1,27 @@
+import type { FlowEdge, FlowResult, LinkedFlow } from './types.js';
+/**
+ * Etiqueta legible de una arista de flujo. Vive en el motor, no en cada
+ * superficie, para que el export Mermaid y el canvas de la GUI digan
+ * exactamente lo mismo de la misma arista (ADR-0002: la GUI depende del
+ * motor, nunca al revés).
+ */
+export declare function flowEdgeLabel(edge: FlowEdge): string;
+/**
+ * Renderiza los hechos de flujo como diagrama Mermaid (flowchart TD).
+ * Es una proyección directa del FlowResult: cada nodo y cada arista del
+ * diagrama proviene de un hecho verificado por el parser, y las marcas de
+ * fidelidad viajan con él — el nodo de entrada implícito se declara como
+ * sintético, un fuente en modo fragmento lleva su aviso visible, y un
+ * destino que no existe en el fuente se marca como no encontrado.
+ * Formas: párrafos como rectángulos, entrada implícita como estadio,
+ * secciones como rectángulo doble, programas externos (CALL) como
+ * subrutina.
+ */
+export declare function flowToMermaid(flow: FlowResult): string;
+/**
+ * Renderiza la cadena entre programas como diagrama Mermaid: un nodo por
+ * programa y una arista por CALL que cruza la frontera. Igual que el resto
+ * de salidas, refleja los hechos tal cual: los programas no aportados y
+ * los destinos dinámicos se marcan, nunca se resuelven a ciegas.
+ */
+export declare function linkedFlowToMermaid(linked: LinkedFlow): string;