2 * Copyright 2012, INRIA
3 * Julia Lawall, Gilles Muller
4 * Copyright 2010-2011, INRIA, University of Copenhagen
5 * Julia Lawall, Rene Rydhof Hansen, Gilles Muller, Nicolas Palix
6 * Copyright 2005-2009, Ecole des Mines de Nantes, University of Copenhagen
7 * Yoann Padioleau, Julia Lawall, Rene Rydhof Hansen, Henrik Stuart, Gilles Muller, Nicolas Palix
8 * This file is part of Coccinelle.
10 * Coccinelle is free software: you can redistribute it and/or modify
11 * it under the terms of the GNU General Public License as published by
12 * the Free Software Foundation, according to version 2 of the License.
14 * Coccinelle is distributed in the hope that it will be useful,
15 * but WITHOUT ANY WARRANTY; without even the implied warranty of
16 * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
17 * GNU General Public License for more details.
19 * You should have received a copy of the GNU General Public License
20 * along with Coccinelle. If not, see <http://www.gnu.org/licenses/>.
22 * The authors reserve the right to distribute this or future versions of
23 * Coccinelle under other licenses.
30 (*****************************************************************************)
31 (* work with tests/ *)
32 (*****************************************************************************)
33 val testone
: string (*prefix*) -> string (*test*) -> bool (*compare_expected*) -> unit
34 val testall
: string -> bool -> unit
36 (*****************************************************************************)
37 (* works with tests-big/. The .res, .ok, .spatch_ok, .failed, .var *)
38 (*****************************************************************************)
39 val test_okfailed
: filename
(*cocci*) -> filename
(*c*) list
-> unit
40 val test_regression_okfailed
: unit -> unit
44 (*****************************************************************************)
45 (* the parameter is the result of Cocci.full_engine *)
46 (*****************************************************************************)
47 val compare_with_expected
: (filename
* filename
option) list
-> unit
50 (*****************************************************************************)
51 (* to test/debug the coccinelle subsystems *)
52 (*****************************************************************************)
55 * I moved the parsing_c/ subsystem testing in parsing_c/test_parsing_c.ml
56 * as I need it for other projects too.
59 val test_parse_cocci
: filename
-> unit
61 (*****************************************************************************)
62 (* to be called by ocaml toplevel, to test. *)
63 (*****************************************************************************)
66 filename
(* coccifile *) -> filename
option (* isofile *) ->
67 Ast_cocci.metavar list list
* Ast_cocci.rule list
*
68 Ast_cocci.meta_name list list list
*
69 Ast_cocci.meta_name list list list
*
70 (Ast_cocci.meta_name list list list
(*used after list*) *
71 (*fresh used after list*)
72 Ast_cocci.meta_name list list list
*
73 (*fresh used after list seeds*)
74 Ast_cocci.meta_name list list list
) *
75 Ast_cocci.meta_name list list list
*
78 Get_constants2.combine
option)
81 val rule_elem_of_string : string -> filename option -> Ast_cocci.rule_elem
85 val flows_of_ast : Ast_c.program -> Control_flow_c.cflow list
86 val print_flow : Control_flow_c.cflow -> unit
89 Ast_cocci.rule list ->
90 Ast_cocci.meta_name list list list ->
91 (Lib_engine.ctlcocci *
92 ((Lib_engine.predicate * Ast_cocci.meta_name Ast_ctl.modif)
97 val one_flow : Control_flow_c.cflow list -> Control_flow_c.cflow
98 val one_ctl : Lib_engine.ctlcocci list list -> Lib_engine.ctlcocci