facets 2.4.0 → 2.4.1

data/lib/facets/kernel/instance_class.rb

@@ -0,0 +1,24 @@
+module Kernel
+
+  # Kernel extension prefixed by instance_ which provide
+  # internal (eg private) access to the object.
+  # Kernel extension using instance_ prefix which is beneficial
+  # to separation of metaprogramming from general programming.
+  # object_ methods, in contrast to the instance_ methods,
+  # do not access internal state.
+
+  # Easy access to an object qua class, otherwise known
+  # as the object's metaclass or singleton class. This
+  # implemnetation alwasy returns the class, even if a
+  # block is provided to eval against it.
+  #
+  #     It is what it is.
+  #
+  #  CREDIT: Trans
+
+  def instance_class(&block)
+    (class << self; self; end).module_eval(&block) if block
+    (class << self; self; end)
+  end
+
+end

data/lib/facets/kernel/instance_send.rb

@@ -0,0 +1,7 @@
+module Kernel
+
+  # Private send.
+  alias_method :instance_send, :__send__
+
+end
+

data/lib/facets/kernel/instance_variables.rb

@@ -0,0 +1,99 @@
+module Kernel
+
+  def instance_vars
+    InstanceVariables.new(self)
+  end
+
+end
+
+
+class InstanceVariables
+
+  include Enumerable
+
+  def initialize(delegate)
+    @delegate = delegate
+  end
+
+  def instance_delegate
+    @delegate
+  end
+
+  def each
+    @delegate.instance_variables.each do |name|
+      yield(name[1..-1].to_sym, @delegate.instance_variable_get(name))
+    end
+  end
+
+  def to_hash
+    h = {}
+    each do |name, value|
+      h[name] = value
+    end
+    h
+  end
+
+  def [](name)
+    name = atize(name)
+    @delegate.instance_variable_get(name)
+  end
+
+  def []=(name, value)
+    name = atize(name)
+    @delegate.instance_varaible_set(name,value)
+  end
+
+  def <<(pair)
+    name, value = *pair
+    name = atize(name)
+    @delegate.instance_varaible_set(name, value)
+  end
+
+  def update(hash)
+    hash.each do |pair|
+      self << pair
+    end
+  end
+
+  def keys
+    @delegate.instance_variables.collect do |name|
+      name[1..-1].to_sym
+    end
+  end
+
+  def names
+    @delegate.instance_variables.collect do |name|
+      name[1..-1]
+    end
+  end
+
+  def values
+    @delegate.instance_variables.collect do |name|
+      @delegate.instance_variable_get(name)
+    end
+  end
+
+  private
+
+    def atize(name)
+      name !~ /^@/ ? "@#{name}" : name
+    end
+
+end
+
+
+if $0 == __FILE__
+
+  class Friend
+    attr_accessor :name, :age, :phone
+    def initialize(name, age, phone)
+      @name, @age, @phone = name, age, phone
+    end
+  end
+
+  f1 = Friend.new("John", 30, "555-1212")
+  p f1.variables
+  p f1.variables.to_hash
+
+end
+

data/lib/facets/kernel/object_class.rb

@@ -0,0 +1,10 @@
+module Kernel
+
+  # Defines object_classas an alias of class.
+  # This is an alternative to __class__, akin to
+  # #object_id.
+
+  alias_method :object_class, :class
+
+end
+

data/lib/facets/kernel/object_hexid.rb

@@ -0,0 +1,12 @@
+module Kernel
+
+  # Returns the object id as a string in hexideciaml,
+  # which is how Ruby reports them with inspect.
+  #
+  #   "ABC".object_hexid  #=> "0x402d359c"
+
+  def object_hexid
+    return "0x" << ('%.x' % (2*self.__id__))  #[1..-1]
+  end
+
+end

data/lib/facets/kernel/{object.rb → object_send.rb}

@@ -1,17 +1,5 @@
 module Kernel
 
-  # Defines object_classas an alias of class.
-  # This is an alternative to __class__, akin to
-  # #object_id.
-
-  alias_method :object_class, :class
-
-  # Defines core method __class__ as an alias of class.
-  # This allows you to use #class as your own method, without
-  # loosing the ability to determine the object's class.
-
-  alias_method :__class__, :class
-
   # Send only to public methods.
   #
   #   class X
@@ -40,14 +28,5 @@ module Kernel
     end
   end
 
-  # Returns the object id as a string in hexideciaml,
-  # which is how Ruby reports them with inspect.
-  #
-  #   "ABC".object_hexid  #=> "0x402d359c"
-
-  def object_hexid
-    return "0x" << ('%.x' % (2*self.__id__))  #[1..-1]
-  end
-
 end
 

data/lib/facets/kernel/silence.rb

@@ -10,21 +10,37 @@ module Kernel
   #
   #   CREDIT: David Heinemeier Hansson
 
-  def silence_stream(stream)
-    old_stream = stream.dup
-    stream.reopen(RUBY_PLATFORM =~ /mswin/ ? 'NUL:' : '/dev/null')
-    stream.sync = true
+  def silence_stream(*streams) #:yeild:
+    on_hold = streams.collect{ |stream| stream.dup }
+    streams.each do |stream|
+      stream.reopen(RUBY_PLATFORM =~ /mswin/ ? 'NUL:' : '/dev/null')
+      stream.sync = true
+    end
     yield
   ensure
-    stream.reopen(old_stream)
+    streams.each_with_index do |stream, i|
+      stream.reopen(on_hold[i])
+    end
   end
-  #alias_method :silently, :silence_stream
 
-  # For compatibility.
-  def silence_stderr #:nodoc:
+  #
+  def silence_stderr #:yeild:
     silence_stream(STDERR) { yield }
   end
 
+  #
+  def silence_stdout #:yeild:
+    silence_stream(STDOUT) { yield }
+  end
+
+  # Just like silence_stream, but will default to 
+  # STDOUT, STDERR if no streams are given.
+
+  def silently(*streams) #:yeild:
+    streams = [STDOUT, STDERR] if streams.empty?
+    silence_stream(*streams){ yield }
+  end
+
   # Sets $VERBOSE to nil for the duration of the block
   # and back to its original value afterwards.
   #
@@ -55,15 +71,5 @@ module Kernel
     $VERBOSE = old_verbose
   end
 
-  # Supress errors while executing a block, with execptions.
-  #
-  #   CREDIT: David Heinemeier Hansson
-
-  def suppress(*exception_classes)
-    begin yield
-    rescue Exception => e
-      raise unless exception_classes.any? { |cls| e.kind_of?(cls) }
-    end
-  end
-
 end
+

data/lib/facets/kernel/suppress.rb

@@ -0,0 +1,18 @@
+module Kernel
+
+  # Supress errors while executing a block, with execptions.
+  #
+  # TODO: This will be deprecatd in favor or Exception#suppress.
+  #
+  #  CREDIT: David Heinemeier Hansson
+
+  def suppress(*exception_classes)
+    warn "use Exception#supress for future versions"
+    begin yield
+    rescue Exception => e
+      raise unless exception_classes.any? { |cls| e.kind_of?(cls) }
+    end
+  end
+
+end
+

data/lib/facets/module.rb

@@ -3,6 +3,7 @@ require 'facets/ruby'
 #require 'facets/module/abstract.rb'
 require 'facets/module/alias.rb'
 require 'facets/module/ancestor.rb'
+require 'facets/module/basename.rb'
 require 'facets/module/can.rb'
 require 'facets/module/class.rb'
 #require 'facets/module/clone.rb'
@@ -11,9 +12,11 @@ require 'facets/module/include_function_module.rb'
 require 'facets/module/instance_methods.rb'
 require 'facets/module/is.rb'
 #require 'facets/module/module_load.rb'
+require 'facets/module/modspace.rb'
 require 'facets/module/nesting.rb'
 require 'facets/module/op.rb'
 require 'facets/module/pathize.rb'
 require 'facets/module/prepend.rb'
 require 'facets/module/revise.rb'
+require 'facets/module/spacename.rb'
 

data/lib/facets/module/basename.rb

@@ -0,0 +1,31 @@
+class Module
+
+  # Returns the root name of the module/class.
+  #
+  #   module Example
+  #     class Demo
+  #     end
+  #   end
+  #
+  #   Demo.name       #=> "Example::Demo"
+  #   Demo.basename   #=> "Demo"
+  #
+  # For anonymous modules this will provide a basename
+  # based on Module#inspect.
+  #
+  #   m = Module.new
+  #   m.inspect       #=> "#<Module:0xb7bb0434>"
+  #   m.basename      #=> "Module_0xb7bb0434"
+  #
+  #   CREDIT: Trans
+
+  def basename
+    if name and not name.empty?
+      name.gsub(/^.*::/, '')
+    else
+      nil #inspect.gsub('#<','').gsub('>','').sub(':', '_')
+    end
+  end
+
+end
+

data/lib/facets/module/modspace.rb

@@ -0,0 +1,22 @@
+class Module
+
+  # Returns the module's container module.
+  #
+  #   module Example
+  #     class Demo
+  #     end
+  #   end
+  #
+  #   Example::Demo.modspace   #=> Example
+  #
+  # See also Module#basename.
+  #
+  #   CREDIT: Trans
+
+  def modspace
+    space = name[ 0...(name.rindex( '::' ) || 0)]
+    space.empty? ? Object : eval(space)
+  end
+
+end
+

data/lib/facets/module/nesting.rb

@@ -14,71 +14,5 @@ class Module
     return n
   end
 
-  # Returns the module's container module.
-  #
-  #   module Example
-  #     class Demo
-  #     end
-  #   end
-  #
-  #   Example::Demo.modspace   #=> Example
-  #
-  # See also Module#basename.
-  #
-  #   CREDIT: Trans
-
-  def modspace
-    space = name[ 0...(name.rindex( '::' ) || 0)]
-    space.empty? ? Object : eval(space)
-  end
-
-  # Returns the root name of the module/class.
-  #
-  #   module Example
-  #     class Demo
-  #     end
-  #   end
-  #
-  #   Demo.name       #=> "Example::Demo"
-  #   Demo.basename   #=> "Demo"
-  #
-  # For anonymous modules this will provide a basename
-  # based on Module#inspect.
-  #
-  #   m = Module.new
-  #   m.inspect       #=> "#<Module:0xb7bb0434>"
-  #   m.basename      #=> "Module_0xb7bb0434"
-  #
-  #   CREDIT: Trans
-
-  def basename
-    if name and not name.empty?
-      name.gsub(/^.*::/, '')
-    else
-      nil #inspect.gsub('#<','').gsub('>','').sub(':', '_')
-    end
-  end
-
-  # Returns the name of module's container module.
-  #
-  #   module Example
-  #     class Demo
-  #     end
-  #   end
-  #
-  #   Demo.name         #=> "Example::Demo"
-  #   Demo.spacename    #=> "Example"
-  #
-  # This used to be called +dirname+.
-  #
-  # See also Module#basename.
-  #
-  #  CREDIT: Trans
-
-  def spacename
-    name[0...(name.rindex('::') || 0)]
-    #name.gsub(/::[^:]*$/, '')
-  end
-
 end
 

data/lib/facets/module/spacename.rb

@@ -0,0 +1,25 @@
+class Module
+
+  # Returns the name of module's container module.
+  #
+  #   module Example
+  #     class Demo
+  #     end
+  #   end
+  #
+  #   Demo.name         #=> "Example::Demo"
+  #   Demo.spacename    #=> "Example"
+  #
+  # This used to be called +dirname+.
+  #
+  # See also Module#basename.
+  #
+  #  CREDIT: Trans
+
+  def spacename
+    name[0...(name.rindex('::') || 0)]
+    #name.gsub(/::[^:]*$/, '')
+  end
+
+end
+