diff options
author | 2016-09-29 15:23:07 +0200 | |
---|---|---|
committer | 2016-09-29 17:51:06 +0200 | |
commit | 601fd9343a241706c0a205aaf8e08255753c3780 (patch) | |
tree | 8e704db53a79b588303cd5fe98448e598dd79518 /intf | |
parent | fdfcdc79989c46737089e4c8cab5ad0090e4d8a6 (diff) |
Arguments: cleanup + detect discrepancy rename/implicit (#3753)
It seems warnings are not taken into account in output/
tests.
Diffstat (limited to 'intf')
-rw-r--r-- | intf/vernacexpr.mli | 9 |
1 files changed, 8 insertions, 1 deletions
diff --git a/intf/vernacexpr.mli b/intf/vernacexpr.mli index ed44704df..6df85f076 100644 --- a/intf/vernacexpr.mli +++ b/intf/vernacexpr.mli @@ -415,7 +415,7 @@ type vernac_expr = | VernacDeclareImplicits of reference or_by_notation * (explicitation * bool * bool) list list | VernacArguments of reference or_by_notation * - ((Name.t * bool * (Loc.t * string) option * bool * bool) list) list * + (vernac_argument_status list) list * int * [ `ReductionDontExposeCase | `ReductionNeverUnfold | `Rename | `ExtraScopes | `Assert | `ClearImplicits | `ClearScopes | `DefaultImplicits ] list @@ -477,6 +477,13 @@ and tacdef_body = | TacticDefinition of Id.t Loc.located * raw_tactic_expr (* indicates that user employed ':=' in Ltac body *) | TacticRedefinition of reference * raw_tactic_expr (* indicates that user employed '::=' in Ltac body *) +and vernac_argument_status = { + name : Name.t; + recarg_like : bool; + notation_scope : (Loc.t * string) option; + implicit_status : [ `Implicit | `MaximallyImplicit | `NotImplicit]; +} + (* A vernac classifier has to tell if a command: vernac_when: has to be executed now (alters the parser) or later vernac_type: if it is starts, ends, continues a proof or |