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
(* SPDX-License-Identifier: AGPL-3.0-or-later *)
(* Copyright © 2021-2024 OCamlPro *)
(* Written by the Owi programmers *)
open Bos
open Syntax
(* TODO: refactor to re-use code in Cmd_c.ml *)
let rust_files = List.map Fpath.v Share.Sites.rust_files
let find location file : Fpath.t Result.t =
let* l =
list_map
(fun dir ->
let filename = Fpath.append dir file in
match OS.File.exists filename with
| Ok true -> Ok (Some filename)
| Ok false -> Ok None
| Error (`Msg msg) -> Error (`Msg msg) )
location
in
let rec loop = function
| [] -> Error (`Msg (Fmt.str "can't find file %a" Fpath.pp file))
| None :: tl -> loop tl
| Some file :: _tl -> Ok file
in
loop l
(* TODO: investigate which parameters makes sense *)
let compile ~includes:_ ~opt_lvl:_ debug (files : Fpath.t list) :
Fpath.t Result.t =
let* rustc_bin = OS.Cmd.resolve @@ Cmd.v "rustc" in
let* libowi_sym_rlib = find rust_files (Fpath.v "libowi_sym.rlib") in
let out = Fpath.v "a.out.wasm" in
let rustc_cmd : Cmd.t =
Cmd.(
rustc_bin % "--target=wasm32-unknown-unknown" % "--extern"
% Fmt.str "owi_sym=%a" Fpath.pp libowi_sym_rlib
% "-o" % Cmd.p out
%% Cmd.of_list (List.map Cmd.p files) )
in
let+ () =
match OS.Cmd.run rustc_cmd with
| Ok _ as v -> v
| Error (`Msg e) ->
Fmt.error_msg "rustc failed: %s"
(if debug then e else "run with --debug to get the full error message")
in
out
let cmd ~debug ~arch:_ ~workers ~opt_lvl ~includes ~files ~profiling ~unsafe
~optimize ~no_stop_at_failure ~no_value ~no_assert_failure_expression_printing
~deterministic_result_order ~fail_mode ~concolic ~solver ~profile :
unit Result.t =
let* modul = compile ~includes ~opt_lvl debug files in
let files = [ modul ] in
(if concolic then Cmd_conc.cmd else Cmd_sym.cmd)
~profiling ~debug ~unsafe ~rac:false ~srac:false ~optimize ~workers
~no_stop_at_failure ~no_value ~no_assert_failure_expression_printing
~deterministic_result_order ~fail_mode ~workspace:(Fpath.v "owi-out")
~solver ~files ~profile