(* repository.mli - Don Yang (uguu.org)

   05/20/06
                                                                           *)

(* Repository root directory name *)
val repository_root : string

(* Name of changelog file *)
val changelog : string

(* Find location of existing repository, return empty string if not found *)
val locate : unit -> string

(* Create repository if it doesn't exist already.  Return location of
   existing/created repository.                                       *)
val create : unit -> string

(* Get root of current directory that is at same level as repository root.
   Returns empty string if repository is not found.                        *)
val current_root : unit -> string