feat(charka): PERFORM VARYING — el bucle con variable de control
El bucle más usado de COBOL, que antes el parser degradaba a un
PERFORM vacío (un hueco de corrección real). Ahora atraviesa el
pipeline entero como una rebanada vertical.
- IR: PerformControl::Varying { var, from, by, until }.
- Parser: reconoce PERFORM VARYING var FROM x BY y UNTIL cond en
línea (END-PERFORM) y fuera de línea (PERFORM párrafo VARYING ...).
- Codegen: emite var = from; while !(until) { cuerpo; var += by; }.
- Shadow: el intérprete inicializa la variable, evalúa la condición
antes de cada vuelta e incrementa al final.
- Corpus: programa nuevo 08-varying (suma 1..10). Verificado: el
intérprete sombra y el crate compilado por scaffold dan ambos
SUMA 1 A 10 = 00055 — las dos rutas concuerdan.
Tests: charka-ir 18, charka-codegen 15, charka-shadow 13. fmt +
clippy limpios.
Co-Authored-By: Claude Opus 4.7 <noreply@anthropic.com>
This commit is contained in:
@@ -0,0 +1,14 @@
|
||||
* corpus charka — nivel 4: PERFORM VARYING, el bucle clásico de COBOL
|
||||
IDENTIFICATION DIVISION.
|
||||
PROGRAM-ID. SUMAR.
|
||||
DATA DIVISION.
|
||||
WORKING-STORAGE SECTION.
|
||||
01 WS-I PIC 9(2) VALUE 0.
|
||||
01 WS-SUMA PIC 9(5) VALUE 0.
|
||||
PROCEDURE DIVISION.
|
||||
MAIN.
|
||||
PERFORM VARYING WS-I FROM 1 BY 1 UNTIL WS-I > 10
|
||||
ADD WS-I TO WS-SUMA
|
||||
END-PERFORM.
|
||||
DISPLAY 'SUMA 1 A 10 = ' WS-SUMA.
|
||||
STOP RUN.
|
||||
@@ -0,0 +1 @@
|
||||
SUMA 1 A 10 = 00055
|
||||
@@ -16,6 +16,7 @@ salida correcta, una línea por `DISPLAY`.
|
||||
| `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|
|
||||
|
||||
## Formato
|
||||
|
||||
|
||||
Reference in New Issue
Block a user