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

back to 1.30 

git-svn-id: http://caml.inria.fr/svn/ocaml/trunk@5672 f963ae5c-01c2-4b8c-9fe0-0dff7051ff02
master
Maxence Guesdon 2003-07-08 14:00:46 +00:00
parent 24688134fd
commit 1b52a29d94
1 changed files with 2 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
ocamldoc/odoc_html.ml
View File

@ -744,12 +744,11 @@ class html =
method constructor s = "<span class=\"constructor\">"^s^"</span>"
(** Output the given ocaml code to the given file name. *)
method private output_code ?head in_title file code =
method private output_code in_title file code =
try
let chanout = open_out file in
let html_code = self#html_of_code code in
output_string chanout ("<html>"^(self#header (self#inner_title in_title))^"<body>\n");
(match head with None -> () | Some h -> output_string chanout h);
output_string chanout html_code;
output_string chanout "</body></html>";
close_out chanout
@ -865,9 +864,7 @@ class html =
None -> Name.simple v.val_name
| Some c ->
let file = Naming.file_code_value_complete_target v in
self#output_code
~head: (self#html_of_info v.val_info)
v.val_name (Filename.concat !Args.target_dir file) c;
self#output_code v.val_name (Filename.concat !Args.target_dir file) c;
"<a href=\""^file^"\">"^(Name.simple v.val_name)^"</a>"
)^" : "^
(self#html_of_type_expr (Name.father v.val_name) v.val_type)^"</pre>"^