rbx-trepanning 0.0.1-universal-rubinius

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,123 @@
+#!/usr/bin/env ruby
+# -*- coding: utf-8 -*-
+# Copyright (C) 2010 Rocky Bernstein <rockyb@rubyforge.net>
+#=== Summary
+# Parses command-line options. 
+#=== Options
+#
+#<tt>--cd=DIR</tt>
+#      Change current directory to DIR.
+#
+#<tt>--command</tt> <i>file</i>::
+#      Run debugger command file <i>file</i>
+#
+#<tt>--nx</tt>::
+#      Don’t execute commands  found in any initialization
+#      files, e.g. <tt>.rdebugrc</tt>.
+#
+#<tt>--restore=PROFILE</tt>::
+#      Debugger command file which restores debugger settings,
+#      resumably saved before a 'restart' debugger command.
+#
+#<tt>--version</tt>::
+#      Show the version number.
+#
+#<tt>--help</tt>::
+#      Show invocation help and exit.
+
+require 'optparse'
+module Trepanning
+  require 'rubygems'; require 'require_relative'
+  require_relative 'default'
+
+  Trepanning::VERSION = '0.0.1.git' unless defined?(Trepanning::VERSION)
+  Trepanning::PROGRAM = 'trepan' unless defined?(Trepanning::PROGRAM)
+
+  def show_version
+    "#{PROGRAM} version #{VERSION}"
+  end
+
+  def 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 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('--command FILE', String, 
+              "Execute debugger commnds from FILE") do |cmdfile| 
+        if File.readable?(cmdfile)
+          options[:cmdfiles] << cmdfile
+        elsif File.exists?(cmdfile)
+            stderr.puts "Command file '#{cmdfile}' is not readable."
+        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("--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_tail("--help", "Show this message") do
+        options[:help] = true
+        stdout.puts opts
+      end
+      opts.on_tail("--version", 
+                   "print the version") do
+        options[:version] = true
+        stdout.puts show_version
+      end
+    end
+  end
+end
+
+if __FILE__ == $0
+  include Trepanning
+  opts = {}
+  options ={}
+  [%w(--help), %w(--version)].each do |o|
+    options = copy_default_options
+    opts    = setup_options(options)
+    rest    = opts.parse o
+    puts options
+    puts '=' * 10
+  end
+  rest = opts.parse! ARGV
+  puts opts.to_s
+  puts '=' * 10
+  puts options
+  puts '=' * 10
+  puts Trepanning::DEFAULT_CMDLINE_SETTINGS
+end