rb8-trepanning 0.1.3-universal-ruby-1.9.2

data/io/tcpfns.rb

@@ -0,0 +1,33 @@
+# -*- coding: utf-8 -*-
+# Copyright (C) 2011 Rocky Bernstein <rockyb@rubyforge.net>
+# Subsidiary routines used to "pack" and "unpack" TCP messages.
+
+module Trepanning
+  module TCPPacking
+
+    unless defined?(TCP_MAX_PACKET)
+      TCP_MAX_PACKET = 8192 # Largest size for a recv
+      LOG_MAX_MSG    = Math.log10(TCP_MAX_PACKET).ceil
+    end
+      
+    def pack_msg(msg)
+      fmt = '%%%dd' % LOG_MAX_MSG # A funny way of writing: '%4d'
+      (fmt % msg.size) + msg
+    end
+
+    def unpack_msg(buf)
+      length  = Integer(buf[0...LOG_MAX_MSG])
+      data    = buf[LOG_MAX_MSG..LOG_MAX_MSG+length]
+      buf     = buf[LOG_MAX_MSG+length..-1]
+      [buf, data]
+    end
+  end
+end
+
+# Demo
+if __FILE__ == $0
+  include Trepanning::TCPPacking
+  msg = "Hi there!"
+  puts unpack_msg(pack_msg(msg))[1] == msg
+end
+

data/io/tcpserver.rb

@@ -0,0 +1,141 @@
+# -*- coding: utf-8 -*-
+# Copyright (C) 2011 Rocky Bernstein <rockyb@rubyforge.net>
+# Debugger Server Input/Output interface.
+
+require 'socket'
+require 'rubygems'; require 'require_relative'
+require_relative '../app/default' # For host and port
+require_relative 'base_io'
+require_relative 'tcpfns'
+
+module Trepan 
+  # Debugger Server Input/Output Socket.
+  class TCPDbgServer < Trepan::InOutBase
+
+    include Trepanning::TCPPacking
+
+    unless defined?(SERVER_SOCKET_OPTS)
+      DEFAULT_INIT_OPTS = {:open => true}
+      
+      SERVER_SOCKET_OPTS = {
+        :host    => Trepan::DEFAULT_SETTINGS[:host],
+        :port    => Trepan::DEFAULT_SETTINGS[:port], # A non-privileged port
+        :timeout => 5,     # FIXME: not used
+        :reuse   => true,  # FIXME: not used. Allow port to be resued on close?
+        # Python has: 'posix' == os.name 
+      }
+    end
+
+    attr_reader :state
+
+    def initialize(opts={})
+      @opts    = DEFAULT_INIT_OPTS.merge(opts)
+      @input = @output = @session = nil
+      @buf     = ''    # Read buffer
+      @state   = :disconnected
+      @port    = nil   # Current port in use
+      @host    = nil   # current host in use
+      @line_edit = false
+      open(@opts) if @opts[:open]
+    end
+
+    def connected?
+      :connected == @state
+    end
+    
+
+    # Closes server connection.
+    def close
+      @state = :closing
+      @session.close if @session
+      @state = :disconnected
+    end
+
+    def open(opts={})
+      @opts   = SERVER_SOCKET_OPTS.merge(opts)
+      @host   = @opts[:host]
+      @port   = @opts[:port]
+      @server = TCPServer.new(@host, @port)
+      # @server.setsockopt(Socket::SOL_SOCKET, Socket::SO_RCVTIMEO, 5)
+      #                   # @opts[:timeout])
+      @state  = :listening
+    end
+    
+    # Read one message unit. It's possible however that
+    # more than one message will be set in a receive, so we will
+    # have to buffer that for the next read.
+    # EOFError will be raised on EOF.
+    def read_msg
+      wait_for_connect unless connected?
+      while !@buf || @buf.empty?
+        @buf, info = @session.recvfrom(TCP_MAX_PACKET)
+      end
+      @buf, data = unpack_msg(@buf)
+      data
+    end
+
+    def wait_for_connect
+      @input = @output = @session = @server.accept
+      @state = :connected
+    end
+    
+    # This method the debugger uses to write. In contrast to
+    # writeline, no newline is added to the end to `str'. Also
+    # msg doesn't have to be a string.
+    def write(msg)
+      wait_for_connect() unless connected?
+      # FIXME: do we have to check the size of msg and split output? 
+      @session.print(pack_msg(msg))
+    end
+
+    def writeline(msg)
+      write(msg + "\n")
+    end
+
+  end
+end
+
+# Demo
+if __FILE__ == $0
+  include Trepanning::TCPPacking
+  server = Trepan::TCPDbgServer.new({ :open => false,
+                                      :port => 1027,
+                                      :host => 'localhost'
+                                    })
+  if ARGV.size > 0
+    puts 'Listening for connection...'
+    server.open
+    threads = []
+    Thread.new do
+      while true do
+        begin
+          line = server.read_msg.chomp
+          puts "got #{line}"
+        rescue EOFError
+          puts 'Got EOF'
+          break
+        end
+      end
+    end
+    threads << Thread.new do 
+      t = TCPSocket.new('localhost', 1027)
+      while true do
+        begin
+          print "input? "
+          line = STDIN.gets
+          break if !line || line.chomp == 'quit'
+          t.puts(pack_msg(line))
+        rescue EOFError
+          puts "Got EOF"
+          break
+        rescue Exception => e
+          puts "Got #{e}"
+          break
+        end
+      end
+      t.close
+    end
+    threads.each {|t| t.join }
+    server.close
+  end
+end

data/lib/debugger.rb

@@ -0,0 +1,8 @@
+# Module/Package to do the most-common thing: get into the debugger with 
+# minimal fuss. Compare with: require "debug"
+require 'rubygems'
+require 'require_relative'
+require_relative "rubygems"
+require './trepanning'
+Trepan.start
+debugger

data/lib/trepanning.rb

@@ -0,0 +1,283 @@
+require 'rubygems'
+require 'pp'
+require 'stringio'
+require 'socket'
+require 'thread'
+require 'ruby-debug-base'
+require 'require_relative'
+require_relative '../interface/script'
+require_relative '../interface/user'
+require_relative '../processor/processor'
+
+module Trepan
+
+  class << self
+
+    ## FIXME: see if we can put this in app/complete.
+    # The method is called when we want to do debugger command completion
+    # such as called from GNU Readline with <TAB>.
+    def self.completion_method(last_token, leading=nil)
+      if leading.nil? 
+          if Readline.respond_to?(:line_buffer)
+            completion = 
+              Trepan.handler.cmdproc.complete(Readline.line_buffer, 
+                                                last_token)
+          else
+            completion = Trepan.handler.cmdproc.complete(last_token, '')
+          end
+      else
+        completion = Trepan.handler.cmdproc.complete(leading, last_token)
+      end
+      if 1 == completion.size 
+        completion_token = completion[0]
+        if last_token.end_with?(' ')
+          if last_token.rstrip == completion_token 
+            # There is nothing more to complete
+            []
+          else
+            []
+          end
+        else
+          [completion_token]
+        end
+      else
+        # We have multiple completions. Get the last token so that will
+        # be presented as a list of completions.
+        completion
+      end
+    end
+    completion_proc = method(:completion_method).to_proc
+    ## FIXME: figure out how to get at this for testing.
+    $trepan_completion_proc = completion_proc
+
+    opts = {
+      :complete => completion_proc,
+      :readline => true
+    }
+
+    @@intf = [Trepan::UserInterface.new(nil, nil, opts)]
+
+    attr_accessor :handler
+    Trepan.handler = Debugger.handler = CommandProcessor.new(@@intf)
+
+    # gdb-style annotation mode. Used in GNU Emacs interface
+    attr_accessor :annotate
+
+    # in remote mode, wait for the remote connection 
+    attr_accessor :wait_connection
+
+    # If start_sentinal is set, it is a string to look for in caller()
+    # and is used to see if the call stack is truncated. Is also
+    # defined in app/default.rb
+    attr_accessor :start_sentinal 
+    
+    attr_reader :thread, :control_thread, :cmd_port, :ctrl_port
+
+    def interface=(value) # :nodoc:
+      Debugger.handler.interface = value
+    end
+
+    # Trepan.start(options) -> bool
+    # Trepan.start(options) { ... } -> obj
+    #
+    # If it's called without a block it returns +true+, unless debugger
+    # was already started.  If a block is given, it starts debugger and
+    # yields to block. When the block is finished executing it stops
+    # the debugger with Trepan.stop method.
+    #
+    # If a block is given, it starts debugger and yields to block. When
+    # the block is finished executing it stops the debugger with
+    # Trepan.stop method. Inside the block you will probably want to
+    # have a call to Trepan.debugger. For example:
+    #
+    #     Trepan.start{debugger; foo}  # Stop inside of foo
+    #
+    # Also, ruby-debug only allows
+    # one invocation of debugger at a time; nested Trepan.start's
+    # have no effect and you can't use this inside the debugger itself.
+    #
+    # <i>Note that if you want to stop debugger, you must call
+    # Trepan.stop as many time as you called Trepan.start
+    # method.</i>
+    # 
+    # +options+ is a hash used to set various debugging options.
+    # Set :init true if you want to save ARGV and some variables which
+    # make a debugger restart possible. Only the first time :init is set true
+    # will values get set. Since ARGV is saved, you should make sure 
+    # it hasn't been changed before the (first) call. 
+    # Set :post_mortem true if you want to enter post-mortem debugging
+    # on an uncaught exception. Once post-mortem debugging is set, it can't
+    # be unset.
+    def start(options={}, &block)
+      options = Trepan::DEFAULT_START_SETTINGS.merge(options)
+      if options[:init]
+        Trepan.const_set('ARGV', ARGV.clone) unless 
+          defined? Trepan::ARGV
+        Trepan.const_set('PROG_SCRIPT', $0) unless 
+          defined? Trepan::PROG_SCRIPT
+        Trepan.const_set('INITIAL_DIR', Dir.pwd) unless 
+          defined? Trepan::INITIAL_DIR
+      end
+      Trepan.tracing = options[:tracing] unless options[:tracing].nil?
+      retval = Debugger.started? ? block && block.call(self) : Debugger.start_(&block) 
+      if options[:post_mortem]
+        post_mortem
+      end
+      return retval
+    end
+    
+    def started?
+      Debugger.started?
+    end
+    
+    #
+    # Starts a remote debugger.
+    #
+    def start_remote(host = nil, port = PORT, post_mortem = false)
+      return if @thread
+      return if started?
+
+      self.interface = nil
+      start
+      self.post_mortem if post_mortem
+
+      if port.kind_of?(Array)
+        cmd_port, ctrl_port = port
+      else
+        cmd_port, ctrl_port = port, port + 1
+      end
+
+      ctrl_port = start_control(host, ctrl_port)
+      
+      yield if block_given?
+      
+      mutex = Mutex.new
+      proceed = ConditionVariable.new
+      
+      server = TCPServer.new(host, cmd_port)
+      @cmd_port = cmd_port = server.addr[1]
+      @thread = Debugger::DebugThread.new do
+        while (session = server.accept)
+          self.interface = RemoteInterface.new(session)
+          if wait_connection
+            mutex.synchronize do
+              proceed.signal
+            end
+          end
+        end
+      end
+      if wait_connection
+        mutex.synchronize do
+          proceed.wait(mutex)
+        end 
+      end
+    end
+    alias start_server start_remote
+    
+    def start_control(host = nil, ctrl_port = PORT + 1) # :nodoc:
+      raise "Debugger is not started" unless started?
+      return @ctrl_port if defined?(@control_thread) && @control_thread
+      server = TCPServer.new(host, ctrl_port)
+      @ctrl_port = server.addr[1]
+      @control_thread = Debugger::DebugThread.new do
+        while (session = server.accept)
+          interface = RemoteInterface.new(session)
+          processor = ControlCommandProcessor.new(interface)
+          processor.process_commands
+        end
+      end
+      @ctrl_port
+    end
+    
+    #
+    # Connects to the remote debugger
+    #
+    def start_client(host = 'localhost', port = PORT)
+      require "socket"
+      interface = Trepan::LocalInterface.new
+      socket = TCPSocket.new(host, port)
+      puts "Connected."
+      
+      catch(:exit) do
+        while (line = socket.gets)
+          case line 
+          when /^PROMPT (.*)$/
+            input = interface.read_command($1)
+            throw :exit unless input
+            socket.puts input
+          when /^CONFIRM (.*)$/
+            input = interface.confirm($1)
+            throw :exit unless input
+            socket.puts input
+          else
+            print line
+          end
+        end
+      end
+      socket.close
+    end
+
+    def add_command_file(cmdfile, opts={}, stderr=$stderr)
+      unless File.readable?(cmdfile)
+        if File.exists?(cmdfile)
+          stderr.puts "Command file '#{cmdfile}' is not readable."
+          return
+        else
+          stderr.puts "Command file '#{cmdfile}' does not exist."
+          return
+        end
+      end
+      @@intf << Trepan::ScriptInterface.new(cmdfile, @output, opts)
+    end
+    
+    def add_startup_files()
+      seen = {}
+      cwd_initfile = File.join('.', Trepan::CMD_INITFILE_BASE)
+      [cwd_initfile, Trepan::CMD_INITFILE].each do |initfile|
+        full_initfile_path = File.expand_path(initfile)
+        next if seen[full_initfile_path]
+        add_command_file(full_initfile_path) if 
+          File.readable?(full_initfile_path)
+        seen[full_initfile_path] = true
+      end
+    end
+
+    def process_cmdfile_setting(settings)
+      p settings
+      puts caller
+      exit
+      settings[:cmdfiles].each do |item|
+        cmdfile, opts = 
+          if item.kind_of?(Array)
+            item
+          else
+            [item, {}]
+          end
+        add_command_file(cmdfile, opts)
+      end if settings.member?(:cmdfiles)
+    end
+  end
+end
+
+module Kernel
+
+  # Enters the debugger in the current thread after _steps_ line events occur.
+  # Before entering the debugger startup script is read.
+  #
+  # Setting _steps_ to 0 will cause a break in the debugger subroutine
+  # and not wait for a line event to occur. You will have to go "up 1"
+  # in order to be back in your debugged program rather than the
+  # debugger. Settings _steps_ to 0 could be useful you want to stop
+  # right after the last statement in some scope, because the next
+  # step will take you out of some scope.
+  def debugger(steps = 1)
+    Trepan.start unless Trepan.started?
+    Trepan.add_startup_files
+    if 0 == steps
+      Debugger.current_context.stop_frame = 0
+    else
+      Debugger.current_context.stop_next = steps
+    end
+  end
+  alias breakpoint debugger unless respond_to?(:breakpoint)
+end