diff options
| author |  Pierre-Marie Pédrot <pierre-marie.pedrot@inria.fr> | 2014-07-27 14:58:03 +0200 |
|---|---|---|
| committer | Pierre-Marie Pédrot <pierre-marie.pedrot@inria.fr> | 2014-07-27 15:39:10 +0200 |
| commit | b52dca14d3ac66ecd1657a21fecd0b48751096a7 (patch) | |
| tree | 193b1f22f433b24dd8038e54c2e96041acc6dd19 /intf | |
| parent | 0736cd1ff1eb07c6faae43cdfbe2efd11c8470e9 (diff) | |
Qualified ML tactic names. The plugin name is used to discriminate
potentially conflicting tactics names from different plugins.
Diffstat (limited to 'intf')
| -rw-r--r-- | intf/tacexpr.mli | 7 |
1 files changed, 6 insertions, 1 deletions
diff --git a/intf/tacexpr.mli b/intf/tacexpr.mli index 609ee2f36..1375552c3 100644 --- a/intf/tacexpr.mli +++ b/intf/tacexpr.mli @@ -83,6 +83,11 @@ type ('a,'t) match_rule = | Pat of 'a match_context_hyps list * 'a match_pattern * 't | All of 't +type ml_tactic_name = { + mltac_plugin : string; + mltac_tactic : string; +} + (** Composite types *) (** In globalize tactics, we need to keep the initial [constr_expr] to recompute @@ -157,7 +162,7 @@ type ('trm,'pat,'cst,'ind,'ref,'nam,'lev) gen_atomic_tactic_expr = | TacInversion of ('trm,'nam) inversion_strength * quantified_hypothesis (* For ML extensions *) - | TacExtend of Loc.t * string * 'lev generic_argument list + | TacExtend of Loc.t * ml_tactic_name * 'lev generic_argument list (* For syntax extensions *) | TacAlias of Loc.t * KerName.t * (Id.t * 'lev generic_argument) list |