rambda 0.0.1

data/README.rst

@@ -0,0 +1,27 @@
+Rambda
+================================================================================
+
+Examples
+--------------------------------------------------------------------------------
+
+.. code:: ruby
+
+  require 'rambda'
+  include Rambda::Mixin
+
+  f = λ.x.y{x}
+  f.(1, 2) # => 1
+  f.(1).(2) # => 1
+
+  inc = λ{literal(1).+}
+  inc.(42) # => 43
+
+  hello = λ{print "hello "}
+  hello.("world") # => hello world
+
+Installation
+--------------------------------------------------------------------------------
+
+.. code:: sh
+
+  gem install rambda

data/lib/rambda.rb

@@ -0,0 +1,9 @@
+module Rambda
+
+  require 'rambda/itself'
+  require 'rambda/message'
+  require 'rambda/body'
+  require 'rambda/rambda'
+  require 'rambda/params'
+  require 'rambda/mixin'
+end

data/lib/rambda/body.rb

@@ -0,0 +1,38 @@
+require 'rambda/itself'
+require 'rambda/message'
+
+module Rambda
+
+  class Body < BasicObject
+
+    private *instance_methods
+    private
+
+    def initialize(receiver, params, args)
+      @receiver = receiver
+      @params = params
+      @args = args
+    end
+
+    def method_missing(name, *args, &block)
+      case name
+      when *@params
+        if args.empty? and block.nil?
+          Itself.new(@args[@params.index(name)])
+        else
+          Message.new(@args[@params.index(name)], :call, *args, &block)
+        end
+      else
+        Message.new(@receiver, name, *args, &block)
+      end
+    end
+
+    def literal(val)
+      Itself.new(val)
+    end
+
+    def to_proc
+      ->(*args, &block) { instance_exec(*args, &block) }
+    end
+  end
+end

data/lib/rambda/itself.rb

@@ -0,0 +1,21 @@
+require 'rambda/message'
+
+module Rambda
+
+  class Itself < BasicObject
+    protected *instance_methods
+    protected
+
+    def initialize(receiver)
+      @receiver = receiver
+    end
+
+    def method_missing(name, *args, &block)
+      Message.new(@receiver, name, *args, &block)
+    end
+
+    def to_proc
+      -> { @receiver }
+    end
+  end
+end

data/lib/rambda/message.rb

@@ -0,0 +1,29 @@
+module Rambda
+
+  class Message < BasicObject
+    protected *instance_methods
+    protected
+
+    def initialize(receiver, name, *args, &block)
+      @receiver = receiver
+      @name = name
+      @args = args
+      @block = block
+    end
+
+    def method_missing(name, *args, &block)
+      Message.new(self, name, *args, &block)
+    end
+
+    def to_proc
+      case @receiver
+      when Message
+        r = ::Object.send(:lambda, &@receiver).()
+      else
+        r = @receiver
+      end
+
+      ->(*args) { r.send(@name, *@args, *args, &@block) }
+    end
+  end
+end

data/lib/rambda/mixin.rb

@@ -0,0 +1,19 @@
+# -*- coding: utf-8 -*-
+require 'rambda'
+
+module Rambda
+
+  module Mixin
+
+    def rambda(&block)
+      if block_given?
+        Rambda.new(self, [], [], block).()
+      else
+        Params.new(self, [])
+      end
+    end
+
+    alias λ rambda
+  end
+end
+

data/lib/rambda/params.rb

@@ -0,0 +1,23 @@
+require 'rambda/rambda'
+
+module Rambda
+
+  class Params < BasicObject
+
+    protected *instance_methods
+    protected
+
+    def initialize(receiver, params)
+      @receiver = receiver
+      @params = params
+    end
+
+    def method_missing(param, &block)
+      if block
+        Rambda.new(@receiver, [*@params, param], [], block)
+      else
+        Params.new(@receiver, [*@params, param])
+      end
+    end
+  end
+end

data/lib/rambda/rambda.rb

@@ -0,0 +1,34 @@
+require 'rambda/itself'
+require 'rambda/message'
+require 'rambda/body'
+
+module Rambda
+
+  class Rambda
+
+    def initialize(receiver, params, args, block)
+      @receiver = receiver
+      @params = params
+      @args = args 
+      @block = block
+    end
+
+    def call(*args, &block)
+      args << block if block
+
+      if @params.size > (@args + args).size
+        Rambda.new(@receiver, @params, (@args + args), @block)
+      else
+        r = lambda(&Body.new(@receiver, @params, (@args + args))).(&@block)
+        case r
+        when Itself
+          lambda(&r).()
+        when Message
+          lambda(&r)
+        else
+          r
+        end
+      end
+    end
+  end
+end

data/rambda.gemspec

@@ -0,0 +1,14 @@
+version = File.read("VERSION").chomp
+Gem::Specification.new do |s|
+  s.name = "rambda"
+  s.version = version
+  s.authors = ["pasberth"]
+  s.description = %{A lambda DSL, supports auto currying}
+  s.summary = %q{experimental release}
+  s.email = "pasberth@gmail.com"
+  s.homepage = "https://github.com/pasberth/rambda"
+  s.require_paths = ["lib"]
+  s.files = `git ls-files`.split("\n")
+  s.test_files = `git ls-files -- spec/*`.split("\n")
+  s.add_development_dependency "rspec"
+end

data/spec/rambda_spec.rb

@@ -0,0 +1,51 @@
+require 'rambda'
+
+describe "#rambda" do
+
+  include Rambda::Mixin
+
+  example do
+    t = rambda.x.y{x}
+    t.(1,2).should == 1
+  end
+
+  example do
+    f = rambda.x.y{y}
+    f.(1,2).should == 2
+  end
+
+  example do
+    inc = rambda{literal(1).+}
+    inc.(42).should == 43
+  end
+
+  example do
+    crr = rambda.x{x.+}
+    crr.("foo").("bar").should == "foobar"
+  end
+
+  example do
+    crr = rambda{is_a?}
+    crr.(self.class).should be_true
+  end
+
+  example do
+    crr = rambda{send(:is_a?)}
+    crr.(self.class).should be_true
+  end
+
+  example do
+    crr = rambda{self.equal?}
+    crr.(self).should be_true
+  end
+
+  pending do
+    cons = rambda.a.b.f{f(a, b)}
+    car = rambda.x.y{x}
+    cdr = rambda.x.y{y}
+    l = cons.(1, cons.(2,3))
+    l.(car).().should == 1
+    l.(cdr).(car).().should == 2
+    l.(cdr).(cdr).().should == 3
+  end
+end

metadata

@@ -0,0 +1,72 @@
+--- !ruby/object:Gem::Specification
+name: rambda
+version: !ruby/object:Gem::Version
+  version: 0.0.1
+  prerelease: 
+platform: ruby
+authors:
+- pasberth
+autorequire: 
+bindir: bin
+cert_chain: []
+date: 2013-04-09 00:00:00.000000000 Z
+dependencies:
+- !ruby/object:Gem::Dependency
+  name: rspec
+  requirement: !ruby/object:Gem::Requirement
+    none: false
+    requirements:
+    - - ! '>='
+      - !ruby/object:Gem::Version
+        version: '0'
+  type: :development
+  prerelease: false
+  version_requirements: !ruby/object:Gem::Requirement
+    none: false
+    requirements:
+    - - ! '>='
+      - !ruby/object:Gem::Version
+        version: '0'
+description: A lambda DSL, supports auto currying
+email: pasberth@gmail.com
+executables: []
+extensions: []
+extra_rdoc_files: []
+files:
+- README.rst
+- lib/rambda.rb
+- lib/rambda/body.rb
+- lib/rambda/itself.rb
+- lib/rambda/message.rb
+- lib/rambda/mixin.rb
+- lib/rambda/params.rb
+- lib/rambda/rambda.rb
+- rambda.gemspec
+- spec/rambda_spec.rb
+homepage: https://github.com/pasberth/rambda
+licenses: []
+post_install_message: 
+rdoc_options: []
+require_paths:
+- lib
+required_ruby_version: !ruby/object:Gem::Requirement
+  none: false
+  requirements:
+  - - ! '>='
+    - !ruby/object:Gem::Version
+      version: '0'
+required_rubygems_version: !ruby/object:Gem::Requirement
+  none: false
+  requirements:
+  - - ! '>='
+    - !ruby/object:Gem::Version
+      version: '0'
+requirements: []
+rubyforge_project: 
+rubygems_version: 1.8.24
+signing_key: 
+specification_version: 3
+summary: experimental release
+test_files:
+- spec/rambda_spec.rb
+has_rdoc: