pretty_debug 0.0.1

checksums.yaml

@@ -0,0 +1,7 @@
+---
+SHA1:
+  metadata.gz: 63d046bb64c02a4934a7552366ac1bbda9b7eb48
+  data.tar.gz: 7234ce3741b46d5330503d39eaa1d420c48af558
+SHA512:
+  metadata.gz: 4fd77aec4709afb9dd87655766060311bcac256881b76bbcd4f352e1b0ac934d010d00d6d0629ccc42a4a84855316aba9266b92e6b305b4bdbebeee42a0eeb3f
+  data.tar.gz: 53fc2eda6b9662257774bd1af2b4958b6bcbabe9f530fbd4a905126370db7e5a96f4204a01826cc49f907961d2c8bbbec56346df7f996c5740b559b6a57e127a

data/lib/pretty_debug.rb

@@ -0,0 +1,226 @@
+#!ruby
+require "string"
+require "ruby-prof"
+
+module Kernel
+	at_exit do
+		case $!
+		when SystemStackError
+			puts PrettyDebug.mesage
+##TODO Parse the backtrace and attempt to extract a call cycle.
+#		PrettyDebug.clean($@)
+		when nil, SystemExit, Interrupt
+		else
+			puts PrettyDebug.message
+			puts PrettyDebug.clean($@).align(":").map(&:indent)
+		end
+		$stderr.reopen(IO::NULL)
+		$stdout.reopen(IO::NULL)
+	end
+end
+
+class ValidationError < Exception; end
+
+class Object
+	def expect s; raise ArgumentError.new("Expecting `#{s.inspect}`: #{inspect}") end
+	def case? *kases; kases.any?{|kase| kase === self} end
+end
+
+class Array
+	def compatible? other
+		other.case?(Array) and
+		other.length == length
+	end
+end
+
+class Hash
+	def compatible? other
+		other.case?(Hash) and
+		other.size == size and
+		other.keys.all?{|k| key?(k)}
+	end
+end
+
+class PrettyDebug
+	attr_accessor :backtrace, :message
+	def self.new_internal
+		new.tap do |error|
+			called_location = clean(caller)[2]
+			error.backtrace = clean($@).take_while{|a| a != called_location}
+			error.message = $!.message
+		end
+	end
+	Stackline = /\A(?'f'.+?):(?'l'\d+)(?::in `(?'m'.*)'|(?'m'.*))?\z/m
+	NoncallLine = /\Ablock(?: \(\d+ levels\))? in |\A\</
+	def self.message; $!.message.dup.tap{|s| s[0] = s[0].upcase}.sub(/(?<=[^.])\z/, ".") end
+	def self.clean stack
+		raise "Cannot parse. No backtrace given" unless stack
+		return [] if stack.empty?
+		caller_file_i = $LOADED_FEATURES.index(caller.first.match(Stackline)[:f]).to_i
+		stack
+		.map{|l| m = l.match(Stackline); [m[:f].ellipsis(55), m[:l].to_i, m[:m]]}
+		.transpose.tap do |_, _, m|
+			m.rotate!(-1)
+			m[0] = ""
+			while i = m.index{|m| m == "method_missing"}; m[i] = m[i - 1] end
+		end.transpose
+		.reject{|_, _, m| m =~ NoncallLine}
+#		.reject{|f, _, _| $LOADED_FEATURES.include?(f)}
+#		.reject{|f, _, _| $LOADED_FEATURES.index(f).to_i > caller_file_i}
+	end
+end
+
+#############################################
+# Terminal formatting
+#############################################
+
+class Object
+	def intercept &pr
+		tap{|x| puts "[Debug] #{caller[2][/.*?:\d+/]}:".color(:yellow); pr ? pr.call(x) : p(x)}
+	end
+	def forwardtrace sym
+		tap{puts "#{inspect}##{sym} defined at:", method(sym).source_location.join(":").indent}
+	end
+	def follow m; tap{puts "Next step: #{method(m).source_location
+		.chain{|a| a ? a.join(":") : "Unknown #{self}.#{m}"}
+	}"} end
+	def _?; tap{Test.testee.push(self)} end
+end
+
+=begin
+class Module
+	def inspect
+		ans = ancestors.map{|m| "#{m.class.send(:to_s).downcase} #{m}"}.join(" < ")
+		var = (class_variables + instance_variables).join(", ")
+		var.empty? ? ans : "#{ans}#$/#{var}"
+	end
+end
+=end
+
+class Proc
+	def source_location
+		to_s.match(/\A\#\<#{self.class}:.+?@(.+)\:(\d+)(?: \(lambda\))?\>\z/).values_at(1, 2)
+	end
+	def inspect
+		f, l = source_location
+		"Proc@#{File.basename(f)}:#{l}"
+	rescue
+		"Proc@source_unknown"
+	end
+end
+
+class Method
+	def inspect; to_s end
+	def to_s; "#{receiver}.#{name}" end
+end
+
+class UnboundMethod
+	def inspect; to_s end
+	def to_s; "#{owner}##{name}" end
+end
+
+class Array
+	def inspect
+		map(&:inspect)
+		.chain{|s| length < 2 ? "[#{s.join}]" : "[#$/#{s.join(",#$/").indent}#$/]"}
+	end
+	def align sep = " ", ellipsis_limit = nil
+		col_widths = transpose.map{|col| col.map{|cell| cell.to_s.length}.max}
+		map{|row| [row, col_widths].parallel{|col, l|
+			max = ellipsis_limit || l
+			l = l.at_most(max)
+			case col
+			when Numeric then col.to_s.ellipsis(max).rjust(l)
+			else col.to_s.ellipsis(max).ljust(l)
+			end
+		}.join(sep)}
+	end
+end
+
+class Hash
+	KeyLengthMax = 30
+	def inspect
+		keys = self.keys.map{|k| k.inspect.utf8}
+		# When `self == empty?`, `...max` becomes `nil`. `to_i` turns it to `0`.
+		w = keys.map(&:length).max.to_i.at_most(KeyLengthMax)
+		[keys, values].parallel{|k, v| "#{k.ljust(w)} => #{v.inspect}"}
+		.chain{|s| length < 2 ? "{#{s.join}}" :  "{#$/#{s.join(",#$/").indent}#$/}"}
+	end
+end
+
+module Test
+	def self.testee; @@testee end
+	def self.raise? exception = Exception, &pr
+		pr.call; false
+		rescue Exception => e
+      e.kind_of?(exception)
+	end
+	def self.testee_clear; @@testee = [] end
+	def self.testee_refer; @@testee end
+	def self.test title = "Test", &pr
+		testee_clear
+		t = Time.now
+		if pr.call == true
+			puts "#{title}. Succeeded (#{"%.2e" % t.till_now} secs)".color(:green)
+		else
+			puts "#{title}. Failed".color(:red),
+			*(testee_refer.map{|o| o.inspect.indent.color(:red)} unless testee_refer.empty?)
+		end
+	rescue Exception
+			puts "#{title} ... Test Error".color(:red),
+			[$!.message, *PrettyDebug.clean($@).align(":")].map{|l| l.indent.color(:red)}
+	end
+end
+
+module Kernel
+	def test *args, &pr; Test.test(*args, &pr) end
+	def raise? *args, &pr; Test.raise?(*args, &pr) end
+	def timer
+		t = Time.now
+		yield
+		puts "(#{"%.2e" % t.till_now} secs)".color(:green)
+	end
+end
+
+=begin
+module Kernel
+	def benchmark i, &pr
+		Benchmark.prs = []
+		pr.call()
+		Benchmark.bm(i){|br| Benchmark.prs.each{|pr| br.report(""){pr.call()}}}
+	end
+	def alternative &pr; Benchmark.prs.push(pr) end
+end
+
+require "benchmark"
+Benchmark.singleton_class.class_eval{attr_accessor :prs}
+=end
+
+
+=begin
+require "ruby-prof"
+$prof_begin = false
+def profile_on; $prof_begin = true; end
+def profile switch = nil
+	yield if switch && $prof_begin.!
+	RubyProf.resume{$prof_result = yield}
+	open("/tmp/profile", "w"){|io| 
+		# RubyProf::CallStackPrinter.  # for kcachegring
+		 RubyProf::GraphHtmlPrinter.
+		# RubyProf::GraphPrinter.
+		# RubyProf::AbstractPrinter.
+	new(RubyProf.stop).print(io)}
+	# IO.popen("kcachegrind /tmp/profile > #{File::NULL} 2>&1")
+	# IO.popen("firefox >#{File::NULL} /tmp/profile ")
+	IO.popen("google-chrome >#{File::NULL} /tmp/profile ")
+	$prof_result
+end
+
+module Profiling
+	def self.start; RubyProf.start end
+	def self.stop
+		result = RubyProf.stop
+		RubyProf::FlatPrinter.new(result).print
+	end
+end
+=end

metadata

@@ -0,0 +1,43 @@
+--- !ruby/object:Gem::Specification
+name: pretty_debug
+version: !ruby/object:Gem::Version
+  version: 0.0.1
+platform: ruby
+authors:
+- sawa
+autorequire: 
+bindir: bin
+cert_chain: []
+date: 2013-07-29 00:00:00.000000000 Z
+dependencies: []
+description: ''
+email: []
+executables: []
+extensions: []
+extra_rdoc_files: []
+files:
+- lib/pretty_debug.rb
+homepage: http://sawa.github.io/pretty_debug
+licenses: []
+metadata: {}
+post_install_message: 
+rdoc_options: []
+require_paths:
+- lib
+required_ruby_version: !ruby/object:Gem::Requirement
+  requirements:
+  - - '>='
+    - !ruby/object:Gem::Version
+      version: '0'
+required_rubygems_version: !ruby/object:Gem::Requirement
+  requirements:
+  - - '>='
+    - !ruby/object:Gem::Version
+      version: '0'
+requirements: []
+rubyforge_project: 
+rubygems_version: 2.0.6
+signing_key: 
+specification_version: 4
+summary: ''
+test_files: []