method generate modules =
let title =
match !Odoc_info.Args.title with
None -> ""
| Some s -> s
in
let g = Tdl.group ~title () in
current_group <- g;
self#scan_module_list modules;
let (n, g) = remove_empty_groups g in
Odoc_info.verbose (Printf.sprintf "%d item(s) found." n);
Tdl.print_file !Odoc_info.Args.out_file g