diff options
| author |  Emilio Jesus Gallego Arias <e+git@x80.org> | 2017-02-27 20:16:40 +0100 |
|---|---|---|
| committer | Emilio Jesus Gallego Arias <e+git@x80.org> | 2017-04-12 16:49:45 +0200 |
| commit | ce2b2058587224ade9261cd4127ef4f6e94d356b (patch) | |
| tree | 28e9cc9f14c0bb3a8107e67faa85ccda6c6d4dc9 /stm/stm.mli | |
| parent | 4ed9c7ad75a7f09d723bdfce6f7dd086c60e0601 (diff) | |
[stm] Port the toplevel to the STM.
- We clean-up `Vernac` and make it use the STM API.
- Now functions in `Vernac` for use in the toplevel and compiler take
an starting `Stateid.t`.
- Duplicated `Stm.interp` entry point is removed.
- The XML protocol call `interp` is disabled.
Diffstat (limited to 'stm/stm.mli')
| -rw-r--r-- | stm/stm.mli | 9 |
1 files changed, 1 insertions, 8 deletions
diff --git a/stm/stm.mli b/stm/stm.mli index a31e4289d..30e9629c6 100644 --- a/stm/stm.mli +++ b/stm/stm.mli @@ -30,7 +30,7 @@ exception End_of_input If [newtip] is provided, then the returned state id is guaranteed to be [newtip] *) val add : ontop:Stateid.t -> ?newtip:Stateid.t -> - bool -> (Loc.t * Vernacexpr.vernac_expr) -> + bool -> Vernacexpr.vernac_expr Loc.located -> Stateid.t * [ `NewTip | `Unfocus of Stateid.t ] (* [query at ?report_with cmd] Executes [cmd] at a given state [at], @@ -205,13 +205,6 @@ type state = { val state_of_id : Stateid.t -> [ `Valid of state option | `Expired | `Error of exn ] -(** read-eval-print loop compatible interface ****************************** **) - -(* Adds a new line to the document. It replaces the core of Vernac.interp. - [finish] is called as the last bit of this function if the system - is running interactively (-emacs or coqtop). *) -val interp : bool -> vernac_expr located -> unit - (* Queries for backward compatibility *) val current_proof_depth : unit -> int val get_all_proof_names : unit -> Id.t list |