lab419_core 0.0.4 → 0.0.5

data/lib/lab419/core/comparable.rb

@@ -0,0 +1 @@
+require 'lab419/core/comparable/operators'

data/lib/lab419/core/comparable/operators.rb

@@ -0,0 +1,35 @@
+module Comparable
+  class << self
+
+    LessThan = ->(*args){
+      args.first < args.last
+    }
+    def < arg=nil
+      if arg
+        curried_less_than arg
+      else
+        LessThan
+      end
+    end
+
+    GreaterThan = ->(*args){
+      args.first > args.last
+    }
+    def > arg=nil
+      if arg
+        curried_greater_than arg
+      else
+        GreaterThan
+      end
+    end
+
+
+    private
+    def curried_greater_than arg
+      ->(rhs){ arg < rhs }
+    end
+    def curried_less_than arg
+      ->(rhs){ arg > rhs }
+    end
+  end # class << self
+end # module Comparable

data/lib/lab419/core/extensions/composable_proc.rb

@@ -0,0 +1,43 @@
+require 'lab419/core/proc'
+class ComposableProc
+  attr_reader :my_lambda
+
+  def and lmbda=nil, &block
+    raise ArgumentError, "either use a lambda or a block" if !!block == !!lmbda
+    self.class.new do | *args, &blk |
+      nxt = lmbda || block
+      results = my_lambda.( *args, &blk )
+      if Array === results
+        if nxt.arity < 0 || nxt.arity == results.size
+          nxt.( *results )
+        elsif nxt.arity.zero?
+          nxt.()
+        else
+          nxt.( results )
+        end
+      else
+        nxt.( results )
+      end
+    end
+  end
+  alias_method :+, :and
+
+  def arity; my_lambda.arity end
+
+  def call *args, &blk
+    my_lambda.call( *args, &blk )
+  end
+  alias_method :[], :call
+
+  def to_proc; my_lambda.to_proc end
+
+  class << self
+    def identity; Proc.identity end
+  end
+  
+  private
+  def initialize lmbda=nil, &block
+    raise ArgumentError, "either use a lambda or a block" if !!block == !!lmbda
+    @my_lambda = lmbda || block
+  end
+end

data/lib/lab419/core/kernel.rb

@@ -1,14 +1,15 @@
+require 'lab419/core/extensions/composable_proc'
 module Kernel
 
   def applying *args
     msg_or_lambda = args.shift
     case msg_or_lambda
     when String, Symbol
-      -> *a do
+      ComposableProc.new do |*a|
         send( msg_or_lambda, *(args + a) )
       end
     when Proc
-      -> *a do
+      ComposableProc.new do |*a|
         msg_or_lambda.( *(args + a) )
       end
     else
@@ -16,14 +17,8 @@ module Kernel
     end
   end
 
-  # DEPRECATE: applyto ASAP
-  def applyto *args
-    warn "DEPRECATED: please use applying instead of applyo, it will go away in 0.1"
-    applying( *args )
-  end
-
   def sendmsg *args, &blk
-    -> receiver do 
+    ComposableProc.new do |receiver|
       receiver.send( *args, &blk )
     end
   end

data/lib/lab419/core/version.rb

@@ -1,5 +1,5 @@
 module Lab419
   module Core
-    VERSION = "0.0.4"
+    VERSION = "0.0.5"
   end # module Core
 end # module Lab419

metadata

@@ -1,7 +1,7 @@
 --- !ruby/object:Gem::Specification
 name: lab419_core
 version: !ruby/object:Gem::Version
-  version: 0.0.4
+  version: 0.0.5
   prerelease: 
 platform: ruby
 authors:
@@ -9,11 +9,11 @@ authors:
 autorequire: 
 bindir: bin
 cert_chain: []
-date: 2012-05-06 00:00:00.000000000Z
+date: 2013-01-19 00:00:00.000000000Z
 dependencies:
 - !ruby/object:Gem::Dependency
   name: ruby-debug19
-  requirement: &74427640 !ruby/object:Gem::Requirement
+  requirement: &79668970 !ruby/object:Gem::Requirement
     none: false
     requirements:
     - - ~>
@@ -21,10 +21,10 @@ dependencies:
         version: '0.11'
   type: :development
   prerelease: false
-  version_requirements: *74427640
+  version_requirements: *79668970
 - !ruby/object:Gem::Dependency
   name: rake
-  requirement: &74427380 !ruby/object:Gem::Requirement
+  requirement: &79668390 !ruby/object:Gem::Requirement
     none: false
     requirements:
     - - ~>
@@ -32,10 +32,10 @@ dependencies:
         version: 0.9.2.2
   type: :development
   prerelease: false
-  version_requirements: *74427380
+  version_requirements: *79668390
 - !ruby/object:Gem::Dependency
   name: rspec
-  requirement: &74427130 !ruby/object:Gem::Requirement
+  requirement: &79668160 !ruby/object:Gem::Requirement
     none: false
     requirements:
     - - ~>
@@ -43,10 +43,10 @@ dependencies:
         version: 2.9.0
   type: :development
   prerelease: false
-  version_requirements: *74427130
+  version_requirements: *79668160
 - !ruby/object:Gem::Dependency
   name: maruku
-  requirement: &74426860 !ruby/object:Gem::Requirement
+  requirement: &79667870 !ruby/object:Gem::Requirement
     none: false
     requirements:
     - - ~>
@@ -54,10 +54,10 @@ dependencies:
         version: 0.6.0
   type: :development
   prerelease: false
-  version_requirements: *74426860
+  version_requirements: *79667870
 - !ruby/object:Gem::Dependency
   name: wirble
-  requirement: &74415330 !ruby/object:Gem::Requirement
+  requirement: &79656360 !ruby/object:Gem::Requirement
     none: false
     requirements:
     - - ~>
@@ -65,14 +65,17 @@ dependencies:
         version: 0.1.3
   type: :development
   prerelease: false
-  version_requirements: *74415330
+  version_requirements: *79656360
 description: Coming Soon
 email: robert.dober@gmail.com
 executables: []
 extensions: []
 extra_rdoc_files: []
 files:
+- lib/lab419/core/extensions/composable_proc.rb
 - lib/lab419/core/object.rb
+- lib/lab419/core/comparable.rb
+- lib/lab419/core/comparable/operators.rb
 - lib/lab419/core/array/flatten_once.rb
 - lib/lab419/core/integer/operators.rb
 - lib/lab419/core/integer/instance_methods.rb