diff options
| author | Jun FURUSE / 古瀬 淳 <jun.furuse@gmail.com> | 2008-01-28 05:29:20 +0000 |
|---|---|---|
| committer | Jun FURUSE / 古瀬 淳 <jun.furuse@gmail.com> | 2008-01-28 05:29:20 +0000 |
| commit | 3f4a98da0fbf8a87c674d6737d8c6cec7e8567e5 (patch) | |
| tree | f5aa13505824d708414ece1f00219b811315c44a /ocamldoc/odoc_args.ml | |
| parent | 30f3fa2c5bc27f8c59930741aa1b6dd5a34a6b40 (diff) | |
| download | ocaml-gcaml3090.tar.gz | |
3.09.1 updategcaml3090
git-svn-id: http://caml.inria.fr/svn/ocaml/branches/gcaml3090@8792 f963ae5c-01c2-4b8c-9fe0-0dff7051ff02
Diffstat (limited to 'ocamldoc/odoc_args.ml')
| -rw-r--r-- | ocamldoc/odoc_args.ml | 15 |
1 files changed, 10 insertions, 5 deletions
diff --git a/ocamldoc/odoc_args.ml b/ocamldoc/odoc_args.ml index 05d9e55c11..91122ed688 100644 --- a/ocamldoc/odoc_args.ml +++ b/ocamldoc/odoc_args.ml @@ -20,6 +20,7 @@ module M = Odoc_messages type source_file = Impl_file of string | Intf_file of string + | Text_file of string let include_dirs = Clflags.include_dirs @@ -214,6 +215,7 @@ let options = ref [ "-pp", Arg.String (fun s -> preprocessor := Some s), M.preprocess ; "-impl", Arg.String (fun s -> files := !files @ [Impl_file s]), M.option_impl ; "-intf", Arg.String (fun s -> files := !files @ [Intf_file s]), M.option_intf ; + "-text", Arg.String (fun s -> files := !files @ [Text_file s]), M.option_text ; "-rectypes", Arg.Set recursive_types, M.rectypes ; "-nolabels", Arg.Unit (fun () -> classic := true), M.nolabels ; "-warn-error", Arg.Set Odoc_global.warn_error, M.werr ; @@ -313,12 +315,15 @@ let parse ~html_generator ~latex_generator ~texi_generator ~man_generator ~dot_g let anonymous f = let sf = if Filename.check_suffix f "ml" then - Impl_file f + Impl_file f else - if Filename.check_suffix f "mli" then - Intf_file f - else - failwith (Odoc_messages.unknown_extension f) + if Filename.check_suffix f "mli" then + Intf_file f + else + if Filename.check_suffix f "txt" then + Text_file f + else + failwith (Odoc_messages.unknown_extension f) in files := !files @ [sf] in |