From 9db68d9569d3921e86b9e2c03fa57b451feffc5a Mon Sep 17 00:00:00 2001
From: Slava Pestov <slava@factorcode.org>
Date: Wed, 24 Aug 2005 02:27:05 +0000
Subject: [PATCH] new inspector features

---
 library/tools/inspector.factor | 49 +++++++++++++++++++++++++++-------
 library/tools/walker.factor    |  4 +--
 2 files changed, 42 insertions(+), 11 deletions(-)

diff --git a/library/tools/inspector.factor b/library/tools/inspector.factor
index 12ff72dcbf..195b51c416 100644
--- a/library/tools/inspector.factor
+++ b/library/tools/inspector.factor
@@ -1,11 +1,9 @@
 ! Copyright (C) 2005 Slava Pestov.
 ! See http://factor.sf.net/license.txt for BSD license.
 IN: inspector
-USING: generic hashtables io kernel kernel-internals lists math
-memory namespaces prettyprint sequences strings styles test
-vectors words ;
-
-SYMBOL: inspecting
+USING: generic hashtables io kernel kernel-internals listener
+lists math memory namespaces prettyprint sequences strings
+styles test vectors words ;
 
 GENERIC: sheet ( obj -- sheet )
 
@@ -31,9 +29,11 @@ M: hashtable sheet dup hash-keys swap hash-values 2vector ;
 : sheet-numbers ( sheet -- sheet )
     dup first length >vector 1vector swap append ;
 
+SYMBOL: inspector-slots
+
 : format-sheet ( sheet -- list )
     sheet-numbers
-    dup peek over first [ set ] 2each
+    dup peek inspector-slots set
     [ format-column ] map
     flip
     [ " | " join ] map ;
@@ -74,7 +74,38 @@ M: object extra-banner ( obj -- ) drop ;
     sheet dup format-sheet swap peek
     [ write-object terpri ] 2each ;
 
-: inspect ( obj -- )
-    dup inspecting set dup inspect-banner describe ;
+SYMBOL: inspector-stack
 
-: go ( n -- ) get inspect ;
+: inspecting ( -- obj ) inspector-stack get peek ;
+
+: (inspect) ( obj -- )
+    dup inspector-stack get push
+    dup inspect-banner describe ;
+
+: inspector-help ( -- )
+    "Object inspector." print
+    "inspecting ( -- obj ) push current object" print
+    "go ( n -- ) inspect nth slot" print
+    "up -- return to previous object" print
+    "refs -- inspect references to current object" print
+    "bye -- exit inspector" print ;
+
+: inspector ( obj -- )
+    [
+        inspector-help
+        terpri
+        "inspector " listener-prompt set
+        10 <vector> inspector-stack set
+        (inspect)
+        listener
+    ] with-scope ;
+
+: inspect ( obj -- )
+    #! Start an inspector if its not already running.
+    inspector-stack get [ (inspect) ] [ inspector ] ifte ;
+
+: go ( n -- ) inspector-slots get nth (inspect) ;
+
+: up ( -- ) inspector-stack get >pop> pop (inspect) ;
+
+: refs ( -- ) inspecting references (inspect) ;
diff --git a/library/tools/walker.factor b/library/tools/walker.factor
index 74eede4c45..b6fa1ea987 100644
--- a/library/tools/walker.factor
+++ b/library/tools/walker.factor
@@ -43,8 +43,8 @@ sequences io strings vectors words ;
     set-callstack call ;
 
 : walk-banner ( -- )
-    "&s &r show stepper stacks." print
-    "&get ( var -- value ) inspects the stepper namestack." print
+    "&s &r show stepper stacks" print
+    "&get ( var -- value ) get stepper variable value" print
     "step -- single step over" print
     "into -- single step into" print
     "continue -- continue execution" print