From fbaeaaec35da748db98a3cf9e405024024561426 Mon Sep 17 00:00:00 2001 From: Bernhard Schommer Date: Tue, 19 Apr 2016 17:14:50 +0200 Subject: Moved some system functions into own module. The process handling is now in its own file, like the output name generation etc. Bug 18768 --- driver/Sysaux.mli | 34 ++++++++++++++++++++++++++++++++++ 1 file changed, 34 insertions(+) create mode 100644 driver/Sysaux.mli (limited to 'driver/Sysaux.mli') 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 *) -- cgit