dry-behaviour 0.4.2 → 0.5.0

checksums.yaml

@@ -1,7 +1,7 @@
 ---
 SHA1:
-  metadata.gz: a7dd8efa2d46ccb80e8b8c4ed83140993496836d
-  data.tar.gz: c9b800c20027b9e549eddd506dad0501edd73cf2
+  metadata.gz: c27c0695413fb84924f27453989fd85836066d0f
+  data.tar.gz: 48217fe055d56c59e4842e28f9eddbc597a48a80
 SHA512:
-  metadata.gz: c877197d35aa0c34ccb43949914e5b73504fb946c4c4d6678f6b1c6c8a5e5a6c2849843431412264a3b0e7543543a9317195185bd4970f6f6fe4944b007b11dc
-  data.tar.gz: 4825b89db273d9d5c85039723ac8914d3582cc9cfb6b3179dbc3c15517944a90b4335d864e52f80d81bc62d1336fa3c2ba8c51d676f46439c5d26b8b090d6d5d
+  metadata.gz: a9e4ca4ed497dd76ed2caf2797d1570f3e7184ae4fe54497b15e84f9a7a3199858c2bfff2cab124a8b3d8d6bbb10617dec3bd397a36ae2580da9b40927f35fb2
+  data.tar.gz: 38f727f407f90ff7398798410962e08b8d32e95d99fcf1c3eabc6722c1dc6673c4a978a0bb502cf4cea1ec0e7c4960b9c94ba6b373e0df411e972e081268b661

data/.rubocop.yml

@@ -1 +1,4 @@
 inherit_from: .rubocop_todo.yml
+
+Style/Documentation:
+  Enabled: false

data/README.md

@@ -64,6 +64,8 @@ expect(Protocols::Adder.add_default(1)).to eq(6)
 
 ## Changelog
 
+### `0.5.0` :: Guards
+
 ### `0.4.2` :: Removed the forgotten debug output :(
 
 ### `0.4.1` :: Protocol-wide methods are allowed to call from implementation

data/dry-behaviour.gemspec

@@ -26,6 +26,7 @@ Gem::Specification.new do |spec|
   spec.require_paths = ['lib']
 
   spec.add_development_dependency 'bundler', '~> 1.10'
+  spec.add_development_dependency 'awesome_print', '~> 1.7'
   spec.add_development_dependency 'rake', '~> 10.0'
   spec.add_development_dependency 'rspec'
   spec.add_development_dependency 'pry'

data/lib/dry/behaviour/black_tie.rb

@@ -1,8 +1,6 @@
 module Dry
-  # rubocop:disable Style/AsciiIdentifiers
   # rubocop:disable Style/MultilineBlockChain
-  # rubocop:disable Style/EmptyCaseCondition
-  # rubocop:disable Metrics/PerceivedComplexity
+  # rubocop:disable Metrics/MethodLength
   # rubocop:disable Metrics/CyclomaticComplexity
   # rubocop:disable Metrics/AbcSize
   # rubocop:disable Style/MethodName
@@ -38,7 +36,6 @@ module Dry
       BlackTie.protocols[self].each do |method, *_| # FIXME: CHECK PARAMS CORRESPONDENCE HERE
         singleton_class.send :define_method, method do |receiver = nil, *args|
           impl = implementation_for(receiver)
-
           raise Dry::Protocol::NotImplemented.new(:protocol, inspect, receiver.class) unless impl
           begin
             impl[method].(*args.unshift(receiver))
@@ -57,14 +54,7 @@ module Dry
 
     DELEGATE_METHOD = lambda do |klazz, (source, target)|
       klazz.class_eval do
-        define_method source do |this, *args, **params, &λ|
-          case
-          when !args.empty? && !params.empty? then this.send(target, *args, **params, &λ)
-          when !args.empty? then this.send(target, *args, &λ)
-          when !params.empty? then this.send(target, **params, &λ)
-          else this.send(target, &λ)
-          end
-        end
+        define_method(source, &Dry::DEFINE_METHOD.curry[target])
       end
     end
 
@@ -77,7 +67,6 @@ module Dry
       end.enable
     end
 
-
     def defimpl(protocol = nil, target: nil, delegate: [], map: {})
       raise if target.nil? || !block_given? && delegate.empty? && map.empty?
 
@@ -128,8 +117,6 @@ module Dry
   # rubocop:enable Style/MethodName
   # rubocop:enable Metrics/AbcSize
   # rubocop:enable Metrics/CyclomaticComplexity
-  # rubocop:enable Metrics/PerceivedComplexity
-  # rubocop:enable Style/EmptyCaseCondition
+  # rubocop:enable Metrics/MethodLength
   # rubocop:enable Style/MultilineBlockChain
-  # rubocop:enable Style/AsciiIdentifiers
 end

data/lib/dry/behaviour/cerberus.rb

@@ -0,0 +1,112 @@
+module Dry
+  module Cerberus
+    POSTPONE_FIX_CLAUSES = lambda do |guarded|
+      TracePoint.new(:end) do |tp|
+        if tp.self == guarded
+          H.umbrellas(guarded)
+          tp.disable
+        end
+      end.enable
+    end
+
+    @adding_alias = false
+
+    def guarded_methods
+      @guarded_methods ||= {}
+    end
+
+    # [[:req, :p], [:opt, :po], [:rest, :a], [:key, :when], [:keyrest, :b], [:block, :cb]]
+    def method_added(name)
+      return if @adding_alias
+
+      m = instance_method(name)
+      key = m.parameters.any? { |(k, v)| k == :key && v == :when } ? H.extract_when(m) : m.arity
+      key = case key
+            when String then instance_eval(key)
+            when -Float::INFINITY...0 then nil
+            else key
+            end
+      (guarded_methods[name] ||= {})[key] = m
+
+      @adding_alias = true
+      alias_name = H.alias_name(m, guarded_methods[name].size.pred)
+      alias_method alias_name, name
+      private alias_name
+      @adding_alias = false
+    end
+
+    module H
+      CONCAT = '_★_'.freeze
+
+      module_function
+
+      def extract_when(m)
+        file, line = m.source_location
+        raise ::Dry::Guards::NotGuardable.new(m, :nil) if file.nil?
+
+        File.readlines(file)[line - 1..-1].join(' ')[/(?<=when:).*/].tap do |guard|
+          raise ::Dry::Guards::NotGuardable.new(m, :when_is_nil) if guard.nil?
+          clause = parse_hash guard
+          raise ::Dry::Guards::NotGuardable.new(m, :when_not_hash) unless clause.is_a?(String)
+          guard.replace clause
+        end
+      rescue Errno::ENOENT => e
+        raise ::Dry::Guards::NotGuardable.new(m, e)
+      end
+
+      def alias_name(m, idx)
+        :"#{m && m.name}#{CONCAT}#{idx}"
+      end
+
+      def parse_hash(input)
+        input.each_codepoint
+             .drop_while { |cp| cp != 123 }
+             .each_with_object(['', 0]) do |cp, acc|
+          case cp
+          when 123 then acc[-1] = acc.last.succ
+          when 125 then acc[-1] = acc.last.pred
+          end
+          acc.first << cp
+          break acc.first if acc.last.zero?
+        end
+      end
+
+      def umbrellas(guarded)
+        guarded.guarded_methods.reject! do |_, hash|
+          next unless hash.size == 1 && hash.keys.first.is_a?(Integer)
+          guarded.send :remove_method, alias_name(hash.values.first, 0)
+        end
+        # guarded.guarded_methods.each(&H.method(:umbrella).to_proc.curry[guarded])
+        guarded.guarded_methods.each do |name, clauses|
+          H.umbrella(guarded, name, clauses)
+        end
+      end
+
+      def umbrella(guarded, name, clauses)
+        guarded.prepend(Module.new do
+          define_method name do |*args, **params, &cb|
+            found = clauses.each_with_index.detect do |(hash, m), idx|
+              next if m.arity >= 0 && m.arity != args.size
+              break [[hash, m], idx] if case hash
+                                        when NilClass then m.arity < 0
+                                        when Integer then hash == args.size
+                                        end
+              next if hash.nil?
+              hash.all? do |param, condition|
+                idx = m.parameters.index { |_type, var| var == param }
+                # rubocop:disable Style/CaseEquality
+                # rubocop:disable Style/RescueModifier
+                idx && condition === args[idx] rescue false # FIXME: more accurate
+                # rubocop:enable Style/RescueModifier
+                # rubocop:enable Style/CaseEquality
+              end
+            end
+            raise ::Dry::Guards::NotMatched.new(*args, **params, &cb) unless found
+            ::Dry::DEFINE_METHOD.(H.alias_name(found.first.last, found.last), self, *args, **params, &cb)
+          end
+        end)
+      end
+    end
+    private_constant :H
+  end
+end

data/lib/dry/behaviour/version.rb

@@ -1,5 +1,5 @@
 module Dry
   module Behaviour
-    VERSION = '0.4.2'.freeze
+    VERSION = '0.5.0'.freeze
   end
 end

data/lib/dry/behaviour.rb

@@ -1,12 +1,25 @@
 require 'dry/behaviour/version'
-require 'dry/errors/not_implemented'
-require 'dry/errors/not_protocol'
+require 'dry/errors'
 require 'dry/behaviour/black_tie'
+require 'dry/behaviour/cerberus'
 
 module Dry
+  # rubocop:disable Style/AsciiIdentifiers
+  # rubocop:disable Style/EmptyCaseCondition
+  DEFINE_METHOD = lambda do |target, this, *args, **params, &λ|
+    case
+    when !args.empty? && !params.empty? then this.send(target, *args, **params, &λ)
+    when !args.empty? then this.send(target, *args, &λ)
+    when !params.empty? then this.send(target, **params, &λ)
+    else this.send(target, &λ)
+    end
+  end
+  # rubocop:enable Style/EmptyCaseCondition
+  # rubocop:enable Style/AsciiIdentifiers
+
   module Protocol
     def self.included(base)
-      base.singleton_class.prepend(Dry::BlackTie)
+      base.singleton_class.prepend(::Dry::BlackTie)
     end
 
     class << self
@@ -16,10 +29,19 @@ module Dry
       end
       # rubocop:enable Style/AsciiIdentifiers
 
+      # rubocop:disable Style/RaiseArgs
       def implemented_for?(protocol, receiver)
-        raise NotProtocol.new(protocol) unless protocol < ::Dry::Protocol
+        raise ::Dry::Protocol::NotProtocol.new(protocol) unless protocol < ::Dry::Protocol
         !protocol.implementation_for(receiver).nil?
       end
+      # rubocop:enable Style/RaiseArgs
+    end
+  end
+
+  module Guards
+    def self.included(base)
+      ::Dry::Cerberus::POSTPONE_FIX_CLAUSES.(base)
+      base.singleton_class.prepend(::Dry::Cerberus)
     end
   end
 end

data/lib/dry/errors/not_guardable.rb

@@ -0,0 +1,15 @@
+module Dry
+  module Guards
+    class NotGuardable < StandardError
+      def initialize(method, cause)
+        reason = case cause
+                 when :nil then 'source location is inavailable'
+                 when Errno::ENOENT then "source file could not be read [#{cause.message}]"
+                 when :when_is_nil then 'when clause is missing'
+                 when :when_not_hash then 'when clause is not a hash'
+                 end
+        super "Can’t guard method “#{method.inspect}” (#{reason}.)"
+      end
+    end
+  end
+end

data/lib/dry/errors/not_matched.rb

@@ -0,0 +1,9 @@
+module Dry
+  module Guards
+    class NotMatched < StandardError
+      def initialize(*args, **params, &cb)
+        super "Clause not matched. Parameters supplied: [args: #{args.inspect}, params: #{params.inspect}, cb: #{cb.inspect}]"
+      end
+    end
+  end
+end

data/lib/dry/errors.rb

@@ -0,0 +1,4 @@
+require 'dry/errors/not_implemented'
+require 'dry/errors/not_protocol'
+require 'dry/errors/not_guardable'
+require 'dry/errors/not_matched'

metadata

@@ -1,7 +1,7 @@
 --- !ruby/object:Gem::Specification
 name: dry-behaviour
 version: !ruby/object:Gem::Version
-  version: 0.4.2
+  version: 0.5.0
 platform: ruby
 authors:
 - Aleksei Matiushkin
@@ -10,7 +10,7 @@ authors:
 autorequire: 
 bindir: bin
 cert_chain: []
-date: 2017-01-16 00:00:00.000000000 Z
+date: 2017-04-11 00:00:00.000000000 Z
 dependencies:
 - !ruby/object:Gem::Dependency
   name: bundler
@@ -26,6 +26,20 @@ dependencies:
     - - "~>"
       - !ruby/object:Gem::Version
         version: '1.10'
+- !ruby/object:Gem::Dependency
+  name: awesome_print
+  requirement: !ruby/object:Gem::Requirement
+    requirements:
+    - - "~>"
+      - !ruby/object:Gem::Version
+        version: '1.7'
+  type: :development
+  prerelease: false
+  version_requirements: !ruby/object:Gem::Requirement
+    requirements:
+    - - "~>"
+      - !ruby/object:Gem::Version
+        version: '1.7'
 - !ruby/object:Gem::Dependency
   name: rake
   requirement: !ruby/object:Gem::Requirement
@@ -92,8 +106,12 @@ files:
 - dry-behaviour.gemspec
 - lib/dry/behaviour.rb
 - lib/dry/behaviour/black_tie.rb
+- lib/dry/behaviour/cerberus.rb
 - lib/dry/behaviour/version.rb
+- lib/dry/errors.rb
+- lib/dry/errors/not_guardable.rb
 - lib/dry/errors/not_implemented.rb
+- lib/dry/errors/not_matched.rb
 - lib/dry/errors/not_protocol.rb
 homepage: https://kantox.com/
 licenses: