Ekdohibs
/
ocaml
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Utiliser des vbox au lieu de hvbox pour les classes. 

git-svn-id: http://caml.inria.fr/svn/ocaml/trunk@793 f963ae5c-01c2-4b8c-9fe0-0dff7051ff02
master
Xavier Leroy 1996-05-07 08:15:26 +00:00
parent 14677374d3
commit 3f1e6a86e7
1 changed files with 8 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

16
typing/printtyp.ml
View File

@ -304,8 +304,9 @@ let rec type_declaration id decl =
| Type_variant (cstr1 :: cstrs) -> | Type_variant (cstr1 :: cstrs) ->
print_string " ="; print_break 1 2; print_string " ="; print_break 1 2;
constructor cstr1; constructor cstr1;
List.iter (fun cstr -> print_space(); print_string "| "; constructor cstr) List.iter
cstrs (fun cstr -> print_space(); print_string "| "; constructor cstr)
cstrs
| Type_record (lbl1 :: lbls as l) -> | Type_record (lbl1 :: lbls as l) ->
List.iter (fun (_, _, ty) -> mark_loops ty) l; List.iter (fun (_, _, ty) -> mark_loops ty) l;
print_string " ="; print_space(); print_string " ="; print_space();
@ -440,7 +441,7 @@ let class_type id cl_ty =
List.iter mark_loops args; List.iter mark_loops args;
List.iter (fun (_, ty) -> mark_loops ty) cstr; List.iter (fun (_, ty) -> mark_loops ty) cstr;
Vars.iter (fun _ (_, ty) -> mark_loops ty) vars; Vars.iter (fun _ (_, ty) -> mark_loops ty) vars;
open_hvbox 2; open_vbox 2;
open_hovbox 0; open_hovbox 0;
print_string "class "; print_string "class ";
if cl_ty.cty_new = None then if cl_ty.cty_new = None then
@ -461,10 +462,9 @@ let class_type id cl_ty =
print_string "="; print_string "=";
close_box (); close_box ();
start_list true; start_list true;
open_hvbox 0;
if cstr <> [] then begin if cstr <> [] then begin
list_item (); list_item ();
open_hvbox 0; open_vbox 0;
start_list false; start_list false;
List.iter constrain cstr; List.iter constrain cstr;
end_list false; end_list false;
@ -472,7 +472,7 @@ let class_type id cl_ty =
end; end;
if vars <> Vars.empty then begin if vars <> Vars.empty then begin
list_item (); list_item ();
open_hvbox 0; open_vbox 0;
start_list false; start_list false;
Vars.iter class_var vars; Vars.iter class_var vars;
end_list false; end_list false;
@ -491,7 +491,7 @@ let class_type id cl_ty =
in in
if meths <> [] then begin if meths <> [] then begin
list_item (); list_item ();
open_hvbox 0; open_vbox 0;
start_list false; start_list false;
List.iter (metho "method ") meths; List.iter (metho "method ") meths;
close_box (); close_box ();
@ -499,7 +499,7 @@ let class_type id cl_ty =
end; end;
if virt <> [] then begin if virt <> [] then begin
list_item (); list_item ();
open_hvbox 0; open_vbox 0;
start_list false; start_list false;
List.iter (metho "virtual ") virt; List.iter (metho "virtual ") virt;
close_box (); close_box ();