1 files changed, 57 insertions, 0 deletions
diff --git a/runtime/Ruby/lib/antlr3/test/call-stack.rb b/runtime/Ruby/lib/antlr3/test/call-stack.rb
new file mode 100644
index 0000000..fa65fa7
--- /dev/null
+++ b/runtime/Ruby/lib/antlr3/test/call-stack.rb
@@ -0,0 +1,57 @@
+#!/usr/bin/ruby
+
+unless defined? Call
+  
+Call = Struct.new( :file, :line, :method )
+class Call
+  
+  def self.parse( call_string )
+    parts = call_string.split( ':', 3 )
+    file = parts.shift
+    line = parts.shift.to_i
+    if parts.empty?
+        return Call.new( file, line )
+    else
+        mstring = parts.shift
+        match = mstring.match( /`(.+)'/ )
+        method = match ? match[ 1 ] : nil
+        return Call.new( file, line, method )
+    end
+  end
+  
+  def self.convert_backtrace( trace )
+    trace.map { |c| parse c }
+  end
+  
+  def irb?
+    self.file == '(irb)'
+  end
+  
+  def e_switch?
+    self.file == '-e'
+  end
+  
+  def to_s
+    string = '%s:%i' % [ file, line ]
+    method and string << ":in `%s'" % method
+    return( string )
+  end
+  
+  def inspect
+    to_s.inspect
+  end
+end
+
+module Kernel
+  def call_stack( depth = 1 )
+    Call.convert_backtrace( caller( depth + 1 ) )
+  end
+end
+
+class Exception
+  def backtrace!
+    Call.convert_backtrace( backtrace )
+  end
+end
+
+end # unless defined? Call