Contents

class Proc

  # Bind a Proc to an object returning a Method.
  #
  # The block's #to_s method (same as #inspect) is
  # used for the temporary method label defined in
  # the Object class.
  #
  #   NOTE: This dynamically loads thread.so if used.
  #   NOTE: Not so sure it is thread critical anymore.

  def bind(object=nil)
    require 'thread'

    object = object || eval("self", self)
    block  = self
    store  = Object

    begin
      old, Thread.critical = Thread.critical, true
      @n ||= 0; @n += 1
      name = "_bind_#{@n}#{block.object_id}"
      store.module_eval do
        define_method name, &block
      end
      meth = object.method(name)
    ensure
      store.module_eval do
        remove_method name #rescue nil
        #undef_method name #rescue nil
      end
      Thread.critical = old
    end

    return meth
  end

  # Convert Proc to method.
  #
  #   Class X; end
  #
  #   plusproc = lambda { |x| x + 1 }
  #   plusproc.to_method('foo', X)
  #   X.new.foo(1)  #=> 2
  #
  #   TODO: Should use singleton instead of object.class ?
  #
  #   CREDIT: Trans

  def to_method(name=nil, object=nil)
    return bind unless name

    object = object || eval("self", self)
    klass  = object.class
    block  = self

    klass.class_eval do
      define_method name, &block
    end

    object.method(name)
  end

end

Version data entries

3 entries across 3 versions & 1 rubygems

Version	Path
facets-2.2.0	lib/core/facets/proc/bind.rb
facets-2.2.1	lib/core/facets/proc/bind.rb
facets-2.3.0	lib/core/facets/proc/bind.rb