[bpt/coccinelle.git] / engine / ctlcocci_integration.mli

(*
 * 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 <http://www.gnu.org/licenses/>.
 *
 * The authors reserve the right to distribute this or future versions of
 * Coccinelle under other licenses.
 *)


open Ograph_extended 

val labels_for_ctl :
  string list (* dropped isos *) ->
  (nodei * Control_flow_c.node) list -> Lib_engine.metavars_binding -> 
  Lib_engine.label_ctlcocci


val fix_flow_ctl : Control_flow_c.cflow -> Control_flow_c.cflow

val model_for_ctl : 
  string list (* dropped isos *) -> 
  Control_flow_c.cflow -> Lib_engine.metavars_binding -> Lib_engine.model


type pred = Lib_engine.predicate * Ast_cocci.meta_name Ast_ctl.modif

val mysat :
  Lib_engine.model -> 
  (Lib_engine.ctlcocci * (pred list list)) -> 
  (Lib_engine.mvar list * Lib_engine.metavars_binding) -> 
  (Lib_engine.numbered_transformation_info *  bool *
     Lib_engine.metavars_binding * Lib_engine.metavars_binding list)


val print_bench : unit -> unit
Commit	Line	Data
9f8e26f4 C	1	(*
	2	* Copyright 2005-2009, Ecole des Mines de Nantes, University of Copenhagen
	3	* Yoann Padioleau, Julia Lawall, Rene Rydhof Hansen, Henrik Stuart, Gilles Muller, Nicolas Palix
	4	* This file is part of Coccinelle.
	5	*
	6	* Coccinelle is free software: you can redistribute it and/or modify
	7	* it under the terms of the GNU General Public License as published by
	8	* the Free Software Foundation, according to version 2 of the License.
	9	*
	10	* Coccinelle is distributed in the hope that it will be useful,
	11	* but WITHOUT ANY WARRANTY; without even the implied warranty of
	12	* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
	13	* GNU General Public License for more details.
	14	*
	15	* You should have received a copy of the GNU General Public License
	16	* along with Coccinelle. If not, see <http://www.gnu.org/licenses/>.
	17	*
	18	* The authors reserve the right to distribute this or future versions of
	19	* Coccinelle under other licenses.
	20	*)
	21
	22
34e49164 C	23	open Ograph_extended
	24
	25	val labels_for_ctl :
	26	string list (* dropped isos *) ->
	27	(nodei * Control_flow_c.node) list -> Lib_engine.metavars_binding ->
	28	Lib_engine.label_ctlcocci
	29
	30
	31	val fix_flow_ctl : Control_flow_c.cflow -> Control_flow_c.cflow
	32
	33	val model_for_ctl :
	34	string list (* dropped isos *) ->
	35	Control_flow_c.cflow -> Lib_engine.metavars_binding -> Lib_engine.model
	36
	37
	38	type pred = Lib_engine.predicate * Ast_cocci.meta_name Ast_ctl.modif
	39
	40	val mysat :
	41	Lib_engine.model ->
	42	(Lib_engine.ctlcocci * (pred list list)) ->
	43	(Lib_engine.mvar list * Lib_engine.metavars_binding) ->
708f4980 C	44	(Lib_engine.numbered_transformation_info * bool *
708f4980 C	45	Lib_engine.metavars_binding * Lib_engine.metavars_binding list)
34e49164 C	46
	47
	48	val print_bench : unit -> unit