exception SvnError of string;; val checkout : string -> unit val html_of_library : string -> string val reset_lib : unit -> unit (* val commit : string -> unit *) val add_user : string -> unit val do_global_commit : unit -> string list