(* * Copyright 2012, INRIA * Julia Lawall, Gilles Muller * Copyright 2010-2011, INRIA, University of Copenhagen * Julia Lawall, Rene Rydhof Hansen, Gilles Muller, Nicolas Palix * Copyright 2005-2009, Ecole des Mines de Nantes, University of Copenhagen * Yoann Padioleau, Julia Lawall, Rene Rydhof Hansen, Henrik Stuart, Gilles Muller, Nicolas Palix * This file is part of Coccinelle. * * Coccinelle is free software: you can redistribute it and/or modify * it under the terms of the GNU General Public License as published by * the Free Software Foundation, according to version 2 of the License. * * Coccinelle is distributed in the hope that it will be useful, * but WITHOUT ANY WARRANTY; without even the implied warranty of * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the * GNU General Public License for more details. * * You should have received a copy of the GNU General Public License * along with Coccinelle. If not, see . * * The authors reserve the right to distribute this or future versions of * Coccinelle under other licenses. *) # 0 "./flag_cocci.ml" (* the inputs *) let show_c = ref false let show_cocci = ref false (* the output *) let show_diff = ref true let force_diff = ref false (*show diff even if thhere are only space changes*) (* the derived inputs *) let show_flow = ref false let show_before_fixed_flow = ref false let show_ctl_tex = ref false let show_ctl_text = ref false let inline_let_ctl = ref false let show_mcodekind_in_ctl = ref false (* the "underived" outputs *) let show_binding_in_out = ref false let show_dependencies = ref false let verbose_cocci = ref true let windows = ref false let popl = ref false let ifdef_to_if = ref true(*false*) type include_options = I_UNSPECIFIED | I_NO_INCLUDES | I_NORMAL_INCLUDES | I_ALL_INCLUDES | I_REALLY_ALL_INCLUDES let include_options = ref I_UNSPECIFIED let include_path = ref ([] : string list) (* if true then when have a #include "../../xx.h", we look also for xx.h in * current directory. This is because of how works extract_c_and_res *) let relax_include_path = ref false let extra_includes = ref ([] : string list) let timeout = ref (None : int option) let worth_trying_opt = ref true let use_saved_typedefs = ref true (* hack! *)