diff options
author | Bernhard Schommer <bernhardschommer@gmail.com> | 2016-04-19 17:14:50 +0200 |
---|---|---|
committer | Bernhard Schommer <bernhardschommer@gmail.com> | 2016-05-24 15:50:20 +0200 |
commit | fbaeaaec35da748db98a3cf9e405024024561426 (patch) | |
tree | 12b4492aa53170088b54bdfe0597b6783ad486ab /driver/Sysaux.mli | |
parent | 672393ef623acb3e230a8019d51c87e051a7567a (diff) | |
download | compcert-fbaeaaec35da748db98a3cf9e405024024561426.tar.gz compcert-fbaeaaec35da748db98a3cf9e405024024561426.zip |
Moved some system functions into own module.
The process handling is now in its own file, like the output name
generation etc.
Bug 18768
Diffstat (limited to 'driver/Sysaux.mli')
-rw-r--r-- | driver/Sysaux.mli | 34 |
1 files changed, 34 insertions, 0 deletions
diff --git a/driver/Sysaux.mli b/driver/Sysaux.mli new file mode 100644 index 00000000..c639e780 --- /dev/null +++ b/driver/Sysaux.mli @@ -0,0 +1,34 @@ +(* *********************************************************************) +(* *) +(* 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 -> unit + (** Generate an error message for the given command and exit code *) + +val safe_remove: string -> unit + (** Remove the given file if it exists *) + +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 *) |