ocamldoc ml

commands

ocamlc -I +ocamldoc -c tg.ml && ocamldoc -g tg.cmo test.ml

tg.ml

module Generator (G : Odoc_gen.Base) =
  struct
    class generator =
      object(self)
        inherit G.generator as generator
        method generate module_list =
          (* let _ = Odoc_info.dump_modules "modump" in *)
          (* let mtds = Odoc_info.Search.methods module_list in *)
          let vals = Odoc_info.Search.values module_list in
          (* Printf.printf "%s\n" (String.concat "\n" (List.map (fun (t : Odoc_value.t_value) -> t.val_name) vals)); *)
          List.iter (fun (t : Odoc_value.t_value) ->
              match t.val_code with
              | None -> ()
              (* | Some c -> Printf.printf "%s\n" c; *)
              | Some c -> Printf.printf "%s\n" "c";
                Printf.printf "\n\n";
                (* Printf.printf "%s\n" (Odoc_info.string_of_value t); *)
          ) vals;
          ()
      end
  end;;

let _ = Odoc_args.extend_base_generator (module Generator : Odoc_gen.Base_functor);;