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
|
(**************************************************************************)
(* *)
(* OCaml *)
(* *)
(* Gabriel Scherer, projet Parsifal, INRIA Saclay *)
(* *)
(* Copyright 2017 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. *)
(* *)
(**************************************************************************)
(** Rewrite paths for reproducible builds
{b Warning:} this module is unstable and part of
{{!Compiler_libs}compiler-libs}.
See
{{: https://reproducible-builds.org/specs/build-path-prefix-map/ }
the BUILD_PATH_PREFIX_MAP spec}
*)
type path = string
type path_prefix = string
type error_message = string
val encode_prefix : path_prefix -> string
val decode_prefix : string -> (path_prefix, error_message) result
type pair = { target: path_prefix; source : path_prefix }
val encode_pair : pair -> string
val decode_pair : string -> (pair, error_message) result
type map = pair option list
val encode_map : map -> string
val decode_map : string -> (map, error_message) result
val rewrite_first : map -> path -> path option
(** [rewrite_first map path] tries to find a source in [map]
that is a prefix of the input [path]. If it succeeds,
it replaces this prefix with the corresponding target.
If it fails, it just returns [None]. *)
val rewrite_all : map -> path -> path list
(** [rewrite_all map path] finds all sources in [map]
that are a prefix of the input [path]. For each matching
source, in priority order, it replaces this prefix with
the corresponding target and adds the result to
the returned list.
If there are no matches, it just returns [[]]. *)
val rewrite : map -> path -> path
(** [rewrite path] uses [rewrite_first] to try to find a
mapping for path. If found, it returns that, otherwise
it just returns [path]. *)
|