diff options
author | Maxence Guesdon <maxence.guesdon@inria.fr> | 2004-01-28 13:36:20 +0000 |
---|---|---|
committer | Maxence Guesdon <maxence.guesdon@inria.fr> | 2004-01-28 13:36:20 +0000 |
commit | 2b54201f20cebcb1dfc6f69d4c7f893c6850813e (patch) | |
tree | 9add9100e1552948f515cf11f885f9d65a449533 /ocamldoc/odoc_messages.ml | |
parent | 25d02fa881739fecc74e2fb735ec714c166f54b0 (diff) | |
download | ocaml-2b54201f20cebcb1dfc6f69d4c7f893c6850813e.tar.gz |
handling a path to load custom generators
git-svn-id: http://caml.inria.fr/svn/ocaml/trunk@6087 f963ae5c-01c2-4b8c-9fe0-0dff7051ff02
Diffstat (limited to 'ocamldoc/odoc_messages.ml')
-rw-r--r-- | ocamldoc/odoc_messages.ml | 10 |
1 files changed, 9 insertions, 1 deletions
diff --git a/ocamldoc/odoc_messages.ml b/ocamldoc/odoc_messages.ml index 26cb295961..0143098e94 100644 --- a/ocamldoc/odoc_messages.ml +++ b/ocamldoc/odoc_messages.ml @@ -24,6 +24,7 @@ let message_version = software^" "^version let usage = "Usage : "^(Sys.argv.(0))^" [options] <files>\n" let options_are = "Options are :" let option_version = " Print version and exit" +let bytecode_only = "(bytecode version only)" let latex_only = "(LaTeX only)" let texi_only = "(TeXinfo only)" let latex_texi_only = "(LaTeX and TeXinfo only)" @@ -35,7 +36,9 @@ let verbose_mode = " verbose mode" let include_dirs = "<dir> Add <dir> to the list of include directories" let rectypes = " Allow arbitrary recursive types" let preprocess = "<command> Pipe sources through preprocessor <command>" -let load_file = "<file.cm[o|a]> Load file defining a new documentation generator (bytecode version only)" +let display_custom_generators_dir = " Display custom generators standard directory and exit" +let add_load_dir = "<dir> Add the given directory to the search path for custom generators "^bytecode_only +let load_file = "<file.cm[o|a]> Load file defining a new documentation generator "^bytecode_only let nolabels = " Ignore non-optional labels in types" let werr = "Treat ocamldoc warnings as errors" let target_dir = "<dir> Generate files in directory <dir>, rather than in current directory (for man and HTML generators)" @@ -187,6 +190,11 @@ let text_parse_error l c s = (List.nth lines l)^"\n"^ (String.make c ' ')^"^" +let file_not_found_in_paths paths name = + Printf.sprintf "No file %s was found in the load paths: \n%s\n" + name + (String.concat "\n" paths) + let tag_not_handled tag = "Tag @"^tag^" not handled by this generator" let bad_tree = "Incorrect tree structure." let not_a_valid_tag s = s^" is not a valid tag." |