feat(charka): nivel 88 + modelo de datos compartido en charka-ir

Los nombres de condición de COBOL (IF ES-VALIDO), que antes el
transpilador evaluaba siempre como false. Y, de paso, se elimina la
duplicación de la resolución del modelo de datos.

- charka-ir gana un módulo `model`: resolve_data(&[DataItem]) ->
  DataModel aplana el árbol de datos a campos elementales (Field con
  FieldKind) y a nombres de condición (ConditionName). El Ir lleva
  ahora un campo `model` — la fuente única de verdad sobre la
  clasificación de PICTURE.
- charka-codegen y charka-shadow consumen ir.model en vez de
  reimplementar cada uno la clasificación, el ancho de PICTURE y la
  normalización de VALUE. charka-codegen ya no depende de charka-bcd.
- Cond::Named (un nivel 88) se resuelve a `padre = valor`: el codegen
  emite la comparación, el intérprete sombra la evalúa.
- Corregido: un dato con hijos de nivel 88 antes se perdía como si
  fuera un grupo; ahora se reconoce como campo elemental.
- Corpus: programa nuevo 10-condicion (semáforo con 88 de texto y de
  número). Verificado: intérprete y crate compilado dan igual salida.

Tests: charka-ir 23, charka-codegen 17, charka-shadow 15. fmt +
clippy limpios.

Co-Authored-By: Claude Opus 4.7 <noreply@anthropic.com>
This commit is contained in:
sergio
2026-05-21 21:50:06 +00:00
parent 4df7478b71
commit 28ee1ae260
17 changed files with 473 additions and 265 deletions
@@ -0,0 +1,29 @@
* corpus charka nivel 5: nombres de condición (nivel 88)
IDENTIFICATION DIVISION.
PROGRAM-ID. SEMAFORO.
DATA DIVISION.
WORKING-STORAGE SECTION.
01 WS-LUZ PIC X(5) VALUE 'ROJO'.
88 ES-PARE VALUE 'ROJO'.
88 ES-SIGA VALUE 'VERDE'.
01 WS-CODIGO PIC 9(1) VALUE 0.
88 ES-EXITO VALUE 0.
PROCEDURE DIVISION.
MAIN.
IF ES-PARE
DISPLAY 'LUZ ROJA: DETENERSE'
END-IF.
IF ES-EXITO
DISPLAY 'CODIGO OK'
END-IF.
MOVE 'VERDE' TO WS-LUZ.
MOVE 9 TO WS-CODIGO.
IF ES-SIGA
DISPLAY 'LUZ VERDE: AVANZAR'
END-IF.
IF ES-EXITO
DISPLAY 'CODIGO OK'
ELSE
DISPLAY 'CODIGO DE ERROR'
END-IF.
STOP RUN.
@@ -0,0 +1,4 @@
LUZ ROJA: DETENERSE
CODIGO OK
LUZ VERDE: AVANZAR
CODIGO DE ERROR
+1
View File
@@ -18,6 +18,7 @@ salida correcta, una línea por `DISPLAY`.
| `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` |
## Formato