|
|
|
|
(*
|
|
|
|
|
* Copyright (c) 2016 - present Facebook, Inc.
|
|
|
|
|
* All rights reserved.
|
|
|
|
|
*
|
|
|
|
|
* This source code is licensed under the BSD style license found in the
|
|
|
|
|
* LICENSE file in the root directory of this source tree. An additional grant
|
|
|
|
|
* of patent rights can be found in the PATENTS file in the same directory.
|
|
|
|
|
*)
|
|
|
|
|
|
|
|
|
|
open! IStd
|
|
|
|
|
|
|
|
|
|
type t
|
|
|
|
|
|
|
|
|
|
val mk : ClangQuotes.style -> prog:string -> args:string list -> t
|
|
|
|
|
(** [mk qs prog args] finds the type of command depending on its arguments [args]. The quoting style
|
|
|
|
|
of the arguments have to be provided, so that the command may be run later on. Beware that this
|
|
|
|
|
doesn't look inside argument files. This can be used to create a "clang -### ..." command on
|
|
|
|
|
which to call [command_to_run], but other functions from the module will not work as expected
|
|
|
|
|
unless the command has been normalized by "clang -### ...". *)
|
|
|
|
|
|
|
|
|
|
val command_to_run : t -> string
|
|
|
|
|
(** Make a command into a string ready to be passed to a shell to be executed. Fine to call with
|
|
|
|
|
clang driver commands. *)
|
|
|
|
|
|
|
|
|
|
val can_attach_ast_exporter : t -> bool
|
|
|
|
|
(** Whether the command is suitable for attaching the AST exporter. Must be called on normalized commands. *)
|
|
|
|
|
|
|
|
|
|
val with_plugin_args : t -> t
|
|
|
|
|
(** Add the arguments needed to attach the facebook-clang-plugins plugin. Must be called on normalized commands. *)
|
|
|
|
|
|
|
|
|
|
val prepend_arg : string -> t -> t
|
|
|
|
|
|
|
|
|
|
val append_args : string list -> t -> t
|
|
|
|
|
|
|
|
|
|
val get_orig_argv : t -> string list
|
