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:
@@ -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.
|
||||
Reference in New Issue
Block a user