rbx-trepanning 0.0.3-universal-rubinius-1.2 → 0.0.4-universal-rubinius-1.2

data/interface/comcodes.rb

@@ -0,0 +1,18 @@
+# -*- coding: utf-8 -*-
+# Copyright (C) 2011 Rocky Bernstein <rockyb@rubyforge.net>
+
+# Communication status codes
+module Trepanning
+  # Most of these go from debugged process to front-end
+  # client interface. COMMAND goes the other way.
+  module RemoteCommunication
+    PRINT         = '.'
+    COMMAND       = 'C'
+    CONFIRM_TRUE  = 'Y'
+    CONFIRM_FALSE = 'N'
+    CONFIRM_REPLY = '?'
+    QUIT          = 'q'
+    PROMPT        = 'p'
+    RESTART       = 'r'
+  end
+end

data/interface/comcodes.rbc

@@ -0,0 +1,343 @@
+!RBIX
+0
+x
+M
+1
+n
+n
+x
+10
+__script__
+i
+28
+99
+7
+0
+65
+49
+1
+2
+13
+99
+12
+7
+2
+12
+7
+3
+12
+65
+12
+49
+4
+4
+15
+49
+2
+0
+15
+2
+11
+I
+6
+I
+0
+I
+0
+I
+0
+n
+p
+5
+x
+10
+Trepanning
+x
+11
+open_module
+x
+15
+__module_init__
+M
+1
+n
+n
+x
+10
+Trepanning
+i
+28
+5
+66
+99
+7
+0
+65
+49
+1
+2
+13
+99
+12
+7
+2
+12
+7
+3
+12
+65
+12
+49
+4
+4
+15
+49
+2
+0
+11
+I
+6
+I
+0
+I
+0
+I
+0
+n
+p
+5
+x
+19
+RemoteCommunication
+x
+11
+open_module
+x
+15
+__module_init__
+M
+1
+n
+n
+x
+19
+RemoteCommunication
+i
+82
+5
+66
+65
+7
+0
+7
+1
+64
+49
+2
+2
+15
+65
+7
+3
+7
+4
+64
+49
+2
+2
+15
+65
+7
+5
+7
+6
+64
+49
+2
+2
+15
+65
+7
+7
+7
+8
+64
+49
+2
+2
+15
+65
+7
+9
+7
+10
+64
+49
+2
+2
+15
+65
+7
+11
+7
+12
+64
+49
+2
+2
+15
+65
+7
+13
+7
+14
+64
+49
+2
+2
+15
+65
+7
+15
+7
+16
+64
+49
+2
+2
+11
+I
+3
+I
+0
+I
+0
+I
+0
+n
+p
+17
+x
+5
+PRINT
+s
+1
+.
+x
+9
+const_set
+x
+7
+COMMAND
+s
+1
+C
+x
+12
+CONFIRM_TRUE
+s
+1
+Y
+x
+13
+CONFIRM_FALSE
+s
+1
+N
+x
+13
+CONFIRM_REPLY
+s
+1
+?
+x
+4
+QUIT
+s
+1
+q
+x
+6
+PROMPT
+s
+1
+p
+x
+7
+RESTART
+s
+1
+r
+p
+17
+I
+2
+I
+9
+I
+c
+I
+a
+I
+16
+I
+b
+I
+20
+I
+c
+I
+2a
+I
+d
+I
+34
+I
+e
+I
+3e
+I
+f
+I
+48
+I
+10
+I
+52
+x
+61
+/home/rocky-rvm/.rvm/src/rbx-trepanning/interface/comcodes.rb
+p
+0
+x
+13
+attach_method
+p
+3
+I
+2
+I
+8
+I
+1c
+x
+61
+/home/rocky-rvm/.rvm/src/rbx-trepanning/interface/comcodes.rb
+p
+0
+x
+13
+attach_method
+p
+3
+I
+0
+I
+5
+I
+1c
+x
+61
+/home/rocky-rvm/.rvm/src/rbx-trepanning/interface/comcodes.rb
+p
+0

data/interface/server.rb

@@ -0,0 +1,143 @@
+# -*- coding: utf-8 -*-
+# Copyright (C) 2011 Rocky Bernstein <rockyb@rubyforge.net>
+
+# Our local modules
+require 'rubygems'; require 'require_relative'
+require_relative 'base_intf'
+require_relative 'comcodes'
+require_relative '../io/input'
+require_relative '../io/tcpserver'
+
+# Mfifoserver = import_relative('fifoserver', '..io', 'pydbgr')
+
+# Interface for debugging a program but having user control
+# reside outside of the debugged process, possibly on another
+# computer
+class Trepan::ServerInterface < Trepan::Interface
+
+  include Trepanning::RemoteCommunication
+
+  DEFAULT_INIT_CONNECTION_OPTS = {
+    :io => 'TCP'
+  } unless defined?(DEFAULT_INIT_CONNECTION_OPTS)
+
+  def initialize(inout=nil, out=nil, connection_opts={})
+
+    @connection_opts = DEFAULT_INIT_CONNECTION_OPTS.merge(connection_opts)
+
+    at_exit { finalize }
+    @inout = 
+      if inout
+        inout
+      else
+        server_type = @connection_opts[:io]
+        # FIXME: complete this.
+        # if 'FIFO' == server_type
+        #     FIFOServer.new
+        # else
+        Trepan::TCPDbgServer.new(@connection_opts)
+        # end
+      end
+    # For Compatability 
+    @output = @inout
+    @input  = @inout
+    @interactive = true # Or at least so we think initially
+  end
+  
+  # Closes both input and output
+  def close
+    if @inout && @inout.connected?
+      @inout.write(QUIT + 'bye')
+      @inout.close 
+    end
+  end
+  
+  # Called when a dangerous action is about to be done to make sure
+  # it's okay. `prompt' is printed; user response is returned.
+  # FIXME: make common routine for this and user.rb
+  def confirm(prompt, default)
+    while true
+      begin
+        write_confirm(prompt, default)
+        reply = readline(nil).strip.downcase
+      rescue EOFError
+        return default
+      end
+      if YES.member?(reply)
+        return true
+      elsif NO.member?(reply)
+        return false
+      else
+        msg "Please answer 'yes' or 'no'. Try again."
+      end
+    end
+    return default
+  end
+  
+  # Return true if we are connected
+  def connected?
+    :connected == @inout.state
+  end
+    
+  # print exit annotation
+  def finalize(last_wishes=QUIT)
+    @inout.writeline(last_wishes) if connected?
+    close
+  end
+  
+  def input_eof?
+    false
+  end
+
+  # used to write to a debugger that is connected to this
+  # server; `str' written will have a newline added to it
+  def msg(msg)
+    @inout.writeline(PRINT + msg)
+  end
+
+  # used to write to a debugger that is connected to this
+  # server; `str' written will not have a newline added to it
+  def msg_nocr(msg)
+    @inout.write(PRINT +  msg)
+  end
+  
+  def read_command(prompt)
+    readline(prompt)
+  end
+  
+  def read_data
+    @inout.read_dat
+  end
+  
+  def readline(prompt, add_to_history=true)
+    if prompt
+      write_prompt(prompt)
+    end
+    coded_line = @inout.read_msg()
+    @read_ctrl = coded_line[0..0]
+    coded_line[1..-1]
+  end
+  
+  # Return connected
+  def state
+    @inout.state
+  end
+  
+  def write_prompt(prompt)
+    @inout.write(PROMPT + prompt)
+  end
+  
+  def write_confirm(prompt, default)
+    if default
+      code = CONFIRM_TRUE
+    else
+      code = CONFIRM_FALSE
+    end
+    @inout.write(code + prompt)
+  end
+end
+    
+# Demo
+if __FILE__ == $0
+  intf = Trepan::ServerInterface.new(nil, nil, :open => false)
+end