[Caml-list] Can I pass added command line option through ocamlfind?

[Kenichi Asai <asai@is.ocha.ac.jp>]

[-- Attachment #1: Type: text/plain, Size: 1039 bytes --]

Following Francois Ripault's comment, I am studying OCamlDoc's custom
tags.  (Thank you Francois!)  I implemented the attached custom
generator implementing @en and @ja tags together with a new command
line option "-lang".  Now, what I want to do is:

ocamlfind ocamldoc -package lablgtk2.gnomecanvas -g custom.cmxs -d html -lang ja file.ml ...

However, since ocamlfind does not recognize -lang as a proper option
for ocamldoc, I get:

ocamldoc: unknown option `-lang'.

Is there any way to tell ocamlfind to pass the '-lang ja' option as is
to ocamldoc?  Alternatively, how do I specify the equivalent of
'-package lablgtk2.gnomecanvas' without using ocamlfind?  I tried:

ocamldoc -I lablgtk2.gnomecanvas     -g custom.cmxs -d html -lang ja file.ml ...
ocamldoc -I +lablgtk2.gnomecanvas    -g custom.cmxs -d html -lang ja file.ml ...
ocamldoc -I +lablgtk2                -g custom.cmxs -d html -lang ja file.ml ...

etc., but they all produced:

Error: Unbound class GnoCanvas.group

Thank you in advance.

Sincerely,

-- 
Kenichi Asai

[-- Attachment #2: custom.ml --]
[-- Type: text/plain, Size: 870 bytes --]

(** language tag: "en" for English, "ja" for Japanese *)
let lang = ref "en"

module Generator (G : Odoc_html.Html_generator) =
struct
  class html =
    object(self)
      inherit G.html

      (** copied from argot: http://argot.x9c.fr *)
      method private string_of_text text =
	let buff = Buffer.create 256 in
	self#html_of_text buff text;
	Buffer.contents buff

      (** Return HTML code for the given text of a lang tag. *)
      method private html_of_lang text = (* your code here *)
	self#string_of_text text

      initializer
        tag_functions <- (!lang, self#html_of_lang) :: tag_functions
	(** register only !lang.  Other tags are ignored *)
  end
end

let _ = begin
  Odoc_args.add_option
    ("-lang", Arg.Set_string lang, "[en|ja]\n\t\tGenerate English document");
  Odoc_args.extend_html_generator (module Generator : Odoc_gen.Html_functor)
end