lambda_driver 1.1.2 → 1.2.0

data/.gitignore

@@ -17,3 +17,4 @@ test/version_tmp
 tmp
 vendor/
 .rbenv-version
+.ruby-version

data/.travis.yml

@@ -1,6 +1,7 @@
 language: ruby
 rvm:
   - 1.8.7
-  - 1.9.2
   - 1.9.3
+  - 2.0.0
+  - 2.1.0
 script: bundle exec rspec spec

data/README.md

@@ -82,6 +82,31 @@ This method is aliased as `<<`.
   f << g < :hoge  # => "44" ( == f.call(g.call(:hoge)) )
 ```
 
+
+#### Proc#compose_with_lifting
+
+compose self and give fuction with checking g(x) is mzero.
+if g(x) is mzero, it does not call self and return g(x),
+otherwise returns f(g(x)).
+
+mzero means the object is nil or emtpy
+
+```ruby
+   hash = {:a => "foo"}
+   f = lambda{|y| y.length }
+   g = lambda{|y| hash[y]}
+   h = f.compose_with_lifting g
+   h.(:a) # => 3
+   h.(:b) # => nil (it does not called f)
+```
+
+This method is aliased as `<=`.
+
+```ruby
+  f <= g # => f.compose_with_lifting(g)
+```
+
+
 #### Proc#with_args
 
 Returns partially applied function that has 2nd and more parameters are

data/lib/lambda_driver/core_ext/method.rb

@@ -1,4 +1,5 @@
 class Method
   include LambdaDriver::Callable
   include LambdaDriver::Currying if RUBY_VERSION < '1.9.0'
+  include LambdaDriver::Liftable
 end

data/lib/lambda_driver/core_ext/object.rb

@@ -2,4 +2,5 @@ class Object
   include LambdaDriver::Op::Proxy
   include LambdaDriver::Revapply
   include LambdaDriver::Disjunction
+  include LambdaDriver::Mzero
 end

data/lib/lambda_driver/core_ext/proc.rb

@@ -1,4 +1,5 @@
 class Proc
   include LambdaDriver::Callable
   include LambdaDriver::Currying if RUBY_VERSION < '1.9.0'
+  include LambdaDriver::Liftable
 end

data/lib/lambda_driver/liftable.rb

@@ -0,0 +1,35 @@
+module LambdaDriver::Liftable
+
+  # compose self and give fuction with checking g(x) is mzero.
+  # if g(x) is mzero, it does not call self and return g(x),
+  # otherwise returns f(g(x)).
+  #
+  # mzero means the object is nil or emtpy
+  #
+  #   hash = {:a => "foo"}
+  #   f = lambda{|y| y.length }
+  #   g = lambda{|y| hash[y]}
+  #   h = f.compose_with_lifting g
+  #   h.(:a) # => 3
+  #   h.(:b) # => nil (it does not called f)
+  #
+  # This method is aliased as `<=`.
+  #
+  #   f <= g # => f.compose_with_lifting(g)
+  #
+  def compose_with_lifting(g)
+    lambda{|*args|
+      result = g.to_proc.call(*args)
+      mzero_method = result.respond_to?(:mzero?) ? :mzero? : :nil?
+      result.send(mzero_method) ? result : self.to_proc.call(result)
+    }
+  end
+
+  def >=(g)
+    g.to_proc <= self
+  end
+
+  def self.included(klass)
+    klass.send(:alias_method, :<=, :compose_with_lifting)
+  end
+end

data/lib/lambda_driver/mzero.rb

@@ -0,0 +1,6 @@
+module LambdaDriver::Mzero
+  def mzero?
+    mzero_method = self.respond_to?(:empty?) ? :empty? : :nil?
+    self.send(mzero_method)
+  end
+end

data/lib/lambda_driver/version.rb

@@ -1,3 +1,3 @@
 module LambdaDriver
-  VERSION = "1.1.2"
+  VERSION = "1.2.0"
 end

data/spec/lambda_spec.rb

@@ -7,6 +7,12 @@ describe 'lambda' do
     it_should_behave_like 'composable'
   end
 
+  describe '#compose_with_lifting' do
+    subject { lambda{|x| x.mzero? ? x : x.to_s} }
+
+    it_should_behave_like 'liftable'
+  end
+
   describe '#with_args' do
     subject { lambda{|x, y, *z| [x, y] + z.to_a } }
     it_should_behave_like 'with_args'

data/spec/proc_spec.rb

@@ -7,6 +7,12 @@ describe Proc do
     it_should_behave_like 'composable'
   end
 
+  describe '#compose_with_lifting' do
+    subject { Proc.new{|x| x.mzero? ? x : x.to_s} }
+
+    it_should_behave_like 'liftable'
+  end
+
   describe '#with_args' do
     subject { Proc.new{|x, y, *z| [x, y] + z.to_a } }
     it_should_behave_like 'with_args'

data/spec/shared/liftable.rb

@@ -0,0 +1,43 @@
+require 'spec_helper'
+
+shared_examples_for 'liftable' do
+  it { should respond_to :compose_with_lifting }
+  it { should respond_to :>= }
+  it { should respond_to :<= }
+
+  let(:x) { :foo }
+  let(:y) { [1,2] }
+  let(:z) { {:a => 1, :b => 2} }
+  let(:g) { lambda{|x|
+    if x.nil? || (x.respond_to?(:empty?) && x.empty?)
+      raise "g called with nil arg"
+    else
+      (x.to_s * 2) + "_g"
+    end
+    }
+  }
+
+  it('" f >= g" returns function that does not call g if args is mzero'){
+    (subject >= g).should be_a_kind_of Proc
+  }
+
+  it('"(f >= g).call(nil) returns nil and does not call g'){
+    (subject >= g).call(nil).should be_nil
+  }
+  it('"(f >= g).call(x) should be g(f(x))'){
+    (subject >= g).call(x).should == g.call(subject.to_proc.call(x))
+  }
+  it('"(f >= g).call([]) returns [] and does not call g'){
+    (subject >= g).call([]).should == []
+  }
+  it('"(f >= g).call([1,2]) should be g(f([1,2]))'){
+    (subject >= g).call(y).should == g.call(subject.to_proc.call(y))
+  }
+  it('"(f >= g).call({}) returns {} and does not call g'){
+    (subject >= g).call({}).should == {}
+  }
+  it('"(f >= g).call({:a => 1,:b => 2}) should be g(f({:a => 1,  :b => 2}))'){
+    (subject >= g).call(z).should == g.call(subject.to_proc.call(z))
+  }
+
+end

metadata

@@ -1,7 +1,7 @@
 --- !ruby/object:Gem::Specification
 name: lambda_driver
 version: !ruby/object:Gem::Version
-  version: 1.1.2
+  version: 1.2.0
   prerelease: 
 platform: ruby
 authors:
@@ -9,11 +9,11 @@ authors:
 autorequire: 
 bindir: bin
 cert_chain: []
-date: 2013-03-27 00:00:00.000000000Z
+date: 2014-01-28 00:00:00.000000000 Z
 dependencies:
 - !ruby/object:Gem::Dependency
   name: rspec
-  requirement: &70302147613760 !ruby/object:Gem::Requirement
+  requirement: !ruby/object:Gem::Requirement
     none: false
     requirements:
     - - ! '>='
@@ -21,7 +21,12 @@ dependencies:
         version: '0'
   type: :development
   prerelease: false
-  version_requirements: *70302147613760
+  version_requirements: !ruby/object:Gem::Requirement
+    none: false
+    requirements:
+    - - ! '>='
+      - !ruby/object:Gem::Version
+        version: '0'
 description: Drives your code more functioal!
 email:
 - ozaki@yuroyoro.com
@@ -48,6 +53,8 @@ files:
 - lib/lambda_driver/core_ext/unbound_method.rb
 - lib/lambda_driver/currying.rb
 - lib/lambda_driver/disjunction.rb
+- lib/lambda_driver/liftable.rb
+- lib/lambda_driver/mzero.rb
 - lib/lambda_driver/op.rb
 - lib/lambda_driver/revapply.rb
 - lib/lambda_driver/version.rb
@@ -59,6 +66,7 @@ files:
 - spec/proc_spec.rb
 - spec/revapply_spec.rb
 - spec/shared/composable_spec.rb
+- spec/shared/liftable.rb
 - spec/spec_helper.rb
 - spec/symbol_spec.rb
 - spec/unbound_method_spec.rb
@@ -74,15 +82,21 @@ required_ruby_version: !ruby/object:Gem::Requirement
   - - ! '>='
     - !ruby/object:Gem::Version
       version: '0'
+      segments:
+      - 0
+      hash: -920517596245893888
 required_rubygems_version: !ruby/object:Gem::Requirement
   none: false
   requirements:
   - - ! '>='
     - !ruby/object:Gem::Version
       version: '0'
+      segments:
+      - 0
+      hash: -920517596245893888
 requirements: []
 rubyforge_project: 
-rubygems_version: 1.8.10
+rubygems_version: 1.8.23
 signing_key: 
 specification_version: 3
 summary: Drives your code more functioal!
@@ -95,6 +109,7 @@ test_files:
 - spec/proc_spec.rb
 - spec/revapply_spec.rb
 - spec/shared/composable_spec.rb
+- spec/shared/liftable.rb
 - spec/spec_helper.rb
 - spec/symbol_spec.rb
 - spec/unbound_method_spec.rb