QCaml/common/lib/qcaml.ml

let name = "QCaml"


let root =
  let rec chop = function
    | [] -> raise Not_found
    | x :: _ as l when x = name -> l
    | _ :: rest -> chop rest
  in
  String.split_on_char Filename.dir_sep.[0] (Sys.getcwd ())
  |> List.rev
  |> chop
  |> List.rev
  |> String.concat Filename.dir_sep