[ruby-dev:10687] [Patch] watch and display in debug.rb

なひです．[ruby-list:24553]からです．

> From: NAKAMURA, Hiroshi
> Sent: Sunday, August 27, 2000 2:53 PM
> Subject: [ruby-list:24553] Re: (RDP) readline

> # debug.rbで試している最中に，displayの不具合を発見しました．
> # 以前から抱えているwatch式の不具合と根が同じ．

というわけでPatchです．debug_evalは:debug_errorをthrowして
対話フロントエンドまで一気に抜けるためのメソッドです．
なのでwatchとdisplayでこれを使うべきではなかった（悪いのはなひです）．

安直にdebug_safe_evalというメソッドを作って逃げてみました．
いつまでも小手先で逃げちゃ駄目なんですけどね．．．

ところで元にあった
eval(exp, binding) rescue "--"
って何が起こるんでしたっけ．なひが書いたの？^^;

--- debug.rb-1.5.dist	Tue Aug 15 17:45:23 2000
+++ debug.rb	Sun Aug 27 20:42:13 2000
@@ -120,4 +120,13 @@ class DEBUGGER__
     end
 
+    def debug_safe_eval(str, binding)
+      begin
+	val = eval(str, binding)
+	val
+      rescue StandardError, ScriptError
+	nil
+      end
+    end
+
     def var_list(ary, binding)
       ary.sort!
@@ -308,7 +317,7 @@ class DEBUGGER__
 	  when /^\s*disp(?:lay)?\s+(.+)$/
 	    exp = $1
-	    display.push.push [true, exp]
-	    stdout.printf "  %d: %s = %s\n", display.size, exp,
-	      eval(exp, binding) rescue "--"
+	    display.push [true, exp]
+	    stdout.printf "%d: ", display.size
+	    display_expression(exp, binding)
 
 	  when /^\s*disp(?:lay)?$/
@@ -494,5 +503,6 @@ EOHELP
       for d in display
 	if d[0]
-	  stdout.printf "%d: %s = %s\n", n, d[1], debug_eval(d[1], binding).to_s
+          stdout.printf "%d: ", n
+	  display_expression(d[1], binding)
 	end
 	n += 1
@@ -500,4 +510,8 @@ EOHELP
     end
 
+    def display_expression(exp, binding)
+      stdout.printf "%s = %s\n", exp, debug_safe_eval(exp, binding).to_s
+    end
+
     def frame_set_pos(file, line)
       if @frames[0]
@@ -565,11 +579,15 @@ EOHELP
 	if b[0]
 	  if b[1] == 0 and b[2] == file and b[3] == pos
+	    # Breakpoint check
 	    MUTEX.lock
 	    stdout.printf "breakpoint %d, %s at %s:%s\n", n, debug_funcname(id), file, pos
 	    return true
-	  elsif b[1] == 1 and debug_eval(b[2], binding)
+	  elsif b[1] == 1
+	    # Watchpoint check
 	    MUTEX.lock
-	    stdout.printf "watchpoint %d, %s at %s:%s\n", n, debug_funcname(id), file, pos
-	    return true
+	    if debug_safe_eval(b[2], binding)
+	      stdout.printf "watchpoint %d, %s at %s:%s\n", n, debug_funcname(id), file, pos
+	      return true
+	    end
 	  end
 	end