sergio
4df7478b71
EVALUATE atraviesa el pipeline entero — antes el parser lo guardaba
crudo como Stmt::Unknown.
- IR: Stmt::Evaluate { subject, whens, other } con
WhenBranch { values, body }. Varios WHEN apilados comparten cuerpo;
WHEN OTHER es el caso por defecto.
- Parser: EVALUATE subject WHEN v1 WHEN v2 ... [WHEN OTHER ...]
END-EVALUATE.
- Codegen: lo baja a una cadena if / else if / else — una rama se
elige si el sujeto es igual a alguno de sus valores, sin caída.
- Shadow: el intérprete evalúa el sujeto y ejecuta la primera rama
cuyos valores casen, o el WHEN OTHER.
- Corpus: programa nuevo 09-evaluar (EVALUATE por valor anidado en un
PERFORM VARYING, con WHEN apilados y WHEN OTHER). Verificado: el
intérprete sombra y el crate compilado por scaffold dan la misma
salida.
Alcance v1: EVALUATE por igualdad de valor; no la forma EVALUATE TRUE
con condiciones ni los rangos THRU.
Tests: charka-ir 19, charka-codegen 16, charka-shadow 14. fmt +
clippy limpios.
Co-Authored-By: Claude Opus 4.7 <noreply@anthropic.com>
25 lines
622 B
COBOL
25 lines
622 B
COBOL
* corpus charka — nivel 5: EVALUATE, el case de COBOL
|
|
IDENTIFICATION DIVISION.
|
|
PROGRAM-ID. EVALUAR.
|
|
DATA DIVISION.
|
|
WORKING-STORAGE SECTION.
|
|
01 WS-DIA PIC 9(1) VALUE 0.
|
|
PROCEDURE DIVISION.
|
|
MAIN.
|
|
PERFORM VARYING WS-DIA FROM 1 BY 1 UNTIL WS-DIA > 5
|
|
EVALUATE WS-DIA
|
|
WHEN 1
|
|
DISPLAY 'LUNES'
|
|
WHEN 2
|
|
DISPLAY 'MARTES'
|
|
WHEN 3
|
|
DISPLAY 'MIERCOLES'
|
|
WHEN 6
|
|
WHEN 7
|
|
DISPLAY 'FIN DE SEMANA'
|
|
WHEN OTHER
|
|
DISPLAY 'OTRO DIA'
|
|
END-EVALUATE
|
|
END-PERFORM.
|
|
STOP RUN.
|