bleak_house 3

data/CHANGELOG

@@ -0,0 +1,7 @@
+
+BleakHouse Changelog
+
+3. gem version
+2. dumped Rublique once I understood what it did; replaced with a lightweight non-delta marshalling version
+1. first version
+

data/LICENSE

@@ -0,0 +1,184 @@
+Academic Free License (AFL) v. 3.0
+
+This Academic Free License (the "License") applies to any original work
+of authorship (the "Original Work") whose owner (the "Licensor") has
+placed the following licensing notice adjacent to the copyright notice
+for the Original Work:
+
+Licensed under the Academic Free License version 3.0
+
+1) Grant of Copyright License. Licensor grants You a worldwide,
+royalty-free, non-exclusive, sublicensable license, for the duration of
+the copyright, to do the following:
+
+a) to reproduce the Original Work in copies, either alone or as part of
+a collective work;
+
+b) to translate, adapt, alter, transform, modify, or arrange the
+Original Work, thereby creating derivative works ("Derivative Works")
+based upon the Original Work;
+
+c) to distribute or communicate copies of the Original Work and
+Derivative Works to the public, under any license of your choice that
+does not contradict the terms and conditions, including Licensor's
+reserved rights and remedies, in this Academic Free License;
+
+d) to perform the Original Work publicly; and
+
+e) to display the Original Work publicly.
+
+2) Grant of Patent License. Licensor grants You a worldwide,
+royalty-free, non-exclusive, sublicensable license, under patent claims
+owned or controlled by the Licensor that are embodied in the Original
+Work as furnished by the Licensor, for the duration of the patents, to
+make, use, sell, offer for sale, have made, and import the Original Work
+and Derivative Works.
+
+3) Grant of Source Code License. The term "Source Code" means the
+preferred form of the Original Work for making modifications to it and
+all available documentation describing how to modify the Original Work.
+Licensor agrees to provide a machine-readable copy of the Source Code of
+the Original Work along with each copy of the Original Work that
+Licensor distributes. Licensor reserves the right to satisfy this
+obligation by placing a machine-readable copy of the Source Code in an
+information repository reasonably calculated to permit inexpensive and
+convenient access by You for as long as Licensor continues to distribute
+the Original Work.
+
+4) Exclusions From License Grant. Neither the names of Licensor, nor the
+names of any contributors to the Original Work, nor any of their
+trademarks or service marks, may be used to endorse or promote products
+derived from this Original Work without express prior permission of the
+Licensor. Except as expressly stated herein, nothing in this License
+grants any license to Licensor's trademarks, copyrights, patents, trade
+secrets or any other intellectual property. No patent license is granted
+to make, use, sell, offer for sale, have made, or import embodiments of
+any patent claims other than the licensed claims defined in Section 2.
+No license is granted to the trademarks of Licensor even if such marks
+are included in the Original Work. Nothing in this License shall be
+interpreted to prohibit Licensor from licensing under terms different
+from this License any Original Work that Licensor otherwise would have a
+right to license.
+
+5) External Deployment. The term "External Deployment" means the use,
+distribution, or communication of the Original Work or Derivative Works
+in any way such that the Original Work or Derivative Works may be used
+by anyone other than You, whether those works are distributed or
+communicated to those persons or made available as an application
+intended for use over a network. As an express condition for the grants
+of license hereunder, You must treat any External Deployment by You of
+the Original Work or a Derivative Work as a distribution under section
+1(c).
+
+6) Attribution Rights. You must retain, in the Source Code of any
+Derivative Works that You create, all copyright, patent, or trademark
+notices from the Source Code of the Original Work, as well as any
+notices of licensing and any descriptive text identified therein as an
+"Attribution Notice." You must cause the Source Code for any Derivative
+Works that You create to carry a prominent Attribution Notice reasonably
+calculated to inform recipients that You have modified the Original
+Work.
+
+7) Warranty of Provenance and Disclaimer of Warranty. Licensor warrants
+that the copyright in and to the Original Work and the patent rights
+granted herein by Licensor are owned by the Licensor or are sublicensed
+to You under the terms of this License with the permission of the
+contributor(s) of those copyrights and patent rights. Except as
+expressly stated in the immediately preceding sentence, the Original
+Work is provided under this License on an "AS IS" BASIS and WITHOUT
+WARRANTY, either express or implied, including, without limitation, the
+warranties of non-infringement, merchantability or fitness for a
+particular purpose. THE ENTIRE RISK AS TO THE QUALITY OF THE ORIGINAL
+WORK IS WITH YOU. This DISCLAIMER OF WARRANTY constitutes an essential
+part of this License. No license to the Original Work is granted by this
+License except under this disclaimer.
+
+8) Limitation of Liability. Under no circumstances and under no legal
+theory, whether in tort (including negligence), contract, or otherwise,
+shall the Licensor be liable to anyone for any indirect, special,
+incidental, or consequential damages of any character arising as a
+result of this License or the use of the Original Work including,
+without limitation, damages for loss of goodwill, work stoppage,
+computer failure or malfunction, or any and all other commercial damages
+or losses. This limitation of liability shall not apply to the extent
+applicable law prohibits such limitation.
+
+9) Acceptance and Termination. If, at any time, You expressly assented
+to this License, that assent indicates your clear and irrevocable
+acceptance of this License and all of its terms and conditions. If You
+distribute or communicate copies of the Original Work or a Derivative
+Work, You must make a reasonable effort under the circumstances to
+obtain the express assent of recipients to the terms of this License.
+This License conditions your rights to undertake the activities listed
+in Section 1, including your right to create Derivative Works based upon
+the Original Work, and doing so without honoring these terms and
+conditions is prohibited by copyright law and international treaty.
+Nothing in this License is intended to affect copyright exceptions and
+limitations (including "fair use" or "fair dealing"). This License shall
+terminate immediately and You may no longer exercise any of the rights
+granted to You by this License upon your failure to honor the conditions
+in Section 1(c).
+
+10) Termination for Patent Action. This License shall terminate
+automatically and You may no longer exercise any of the rights granted
+to You by this License as of the date You commence an action, including
+a cross-claim or counterclaim, against Licensor or any licensee alleging
+that the Original Work infringes a patent. This termination provision
+shall not apply for an action alleging patent infringement by
+combinations of the Original Work with other software or hardware.
+
+11) Jurisdiction, Venue and Governing Law. Any action or suit relating
+to this License may be brought only in the courts of a jurisdiction
+wherein the Licensor resides or in which Licensor conducts its primary
+business, and under the laws of that jurisdiction excluding its
+conflict-of-law provisions. The application of the United Nations
+Convention on Contracts for the International Sale of Goods is expressly
+excluded. Any use of the Original Work outside the scope of this License
+or after its termination shall be subject to the requirements and
+penalties of copyright or patent law in the appropriate jurisdiction.
+This section shall survive the termination of this License.
+
+12) Attorneys' Fees. In any action to enforce the terms of this License
+or seeking damages relating thereto, the prevailing party shall be
+entitled to recover its costs and expenses, including, without
+limitation, reasonable attorneys' fees and costs incurred in connection
+with such action, including any appeal of such action. This section
+shall survive the termination of this License.
+
+13) Miscellaneous. If any provision of this License is held to be
+unenforceable, such provision shall be reformed only to the extent
+necessary to make it enforceable.
+
+14) Definition of "You" in This License. "You" throughout this License,
+whether in upper or lower case, means an individual or a legal entity
+exercising rights under, and complying with all of the terms of, this
+License. For legal entities, "You" includes any entity that controls, is
+controlled by, or is under common control with you. For purposes of this
+definition, "control" means (i) the power, direct or indirect, to cause
+the direction or management of such entity, whether by contract or
+otherwise, or (ii) ownership of fifty percent (50%) or more of the
+outstanding shares, or (iii) beneficial ownership of such entity.
+
+15) Right to Use. You may use the Original Work in all ways not
+otherwise restricted or conditioned by this License or by law, and
+Licensor promises not to interfere with or be responsible for such uses
+by You.
+
+16) Modification of This License. This License is Copyright (c) 2005
+Lawrence Rosen. Permission is granted to copy, distribute, or
+communicate this License without modification. Nothing in this License
+permits You to modify this License as applied to the Original Work or to
+Derivative Works. However, You may modify the text of this License and
+copy, distribute or communicate your modified version (the "Modified
+License") and apply it to other original works of authorship subject to
+the following conditions: (i) You may not indicate in any way that your
+Modified License is the "Academic Free License" or "AFL" and you may not
+use those names in the name of your Modified License; (ii) You must
+replace the notice specified in the first paragraph above with the
+notice "Licensed under <insert your license name here>" or with a notice
+of your own that is not confusingly similar to the notice in this
+License; and (iii) You may not claim that your original works are open
+source software unless your Modified License has been approved by Open
+Source Initiative (OSI) and You comply with its license review and
+certification process.
+

data/Manifest

@@ -0,0 +1,18 @@
+./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

data/README

@@ -0,0 +1,20 @@
+-----------------------------------------------------------------
+
+BleakHouse
+You need the 'gruff' gem, and 'rmagick', and all that.
+
+To run:
+  RAILS_ENV=production BLEAK_HOUSE=true INTERVAL=5 ./script/server 
+Browse around in your app. Cause requests. Do stuff. Then:
+  RAILS_ENV=production rake bleak_house:analyze
+And then look in log/bleak_house/.
+
+Copyright (c) 2007 Cloudburst, LLC. See included LICENSE file. Portions
+copyright Tony Arcieri and Scott Barron and used under license.
+  
+I was such a shy little thing that I seldom dared to open my lips, and never 
+dared to open my heart, to anybody else.
+- Dickens, Bleak House
+
+-----------------------------------------------------------------
+

data/Rakefile

@@ -0,0 +1,66 @@
+require 'rubygems'
+require 'rake'
+require 'lib/bleak_house/rake_task_redefine_task'
+
+NAME = "bleak_house"
+
+begin
+  require 'rake/clean'
+  gem 'echoe', '>= 1.1'
+  require 'echoe'
+  require 'fileutils'
+
+  AUTHOR = "Evan Weaver"
+  EMAIL = "evan at cloudbur dot st"
+  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."
+  CHANGES = `cat CHANGELOG`[/^([\d\.]+\. .*)/, 1]
+  RUBYFORGE_NAME = "fauna"
+  GEM_NAME = "bleak_house" 
+  HOMEPATH = "http://blog.evanweaver.com"
+  RELEASE_TYPES = ["gem"]
+  REV = nil
+  VERS = `cat CHANGELOG`[/^([\d\.]+)\. /, 1]
+  CLEAN.include ['**/.*.sw?', '*.gem', '.config']
+  RDOC_OPTS = ['--quiet', '--title', "bleak_house documentation", "--opname", "index.html", "--line-numbers", "--main", "README", "--inline-source"]
+  
+  include FileUtils
+  
+  taskmsg = File.open(File.dirname(__FILE__) + "/tasks/bleak_house_tasks.rake").readlines
+  taskmsg = taskmsg[0..3] + [taskmsg[7][2..-1]] + taskmsg[9..-1]
+  
+  echoe = Echoe.new(GEM_NAME, VERS) do |p|
+    p.author = AUTHOR 
+    p.rubyforge_name = RUBYFORGE_NAME
+    p.name = NAME
+    p.description = DESCRIPTION
+    p.changes = CHANGES
+    p.email = EMAIL
+    p.summary = DESCRIPTION
+    p.url = HOMEPATH
+    p.need_tar = false
+    p.need_tar_gz = true
+    p.test_globs = ["*_test.rb"]
+    p.clean_globs = CLEAN  
+    p.spec_extras = {:post_install_message => 
+"
+Thanks for installing Bleak House #{VERS}. 
+
+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: 
+" + taskmsg.join("  ") + "\n"}
+  end
+            
+rescue LoadError => boom
+  puts "You are missing a dependency required for meta-operations on this gem."
+  puts "#{boom.to_s.capitalize}."
+  
+  desc 'Run the default tasks'
+  task :default => :test
+end
+
+desc 'Do nothing.'
+Rake::Task.redefine_task("test") do
+   puts "There are no tests. You could totally write some, though."
+#   system "ruby -Ibin:lib:test test/unit/polymorph_test.rb #{ENV['METHOD'] ? "--name=#{ENV['METHOD']}" : ""}"
+end

data/init.rb

@@ -0,0 +1,2 @@
+
+require 'bleak_house'

data/install.rb

@@ -0,0 +1 @@
+puts File.open("#{File.dirname(__FILE__)}/README").read

data/lib/bleak_house.rb

@@ -0,0 +1,13 @@
+
+if ENV['BLEAK_HOUSE']
+
+  require 'dispatcher' # rails  
+  
+  require 'bleak_house/bleak_house'
+  require 'bleak_house/mem_logger'
+  require 'bleak_house/dispatcher'
+  require 'bleak_house/action_controller'
+
+  BleakHouse.warn "enabled (log/#{RAILS_ENV}_bleak_house.log) (#{BleakHouse.log_interval} requests per frame)"
+    
+end

data/lib/bleak_house/action_controller.rb

@@ -0,0 +1,16 @@
+
+class ActionController::Base
+  class << self
+    def process_with_bleak_house(request, *args) 
+      BleakHouse.set_request_name request
+      process_without_bleak_house(request, *args)
+    end
+    alias_method_chain :process, :bleak_house
+    
+    def process_with_exception_with_bleak_house(request, *args)
+      BleakHouse.set_request_name request, "/error"
+      process_with_exception_without_bleak_house(request, *args)
+    end
+    alias_method_chain :process_with_exception, :bleak_house    
+  end
+end

data/lib/bleak_house/analyze.rb

@@ -0,0 +1,139 @@
+
+require 'rubygems'
+require 'fileutils'
+require 'base64'
+
+gem 'gruff', '= 0.2.8'
+require 'gruff'
+
+# require, but make rdoc not whine
+load "#{File.dirname(__FILE__)}/gruff_hacks.rb"
+load "#{File.dirname(__FILE__)}/support_methods.rb"
+
+Gruff::Base::LEFT_MARGIN = 200
+Gruff::Base::NEGATIVE_TOP_MARGIN = 30
+Gruff::Base::MAX_LEGENDS = 28
+
+class BleakHouse
+  class Analyze    
+    
+    DIR = "#{RAILS_ROOT}/log/bleak_house/"
+    
+    def initialize(data, increments, name)
+      @data = data
+      @increments = increments
+      @name = name
+    end 
+    
+    def draw    
+      g = Gruff::Line.new("1024x768")
+      g.title = @name
+      g.x_axis_label = "time"
+      g.legend_font_size = g.legend_box_size = 14
+      g.title_font_size = 24
+      g.marker_font_size = 14
+            
+      @data.map do |key, values|
+        name = if key.to_s == ""
+          '[Unknown]' 
+        else
+#        elsif key =~ Regexp.new(@specials.keys.join('|'))
+#          name = "#{key} (#{values.to_i.max / (2**10)} MB)"
+#          @specials.each do |regex, scale|
+#            values.map! {|x| x * scale} if key =~ regex
+#          end              
+#        else
+          "#{key.gsub(/.*::/, '')} (#{values.to_i.max})"
+        end
+        [name, values]
+      end.sort_by do |key, values|
+        0 - key[/.*?([\d]+)\)$/, 1].to_i
+      end.each do |key, values|
+        g.data(key, values.to_i)
+      end
+      
+      labels = {}
+      mod = (@increments.size / 4.0).ceil
+      @increments.each_with_index do |increment, index|
+        labels[index] = increment.split(" ").last if (index % mod).zero?
+      end
+      g.labels = labels
+      
+      g.minimum_value = 0
+#      g.maximum_value = @maximum
+      
+      g.write(@name.to_filename + ".png")
+    end
+    
+    def self.aggregate(data, selector, namer)
+      aggregate_data = {}
+      increments = []
+      data.each_with_index do |frameset, index|
+        increments << frameset.time
+        frameset.data.keys.select do |key| 
+          key =~ selector #or key =~ Regexp.new(specials.keys.join('|'))
+        end.each do |key|
+          aggregate_data[key.to_s[namer, 1]] ||= []
+          aggregate_data[key.to_s[namer, 1]][index] += frameset.data[key].to_i
+        end
+      end
+      [aggregate_data, increments]
+    end
+    
+    def self.build_all(filename)
+      unless File.exists? filename
+        puts "No data file found: #{filename}"
+        exit 
+      end
+      FileUtils.rm_r(DIR) rescue nil
+      Dir.mkdir(DIR)
+
+      Dir.chdir(DIR) do        
+
+        puts "Parsing data"
+        data = File.open(filename).readlines.map do |line|
+          Marshal.load Base64.decode64(line)
+        end
+        
+#        data_maximum = data.flatten.inject(0) do |max, el|
+#          if el.is_a? Hash
+#            current_max = el.merge({:"real memory" => 0, :"virtual memory" => 0}).values.to_i.max
+#            current_max if max < current_max
+#          end or max
+#        end
+#        mem_maximum = data.flatten.inject(0) do |max, el| # only real memory (RSS) for now
+#          (el["real memory"] if el.is_a?(Hash) and max < el["real memory"]) or max
+#        end
+#        mem_scale = data_maximum / mem_maximum.to_f
+#        scales = {/memory$/ => mem_scale}
+        
+        puts "By controller"
+        controller_data, increments = aggregate(data, //, /^(.*?)($|\/|::::)/)
+        Analyze.new(controller_data, increments, "objects by controller").draw
+                
+        # in each controller, by action
+        puts "By action"
+        controller_data.keys.each do |controller|
+          puts "  ...in #{controller} controller"
+          Dir.descend(controller) do             
+            action_data, increments = aggregate(data, /^#{controller}($|\/|::::)/, /\/(.*?)($|\/|::::)/)
+            Analyze.new(action_data, increments, "objects by action in /#{controller}").draw
+          
+          # in each action, by object class
+          action_data.keys.each do |action|
+            action = "unknown" if action.to_s == ""
+            puts "    ...in #{action} action"
+            Dir.descend(action) do
+              class_data, increments = aggregate(data, /^#{controller}#{"\/#{action}" unless action == "unknown"}($|\/|::::)/, 
+                /::::(.*)/)
+              Analyze.new(class_data, increments, "objects by class in /#{controller}/#{action}").draw
+            end
+          end
+          
+          end          
+        end
+      end    
+    end 
+    
+  end
+end

data/lib/bleak_house/bleak_house.rb

@@ -0,0 +1,33 @@
+
+class BleakHouse  
+  cattr_accessor :last_request_name
+  cattr_accessor :dispatch_count
+  cattr_accessor :log_interval
+
+  self.dispatch_count = 0
+  self.log_interval = (ENV['INTERVAL'] and ENV['INTERVAL'].to_i or 10)
+
+  def self.set_request_name request, other = nil
+    self.last_request_name = "#{request.parameters['controller']}/#{request.parameters['action']}/#{request.request_method}#{other}"
+  end
+
+  def self.debug s
+    s = "#{name.underscore}: #{s}"
+    ::ActiveRecord::Base.logger.debug s if ::ActiveRecord::Base.logger
+  end
+    
+  def self.warn s
+    s = "#{name.underscore}: #{s}"
+    if ::ActiveRecord::Base.logger
+      ::ActiveRecord::Base.logger.warn s
+    else
+      $stderr.puts s
+    end
+  end
+
+  LOGFILE = "#{RAILS_ROOT}/log/bleak_house_#{RAILS_ENV}.dump"
+  if File.exists?(LOGFILE)
+    File.rename(LOGFILE, "#{LOGFILE}.old") 
+    warn "renamed old logfile"
+  end
+end

data/lib/bleak_house/dispatcher.rb

@@ -0,0 +1,23 @@
+
+# crazyness
+
+class Dispatcher
+  class << self
+    def prepare_application_with_bleak_house
+      prepare_application_without_bleak_house
+      BleakHouse.dispatch_count += 1
+      BleakHouse::MemLogger.snapshot('core rails')
+    end
+    alias_method_chain :prepare_application, :bleak_house
+    
+    def reset_after_dispatch_with_bleak_house
+      BleakHouse::MemLogger.snapshot(BleakHouse.last_request_name || 'unknown')
+      if (BleakHouse.dispatch_count % BleakHouse.log_interval).zero?
+        BleakHouse.warn "wrote frameset (#{BleakHouse.dispatch_count} dispatches)"
+        BleakHouse::MemLogger.log(BleakHouse::LOGFILE)
+      end
+      reset_after_dispatch_without_bleak_house
+    end
+    alias_method_chain :reset_after_dispatch, :bleak_house
+  end
+end

data/lib/bleak_house/gruff_hacks.rb

@@ -0,0 +1,56 @@
+
+class Gruff::Base
+  
+  def draw_legend
+    @legend_labels = @data.collect {|item| item[DATA_LABEL_INDEX] }
+
+    legend_square_width = @legend_box_size # small square with color of this item
+    legend_left = 10
+
+    current_x_offset = legend_left
+    current_y_offset =  TOP_MARGIN + TITLE_MARGIN + @title_caps_height + LEGEND_MARGIN
+
+    debug { @d.line 0.0, current_y_offset, @raw_columns, current_y_offset }
+                                                  
+    @legend_labels.each_with_index do |legend_label, index|      
+
+      next if index > MAX_LEGENDS
+      legend_label = "Some not shown" if index == MAX_LEGENDS
+
+      # Draw label
+      @d.fill = @font_color
+      @d.font = @font if @font
+      @d.pointsize = scale_fontsize(@legend_font_size)
+      @d.stroke('transparent')
+      @d.font_weight = NormalWeight
+      @d.gravity = WestGravity
+      @d = @d.annotate_scaled( @base_image, 
+                        @raw_columns, 1.0,
+                        current_x_offset + (legend_square_width * 1.7), current_y_offset, 
+                        legend_label.to_s, @scale)
+      
+      if index < MAX_LEGENDS
+      # Now draw box with color of this dataset
+        @d = @d.stroke('transparent')
+        @d = @d.fill @data[index][DATA_COLOR_INDEX]
+        @d = @d.rectangle(current_x_offset, 
+                          current_y_offset - legend_square_width / 2.0, 
+                          current_x_offset + legend_square_width, 
+                          current_y_offset + legend_square_width / 2.0)
+      end
+
+      @d.pointsize = @legend_font_size
+      metrics = @d.get_type_metrics(@base_image, legend_label.to_s)
+      current_y_offset += metrics.height * 1.05
+    end
+    @color_index = 0
+  end
+  
+  alias :setup_graph_measurements_without_top_margin :setup_graph_measurements
+  def setup_graph_measurements  
+    setup_graph_measurements_without_top_margin
+    @graph_height += NEGATIVE_TOP_MARGIN
+    @graph_top -= NEGATIVE_TOP_MARGIN    
+  end
+  
+end

data/lib/bleak_house/mem_logger.rb

@@ -0,0 +1,54 @@
+
+require 'base64'
+
+class BleakHouse::MemLogger
+  class << self
+
+    SEEN = {}
+    CURRENT = {}
+    TAGS = Hash.new(0)
+    TIMEFORMAT = '%Y-%m-%d %H:%M:%S'
+    VSZ = "virtual memory"
+    RSS = "real memory"
+
+    def log(path, with_mem = false)
+      File.open(path, 'a+') do |log|
+        log.sync = true
+        TAGS[VSZ], TAGS[RSS] = mem_usage if with_mem
+        log.puts Base64.encode64(Marshal.dump([Time.now.strftime(TIMEFORMAT), TAGS])).gsub("\n", '')
+      end
+      GC.start
+    end
+    
+    def snapshot(tag)
+#      puts "bleak_house: seen: #{SEEN.size}"
+      CURRENT.clear
+      ObjectSpace.each_object do |obj|
+        CURRENT[obj_id = obj._bleak_house_object_id] = true
+        unless SEEN[obj_id]
+          # symbols will rapidly stabilize; don't worry
+          SEEN[obj_id] = "#{tag}::::#{obj._bleak_house_class}".to_sym 
+          TAGS[SEEN[obj_id]] += 1
+        end
+      end
+#      puts "bleak_house: current: #{CURRENT.size}"
+      SEEN.keys.each do |obj_id|
+        TAGS[SEEN.delete(obj_id)] -= 1 unless CURRENT[obj_id]          
+      end
+ #     puts "bleak_house: done"
+      CURRENT.clear
+      GC.start
+    end        
+    
+    def mem_usage
+      `ps -x -o 'rss vsz' -p #{Process.pid}`.split(/\s+/)[-2..-1].map{|el| el.to_i}
+    end
+    
+  end
+end
+
+class Object
+  alias :_bleak_house_object_id :object_id
+  alias :_bleak_house_class  :class
+end
+

data/lib/bleak_house/rake_task_redefine_task.rb

@@ -0,0 +1,25 @@
+
+# http://www.bigbold.com/snippets/posts/show/2032
+module Rake
+  module TaskManager
+    def redefine_task(task_class, args, &block)
+      task_name, deps = resolve_args(args)
+      task_name = task_class.scope_name(@scope, task_name)
+      deps = [deps] unless deps.respond_to?(:to_ary)
+      deps = deps.collect {|d| d.to_s }
+      task = @tasks[task_name.to_s] = task_class.new(task_name, self)
+      task.application = self
+      task.add_comment(@last_comment)
+      @last_comment = nil
+      task.enhance(deps, &block)
+      task
+    end
+  end
+  class Task
+    class << self
+      def redefine_task(args, &block)
+        Rake.application.redefine_task(self, args, &block)
+      end
+    end
+  end
+end

data/lib/bleak_house/support_methods.rb

@@ -0,0 +1,47 @@
+
+class Array
+  alias :time :first
+  alias :data :last
+  
+  def sum
+    inject(0) {|s, x| x + s}
+  end
+  
+  def to_i
+    self.map{|s| s.to_i}
+  end
+    
+end
+
+class Dir
+  def self.descend path, &block
+    path = path.split("/") unless path.is_a? Array
+    top = path.shift
+    Dir.mkdir(top) unless File.exists? top
+    Dir.chdir(top) do
+      if path.any?
+        descend path, &block
+      else
+        block.call
+      end
+    end
+  end
+end
+
+class String
+  def to_filename
+    self.downcase.gsub(/[^\w\d\-]/, '_')
+  end
+end
+
+class NilClass
+  def +(op)
+    self.to_i + op
+  end
+end
+ 
+class Symbol
+  def =~ regex
+    self.to_s =~ regex
+  end
+end

data/tasks/bleak_house_tasks.rake

@@ -0,0 +1,13 @@
+
+namespace :bleak_house do
+  desc 'Analyze and chart all data'  
+  task :analyze do    
+    begin
+      require "#{File.dirname(__FILE__)}/../lib/bleak_house/analyze"
+    rescue LoadError
+      require 'bleak_house/analyze' 
+    end        
+    BleakHouse::Analyze.build_all("#{RAILS_ROOT}/log/bleak_house_#{RAILS_ENV}.dump")
+  end  
+end
+

metadata

@@ -0,0 +1,79 @@
+--- !ruby/object:Gem::Specification 
+rubygems_version: 0.9.2
+specification_version: 1
+name: bleak_house
+version: !ruby/object:Gem::Version 
+  version: "3"
+date: 2007-04-29 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.
+require_paths: 
+- lib
+email: evan at cloudbur dot st
+homepage: http://blog.evanweaver.com
+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.
+autorequire: 
+default_executable: 
+bindir: bin
+has_rdoc: true
+required_ruby_version: !ruby/object:Gem::Version::Requirement 
+  requirements: 
+  - - ">"
+    - !ruby/object:Gem::Version 
+      version: 0.0.0
+  version: 
+platform: ruby
+signing_key: 
+cert_chain: 
+post_install_message: |+
+  
+  Thanks for installing Bleak House 3. 
+  
+  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
+    
+  
+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: []
+
+rdoc_options: []
+
+extra_rdoc_files: []
+
+executables: []
+
+extensions: []
+
+requirements: []
+
+dependencies: []
+