rfunk 0.1.0

checksums.yaml

@@ -0,0 +1,7 @@
+---
+SHA1:
+  metadata.gz: c539b96a759a551a6d9fbb57f06415dc09d0cb26
+  data.tar.gz: b5f8bb018a680fcfff0efcc0b18f9e32f4ba4dd5
+SHA512:
+  metadata.gz: 292cf72c0c5f89b49d368453f5183b0063da281ee86531832d07c61183336fb2dae11604a463f4efd19b7671e5e61ec0df9eb2a923152a15d09b6692e9bd82b2
+  data.tar.gz: 4b0b4dae55ee2f40a9a9a79f336a3f8cec5711058d55bec443b0be45e3afecde0ac45cb4053800e95e5820918a67d6a35bcf8ac82d6ef436873de71b61ebe33b

data/lib/rfunk/attribute.rb

@@ -0,0 +1,72 @@
+module RFunk
+  module Attribute
+    ATTRIBUTES_VARIABLE_NAME = '@attributes'
+
+    def self.included(base)
+      base.extend(ClassMethods)
+    end
+
+    def initialize(options = {})
+      attributes = self.class.instance_variable_get(ATTRIBUTES_VARIABLE_NAME)
+
+      options.each { |key, value|
+        raise_not_found(key, attributes)
+
+        type = attributes[key]
+
+        raise_expected_type(key, value, type)
+
+        self.instance_variable_set(variable_name(key), value)
+      }
+    end
+
+    module ClassMethods
+      def attribute(name, type)
+        add_attribute(name, type)
+
+        self.send :define_method, name do |value = nil|
+          if value
+            raise_expected_type(name, value, type)
+            create_immutable(variable_name(name), value)
+          else
+            Option(self.instance_variable_get(variable_name(name)))
+          end
+        end
+      end
+
+      private
+
+      def add_attribute(name, type)
+        attributes = self.instance_variable_get(ATTRIBUTES_VARIABLE_NAME) || {}
+        attributes[name] = type
+        self.instance_variable_set(ATTRIBUTES_VARIABLE_NAME, attributes)
+      end
+    end
+
+    private
+
+    def variable_name(name)
+      "@#{name}"
+    end
+
+    def create_immutable(variable_name, value)
+      self.class.new.tap { |object|
+        self.instance_variables.select { |v| v != variable_name }.each { |v|
+          previous_value = self.instance_variable_get(v)
+          object.instance_variable_set(v, previous_value)
+        }
+
+        object.instance_variable_set(variable_name, value)
+        object.deep_freeze
+      }
+    end
+
+    def raise_expected_type(name, value, type)
+      raise TypeError, "Expected a type of '#{type}' for attribute '#{name}'" unless value.instance_of?(type)
+    end
+
+    def raise_not_found(key, attributes)
+      raise RFunk::NotFoundError, "Attribute with name '#{key}' does not exist. The only available attributes are '#{attributes}'" unless attributes.key?(key)
+    end
+  end
+end

data/lib/rfunk/either.rb

@@ -0,0 +1,29 @@
+module RFunk
+  def Either(value)
+    if lambda?(value)
+      either_with_lambda(value)
+    else
+      either_with_value(value)
+    end
+  end
+
+  private
+
+  def lambda?(value)
+    value.respond_to?(:lambda?) and value.lambda?
+  end
+
+  def either_with_lambda(lambda)
+    RFunk::Success(lambda.call)
+  rescue => e
+    RFunk::Failure(e)
+  end
+
+  def either_with_value(value)
+    if value
+      RFunk::Success(value)
+    else
+      RFunk::Failure(value)
+    end
+  end
+end

data/lib/rfunk/failure.rb

@@ -0,0 +1,19 @@
+module RFunk
+  class Failure < Value
+    def success?
+      false
+    end
+
+    def failure?
+      true
+    end
+
+    def or(value)
+      Failure(value)
+    end
+  end
+
+  def Failure(value)
+    Failure.new(value)
+  end
+end

data/lib/rfunk/lazy.rb

@@ -0,0 +1,25 @@
+module RFunk
+  class Lazy
+    def initialize(lambda)
+      @lambda = lambda
+      @created = false
+    end
+
+    def value
+      Option(@value ||= lambda.call.tap { self.created = true  })
+    end
+
+    def created?
+      created
+    end
+
+    private
+
+    attr_reader :lambda
+    attr_accessor :created
+  end
+
+  def Lazy(lambda)
+    Lazy.new(lambda)
+  end
+end

data/lib/rfunk/none.rb

@@ -0,0 +1,21 @@
+module RFunk
+  class None
+    include Singleton
+
+    def value(default = nil)
+      Option(default)
+    end
+
+    def or(other)
+      Option(other)
+    end
+
+    def method_missing(method, *arguments, &block)
+      self
+    end
+  end
+
+  def None(value = nil)
+    Option(value)
+  end
+end

data/lib/rfunk/not_found_error.rb

@@ -0,0 +1,4 @@
+module RFunk
+  class NotFoundError < StandardError
+  end
+end

data/lib/rfunk/option.rb

@@ -0,0 +1,15 @@
+module RFunk
+  def Option(value)
+    if nothing?(value)
+      None.instance
+    else
+      Some.new(value)
+    end
+  end
+
+  private
+
+  def nothing?(value)
+    value.nil? || (value.respond_to?(:empty?) && value.empty?) || value.is_a?(None)
+  end
+end

data/lib/rfunk/some.rb

@@ -0,0 +1,25 @@
+module RFunk
+  class Some
+    attr_reader :value
+
+    def initialize(value)
+      @value = value
+    end
+
+    def or(_)
+      self
+    end
+
+    def method_missing(method, *arguments, &block)
+      Option(value.__send__(method, *arguments, &block))
+    end
+
+    def ==(other)
+      other.value == value
+    end
+  end
+
+  def Some(value)
+    Option(value)
+  end
+end

data/lib/rfunk/success.rb

@@ -0,0 +1,19 @@
+module RFunk
+  class Success < Value
+    def success?
+      true
+    end
+
+    def failure?
+      false
+    end
+
+    def or(_)
+      self
+    end
+  end
+
+  def Success(value)
+    Success.new(value)
+  end
+end

data/lib/rfunk/value.rb

@@ -0,0 +1,24 @@
+module RFunk
+  class Value
+    def initialize(value)
+      @value = value
+    end
+
+    def result
+      case value
+      when Some, None
+        value
+      else
+        Option(value)
+      end
+    end
+
+    def ==(other)
+      other.result == result
+    end
+
+    private
+
+    attr_reader :value
+  end
+end

data/lib/rfunk/version.rb

@@ -0,0 +1,3 @@
+module RFunk
+  VERSION = '0.1.0'
+end

data/lib/rfunk.rb

@@ -0,0 +1,16 @@
+require 'singleton'
+require 'ice_nine'
+require 'ice_nine/core_ext/object'
+
+require 'rfunk/attribute'
+require 'rfunk/option'
+require 'rfunk/none'
+require 'rfunk/some'
+require 'rfunk/not_found_error'
+require 'rfunk/lazy'
+require 'rfunk/value'
+require 'rfunk/failure'
+require 'rfunk/success'
+require 'rfunk/either'
+
+include RFunk

metadata

@@ -0,0 +1,98 @@
+--- !ruby/object:Gem::Specification
+name: rfunk
+version: !ruby/object:Gem::Version
+  version: 0.1.0
+platform: ruby
+authors:
+- Alex Falkowski
+autorequire: 
+bindir: bin
+cert_chain: []
+date: 2014-03-08 00:00:00.000000000 Z
+dependencies:
+- !ruby/object:Gem::Dependency
+  name: ice_nine
+  requirement: !ruby/object:Gem::Requirement
+    requirements:
+    - - "~>"
+      - !ruby/object:Gem::Version
+        version: 0.11.0
+  type: :runtime
+  prerelease: false
+  version_requirements: !ruby/object:Gem::Requirement
+    requirements:
+    - - "~>"
+      - !ruby/object:Gem::Version
+        version: 0.11.0
+- !ruby/object:Gem::Dependency
+  name: rake
+  requirement: !ruby/object:Gem::Requirement
+    requirements:
+    - - "~>"
+      - !ruby/object:Gem::Version
+        version: 10.1.1
+  type: :development
+  prerelease: false
+  version_requirements: !ruby/object:Gem::Requirement
+    requirements:
+    - - "~>"
+      - !ruby/object:Gem::Version
+        version: 10.1.1
+- !ruby/object:Gem::Dependency
+  name: rspec-given
+  requirement: !ruby/object:Gem::Requirement
+    requirements:
+    - - "~>"
+      - !ruby/object:Gem::Version
+        version: 3.5.4
+  type: :development
+  prerelease: false
+  version_requirements: !ruby/object:Gem::Requirement
+    requirements:
+    - - "~>"
+      - !ruby/object:Gem::Version
+        version: 3.5.4
+description: See https://github.com/alexfalkowski/rfunk/blob/master/README.md
+email:
+- alexrfalkowski@gmail.com
+executables: []
+extensions: []
+extra_rdoc_files: []
+files:
+- lib/rfunk.rb
+- lib/rfunk/attribute.rb
+- lib/rfunk/either.rb
+- lib/rfunk/failure.rb
+- lib/rfunk/lazy.rb
+- lib/rfunk/none.rb
+- lib/rfunk/not_found_error.rb
+- lib/rfunk/option.rb
+- lib/rfunk/some.rb
+- lib/rfunk/success.rb
+- lib/rfunk/value.rb
+- lib/rfunk/version.rb
+homepage: https://github.com/alexfalkowski/rfunk
+licenses:
+- MIT
+metadata: {}
+post_install_message: 
+rdoc_options: []
+require_paths:
+- lib
+required_ruby_version: !ruby/object:Gem::Requirement
+  requirements:
+  - - ">="
+    - !ruby/object:Gem::Version
+      version: '0'
+required_rubygems_version: !ruby/object:Gem::Requirement
+  requirements:
+  - - ">="
+    - !ruby/object:Gem::Version
+      version: '0'
+requirements: []
+rubyforge_project: 
+rubygems_version: 2.2.2
+signing_key: 
+specification_version: 4
+summary: Functional Programming in Ruby
+test_files: []