You can not select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
42 lines
1.3 KiB
42 lines
1.3 KiB
(*
|
|
* Copyright (c) Facebook, Inc. and its affiliates.
|
|
*
|
|
* This source code is licensed under the MIT license found in the
|
|
* LICENSE file in the root directory of this source tree.
|
|
*)
|
|
|
|
(** module for escaping clang arguments on the command line and put them into files *)
|
|
|
|
open! IStd
|
|
module L = Logging
|
|
|
|
(** quoting style of the arguments *)
|
|
type style =
|
|
| EscapedDoubleQuotes
|
|
(** the arguments should be enclosed in "double quotes" and are already escaped *)
|
|
| SingleQuotes (** the arguments should be enclosed in 'single quotes' and have to be escaped *)
|
|
| EscapedNoQuotes (** the arguments should not be enclosed in quotes and are already escaped *)
|
|
|
|
let quote style =
|
|
match style with
|
|
| EscapedNoQuotes ->
|
|
fun s -> s
|
|
| EscapedDoubleQuotes ->
|
|
fun s -> "\"" ^ s ^ "\""
|
|
| SingleQuotes ->
|
|
fun s -> Escape.escape_in_single_quotes s
|
|
|
|
|
|
let mk_arg_file prefix style args =
|
|
let file = Filename.temp_file prefix ~in_dir:Config.temp_file_dir ".txt" in
|
|
let write_args outc =
|
|
List.iter
|
|
~f:(fun arg ->
|
|
quote style arg |> Out_channel.output_string outc ;
|
|
Out_channel.newline outc )
|
|
args
|
|
in
|
|
Utils.with_file_out file ~f:write_args ;
|
|
L.(debug Capture Medium) "Clang options stored in file %s@\n" file ;
|
|
file
|