Source file inout_parameters.ml

(**************************************************************************)
(*                                                                        *)
(*  SPDX-License-Identifier LGPL-2.1                                      *)
(*  Copyright (C)                                                         *)
(*  CEA (Commissariat à l'énergie atomique et aux énergies alternatives)  *)
(*                                                                        *)
(**************************************************************************)

let name = "inout"

include Plugin.Register
    (struct
      let name = name
      let shortname = name
      let help = "operational, imperative and all kinds of inputs/outputs"
    end)


module ForceDeref =
  False
    (struct
      let option_name = "-deref"
      let help = "force deref computation (undocumented)"
    end)

module ForceAccessPath =
  False
    (struct
      let option_name = "-access-path"
      let help = "force the access path information to be computed"
    end)

module ForceOut =
  False
    (struct
      let option_name = "-out"
      let help = "Compute internal out. Those are an over-approximation of the set of written locations"
    end)

module ForceExternalOut =
  False
    (struct
      let option_name = "-out-external"
      let help = "Compute external out. Those are an over-approximation of the set of written locations, excluding locals"
    end)

module ForceInput =
  False
    (struct
      let option_name = "-input"
      let help = "Compute imperative inputs. Locals and function parameters are not displayed"
    end)

module ForceInputWithFormals =
  False
    (struct
      let option_name = "-input-with-formals"
      let help = "Compute imperative inputs. Function parameters are displayed, locals are not"
    end)

module ForceInout =
  False
    (struct
      let option_name = "-inout"
      let help = "Compute operational inputs, an over-approximation of the set of locations whose initial value is used; and the sure outputs, an under-approximation of the set of the certainly written locations"
    end)

module ForceInoutExternalWithFormals =
  False
    (struct
      let option_name = "-inout-with-formals"
      let help = "same as -inout but without local variables and with function parameters"
    end)

let () = Parameter_customize.set_group messages
module Output =
  True(struct
    let option_name = "-inout-print"
    let help = "print the results of all the analyzes"
  end)