diff options
author | David Aspinall <da@inf.ed.ac.uk> | 2012-01-20 10:29:41 +0000 |
---|---|---|
committer | David Aspinall <da@inf.ed.ac.uk> | 2012-01-20 10:29:41 +0000 |
commit | c43efa32d6a40861589c6faa77ddf2482d40951b (patch) | |
tree | 22adc0e3eb77f96a2ee1b5c3a82643a94a30a465 /hol-light | |
parent | 55e76187a7e3acacf70567b346bd33890720d6e0 (diff) |
Hint about changing prompt
Diffstat (limited to 'hol-light')
-rw-r--r-- | hol-light/pt_tactics.ml | 15 |
1 files changed, 15 insertions, 0 deletions
diff --git a/hol-light/pt_tactics.ml b/hol-light/pt_tactics.ml index c79cd2ac..ece7a22a 100644 --- a/hol-light/pt_tactics.ml +++ b/hol-light/pt_tactics.ml @@ -261,3 +261,18 @@ let jump_back_to_state n : xgoalstack = #install_printer print_xgoal;; #install_printer print_xgoalstack;; + +(* ------------------------------------------------------------------------- *) +(* Replace the top-level prompt *) +(* ------------------------------------------------------------------------- *) + +(* TODO: something like this + +let prompt () => + "[State Counter " ^ string_of_int (length (!current_xgoalstack)) ^ "]# "); + +Toploop.read_interactive_input := + let old = !Toploop.read_interactive_input in fun prompt buffer len -> + old (prompt()) buffer len ;; + +*) |