diff options
| author |  aspiwack <aspiwack@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2012-07-12 14:00:59 +0000 |
|---|---|---|
| committer | aspiwack <aspiwack@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2012-07-12 14:00:59 +0000 |
| commit | 944e0af31740558a38891498c375201dd61a1573 (patch) | |
| tree | ac13ebedf006b0448257730062be5ecea1d64097 /toplevel/ide_slave.ml | |
| parent | 2014b6b4153d034c4c0ee96de7b4fd20fb629492 (diff) | |
A new status Unsafe in Interface. Meant for commands such as Admitted.
Currently :
- only Admitted uses the Unsafe return status
- the status is ignored in coqtop
- Coqide sees the status but apparently doesn't use it for colouring (I'm not
sure why, but then again, it's not as if I understood coqide's code or
anything)
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@15610 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'toplevel/ide_slave.ml')
| -rw-r--r-- | toplevel/ide_slave.ml | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/toplevel/ide_slave.ml b/toplevel/ide_slave.ml index 4537dc405..7c7738af3 100644 --- a/toplevel/ide_slave.ml +++ b/toplevel/ide_slave.ml @@ -115,9 +115,10 @@ let interp (raw,verbosely,s) = let loc_ast = Vernac.parse_sentence (pa,None) in if not raw then coqide_cmd_checks loc_ast; Flags.make_silent (not verbosely); - Vernac.eval_expr ~preserving:raw loc_ast; + let status = Vernac.eval_expr ~preserving:raw loc_ast in Flags.make_silent true; - read_stdout () + let ret = read_stdout () in + if status then Util.Inl ret else Util.Inr ret (** Goal display *) |