检测未释放的对象

taroxd

[pre lang="ruby" line="1"]
#--------------------------------------------------------------------------
# ● require Taroxd基础设置
#--------------------------------------------------------------------------

class Viewport
  def_before(:dispose) { @__dispose__ = true }
  def disposed?; @__dispose__; end
end

need_dispose = [Bitmap, Sprite, Window, Plane, Tilemap, Viewport]
callers = {}
callers.compare_by_identity
not_disposed = []

need_dispose.each do |klass|
  klass.class_eval do
    def_after(:initialize) {|*| callers[self] = caller }
  end
end

Scene_Base.class_eval do
  def_after :terminate do
    need_dispose.each do |klass|
      ObjectSpace.each_object(klass) do |obj|
        not_disposed.push(obj) unless obj.disposed?
      end
    end
  end

  def_after :update do
    return unless Input.trigger?(:ALT)
    puts not_disposed.delete_if(&:disposed?)
    puts callers[
      not_disposed.shuffle.find do |obj|
        callers[obj] && callers[obj].none? {|str| str.start_with?('{0004}') }
      end
    ]
  end
end
[/pre]