aboutsummaryrefslogtreecommitdiff
path: root/tools
diff options
context:
space:
mode:
authorEmilio Jesus Gallego Arias2016-06-28 16:52:46 +0200
committerEmilio Jesus Gallego Arias2017-03-21 15:47:13 +0100
commitf1c5e2ce2a4515a7c90c5ca22aa6eff22dd2f5ff (patch)
tree2a295b6855f0bab21922ea8621ee3ce680e5e7dd /tools
parent28d3bb3c8bddc63d038d8d55a34c928675fa9f7b (diff)
[ide] Use "log via feedback".
We remove the custom logger handler in ide_slave, and handle everything via feedback. This is an experimental patch but it seems to bring quite a bit of cleanup and a more uniform handling to messaging.
Diffstat (limited to 'tools')
-rw-r--r--tools/fake_ide.ml9
1 files changed, 2 insertions, 7 deletions
diff --git a/tools/fake_ide.ml b/tools/fake_ide.ml
index 8fcca535d1..23c111b371 100644
--- a/tools/fake_ide.ml
+++ b/tools/fake_ide.ml
@@ -37,14 +37,9 @@ let base_eval_call ?(print=true) ?(fail=true) call coqtop =
Xml_printer.print coqtop.xml_printer xml_query;
let rec loop () =
let xml = Xml_parser.parse coqtop.xml_parser in
- match Xmlprotocol.is_message xml with
- | Some (level, _loc, content) ->
- logger level content;
+ if Xmlprotocol.is_feedback xml then
loop ()
- | None ->
- if Xmlprotocol.is_feedback xml then
- loop ()
- else Xmlprotocol.to_answer call xml
+ else Xmlprotocol.to_answer call xml
in
let res = loop () in
if print then prerr_endline (Xmlprotocol.pr_full_value call res);