bleak_house 3.1 → 3.2

data/lib/bleak_house/rails/dispatcher.rb

@@ -0,0 +1,19 @@
+
+# Override Dispatcher#prepare and Dispatcher#reset_after_dispatch so that each request makes before-and-after usage snapshots.
+class Dispatcher
+  class << self
+
+    def prepare_application_with_bleak_house
+      prepare_application_without_bleak_house
+      BleakHouse::Rails::MEMLOGGER.snapshot(BleakHouse::Rails::LOGFILE, 'core rails', BleakHouse::Rails::WITH_SPECIALS)
+    end
+    alias_method_chain :prepare_application, :bleak_house
+    
+    def reset_after_dispatch_with_bleak_house
+      BleakHouse::Rails::MEMLOGGER.snapshot(BleakHouse::Rails::LOGFILE, BleakHouse::Rails.last_request_name || 'unknown', BleakHouse::Rails::WITH_SPECIALS)
+      reset_after_dispatch_without_bleak_house
+    end
+    alias_method_chain :reset_after_dispatch, :bleak_house
+
+  end
+end

data/lib/bleak_house/support/build.rb

@@ -0,0 +1,53 @@
+
+if RUBY_PLATFORM =~ /win32|windows/
+  puts "ERROR: windows not supported."
+  exit
+end
+
+require 'fileutils'
+puts "Building patched Ruby binary"
+
+tmp = "/tmp/"
+Dir.chdir(tmp) do
+
+  build_dir = "bleak_house"
+  binary_dir = File.dirname(`which ruby`)
+  FileUtils.rm_rf(build_dir) rescue nil
+  Dir.mkdir(build_dir)
+
+  begin
+    Dir.chdir(build_dir) do
+      puts "  Downloading Ruby source"
+      bz2 = "ruby-1.8.6.tar.bz2"
+      system("wget 'http://rubyforge.org/frs/download.php/18434/ruby-1.8.6.tar.bz2' &> wget.log")
+      puts "  Extracting"
+      system("tar xjf #{bz2} &> tar.log")
+      File.delete bz2
+  
+      Dir.chdir("ruby-1.8.6") do
+        puts "  Patching"
+        system("patch -p0 < \'#{File.dirname(__FILE__)}/../../../patches/gc.c.patch\' &> ../gc.c.patch.log")
+        system("patch -p0 < \'#{File.dirname(__FILE__)}/../../../patches/parse.y.patch\' &> ../parse.y.patch.log")
+        puts "  Configuring"
+        system("./configure --prefix=#{binary_dir[0..-5]} &> ../configure.log") # --with-static-linked-ext
+        puts "  Making"
+        system("make &> ../make.log")
+
+        binary = "#{binary_dir}/ruby-bleak-house"
+        puts "  Installing as #{binary}"
+
+        if File.exist? "ruby"        
+          # Avoid a "Text file busy" error
+          exec("rm #{binary}; cp ./ruby #{binary}; chmod -755 #{binary}; echoe \"  Done\"")
+        else
+          raise "Binary did not build"
+        end
+      end
+      
+    end
+  rescue Object => e
+    puts "ERROR: please see the last modified log file in #{tmp}#{build_dir}, perhaps\nit will contain a clue.\n#{e.to_s}"
+  end
+    
+end    
+

data/lib/bleak_house/{support_methods.rb → support/core_extensions.rb}

@@ -1,4 +1,6 @@
 
+require 'set'
+
 class Array
   alias :time :first
   alias :data :last
@@ -13,6 +15,24 @@ class Array
     
 end
 
+class Hash
+
+  # Similar to the ActiveSupport methods in Rails
+  def slice(keys)
+    keys = Set.new(keys)
+    reject do |key,| 
+      !keys.include?(key)
+    end
+  end  
+  
+  def unslice(keys)
+    keys = Set.new(keys)
+    reject do |key,| 
+      keys.include?(key)
+    end
+  end
+end
+
 class Dir
   def self.descend path, &block
     path = path.split("/") unless path.is_a? Array
@@ -44,4 +64,7 @@ class Symbol
   def =~ regex
     self.to_s =~ regex
   end
+  def [](*args)
+    self.to_s[*args]
+  end
 end

data/lib/vendor/lightcsv.rb

@@ -0,0 +1,168 @@
+# = LightCsv
+# CSV parser
+#
+# $Id: lightcsv.rb 76 2007-04-15 14:34:23Z tommy $
+# Copyright:: 2007 (C) TOMITA Masahiro <tommy@tmtm.org>
+# License:: Ruby's
+# Homepage:: http://tmtm.org/ja/ruby/lightcsv
+
+require "strscan"
+
+# == CSV のパース
+# 各レコードはカラムを要素とする配列である。
+# レコードの区切りは LF,CR,CRLF のいずれか。
+#
+# 以下が csv.rb と異なる。
+# * 空行は [nil] ではなく [] になる。
+# * 「"」で括られていない空カラムは nil ではなく "" になる。
+#
+# == 例
+# * CSVファイルのレコード毎にブロックを繰り返す。
+#     LightCsv.foreach(filename){|row| ...}
+#   次と同じ。
+#     LightCsv.open(filename){|csv| csv.each{|row| ...}}
+#
+# * CSVファイルの全レコードを返す。
+#     LightCsv.readlines(filename)  # => [[col1,col2,...],...]
+#   次と同じ。
+#     LightCsv.open(filename){|csv| csv.map}
+#
+# * CSV文字列のレコード毎にブロックを繰り返す。
+#     LightCsv.parse("a1,a2,..."){|row| ...}
+#   次と同じ。
+#     LightCsv.new("a1,a2,...").each{|row| ...}
+#
+# * CSV文字列の全レコードを返す。
+#     LightCsv.parse("a1,a2,...")  # => [[a1,a2,...],...]
+#   次と同じ。
+#     LightCsv.new("a1,a2,...").map
+#
+class LightCsv
+  include Enumerable
+
+  # == パースできない形式の場合に発生する例外
+  # InvalidFormat#message は処理できなかった位置から 10バイト文の文字列を返す。
+  class InvalidFormat < RuntimeError; end
+
+  # ファイルの各レコード毎にブロックを繰り返す。
+  # ブロック引数はレコードを表す配列。
+  def self.foreach(filename, &block)
+    self.open(filename) do |f|
+      f.each(&block)
+    end
+  end
+
+  # ファイルの全レコードをレコードの配列で返す。
+  def self.readlines(filename)
+    self.open(filename) do |f|
+      return f.map
+    end
+  end
+
+  # CSV文字列の全レコードをレコードの配列で返す。
+  # ブロックが与えられた場合は、レコード毎にブロックを繰り返す。
+  # ブロック引数はレコードを表す配列。
+  def self.parse(string, &block)
+    unless block
+      return self.new(string).map
+    end
+    self.new(string).each do |row|
+      block.call row
+    end
+    return nil
+  end
+
+  # ファイルをオープンして LightCsv オブジェクトを返す。
+  # ブロックを与えた場合は LightCsv オブジェクトを引数としてブロックを実行する。
+  def self.open(filename, &block)
+    f = File.open(filename)
+    csv = self.new(f)
+    if block
+      begin
+        return block.call(csv)
+      ensure
+        csv.close
+      end
+    else
+      return csv
+    end
+  end
+
+  # LightCsv オブジェクトを生成する。
+  # _src_ は String か IO。
+  def initialize(src)
+    if src.kind_of? String
+      @file = nil
+      @ss = StringScanner.new(src)
+    else
+      @file = src
+      @ss = StringScanner.new("")
+    end
+    @buf = ""
+    @bufsize = 64*1024
+  end
+  attr_accessor :bufsize
+
+  # LightCsv オブジェクトに関連したファイルをクローズする。
+  def close()
+    @file.close if @file
+  end
+
+  # 1レコードを返す。データの最後の場合は nil を返す。
+  # 空行の場合は空配列([])を返す。
+  # 空カラムは「"」で括られているか否かにかかわらず空文字列("")になる。
+  def shift()
+    return nil if @ss.eos? and ! read_next_data
+    cols = []
+    while true
+      if @ss.eos? and ! read_next_data
+        cols << ""
+        break
+      end
+      if @ss.scan(/\"/n)
+        until @ss.scan(/(?:\"\"|[^\"])*\"/n)
+          read_next_data or raise InvalidFormat, @ss.rest[0,10]
+        end
+        cols << @ss.matched.chop.gsub(/\"\"/n, '"')
+      else
+        col = @ss.scan(/[^\",\r\n]*/n)
+        while @ss.eos? and read_next_data
+          col << @ss.scan(/[^\",\r\n]*/n)
+        end
+        cols << col
+      end
+      unless @ss.scan(/,/n)
+        break if @ss.scan(/\r\n/n)
+        unless @ss.rest_size < 2 and read_next_data and @ss.scan(/,/n)
+          break if @ss.scan(/\r\n|\n|\r|\z/n)
+          read_next_data
+          raise InvalidFormat, @ss.rest[0,10]
+        end
+      end
+    end
+    cols.clear if cols.size == 1 and cols.first.empty?
+    cols
+  end
+
+  # 各レコード毎にブロックを繰り返す。
+  def each()
+    while row = shift
+      yield row
+    end
+  end
+
+  # 現在位置以降のレコードの配列を返す。
+  def readlines()
+    return map
+  end
+
+  private
+
+  def read_next_data()
+    if @file and @file.read(@bufsize, @buf)
+      @ss.string = @ss.rest + @buf
+    else
+      nil
+    end
+  end
+end

data/patches/gc.c.patch

@@ -0,0 +1,27 @@
+*** gc.old	2007-09-25 00:27:27.000000000 -0400
+--- gc.c	2007-09-25 00:27:28.000000000 -0400
+***************
+*** 309,314 ****
+--- 309,330 ----
+  static int heaps_length = 0;
+  static int heaps_used   = 0;
+  
++ struct heaps_slot *
++ rb_gc_heap_slots()
++ {
++     return heaps;
++ }
++ 
++ int
++ rb_gc_heaps_used() {
++     return heaps_used;
++ }
++ 
++ int
++ rb_gc_heaps_length() {
++     return heaps_length;
++ }
++ 
+  #define HEAP_MIN_SLOTS 10000
+  static int heap_slots = HEAP_MIN_SLOTS;
+  

data/patches/parse.y.patch

@@ -0,0 +1,16 @@
+*** parse.old	2007-09-25 00:21:43.000000000 -0400
+--- parse.y	2007-09-25 00:23:02.000000000 -0400
+***************
+*** 6166,6171 ****
+--- 6166,6176 ----
+   *                                     :wait2, :$>]
+   */
+  
++ struct st_table * 
++ rb_parse_sym_tbl() {
++   return sym_tbl;
++ }
++ 
+  VALUE
+  rb_sym_all_symbols()
+  {

data/test/misc/direct.rb

@@ -0,0 +1,13 @@
+#!/usr/bin/env ruby-bleak-house
+
+require 'rubygems'
+require 'bleak_house/c'
+$memlogger = BleakHouse::Logger.new
+File.delete($logfile = "/tmp/log") rescue nil
+
+puts 0
+$memlogger.snapshot($logfile, "file", true)
+puts 1
+$memlogger.snapshot($logfile, "file/one", true)
+puts 2
+$memlogger.snapshot($logfile, "file/two", true)

data/test/unit/test_bleak_house.rb

@@ -0,0 +1,34 @@
+
+DIR = File.dirname(__FILE__) + "/../../"
+
+require 'rubygems'
+require 'test/unit'
+require 'yaml'
+require 'ruby-debug'
+Debugger.start
+  
+class BleakHouseTest < Test::Unit::TestCase
+  require "#{DIR}lib/bleak_house/logger"
+
+  SNAPSHOT_FILE = "/tmp/bleak_house"
+  SNAPS = {:c => SNAPSHOT_FILE + ".c.yaml",
+    :ruby => SNAPSHOT_FILE + ".rb.yaml"}
+
+  def setup
+  end
+
+  def test_c_snapshot
+    File.delete SNAPS[:c] rescue nil
+    symbol_count = Symbol.all_symbols.size
+    ::BleakHouse::Logger.new.snapshot(SNAPS[:c], "c_test", false)
+    assert_equal symbol_count, Symbol.all_symbols.size
+    assert File.exist?(SNAPS[:c])
+  end
+  
+  def test_c_raises
+    assert_raises(RuntimeError) do
+      ::BleakHouse::Logger.new.snapshot("/", "c_test", false)
+    end    
+  end
+  
+end

metadata

@@ -1,17 +1,18 @@
 --- !ruby/object:Gem::Specification 
-rubygems_version: 0.9.2
+rubygems_version: 0.9.4
 specification_version: 1
 name: bleak_house
 version: !ruby/object:Gem::Version 
-  version: "3.1"
-date: 2007-05-01 00:00:00 -04:00
-summary: BleakHouse is a Rails plugin for finding memory leaks. It tracks ObjectSpace for your entire app, and produces charts of references by controller, by action, and by object class.
+  version: "3.2"
+date: 2007-09-26 00:00:00 -04:00
+summary: A library for finding memory leaks.
 require_paths: 
 - lib
-email: evan at cloudbur dot st
-homepage: http://blog.evanweaver.com
+- ext
+email: ""
+homepage: http://blog.evanweaver.com/files/doc/fauna/bleak_house/
 rubyforge_project: fauna
-description: BleakHouse is a Rails plugin for finding memory leaks. It tracks ObjectSpace for your entire app, and produces charts of references by controller, by action, and by object class.
+description: A library for finding memory leaks.
 autorequire: 
 default_executable: 
 bindir: bin
@@ -25,55 +26,82 @@ required_ruby_version: !ruby/object:Gem::Version::Requirement
 platform: ruby
 signing_key: 
 cert_chain: 
-post_install_message: |+
-  
-  Thanks for installing Bleak House 3.1. 
-  
-  For each Rails app you want to profile, you will need to add the following 
-  rake task in RAILS_ROOT/lib/tasks/bleak_house_tasks.rake to be able to run 
-  the analyzer: 
-  
-    namespace :bleak_house do
-      desc 'Analyze and chart all data'  
-      task :analyze do    
-        require 'bleak_house/analyze' 
-        BleakHouse::Analyze.build_all("#{RAILS_ROOT}/log/bleak_house_#{RAILS_ENV}.dump")
-      end  
-    end
-    
-  
+- |
+  -----BEGIN CERTIFICATE-----
+  MIIDLjCCAhagAwIBAgIBADANBgkqhkiG9w0BAQUFADA9MQ0wCwYDVQQDDARldmFu
+  MRgwFgYKCZImiZPyLGQBGRYIY2xvdWRidXIxEjAQBgoJkiaJk/IsZAEZFgJzdDAe
+  Fw0wNzA5MTYxMDMzMDBaFw0wODA5MTUxMDMzMDBaMD0xDTALBgNVBAMMBGV2YW4x
+  GDAWBgoJkiaJk/IsZAEZFghjbG91ZGJ1cjESMBAGCgmSJomT8ixkARkWAnN0MIIB
+  IjANBgkqhkiG9w0BAQEFAAOCAQ8AMIIBCgKCAQEA5C0Io89nyApnr+PvbNFge9Vs
+  yRWAlGBUEMahpXp28VrrfXZT0rAW7JBo4PlCE3jl4nE4dzE6gAdItSycjTosrw7A
+  Ir5+xoyl4Vb35adv56TIQQXvNz+BzlqnkAY5JN0CSBRTQb6mxS3hFyD/h4qgDosj
+  R2RFVzHqSxCS8xq4Ny8uzOwOi+Xyu4w67fI5JvnPvMxqrlR1eaIQHmxnf76RzC46
+  QO5QhufjAYGGXd960XzbQsQyTDUYJzrvT7AdOfiyZzKQykKt8dEpDn+QPjFTnGnT
+  QmgJBX5WJN0lHF2l1sbv3gh4Kn1tZu+kTUqeXY6ShAoDTyvZRiFqQdwh8w2lTQID
+  AQABozkwNzAJBgNVHRMEAjAAMAsGA1UdDwQEAwIEsDAdBgNVHQ4EFgQU+WqJz3xQ
+  XSea1hRvvHWcIMgeeC4wDQYJKoZIhvcNAQEFBQADggEBAGLZ75jfOEW8Nsl26CTt
+  JFrWxQTcQT/UljeefVE3xYr7lc9oQjbqO3FOyued3qW7TaNEtZfSHoYeUSMYbpw1
+  XAwocIPuSRFDGM4B+hgQGVDx8PMGiJKom4qLXjO40UZsR7QyN/u869Vj45LURm6h
+  MBcPeqCASI+WNprj9+uZa2kmHiitrFqqfMBNlm5IFbn9XeYSta9AHVvs5QQqV2m5
+  hIPfLqCyxsn/YgOGvo6iwyQTWyTswamaAC3HRWZxIS1sfn/Ssqa7E7oQMkv5FAXr
+  x5rKePfXINf8XTJczkl9OBEYdE9aNdJsJpXD0asLgGVwBICS5Bjohp6mizJcDC1+
+  yZ0=
+  -----END CERTIFICATE-----
+
+post_install_message: 
 authors: 
 - Evan Weaver
 files: 
-- ./CHANGELOG
-- ./LICENSE
-- ./Manifest
-- ./README
-- ./Rakefile
-- ./init.rb
-- ./install.rb
-- ./lib/bleak_house
-- ./lib/bleak_house/action_controller.rb
-- ./lib/bleak_house/analyze.rb
-- ./lib/bleak_house/bleak_house.rb
-- ./lib/bleak_house/dispatcher.rb
-- ./lib/bleak_house/gruff_hacks.rb
-- ./lib/bleak_house/mem_logger.rb
-- ./lib/bleak_house/rake_task_redefine_task.rb
-- ./lib/bleak_house/support_methods.rb
-- ./lib/bleak_house.rb
-- ./tasks/bleak_house_tasks.rake
-test_files: []
-
+- TODO
+- test/unit/test_bleak_house.rb
+- test/misc/direct.rb
+- README
+- Rakefile
+- patches/parse.y.patch
+- patches/gc.c.patch
+- Manifest
+- LICENSE_RUBY
+- LICENSE_BSD
+- LICENSE
+- lib/vendor/lightcsv.rb
+- lib/bleak_house.rb
+- lib/bleak_house/support/rake.rb
+- lib/bleak_house/support/core_extensions.rb
+- lib/bleak_house/support/build.rb
+- lib/bleak_house/rails.rb
+- lib/bleak_house/rails/dispatcher.rb
+- lib/bleak_house/rails/bleak_house.rb
+- lib/bleak_house/rails/action_controller.rb
+- lib/bleak_house/logger.rb
+- lib/bleak_house/logger/mem_usage.rb
+- lib/bleak_house/analyzer.rb
+- lib/bleak_house/analyzer/analyzer.rb
+- install.rb
+- init.rb
+- ext/bleak_house/logger/snapshot.h
+- ext/bleak_house/logger/snapshot.c
+- ext/bleak_house/logger/extconf.rb
+- CHANGELOG
+- bin/bleak
+test_files: 
+- test/unit/test_bleak_house.rb
 rdoc_options: []
 
 extra_rdoc_files: []
 
-executables: []
-
-extensions: []
-
+executables: 
+- bleak
+extensions: 
+- ext/bleak_house/logger/extconf.rb
 requirements: []
 
-dependencies: []
-
+dependencies: 
+- !ruby/object:Gem::Dependency 
+  name: ccsv
+  version_requirement: 
+  version_requirements: !ruby/object:Gem::Version::Requirement 
+    requirements: 
+    - - ">"
+      - !ruby/object:Gem::Version 
+        version: 0.0.0
+    version: