sig exception No_dir val force_dir : bool val dir : ?error:bool -> unit -> string val file : ?error:bool -> string -> string module Dir_name : String end