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
|
(** This file declares external identifiers that we catch to map them to
definitions coming from the standard libraries in our backends. *)
open Names
type simple_name = string list [@@deriving show, ord]
let name_to_simple_name (s : name) : simple_name =
(* We simply ignore the disambiguators *)
List.filter_map (function Ident id -> Some id | Disambiguator _ -> None) s
(** Small helper which cuts a string at the occurrences of "::" *)
let string_to_simple_name (s : string) : simple_name =
(* No function to split by using string separator?? *)
let name = String.split_on_char ':' s in
List.filter (fun s -> s <> "") name
module SimpleNameOrd = struct
type t = simple_name
let compare = compare_simple_name
let to_string = show_simple_name
let pp_t = pp_simple_name
let show_t = show_simple_name
end
module SimpleNameMap = Collections.MakeMap (SimpleNameOrd)
let assumed_globals : (string * string) list =
[
(* Min *)
("core::num::usize::MIN", "core_usize_min");
("core::num::u8::MIN", "core_u8_min");
("core::num::u16::MIN", "core_u16_min");
("core::num::u32::MIN", "core_u32_min");
("core::num::u64::MIN", "core_u64_min");
("core::num::u128::MIN", "core_u128_min");
("core::num::isize::MIN", "core_isize_min");
("core::num::i8::MIN", "core_i8_min");
("core::num::i16::MIN", "core_i16_min");
("core::num::i32::MIN", "core_i32_min");
("core::num::i64::MIN", "core_i64_min");
("core::num::i128::MIN", "core_i128_min");
(* Max *)
("core::num::usize::MAX", "core_usize_max");
("core::num::u8::MAX", "core_u8_max");
("core::num::u16::MAX", "core_u16_max");
("core::num::u32::MAX", "core_u32_max");
("core::num::u64::MAX", "core_u64_max");
("core::num::u128::MAX", "core_u128_max");
("core::num::isize::MAX", "core_isize_max");
("core::num::i8::MAX", "core_i8_max");
("core::num::i16::MAX", "core_i16_max");
("core::num::i32::MAX", "core_i32_max");
("core::num::i64::MAX", "core_i64_max");
("core::num::i128::MAX", "core_i128_max");
]
let assumed_globals_map : string SimpleNameMap.t =
SimpleNameMap.of_list
(List.map (fun (x, y) -> (string_to_simple_name x, y)) assumed_globals)
|
