st/pass_strategy_synthesis
1
0
Fork 0
mirror of https://github.com/ProgramSnail/pass_strategy_synthesis.git synced 2026-04-30 17:52:41 +00:00
Code Issues Projects Releases Packages Wiki Activity Actions

structures: context initialization in analyzer

Browse source
This commit is contained in:
ProgramSnail 2026-04-29 12:44:15 +00:00
parent 1d28d01c17
commit 1c7f676a54
2 changed files with 23 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

19
model_with_structures/analyzer.ml
View file

@ -205,6 +205,24 @@ struct
| PathE p -> pathtype types p
| TupleE es -> TupleT (List.map (exprtype types) es)
(* - context initialization *)
let add_decl (state : state) (x : data) (d : decl) : state =
match state with (mem, types, vals) -> match d with
| VarD (t, e) -> let v = exprval mem vals e in
let (mem', id) = mem_add mem v in
(mem', (x, t) :: types, (x, id) :: vals)
| FunD (ts, s) -> let (mem', id) = mem_add mem (FunV [s]) in
(mem', (x, FunT ts) :: types, (x, id) :: vals)
let empty_state : state = (([], 0), [], [])
let prog_init (prog : prog) : state =
match prog with (decls, _) -> fst @@ List.fold_left (* TODO: FIXME: check x's order *)
(fun (st, x) d -> (add_decl st x d, x + 1))
(empty_state, 0)
decls
(* - call values spoil *)
(* TODO: check all cases *)
@ -243,6 +261,7 @@ struct
| _, _, _ -> raise @@ Typing_error "valspoil"
(* full spoil *)
let rec argsspoilp (state : state) (m : mode) (t : atype) (p : path) : mem =
match state with (mem, types, vals) ->
let x = pathvar p in