Paris7/compilation
Archived
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Activity

fmt

Browse source
This commit is contained in:
Mylloon 2023-12-15 13:13:03 +01:00
parent 1921101d45
commit edb1219070
Signed by: Anri
GPG key ID: A82D63DFF8D1317F
1 changed files with 9 additions and 9 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

18
flap/src/fopix/hobixToFopix.ml
View file

@ -121,20 +121,20 @@ let free_variables =
| s :: xs -> M.union (f s) (unions f xs) | s :: xs -> M.union (f s) (unions f xs)
in in
(*Une variable libre est une variable qui peut être substitué*) (*Une variable libre est une variable qui peut être substitué*)
(*TODO : rajouter des explications pour While Define et Fun*) (*TODO : rajouter des explications pour While Define et Fun*)
let rec fvs = function let rec fvs = function
| S.Literal _ -> M.empty | S.Literal _ -> M.empty
| S.Variable x -> M.singleton x | S.Variable x -> M.singleton x
| S.While (cond, e) -> unions fvs [cond;e] | S.While (cond, e) -> unions fvs [ cond; e ]
| S.Define (vd, a) -> | S.Define (vd, a) ->
let liste_def_valeur = let liste_def_valeur =
match vd with match vd with
| S.SimpleValue (id,expr) -> [(id,expr)] | S.SimpleValue (id, expr) -> [ id, expr ]
| S.RecFunctions (list) -> list | S.RecFunctions list -> list
in in
let id, expr = List.split liste_def_valeur in let id, expr = List.split liste_def_valeur in
M.diff (unions fvs (a::expr)) (M.of_list id) M.diff (unions fvs (a :: expr)) (M.of_list id)
| S.ReadBlock (a, b) -> unions fvs [ a; b ] | S.ReadBlock (a, b) -> unions fvs [ a; b ]
| S.Apply (a, b) -> unions fvs (a :: b) | S.Apply (a, b) -> unions fvs (a :: b)
| S.WriteBlock (a, b, c) | S.IfThenElse (a, b, c) -> unions fvs [ a; b; c ] | S.WriteBlock (a, b, c) | S.IfThenElse (a, b, c) -> unions fvs [ a; b; c ]
@ -149,7 +149,7 @@ let free_variables =
unions fvs ((a :: ExtStd.Array.present_to_list b) @ c) unions fvs ((a :: ExtStd.Array.present_to_list b) @ c)
in in
fun e -> M.elements (fvs e) fun e -> M.elements (fvs e)
;;
(** A closure compilation environment relates an identifier to the way (** A closure compilation environment relates an identifier to the way
it is accessed in the compiled version of the function's it is accessed in the compiled version of the function's