aboutsummaryrefslogtreecommitdiffhomepage
path: root/printing
diff options
context:
space:
mode:
authorGravatar Maxime Dénès <mail@maximedenes.fr>2016-11-18 08:38:30 +0100
committerGravatar Maxime Dénès <mail@maximedenes.fr>2016-11-18 08:38:30 +0100
commitbdcf5b040b975a179fe9b2889fea0d38ae4689df (patch)
tree1f35be33dcc6ca7117bb85db4415d6f728b80641 /printing
parent954f1697fb750eecf4612bbb191a91c3a4bafb7c (diff)
Revert "Merge remote-tracking branch 'github/pr/360' into v8.6"
This reverts commit b00e039b957b8428c21faec5c76f3a3484cde2cf, reversing changes made to ca9e00ff9b2a8ee17430398a5e0bef2345c39341. It turns out that calling from fake_ide the STM commands that were removed by this PR requires an extension of the XML protocol. So postponing the integration.
Diffstat (limited to 'printing')
-rw-r--r--printing/ppvernac.ml16
1 files changed, 16 insertions, 0 deletions
diff --git a/printing/ppvernac.ml b/printing/ppvernac.ml
index a6b1c97f5..3494ad006 100644
--- a/printing/ppvernac.ml
+++ b/printing/ppvernac.ml
@@ -538,6 +538,22 @@ module Make
| VernacLocal (local, v) ->
return (pr_locality local ++ spc() ++ pr_vernac_body v)
+ (* Stm *)
+ | VernacStm JoinDocument ->
+ return (keyword "Stm JoinDocument")
+ | VernacStm PrintDag ->
+ return (keyword "Stm PrintDag")
+ | VernacStm Finish ->
+ return (keyword "Stm Finish")
+ | VernacStm Wait ->
+ return (keyword "Stm Wait")
+ | VernacStm (Observe id) ->
+ return (keyword "Stm Observe " ++ str(Stateid.to_string id))
+ | VernacStm (Command v) ->
+ return (keyword "Stm Command " ++ pr_vernac_body v)
+ | VernacStm (PGLast v) ->
+ return (keyword "Stm PGLast " ++ pr_vernac_body v)
+
(* Proof management *)
| VernacAbortAll ->
return (keyword "Abort All")