@miguelduran14/knowflow 0.1.1

package/dist/mermaid.js

@@ -0,0 +1,133 @@
+/** Id de nodo Mermaid válido a partir de un nombre COBOL. En mayúsculas:
+ *  COBOL es case-insensitive, así que "Main-Para" y "MAIN-PARA." deben
+ *  acabar en el mismo nodo. */
+function nodeId(name) {
+    return name.toUpperCase().replace(/[^A-Z0-9]/g, '_');
+}
+/** Mermaid rompe con comillas dobles dentro de una etiqueta "..." */
+function escapeLabel(text) {
+    return text.replace(/"/g, '#quot;');
+}
+/**
+ * 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 function flowEdgeLabel(edge) {
+    const base = () => {
+        if (edge.kind === 'call')
+            return edge.dynamic ? 'CALL dinámica' : 'CALL';
+        if (edge.kind === 'goto')
+            return edge.condition ? `GO TO ${edge.condition}` : 'GO TO';
+        if (edge.kind === 'fall-through')
+            return 'cae en (sin transferencia)';
+        if (edge.kind === 'sort-input')
+            return edge.thru ? `SORT INPUT THRU ${edge.thru}` : 'SORT INPUT';
+        if (edge.kind === 'sort-output')
+            return edge.thru ? `SORT OUTPUT THRU ${edge.thru}` : 'SORT OUTPUT';
+        let label = 'PERFORM';
+        if (edge.thru)
+            label += ` THRU ${edge.thru}`;
+        if (edge.times !== undefined)
+            label += ` ${edge.times} TIMES`;
+        if (edge.condition)
+            label += ` ${edge.condition}`;
+        return label;
+    };
+    // Las guardas IF/EVALUATE van delante entre corchetes: lo primero que
+    // hay que saber de una arista condicional es cuándo ocurre, no qué verbo
+    // la produce. Anidadas se unen con AND, que es lo que significan.
+    return edge.guards ? `[${edge.guards.join(' AND ')}] ${base()}` : base();
+}
+/**
+ * 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 function flowToMermaid(flow) {
+    const out = ['flowchart TD'];
+    if (flow.fragment) {
+        out.push('  NOTA_FRAGMENTO["⚠ Fragmento sin PROCEDURE DIVISION — parcialmente verificado"]');
+    }
+    if (flow.nestedPrograms.length > 0) {
+        out.push(`  NOTA_ANIDADOS["⚠ Programas anidados sin analizar: ${escapeLabel(flow.nestedPrograms.join(', '))}"]`);
+    }
+    const declared = new Set();
+    for (const para of flow.paragraphs) {
+        const id = nodeId(para.name);
+        declared.add(id);
+        let label = para.name;
+        if (para.implicit)
+            label += ' (entrada implícita)';
+        if (para.terminates)
+            label += ' — fin';
+        if (para.implicit) {
+            out.push(`  ${id}(["${escapeLabel(label)}"])`);
+        }
+        else if (para.kind === 'section') {
+            out.push(`  ${id}[["${escapeLabel(label)} SECTION"]]`);
+        }
+        else {
+            out.push(`  ${id}["${escapeLabel(label)}"]`);
+        }
+    }
+    // Nodos que solo existen como destino: programas externos (CALL) y
+    // destinos no encontrados en el fuente (missingTargets).
+    for (const edge of flow.edges) {
+        const id = nodeId(edge.to);
+        if (declared.has(id))
+            continue;
+        declared.add(id);
+        if (edge.kind === 'call') {
+            out.push(`  ${id}[["${escapeLabel(edge.to)}"]]`);
+        }
+        else {
+            out.push(`  ${id}["${escapeLabel(edge.to)} ⟵ no encontrado"]`);
+        }
+    }
+    for (const edge of flow.edges) {
+        // La caída natural es implícita en el fuente (no hay sentencia que la
+        // provoque): flecha punteada para separarla de una transferencia real.
+        const arrow = edge.kind === 'fall-through' ? '-.->' : '-->';
+        out.push(`  ${nodeId(edge.from)} ${arrow}|"${escapeLabel(flowEdgeLabel(edge))}"| ${nodeId(edge.to)}`);
+    }
+    return out.join('\n') + '\n';
+}
+/**
+ * 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 function linkedFlowToMermaid(linked) {
+    const out = ['flowchart LR'];
+    const declared = new Set();
+    for (const program of linked.programs) {
+        const id = nodeId(program.name);
+        declared.add(id);
+        out.push(`  ${id}["${escapeLabel(program.name)}"]`);
+    }
+    for (const call of linked.calls) {
+        const id = nodeId(call.toProgram);
+        if (declared.has(id))
+            continue;
+        declared.add(id);
+        const label = call.dynamic
+            ? `${call.toProgram} — destino dinámico`
+            : `${call.toProgram} — fuente no aportado`;
+        out.push(`  ${id}["${escapeLabel(label)}"]`);
+    }
+    for (const call of linked.calls) {
+        const label = call.dynamic ? `CALL dinámica (${call.fromParagraph})` : `CALL (${call.fromParagraph})`;
+        out.push(`  ${nodeId(call.fromProgram)} -->|"${escapeLabel(label)}"| ${nodeId(call.toProgram)}`);
+    }
+    return out.join('\n') + '\n';
+}
+//# sourceMappingURL=mermaid.js.map

package/dist/mermaid.js.map

@@ -0,0 +1 @@
+{"version":3,"file":"mermaid.js","sourceRoot":"","sources":["../src/mermaid.ts"],"names":[],"mappings":"AAEA;;+BAE+B;AAC/B,SAAS,MAAM,CAAC,IAAY;IAC1B,OAAO,IAAI,CAAC,WAAW,EAAE,CAAC,OAAO,CAAC,YAAY,EAAE,GAAG,CAAC,CAAA;AACtD,CAAC;AAED,qEAAqE;AACrE,SAAS,WAAW,CAAC,IAAY;IAC/B,OAAO,IAAI,CAAC,OAAO,CAAC,IAAI,EAAE,QAAQ,CAAC,CAAA;AACrC,CAAC;AAED;;;;;GAKG;AACH,MAAM,UAAU,aAAa,CAAC,IAAc;IAC1C,MAAM,IAAI,GAAG,GAAW,EAAE;QACxB,IAAI,IAAI,CAAC,IAAI,KAAK,MAAM;YAAE,OAAO,IAAI,CAAC,OAAO,CAAC,CAAC,CAAC,eAAe,CAAC,CAAC,CAAC,MAAM,CAAA;QACxE,IAAI,IAAI,CAAC,IAAI,KAAK,MAAM;YAAE,OAAO,IAAI,CAAC,SAAS,CAAC,CAAC,CAAC,SAAS,IAAI,CAAC,SAAS,EAAE,CAAC,CAAC,CAAC,OAAO,CAAA;QACrF,IAAI,IAAI,CAAC,IAAI,KAAK,cAAc;YAAE,OAAO,4BAA4B,CAAA;QACrE,IAAI,IAAI,CAAC,IAAI,KAAK,YAAY;YAAE,OAAO,IAAI,CAAC,IAAI,CAAC,CAAC,CAAC,mBAAmB,IAAI,CAAC,IAAI,EAAE,CAAC,CAAC,CAAC,YAAY,CAAA;QAChG,IAAI,IAAI,CAAC,IAAI,KAAK,aAAa;YAAE,OAAO,IAAI,CAAC,IAAI,CAAC,CAAC,CAAC,oBAAoB,IAAI,CAAC,IAAI,EAAE,CAAC,CAAC,CAAC,aAAa,CAAA;QACnG,IAAI,KAAK,GAAG,SAAS,CAAA;QACrB,IAAI,IAAI,CAAC,IAAI;YAAE,KAAK,IAAI,SAAS,IAAI,CAAC,IAAI,EAAE,CAAA;QAC5C,IAAI,IAAI,CAAC,KAAK,KAAK,SAAS;YAAE,KAAK,IAAI,IAAI,IAAI,CAAC,KAAK,QAAQ,CAAA;QAC7D,IAAI,IAAI,CAAC,SAAS;YAAE,KAAK,IAAI,IAAI,IAAI,CAAC,SAAS,EAAE,CAAA;QACjD,OAAO,KAAK,CAAA;IACd,CAAC,CAAA;IACD,sEAAsE;IACtE,yEAAyE;IACzE,kEAAkE;IAClE,OAAO,IAAI,CAAC,MAAM,CAAC,CAAC,CAAC,IAAI,IAAI,CAAC,MAAM,CAAC,IAAI,CAAC,OAAO,CAAC,KAAK,IAAI,EAAE,EAAE,CAAC,CAAC,CAAC,IAAI,EAAE,CAAA;AAC1E,CAAC;AAED;;;;;;;;;;GAUG;AACH,MAAM,UAAU,aAAa,CAAC,IAAgB;IAC5C,MAAM,GAAG,GAAa,CAAC,cAAc,CAAC,CAAA;IAEtC,IAAI,IAAI,CAAC,QAAQ,EAAE,CAAC;QAClB,GAAG,CAAC,IAAI,CAAC,kFAAkF,CAAC,CAAA;IAC9F,CAAC;IAED,IAAI,IAAI,CAAC,cAAc,CAAC,MAAM,GAAG,CAAC,EAAE,CAAC;QACnC,GAAG,CAAC,IAAI,CACN,uDAAuD,WAAW,CAAC,IAAI,CAAC,cAAc,CAAC,IAAI,CAAC,IAAI,CAAC,CAAC,IAAI,CACvG,CAAA;IACH,CAAC;IAED,MAAM,QAAQ,GAAG,IAAI,GAAG,EAAU,CAAA;IAElC,KAAK,MAAM,IAAI,IAAI,IAAI,CAAC,UAAU,EAAE,CAAC;QACnC,MAAM,EAAE,GAAG,MAAM,CAAC,IAAI,CAAC,IAAI,CAAC,CAAA;QAC5B,QAAQ,CAAC,GAAG,CAAC,EAAE,CAAC,CAAA;QAChB,IAAI,KAAK,GAAG,IAAI,CAAC,IAAI,CAAA;QACrB,IAAI,IAAI,CAAC,QAAQ;YAAE,KAAK,IAAI,sBAAsB,CAAA;QAClD,IAAI,IAAI,CAAC,UAAU;YAAE,KAAK,IAAI,QAAQ,CAAA;QACtC,IAAI,IAAI,CAAC,QAAQ,EAAE,CAAC;YAClB,GAAG,CAAC,IAAI,CAAC,KAAK,EAAE,MAAM,WAAW,CAAC,KAAK,CAAC,KAAK,CAAC,CAAA;QAChD,CAAC;aAAM,IAAI,IAAI,CAAC,IAAI,KAAK,SAAS,EAAE,CAAC;YACnC,GAAG,CAAC,IAAI,CAAC,KAAK,EAAE,MAAM,WAAW,CAAC,KAAK,CAAC,aAAa,CAAC,CAAA;QACxD,CAAC;aAAM,CAAC;YACN,GAAG,CAAC,IAAI,CAAC,KAAK,EAAE,KAAK,WAAW,CAAC,KAAK,CAAC,IAAI,CAAC,CAAA;QAC9C,CAAC;IACH,CAAC;IAED,mEAAmE;IACnE,yDAAyD;IACzD,KAAK,MAAM,IAAI,IAAI,IAAI,CAAC,KAAK,EAAE,CAAC;QAC9B,MAAM,EAAE,GAAG,MAAM,CAAC,IAAI,CAAC,EAAE,CAAC,CAAA;QAC1B,IAAI,QAAQ,CAAC,GAAG,CAAC,EAAE,CAAC;YAAE,SAAQ;QAC9B,QAAQ,CAAC,GAAG,CAAC,EAAE,CAAC,CAAA;QAChB,IAAI,IAAI,CAAC,IAAI,KAAK,MAAM,EAAE,CAAC;YACzB,GAAG,CAAC,IAAI,CAAC,KAAK,EAAE,MAAM,WAAW,CAAC,IAAI,CAAC,EAAE,CAAC,KAAK,CAAC,CAAA;QAClD,CAAC;aAAM,CAAC;YACN,GAAG,CAAC,IAAI,CAAC,KAAK,EAAE,KAAK,WAAW,CAAC,IAAI,CAAC,EAAE,CAAC,oBAAoB,CAAC,CAAA;QAChE,CAAC;IACH,CAAC;IAED,KAAK,MAAM,IAAI,IAAI,IAAI,CAAC,KAAK,EAAE,CAAC;QAC9B,sEAAsE;QACtE,uEAAuE;QACvE,MAAM,KAAK,GAAG,IAAI,CAAC,IAAI,KAAK,cAAc,CAAC,CAAC,CAAC,MAAM,CAAC,CAAC,CAAC,KAAK,CAAA;QAC3D,GAAG,CAAC,IAAI,CAAC,KAAK,MAAM,CAAC,IAAI,CAAC,IAAI,CAAC,IAAI,KAAK,KAAK,WAAW,CAAC,aAAa,CAAC,IAAI,CAAC,CAAC,MAAM,MAAM,CAAC,IAAI,CAAC,EAAE,CAAC,EAAE,CAAC,CAAA;IACvG,CAAC;IAED,OAAO,GAAG,CAAC,IAAI,CAAC,IAAI,CAAC,GAAG,IAAI,CAAA;AAC9B,CAAC;AAED;;;;;GAKG;AACH,MAAM,UAAU,mBAAmB,CAAC,MAAkB;IACpD,MAAM,GAAG,GAAa,CAAC,cAAc,CAAC,CAAA;IACtC,MAAM,QAAQ,GAAG,IAAI,GAAG,EAAU,CAAA;IAElC,KAAK,MAAM,OAAO,IAAI,MAAM,CAAC,QAAQ,EAAE,CAAC;QACtC,MAAM,EAAE,GAAG,MAAM,CAAC,OAAO,CAAC,IAAI,CAAC,CAAA;QAC/B,QAAQ,CAAC,GAAG,CAAC,EAAE,CAAC,CAAA;QAChB,GAAG,CAAC,IAAI,CAAC,KAAK,EAAE,KAAK,WAAW,CAAC,OAAO,CAAC,IAAI,CAAC,IAAI,CAAC,CAAA;IACrD,CAAC;IAED,KAAK,MAAM,IAAI,IAAI,MAAM,CAAC,KAAK,EAAE,CAAC;QAChC,MAAM,EAAE,GAAG,MAAM,CAAC,IAAI,CAAC,SAAS,CAAC,CAAA;QACjC,IAAI,QAAQ,CAAC,GAAG,CAAC,EAAE,CAAC;YAAE,SAAQ;QAC9B,QAAQ,CAAC,GAAG,CAAC,EAAE,CAAC,CAAA;QAChB,MAAM,KAAK,GAAG,IAAI,CAAC,OAAO;YACxB,CAAC,CAAC,GAAG,IAAI,CAAC,SAAS,qBAAqB;YACxC,CAAC,CAAC,GAAG,IAAI,CAAC,SAAS,uBAAuB,CAAA;QAC5C,GAAG,CAAC,IAAI,CAAC,KAAK,EAAE,KAAK,WAAW,CAAC,KAAK,CAAC,IAAI,CAAC,CAAA;IAC9C,CAAC;IAED,KAAK,MAAM,IAAI,IAAI,MAAM,CAAC,KAAK,EAAE,CAAC;QAChC,MAAM,KAAK,GAAG,IAAI,CAAC,OAAO,CAAC,CAAC,CAAC,kBAAkB,IAAI,CAAC,aAAa,GAAG,CAAC,CAAC,CAAC,SAAS,IAAI,CAAC,aAAa,GAAG,CAAA;QACrG,GAAG,CAAC,IAAI,CACN,KAAK,MAAM,CAAC,IAAI,CAAC,WAAW,CAAC,SAAS,WAAW,CAAC,KAAK,CAAC,MAAM,MAAM,CAAC,IAAI,CAAC,SAAS,CAAC,EAAE,CACvF,CAAA;IACH,CAAC;IAED,OAAO,GAAG,CAAC,IAAI,CAAC,IAAI,CAAC,GAAG,IAAI,CAAA;AAC9B,CAAC"}

package/dist/parser.d.ts

@@ -0,0 +1,19 @@
+import type { ParseResult } from './types.js';
+/**
+ * Parsea un copybook COBOL y extrae su esquema de campos.
+ *
+ * Subconjunto cubierto: niveles jerárquicos, PIC (incluidos los editados),
+ * OCCURS (fijo y DEPENDING ON reconocido), REDEFINES, niveles 88, niveles
+ * 66 RENAMES, USAGE (DISPLAY, COMP, COMP-1, COMP-2, COMP-3, BINARY,
+ * PACKED-DECIMAL, POINTER, PROCEDURE-POINTER, FUNCTION-POINTER, INDEX),
+ * SYNCHRONIZED con sus bytes de relleno, VALUE como valor inicial, la
+ * sección de la DATA DIVISION de cada 01 (FILE / WORKING-STORAGE /
+ * LOCAL-STORAGE / LINKAGE), y resolución de COPY (con REPLACING) y EXEC
+ * SQL INCLUDE contra `copybooks`. Un member no aportado en `copybooks`
+ * queda como hueco explícito en `records` y listado en `missingCopybooks`
+ * — nunca se inventa su estructura.
+ *
+ * Fuera del subconjunto, y por tanto ignorado: JUSTIFIED, BLANK WHEN ZERO,
+ * y las secciones REPORT/SCREEN (dejan la sección sin determinar).
+ */
+export declare function parse(source: string, copybooks?: Map<string, string>): ParseResult;

package/dist/parser.js

@@ -0,0 +1,442 @@
+import { alignmentOf, parsePic, usageImpliesFixedSize } from './pic.js';
+import { joinContinuations } from './lines.js';
+import { resolveCopies } from './copy-resolver.js';
+const LEVEL_RE = /^(\d{1,2})\s+([\w-]+)/;
+// El punto es ambiguo en COBOL: dentro de un PIC editado (PIC ZZ,ZZ9.99)
+// es el punto decimal de edición; fuera es el terminador de sentencia. Lo
+// resolvemos con un lookahead: si al punto le sigue un dígito o carácter
+// de edición (Z, 9, *, $, etc.), es parte de la PIC. El `$` (símbolo de
+// moneda) va en el juego de caracteres: sin él, un `PIC $$,$$9.99` no
+// capturaba PIC y el campo se degradaba a un grupo de 0 bytes.
+const PIC_RE = /PIC(?:TURE)?\s+IS\s+([\w()V,\-+*/$]+(?:\.(?=[0-9Z*+\-$])[\w()V,\-+*/$]+)*)|PIC(?:TURE)?\s+([\w()V,\-+*/$]+(?:\.(?=[0-9Z*+\-$])[\w()V,\-+*/$]+)*)/i;
+// El orden importa: las alternativas más largas van primero para que
+// PROCEDURE-POINTER no se lea como POINTER.
+const USAGE_RE = /(?:USAGE\s+IS\s+|USAGE\s+)?\b(COMPUTATIONAL-3|COMPUTATIONAL-2|COMPUTATIONAL-1|COMPUTATIONAL|COMP-3|COMP-2|COMP-1|COMP|BINARY|PACKED-DECIMAL|PROCEDURE-POINTER|FUNCTION-POINTER|POINTER|INDEX|DISPLAY)\b/i;
+const REDEFINES_RE = /REDEFINES\s+([\w-]+)/i;
+// TIMES es opcional en COBOL: `OCCURS 1 TO 10 DEPENDING ON X` (sin TIMES) es
+// la forma más habitual del OCCURS variable, y exigir TIMES dejaba el campo
+// sin reconocer — se trataba como una sola ocurrencia y descuadraba todos
+// los offsets siguientes.
+const OCCURS_RE = /OCCURS\s+(\d+)(?:\s+TO\s+(\d+))?(?:\s+TIMES)?(?:\s+DEPENDING\s+ON\s+([\w-]+))?/i;
+const SIGN_SEPARATE_RE = /SIGN\s+IS\s+(?:LEADING|TRAILING)\s+SEPARATE/i;
+const SYNC_RE = /(?<![\w-])(?:SYNCHRONIZED|SYNC)(?![\w-])/i;
+const RENAMES_RE = /(?<![\w-])RENAMES\s+([\w-]+)(?:\s+(?:THRU|THROUGH)\s+([\w-]+))?/i;
+const VALUE_RE = /VALUES?\s+(?:IS\s+|ARE\s+)?(.+)$/i;
+// VALUE de un campo normal: un solo literal, constante figurativa o número,
+// con un ALL opcional delante. Se lee del texto SIN enmascarar para
+// conservar el literal real.
+const VALUE_FIELD_RE = /(?<![\w-])VALUES?\s+(?:IS\s+)?(ALL\s+)?('[^']*'|"[^"]*"|[+-]?\d+(?:\.\d+)?|[A-Za-z][\w-]*)/i;
+// Cabecera de sección de la DATA DIVISION. Solo las cuatro de almacenamiento
+// de datos; REPORT/SCREEN caen fuera del subconjunto y dejan la sección sin
+// determinar en vez de mal etiquetada.
+const DATA_SECTION_RE = /^\s*(FILE|WORKING-STORAGE|LOCAL-STORAGE|LINKAGE)\s+SECTION\s*\.\s*$/i;
+function canonicalUsage(matched) {
+    const u = matched.toUpperCase();
+    if (u === 'COMPUTATIONAL-3' || u === 'COMP-3')
+        return 'COMP-3';
+    if (u === 'COMPUTATIONAL-2' || u === 'COMP-2')
+        return 'COMP-2';
+    if (u === 'COMPUTATIONAL-1' || u === 'COMP-1')
+        return 'COMP-1';
+    if (u === 'COMPUTATIONAL' || u === 'COMP')
+        return 'COMP';
+    if (u === 'PACKED-DECIMAL')
+        return 'PACKED-DECIMAL';
+    if (u === 'BINARY')
+        return 'BINARY';
+    if (u === 'POINTER')
+        return 'POINTER';
+    if (u === 'PROCEDURE-POINTER')
+        return 'PROCEDURE-POINTER';
+    if (u === 'FUNCTION-POINTER')
+        return 'FUNCTION-POINTER';
+    if (u === 'INDEX')
+        return 'INDEX';
+    return 'DISPLAY';
+}
+function parseConditionValues(stmt) {
+    const match = VALUE_RE.exec(stmt);
+    if (!match)
+        return [];
+    const tokens = match[1].match(/'[^']*'|"[^"]*"|\S+/g) ?? [];
+    return tokens.filter(t => t !== ',');
+}
+function parseStatement(statement) {
+    const stmt = statement.replace(/\.\s*$/, '');
+    const levelMatch = LEVEL_RE.exec(stmt);
+    if (!levelMatch)
+        return undefined;
+    const level = Number(levelMatch[1]);
+    const name = levelMatch[2];
+    // Las cláusulas se buscan solo en lo que sigue a "NIVEL NOMBRE" — si se
+    // buscaran en la sentencia completa, un nombre de campo que contenga una
+    // palabra reservada como componente (p. ej. "SIGNED-DISPLAY") produciría
+    // una cláusula inventada que no está en el fuente.
+    const rawRest = stmt.slice(levelMatch[0].length);
+    if (level === 88) {
+        return { kind: 'condition', name, values: parseConditionValues(rawRest) };
+    }
+    // Un nivel 66 no es un nivel jerárquico: no puede ser hijo de nada ni
+    // tener hijos. Metido en el árbol quedaría colgando del último campo
+    // elemental y le borraría la longitud, porque un campo con hijos toma
+    // la de sus hijos.
+    if (level === 66) {
+        const renames = RENAMES_RE.exec(rawRest);
+        if (!renames)
+            return undefined;
+        return { kind: 'renames', name, from: renames[1], ...(renames[2] ? { thru: renames[2] } : {}) };
+    }
+    // El contenido de un literal no es una cláusula: sin esto, un
+    // `VALUE 'INDEX'` fabricaría un USAGE que el campo no tiene (ADR-0003).
+    // Se conserva la longitud para no descuadrar nada que use posiciones.
+    const rest = rawRest.replace(/'[^']*'|"[^"]*"/g, m => ' '.repeat(m.length));
+    const picMatch = PIC_RE.exec(rest);
+    const picture = picMatch?.[1] ?? picMatch?.[2];
+    const usageMatch = USAGE_RE.exec(rest);
+    const usage = usageMatch ? canonicalUsage(usageMatch[1]) : undefined;
+    const redefinesMatch = REDEFINES_RE.exec(rest);
+    const redefines = redefinesMatch?.[1];
+    const occursMatch = OCCURS_RE.exec(rest);
+    let occurs;
+    let occursDepending;
+    if (occursMatch) {
+        const first = Number(occursMatch[1]);
+        const second = occursMatch[2] ? Number(occursMatch[2]) : undefined;
+        const dependingOn = occursMatch[3];
+        if (dependingOn) {
+            occursDepending = second !== undefined
+                ? { min: first, max: second, dependingOn }
+                : { min: 1, max: first, dependingOn };
+        }
+        else {
+            occurs = first;
+        }
+    }
+    const signSeparate = SIGN_SEPARATE_RE.test(rest);
+    const synchronized = SYNC_RE.test(rest);
+    // El valor inicial se lee del texto sin enmascarar: es justo el literal
+    // que el enmascarado borra. El `ALL` opcional se conserva verbatim.
+    const valueMatch = VALUE_FIELD_RE.exec(rawRest);
+    const value = valueMatch ? `${valueMatch[1] ?? ''}${valueMatch[2]}`.trim() : undefined;
+    return {
+        kind: 'field',
+        level,
+        name,
+        picture,
+        usage,
+        redefines,
+        occurs,
+        occursDepending,
+        signSeparate,
+        synchronized,
+        value,
+    };
+}
+/**
+ * Construye la jerarquía de campos a partir del nivel COBOL, sin resolver
+ * todavía offsets ni longitudes de grupo (eso ocurre en `resolveOffsets`).
+ */
+function buildTree(statements) {
+    const roots = [];
+    const stack = [];
+    let lastField;
+    // Sección de la DATA DIVISION en curso: se estampa en cada 01/77 raíz
+    // que aparezca a partir de su cabecera.
+    let currentSection;
+    for (const raw of statements) {
+        if (raw.kind === 'section') {
+            currentSection = raw.section;
+            continue;
+        }
+        if (raw.kind === 'condition') {
+            if (lastField) {
+                const conditionValue = { name: raw.name, values: raw.values };
+                lastField.conditionValues = [...(lastField.conditionValues ?? []), conditionValue];
+            }
+            continue;
+        }
+        if (raw.kind === 'renames') {
+            // Un 66 renombra un tramo del registro 01 que acaba de describirse,
+            // así que cuelga del último registro raíz — no de la pila, donde
+            // sería un hijo y falsearía longitudes.
+            const record = roots[roots.length - 1];
+            if (record) {
+                const group = {
+                    name: raw.name,
+                    from: raw.from,
+                    ...(raw.thru ? { thru: raw.thru } : {}),
+                };
+                record.renamesGroups = [...(record.renamesGroups ?? []), group];
+            }
+            continue;
+        }
+        if (raw.kind === 'unresolved-copy') {
+            // level:0 y lengthInBytes:0 son sentinelas, no hechos verificados:
+            // ver `type === 'unresolved-copy'` antes de confiar en ellos.
+            const field = {
+                level: 0,
+                name: raw.member,
+                type: 'unresolved-copy',
+                lengthInBytes: 0,
+                offset: 0,
+                children: [],
+                unresolvedCopyMember: raw.member,
+            };
+            // Un COPY no lleva nivel propio, así que no hay número con el que
+            // decidir dónde encaja exactamente. Lo único que sí sabemos: NUNCA
+            // puede ser hijo de un campo elemental (estructuralmente imposible
+            // en COBOL) — así que se desapila hasta el grupo abierto más
+            // profundo. Sigue siendo una elección, no un hecho verificado: con
+            // el member ausente no hay forma de saber si el COPY real habría
+            // cerrado ese grupo o seguido añadiéndole campos.
+            while (stack.length > 0 && stack[stack.length - 1].type !== 'group') {
+                stack.pop();
+            }
+            const parent = stack.length > 0 ? stack[stack.length - 1] : undefined;
+            if (parent) {
+                parent.children.push(field);
+            }
+            else {
+                if (currentSection)
+                    field.dataSection = currentSection;
+                roots.push(field);
+            }
+            lastField = field;
+            continue;
+        }
+        const hasOwnSize = !!raw.picture || usageImpliesFixedSize(raw.usage);
+        const pic = hasOwnSize ? parsePic(raw.picture, raw.usage, { signSeparate: raw.signSeparate }) : undefined;
+        const field = {
+            level: raw.level,
+            name: raw.name,
+            type: pic ? pic.type : 'group',
+            ...(raw.picture ? { picture: raw.picture.toUpperCase().replace(/\s+/g, '') } : {}),
+            ...(raw.usage ? { usage: raw.usage } : {}),
+            lengthInBytes: pic ? pic.lengthInBytes : 0,
+            offset: 0,
+            children: [],
+            ...(raw.redefines ? { redefines: raw.redefines } : {}),
+            ...(raw.occurs !== undefined ? { occurs: raw.occurs } : {}),
+            ...(raw.occursDepending ? { occursDepending: raw.occursDepending } : {}),
+            // Los punteros e índices van alineados aunque no lleven SYNC escrito.
+            ...(raw.synchronized || pic?.type === 'pointer' || pic?.type === 'index'
+                ? { synchronized: true }
+                : {}),
+            ...(raw.value !== undefined ? { value: raw.value } : {}),
+        };
+        while (stack.length > 0 && stack[stack.length - 1].level >= raw.level) {
+            stack.pop();
+        }
+        const parent = stack.length > 0 ? stack[stack.length - 1] : undefined;
+        if (parent) {
+            parent.children.push(field);
+        }
+        else {
+            // La sección solo se estampa en el registro raíz: los hijos son de
+            // la misma por construcción, y repetirla sería ruido.
+            if (currentSection)
+                field.dataSection = currentSection;
+            roots.push(field);
+        }
+        stack.push(field);
+        lastField = field;
+    }
+    return roots;
+}
+/**
+ * Alineación que exige un campo: la suya si es elemental, la mayor de su
+ * contenido si es grupo. No toca nada — se consulta antes de colocar el
+ * campo, cuando sus longitudes finales aún no están calculadas.
+ */
+function requiredAlignment(field) {
+    if (field.children.length === 0) {
+        return alignmentOf(field.type, field.lengthInBytes, field.synchronized === true);
+    }
+    let max = 1;
+    for (const child of field.children) {
+        max = Math.max(max, requiredAlignment(child));
+    }
+    return max;
+}
+/**
+ * Segunda fase: calcula offset y longitud final de cada campo, en orden
+ * dentro de cada nivel de hermanos.
+ *
+ * REDEFINES en COBOL válido siempre aparece contiguo, justo a continuación
+ * del campo que redefine (o de otro REDEFINES del mismo campo) — por eso
+ * un campo con `redefines` toma el offset del "clúster" que sigue abierto,
+ * sin necesidad de buscarlo por nombre. El clúster se cierra al llegar al
+ * siguiente campo que NO redefine nada, y el puntero avanza el **máximo**
+ * de bytes visto entre el campo base y todas sus vistas — igual que COBOL
+ * reserva memoria para la mayor de las vistas solapadas, no solo la base.
+ *
+ * OCCURS ... DEPENDING ON: `lengthInBytes` del propio campo queda como la
+ * longitud de una sola ocurrencia (la longitud real depende de un valor en
+ * tiempo de ejecución, así que no se puede fijar). Para que los campos
+ * siguientes no se solapen con el peor caso, el puntero de offset sí avanza
+ * usando el máximo declarado (o el mínimo si no hay máximo) — una reserva
+ * conservadora, no un valor verificado.
+ *
+ * Huecos sin resolver (type === 'unresolved-copy'): a partir de ahí no se
+ * sabe cuántos bytes ocupa lo que falta, así que calcular el offset del
+ * siguiente campo como si el hueco midiera 0 bytes sería inventar un
+ * número disfrazado de hecho verificado (ADR-0003). En su lugar, se marca
+ * `offsetUnknown: true` en el propio hueco y en todo lo que venga después
+ * en ese mismo nivel — y, si un grupo contiene un hueco en su interior, el
+ * propio grupo (y sus hermanos posteriores en el nivel padre) hereda la
+ * marca también, porque su longitud total ya no es fiable.
+ *
+ * SYNCHRONIZED (y los punteros/índices, alineados de forma implícita):
+ * el offset se redondea al alto hasta la frontera que exige el campo,
+ * medida desde el principio del registro 01. Los bytes de relleno que
+ * quedan delante no son de nadie, pero sí desplazan todo lo que sigue.
+ * Un grupo hereda la mayor alineación de su contenido, y si además lleva
+ * OCCURS su longitud se redondea para que cada ocurrencia empiece
+ * alineada — que es lo que reserva el compilador.
+ *
+ * Devuelve también `alignment`: lo que el nivel entero exige, para que el
+ * padre lo herede.
+ */
+function resolveOffsets(fields, baseOffset) {
+    let offset = baseOffset;
+    let clusterMaxLength = 0;
+    let offsetUnknownFromHere = false;
+    let anyUnknown = false;
+    let groupAlignment = 1;
+    for (const field of fields) {
+        // Hay que saber qué alineación exige el campo ANTES de colocarlo, y
+        // para un grupo eso depende de su contenido. Se mira sin resolver:
+        // resolver dos veces aplicaría dos veces el `*= occurs`.
+        const ownAlignment = requiredAlignment(field);
+        groupAlignment = Math.max(groupAlignment, ownAlignment);
+        if (field.redefines) {
+            field.offset = offset;
+        }
+        else {
+            offset += clusterMaxLength;
+            if (ownAlignment > 1 && offset % ownAlignment !== 0) {
+                offset += ownAlignment - (offset % ownAlignment);
+            }
+            field.offset = offset;
+            clusterMaxLength = 0;
+        }
+        if (offsetUnknownFromHere) {
+            field.offsetUnknown = true;
+        }
+        if (field.type === 'unresolved-copy') {
+            field.offsetUnknown = true;
+            offsetUnknownFromHere = true;
+        }
+        if (field.children.length > 0) {
+            const placed = resolveOffsets(field.children, field.offset);
+            field.lengthInBytes = placed.length;
+            // Cada ocurrencia de un OCCURS tiene que empezar alineada, así que
+            // el compilador rellena el final del grupo hasta el múltiplo.
+            if (field.occurs !== undefined && placed.alignment > 1) {
+                const remainder = field.lengthInBytes % placed.alignment;
+                if (remainder !== 0)
+                    field.lengthInBytes += placed.alignment - remainder;
+            }
+            if (placed.hasUnknown) {
+                field.offsetUnknown = true;
+                offsetUnknownFromHere = true;
+            }
+        }
+        if (field.offsetUnknown) {
+            anyUnknown = true;
+        }
+        if (field.occurs) {
+            field.lengthInBytes *= field.occurs;
+        }
+        const ownLength = field.occursDepending
+            ? field.lengthInBytes * (field.occursDepending.max ?? field.occursDepending.min)
+            : field.lengthInBytes;
+        clusterMaxLength = Math.max(clusterMaxLength, ownLength);
+    }
+    offset += clusterMaxLength;
+    return { length: offset - baseOffset, hasUnknown: anyUnknown, alignment: groupAlignment };
+}
+/**
+ * Resuelve el offset y la longitud de cada nivel 66 contra el registro ya
+ * calculado. Si algún extremo del rango no aparece en el fuente aportado
+ * —está en un copybook que falta, por ejemplo— se deja sin resolver en vez
+ * de estimarlo (ADR-0003).
+ */
+function resolveRenames(record) {
+    const byName = new Map();
+    const collect = (field) => {
+        byName.set(field.name.toUpperCase(), field);
+        for (const child of field.children)
+            collect(child);
+    };
+    collect(record);
+    for (const group of record.renamesGroups ?? []) {
+        const from = byName.get(group.from.toUpperCase());
+        const thru = group.thru ? byName.get(group.thru.toUpperCase()) : from;
+        if (!from || !thru)
+            continue;
+        if (from.offsetUnknown || thru.offsetUnknown)
+            continue;
+        group.offset = from.offset;
+        group.lengthInBytes = thru.offset + thru.lengthInBytes - from.offset;
+    }
+}
+/**
+ * Parsea un copybook COBOL y extrae su esquema de campos.
+ *
+ * Subconjunto cubierto: niveles jerárquicos, PIC (incluidos los editados),
+ * OCCURS (fijo y DEPENDING ON reconocido), REDEFINES, niveles 88, niveles
+ * 66 RENAMES, USAGE (DISPLAY, COMP, COMP-1, COMP-2, COMP-3, BINARY,
+ * PACKED-DECIMAL, POINTER, PROCEDURE-POINTER, FUNCTION-POINTER, INDEX),
+ * SYNCHRONIZED con sus bytes de relleno, VALUE como valor inicial, la
+ * sección de la DATA DIVISION de cada 01 (FILE / WORKING-STORAGE /
+ * LOCAL-STORAGE / LINKAGE), y resolución de COPY (con REPLACING) y EXEC
+ * SQL INCLUDE contra `copybooks`. Un member no aportado en `copybooks`
+ * queda como hueco explícito en `records` y listado en `missingCopybooks`
+ * — nunca se inventa su estructura.
+ *
+ * Fuera del subconjunto, y por tanto ignorado: JUSTIFIED, BLANK WHEN ZERO,
+ * y las secciones REPORT/SCREEN (dejan la sección sin determinar).
+ */
+export function parse(source, copybooks = new Map()) {
+    // Si el fuente es un programa completo, la definición de datos termina
+    // donde empieza la PROCEDURE DIVISION — nada de lo que sigue es un campo.
+    const allLines = source.split(/\r?\n/);
+    const procedureIndex = allLines.findIndex(line => {
+        const body = line.length > 6 ? line.slice(6) : line;
+        return /^\s*PROCEDURE\s+DIVISION/i.test(body);
+    });
+    const dataLines = procedureIndex === -1 ? allLines : allLines.slice(0, procedureIndex);
+    const rawStatements = joinContinuations(dataLines);
+    // Los nombres de member son case-insensitive: el mapa se normaliza a
+    // mayúsculas para que el lookup de resolveCopies siempre encaje.
+    const normalizedCopybooks = new Map([...copybooks].map(([name, text]) => [name.toUpperCase(), text]));
+    const { statements: resolved, missingCopybooks } = resolveCopies(rawStatements, normalizedCopybooks);
+    const statements = [];
+    for (const item of resolved) {
+        if (item.kind === 'unresolved-copy') {
+            statements.push({ kind: 'unresolved-copy', member: item.member });
+            continue;
+        }
+        // Una cabecera de sección no es un campo, pero marca de dónde vienen
+        // los 01 que la siguen (¿parámetro por LINKAGE, o dato propio?).
+        const sectionMatch = DATA_SECTION_RE.exec(item.statement);
+        if (sectionMatch) {
+            statements.push({ kind: 'section', section: sectionMatch[1].toUpperCase() });
+            continue;
+        }
+        const parsed = parseStatement(item.statement);
+        if (parsed)
+            statements.push(parsed);
+    }
+    const roots = buildTree(statements);
+    // Cada 01/77 de nivel raíz es un área de almacenamiento independiente
+    // (no hay FD ni FILE SECTION en el alcance de un copybook): sus offsets
+    // internos son relativos a su propio inicio, no continúan entre records.
+    for (const root of roots) {
+        resolveOffsets([root], 0);
+        resolveRenames(root);
+    }
+    return { records: roots, missingCopybooks };
+}
+//# sourceMappingURL=parser.js.map

package/dist/parser.js.map

@@ -0,0 +1 @@
+{"version":3,"file":"parser.js","sourceRoot":"","sources":["../src/parser.ts"],"names":[],"mappings":"AAQA,OAAO,EAAE,WAAW,EAAE,QAAQ,EAAE,qBAAqB,EAAE,MAAM,UAAU,CAAA;AACvE,OAAO,EAAE,iBAAiB,EAAE,MAAM,YAAY,CAAA;AAC9C,OAAO,EAAE,aAAa,EAAE,MAAM,oBAAoB,CAAA;AAyClD,MAAM,QAAQ,GAAG,uBAAuB,CAAA;AACxC,yEAAyE;AACzE,0EAA0E;AAC1E,yEAAyE;AACzE,wEAAwE;AACxE,sEAAsE;AACtE,+DAA+D;AAC/D,MAAM,MAAM,GAAG,mJAAmJ,CAAA;AAClK,qEAAqE;AACrE,4CAA4C;AAC5C,MAAM,QAAQ,GAAG,0MAA0M,CAAA;AAC3N,MAAM,YAAY,GAAG,uBAAuB,CAAA;AAC5C,6EAA6E;AAC7E,4EAA4E;AAC5E,0EAA0E;AAC1E,0BAA0B;AAC1B,MAAM,SAAS,GAAG,iFAAiF,CAAA;AACnG,MAAM,gBAAgB,GAAG,8CAA8C,CAAA;AACvE,MAAM,OAAO,GAAG,2CAA2C,CAAA;AAC3D,MAAM,UAAU,GAAG,kEAAkE,CAAA;AACrF,MAAM,QAAQ,GAAG,mCAAmC,CAAA;AACpD,4EAA4E;AAC5E,oEAAoE;AACpE,6BAA6B;AAC7B,MAAM,cAAc,GAClB,6FAA6F,CAAA;AAC/F,6EAA6E;AAC7E,4EAA4E;AAC5E,uCAAuC;AACvC,MAAM,eAAe,GAAG,sEAAsE,CAAA;AAE9F,SAAS,cAAc,CAAC,OAAe;IACrC,MAAM,CAAC,GAAG,OAAO,CAAC,WAAW,EAAE,CAAA;IAC/B,IAAI,CAAC,KAAK,iBAAiB,IAAI,CAAC,KAAK,QAAQ;QAAE,OAAO,QAAQ,CAAA;IAC9D,IAAI,CAAC,KAAK,iBAAiB,IAAI,CAAC,KAAK,QAAQ;QAAE,OAAO,QAAQ,CAAA;IAC9D,IAAI,CAAC,KAAK,iBAAiB,IAAI,CAAC,KAAK,QAAQ;QAAE,OAAO,QAAQ,CAAA;IAC9D,IAAI,CAAC,KAAK,eAAe,IAAI,CAAC,KAAK,MAAM;QAAE,OAAO,MAAM,CAAA;IACxD,IAAI,CAAC,KAAK,gBAAgB;QAAE,OAAO,gBAAgB,CAAA;IACnD,IAAI,CAAC,KAAK,QAAQ;QAAE,OAAO,QAAQ,CAAA;IACnC,IAAI,CAAC,KAAK,SAAS;QAAE,OAAO,SAAS,CAAA;IACrC,IAAI,CAAC,KAAK,mBAAmB;QAAE,OAAO,mBAAmB,CAAA;IACzD,IAAI,CAAC,KAAK,kBAAkB;QAAE,OAAO,kBAAkB,CAAA;IACvD,IAAI,CAAC,KAAK,OAAO;QAAE,OAAO,OAAO,CAAA;IACjC,OAAO,SAAS,CAAA;AAClB,CAAC;AAED,SAAS,oBAAoB,CAAC,IAAY;IACxC,MAAM,KAAK,GAAG,QAAQ,CAAC,IAAI,CAAC,IAAI,CAAC,CAAA;IACjC,IAAI,CAAC,KAAK;QAAE,OAAO,EAAE,CAAA;IACrB,MAAM,MAAM,GAAG,KAAK,CAAC,CAAC,CAAE,CAAC,KAAK,CAAC,sBAAsB,CAAC,IAAI,EAAE,CAAA;IAC5D,OAAO,MAAM,CAAC,MAAM,CAAC,CAAC,CAAC,EAAE,CAAC,CAAC,KAAK,GAAG,CAAC,CAAA;AACtC,CAAC;AAED,SAAS,cAAc,CAAC,SAAiB;IACvC,MAAM,IAAI,GAAG,SAAS,CAAC,OAAO,CAAC,QAAQ,EAAE,EAAE,CAAC,CAAA;IAC5C,MAAM,UAAU,GAAG,QAAQ,CAAC,IAAI,CAAC,IAAI,CAAC,CAAA;IACtC,IAAI,CAAC,UAAU;QAAE,OAAO,SAAS,CAAA;IAEjC,MAAM,KAAK,GAAG,MAAM,CAAC,UAAU,CAAC,CAAC,CAAC,CAAC,CAAA;IACnC,MAAM,IAAI,GAAG,UAAU,CAAC,CAAC,CAAE,CAAA;IAC3B,wEAAwE;IACxE,yEAAyE;IACzE,yEAAyE;IACzE,mDAAmD;IACnD,MAAM,OAAO,GAAG,IAAI,CAAC,KAAK,CAAC,UAAU,CAAC,CAAC,CAAC,CAAC,MAAM,CAAC,CAAA;IAEhD,IAAI,KAAK,KAAK,EAAE,EAAE,CAAC;QACjB,OAAO,EAAE,IAAI,EAAE,WAAW,EAAE,IAAI,EAAE,MAAM,EAAE,oBAAoB,CAAC,OAAO,CAAC,EAAE,CAAA;IAC3E,CAAC;IAED,sEAAsE;IACtE,qEAAqE;IACrE,sEAAsE;IACtE,mBAAmB;IACnB,IAAI,KAAK,KAAK,EAAE,EAAE,CAAC;QACjB,MAAM,OAAO,GAAG,UAAU,CAAC,IAAI,CAAC,OAAO,CAAC,CAAA;QACxC,IAAI,CAAC,OAAO;YAAE,OAAO,SAAS,CAAA;QAC9B,OAAO,EAAE,IAAI,EAAE,SAAS,EAAE,IAAI,EAAE,IAAI,EAAE,OAAO,CAAC,CAAC,CAAE,EAAE,GAAG,CAAC,OAAO,CAAC,CAAC,CAAC,CAAC,CAAC,CAAC,EAAE,IAAI,EAAE,OAAO,CAAC,CAAC,CAAC,EAAE,CAAC,CAAC,CAAC,EAAE,CAAC,EAAE,CAAA;IAClG,CAAC;IAED,8DAA8D;IAC9D,wEAAwE;IACxE,sEAAsE;IACtE,MAAM,IAAI,GAAG,OAAO,CAAC,OAAO,CAAC,kBAAkB,EAAE,CAAC,CAAC,EAAE,CAAC,GAAG,CAAC,MAAM,CAAC,CAAC,CAAC,MAAM,CAAC,CAAC,CAAA;IAE3E,MAAM,QAAQ,GAAG,MAAM,CAAC,IAAI,CAAC,IAAI,CAAC,CAAA;IAClC,MAAM,OAAO,GAAG,QAAQ,EAAE,CAAC,CAAC,CAAC,IAAI,QAAQ,EAAE,CAAC,CAAC,CAAC,CAAA;IAE9C,MAAM,UAAU,GAAG,QAAQ,CAAC,IAAI,CAAC,IAAI,CAAC,CAAA;IACtC,MAAM,KAAK,GAAG,UAAU,CAAC,CAAC,CAAC,cAAc,CAAC,UAAU,CAAC,CAAC,CAAE,CAAC,CAAC,CAAC,CAAC,SAAS,CAAA;IAErE,MAAM,cAAc,GAAG,YAAY,CAAC,IAAI,CAAC,IAAI,CAAC,CAAA;IAC9C,MAAM,SAAS,GAAG,cAAc,EAAE,CAAC,CAAC,CAAC,CAAA;IAErC,MAAM,WAAW,GAAG,SAAS,CAAC,IAAI,CAAC,IAAI,CAAC,CAAA;IACxC,IAAI,MAA0B,CAAA;IAC9B,IAAI,eAA4C,CAAA;IAChD,IAAI,WAAW,EAAE,CAAC;QAChB,MAAM,KAAK,GAAG,MAAM,CAAC,WAAW,CAAC,CAAC,CAAC,CAAC,CAAA;QACpC,MAAM,MAAM,GAAG,WAAW,CAAC,CAAC,CAAC,CAAC,CAAC,CAAC,MAAM,CAAC,WAAW,CAAC,CAAC,CAAC,CAAC,CAAC,CAAC,CAAC,SAAS,CAAA;QAClE,MAAM,WAAW,GAAG,WAAW,CAAC,CAAC,CAAC,CAAA;QAClC,IAAI,WAAW,EAAE,CAAC;YAChB,eAAe,GAAG,MAAM,KAAK,SAAS;gBACpC,CAAC,CAAC,EAAE,GAAG,EAAE,KAAK,EAAE,GAAG,EAAE,MAAM,EAAE,WAAW,EAAE;gBAC1C,CAAC,CAAC,EAAE,GAAG,EAAE,CAAC,EAAE,GAAG,EAAE,KAAK,EAAE,WAAW,EAAE,CAAA;QACzC,CAAC;aAAM,CAAC;YACN,MAAM,GAAG,KAAK,CAAA;QAChB,CAAC;IACH,CAAC;IAED,MAAM,YAAY,GAAG,gBAAgB,CAAC,IAAI,CAAC,IAAI,CAAC,CAAA;IAChD,MAAM,YAAY,GAAG,OAAO,CAAC,IAAI,CAAC,IAAI,CAAC,CAAA;IAEvC,wEAAwE;IACxE,oEAAoE;IACpE,MAAM,UAAU,GAAG,cAAc,CAAC,IAAI,CAAC,OAAO,CAAC,CAAA;IAC/C,MAAM,KAAK,GAAG,UAAU,CAAC,CAAC,CAAC,GAAG,UAAU,CAAC,CAAC,CAAC,IAAI,EAAE,GAAG,UAAU,CAAC,CAAC,CAAE,EAAE,CAAC,IAAI,EAAE,CAAC,CAAC,CAAC,SAAS,CAAA;IAEvF,OAAO;QACL,IAAI,EAAE,OAAO;QACb,KAAK;QACL,IAAI;QACJ,OAAO;QACP,KAAK;QACL,SAAS;QACT,MAAM;QACN,eAAe;QACf,YAAY;QACZ,YAAY;QACZ,KAAK;KACN,CAAA;AACH,CAAC;AAED;;;GAGG;AACH,SAAS,SAAS,CAAC,UAA0B;IAC3C,MAAM,KAAK,GAAkB,EAAE,CAAA;IAC/B,MAAM,KAAK,GAAkB,EAAE,CAAA;IAC/B,IAAI,SAAkC,CAAA;IACtC,sEAAsE;IACtE,wCAAwC;IACxC,IAAI,cAAuC,CAAA;IAE3C,KAAK,MAAM,GAAG,IAAI,UAAU,EAAE,CAAC;QAC7B,IAAI,GAAG,CAAC,IAAI,KAAK,SAAS,EAAE,CAAC;YAC3B,cAAc,GAAG,GAAG,CAAC,OAAO,CAAA;YAC5B,SAAQ;QACV,CAAC;QAED,IAAI,GAAG,CAAC,IAAI,KAAK,WAAW,EAAE,CAAC;YAC7B,IAAI,SAAS,EAAE,CAAC;gBACd,MAAM,cAAc,GAAmB,EAAE,IAAI,EAAE,GAAG,CAAC,IAAI,EAAE,MAAM,EAAE,GAAG,CAAC,MAAM,EAAE,CAAA;gBAC7E,SAAS,CAAC,eAAe,GAAG,CAAC,GAAG,CAAC,SAAS,CAAC,eAAe,IAAI,EAAE,CAAC,EAAE,cAAc,CAAC,CAAA;YACpF,CAAC;YACD,SAAQ;QACV,CAAC;QAED,IAAI,GAAG,CAAC,IAAI,KAAK,SAAS,EAAE,CAAC;YAC3B,oEAAoE;YACpE,iEAAiE;YACjE,wCAAwC;YACxC,MAAM,MAAM,GAAG,KAAK,CAAC,KAAK,CAAC,MAAM,GAAG,CAAC,CAAC,CAAA;YACtC,IAAI,MAAM,EAAE,CAAC;gBACX,MAAM,KAAK,GAAiB;oBAC1B,IAAI,EAAE,GAAG,CAAC,IAAI;oBACd,IAAI,EAAE,GAAG,CAAC,IAAI;oBACd,GAAG,CAAC,GAAG,CAAC,IAAI,CAAC,CAAC,CAAC,EAAE,IAAI,EAAE,GAAG,CAAC,IAAI,EAAE,CAAC,CAAC,CAAC,EAAE,CAAC;iBACxC,CAAA;gBACD,MAAM,CAAC,aAAa,GAAG,CAAC,GAAG,CAAC,MAAM,CAAC,aAAa,IAAI,EAAE,CAAC,EAAE,KAAK,CAAC,CAAA;YACjE,CAAC;YACD,SAAQ;QACV,CAAC;QAED,IAAI,GAAG,CAAC,IAAI,KAAK,iBAAiB,EAAE,CAAC;YACnC,mEAAmE;YACnE,8DAA8D;YAC9D,MAAM,KAAK,GAAgB;gBACzB,KAAK,EAAE,CAAC;gBACR,IAAI,EAAE,GAAG,CAAC,MAAM;gBAChB,IAAI,EAAE,iBAAiB;gBACvB,aAAa,EAAE,CAAC;gBAChB,MAAM,EAAE,CAAC;gBACT,QAAQ,EAAE,EAAE;gBACZ,oBAAoB,EAAE,GAAG,CAAC,MAAM;aACjC,CAAA;YAED,kEAAkE;YAClE,mEAAmE;YACnE,mEAAmE;YACnE,6DAA6D;YAC7D,mEAAmE;YACnE,iEAAiE;YACjE,kDAAkD;YAClD,OAAO,KAAK,CAAC,MAAM,GAAG,CAAC,IAAI,KAAK,CAAC,KAAK,CAAC,MAAM,GAAG,CAAC,CAAE,CAAC,IAAI,KAAK,OAAO,EAAE,CAAC;gBACrE,KAAK,CAAC,GAAG,EAAE,CAAA;YACb,CAAC;YAED,MAAM,MAAM,GAAG,KAAK,CAAC,MAAM,GAAG,CAAC,CAAC,CAAC,CAAC,KAAK,CAAC,KAAK,CAAC,MAAM,GAAG,CAAC,CAAC,CAAC,CAAC,CAAC,SAAS,CAAA;YACrE,IAAI,MAAM,EAAE,CAAC;gBACX,MAAM,CAAC,QAAQ,CAAC,IAAI,CAAC,KAAK,CAAC,CAAA;YAC7B,CAAC;iBAAM,CAAC;gBACN,IAAI,cAAc;oBAAE,KAAK,CAAC,WAAW,GAAG,cAAc,CAAA;gBACtD,KAAK,CAAC,IAAI,CAAC,KAAK,CAAC,CAAA;YACnB,CAAC;YAED,SAAS,GAAG,KAAK,CAAA;YACjB,SAAQ;QACV,CAAC;QAED,MAAM,UAAU,GAAG,CAAC,CAAC,GAAG,CAAC,OAAO,IAAI,qBAAqB,CAAC,GAAG,CAAC,KAAK,CAAC,CAAA;QACpE,MAAM,GAAG,GAAG,UAAU,CAAC,CAAC,CAAC,QAAQ,CAAC,GAAG,CAAC,OAAO,EAAE,GAAG,CAAC,KAAK,EAAE,EAAE,YAAY,EAAE,GAAG,CAAC,YAAY,EAAE,CAAC,CAAC,CAAC,CAAC,SAAS,CAAA;QAEzG,MAAM,KAAK,GAAgB;YACzB,KAAK,EAAE,GAAG,CAAC,KAAK;YAChB,IAAI,EAAE,GAAG,CAAC,IAAI;YACd,IAAI,EAAE,GAAG,CAAC,CAAC,CAAC,GAAG,CAAC,IAAI,CAAC,CAAC,CAAC,OAAO;YAC9B,GAAG,CAAC,GAAG,CAAC,OAAO,CAAC,CAAC,CAAC,EAAE,OAAO,EAAE,GAAG,CAAC,OAAO,CAAC,WAAW,EAAE,CAAC,OAAO,CAAC,MAAM,EAAE,EAAE,CAAC,EAAE,CAAC,CAAC,CAAC,EAAE,CAAC;YAClF,GAAG,CAAC,GAAG,CAAC,KAAK,CAAC,CAAC,CAAC,EAAE,KAAK,EAAE,GAAG,CAAC,KAAK,EAAE,CAAC,CAAC,CAAC,EAAE,CAAC;YAC1C,aAAa,EAAE,GAAG,CAAC,CAAC,CAAC,GAAG,CAAC,aAAa,CAAC,CAAC,CAAC,CAAC;YAC1C,MAAM,EAAE,CAAC;YACT,QAAQ,EAAE,EAAE;YACZ,GAAG,CAAC,GAAG,CAAC,SAAS,CAAC,CAAC,CAAC,EAAE,SAAS,EAAE,GAAG,CAAC,SAAS,EAAE,CAAC,CAAC,CAAC,EAAE,CAAC;YACtD,GAAG,CAAC,GAAG,CAAC,MAAM,KAAK,SAAS,CAAC,CAAC,CAAC,EAAE,MAAM,EAAE,GAAG,CAAC,MAAM,EAAE,CAAC,CAAC,CAAC,EAAE,CAAC;YAC3D,GAAG,CAAC,GAAG,CAAC,eAAe,CAAC,CAAC,CAAC,EAAE,eAAe,EAAE,GAAG,CAAC,eAAe,EAAE,CAAC,CAAC,CAAC,EAAE,CAAC;YACxE,sEAAsE;YACtE,GAAG,CAAC,GAAG,CAAC,YAAY,IAAI,GAAG,EAAE,IAAI,KAAK,SAAS,IAAI,GAAG,EAAE,IAAI,KAAK,OAAO;gBACtE,CAAC,CAAC,EAAE,YAAY,EAAE,IAAI,EAAE;gBACxB,CAAC,CAAC,EAAE,CAAC;YACP,GAAG,CAAC,GAAG,CAAC,KAAK,KAAK,SAAS,CAAC,CAAC,CAAC,EAAE,KAAK,EAAE,GAAG,CAAC,KAAK,EAAE,CAAC,CAAC,CAAC,EAAE,CAAC;SACzD,CAAA;QAED,OAAO,KAAK,CAAC,MAAM,GAAG,CAAC,IAAI,KAAK,CAAC,KAAK,CAAC,MAAM,GAAG,CAAC,CAAE,CAAC,KAAK,IAAI,GAAG,CAAC,KAAK,EAAE,CAAC;YACvE,KAAK,CAAC,GAAG,EAAE,CAAA;QACb,CAAC;QAED,MAAM,MAAM,GAAG,KAAK,CAAC,MAAM,GAAG,CAAC,CAAC,CAAC,CAAC,KAAK,CAAC,KAAK,CAAC,MAAM,GAAG,CAAC,CAAC,CAAC,CAAC,CAAC,SAAS,CAAA;QAErE,IAAI,MAAM,EAAE,CAAC;YACX,MAAM,CAAC,QAAQ,CAAC,IAAI,CAAC,KAAK,CAAC,CAAA;QAC7B,CAAC;aAAM,CAAC;YACN,mEAAmE;YACnE,sDAAsD;YACtD,IAAI,cAAc;gBAAE,KAAK,CAAC,WAAW,GAAG,cAAc,CAAA;YACtD,KAAK,CAAC,IAAI,CAAC,KAAK,CAAC,CAAA;QACnB,CAAC;QAED,KAAK,CAAC,IAAI,CAAC,KAAK,CAAC,CAAA;QACjB,SAAS,GAAG,KAAK,CAAA;IACnB,CAAC;IAED,OAAO,KAAK,CAAA;AACd,CAAC;AAED;;;;GAIG;AACH,SAAS,iBAAiB,CAAC,KAAkB;IAC3C,IAAI,KAAK,CAAC,QAAQ,CAAC,MAAM,KAAK,CAAC,EAAE,CAAC;QAChC,OAAO,WAAW,CAAC,KAAK,CAAC,IAAI,EAAE,KAAK,CAAC,aAAa,EAAE,KAAK,CAAC,YAAY,KAAK,IAAI,CAAC,CAAA;IAClF,CAAC;IACD,IAAI,GAAG,GAAG,CAAC,CAAA;IACX,KAAK,MAAM,KAAK,IAAI,KAAK,CAAC,QAAQ,EAAE,CAAC;QACnC,GAAG,GAAG,IAAI,CAAC,GAAG,CAAC,GAAG,EAAE,iBAAiB,CAAC,KAAK,CAAC,CAAC,CAAA;IAC/C,CAAC;IACD,OAAO,GAAG,CAAA;AACZ,CAAC;AAED;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;GAsCG;AACH,SAAS,cAAc,CACrB,MAAqB,EACrB,UAAkB;IAElB,IAAI,MAAM,GAAG,UAAU,CAAA;IACvB,IAAI,gBAAgB,GAAG,CAAC,CAAA;IACxB,IAAI,qBAAqB,GAAG,KAAK,CAAA;IACjC,IAAI,UAAU,GAAG,KAAK,CAAA;IACtB,IAAI,cAAc,GAAG,CAAC,CAAA;IAEtB,KAAK,MAAM,KAAK,IAAI,MAAM,EAAE,CAAC;QAC3B,oEAAoE;QACpE,mEAAmE;QACnE,yDAAyD;QACzD,MAAM,YAAY,GAAG,iBAAiB,CAAC,KAAK,CAAC,CAAA;QAC7C,cAAc,GAAG,IAAI,CAAC,GAAG,CAAC,cAAc,EAAE,YAAY,CAAC,CAAA;QAEvD,IAAI,KAAK,CAAC,SAAS,EAAE,CAAC;YACpB,KAAK,CAAC,MAAM,GAAG,MAAM,CAAA;QACvB,CAAC;aAAM,CAAC;YACN,MAAM,IAAI,gBAAgB,CAAA;YAC1B,IAAI,YAAY,GAAG,CAAC,IAAI,MAAM,GAAG,YAAY,KAAK,CAAC,EAAE,CAAC;gBACpD,MAAM,IAAI,YAAY,GAAG,CAAC,MAAM,GAAG,YAAY,CAAC,CAAA;YAClD,CAAC;YACD,KAAK,CAAC,MAAM,GAAG,MAAM,CAAA;YACrB,gBAAgB,GAAG,CAAC,CAAA;QACtB,CAAC;QAED,IAAI,qBAAqB,EAAE,CAAC;YAC1B,KAAK,CAAC,aAAa,GAAG,IAAI,CAAA;QAC5B,CAAC;QACD,IAAI,KAAK,CAAC,IAAI,KAAK,iBAAiB,EAAE,CAAC;YACrC,KAAK,CAAC,aAAa,GAAG,IAAI,CAAA;YAC1B,qBAAqB,GAAG,IAAI,CAAA;QAC9B,CAAC;QAED,IAAI,KAAK,CAAC,QAAQ,CAAC,MAAM,GAAG,CAAC,EAAE,CAAC;YAC9B,MAAM,MAAM,GAAG,cAAc,CAAC,KAAK,CAAC,QAAQ,EAAE,KAAK,CAAC,MAAM,CAAC,CAAA;YAC3D,KAAK,CAAC,aAAa,GAAG,MAAM,CAAC,MAAM,CAAA;YACnC,mEAAmE;YACnE,8DAA8D;YAC9D,IAAI,KAAK,CAAC,MAAM,KAAK,SAAS,IAAI,MAAM,CAAC,SAAS,GAAG,CAAC,EAAE,CAAC;gBACvD,MAAM,SAAS,GAAG,KAAK,CAAC,aAAa,GAAG,MAAM,CAAC,SAAS,CAAA;gBACxD,IAAI,SAAS,KAAK,CAAC;oBAAE,KAAK,CAAC,aAAa,IAAI,MAAM,CAAC,SAAS,GAAG,SAAS,CAAA;YAC1E,CAAC;YACD,IAAI,MAAM,CAAC,UAAU,EAAE,CAAC;gBACtB,KAAK,CAAC,aAAa,GAAG,IAAI,CAAA;gBAC1B,qBAAqB,GAAG,IAAI,CAAA;YAC9B,CAAC;QACH,CAAC;QAED,IAAI,KAAK,CAAC,aAAa,EAAE,CAAC;YACxB,UAAU,GAAG,IAAI,CAAA;QACnB,CAAC;QAED,IAAI,KAAK,CAAC,MAAM,EAAE,CAAC;YACjB,KAAK,CAAC,aAAa,IAAI,KAAK,CAAC,MAAM,CAAA;QACrC,CAAC;QAED,MAAM,SAAS,GAAG,KAAK,CAAC,eAAe;YACrC,CAAC,CAAC,KAAK,CAAC,aAAa,GAAG,CAAC,KAAK,CAAC,eAAe,CAAC,GAAG,IAAI,KAAK,CAAC,eAAe,CAAC,GAAG,CAAC;YAChF,CAAC,CAAC,KAAK,CAAC,aAAa,CAAA;QAEvB,gBAAgB,GAAG,IAAI,CAAC,GAAG,CAAC,gBAAgB,EAAE,SAAS,CAAC,CAAA;IAC1D,CAAC;IAED,MAAM,IAAI,gBAAgB,CAAA;IAC1B,OAAO,EAAE,MAAM,EAAE,MAAM,GAAG,UAAU,EAAE,UAAU,EAAE,UAAU,EAAE,SAAS,EAAE,cAAc,EAAE,CAAA;AAC3F,CAAC;AAED;;;;;GAKG;AACH,SAAS,cAAc,CAAC,MAAmB;IACzC,MAAM,MAAM,GAAG,IAAI,GAAG,EAAuB,CAAA;IAC7C,MAAM,OAAO,GAAG,CAAC,KAAkB,EAAQ,EAAE;QAC3C,MAAM,CAAC,GAAG,CAAC,KAAK,CAAC,IAAI,CAAC,WAAW,EAAE,EAAE,KAAK,CAAC,CAAA;QAC3C,KAAK,MAAM,KAAK,IAAI,KAAK,CAAC,QAAQ;YAAE,OAAO,CAAC,KAAK,CAAC,CAAA;IACpD,CAAC,CAAA;IACD,OAAO,CAAC,MAAM,CAAC,CAAA;IAEf,KAAK,MAAM,KAAK,IAAI,MAAM,CAAC,aAAa,IAAI,EAAE,EAAE,CAAC;QAC/C,MAAM,IAAI,GAAG,MAAM,CAAC,GAAG,CAAC,KAAK,CAAC,IAAI,CAAC,WAAW,EAAE,CAAC,CAAA;QACjD,MAAM,IAAI,GAAG,KAAK,CAAC,IAAI,CAAC,CAAC,CAAC,MAAM,CAAC,GAAG,CAAC,KAAK,CAAC,IAAI,CAAC,WAAW,EAAE,CAAC,CAAC,CAAC,CAAC,IAAI,CAAA;QACrE,IAAI,CAAC,IAAI,IAAI,CAAC,IAAI;YAAE,SAAQ;QAC5B,IAAI,IAAI,CAAC,aAAa,IAAI,IAAI,CAAC,aAAa;YAAE,SAAQ;QACtD,KAAK,CAAC,MAAM,GAAG,IAAI,CAAC,MAAM,CAAA;QAC1B,KAAK,CAAC,aAAa,GAAG,IAAI,CAAC,MAAM,GAAG,IAAI,CAAC,aAAa,GAAG,IAAI,CAAC,MAAM,CAAA;IACtE,CAAC;AACH,CAAC;AAED;;;;;;;;;;;;;;;;GAgBG;AACH,MAAM,UAAU,KAAK,CAAC,MAAc,EAAE,YAAiC,IAAI,GAAG,EAAE;IAC9E,uEAAuE;IACvE,0EAA0E;IAC1E,MAAM,QAAQ,GAAG,MAAM,CAAC,KAAK,CAAC,OAAO,CAAC,CAAA;IACtC,MAAM,cAAc,GAAG,QAAQ,CAAC,SAAS,CAAC,IAAI,CAAC,EAAE;QAC/C,MAAM,IAAI,GAAG,IAAI,CAAC,MAAM,GAAG,CAAC,CAAC,CAAC,CAAC,IAAI,CAAC,KAAK,CAAC,CAAC,CAAC,CAAC,CAAC,CAAC,IAAI,CAAA;QACnD,OAAO,2BAA2B,CAAC,IAAI,CAAC,IAAI,CAAC,CAAA;IAC/C,CAAC,CAAC,CAAA;IACF,MAAM,SAAS,GAAG,cAAc,KAAK,CAAC,CAAC,CAAC,CAAC,CAAC,QAAQ,CAAC,CAAC,CAAC,QAAQ,CAAC,KAAK,CAAC,CAAC,EAAE,cAAc,CAAC,CAAA;IAEtF,MAAM,aAAa,GAAG,iBAAiB,CAAC,SAAS,CAAC,CAAA;IAClD,qEAAqE;IACrE,iEAAiE;IACjE,MAAM,mBAAmB,GAAG,IAAI,GAAG,CACjC,CAAC,GAAG,SAAS,CAAC,CAAC,GAAG,CAAC,CAAC,CAAC,IAAI,EAAE,IAAI,CAAC,EAAE,EAAE,CAAC,CAAC,IAAI,CAAC,WAAW,EAAE,EAAE,IAAI,CAAU,CAAC,CAC1E,CAAA;IACD,MAAM,EAAE,UAAU,EAAE,QAAQ,EAAE,gBAAgB,EAAE,GAAG,aAAa,CAAC,aAAa,EAAE,mBAAmB,CAAC,CAAA;IAEpG,MAAM,UAAU,GAAmB,EAAE,CAAA;IACrC,KAAK,MAAM,IAAI,IAAI,QAAQ,EAAE,CAAC;QAC5B,IAAI,IAAI,CAAC,IAAI,KAAK,iBAAiB,EAAE,CAAC;YACpC,UAAU,CAAC,IAAI,CAAC,EAAE,IAAI,EAAE,iBAAiB,EAAE,MAAM,EAAE,IAAI,CAAC,MAAM,EAAE,CAAC,CAAA;YACjE,SAAQ;QACV,CAAC;QACD,qEAAqE;QACrE,iEAAiE;QACjE,MAAM,YAAY,GAAG,eAAe,CAAC,IAAI,CAAC,IAAI,CAAC,SAAS,CAAC,CAAA;QACzD,IAAI,YAAY,EAAE,CAAC;YACjB,UAAU,CAAC,IAAI,CAAC,EAAE,IAAI,EAAE,SAAS,EAAE,OAAO,EAAE,YAAY,CAAC,CAAC,CAAE,CAAC,WAAW,EAAiB,EAAE,CAAC,CAAA;YAC5F,SAAQ;QACV,CAAC;QACD,MAAM,MAAM,GAAG,cAAc,CAAC,IAAI,CAAC,SAAS,CAAC,CAAA;QAC7C,IAAI,MAAM;YAAE,UAAU,CAAC,IAAI,CAAC,MAAM,CAAC,CAAA;IACrC,CAAC;IAED,MAAM,KAAK,GAAG,SAAS,CAAC,UAAU,CAAC,CAAA;IAEnC,sEAAsE;IACtE,wEAAwE;IACxE,yEAAyE;IACzE,KAAK,MAAM,IAAI,IAAI,KAAK,EAAE,CAAC;QACzB,cAAc,CAAC,CAAC,IAAI,CAAC,EAAE,CAAC,CAAC,CAAA;QACzB,cAAc,CAAC,IAAI,CAAC,CAAA;IACtB,CAAC;IAED,OAAO,EAAE,OAAO,EAAE,KAAK,EAAE,gBAAgB,EAAE,CAAA;AAC7C,CAAC"}

package/dist/pic.d.ts

@@ -0,0 +1,29 @@
+import type { DataType } from './types.js';
+export interface PicInfo {
+    type: DataType;
+    picture: string;
+    totalDigits: number;
+    decimalDigits: number;
+    lengthInBytes: number;
+}
+export interface ParsePicOptions {
+    /** SIGN IS LEADING/TRAILING SEPARATE — añade 1 byte extra en DISPLAY */
+    signSeparate?: boolean | undefined;
+}
+/**
+ * Parsea una cláusula PIC (y USAGE) y calcula tipo y longitud en bytes.
+ * COMP-1/COMP-2 no requieren PIC — su tamaño es fijo (float de 4/8 bytes).
+ */
+export declare function parsePic(rawPicture: string | undefined, usage?: string, options?: ParsePicOptions): PicInfo;
+/** USAGE que no requiere PIC para determinar su tamaño (floats, punteros, índices) */
+export declare function usageImpliesFixedSize(usage?: string): boolean;
+/**
+ * Frontera de alineación en bytes que exige un campo, o 1 si no exige
+ * ninguna. SYNCHRONIZED alinea los binarios y los flotantes; los punteros
+ * y los índices van alineados siempre, lleven SYNC o no.
+ *
+ * La alineación es relativa al principio del registro 01, y los bytes de
+ * relleno que deja delante no pertenecen a ningún campo — por eso hay que
+ * contarlos para que los offsets siguientes sean ciertos.
+ */
+export declare function alignmentOf(type: DataType, lengthInBytes: number, synchronized: boolean): number;