diff options
author | Damien Doligez <damien.doligez-inria.fr> | 2005-03-24 17:20:54 +0000 |
---|---|---|
committer | Damien Doligez <damien.doligez-inria.fr> | 2005-03-24 17:20:54 +0000 |
commit | e6007f6057d1d4e68a5618f232953344b683a168 (patch) | |
tree | ee5baa59e5eb0ebc4354bd215bd3c682986bf632 /ocamldoc/odoc_man.ml | |
parent | 958bd6c49292afa23e5fee51770c45d1f8499faa (diff) | |
download | ocaml-e6007f6057d1d4e68a5618f232953344b683a168.tar.gz |
fusion des changements jusqu'a 3.08.3
git-svn-id: http://caml.inria.fr/svn/ocaml/trunk@6824 f963ae5c-01c2-4b8c-9fe0-0dff7051ff02
Diffstat (limited to 'ocamldoc/odoc_man.ml')
-rw-r--r-- | ocamldoc/odoc_man.ml | 33 |
1 files changed, 15 insertions, 18 deletions
diff --git a/ocamldoc/odoc_man.ml b/ocamldoc/odoc_man.ml index 6a0fae1327..9254115845 100644 --- a/ocamldoc/odoc_man.ml +++ b/ocamldoc/odoc_man.ml @@ -654,10 +654,9 @@ class man = try let chanout = self#open_out file in let b = new_buf () in - bs b ".TH \""; - bs b Odoc_messages.clas; - bs b ("\" "^cl.cl_name^" "); - bs b ("\""^(Odoc_misc.string_of_date ~hour: false date)^"\" "); + bs b (".TH \""^cl.cl_name^"\" "); + bs b !Odoc_args.man_section ; + bs b (" "^(Odoc_misc.string_of_date ~hour: false date)^"\" "); bs b "OCamldoc "; bs b ("\""^(match !Args.title with Some t -> t | None -> "")^"\"\n"); @@ -714,9 +713,9 @@ class man = try let chanout = self#open_out file in let b = new_buf () in - bs b (".TH \""^Odoc_messages.class_type^"\" "); - bs b (ct.clt_name^" "); - bs b ("\""^(Odoc_misc.string_of_date ~hour: false date)^"\" "); + bs b (".TH \""^ct.clt_name^"\" "); + bs b !Odoc_args.man_section ; + bs b (" "^(Odoc_misc.string_of_date ~hour: false date)^"\" "); bs b "OCamldoc "; bs b ("\""^(match !Args.title with Some t -> t | None -> "")^"\"\n"); @@ -771,9 +770,9 @@ class man = try let chanout = self#open_out file in let b = new_buf () in - bs b (".TH \""^Odoc_messages.module_type^"\" "); - bs b (mt.mt_name^" "); - bs b ("\""^(Odoc_misc.string_of_date ~hour: false date)^"\" "); + bs b (".TH \""^mt.mt_name^"\" "); + bs b !Odoc_args.man_section ; + bs b (" "^(Odoc_misc.string_of_date ~hour: false date)^"\" "); bs b "OCamldoc "; bs b ("\""^(match !Args.title with Some t -> t | None -> "")^"\"\n"); @@ -849,11 +848,9 @@ class man = try let chanout = self#open_out file in let b = new_buf () in - bs b ".TH \""; - bs b Odoc_messages.modul; - bs b "\" "; - bs b (m.m_name^" "); - bs b ("\""^(Odoc_misc.string_of_date ~hour: false date)^"\" "); + bs b (".TH \""^m.m_name^"\" "); + bs b !Odoc_args.man_section ; + bs b (" "^(Odoc_misc.string_of_date ~hour: false date)^"\" "); bs b "OCamldoc "; bs b ("\""^(match !Args.title with Some t -> t | None -> "")^"\"\n"); @@ -978,9 +975,9 @@ class man = try let chanout = self#open_out file in let b = new_buf () in - bs b (".TH \""^name^"\" "); - bs b "man "; - bs b ("\""^(Odoc_misc.string_of_date ~hour: false date)^"\" "); + bs b (".TH \""^name^"\" "); + bs b !Odoc_args.man_section ; + bs b (" "^(Odoc_misc.string_of_date ~hour: false date)^"\" "); bs b "OCamldoc "; bs b ("\""^(match !Args.title with Some t -> t | None -> "")^"\"\n"); bs b ".SH NAME\n"; |