is-monkey 0.5.4

data/.yardopts

@@ -0,0 +1,9 @@
+--no-cache
+--private
+--protected
+--hide-void-return
+--plugin yard-is-monkey
+--title 'Ruby Gems by Ivan Shikhalev'
+--query="/^@@/ !~ o.name && @api.text != 'ignore'"
+lib/**/*.rb ./*.rb
+- *.md

data/lib/is/monkey/anyproc.rb

@@ -0,0 +1,14 @@
+# encoding: utf-8
+
+class Object
+
+  # @return [Proc, nil]
+  def to_proc
+    if respond_to? :call
+      method(:call).to_proc
+    else
+      nil
+    end
+  end
+
+end

data/lib/is/monkey/copy.rb

@@ -0,0 +1,10 @@
+# encoding: utf-8
+
+class Object
+
+  # @return [Object]
+  def copy
+    Marshal.load(Marshal.dump(self))
+  end
+
+end

data/lib/is/monkey/keys.rb

@@ -0,0 +1,43 @@
+# encoding : utf-8
+
+class Symbol
+
+  # @return [self]
+  def to_key
+    self
+  end
+
+  # @return [String]
+  def to_name
+    to_s.gsub '_', '-'
+  end
+
+end
+
+class String
+
+  # @return [Symbol]
+  def to_key
+    gsub('-', '_').intern
+  end
+
+  # @return [self]
+  def to_name
+    self
+  end
+
+end
+
+class Integer
+
+  # @return [self]
+  def to_key
+    self
+  end
+
+  # @return [self]
+  def to_name
+    self
+  end
+
+end

data/lib/is/monkey/namespace.rb

@@ -0,0 +1,40 @@
+# encoding: utf-8
+
+require 'is/monkey/sandbox'
+
+class Module
+
+  # @return [String]
+  def basename
+    name.split('::')[-1]
+  end
+
+  # @return [Module]
+  def namespace
+    begin
+      nm = name
+      if (i = nm.rindex '::')
+        ns = sandbox { eval nm[0...i] }
+        return ns
+      end
+    rescue
+    end
+    return nil
+  end
+
+  # @param [Module] other
+  # @return [Boolean]
+  def in? other
+    ns = self
+    while (ns = ns.namespace)
+      return true if ns == other
+    end
+    return false
+  end
+
+  # @return [Boolean]
+  def global?
+    ! namespace
+  end
+
+end

data/lib/is/monkey/properties.rb

@@ -0,0 +1,393 @@
+# encoding: utf-8
+
+require 'set'
+
+#
+class Module
+
+  # @overload property *args, opts = {}
+  #   @param [Array<Symbol>] args
+  #   @param [Hash] opts
+  #   @option opts [Proc] :init
+  #   @option opts [Object] :default
+  #   @option opts [#===] :validator
+  #   @option opts [Class] :class
+  #   @option opts [true] :null
+  #   @yield [value]
+  #   @return [void]
+  def property *args, &block
+    @properties ||= {}
+    if Hash === args[-1]
+      opts = args.pop
+    else
+      opts = {}
+    end
+    init = opts[:init]
+    default = opts[:default]
+    validator = opts[:validator]
+    valclass = opts[:class]
+    valnull = opts[:null]
+    inh = opts[:inheritance]
+    args.each do |a|
+      getter = a.intern
+      attr_accessor getter
+      variable = "@#{getter}".intern
+      setter = "#{getter}=".intern
+
+      get_proc = define_method getter do |*values|
+        if ! instance_variable_defined?(variable)
+          instance_variable_set variable,
+              singleton_class.properties[getter].default(self)
+        end
+        value = instance_variable_get variable
+        if ! values.empty?
+          if value.respond_to? :append!
+            value.append! *values
+          elsif values.size == 1
+            value = values[0]
+          else
+            value = values
+          end
+          send setter, value
+        end
+        result = instance_variable_get variable
+        if inh && Class === self && superclass && superclass.respond_to?(getter)
+          sup = superclass.send getter
+          if sup.respond_to? :append
+            result = sup.append result
+          end
+        end
+        result
+      end
+
+      if block_given?
+        set_proc = define_method setter, &block
+      else
+
+        set_proc = define_method setter do |value|
+          if validator && !(validator === value || valnull && value == nil)
+            raise 'Invalid property value!'
+          elsif valclass && !(valclass === value || valnull && value == nil)
+            raise 'Invalid property value class!'
+          end
+          instance_variable_set variable, value
+        end
+
+      end
+
+      @properties[getter] = Is::Property.new self, getter,
+          opts.merge(:getter => get_proc, :setter => set_proc)
+    end
+  end
+
+  # @return [Hash{Symbol => Is::Property}]
+  def properties
+    result = @properties || {}
+    ancestors.each do |mod|
+      result = mod.properties.merge result if mod != self
+    end
+    if self < Class && superclass
+      result = superclass.properties.merge result
+    end
+    result
+  end
+
+  private :property
+
+end
+
+class Object
+
+  # @param [Array<Symbol>] args
+  # @return [Hash{Symbol => Object}]
+  def property_values *args
+    result = {}
+    if args.size != 0
+      args.each do |arg|
+        prop = arg.intern
+        result[prop] = send prop
+      end
+    else
+      singleton_class.properties.each do |prop, _|
+        result[prop] = send prop
+      end
+    end
+    result
+  end
+
+end
+
+class Array
+
+  # @param [Array] values
+  # @return [self]
+  def append! *values
+    push *values
+  end
+
+  # @param [Array] values
+  # @return [Array]
+  def append *values
+    dup.append! *values
+  end
+
+end
+
+class Hash
+
+  # @param [Array<Hash>] values
+  # @return [self]
+  def append! *values
+    values.each do |a|
+      merge! a
+    end
+  end
+
+  # @param [Array<Hash>] values
+  # @return [Hash]
+  def append *values
+    dup.append! *values
+  end
+
+end
+
+class Set
+
+  # @overload append! *values
+  #   @param [Array] values
+  # @overload append! value
+  #   @param [Set] value
+  # @return [self]
+  def append! *values
+    if values.size == 1 && Set === values[0]
+      merge values[0]
+    else
+      merge values
+    end
+  end
+
+  # @overload append *values
+  #   @param [Array] values
+  # @overload append value
+  #   @param [Set] value
+  # @return [Set]
+  def append *values
+    dup.append! *values
+  end
+
+end
+
+class String
+
+  # @param [Array] values
+  # @return [self]
+  def append! *values
+    self << ($, + values.join)
+  end
+
+  # @param [Array] values
+  # @return [String]
+  def append *values
+    dup.append! *values
+  end
+
+end
+
+module Is
+
+  class Property
+
+    # @return [Symbol]
+    attr_reader :name
+
+    # @return [Proc]
+    attr_reader :getter
+
+    # @return [Proc]
+    attr_reader :setter
+
+    # @return [Hash]
+    attr_reader :options
+
+    # @return [Module]
+    attr_reader :owner
+
+    def getter
+      @opts[:getter]
+    end
+
+    def setter
+      @opts[:setter]
+    end
+
+    def options
+      @opts
+    end
+
+    # @param [Module] owner
+    # @param [Symbol] name
+    # @param [Hash] opts
+    def initialize owner, name, opts = {}
+      @owner = owner
+      @name = name.intern
+      @opts = opts
+    end
+
+    # @param [Object] obj
+    # @return [Object, nil]
+    def default obj
+      if Class === obj && obj.superclass && obj.superclass.respond_to?(@name)
+        v = obj.superclass.send @name
+      else
+        v = nil
+      end
+      if v == nil
+        if @opts.has_key? :init
+          v = @opts[:init].call obj
+        elsif @opts.has_key? :default
+          v = @opts[:default]
+        elsif @opts.has_key? :class
+          begin
+            v = @opts[:class].new
+          rescue
+            v = nil
+          end
+        end
+      end
+      v
+    end
+
+    # @param [Object] value
+    # @return [Boolean]
+    def === value
+      if @opts[:validator]
+        @opts[:validator] === value
+      elsif @opts[:class]
+        @opts[:class] === value
+      else
+        true
+      end
+    end
+
+    module Validators
+
+      class OR
+
+        # @param [Array<#===>] args
+        def initialize *args
+          @args = args
+        end
+
+        # @param [Object] value
+        # @return [Boolean]
+        def === value
+          @args.each do |v|
+            if v === value
+              return true
+            end
+          end
+          return false
+        end
+
+      end
+
+      class AND
+
+        # @param [Array<#===>] args
+        def initialize *args
+          @args = args
+        end
+
+        # @param [Object] value
+        # @return [Boolean]
+        def === value
+          @args.each do |v|
+            if !(v === value)
+              return false
+            end
+          end
+          return true
+        end
+
+      end
+
+      class NOT
+
+        # @param [#===] arg
+        def initialize arg
+          @arg = arg
+        end
+
+        # @param [Object] value
+        # @return [Boolean]
+        def === value
+          !(@arg === value)
+        end
+
+      end
+
+      class ANY < OR
+      end
+
+      class ALL < AND
+      end
+
+      class ONE
+
+        # @param [Array<#===>] args
+        def initialize *args
+          @or = OR.new *args
+          @and = AND.new *args
+        end
+
+        # @param [Object] value
+        # @return [Boolean]
+        def === value
+          @or === value && !(@and === value)
+        end
+
+      end
+
+      # @param [Array<#===>] args
+      # @return [OR]
+      def v_or *args
+        OR.new *args
+      end
+
+      # @param [Array<#===>] args
+      # @return [AND]
+      def v_and *args
+        AND.new *args
+      end
+
+      # @param [#===] arg
+      # @return [NOT]
+      def v_not arg
+        NOT.new arg
+      end
+
+      # @param [Array<#===>] args
+      # @return [ANY]
+      def v_any *args
+        ANY.new *args
+      end
+
+      # @param [Array<#===>] args
+      # @return [ALL]
+      def v_all *args
+        ALL.new *args
+      end
+
+      # @param [Array<#===>] args
+      # @return [ONE]
+      def v_one *args
+        ONE.new *args
+      end
+
+      module_function :v_or, :v_and, :v_not, :v_any, :v_all, :v_one
+
+    end
+
+  end
+
+end

data/lib/is/monkey/sandbox.rb

@@ -0,0 +1,10 @@
+# encoding: utf-8
+
+# @yield
+def sandbox &block
+  lambda do
+    $SAFE = 4
+    yield
+  end.call
+end
+

metadata

@@ -0,0 +1,53 @@
+--- !ruby/object:Gem::Specification
+name: is-monkey
+version: !ruby/object:Gem::Version
+  version: 0.5.4
+  prerelease: 
+platform: ruby
+authors:
+- Ivan Shikhalev
+autorequire: 
+bindir: bin
+cert_chain: []
+date: 2013-05-11 00:00:00.000000000 Z
+dependencies: []
+description: The set of monkey-patching.
+email: shikhalev@gmail.com
+executables: []
+extensions: []
+extra_rdoc_files: []
+files:
+- lib/is/monkey/sandbox.rb
+- lib/is/monkey/keys.rb
+- lib/is/monkey/namespace.rb
+- lib/is/monkey/copy.rb
+- lib/is/monkey/properties.rb
+- lib/is/monkey/anyproc.rb
+- .yardopts
+homepage: https://github.com/shikhalev/gems/
+licenses:
+- GNU LGPL
+post_install_message: 
+rdoc_options: []
+require_paths:
+- lib
+required_ruby_version: !ruby/object:Gem::Requirement
+  none: false
+  requirements:
+  - - ! '>='
+    - !ruby/object:Gem::Version
+      version: 1.9.2
+required_rubygems_version: !ruby/object:Gem::Requirement
+  none: false
+  requirements:
+  - - ! '>='
+    - !ruby/object:Gem::Version
+      version: '0'
+requirements: []
+rubyforge_project: 
+rubygems_version: 1.8.25
+signing_key: 
+specification_version: 3
+summary: The set of monkey-patching
+test_files: []
+has_rdoc: