st/pass_strategy_synthesis
1
0
Fork 0
mirror of https://github.com/ProgramSnail/pass_strategy_synthesis.git synced 2026-03-12 02:57:09 +00:00
Code Issues Projects Releases Packages Wiki Activity Actions

ocanren type syntax test file, migration to 4.14.2 (with pinned ocanren from repo)

Browse source
This commit is contained in:
ProgramSnail 2026-01-29 13:49:39 +03:00
parent 30f052b1b1
commit e2dcf6c2a1
3 changed files with 44 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

4
lib/semantic_interpreter.ml
View file

@ -80,6 +80,8 @@ struct
(* TODO: use env var ids instead of mem_ids ?? *)
(env, List.fold_left (fun mem id -> list_replace mem (inv_id mem_len @@ env_get state id) BotV) mem assignments, mem_len, [])
let list_drop n xs = List.of_seq @@ Seq.drop n @@ List.to_seq xs
let rec eval_stmt state prog stmt =
match stmt with
| Call (f_id, args) -> eval_fun state prog (List.nth prog f_id) (List.map (fun arg -> LValue arg) args)
@ -97,7 +99,7 @@ struct
let state = eval_body state prog body in
let state = st_spoil_assignments state in
match state with (_env, mem, len, _assignments) ->
(env_before, List.drop (len - len_before) mem, len_before, assignments_before) (* TODO: save some assignments ?? *)
(env_before, list_drop (len - len_before) mem, len_before, assignments_before) (* TODO: save some assignments ?? *)
and eval_fun_empty_args state prog decl =
match decl with (arg_tags, _) ->