(*
-* Copyright 2005-2008, Ecole des Mines de Nantes, University of Copenhagen
-* Yoann Padioleau, Julia Lawall, Rene Rydhof Hansen, Henrik Stuart, Gilles Muller
-* 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.
-*)
+ * Copyright 2010, 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 <http://www.gnu.org/licenses/>.
+ *
+ * The authors reserve the right to distribute this or future versions of
+ * Coccinelle under other licenses.
+ *)
type keep_binding = bool (* true = put in witness tree *)
(* CTL parameterised on basic predicates and metavar's*)
-type ('pred,'mvar,'anno) generic_ctl =
+type ('pred,'mvar,'anno) generic_ctl =
| False
| True
| Pred of 'pred
| Not of (('pred,'mvar,'anno) generic_ctl)
| Exists of keep_binding * 'mvar * (('pred,'mvar,'anno) generic_ctl)
- | And of strict * (('pred,'mvar,'anno) generic_ctl) *
+ | And of strict * (('pred,'mvar,'anno) generic_ctl) *
(('pred,'mvar,'anno) generic_ctl)
- | AndAny of direction * strict * (('pred,'mvar,'anno) generic_ctl) *
+ | AndAny of direction * strict * (('pred,'mvar,'anno) generic_ctl) *
(('pred,'mvar,'anno) generic_ctl)
- | HackForStmt of direction * strict * (('pred,'mvar,'anno) generic_ctl) *
+ | HackForStmt of direction * strict * (('pred,'mvar,'anno) generic_ctl) *
(('pred,'mvar,'anno) generic_ctl)
- | Or of (('pred,'mvar,'anno) generic_ctl) *
+ | Or of (('pred,'mvar,'anno) generic_ctl) *
(('pred,'mvar,'anno) generic_ctl)
- | Implies of (('pred,'mvar,'anno) generic_ctl) *
+ | Implies of (('pred,'mvar,'anno) generic_ctl) *
(('pred,'mvar,'anno) generic_ctl)
| AF of direction * strict * (('pred,'mvar,'anno) generic_ctl)
| AX of direction * strict * (('pred,'mvar,'anno) generic_ctl)
| EF of direction * (('pred,'mvar,'anno) generic_ctl)
| EX of direction * (('pred,'mvar,'anno) generic_ctl)
| EG of direction * (('pred,'mvar,'anno) generic_ctl)
- | EU of direction * (('pred,'mvar,'anno) generic_ctl) *
+ | EU of direction * (('pred,'mvar,'anno) generic_ctl) *
(('pred,'mvar,'anno) generic_ctl)
- | Let of string *
- (('pred,'mvar,'anno) generic_ctl) *
+ | Let of string *
+ (('pred,'mvar,'anno) generic_ctl) *
(('pred,'mvar,'anno) generic_ctl)
| LetR of direction * string * (* evals phi1 wrt reachable states *)
- (('pred,'mvar,'anno) generic_ctl) *
+ (('pred,'mvar,'anno) generic_ctl) *
(('pred,'mvar,'anno) generic_ctl)
| Ref of string
- | SeqOr of (('pred,'mvar,'anno) generic_ctl) *
+ | SeqOr of (('pred,'mvar,'anno) generic_ctl) *
(('pred,'mvar,'anno) generic_ctl)
| Uncheck of (('pred,'mvar,'anno) generic_ctl)
| InnerAnd of (('pred,'mvar,'anno) generic_ctl)
(* NOTE: No explicit representation of the bottom subst., i.e., FALSE *)
-type ('mvar,'value) generic_subst =
+type ('mvar,'value) generic_subst =
| Subst of 'mvar * 'value
| NegSubst of 'mvar * 'value
type ('mvar,'value) generic_substitution = ('mvar,'value) generic_subst list