Benjamin_Loison/Synchronous_reactive_systems
1
0
Fork 0
Code Issues 7 Pull Requests Packages Projects Releases Wiki Activity

Add assignement support for tuples

Browse Source
This commit is contained in:
Benjamin Loison 2022-12-11 18:45:30 +01:00
parent da823ac3c8
commit c0c29e1df7
1 changed files with 2 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
src/ast_to_c.ml
View File

@ -67,7 +67,6 @@ let pp_expression node_name =
let rec pp_expression_list prefix fmt exprs =
match exprs with
| ETuple([], []) -> ()
(* TODO: assignment (in addition to the current app call support) *)
| ETuple (_ :: tt, expr :: exprs) ->
Format.fprintf fmt "%a%s%a"
(pp_expression_aux (prefix)) expr
@ -162,6 +161,8 @@ let pp_expression node_name =
let rec pp_equations node_name fmt: t_eqlist -> unit = function
| [] -> ()
| (([], []), (ETuple ([], []))) :: eqs -> Format.fprintf fmt "%a" (pp_equations node_name) eqs
| ((l_type :: l_types, var :: vars), (ETuple (r_type :: r_types, expr :: exprs))) :: eqs -> Format.fprintf fmt "%a" (pp_equations node_name) ((([l_type], [var]), expr) :: ((l_types, vars), (ETuple (r_types, exprs))) :: eqs)
| (patt, expr) :: eqs ->
Format.fprintf fmt "\t%a = %a;\n%a"
(pp_varlist Base) patt