trepanning 0.1.0 → 0.1.1

data/sample/.gitignore

@@ -0,0 +1 @@
+/*~

data/sample/list-terminal-colors.rb

@@ -0,0 +1,139 @@
+#!/usr/bin/env ruby
+# Run this program in a terminal window to see a list of terminal colors
+# the assignments are the defaults as of Jan 18, 2011, but you may want to 
+# double check.
+require 'rubygems'
+require 'coderay'
+require 'term/ansicolor'
+
+      TOKEN_COLORS = {
+        :annotation => '35',
+        :attribute_name => '33',
+        :attribute_name_fat => '33',
+        :attribute_value => '31',
+        :attribute_value_fat => '31',
+        :bin => '1;35',
+        :char => {:self => '36', :delimiter => '34'},
+        :class => '1;35',
+        :class_variable => '36',
+        :color => '32',
+        :comment => '37',
+        :complex => '34',
+        :constant => ['34', '4'],
+        :decoration => '35',
+        :definition => '1;32',
+        :directive => ['32', '4'],
+        :doc => '46',
+        :doctype => '1;30',
+        :doc_string => ['31', '4'],
+        :entity => '33',
+        :error => ['1;33', '41'],
+        :exception => '1;31',
+        :float => '1;35',
+        :function => '1;34',
+        :global_variable => '42',
+        :hex => '1;36',
+        :important => '1;31',
+        :include => '33',
+        :integer => '1;34',
+        :interpreted => '1;35',
+        :key => '35',
+        :label => '1;4',
+        :local_variable => '33',
+        :oct => '1;35',
+        :operator_name => '1;29',
+        :pre_constant => '1;36',
+        :pre_type => '1;30',
+        :predefined => ['4', '1;34'],
+        :preprocessor => '36',
+        :pseudo_class => '34',
+        :regexp => {
+          :content => '31',
+          :delimiter => '1;29',
+          :modifier => '35',
+          :function => '1;29'
+        },
+        :reserved => '1;31',
+        :shell => {
+          :self => '42',
+          :content => '1;29',
+          :delimiter => '37',
+        },
+        :string => {
+          :self => '32',
+          :modifier => '1;32',
+          :escape => '1;36',
+          :delimiter => '1;32',
+        },
+        :symbol => '1;32',
+        :tag => '34',
+        :tag_fat => '1;34',
+        :tag_special => ['34', '4'],
+        :type => '1;34',
+        :value => '36',
+        :variable => '34',
+        :insert => '42',
+        :delete => '41',
+        :change => '44',
+        :head => '45',
+      }
+      TOKEN_COLORS[:keyword] = TOKEN_COLORS[:reserved]
+      TOKEN_COLORS[:method] = TOKEN_COLORS[:function]
+      TOKEN_COLORS[:imaginary] = TOKEN_COLORS[:complex]
+      TOKEN_COLORS[:open] = TOKEN_COLORS[:close] = TOKEN_COLORS[:nesting_delimiter] = TOKEN_COLORS[:escape] = TOKEN_COLORS[:delimiter]
+
+# require 'trepanning'; debugger
+%w(annotation
+   attribute_name
+   attribute_name_fat
+   attribute_value
+   attribute_value_fat
+   bin
+   class
+   class_variable
+   color
+   comment
+   complex
+   constant
+   decoration
+   definition
+   doc
+   doctype
+   entity
+   exception
+   float
+   function
+   global_variable
+   hex
+   important
+   include
+   integer
+   interpreted
+   key
+   label
+   local_variable
+   oct
+   operator_name
+   pre_constant
+   pre_type
+   predefined
+   preprocessor
+   pseudo_class
+   reserved
+   symbol
+   tag
+   tag_fat
+   type
+   value
+   variable
+   insert
+   delete
+   change
+   head
+).each do |name|
+     puts "\e[#{TOKEN_COLORS[name.to_sym]}m#{name} - #{TOKEN_COLORS[name.to_sym].inspect}\e[0m"
+end
+%w(bold italic underline).each do |name|
+     attrib=Term::ANSIColor.send(name)
+     puts "#{attrib}#{name} - #{attrib.inspect}\e[0m"
+end

data/sample/rocky-dot-trepanrc

@@ -0,0 +1,14 @@
+# Rocky's trepanx profile for Rubinius.
+
+# Place where I have Rubinius source (in rvm)
+dir /home/rocky-rvm/.rvm/src/rbx-head/
+
+set autoeval on   # Is default, but just in case
+# set highlight on   # turn on syntax highlight by default
+
+# My customization to the default syntax coloring
+load "#{ENV['HOME']}/.trepanx-colors.rb"
+
+# let me know that this ran...
+puts "Rocky's .trepanxrc loaded"
+

data/sample/rocky-trepan-colors.rb

@@ -0,0 +1,47 @@
+# Terminal color settings I use. I doubt terminal colors are
+# standardized let alone what colors you want for the various
+# syntax elements. So you should adjust as desired.
+
+# Values are either a number string, e.g. '36' or a pair of number
+# semicolon and number, e.g. '3;36'.
+#
+# The first number before a semicolon is a font modifier from the
+# following table:
+#
+#    1 - bold 
+#    3 - italic
+#    4 - underline 
+
+require 'rubygems'
+require 'coderay'
+require 'coderay/encoders/term'
+TERM_TOKEN_COLORS = {
+  :comment => '3;37',        # sienna #8b4726
+  :constant => '1;34',       # Bold Midnight Blue #191970
+  :class => '1;2',           # 
+  :doctype => '1;2',         # 
+  :global_variable => '36',  # yellow brownish 
+  :integer => '29',          # black #00000
+  :label => '4',             # black underline
+  :method => '34',           # blue #0000FF 
+  :pre_constant => '3;33',   # goldenrod4 #8b6914
+  :regexp => {
+    :content => '36',        # dark cyan #008b8b
+    :delimiter => '1;29',    # bold black
+    :modifier => '35',
+    :function => '1;29'
+  },
+  :string => {
+    :content => '1;37',      # ivory4 (grey) #8b8b83
+    :delimiter => '1;29',    # bold black
+  },
+  :reserved => '1;32',       # bold dark olive green #556b2f RGB: 85, 107, 47
+  :symbol   => '35',         # purple4 #551A8B RGB: 85, 26, 139
+}
+module CodeRay::Encoders
+  class Term < Encoder
+    TERM_TOKEN_COLORS.each_pair do |key, value|
+      TOKEN_COLORS[key] = value
+    end
+  end
+end

data/test/Makefile

@@ -0,0 +1,7 @@
+# Whatever it is you want to do, it should be forwarded to the 
+# to top-level irectories
+PHONY=check all
+all: check
+
+%: 
+	$(MAKE) -C .. $@

data/test/data/.gitignore

@@ -0,0 +1 @@
+/*~

data/test/data/debugger-stop.cmd

@@ -0,0 +1,3 @@
+continue
+
+

data/test/data/debugger-stop.right

@@ -0,0 +1,5 @@
+-- debugger-stop.rb:14 @1955)
+Foo::five
+(trepan): Program stop event: line; PC offset 100 <top debugger-stop.rb>
+-- debugger-stop.rb:10 @1954)
+5

data/test/data/fname-with-blank.right

@@ -1,4 +1 @@
 -> (fname with blank.rb:1 @0)
-puts "Ha!"
-basename is off.
-Ha!

data/test/data/quit.right

@@ -1,2 +1 @@
 -> (null.rb:1 @0)
-x = 1

data/test/data/quit2.cmd

@@ -0,0 +1,6 @@
+# ***************************************************
+# This tests the quit via "set confirm off"
+# ***************************************************
+# FIXME need to test --no-quit.
+set confirm off
+quit

data/test/data/quit2.right

@@ -0,0 +1,3 @@
+-> (null.rb:1 @0)
+# Nothing here. Move along.
+confirm is off.

data/test/data/testing.cmd

@@ -0,0 +1 @@
+continue

data/test/example/.gitignore

@@ -0,0 +1 @@
+/*~

data/test/example/debugger-stop.rb

@@ -0,0 +1,14 @@
+# !/usr/bin/env ruby
+# Bug in debugger stopping where we were inside debugger was stopping
+# inside itself because multiple debugger names in the presence of modules
+# 
+require_relative '../../lib/trepanning'
+module Foo
+  module_function
+  def five
+    debugger  # Resolves to Module#debugger not Kernel#debugger
+    5
+  end
+end
+debugger(:nx=>true)
+Foo::five

data/test/functional/.gitignore

@@ -0,0 +1,2 @@
+/*~
+/tmp

data/test/functional/fn_helper.rb

@@ -84,21 +84,19 @@ module FnTestHelper
 
     # Canonicalize breakpoint messages. 
     # For example: 
-    #   Set breakpoint 1: test/functional/test-tbreak.rb:10 (@0)
+    #   Breakpoint 1 set at VM offset 10
     # becomes :
-    #   Set breakpoint 1: foo.rb:55 (@3)
+    #  Breakpoint 1 set at VM offset 55
     a3 = a2.map do |s|
-      s.gsub(/^Breakpoint (\d+) set at line (\d+) in file .+,/, 
-             'Breakpoint \1 set at line 55 in file foo.rb,')
+      s.gsub(/^Breakpoint (\d+) set at VM offset (\d+)/, 
+             'Breakpoint \1 set at VM offset 55')
     end
 
-    # Remove VM offset locations. 
-    # For example: 
-    #	VM offset 2 of instruction sequence "block in compare_output".
+    #	line 14 in file test/functional/test-break.rb.
     # becomes 
-    #   VM offset 55 of instruction sequence "block in compare_output".
+    #   line 55 of file foo.rb
     a4 = a3.map do |s|
-      s.gsub(/VM offset \d+/, 'VM offset 55')
+      s.gsub(/line (\d+) in file .+/, 'line 55 in file foo.rb')
     end
     return a4
   end

data/test/functional/test-break-long.rb

@@ -4,7 +4,7 @@ require 'trace'
 require_relative 'fn_helper'
 require_relative '../../app/breakpoint'
 
-class TestBreak < Test::Unit::TestCase
+class TestBreakLong < Test::Unit::TestCase
 
   include FnTestHelper
 
@@ -29,8 +29,8 @@ class TestBreak < Test::Unit::TestCase
     out = ['-- ',
            'x = 5',
            'basename is on.',
- "Breakpoint 1 set at line 55 in file foo.rb,
-\tVM offset 55 of instruction sequence \"test_break_same_level\".",
+ "Breakpoint 1 set at VM offset 55 of instruction sequence \"test_break_same_level\",
+\tline 55 in file foo.rb",
            'xx ',
            'z = 7']
     compare_output(out, d, cmds)
@@ -52,10 +52,10 @@ class TestBreak < Test::Unit::TestCase
     out = ['-- ',
            'x = 7',
            "basename is on.",
-           "Breakpoint 1 set at line 55 in file foo.rb,
-\tVM offset 55 of instruction sequence \"test_break_same_level\".",
-           "Breakpoint 2 set at line 55 in file foo.rb,
-\tVM offset 55 of instruction sequence \"test_break_same_level\".",
+           "Breakpoint 1 set at VM offset 55 of instruction sequence \"test_break_same_level\",
+\tline 55 in file foo.rb",
+           "Breakpoint 2 set at VM offset 55 of instruction sequence \"test_break_same_level\",
+\tline 55 in file foo.rb",
            "Breakpoint 1 disabled.",
            'xx ',
            'z = 8+1']

data/test/functional/test-break.rb

@@ -2,7 +2,7 @@
 require 'test/unit'
 require_relative 'fn_helper'
 
-class TestBreak2 < Test::Unit::TestCase
+class TestBreak < Test::Unit::TestCase
 
   include FnTestHelper
 
@@ -31,12 +31,12 @@ class TestBreak2 < Test::Unit::TestCase
     d.stop # ({:remove => true})
     out = ["-- ",
            "1.times do # line + 10",
-           "Breakpoint 1 set at line 55 in file foo.rb,
-\tVM offset 55 of instruction sequence \"test_line_only_break\".",
-           "Breakpoint 2 set at line 55 in file foo.rb,
-\tVM offset 55 of instruction sequence \"block (2 levels) in test_line_only_break\".",
-           "Breakpoint 3 set at line 55 in file foo.rb,
-\tVM offset 55 of instruction sequence \"block in test_line_only_break\".",
+           "Breakpoint 1 set at VM offset 55 of instruction sequence \"test_line_only_break\",
+\tline 55 in file foo.rb",
+           "Breakpoint 2 set at VM offset 55 of instruction sequence \"block (2 levels) in test_line_only_break\",
+\tline 55 in file foo.rb",
+           "Breakpoint 3 set at VM offset 55 of instruction sequence \"block in test_line_only_break\",
+\tline 55 in file foo.rb",
            "xx ",
            "x = 11   # line + 11",
            "xx ",

data/test/functional/test-condition.rb

@@ -27,8 +27,8 @@ class TestBreak < Test::Unit::TestCase
     out = ['-- ',
            'x = 6',
            'basename is on.',
-           "Breakpoint 1 set at line 55 in file foo.rb,
-\tVM offset 55 of instruction sequence \"test_condition\"."]
+           "Breakpoint 1 set at VM offset 55 of instruction sequence \"test_condition\",
+\tline 55 in file foo.rb"]
     compare_output(out, d, cmds)
 
     # Try a condition that fails
@@ -47,8 +47,8 @@ class TestBreak < Test::Unit::TestCase
     out = ["-- ",
            "x = 6",
            "basename is on.",
-           "Breakpoint 1 set at line 55 in file foo.rb,
-\tVM offset 55 of instruction sequence \"test_condition\".",
+           "Breakpoint 1 set at VM offset 55 of instruction sequence \"test_condition\",
+\tline 55 in file foo.rb",
            "xx ",
            "y = 7"]
     compare_output(out, d, cmds)

data/test/functional/test-delete.rb

@@ -29,7 +29,8 @@ class TestDelete < Test::Unit::TestCase
     out = ['-- ',
            'va = 1',
            'basename is on.',
-           "Breakpoint 1 set at line 55 in file foo.rb,\n\tVM offset 55 of instruction sequence \"test_delete\".",
+           "Breakpoint 1 set at VM offset 55 of instruction sequence \"test_delete\",
+\tline 55 in file foo.rb",
            "Deleted breakpoint 1."]
     compare_output(out, d, cmds)
 
@@ -57,10 +58,10 @@ class TestDelete < Test::Unit::TestCase
            "va = 1",
            "basename is on.",
            "Evaluation of unrecognized debugger commands is on.",
-           "Breakpoint 1 set at line 55 in file foo.rb,
-\tVM offset 55 of instruction sequence \"test_delete\".",
-           "Breakpoint 2 set at line 55 in file foo.rb,
-\tVM offset 55 of instruction sequence \"test_delete\".",
+           "Breakpoint 1 set at VM offset 55 of instruction sequence \"test_delete\",
+\tline 55 in file foo.rb",
+           "Breakpoint 2 set at VM offset 55 of instruction sequence \"test_delete\",
+\tline 55 in file foo.rb",
            "Deleted breakpoint 1.",
            "xx ",
            "vd = 4",

data/test/functional/test-eval.rb

@@ -0,0 +1,115 @@
+#!/usr/bin/env ruby
+require 'test/unit'
+require_relative 'fn_helper'
+
+class TestEval < Test::Unit::TestCase
+
+  include FnTestHelper
+
+  def test_eval_questionmark
+
+    # See that eval? strips 'if'
+    cmds = %w(eval? continue)
+    d = strarray_setup(cmds)
+    d.start
+    if 3 > 5
+      assert false
+    end
+    d.stop
+    out = ['-- ', 'if 3 > 5', 'eval: 3 > 5', 'false']
+    compare_output(out, d, cmds)
+    
+    # See that eval? strips 'if' and 'then'
+    cmds = %w(eval? continue)
+    d = strarray_setup(cmds)
+    d.start
+    if 3 > 5 then
+      assert false
+    end
+    d.stop
+    out = ['-- ', 'if 3 > 5 then', 'eval: 3 > 5', 'false']
+    compare_output(out, d, cmds)
+    
+    # See that eval? strips 'unless'
+    cmds = %w(eval? continue)
+    d = strarray_setup(cmds)
+    d.start
+    unless 3 < 5
+      assert false
+    end
+    d.stop
+    out = ['-- ', 'unless 3 < 5', 'eval: 3 < 5', 'true']
+    compare_output(out, d, cmds)
+    
+    # See that eval? strips 'unless' and 'then
+    cmds = %w(eval? continue)
+    d = strarray_setup(cmds)
+    d.start
+    unless 3 < 5 then
+      assert false
+    end
+    d.stop
+    out = ['-- ', 'unless 3 < 5 then', 'eval: 3 < 5', 'true']
+    compare_output(out, d, cmds)
+    
+    # See that eval? strips 'while'
+    cmds = %w(eval? continue)
+    d = strarray_setup(cmds)
+    d.start
+    while nil
+      assert false
+    end
+    d.stop
+    out = ['-- ', 'while nil', 'eval: nil', 'nil']
+    compare_output(out, d, cmds)
+    
+    # See that eval? strips 'while' and 'do'
+    cmds = %w(eval? continue)
+    d = strarray_setup(cmds)
+    d.start
+    while nil do
+      assert false
+    end
+    d.stop
+    out = ['-- ', 'while nil do', 'eval: nil', 'nil']
+    compare_output(out, d, cmds)
+    
+    # See that eval? strips 'until' and 'do'
+    cmds = %w(eval? continue)
+    d = strarray_setup(cmds)
+    d.start
+    until true do
+      assert false
+    end
+    d.stop
+    out = ['-- ', 'until true do', 'eval: true', 'true']
+    compare_output(out, d, cmds)
+
+    # See that eval? strips 'until'
+    cmds = %w(eval? continue)
+    d = strarray_setup(cmds)
+    d.start
+    until true
+      assert false
+    end
+    d.stop
+    out = ['-- ', 'until true', 'eval: true', 'true']
+    compare_output(out, d, cmds)
+
+    # See that eval? strips 'return'
+    def five
+      return 5
+    end
+    cmds = %w(step step eval? continue)
+    d = strarray_setup(cmds)
+    d.start
+    five
+    d.stop
+    out = ['-- ', 'five',  "METHOD TestEval#five()", 
+           '-> ', 'def five', '-- ', 'return 5', 'eval: 5', '5']
+    compare_output(out, d, cmds)
+  end
+    
+end
+
+