ruby-debug 0.2-mswin32 → 0.3-mswin32

data/lib/ruby-debug/commands/frame.rb

@@ -0,0 +1,125 @@
+module Debugger
+  module FrameFunctions
+    def format_frame(frame, pos)
+      file, line, id = frame.file, frame.line, frame.id
+      "#%d %s:%s%s\n" % [pos + 1, file, line, (id ? ":in `#{id.id2name}'" : "")]
+    end
+  end
+
+  class WhereCommand < Command
+    include FrameFunctions
+
+    def regexp
+      /^\s*(?:w(?:here)?|f(?:rame)?)$/
+    end
+
+    def execute
+      @state.context.frames.each_with_index do |frame, idx|
+        if idx == @state.frame_pos
+          print "--> "
+        else
+          print "    "
+        end
+        print format_frame(frame, idx)
+      end
+    end
+
+    class << self
+      def help_command
+        %w|where frame|
+      end
+
+      def help(cmd)
+        if cmd == 'where'
+          %{
+            w[here]\tdisplay frames
+          }
+        else
+          %{
+            f[rame]\t\talias for where
+          }
+        end
+      end
+    end
+  end
+
+  class UpCommand < Command
+    include FrameFunctions
+
+    def regexp
+      /^\s*(?:(up)(?:\s+(\d+))?|(f)(?:rame)?(?:\s+(\d+)))\s*$/
+    end
+
+    def execute
+      if @match[1]
+        cmd, arg = @match.captures
+      else
+        cmd, arg = @match.captures[2..-1]
+      end
+      @state.previous_line = nil
+      if cmd == 'f'
+        @state.frame_pos = arg.to_i - 1
+      else
+        @state.frame_pos += (arg ? arg.to_i : 1)
+      end
+      @state.frame_pos = 0 if @state.frame_pos < 0
+      if @state.frame_pos >= @state.context.frames.size
+        @state.frame_pos = @state.context.frames.size - 1
+        print "At toplevel\n"
+      end
+      frame = @state.context.frames[@state.frame_pos]
+      @state.binding, @state.file, @state.line = frame.binding, frame.file, frame.line
+      print format_frame(frame, @state.frame_pos)
+    end
+
+    class << self
+      def help_command
+        %w|up frame|
+      end
+
+      def help(cmd)
+        if cmd == 'up'
+          %{
+            up[ nn]\tmove to higher frame
+          }
+        else
+          %{
+            f[rame] n\tselect nth frame
+          }
+        end
+      end
+    end
+  end
+
+  class DownCommand < Command
+    include FrameFunctions
+
+    def regexp
+      /^\s*down(?:\s+(\d+))?$/
+    end
+
+    def execute
+      @state.previous_line = nil
+      @state.frame_pos -= @match[1] ? @match[1].to_i : 1
+      if @state.frame_pos < 0
+        @state.frame_pos = 0
+        print "At stack bottom\n"
+      end
+      frame = @state.context.frames[@state.frame_pos]
+      @state.binding, @state.file, @state.line = frame.binding, frame.file, frame.line
+      print format_frame(frame, @state.frame_pos)
+    end
+
+    class << self
+      def help_command
+        'down'
+      end
+
+      def help(cmd)
+        %{
+          down[ nn]\tmove to lower frame
+        }
+      end
+    end
+  end
+end

data/lib/ruby-debug/commands/help.rb

@@ -0,0 +1,47 @@
+module Debugger
+  class HelpCommand < Command
+    self.control = true
+
+    def regexp
+      /^\s*h(?:elp)?(?:\s+(.+))?$/
+    end
+
+    def execute
+      print "ruby-debug help v.#{Debugger::VERSION}\n"
+      cmds = @state.commands.select{ |cmd| [cmd.help_command].flatten.include?(@match[1]) }
+      unless cmds.empty?
+        help = cmds.map{ |cmd| cmd.help(@match[1]) }.join
+        print help.split("\n").reject{|l| l =~ /^\s*$/ }.map{|l| l.gsub(/^ +/, '')}.join("\n")
+      else
+        print "Available commands:\n"
+        cmds = @state.commands.map{ |cmd| cmd.help_command }
+        cmds = cmds.flatten.uniq.sort
+
+        buf = ""
+        cmds.each do |cmd|
+          if buf.length + cmd.length > 70
+            print "%s\n", buf
+            buf = ""
+          else
+            buf << cmd << ' '
+          end
+        end
+        print "%s\n", buf if buf.length > 0
+      end
+      print "\n"
+    end
+
+    class << self
+      def help_command
+        'help'
+      end
+
+      def help(cmd)
+        %{
+          h[elp]\t\tprint this help
+          h[elp] command\tprint help on command
+        }
+      end
+    end
+  end
+end

data/lib/ruby-debug/commands/list.rb

@@ -0,0 +1,67 @@
+module Debugger
+  class ListCommand < Command
+    def regexp
+      /^\s*l(?:ist)?(?:\s+(.+))?$/
+    end
+
+    def execute
+      if not @match[1]
+        b = @state.previous_line ? @state.previous_line + 10 : @state.line - 5
+        e = b + 9
+      elsif @match[1] == '-'
+        b = @state.previous_line ? @state.previous_line - 10 : @state.line - 5
+        e = b + 9
+      elsif @match[1] == '='
+        @state.previous_line = nil
+        b = @state.line - 5
+        e = b + 9
+      else
+        b, e = @match[1].split(/[-,]/)
+        if e
+          b = b.to_i
+          e = e.to_i
+        else
+          b = b.to_i - 5
+          e = b + 9
+        end
+      end
+      @state.previous_line = b
+      display_list(b, e, @state.file, @state.line)
+    end
+
+    class << self
+      def help_command
+        'list'
+      end
+
+      def help(cmd)
+        %{
+          l[ist]\t\tlist forward
+          l[ist] -\tlist backward
+          l[ist] =\tlist current line
+          l[ist] nn-mm\tlist given lines
+        }
+      end
+    end
+
+    private
+
+    def display_list(b, e, file, line)
+      print "[%d, %d] in %s\n", b, e, file
+      if lines = Debugger.source_for(file)
+        n = 0
+        b.upto(e) do |n|
+          if n > 0 && lines[n-1]
+            if n == line
+              print "=> %d  %s\n", n, lines[n-1].chomp
+            else
+              print "   %d  %s\n", n, lines[n-1].chomp
+            end
+          end
+        end
+      else
+        print "No sourcefile available for %s\n", file
+      end
+    end
+  end
+end

data/lib/ruby-debug/commands/method.rb

@@ -0,0 +1,53 @@
+module Debugger
+  class MethodCommand < Command
+    def regexp
+      /^\s*m(?:ethod)?\s+(?:(i(:?nstance)?)\s)?/
+    end
+
+    def execute
+      if @match[1]
+        obj = debug_eval(@match.post_match)
+
+        len = 0
+        for v in obj.methods.sort
+          len += v.size + 1
+          if len > 70
+            len = v.size + 1
+            print "\n"
+          end
+          print "%s ", v
+        end
+        print "\n"
+      else
+        obj = debug_eval(@match.post_match)
+        unless obj.kind_of? Module
+          print "Should be Class/Module: %s\n", @match.post_match
+        else
+          len = 0
+          for v in obj.instance_methods(false).sort
+            len += v.size + 1
+            if len > 70
+              len = v.size + 1
+              print "\n"
+            end
+            print "%s ", v
+          end
+          print "\n"
+        end
+      end
+    end
+
+    class << self
+      def help_command
+        'method'
+      end
+
+      def help(cmd)
+        %{
+          m[ethod] i[nstance] <obj>\tshow methods of object
+          m[ethod] <class|module>\t\tshow instance methods of class or module
+        }
+      end
+    end
+  end
+end

data/lib/ruby-debug/commands/stepping.rb

@@ -0,0 +1,104 @@
+module Debugger
+  class NextCommand < Command
+    def regexp
+      /^\s*n(?:ext)?(?:\s+(\d+))?$/
+    end
+
+    def execute
+      steps = @match[1] ? @match[1].to_i : 1
+      @state.context.step_over steps, @state.context.frames.size - @state.frame_pos
+      @state.proceed
+    end
+
+    class << self
+      def help_command
+        'next'
+      end
+
+      def help(cmd)
+        %{
+          n[ext][ nnn]\tgo over one line or till line nnn
+        }
+      end
+    end
+  end
+
+  class StepCommand < Command
+    def regexp
+      /^\s*s(?:tep)?(?:\s+(\d+))?$/
+    end
+
+    def execute
+      @state.context.stop_next = @match[1] ? @match[1].to_i : 1
+      @state.proceed
+    end
+
+    class << self
+      def help_command
+        'step'
+      end
+
+      def help(cmd)
+        %{
+          s[tep][ nnn]\tstep (into methods) one line or till line nnn
+        }
+      end
+    end
+  end
+
+  class FinishCommand < Command
+    def regexp
+      /^\s*fin(?:ish)?$/
+    end
+
+    def execute
+      if @state.frame_pos == @state.context.frames.size
+        print "\"finish\" not meaningful in the outermost frame.\n"
+      else
+        @state.context.stop_frame = @state.context.frames.size - @state.frame_pos
+        @state.frame_pos = 0
+        @state.proceed
+      end
+    end
+
+    class << self
+      def help_command
+        'finish'
+      end
+
+      def help(cmd)
+        %{
+          fin[ish]\treturn to outer frame
+        }
+      end
+    end
+  end
+
+  class ContinueCommand < Command
+    def regexp
+      /^\s*c(?:ont)?$|^\s*r(?:un)?$/
+    end
+
+    def execute
+      @state.proceed
+    end
+
+    class << self
+      def help_command
+        %w|cont run|
+      end
+
+      def help(cmd)
+        if cmd == 'cont'
+          %{
+            c[ont]\trun until program ends or hit breakpoint
+          }
+        else
+          %{
+            r[un]\talias for cont
+          }
+        end
+      end
+    end
+  end
+end

data/lib/ruby-debug/commands/threads.rb

@@ -0,0 +1,164 @@
+module Debugger
+  module ThreadFunctions
+    def display_context(c)
+      if c.thread == Thread.current
+        print "+"
+      else
+        print " "
+      end
+      print "%d ", c.thnum
+      print "%s\t", c.thread.inspect
+      last_frame = c.frames.first
+      if last_frame
+        print "%s:%d", last_frame.file, last_frame.line
+      end
+      print "\n"
+    end
+  end
+
+  class ThreadListCommand < Command
+    include ThreadFunctions
+
+    def regexp
+      /^\s*th(?:read)?\s+l(?:ist)?\s*$/
+    end
+
+    def execute
+      threads = Debugger.contexts.sort_by{|c| c.thnum}.each do |c|
+        display_context(c)
+      end
+    end
+
+    class << self
+      def help_command
+        'thread'
+      end
+
+      def help(cmd)
+        %{
+          th[read] l[ist]\t\t\tlist all threads
+        }
+      end
+    end
+  end
+
+  class ThreadSwitchCommand < Command
+    include ThreadFunctions
+
+    def regexp
+      /^\s*th(?:read)?\s+(?:sw(?:itch)?\s+)?(\d+)\s*$/
+    end
+
+    def execute
+      c = get_context(@match[1].to_i)
+      if c == @state.context
+        print "It's the current thread.\n"
+      else
+        display_context(c)
+        c.stop_next = 1
+        c.thread.run
+        @state.proceed
+      end
+    end
+
+    class << self
+      def help_command
+        'thread'
+      end
+
+      def help(cmd)
+        %{
+          th[read] [sw[itch]] <nnn>\tswitch thread context to nnn
+        }
+      end
+    end
+  end
+
+  class ThreadStopCommand < Command
+    include ThreadFunctions
+
+    def regexp
+      /^\s*th(?:read)?\s+stop\s+(\d+)\s*$/
+    end
+
+    def execute
+      c = get_context(@match[1].to_i)
+      if c == @state.context
+        print "It's the current thread.\n"
+      elsif c.thread.stop?
+        print "Already stopped.\n"
+      else
+        display_context(c)
+        c.set_suspend
+      end
+    end
+
+    class << self
+      def help_command
+        'thread'
+      end
+
+      def help(cmd)
+        %{
+          th[read] stop <nnn>\t\tstop thread nnn
+        }
+      end
+    end
+  end
+
+  class ThreadCurrentCommand < Command
+    include ThreadFunctions
+
+    def regexp
+      /^\s*th(?:read)?\s+c(?:ur(?:rent)?)?\s*$/
+    end
+
+    def execute
+      display_context(@state.context)
+    end
+
+    class << self
+      def help_command
+        'thread'
+      end
+
+      def help(cmd)
+        %{
+          th[read] c[ur[rent]]\t\tshow current thread
+        }
+      end
+    end
+  end
+
+  class ThreadResumeCommand < Command
+    include ThreadFunctions
+
+    def regexp
+      /^\s*th(?:read)?\s+resume\s+(\d+)\s*$/
+    end
+
+    def execute
+      c = get_context(@match[1].to_i)
+      if c == @state.context
+        print "It's the current thread.\n"
+      elsif !c.thread.stop?
+        print "Already running."
+      else
+        display_context(c)
+        c.thread.run
+      end
+    end
+
+    class << self
+      def help_command
+        'thread'
+      end
+
+      def help(cmd)
+        %{
+          th[read] resume <nnn>\t\tresume thread nnn
+        }
+      end
+    end
+  end
+end