38 lines
1.7 KiB
OCaml
38 lines
1.7 KiB
OCaml
(**************************************************************************)
|
|
(* *)
|
|
(* OCaml *)
|
|
(* *)
|
|
(* Sebastien Hinderer, projet Gallium, INRIA Paris *)
|
|
(* *)
|
|
(* Copyright 2018 Institut National de Recherche en Informatique et *)
|
|
(* en Automatique. *)
|
|
(* *)
|
|
(* All rights reserved. This file is distributed under the terms of *)
|
|
(* the GNU Lesser General Public License version 2.1, with the *)
|
|
(* special exception on linking described in the file LICENSE. *)
|
|
(* *)
|
|
(**************************************************************************)
|
|
|
|
(* Locations of directories in the OCaml source tree *)
|
|
|
|
open Ocamltest_stdlib
|
|
|
|
let srcdir () =
|
|
Sys.getenv_with_default_value "OCAMLSRCDIR" Ocamltest_config.ocamlsrcdir
|
|
|
|
let stdlib ocamlsrcdir =
|
|
Filename.make_path [ocamlsrcdir; "stdlib"]
|
|
|
|
let libunix ocamlsrcdir =
|
|
let subdir = if Sys.os_type="Win32" then "win32unix" else "unix" in
|
|
Filename.make_path [ocamlsrcdir; "otherlibs"; subdir]
|
|
|
|
let toplevel ocamlsrcdir =
|
|
Filename.make_path [ocamlsrcdir; "toplevel"]
|
|
|
|
let runtime ocamlsrcdir =
|
|
Filename.make_path [ocamlsrcdir; "runtime"]
|
|
|
|
let tools ocamlsrcdir =
|
|
Filename.make_path [ocamlsrcdir; "tools"]
|