rbx-trepanning 0.0.5-universal-rubinius-1.2.1

data/app/mock.rb

@@ -0,0 +1,13 @@
+# Copyright (C) 2010 Rocky Bernstein <rockyb@rubyforge.net>
+class Trepan
+  attr_accessor :trace_filter # Procs/Methods we ignore.
+  def initialize(opts={})
+    @trace_filter = []
+  end
+  class MockCore
+    attr_accessor :dbgr
+    attr_reader   :core
+    def event; 'line' end
+  end 
+end
+

data/app/mock.rbc

@@ -0,0 +1,398 @@
+!RBIX
+0
+x
+M
+1
+n
+n
+x
+10
+__script__
+i
+29
+99
+7
+0
+1
+65
+49
+1
+3
+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
+6
+Trepan
+x
+10
+open_class
+x
+14
+__class_init__
+M
+1
+n
+n
+x
+6
+Trepan
+i
+51
+5
+66
+5
+7
+0
+47
+49
+1
+1
+15
+99
+7
+2
+7
+3
+65
+67
+49
+4
+0
+49
+5
+4
+15
+99
+7
+6
+1
+65
+49
+7
+3
+13
+99
+12
+7
+8
+12
+7
+9
+12
+65
+12
+49
+10
+4
+15
+49
+8
+0
+11
+I
+6
+I
+0
+I
+0
+I
+0
+n
+p
+11
+x
+12
+trace_filter
+x
+13
+attr_accessor
+x
+10
+initialize
+M
+1
+n
+n
+x
+10
+initialize
+i
+19
+23
+0
+10
+14
+44
+43
+0
+78
+49
+1
+1
+19
+0
+15
+35
+0
+38
+2
+11
+I
+3
+I
+1
+I
+0
+I
+1
+n
+p
+3
+x
+4
+Hash
+x
+16
+new_from_literal
+x
+13
+@trace_filter
+p
+5
+I
+0
+I
+4
+I
+e
+I
+5
+I
+13
+x
+51
+/home/rocky-rvm/.rvm/src/rbx-trepanning/app/mock.rb
+p
+1
+x
+4
+opts
+x
+17
+method_visibility
+x
+15
+add_defn_method
+x
+8
+MockCore
+x
+10
+open_class
+x
+14
+__class_init__
+M
+1
+n
+n
+x
+8
+MockCore
+i
+32
+5
+66
+5
+7
+0
+47
+49
+1
+1
+15
+5
+7
+2
+47
+49
+3
+1
+15
+99
+7
+4
+7
+5
+65
+67
+49
+6
+0
+49
+7
+4
+11
+I
+5
+I
+0
+I
+0
+I
+0
+n
+p
+8
+x
+4
+dbgr
+x
+13
+attr_accessor
+x
+4
+core
+x
+11
+attr_reader
+x
+5
+event
+M
+1
+n
+n
+x
+5
+event
+i
+4
+7
+0
+64
+11
+I
+1
+I
+0
+I
+0
+I
+0
+n
+p
+1
+s
+4
+line
+p
+3
+I
+0
+I
+a
+I
+4
+x
+51
+/home/rocky-rvm/.rvm/src/rbx-trepanning/app/mock.rb
+p
+0
+x
+17
+method_visibility
+x
+15
+add_defn_method
+p
+7
+I
+2
+I
+8
+I
+a
+I
+9
+I
+12
+I
+a
+I
+20
+x
+51
+/home/rocky-rvm/.rvm/src/rbx-trepanning/app/mock.rb
+p
+0
+x
+13
+attach_method
+p
+7
+I
+2
+I
+3
+I
+a
+I
+4
+I
+18
+I
+7
+I
+33
+x
+51
+/home/rocky-rvm/.rvm/src/rbx-trepanning/app/mock.rb
+p
+0
+x
+13
+attach_method
+p
+3
+I
+0
+I
+2
+I
+1d
+x
+51
+/home/rocky-rvm/.rvm/src/rbx-trepanning/app/mock.rb
+p
+0

data/app/options.rb

@@ -0,0 +1,137 @@
+#!/usr/bin/env ruby
+# -*- coding: utf-8 -*-
+# Copyright (C) 2010, 2011 Rocky Bernstein <rockyb@rubyforge.net>
+#=== Summary
+# Parses command-line options. 
+
+require 'optparse'
+class Trepan
+  require 'rubygems'; require 'require_relative'
+  require_relative 'default'
+
+  Trepan::VERSION = '0.0.5'
+  Trepan::PROGRAM = 'trepanx'
+
+  def self.show_version
+    "#{PROGRAM}, version #{VERSION}"
+  end
+
+  def self.copy_default_options
+    options = {}
+    DEFAULT_CMDLINE_SETTINGS.each do |key, value|
+      begin 
+        options[key] = value.clone
+      rescue TypeError
+        options[key] = value
+      end
+    end
+    options
+  end
+
+  def self.setup_options(options, stdout=$stdout, stderr=$stderr)
+    OptionParser.new do |opts|
+      opts.banner = <<EOB
+#{show_version}
+Usage: #{PROGRAM} [options] <script.rb> [-- <script.rb parameters>]
+EOB
+      opts.on('--client',
+              "Connect to out-of-process program") do
+        if options[:server]
+          stderr.puts "--server option previously given. --client option ignored."
+        else
+          options[:client] = true
+        end
+      end
+      opts.on('-c', '--command FILE', String, 
+              "Execute debugger commands from FILE") do |cmdfile| 
+        if File.readable?(cmdfile)
+          options[:cmdfiles] << cmdfile
+        elsif File.exists?(cmdfile)
+            stderr.puts "Command file '#{cmdfile}' is not readable. Option ignored."
+        else
+          stderr.puts "Command file '#{cmdfile}' does not exist."
+        end
+      end
+      opts.on('--nx',
+              "Do not run debugger initialization file #{CMD_INITFILE}") do
+        options[:nx] = true
+      end
+      # opts.on('--output FILE', String, "Name of file to record output") do |outfile| 
+      #   options[:outfile] = outfile
+      # end
+      opts.on("--cd DIR", String, "Change current directory to DIR") do |dir| 
+        if File.directory?(dir)
+          if File.executable?(dir)
+            options[:chdir] = dir
+          else
+            stderr.puts "Can't cd to #{dir}. Option --cd ignored."
+          end
+        else
+          stderr.puts "\"#{dir}\" is not a directory. Option --cd ignored."
+        end
+      end
+      opts.on("-h", "--host NAME", String, 
+              "Host or IP used in TCP connections for --server or --client. " + 
+              "Default is #{DEFAULT_SETTINGS[:host].inspect}.") do 
+        |name_or_ip| 
+        options[:host] = name_or_ip
+      end
+      opts.on("-p", "--port NUMBER", Integer, 
+              "Port number used in TCP connections for --server or --client. " + 
+              "Default is #{DEFAULT_SETTINGS[:port]}.") do 
+        |num| 
+        options[:port] = num
+      end
+      opts.on("--restore PROFILE", String, 
+              "Restore debugger state using PROFILE") do |profile|
+        if File.readable?(profile)
+          options[:restore_profile] = profile
+          stderr.puts "Debugger command file #{profile} is not readable. --restore option ignored."
+        end
+      end
+      opts.on('--server',
+              "Set up for out-of-process debugging") do
+        if options[:client]
+          stderr.puts "--client option previously given. --server option ignored."
+        else
+          options[:server] = true
+        end
+      end
+      opts.on('--[no-]highlight',
+              "Use [no] syntax highligh output") do |v|
+        options[:highlight] = ((v) ? :term : nil)
+      end
+      opts.on('--[no-]readline',
+              "Try [not] GNU Readline") do |v|
+        options[:readline] = v
+      end
+      opts.on_tail("-?", "--help", "Show this message") do
+        options[:help] = true
+        stdout.puts opts
+      end
+      opts.on_tail("-v", "--version", 
+                   "print the version") do
+        options[:version] = true
+        stdout.puts show_version
+      end
+    end
+  end
+end
+
+if __FILE__ == $0
+  opts = {}
+  options ={}
+  [%w(--help), %w(--version)].each do |o|
+    options = Trepan::copy_default_options
+    opts    = Trepan::setup_options(options)
+    rest    = opts.parse o
+    p options
+    puts '=' * 10
+  end
+  rest = opts.parse! ARGV
+  puts opts
+  puts '=' * 10
+  p options
+  puts '=' * 10
+  p Trepan::DEFAULT_CMDLINE_SETTINGS
+end