diff options
author | Matej Košík <matej.kosik@inria.fr> | 2017-08-04 18:28:31 +0200 |
---|---|---|
committer | Matej Košík <matej.kosik@inria.fr> | 2017-11-01 08:05:37 +0100 |
commit | f874a292c94b290a31af8e0f707ffd20ab31001b (patch) | |
tree | eb8c4b67597cbf6adaee337717e9a09eaf9325eb /vernac/vernacinterp.mli | |
parent | e5659c8ffe735c530a707a61c692a3af21a79a9a (diff) |
provide "loc : Loc.t" binding within "VERNAC COMMAND EXTEND" rules
Originally, it was not possible to define a new vernacular command
in the following way:
VERNAC COMMAND EXTEND Cmd6 CLASSIFIED AS QUERY
[ "SomeCmd" ] -> [ Feedback.msg_notice ?loc (Pp.str "some message") ]
END
because "loc : Loc.t" was not bound.
This commit fixes that, i.e. the location of the custom Vernacular command
(within *.v file) is made available as "loc" variable bound on the right side
of "->" .
Diffstat (limited to 'vernac/vernacinterp.mli')
-rw-r--r-- | vernac/vernacinterp.mli | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/vernac/vernacinterp.mli b/vernac/vernacinterp.mli index f58d07086..84370fdc2 100644 --- a/vernac/vernacinterp.mli +++ b/vernac/vernacinterp.mli @@ -9,7 +9,7 @@ (** Interpretation of extended vernac phrases. *) type deprecation = bool -type vernac_command = Genarg.raw_generic_argument list -> unit -> unit +type vernac_command = Genarg.raw_generic_argument list -> Loc.t option -> unit val vinterp_add : deprecation -> Vernacexpr.extend_name -> vernac_command -> unit @@ -17,4 +17,4 @@ val overwriting_vinterp_add : Vernacexpr.extend_name -> vernac_command -> unit val vinterp_init : unit -> unit -val call : ?locality:bool -> Vernacexpr.extend_name * Genarg.raw_generic_argument list -> unit +val call : ?locality:bool -> ?loc:Loc.t -> Vernacexpr.extend_name * Genarg.raw_generic_argument list -> unit |