rbx-trepanning 0.0.5-universal-rubinius-1.2.1

data/io/tcpclient.rb

@@ -0,0 +1,129 @@
+# -*- coding: utf-8 -*-
+# Copyright (C) 2011 Rocky Bernstein <rockyb@rubyforge.net>
+# Debugger Socket Input/Output Interface.
+
+require 'socket'
+require 'rubygems'; require 'require_relative'
+require_relative 'base_io'
+require_relative 'tcpfns'
+
+class Trepan 
+  # Debugger Client Input/Output Socket.
+  class TCPDbgClient < Trepan::InOutBase
+
+    include Trepanning::TCPPacking
+
+    DEFAULT_INIT_OPTS = {:open => true}
+
+    CLIENT_SOCKET_OPTS = {
+      :host    => 'localhost', # Symbolic name
+      :port    => 1027,  # Arbitrary non-privileged port
+    }
+
+    attr_reader :state
+
+    def initialize(opts={})
+      @opts      = CLIENT_SOCKET_OPTS.merge(opts)
+      @addr      = nil
+      @buf       = ''
+      @line_edit = false # Our name for GNU readline capability
+      @state     = :disconnected
+      @inout     = nil
+      open(@opts) if @opts[:open]
+    end
+
+    # Closes both input and output
+    def close
+      @state = :closing
+      @inout.close if @inout
+      @state = :disconnected
+    end
+
+    def disconnected?
+      :disconnected == @state
+    end
+
+    def open(opts={})
+      @opts = CLIENT_SOCKET_OPTS.merge(opts)
+      @host = @opts[:host]
+      @port = @opts[:port]
+      begin
+        @inout = TCPSocket.new(@host, @port)
+        @state = :connected
+      rescue SystemCallError => e
+        raise IOError, 
+        ('Open client for host %s on port %s gives error: %s' %
+         [@host, @port, e])
+      end
+    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
+      if @state == :connected
+        if !@buf || @buf.empty?
+          @buf = @inout.recv(TCP_MAX_PACKET)
+          if @buf.empty?
+            @state = :disconnected
+            raise EOFError
+          end
+        end
+        @buf, data = unpack_msg(@buf)
+        return data
+      else
+        raise IOError, ("read_msg called in state: %s." % @state.to_s)
+      end
+    end
+
+    # This method the debugger uses to write a message unit.
+    def write(msg)
+      # FIXME: do we have to check the size of msg and split output? 
+      @inout.write(pack_msg(msg))
+    end
+
+    def writeline(msg)
+      write(msg + "\n")
+    end
+  end
+end
+
+# Demo
+if __FILE__ == $0
+  client = Trepan::TCPDbgClient.new({'open' => false})
+  if ARGV.size > 0
+    threads = []
+    Thread.new do
+      server = TCPServer.new('localhost', 1027)
+      session = server.accept
+      while 'quit' != (line = session.gets)
+        session.puts line 
+      end
+      session.close
+    end
+
+    threads << Thread.new do
+      print 'Connecting...'
+      client.open()
+      puts 'connected.'
+      while true
+        print "input? "
+        line = STDIN.gets
+        break if line.chomp == 'quit'
+        begin
+          line = client.writeline(line)
+          puts "Got: #{client.read_msg.chomp}"
+        rescue EOFError
+          puts "Got EOF"
+          break
+        rescue Exception => e
+          puts "Got #{e}"
+          break
+        end
+      end
+    end
+    threads.each {|t| t.join }
+  end
+  client.close
+end

data/io/tcpclient.rbc

@@ -0,0 +1,2419 @@
+!RBIX
+0
+x
+M
+1
+n
+n
+x
+10
+__script__
+i
+210
+5
+7
+0
+64
+47
+49
+1
+1
+15
+5
+7
+2
+64
+47
+49
+1
+1
+15
+5
+7
+3
+64
+47
+49
+1
+1
+15
+5
+7
+4
+64
+47
+49
+5
+1
+15
+5
+7
+6
+64
+47
+49
+5
+1
+15
+99
+7
+7
+1
+65
+49
+8
+3
+13
+99
+12
+7
+9
+12
+7
+10
+12
+65
+12
+49
+11
+4
+15
+49
+9
+0
+15
+65
+49
+12
+0
+99
+43
+13
+7
+14
+49
+15
+1
+83
+16
+9
+206
+45
+7
+17
+43
+18
+13
+71
+19
+47
+9
+127
+47
+49
+20
+0
+13
+44
+43
+21
+79
+49
+22
+1
+13
+7
+23
+64
+3
+49
+24
+2
+15
+47
+49
+25
+1
+15
+8
+146
+44
+43
+21
+79
+49
+22
+1
+13
+7
+23
+64
+3
+49
+24
+2
+15
+49
+19
+1
+19
+0
+15
+45
+26
+27
+49
+28
+0
+78
+85
+29
+9
+197
+35
+0
+19
+1
+15
+45
+30
+31
+56
+32
+50
+19
+0
+15
+20
+1
+45
+30
+33
+56
+34
+50
+19
+0
+49
+35
+1
+15
+20
+1
+56
+36
+50
+37
+0
+8
+198
+1
+15
+20
+0
+49
+38
+0
+8
+207
+1
+15
+2
+11
+I
+8
+I
+2
+I
+0
+I
+0
+n
+p
+39
+s
+6
+socket
+x
+7
+require
+s
+8
+rubygems
+s
+16
+require_relative
+s
+7
+base_io
+x
+16
+require_relative
+s
+6
+tcpfns
+x
+6
+Trepan
+x
+10
+open_class
+x
+14
+__class_init__
+M
+1
+n
+n
+x
+6
+Trepan
+i
+33
+5
+66
+99
+7
+0
+45
+1
+2
+43
+3
+65
+49
+4
+3
+13
+99
+12
+7
+5
+12
+7
+6
+12
+65
+12
+49
+7
+4
+15
+49
+5
+0
+11
+I
+6
+I
+0
+I
+0
+I
+0
+n
+p
+8
+x
+12
+TCPDbgClient
+x
+6
+Trepan
+n
+x
+9
+InOutBase
+x
+10
+open_class
+x
+14
+__class_init__
+M
+1
+n
+n
+x
+12
+TCPDbgClient
+i
+174
+5
+66
+5
+45
+0
+1
+43
+2
+47
+49
+3
+1
+15
+65
+7
+4
+44
+43
+5
+79
+49
+6
+1
+13
+7
+7
+2
+49
+8
+2
+15
+49
+9
+2
+15
+65
+7
+10
+44
+43
+5
+80
+49
+6
+1
+13
+7
+11
+7
+12
+64
+49
+8
+2
+15
+13
+7
+13
+7
+14
+49
+8
+2
+15
+49
+9
+2
+15
+5
+7
+15
+47
+49
+16
+1
+15
+99
+7
+17
+7
+18
+65
+67
+49
+19
+0
+49
+20
+4
+15
+99
+7
+21
+7
+22
+65
+67
+49
+19
+0
+49
+20
+4
+15
+99
+7
+23
+7
+24
+65
+67
+49
+19
+0
+49
+20
+4
+15
+99
+7
+7
+7
+25
+65
+67
+49
+19
+0
+49
+20
+4
+15
+99
+7
+26
+7
+27
+65
+67
+49
+19
+0
+49
+20
+4
+15
+99
+7
+28
+7
+29
+65
+67
+49
+19
+0
+49
+20
+4
+15
+99
+7
+30
+7
+31
+65
+67
+49
+19
+0
+49
+20
+4
+11
+I
+6
+I
+0
+I
+0
+I
+0
+n
+p
+32
+x
+10
+Trepanning
+n
+x
+10
+TCPPacking
+x
+7
+include
+x
+17
+DEFAULT_INIT_OPTS
+x
+4
+Hash
+x
+16
+new_from_literal
+x
+4
+open
+x
+3
+[]=
+x
+9
+const_set
+x
+18
+CLIENT_SOCKET_OPTS
+x
+4
+host
+s
+9
+localhost
+x
+4
+port
+I
+403
+x
+5
+state
+x
+11
+attr_reader
+x
+10
+initialize
+M
+1
+n
+n
+x
+10
+initialize
+i
+68
+23
+0
+10
+14
+44
+43
+0
+78
+49
+1
+1
+19
+0
+15
+45
+2
+3
+20
+0
+49
+4
+1
+38
+5
+15
+1
+38
+6
+15
+7
+7
+64
+38
+8
+15
+3
+38
+9
+15
+7
+10
+38
+11
+15
+1
+38
+12
+15
+39
+5
+7
+13
+49
+14
+1
+9
+66
+5
+39
+5
+47
+49
+13
+1
+8
+67
+1
+11
+I
+3
+I
+1
+I
+0
+I
+1
+n
+p
+15
+x
+4
+Hash
+x
+16
+new_from_literal
+x
+18
+CLIENT_SOCKET_OPTS
+n
+x
+5
+merge
+x
+5
+@opts
+x
+5
+@addr
+s
+0
+
+x
+4
+@buf
+x
+10
+@line_edit
+x
+12
+disconnected
+x
+6
+@state
+x
+6
+@inout
+x
+4
+open
+x
+2
+[]
+p
+17
+I
+-1
+I
+19
+I
+e
+I
+1a
+I
+19
+I
+1b
+I
+1d
+I
+1c
+I
+23
+I
+1d
+I
+27
+I
+1e
+I
+2c
+I
+1f
+I
+30
+I
+20
+I
+44
+x
+55
+/home/rocky-rvm/.rvm/src/rbx-trepanning/io/tcpclient.rb
+p
+1
+x
+4
+opts
+x
+17
+method_visibility
+x
+15
+add_defn_method
+x
+5
+close
+M
+1
+n
+n
+x
+5
+close
+i
+23
+7
+0
+38
+1
+15
+39
+2
+9
+16
+39
+2
+49
+3
+0
+8
+17
+1
+15
+7
+4
+38
+1
+11
+I
+1
+I
+0
+I
+0
+I
+0
+n
+p
+5
+x
+7
+closing
+x
+6
+@state
+x
+6
+@inout
+x
+5
+close
+x
+12
+disconnected
+p
+9
+I
+-1
+I
+24
+I
+0
+I
+25
+I
+5
+I
+26
+I
+12
+I
+27
+I
+17
+x
+55
+/home/rocky-rvm/.rvm/src/rbx-trepanning/io/tcpclient.rb
+p
+0
+x
+13
+disconnected?
+M
+1
+n
+n
+x
+13
+disconnected?
+i
+7
+7
+0
+39
+1
+83
+2
+11
+I
+2
+I
+0
+I
+0
+I
+0
+n
+p
+3
+x
+12
+disconnected
+x
+6
+@state
+x
+2
+==
+p
+5
+I
+-1
+I
+2a
+I
+0
+I
+2b
+I
+7
+x
+55
+/home/rocky-rvm/.rvm/src/rbx-trepanning/io/tcpclient.rb
+p
+0
+M
+1
+n
+n
+x
+4
+open
+i
+150
+23
+0
+10
+14
+44
+43
+0
+78
+49
+1
+1
+19
+0
+15
+45
+2
+3
+20
+0
+49
+4
+1
+38
+5
+15
+39
+5
+7
+6
+49
+7
+1
+38
+8
+15
+39
+5
+7
+9
+49
+7
+1
+38
+10
+15
+26
+93
+0
+15
+29
+94
+0
+45
+11
+12
+13
+71
+13
+47
+9
+77
+47
+49
+14
+0
+13
+39
+8
+39
+10
+47
+49
+15
+2
+15
+8
+84
+39
+8
+39
+10
+49
+13
+2
+38
+16
+15
+7
+17
+38
+18
+30
+8
+146
+26
+93
+1
+15
+24
+13
+45
+19
+20
+12
+49
+21
+1
+10
+111
+8
+141
+15
+24
+19
+1
+15
+5
+45
+22
+23
+7
+24
+64
+39
+8
+39
+10
+20
+1
+35
+3
+49
+25
+1
+47
+49
+26
+2
+25
+8
+146
+15
+92
+1
+27
+34
+92
+0
+27
+11
+I
+a
+I
+2
+I
+0
+I
+1
+n
+p
+27
+x
+4
+Hash
+x
+16
+new_from_literal
+x
+18
+CLIENT_SOCKET_OPTS
+n
+x
+5
+merge
+x
+5
+@opts
+x
+4
+host
+x
+2
+[]
+x
+5
+@host
+x
+4
+port
+x
+5
+@port
+x
+9
+TCPSocket
+n
+x
+3
+new
+x
+8
+allocate
+x
+10
+initialize
+x
+6
+@inout
+x
+9
+connected
+x
+6
+@state
+x
+15
+SystemCallError
+n
+x
+3
+===
+x
+7
+IOError
+n
+s
+50
+Open client for host %s on port %s gives error: %s
+x
+1
+%
+x
+5
+raise
+p
+29
+I
+-1
+I
+2e
+I
+e
+I
+2f
+I
+19
+I
+30
+I
+23
+I
+31
+I
+2d
+I
+33
+I
+57
+I
+34
+I
+63
+I
+35
+I
+70
+I
+39
+I
+71
+I
+35
+I
+74
+I
+36
+I
+78
+I
+37
+I
+7b
+I
+38
+I
+83
+I
+37
+I
+86
+I
+36
+I
+96
+x
+55
+/home/rocky-rvm/.rvm/src/rbx-trepanning/io/tcpclient.rb
+p
+2
+x
+4
+opts
+x
+1
+e
+x
+8
+read_msg
+M
+1
+n
+n
+x
+8
+read_msg
+i
+109
+39
+0
+7
+1
+83
+2
+9
+89
+39
+3
+10
+15
+2
+8
+16
+3
+13
+10
+25
+15
+39
+3
+49
+4
+0
+9
+63
+39
+5
+45
+6
+7
+49
+8
+1
+38
+3
+15
+39
+3
+49
+4
+0
+9
+60
+7
+9
+38
+0
+15
+5
+45
+10
+11
+47
+49
+12
+1
+8
+61
+1
+8
+64
+1
+15
+5
+39
+3
+47
+49
+13
+1
+97
+37
+38
+3
+15
+37
+19
+0
+15
+15
+2
+15
+20
+0
+11
+8
+108
+5
+45
+14
+15
+7
+16
+64
+39
+0
+49
+17
+0
+49
+18
+1
+47
+49
+12
+2
+11
+I
+5
+I
+1
+I
+0
+I
+0
+n
+p
+19
+x
+6
+@state
+x
+9
+connected
+x
+2
+==
+x
+4
+@buf
+x
+6
+empty?
+x
+6
+@inout
+x
+14
+TCP_MAX_PACKET
+n
+x
+4
+recv
+x
+12
+disconnected
+x
+8
+EOFError
+n
+x
+5
+raise
+x
+10
+unpack_msg
+x
+7
+IOError
+n
+s
+29
+read_msg called in state: %s.
+x
+4
+to_s
+x
+1
+%
+p
+25
+I
+-1
+I
+40
+I
+0
+I
+41
+I
+8
+I
+42
+I
+1b
+I
+43
+I
+26
+I
+44
+I
+2d
+I
+45
+I
+32
+I
+46
+I
+3c
+I
+44
+I
+3f
+I
+42
+I
+41
+I
+49
+I
+54
+I
+4a
+I
+59
+I
+4c
+I
+6d
+x
+55
+/home/rocky-rvm/.rvm/src/rbx-trepanning/io/tcpclient.rb
+p
+1
+x
+4
+data
+x
+5
+write
+M
+1
+n
+n
+x
+5
+write
+i
+13
+39
+0
+5
+20
+0
+47
+49
+1
+1
+49
+2
+1
+11
+I
+4
+I
+1
+I
+1
+I
+1
+n
+p
+3
+x
+6
+@inout
+x
+8
+pack_msg
+x
+5
+write
+p
+5
+I
+-1
+I
+51
+I
+0
+I
+53
+I
+d
+x
+55
+/home/rocky-rvm/.rvm/src/rbx-trepanning/io/tcpclient.rb
+p
+1
+x
+3
+msg
+x
+9
+writeline
+M
+1
+n
+n
+x
+9
+writeline
+i
+13
+5
+20
+0
+7
+0
+64
+81
+1
+47
+49
+2
+1
+11
+I
+4
+I
+1
+I
+1
+I
+1
+n
+p
+3
+s
+1
+
+
+x
+1
++
+x
+5
+write
+p
+5
+I
+-1
+I
+56
+I
+0
+I
+57
+I
+d
+x
+55
+/home/rocky-rvm/.rvm/src/rbx-trepanning/io/tcpclient.rb
+p
+1
+x
+3
+msg
+p
+29
+I
+2
+I
+e
+I
+d
+I
+10
+I
+23
+I
+12
+I
+26
+I
+15
+I
+2e
+I
+13
+I
+38
+I
+14
+I
+44
+I
+17
+I
+4c
+I
+19
+I
+5a
+I
+24
+I
+68
+I
+2a
+I
+76
+I
+2e
+I
+84
+I
+40
+I
+92
+I
+51
+I
+a0
+I
+56
+I
+ae
+x
+55
+/home/rocky-rvm/.rvm/src/rbx-trepanning/io/tcpclient.rb
+p
+0
+x
+13
+attach_method
+p
+3
+I
+2
+I
+c
+I
+21
+x
+55
+/home/rocky-rvm/.rvm/src/rbx-trepanning/io/tcpclient.rb
+p
+0
+x
+13
+attach_method
+x
+11
+active_path
+x
+7
+Globals
+x
+2
+$0
+x
+2
+[]
+x
+2
+==
+n
+x
+12
+TCPDbgClient
+x
+3
+new
+x
+8
+allocate
+x
+4
+Hash
+x
+16
+new_from_literal
+s
+4
+open
+x
+3
+[]=
+x
+10
+initialize
+x
+4
+ARGV
+n
+x
+4
+size
+x
+1
+>
+x
+6
+Thread
+n
+M
+1
+p
+2
+x
+9
+for_block
+t
+n
+x
+9
+__block__
+i
+78
+45
+0
+1
+13
+71
+2
+47
+9
+26
+47
+49
+3
+0
+13
+7
+4
+64
+7
+5
+47
+49
+6
+2
+15
+8
+34
+7
+4
+64
+7
+5
+49
+2
+2
+19
+0
+15
+20
+0
+49
+7
+0
+19
+1
+15
+7
+8
+64
+20
+1
+49
+9
+0
+19
+2
+83
+10
+10
+70
+20
+1
+20
+2
+49
+11
+1
+15
+68
+8
+45
+1
+15
+20
+1
+49
+12
+0
+11
+I
+8
+I
+3
+I
+0
+I
+0
+I
+-2
+p
+13
+x
+9
+TCPServer
+n
+x
+3
+new
+x
+8
+allocate
+s
+9
+localhost
+I
+403
+x
+10
+initialize
+x
+6
+accept
+s
+4
+quit
+x
+4
+gets
+x
+2
+==
+x
+4
+puts
+x
+5
+close
+p
+11
+I
+0
+I
+62
+I
+25
+I
+63
+I
+2d
+I
+64
+I
+3b
+I
+65
+I
+48
+I
+67
+I
+4e
+x
+55
+/home/rocky-rvm/.rvm/src/rbx-trepanning/io/tcpclient.rb
+p
+3
+x
+6
+server
+x
+7
+session
+x
+4
+line
+n
+M
+1
+p
+2
+x
+9
+for_block
+t
+n
+x
+9
+__block__
+i
+204
+5
+7
+0
+64
+47
+49
+1
+1
+15
+21
+1
+0
+49
+2
+0
+15
+5
+7
+3
+64
+47
+49
+4
+1
+15
+2
+9
+202
+5
+7
+5
+64
+47
+49
+1
+1
+15
+45
+6
+7
+49
+8
+0
+19
+0
+15
+20
+0
+49
+9
+0
+7
+10
+64
+83
+11
+9
+63
+1
+8
+203
+8
+64
+1
+15
+26
+93
+0
+15
+29
+107
+0
+21
+1
+0
+20
+0
+49
+12
+1
+19
+0
+15
+5
+7
+13
+21
+1
+0
+49
+14
+0
+49
+9
+0
+47
+101
+15
+63
+2
+47
+49
+4
+1
+30
+8
+195
+26
+93
+1
+15
+24
+13
+45
+16
+17
+12
+49
+18
+1
+10
+124
+8
+146
+15
+5
+7
+19
+64
+47
+49
+4
+1
+15
+1
+8
+140
+25
+8
+195
+25
+92
+0
+27
+8
+203
+13
+45
+20
+21
+12
+49
+18
+1
+10
+158
+8
+190
+15
+24
+19
+1
+15
+5
+7
+22
+20
+1
+47
+101
+15
+63
+2
+47
+49
+4
+1
+15
+1
+8
+184
+25
+8
+195
+25
+92
+0
+27
+8
+203
+15
+92
+1
+27
+34
+92
+0
+27
+15
+68
+8
+25
+1
+11
+I
+8
+I
+2
+I
+0
+I
+0
+I
+-2
+p
+23
+s
+13
+Connecting...
+x
+5
+print
+x
+4
+open
+s
+10
+connected.
+x
+4
+puts
+s
+7
+input? 
+x
+5
+STDIN
+n
+x
+4
+gets
+x
+5
+chomp
+s
+4
+quit
+x
+2
+==
+x
+9
+writeline
+s
+5
+Got: 
+x
+8
+read_msg
+x
+4
+to_s
+x
+8
+EOFError
+n
+x
+3
+===
+s
+7
+Got EOF
+x
+9
+Exception
+n
+s
+4
+Got 
+p
+35
+I
+0
+I
+6b
+I
+9
+I
+6c
+I
+10
+I
+6d
+I
+19
+I
+6e
+I
+1c
+I
+6f
+I
+25
+I
+70
+I
+2e
+I
+71
+I
+41
+I
+73
+I
+53
+I
+74
+I
+70
+I
+75
+I
+7d
+I
+76
+I
+86
+I
+77
+I
+92
+I
+78
+I
+9f
+I
+7b
+I
+a0
+I
+78
+I
+a3
+I
+79
+I
+b2
+I
+7a
+I
+cc
+x
+55
+/home/rocky-rvm/.rvm/src/rbx-trepanning/io/tcpclient.rb
+p
+2
+x
+4
+line
+x
+1
+e
+x
+2
+<<
+M
+1
+p
+2
+x
+9
+for_block
+t
+n
+x
+9
+__block__
+i
+10
+57
+19
+0
+15
+20
+0
+49
+0
+0
+11
+I
+3
+I
+1
+I
+1
+I
+1
+n
+p
+1
+x
+4
+join
+p
+3
+I
+0
+I
+7e
+I
+a
+x
+55
+/home/rocky-rvm/.rvm/src/rbx-trepanning/io/tcpclient.rb
+p
+1
+x
+1
+t
+x
+4
+each
+x
+5
+close
+p
+31
+I
+0
+I
+5
+I
+9
+I
+6
+I
+1b
+I
+7
+I
+24
+I
+8
+I
+2d
+I
+a
+I
+48
+I
+5d
+I
+58
+I
+5e
+I
+95
+I
+5f
+I
+a0
+I
+60
+I
+a5
+I
+61
+I
+ae
+I
+6a
+I
+bc
+I
+7e
+I
+c5
+I
+5f
+I
+c7
+I
+80
+I
+ce
+I
+5d
+I
+d2
+x
+55
+/home/rocky-rvm/.rvm/src/rbx-trepanning/io/tcpclient.rb
+p
+2
+x
+6
+client
+x
+7
+threads