diff options
| author |  herbelin <herbelin@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2012-01-20 23:52:13 +0000 |
|---|---|---|
| committer | herbelin <herbelin@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2012-01-20 23:52:13 +0000 |
| commit | fa5d9b87b0ff4145193fce84c99a4b351cb32a1f (patch) | |
| tree | 63b1be5a342cf54f1026809e71802ff12518623a | |
| parent | 93c6dba5cfd06d5cad27c6f3c0ca4af167a200fd (diff) | |
Added documentation for "r foo" in Ltac debugger.
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@14931 85f007b7-540e-0410-9357-904b9bb8a0f7
| -rw-r--r-- | doc/refman/RefMan-ltac.tex | 3 | ||||
| -rw-r--r-- | proofs/tactic_debug.ml | 8 |
2 files changed, 9 insertions, 2 deletions
diff --git a/doc/refman/RefMan-ltac.tex b/doc/refman/RefMan-ltac.tex index 38ad9aa86..d7f00584e 100644 --- a/doc/refman/RefMan-ltac.tex +++ b/doc/refman/RefMan-ltac.tex @@ -946,7 +946,8 @@ simple newline: & go to the next step\\ h: & get help\\ x: & exit current evaluation\\ s: & continue current evaluation without stopping\\ -r$n$: & advance $n$ steps further\\ +r $n$: & advance $n$ steps further\\ +r {\qstring}: & advance up to the next call to ``{\tt idtac} {\qstring}''\\ \end{tabular} \endinput diff --git a/proofs/tactic_debug.ml b/proofs/tactic_debug.ml index 7d7688873..b23f361c7 100644 --- a/proofs/tactic_debug.ml +++ b/proofs/tactic_debug.ml @@ -71,6 +71,12 @@ let rec drop_spaces inst i = if String.length inst > i && inst.[i] = ' ' then drop_spaces inst (i+1) else i +let possibly_unquote s = + if String.length s >= 2 & s.[0] = '"' & s.[String.length s - 1] = '"' then + String.sub s 1 (String.length s - 2) + else + s + (* (Re-)initialize debugger *) let db_initialize () = skip:=0;skipped:=0;breakpoint:=None @@ -86,7 +92,7 @@ let run_com inst = if num<0 then raise (Invalid_argument "run_com"); skip:=num;skipped:=0 else - breakpoint:=Some s + breakpoint:=Some (possibly_unquote s) else raise (Invalid_argument "run_com") else |