From c43efa32d6a40861589c6faa77ddf2482d40951b Mon Sep 17 00:00:00 2001 From: David Aspinall Date: Fri, 20 Jan 2012 10:29:41 +0000 Subject: Hint about changing prompt --- hol-light/pt_tactics.ml | 15 +++++++++++++++ 1 file changed, 15 insertions(+) (limited to 'hol-light') 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 ;; + +*) -- cgit v1.2.3