kind 3.1.0 → 5.2.0

data/kind.gemspec

@@ -10,7 +10,7 @@ Gem::Specification.new do |spec|
   spec.description   = %q{A simple type system (at runtime) for Ruby - free of dependencies.}
   spec.homepage      = 'https://github.com/serradura/kind'
   spec.license       = 'MIT'
-  spec.required_ruby_version = Gem::Requirement.new('>= 2.2.0')
+  spec.required_ruby_version = Gem::Requirement.new('>= 2.1.0')
 
   spec.metadata['homepage_uri'] = spec.homepage
   spec.metadata['source_code_uri'] = 'https://github.com/serradura/kind'

data/lib/kind.rb

@@ -1,316 +1,4 @@
 # frozen_string_literal: true
 
-require 'kind/version'
-
-require 'ostruct'
-
-require 'kind/empty'
-require 'kind/undefined'
-require 'kind/checker'
-require 'kind/maybe'
-
-require 'kind/error'
-require 'kind/of'
-require 'kind/is'
-require 'kind/types'
-
-module Kind
-  WRONG_NUMBER_OF_ARGUMENTS = 'wrong number of arguments (given 1, expected 2)'.freeze
-
-  private_constant :WRONG_NUMBER_OF_ARGUMENTS
-
-  def self.is(expected = Undefined, object = Undefined)
-    return Is if Undefined == expected && Undefined == object
-
-    return Kind::Is.(expected, object) if Undefined != object
-
-    raise ArgumentError, WRONG_NUMBER_OF_ARGUMENTS
-  end
-
-  def self.of(kind = Undefined, object = Undefined)
-    return Of if Undefined == kind && Undefined == object
-
-    return Kind::Of.(kind, object) if Undefined != object
-
-    Kind::Checker::Factory.create(kind)
-  end
-
-  def self.of?(kind, *args)
-    Kind.of(kind).instance?(*args)
-  end
-
-  # --------------------- #
-  # Special type checkers #
-  # --------------------- #
-
-  module Is
-    def self.Class(value)
-      value.kind_of?(::Class)
-    end
-
-    def self.Module(value)
-      ::Module == value || (value.is_a?(::Module) && !self.Class(value))
-    end
-
-    def self.Boolean(value)
-      Kind.of.Class(value) <= TrueClass || value <= FalseClass
-    end
-
-    def self.Callable(value)
-      value.respond_to?(:call)
-    end
-  end
-
-  module Of
-    # -- Class
-
-    def self.Class(object = Undefined)
-      return Class if Undefined == object
-
-      self.call(::Class, object)
-    end
-
-    const_set(:Class, ::Module.new do
-      extend Checker::Protocol
-
-      def self.__kind; ::Class; end
-
-      def self.class?(value); Kind::Is.Class(value); end
-
-      def self.__is_instance__(value); class?(value); end
-    end)
-
-    def self.Class?(*args)
-      Kind::Of::Class.instance?(*args)
-    end
-
-    # -- Module
-
-    def self.Module(object = Undefined)
-      return Module if Undefined == object
-
-      self.call(::Module, object)
-    end
-
-    const_set(:Module, ::Module.new do
-      extend Checker::Protocol
-
-      def self.__kind_undefined(value)
-        __kind_error(Kind::Undefined) if Kind::Undefined == value
-
-        yield
-      end
-
-      def self.__kind_error(value)
-        raise Kind::Error.new('Module'.freeze, value)
-      end
-
-      def self.__kind_of(value)
-        return value if Kind::Is.Module(value)
-
-        __kind_error(value)
-      end
-
-      def self.__kind; ::Module; end
-
-      def self.class?(value); Kind::Is.Module(value); end
-
-      def self.instance(value, options = Empty::HASH)
-        default = options[:or]
-
-        if ::Kind::Maybe::Value.none?(default)
-          __kind_undefined(value) { __kind_of(value) }
-        else
-          return value if Kind::Undefined != value && instance?(value)
-
-          __kind_undefined(default) { __kind_of(default) }
-        end
-      end
-
-      def self.__is_instance__(value); class?(value); end
-    end)
-
-    def self.Module?(*args)
-      Kind::Of::Module.instance?(*args)
-    end
-
-    # -- Boolean
-
-    def self.Boolean(object = Undefined, options = Empty::HASH)
-      default = options[:or]
-
-      return Kind::Of::Boolean if Undefined == object && default.nil?
-
-      bool = object.nil? ? default : object
-
-      return bool if bool.is_a?(::TrueClass) || bool.is_a?(::FalseClass)
-
-      raise Kind::Error.new('Boolean'.freeze, bool)
-    end
-
-    const_set(:Boolean, ::Module.new do
-      extend Checker::Protocol
-
-      def self.__kind; [TrueClass, FalseClass].freeze; end
-
-      def self.class?(value); Kind.is.Boolean(value); end
-
-      def self.instance(value, options= Empty::HASH)
-        default = options[:or]
-
-        if ::Kind::Maybe::Value.none?(default)
-          __kind_undefined(value) { Kind::Of::Boolean(value) }
-        else
-          return value if Kind::Undefined != value && instance?(value)
-
-          __kind_undefined(default) { Kind::Of::Boolean(default) }
-        end
-      end
-
-      def self.__kind_undefined(value)
-        if Kind::Undefined == value
-          raise Kind::Error.new('Boolean'.freeze, Kind::Undefined)
-        else
-          yield
-        end
-      end
-
-      def self.__is_instance__(value);
-        value.is_a?(TrueClass) || value.is_a?(FalseClass)
-      end
-
-      def self.or_undefined(value)
-        result = or_nil(value)
-        result.nil? ? Kind::Undefined : result
-      end
-    end)
-
-    def self.Boolean?(*args)
-      Kind::Of::Boolean.instance?(*args)
-    end
-
-    # -- Lambda
-
-    def self.Lambda(object = Undefined, options = Empty::HASH)
-      default = options[:or]
-
-      return Kind::Of::Lambda if Undefined == object && default.nil?
-
-      func = object || default
-
-      return func if func.is_a?(::Proc) && func.lambda?
-
-      raise Kind::Error.new('Lambda'.freeze, func)
-    end
-
-    const_set(:Lambda, ::Module.new do
-      extend Checker::Protocol
-
-      def self.__kind; ::Proc; end
-
-      def self.instance(value, options = Empty::HASH)
-        default = options[:or]
-
-        if ::Kind::Maybe::Value.none?(default)
-          __kind_undefined(value) { Kind::Of::Lambda(value) }
-        else
-          return value if Kind::Undefined != value && instance?(value)
-
-          __kind_undefined(default) { Kind::Of::Lambda(default) }
-        end
-      end
-
-      def self.__kind_undefined(value)
-        if Kind::Undefined == value
-          raise Kind::Error.new('Lambda'.freeze, Kind::Undefined)
-        else
-          yield
-        end
-      end
-
-      def self.__is_instance__(value)
-        value.is_a?(__kind) && value.lambda?
-      end
-    end)
-
-    def self.Lambda?(*args)
-      Kind::Of::Lambda.instance?(*args)
-    end
-
-    # -- Callable
-
-    def self.Callable(object = Undefined, options = Empty::HASH)
-      default = options[:or]
-
-      return Kind::Of::Callable if Undefined == object && default.nil?
-
-      callable = object || default
-
-      return callable if callable.respond_to?(:call)
-
-      raise Kind::Error.new('Callable'.freeze, callable)
-    end
-
-    const_set(:Callable, ::Module.new do
-      extend Checker::Protocol
-
-      def self.__kind; Object; end
-
-      def self.class?(value)
-        Kind::Is::Callable(value)
-      end
-
-      def self.instance(value, options = Empty::HASH)
-        default = options[:or]
-
-        if ::Kind::Maybe::Value.none?(default)
-          __kind_undefined(value) { Kind::Of::Callable(value) }
-        else
-          return value if Kind::Undefined != value && instance?(value)
-
-          __kind_undefined(default) { Kind::Of::Callable(default) }
-        end
-      end
-
-      def self.__kind_undefined(value)
-        if Kind::Undefined == value
-          raise Kind::Error.new('Callable'.freeze, Kind::Undefined)
-        else
-          yield
-        end
-      end
-
-      def self.__is_instance__(value);
-        value.respond_to?(:call)
-      end
-    end)
-
-    def self.Callable?(*args)
-      Kind::Of::Callable.instance?(*args)
-    end
-
-    # ---------------------- #
-    # Built-in type checkers #
-    # ---------------------- #
-
-    # -- Classes
-    [
-      String, Symbol, Numeric, Integer, Float, Regexp, Time,
-      Array, Range, Hash, Struct, Enumerator, Set, OpenStruct,
-      Method, Proc,
-      IO, File
-    ].each { |klass| Types.add(klass) }
-
-    Types.add(Queue, name: 'Queue'.freeze)
-
-    # -- Modules
-    [
-      Enumerable, Comparable
-    ].each { |klass| Types.add(klass) }
-
-    # -- Kind::Of::Maybe
-
-    Types.add(Kind::Maybe::Result, name: 'Maybe'.freeze)
-    Types.add(Kind::Maybe::Result, name: 'Optional'.freeze)
-  end
-end
+require 'kind/basic'
+require 'kind/objects'

data/lib/kind/__lib__/attributes.rb

@@ -0,0 +1,66 @@
+# frozen_string_literal: true
+
+require 'kind/__lib__/kind'
+require 'kind/__lib__/undefined'
+
+module Kind
+  module ATTRIBUTES
+    extend self
+
+    def name!(name)
+      KIND.of!(::Symbol, name)
+    end
+
+    def value(kind, default, visibility = :private)
+      [kind, default, visibility]
+    end
+
+    def value_to_assign(kind, default, hash, name)
+      raw_value = hash[name]
+
+      return raw_value if kind.nil? && UNDEFINED == default
+
+      value = resolve_value_to_assign(kind, default, raw_value)
+
+      (kind.nil? || kind === value) ? value : nil
+    end
+
+    def value!(kind, default)
+      return value(kind, default) unless kind.nil?
+
+      raise Error.new("kind expected to not be nil")
+    end
+
+    def value_to_assign!(kind, default, hash, name)
+      value = resolve_value_to_assign(kind, default, hash[name])
+
+      Kind.of(kind, value, label: name)
+    end
+
+    private
+
+      def resolve_value_to_assign(kind, default, value)
+        if kind == ::Proc
+          UNDEFINED == default ? value : KIND.value(kind, value, default)
+        else
+          default_is_a_callable = default.respond_to?(:call)
+
+          default_value =
+            if default_is_a_callable
+              default_fn = Proc === default ? default : default.method(:call)
+
+              default_fn.arity != 0 ? default_fn.call(value) : default_fn.call
+            else
+              default
+            end
+
+          return value if UNDEFINED == default_value
+          return default_value || value if kind.nil?
+
+          default_is_a_callable ? KIND.value(kind, default_value, value) : KIND.value(kind, value, default_value)
+        end
+      end
+  end
+
+  private_constant :ATTRIBUTES
+end

data/lib/kind/__lib__/kind.rb

@@ -0,0 +1,71 @@
+# frozen_string_literal: true
+
+module Kind
+  module KIND
+    extend self
+
+    def null?(value) # :nodoc:
+      value.nil? || Undefined == value
+    end
+
+    def of?(kind, values) # :nodoc:
+      of_kind = -> value { kind === value }
+
+      values.empty? ? of_kind : values.all?(&of_kind)
+    end
+
+    def of!(kind, value, kind_name = nil) # :nodoc:
+      return value if kind === value
+
+      error!(kind_name || kind.name, value)
+    end
+
+    def error!(kind_name, value, label = nil) # :nodoc:
+      raise Error.new(kind_name, value, label: label)
+    end
+
+    def of_class?(value) # :nodoc:
+      value.kind_of?(::Class)
+    end
+
+    def of_module?(value) # :nodoc:
+      ::Module == value || (value.kind_of?(::Module) && !of_class?(value))
+    end
+
+    def of_module_or_class!(value) # :nodoc:
+      of!(::Module, value, 'Module/Class')
+    end
+
+    def respond_to!(method_name, value) # :nodoc:
+      return value if value.respond_to?(method_name)
+
+      raise Error.new("expected #{value} to respond to :#{method_name}")
+    end
+
+    def interface?(method_names, value) # :nodoc:
+      method_names.all? { |method_name| value.respond_to?(method_name) }
+    end
+
+    def value(kind, arg, default) # :nodoc:
+      kind === arg ? arg : default
+    end
+
+    def is?(expected, value) # :nodoc:
+      is(of_module_or_class!(expected), value)
+    end
+
+    private
+
+      def is(expected_kind, value) # :nodoc:
+        kind = of_module_or_class!(value)
+
+        if of_class?(kind)
+          kind <= expected_kind || expected_kind == ::Class
+        else
+          kind == expected_kind || kind.kind_of?(expected_kind)
+        end
+      end
+  end
+
+  private_constant :KIND
+end