facets 2.6.0 → 2.7.0

data/lib/more/facets/pry.rb

@@ -1,32 +0,0 @@
-require 'facets/functor'
-
-module Kernel
-
-  # Fluent notation for accessing private methods.
-  # This is a meta-progrmmers tool, and not meant
-  # for general use.
-  #
-  #   class X
-  #     attr :a
-  #     private :a
-  #     def initialize
-  #       @a = 1
-  #     end
-  #   end
-  #
-  #   x = X.new
-  #   p x.pry.a  #=> 1
-  #   p x.a      #=> Error
-  #
-  # TODO: Add support for blocks in Ruby 1.9
-  #
-  # CREDIT: trans
-
-  def pry
-    @__pry__ ||= Functor.new do |s, *a|
-      instance_eval{ send(s, *a) }
-    end
-  end
-
-end
-

data/lib/more/facets/reflection.rb

@@ -1,145 +0,0 @@
-# = Reflection
-#
-# Provides externailzed, safe access to an object's meta-information.
-#
-# == Authors
-#
-# * Thomas Sawyer
-#
-# == Copying
-#
-# Copyright (c) 2006 Thomas Sawyer
-#
-# Ruby License
-#
-# This module is free software. You may use, modify, and/or redistribute this
-# software under the same terms as Ruby.
-#
-# This program is distributed in the hope that it will be useful, but WITHOUT
-# ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS
-# FOR A PARTICULAR PURPOSE.
-#
-# == NOTES
-#
-# This is expirmental. Maybe it should be moved to the Trinkets project.
-# The idea is to be able to access a object as a pure object, by binding
-# methods called to Object/Kernel first. Thus bypassing any overriden
-# methods.
-#
-# But you can use #at to do this already.
-#
-#   obj.at(Object).object_id
-#
-# For metaprogramming this can be important.
-
-#
-class << ObjectSpace
-  alias_method :[], :_id2ref
-end
-
-# = ObjectReflection
-#
-#   obj.__object__.id
-#   obj.__object__.class
-#
-# NOTE: This is still an expirmental library.
-
-class ObjectReflection
-
-  instance_methods.each{|m| private(m) unless m.to_s =~ /^__/ }
-
-  #
-  def initialize(object)
-    @self = object
-    @meth = {}
-  end
-
-  #
-  def id
-    _bind_method(:object_id).call
-  end
-
-  #Kernel.instance_methods.select{ |m| m =~ /^instance_/ }.each do |m|
-  #  meth = m.to_s.sub(/^instance_/, '')
-  #  module_eval %{
-  #    def #{meth}(*a, &b)
-  #      _bind_method(:#{m}).call(*a,&b)
-  #    end
-  #  }
-  #end
-
-  def method_missing(s, *a, &b)
-    _bind_method(s).call(*a, &b)
-  end
-
-  private
-
-  def _bind_method(meth)
-    @meth[meth.to_sym] ||= Kernel.instance_method(meth).bind(@self)
-  end
-
-end
-
-module Kernel
-
-  # Binds a method to Object/Kernel before calling it.
-  #
-  #   obj.__object__.id
-  #   obj.__object__.class
-  #
-  # For metaprogramming this can be important.
-
-  def __object__
-    @_object_reflection ||= ObjectReflection.new(self)
-  end
-
-  #def __instance__
-  #  @_instance_reflection ||= InstanceReflection.new(self)
-  #end
-
-end
-
-
-
-=begin
-# = InstanceReflection
-#
-#   obj.__instance__.id
-#   obj.__instance__.class
-#
-#
-class InstanceReflection < ObjectReflection
-
-  REFLECTION_METHODS = (
-    meths = Kernel.instance_methods.select{ |m| m =~ /^instance_/ }
-    meths += [:send]
-    meths.collect!{|m| m.to_sym}
-    meths.uniq!
-p meths
-    meths
-  )
-
-  def initialize(object)
-    @self = object
-    @proc = {}
-    #@meta = REFLECTION_METHODS.inject({}) do |rproc, meth|
-    #  name = meth.to_s.sub(/^instance_/, '').to_sym
-    #  rproc[name] = Kernel.instance_method(meth).bind(@self)
-    #  rproc
-    #end
-  end
-
-  REFLECTION_METHODS.each do |meth|
-    name = meth.to_s.sub(/^instance_/, '')
-
-    module_eval %{
-      def #{name}(*a,&b)
-        @proc[:#{meth}] ||= Kernel.instance_method(:#{meth}).bind(@self)
-        @proc[:#{meth}].call(*a,&b)
-      end
-    }, __FILE__, __LINE__
-  end
-
-end
-=end
-

data/lib/more/facets/semaphore.rb

@@ -1,92 +0,0 @@
-# = Semaphore
-#
-# Technically a semaphore is simply an integer variable which
-# has an execution queue associated with it.
-#
-# == Authors
-#
-# * Fukumoto
-#
-# = Copying
-#
-# Copyright (c) 2005 Fukumoto
-#
-# Ruby License
-#
-# This module is free software. You may use, modify, and/or redistribute this
-# software under the same terms as Ruby.
-#
-# This program is distributed in the hope that it will be useful, but WITHOUT
-# ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS
-# FOR A PARTICULAR PURPOSE.
-
-
-# = Semaphore
-#
-# Technically a semaphore is simply an integer variable which
-# has an execution queue associated with it.
-#
-class Semaphore
-
-  def initialize(initvalue = 0)
-    @counter = initvalue
-    @waiting_list = []
-  end
-
-  def wait
-    Thread.critical = true
-    if (@counter -= 1) < 0
-      @waiting_list.push(Thread.current)
-      Thread.stop
-    end
-    self
-  ensure
-    Thread.critical = false
-  end
-
-  def signal
-    Thread.critical = true
-    begin
-      if (@counter += 1) <= 0
-        t = @waiting_list.shift
-        t.wakeup if t
-      end
-    rescue ThreadError
-      retry
-    end
-    self
-  ensure
-    Thread.critical = false
-  end
-
-  alias_method( :down, :wait )
-  alias_method( :up,   :signal )
-  alias_method( :p,    :wait )
-  alias_method( :v,    :signal )
-
-  def exclusive
-    wait
-    yield
-  ensure
-    signal
-  end
-
-  alias_method( :synchronize, :exclusive )
-
-end
-
-
-#  _____         _
-# |_   _|__  ___| |_
-#   | |/ _ \/ __| __|
-#   | |  __/\__ \ |_
-#   |_|\___||___/\__|
-#
-
-# TODO
-
-=begin #test
-
-  require 'test/unit'
-
-=end

data/lib/more/facets/settings.rb

@@ -1,248 +0,0 @@
-# = Settings
-#
-# Settings holds configuration information organized by
-# Owners. An owner is a class that represents the system to be
-# configured. An alias for this class is Settings.
-#
-# You can pass strings, constants or symbols as keys for the
-# classes to be configured. Passing symbols you can configure
-# classes even before they are defined.
-#
-# == Authors
-#
-# * George Moschovitis
-#
-# == Todo
-#
-# * Implement with annotations.
-#
-# == Copying
-#
-# Copyright (c) 2005 George Moschovitis
-#
-# Ruby License
-#
-# This module is free software. You may use, modify, and/or redistribute this
-# software under the same terms as Ruby.
-#
-# This program is distributed in the hope that it will be useful, but WITHOUT
-# ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS
-# FOR A PARTICULAR PURPOSE.
-
-require 'yaml'
-require 'facets/kernel/constant'
-require 'facets/string/capitalized'
-require 'facets/synchash'
-require 'facets/dictionary'
-
-# = Settings
-#
-# Settings holds configuration information organized by
-# Owners. An owner is a class that represents the system to be
-# configured. An alias for this class is Settings.
-#
-# You can pass strings, constants or symbols as keys for the
-# classes to be configured. Passing symbols you can configure
-# classes even before they are defined.
-#
-class Settings
-
-  # A hash of setting owners. Use double @'s to allow for
-  # the Settings alias.
-  #--
-  # TODO: find a better name.
-  #++
-
-  @@owners = SyncHash.new
-
-  # A datastructure to store Settings metadata.
-  #
-  # Please note the difference between :default and :value,
-  # :default does NOT override :value.
-
-  class Setting
-    attr_accessor :owner, :name, :type, :value, :options
-
-    def initialize(owner, name, options)
-      if options.key? :value
-        @value = options[:value]
-      elsif options.key? :default
-        @value = options[:default]
-      else
-        raise ArgumentError.new('A value is required')
-      end
-
-      @owner, @name = owner, name
-      @options = options
-      @type = options[:type] = options[:type] || @value.class
-    end
-
-    # Update the setting from an options hash. The update does
-    # NOT take default values into account!
-
-    def update(hash)
-      if hash.key? :value
-        @value = hash[:value]
-        @type = @value.class
-      end
-
-      if hash.key? :type
-        @type = hash[:type]
-      end
-
-      @options.update(hash)
-    end
-
-    # Text representation of this setting.
-
-    def to_s
-      @value.to_s
-    end
-
-  end
-
-  # A collection of Settings. This helper enables intuitive
-  # settings initialization like this:
-  #
-  # Settings.Compiler.template_root = 'public'
-  # instead of
-  # Settings.setting :compiler, :template_root, :value => 'public'
-
-  class SettingCollection < Hash
-    attr_accessor :owner
-
-    # Handles setting readers and writers.
-
-    def method_missing(sym, *args)
-      if sym.to_s =~ /=$/
-        # Remove trailing
-        sym = sym.to_s.gsub(/=/, '').to_sym
-        Settings.setting @owner, sym, :value => args.first
-      else
-        self[sym]
-      end
-    end
-  end
-
-  class << self
-
-    # Inject the Settings parameters provided as a hash
-    # (dictionary, ordered) to classes to be configured.
-    #
-    # === Warning: Pass an ordered hash (dictionary)
-
-    def setup(options)
-      options.each do |owner, ss|
-        next unless ss
-        ss.each do |name, s|
-          add_setting(owner, name.to_sym, :value => s)
-        end
-      end
-    end
-
-    # Parse Settings parameters in yaml format.
-
-    def parse(options)
-      temp = YAML::load(options)
-      options = Dictionary.new
-      temp.each do |k, v|
-        begin
-          options[k.gsub(/\./, '::').to_sym] = v
-        rescue Object
-          options[k] = v
-        end
-      end
-
-      setup(options)
-    end
-
-    # Load and parse an external yaml Settings file.
-
-    def load(filename)
-      parse(File.read(filename))
-    end
-
-    # Manually add a Settings setting. The class key can
-    # be the actual class name constant or a symbol. If the
-    # setting is already defined it updates it.
-    #
-    # === Examples
-    #
-    # Settings.add_setting Compiler, :verification, :value => 12, :doc => '...'
-    # Settings.setting :IdPart, :verify_registration_email, :value => false
-    # s = Settings.Compiler.verification.value
-
-    def add_setting(owner, name, options)
-      owner = owner.to_s.to_sym
-      @@owners[owner] ||= {}
-      if s = @@owners[owner][name]
-        # The setting already exists, update it.
-        s.update(options)
-      else
-        # The setting does not exist, create it.
-        @@owners[owner][name] = Setting.new(owner, name, options)
-      end
-    end
-    alias_method :setting, :add_setting
-
-    # Return the settings for the given owner. The owner is
-    # typically the Class that represents the system to be
-    # configured. If no class is provided, it returns all the
-    # registered settings.
-
-    def settings(owner = nil)
-      if owner
-        owner = owner.to_s.to_sym
-        @@owners[owner]
-      else
-        @@owners.values.inject([]) { |memo, obj| memo.concat(obj.values) }
-      end
-    end
-    alias_method :all, :settings
-    alias_method :[], :settings
-
-    #--
-    # FIXME: this does not work as expected.
-    #++
-
-    def method_missing(sym)
-      if sym.to_s.capitalized?
-         bdl = SettingCollection.new
-         bdl.owner = sym
-         if hash = self[sym]
-           bdl.update(hash)
-         end
-         return bdl
-      end
-    end
-  end
-
-end
-
-
-class Module
-
-  # Defines a configuration setting for the enclosing class.
-  #
-  # === Example
-  #
-  # class Compiler
-  #   setting :template_root, :default => 'src/template', :doc => 'The template root dir'
-  # end
-
-  def setting(sym, options = {})
-    Settings.add_setting(self, sym, options)
-
-    module_eval %{
-      def self.#{sym}
-        Settings[#{self}][:#{sym}].value
-      end
-
-      def self.#{sym}=(obj)
-        Settings.setting #{self}, :#{sym}, :value => obj
-      end
-    }
-  end
-
-end
-