feat(charka): EVALUATE — el case de COBOL

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>
This commit is contained in:
sergio
2026-05-21 21:37:28 +00:00
parent 321e6f8e27
commit 4df7478b71
13 changed files with 259 additions and 8 deletions
+20
View File
@@ -3,6 +3,26 @@
Transpilador COBOL → Rust. El módulo más grande del ecosistema (Fase D
del plan macro) — el parser COBOL completo es un esfuerzo multi-mes.
### feat(charka): EVALUATE — el case de COBOL
`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` (un `EVALUATE` por valor anidado
en un `PERFORM VARYING`, con `WHEN` apilados y `WHEN OTHER`).
Verificado: intérprete sombra y crate compilado dan la misma salida.
- Alcance v1: `EVALUATE` por igualdad de valor; no la forma
`EVALUATE TRUE` con condiciones ni los rangos `THRU`.
### feat(charka): PERFORM VARYING — el bucle con variable de control
El bucle más usado de COBOL, que antes el parser degradaba a un