feat(charka): INITIALIZE — resetear datos y grupos
El verbo de COBOL para volver un dato (o un registro entero) a su
valor por defecto.
- IR: Stmt::Initialize { targets }. El model de charka-ir registra
ahora los grupos y sus datos elementales (DataModel::groups,
GroupInfo { name, members }).
- Parser: INITIALIZE name-1 name-2 ...
- Codegen y shadow: cada destino, si es un grupo, se expande a sus
miembros; cada dato elemental se pone a 0 (numérico) o a espacios
(alfanumérico); una tabla OCCURS resetea todos sus elementos.
- Corpus: programa nuevo 15-resetear (resetea un grupo y un escalar).
Verificado: el intérprete sombra y el crate compilado por scaffold
dan la misma salida.
Tests: charka-ir 28, charka-codegen 22, charka-shadow 20. fmt +
clippy limpios.
Co-Authored-By: Claude Opus 4.7 <noreply@anthropic.com>
This commit is contained in:
@@ -290,13 +290,13 @@ mod tests {
|
||||
let ir = ir_of(
|
||||
"PROCEDURE DIVISION.\n\
|
||||
MAIN.\n\
|
||||
INITIALIZE WS-X.\n",
|
||||
CALL 'SUBPROG'.\n",
|
||||
);
|
||||
let mut verbs = Vec::new();
|
||||
for proc in &ir.procedures {
|
||||
collect_unknowns(&proc.body, &mut verbs);
|
||||
}
|
||||
assert_eq!(verbs, vec!["INITIALIZE".to_string()]);
|
||||
assert_eq!(verbs, vec!["CALL".to_string()]);
|
||||
}
|
||||
|
||||
#[test]
|
||||
|
||||
Reference in New Issue
Block a user