rbx-trepanning 0.0.1-universal-rubinius

data/app/util.rb

@@ -0,0 +1,49 @@
+# Copyright (C) 2010 Rocky Bernstein <rockyb@rubyforge.net>
+
+class Trepan
+  module Util
+
+    def safe_repr(str, max, elipsis='... ')
+      if str.is_a?(String) && str.size > max && !str.index("\n")
+        "%s%s%s" % [ str[0...max/2], elipsis,  str[str.size-max/2..str.size]]
+      else
+        str
+      end
+    end
+    module_function :safe_repr
+    
+    # Find user portion of script skipping over Rubinius code loading.
+    # Unless hidestack is off, we don't show parts of the frame below this.
+    def find_main_script(locs)
+      candidate = nil
+      (locs.size-1).downto(0) do |i|
+        loc = locs[i]
+        if 'main.' == loc.describe_receiver &&
+            :__script__ == loc.name
+          if loc.method.active_path =~ /\/trepanx$/
+            # Might have been run from standalone trepanx.
+            candidate = i
+          else
+            return locs.size - i - 1 
+          end
+        end
+      end
+      candidate ? locs.size - candidate - 1 : nil
+    end
+    module_function :find_main_script
+  end
+end
+
+if __FILE__ == $0
+  include Trepan::Util
+  string = 'The time has come to talk of many things.'
+  puts safe_repr(string, 50)
+  puts safe_repr(string, 17)
+  puts safe_repr(string.inspect, 17)
+  puts safe_repr(string.inspect, 17, '')
+  locs = Rubinius::VM.backtrace(0)
+  locs.each_with_index do |l, i| 
+    puts "#{i}: #{l.describe}"
+  end
+  puts "main script in above is #{locs.size() - 1 - find_main_script(locs)}"
+end