let main () =
Arg.parse options
(fun s -> match !dir with
None -> dir := Some s
| _ -> failwith "Please give only working copy directory"
)
(Printf.sprintf
"Usage: %s [options] [<directory of a subversion working copy>]\nwhere options are:"
Sys.argv.(0)
);
let dir = match !dir with None -> Filename.current_dir_name | Some d -> d in
let tdl = tdl_of_svn_log ~login: !login ~title: !group_title ~dir in
Tdl.print_group Format.std_formatter tdl;
Format.print_flush ()