sergio
b3278bdb0c
El gran hueco que faltaba para el COBOL real: el procesamiento de ficheros secuenciales. Una rebanada vertical por los seis crates. - charka-parser: la ENVIRONMENT division ya no se ignora — se parsea FILE-CONTROL (SELECT name ASSIGN TO "ruta"); del FILE SECTION se asocia cada FD con su registro 01. Program::files. - charka-runtime: tipo CobFile — un fichero «line sequential» (cada registro una línea). Lectura: carga a memoria. Escritura: acumula y vuelca al cerrar. - charka-ir: Ir::files y los statements Open/Close/Read/Write. READ lleva sus bloques AT END / NOT AT END. - charka-codegen: un campo CobFile por fichero en el struct Program; los verbos emiten llamadas al runtime. - charka-shadow: el intérprete hace E/S de ficheros real. - Corpus: programa nuevo 18-fichero — escribe tres líneas, las relee con READ ... AT END y las muestra. Verificado: el intérprete sombra y el crate compilado por scaffold dan la misma salida. Alcance v1: organización line sequential; sin ficheros indexados ni relativos, sin FILE STATUS. Tests: charka-parser 17, charka-runtime 19, charka-ir 30, charka-codegen 25, charka-shadow 23. fmt + clippy limpios. Co-Authored-By: Claude Opus 4.7 <noreply@anthropic.com>
2.6 KiB
Corpus COBOL de charka
Programas COBOL de prueba, de complejidad graduada, para ejercitar
el pipeline completo del transpilador (lexer → parser → IR → codegen) y
el validador en sombra charka-shadow.
Cada programa NN-nombre.cob viene con su NN-nombre.expected: la
salida correcta, una línea por DISPLAY.
| programa | nivel | qué ejercita |
|---|---|---|
01-hola |
1 | el programa mínimo — un DISPLAY de literal |
02-aritmetica |
2 | datos, ADD/SUBTRACT/MULTIPLY con GIVING |
03-condicional |
3 | IF / ELSE / END-IF |
04-bucle |
4 | PERFORM n TIMES, un párrafo aparte, ADD in situ |
05-factorial |
4 | PERFORM UNTIL en línea, MULTIPLY in situ |
06-nomina |
5 | grupos, COMPUTE con paréntesis, ROUNDED, V99 |
07-clasificar |
5 | IF anidado, condiciones con AND |
08-varying |
4 | PERFORM VARYING — el bucle con variable de control |
09-evaluar |
5 | EVALUATE — el case de COBOL, WHEN / OTHER |
10-condicion |
5 | nombres de condición (nivel 88) en IF |
11-tabla |
6 | tablas (OCCURS) y referencias con subíndice |
12-cadenas |
6 | STRING (concatenar) y UNSTRING (partir) |
13-inspeccion |
6 | INSPECT — contar (TALLYING) y reemplazar |
14-clasifica |
6 | EVALUATE TRUE y rangos WHEN ... THRU |
15-resetear |
6 | INITIALIZE — resetear datos y grupos |
16-bandera |
5 | SET de nombres de condición (nivel 88) a TRUE |
17-rangopar |
5 | PERFORM ... THRU — un rango de párrafos |
18-fichero |
7 | E/S de ficheros: SELECT/FD/OPEN/READ/WRITE |
Formato
Los fuentes están en formato libre de COBOL (la línea entera es
código; * al inicio es comentario). El comparador del validador
ignora los espacios finales de cada línea — un campo PIC X(n) se
muestra con su relleno de espacios, que aquí se omite por legibilidad.
La salida esperada
Las .expected se derivaron a mano de la semántica de COBOL'85. Cuando
GnuCOBOL esté disponible, charka-shadow podrá regenerarlas desde el
compilador de referencia y diferenciar contra él — el modo «sombra»
pleno (original vs transpilado).