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