jeltz/heptagon
1
0
Fork 0
Code Issues Pull requests Releases Activity

Pretty-printing class parameters in obc

Browse source
This commit is contained in:
Gwenaël Delaval 2016-01-18 14:31:04 +01:00
parent 19911506de
commit 64b8c0592a
1 changed files with 14 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

16
compiler/obc/obc_printer.ml
View file

@ -177,8 +177,20 @@ let print_method ff md =
print_block md.m_body
let print_class_def ff
{ cd_name = id; cd_mems = mem; cd_objs = objs; cd_methods = m_list } =
fprintf ff "@[<v 2>machine "; print_qualname ff id; fprintf ff " =@,";
{ cd_name = id;
cd_mems = mem;
cd_objs = objs;
cd_params = params;
cd_methods = m_list;
} =
fprintf ff "@[<v 2>machine "; print_qualname ff id;
if params <> [] then
begin
fprintf ff "@[<hov 2>";
print_list_r print_param "<<" "," ">>" ff params;
fprintf ff "@]";
end;
fprintf ff " =@,";
if mem <> [] then begin
fprintf ff "@[<hov 4>var ";
print_list_r print_vd "" ";" "" ff mem;