blob: 6f0eaddbe46f84869bb753a733a2c26ebb19d25e (
plain)
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
|
(* *********************************************************************)
(* *)
(* The Compcert verified compiler *)
(* *)
(* Xavier Leroy, INRIA Paris-Rocquencourt *)
(* Bernhard Schommer, AbsInt Angewandte Informatik GmbH *)
(* *)
(* Copyright Institut National de Recherche en Informatique et en *)
(* Automatique. All rights reserved. This file is distributed *)
(* under the terms of the INRIA Non-Commercial License Agreement. *)
(* *)
(* *********************************************************************)
val command: ?stdout:string -> string list -> int
(** Execute the command with the given arguments and an optional file for
the stdout. Returns the exit code. *)
val command_error: string -> int -> 'a
(** Generate an error message for the given command and exit code *)
val safe_remove: string -> unit
(** Remove the given file if it exists *)
val tmp_file: string -> string
(** Create a temporary file with the given suffix.
The file will be removed when the program exits.
Return the absolute path to the file. *)
val output_filename: ?final:bool -> string -> string -> string -> string
(** Determine names for output files. We use -o option if specified
and if this is the final destination file (not a dump file).
Otherwise, we generate a file in the current directory. *)
val output_filename_default: string -> string
(** Return either the file specified by -o or the given file name *)
val ensure_inputfile_exists: string -> unit
(** Test whether the given input file exists *)
val print_error:Format.formatter -> Errors.errcode list -> unit
(** Printing of error messages *)
val explode_comma_option: string -> string list
(** Split option at commas *)
val push_action: (string -> string) -> string -> unit
(** Add an action to be performed after parsing the command line *)
val push_linker_arg: string -> unit
(** Add a linker arguments *)
val perform_actions: unit -> string list
(** Perform actions *)
|
