/usr/lib/ocaml/oasis/BaseCompat.ml is in liboasis-ocaml-dev 0.4.10-2build1.
This file is owned by root:root, with mode 0o644.
The actual contents of the file can be viewed below.
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100 101 102 103 104 105 106 107 108 109 110 111 112 113 114 115 116 117 118 119 120 121 122 123 124 125 126 127 128 129 130 131 132 133 134 135 136 137 138 139 140 141 142 143 144 145 146 147 148 149 150 151 152 153 154 155 156 157 158 159 160 161 162 163 164 165 166 167 168 | (******************************************************************************)
(* OASIS: architecture for building OCaml libraries and applications *)
(* *)
(* Copyright (C) 2011-2016, Sylvain Le Gall *)
(* Copyright (C) 2008-2011, OCamlCore SARL *)
(* *)
(* This library is free software; you can redistribute it and/or modify it *)
(* under the terms of the GNU Lesser General Public License as published by *)
(* the Free Software Foundation; either version 2.1 of the License, or (at *)
(* your option) any later version, with the OCaml static compilation *)
(* exception. *)
(* *)
(* This library is distributed in the hope that it will be useful, but *)
(* WITHOUT ANY WARRANTY; without even the implied warranty of MERCHANTABILITY *)
(* or FITNESS FOR A PARTICULAR PURPOSE. See the file COPYING for more *)
(* details. *)
(* *)
(* You should have received a copy of the GNU Lesser General Public License *)
(* along with this library; if not, write to the Free Software Foundation, *)
(* Inc., 51 Franklin St, Fifth Floor, Boston, MA 02110-1301 USA *)
(******************************************************************************)
(** Compatibility layer to provide a stable API inside setup.ml.
This layer allows OASIS to change in between minor versions
(e.g. 0.4.6 -> 0.4.7) but still provides a stable API inside setup.ml. This
enables to write functions that manipulate setup_t inside setup.ml. See
deps.ml for an example.
The module opened by default will depend on the version of the _oasis. E.g.
if we have "OASISFormat: 0.3", the module Compat_0_3 will be opened and
the function Compat_0_3 will be called. If setup.ml is generated with the
-nocompat, no module will be opened.
@author Sylvain Le Gall
*)
module Compat_0_4 =
struct
let rctxt = ref !BaseContext.default
module BaseSetup =
struct
module Original = BaseSetup
open OASISTypes
type std_args_fun = package -> string array -> unit
type ('a, 'b) section_args_fun =
name * (package -> (common_section * 'a) -> string array -> 'b)
type t =
{
configure: std_args_fun;
build: std_args_fun;
doc: ((doc, unit) section_args_fun) list;
test: ((test, float) section_args_fun) list;
install: std_args_fun;
uninstall: std_args_fun;
clean: std_args_fun list;
clean_doc: (doc, unit) section_args_fun list;
clean_test: (test, unit) section_args_fun list;
distclean: std_args_fun list;
distclean_doc: (doc, unit) section_args_fun list;
distclean_test: (test, unit) section_args_fun list;
package: package;
oasis_fn: string option;
oasis_version: string;
oasis_digest: Digest.t option;
oasis_exec: string option;
oasis_setup_args: string list;
setup_update: bool;
}
let setup t =
let mk_std_args_fun f =
fun ~ctxt pkg args -> rctxt := ctxt; f pkg args
in
let mk_section_args_fun l =
List.map
(fun (nm, f) ->
nm,
(fun ~ctxt pkg sct args ->
rctxt := ctxt;
f pkg sct args))
l
in
let t' =
{
Original.
configure = mk_std_args_fun t.configure;
build = mk_std_args_fun t.build;
doc = mk_section_args_fun t.doc;
test = mk_section_args_fun t.test;
install = mk_std_args_fun t.install;
uninstall = mk_std_args_fun t.uninstall;
clean = List.map mk_std_args_fun t.clean;
clean_doc = mk_section_args_fun t.clean_doc;
clean_test = mk_section_args_fun t.clean_test;
distclean = List.map mk_std_args_fun t.distclean;
distclean_doc = mk_section_args_fun t.distclean_doc;
distclean_test = mk_section_args_fun t.distclean_test;
package = t.package;
oasis_fn = t.oasis_fn;
oasis_version = t.oasis_version;
oasis_digest = t.oasis_digest;
oasis_exec = t.oasis_exec;
oasis_setup_args = t.oasis_setup_args;
setup_update = t.setup_update;
}
in
Original.setup t'
end
let adapt_setup_t setup_t =
let module O = BaseSetup.Original in
let mk_std_args_fun f = fun pkg args -> f ~ctxt:!rctxt pkg args in
let mk_section_args_fun l =
List.map
(fun (nm, f) -> nm, (fun pkg sct args -> f ~ctxt:!rctxt pkg sct args))
l
in
{
BaseSetup.
configure = mk_std_args_fun setup_t.O.configure;
build = mk_std_args_fun setup_t.O.build;
doc = mk_section_args_fun setup_t.O.doc;
test = mk_section_args_fun setup_t.O.test;
install = mk_std_args_fun setup_t.O.install;
uninstall = mk_std_args_fun setup_t.O.uninstall;
clean = List.map mk_std_args_fun setup_t.O.clean;
clean_doc = mk_section_args_fun setup_t.O.clean_doc;
clean_test = mk_section_args_fun setup_t.O.clean_test;
distclean = List.map mk_std_args_fun setup_t.O.distclean;
distclean_doc = mk_section_args_fun setup_t.O.distclean_doc;
distclean_test = mk_section_args_fun setup_t.O.distclean_test;
package = setup_t.O.package;
oasis_fn = setup_t.O.oasis_fn;
oasis_version = setup_t.O.oasis_version;
oasis_digest = setup_t.O.oasis_digest;
oasis_exec = setup_t.O.oasis_exec;
oasis_setup_args = setup_t.O.oasis_setup_args;
setup_update = setup_t.O.setup_update;
}
end
module Compat_0_3 =
struct
include Compat_0_4
end
(* END EXPORT *)
let setup_ml_text pkg =
let modul =
let buf = Buffer.create 15 in
Buffer.add_string buf "BaseCompat.Compat_";
String.iter
(fun c -> Buffer.add_char buf (if c = '.' then '_' else c))
(OASISVersion.string_of_version pkg.OASISTypes.oasis_version);
Buffer.contents buf
in
[
Printf.sprintf "let setup_t = %s.adapt_setup_t setup_t" modul;
Printf.sprintf "open %s" modul;
]
|