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.
29 (*****************************************************************************)
30 (* work with tests/ *)
31 (*****************************************************************************)
32 val testone
: string (*prefix*) -> string (*test*) -> bool (*compare_expected*) -> unit
33 val testall
: ?expected_score_file
:string -> unit -> unit
35 (*****************************************************************************)
36 (* works with tests-big/. The .res, .ok, .spatch_ok, .failed, .var *)
37 (*****************************************************************************)
38 val test_okfailed
: filename
(*cocci*) -> filename
(*c*) list
-> unit
39 val test_regression_okfailed
: unit -> unit
43 (*****************************************************************************)
44 (* the parameter is the result of Cocci.full_engine *)
45 (*****************************************************************************)
46 val compare_with_expected
: (filename
* filename
option) list
-> unit
49 (*****************************************************************************)
50 (* to test/debug the coccinelle subsystems *)
51 (*****************************************************************************)
54 * I moved the parsing_c/ subsystem testing in parsing_c/test_parsing_c.ml
55 * as I need it for other projects too.
58 val test_parse_cocci
: filename
-> unit
60 (*****************************************************************************)
61 (* to be called by ocaml toplevel, to test. *)
62 (*****************************************************************************)
65 filename
(* coccifile *) -> filename
option (* isofile *) ->
66 Ast_cocci.metavar list list
* Ast_cocci.rule list
*
67 Ast_cocci.meta_name list list list
*
68 Ast_cocci.meta_name list list list
*
69 (Ast_cocci.meta_name list list list
(*used after list*) *
70 (*fresh used after list*)
71 Ast_cocci.meta_name list list list
*
72 (*fresh used after list seeds*)
73 Ast_cocci.meta_name list list list
) *
74 Ast_cocci.meta_name list list list
*
77 Get_constants2.combine
option)
80 val rule_elem_of_string : string -> filename option -> Ast_cocci.rule_elem
84 val flows_of_ast : Ast_c.program -> Control_flow_c.cflow list
85 val print_flow : Control_flow_c.cflow -> unit
88 Ast_cocci.rule list ->
89 Ast_cocci.meta_name list list list ->
90 (Lib_engine.ctlcocci *
91 ((Lib_engine.predicate * Ast_cocci.meta_name Ast_ctl.modif)
96 val one_flow : Control_flow_c.cflow list -> Control_flow_c.cflow
97 val one_ctl : Lib_engine.ctlcocci list list -> Lib_engine.ctlcocci