Initial revision

git-svn-id: svn+ssh://ci.ruby-lang.org/ruby/trunk@2 b2dd03c8-39d4-4d8f-98ff-823fe69b080e

lib/debug.rb

@@ -0,0 +1,262 @@
+
+class DEBUGGER__
+  trap("INT") {  DEBUGGER__::CONTEXT.interrupt }
+  $DEBUG = TRUE
+  def initialize
+    @break_points = []
+    @stop_next = 1
+    @frames = [nil]
+    @frame_pos = nil
+    @last_file = nil
+    @scripts = {}
+  end
+
+  def interrupt
+    @stop_next = 1
+  end
+
+  def debug_eval(str, binding)
+    begin
+      val = eval(str, binding)
+      val
+    rescue
+      at = caller(0)
+      printf "%s:%s\n", at.shift, $!
+      for i in at
+	break if i =~ /`debug_(eval|command)'$/ #`
+	printf "\tfrom %s\n", i
+      end
+    end
+  end
+
+  def debug_command(file, line, id, binding)
+    if (ENV['EMACS'] == 't')
+      printf "\032\032%s:%d:\n", file, line
+    else
+      printf "%s:%d:%s", file, line, line_at(file, line)
+    end
+    @frames[-1] = binding
+    STDOUT.print "(rdb:-) "
+    STDOUT.flush
+    while input = STDIN.gets
+      input.chop!
+      case input
+      when /^b(reak)?\s+(([^:\n]+:)?.+)/
+	pos = $2
+	if pos.index ":"
+	  file, pos = pos.split(":")
+	end
+	file = File.basename(file)
+	if pos =~ /^\d+$/
+	  pname = pos
+	  pos = Integer(pos)
+	else
+	  pname = pos = pos.intern.id2name
+	end
+	printf "Set breakpoint %d at %s:%s\n", @break_points.size, file, pname
+	@break_points.push [file, pos]
+      when /^b(reak)?$/, /^info b(reak)?$/
+	n = 0
+	for f, p in @break_points
+	  printf "%d %s:%s\n", n, f, p
+	  n += 1
+	end
+      when /^del(ete)?(\s+(\d+))?$/
+	pos = $3
+	unless pos
+	  STDOUT.print "clear all breakpoints? (y/n) "
+	  STDOUT.flush
+	  input = STDIN.gets.chop!
+	  if input == "y"
+	    for n in @break_points.indexes
+	      @break_points[n] = nil
+	    end
+	  end
+	else
+	  pos = Integer(pos)
+	  if @break_points[pos]
+	    bp = @break_points[pos]
+	    printf "Clear breakpoint %d at %s:%s\n", pos, bp[0], bp[1]
+	    @break_points[pos] = nil
+	  else
+	    printf "Breakpoint %d is not defined\n", pos
+	  end
+	end
+      when /^c(ont)?$/
+	return
+      when /^s(tep)?\s*(\d+)?$/
+	if $1
+	  lev = Integer($1)
+	else
+	  lev = 1
+	end
+	@stop_next = lev
+	return
+      when /^n(ext)?\s*(\d+)?$/
+	if $1
+	  lev = Integer($1)
+	else
+	  lev = 1
+	end
+	@stop_next = lev
+	@no_step = @frames.size
+	return
+      when /^up\s*(\d+)?$/
+	if $1
+	  lev = Integer($1)
+	else
+	  lev = 1
+	end
+	unless @frame_pos
+	  @frame_pos = @frames.size - 1
+	end
+	@frame_pos -= lev
+	if @frame_pos < 0
+	  STDOUT.print "at toplevel\n"
+	  @frame_pos = 0
+	else
+	  binding = @frames[@frame_pos]
+	end
+      when /^down\s*(\d+)??$/
+	if $1
+	  lev = Integer($1)
+	else
+	  lev = 1
+	end
+	if lev >= @frames.size or @frame_pos and @frame_pos+lev >= @frames.size 
+	  STDOUT.print "at stack bottom\n"
+	  @frame_pos = nil
+	else
+	  @frame_pos += lev
+	  binding = @frames[@frame_pos]
+	end
+      when /^fin(ish)?$/
+	@finish_pos = @frames.size
+	return
+      when /^q(uit)?$/
+	STDOUT.print "really quit? (y/n) "
+	STDOUT.flush
+	input = STDIN.gets.chop!
+	exit if input == "y"
+      when /^where$/
+	at = caller(4)
+	for i in at
+	  printf " %s\n", i
+	end
+      when /^l(ist)?(\s+(.*))?$/
+	if $3
+	  b, e = $3.split(/[-,]/)
+	  b = Integer(b)-1
+	  if e
+	    e = Integer(e)-1
+	  else
+	    e = b + 10
+	  end
+	end
+	unless b
+	  b = line - 1
+	  e = line + 9
+	end
+	p [b,e]
+	line_at(file, line)
+	if lines = @scripts[file] and lines != TRUE
+	  n = b+1
+	  for l in lines[b..e]
+	    printf "%4d %s", n, l
+	    n += 1
+	  end
+	else
+	  printf "no sourcefile available for %s\n", file
+	end
+      when /^p\s+/
+	p debug_eval($', binding)
+      else
+	v = debug_eval(input, binding)
+	p v unless v == nil
+      end
+      STDOUT.print "(rdb:-) "
+      STDOUT.flush
+    end
+  end
+  
+  def line_at(file, line)
+    lines = @scripts[file]
+    if lines
+      return "\n" if lines == TRUE
+      line = lines[line-1]
+      return "\n" unless line
+      return line
+    end
+    begin
+      f = open(file)
+      lines = @scripts[file] = f.readlines
+    rescue
+      @scripts[file] = TRUE
+      return "\n"
+    end
+    line = lines[line-1]
+    return "\n" unless line
+    return line
+  end
+
+  def debug_funcname(id)
+    if id == 0
+      "toplevel"
+    else
+      id.id2name
+    end
+  end
+
+  def check_break_points(file, pos, binding, id)
+    file = File.basename(file)
+    if @break_points.include? [file, pos]
+      index = @break_points.index([file, pos])
+      printf "Breakpoint %d, %s at %s:%s\n",
+	index, debug_funcname(id), file, pos
+      return TRUE
+    end
+    return FALSE
+  end
+
+  def trace_func(event, file, line, id, binding)
+    if event == 'line'
+      if @no_step == nil or @no_step >= @frames.size
+	@stop_next -= 1
+      end
+      if @stop_next == 0
+	if [file, line] == @last
+	  @stop_next = 1
+	else
+	  @no_step = nil
+	  debug_command(file, line, id, binding)
+	  @last = [file, line]
+	end
+      end
+      if check_break_points(file, line, binding, id)
+	debug_command(file, line, id, binding)
+      end
+    end
+    if event == 'call'
+      @frames.push binding
+      if check_break_points(file, id.id2name, binding, id)
+	debug_command(file, line, id, binding)
+      end
+    end
+    if event == 'class'
+      @frames.push binding
+    end
+    if event == 'return' or event == 'end'
+      if @finish_pos == @frames.size
+	@stop_next = 1
+      end
+      @frames.pop
+    end
+    @last_file = file
+  end
+
+  CONTEXT = new
+end
+
+set_trace_func proc{|event, file, line, id, binding|
+  DEBUGGER__::CONTEXT.trace_func event, file, line, id, binding
+}