sig
val normalize : ?base_name:string -> string -> string
val relativize : ?base_name:string -> string -> string
val is_relative : ?base_name:string -> string -> bool
val pretty : string -> string
val add_symbolic_dir : string -> string -> unit
end