diff options
| author |  Maxime Dénès <mail@maximedenes.fr> | 2017-09-18 11:35:21 +0200 |
|---|---|---|
| committer | Maxime Dénès <mail@maximedenes.fr> | 2017-09-19 11:43:41 +0200 |
| commit | d87bc5b9fb353655f8b905d73293abe96b0ad063 (patch) | |
| tree | a552df12fe9ab4bfd8575999b1945dea03e2c274 /tools/fake_ide.ml | |
| parent | 296941dc97d53817cc58b4687ed99168e1dd33a9 (diff) | |
Add XML protocol support for Wait.
Diffstat (limited to 'tools/fake_ide.ml')
| -rw-r--r-- | tools/fake_ide.ml | 6 |
1 files changed, 2 insertions, 4 deletions
diff --git a/tools/fake_ide.ml b/tools/fake_ide.ml index a9da27ba2..79723431c 100644 --- a/tools/fake_ide.ml +++ b/tools/fake_ide.ml @@ -252,11 +252,9 @@ let eval_print l coq = let to_id, _ = get_id id in eval_call (query (0,(phrase, to_id))) coq | [ Tok(_,"WAIT") ] -> - let phrase = "Stm Wait." in - eval_call (query (0,(phrase,tip_id()))) coq + eval_call (wait ()) coq | [ Tok(_,"JOIN") ] -> - let phrase = "Stm JoinDocument." in - eval_call (query (0,(phrase,tip_id()))) coq + eval_call (status true) coq | [ Tok(_,"ASSERT"); Tok(_,"TIP"); Tok(_,id) ] -> let to_id, _ = get_id id in if not(Stateid.equal (Document.tip doc) to_id) then error "Wrong tip" |