diff options
| author | Alec Faithfull | 2015-10-06 13:58:50 +0200 |
|---|---|---|
| committer | Alec Faithfull | 2015-10-09 10:53:29 +0200 |
| commit | ce0c536b4430711db1e30cd7ac35ae8d71d34e64 (patch) | |
| tree | 6d5f83e177e401417ebc7f68da360fb8019ac8f5 | |
| parent | b2007e86b4a28570eee52439ad8b9fee603443b8 (diff) | |
STM: Added functions for saving and restoring the internal state
PIDEtop needs these to implement its new transaction mechanism
| -rw-r--r-- | stm/stm.ml | 3 | ||||
| -rw-r--r-- | stm/stm.mli | 4 |
2 files changed, 7 insertions, 0 deletions
diff --git a/stm/stm.ml b/stm/stm.ml index e96c396bae..c0d71dc933 100644 --- a/stm/stm.ml +++ b/stm/stm.ml @@ -2405,6 +2405,9 @@ let edit_at id = VCS.print (); iraise (e, info) +let backup () = VCS.backup () +let restore d = VCS.restore d + (*********************** TTY API (PG, coqtop, coqc) ***************************) (******************************************************************************) diff --git a/stm/stm.mli b/stm/stm.mli index 2453f258c5..18ed6fc2e8 100644 --- a/stm/stm.mli +++ b/stm/stm.mli @@ -83,6 +83,10 @@ val set_compilation_hints : string -> unit (* Reorders the task queue putting forward what is in the perspective *) val set_perspective : Stateid.t list -> unit +type document +val backup : unit -> document +val restore : document -> unit + (** workers **************************************************************** **) module ProofTask : AsyncTaskQueue.Task |