DB.Results_dirtype path_kind = | Abs_rootabsolute path implicitly rooted at the root of the results dir
*)| Abs_source_dir of SourceFile.tabsolute path implicitly rooted at the source directory for the file
*)| Relrelative path
*)kind of path: specifies how to interpret a path
val init : ?debug:bool -> SourceFile.t -> unitInitialize the results directory