mirror of
https://gitlab.com/scemama/QCaml.git
synced 2024-06-29 16:34:43 +02:00
18 lines
294 B
OCaml
18 lines
294 B
OCaml
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
|
|
|
|
|
|
|