kind 3.1.0 → 5.2.0

data/lib/kind/objects/modules/core/comparable.rb

@@ -0,0 +1,13 @@
+# frozen_string_literal: true
+
+module Kind
+  module Comparable
+    extend self, ::Kind::Object
+
+    def kind; ::Comparable; end
+  end
+
+  def self.Comparable?(*values)
+    KIND.of?(::Comparable, values)
+  end
+end

data/lib/kind/objects/modules/core/enumerable.rb

@@ -0,0 +1,13 @@
+# frozen_string_literal: true
+
+module Kind
+  module Enumerable
+    extend self, ::Kind::Object
+
+    def kind; ::Enumerable; end
+  end
+
+  def self.Enumerable?(*values)
+    KIND.of?(::Enumerable, values)
+  end
+end

data/lib/kind/objects/modules/core/enumerator.rb

@@ -0,0 +1,13 @@
+# frozen_string_literal: true
+
+module Kind
+  module Enumerator
+    extend self, ::Kind::Object
+
+    def kind; ::Enumerator; end
+  end
+
+  def self.Enumerator?(*values)
+    KIND.of?(::Enumerator, values)
+  end
+end

data/lib/kind/objects/modules/core/file.rb

@@ -0,0 +1,13 @@
+# frozen_string_literal: true
+
+module Kind
+  module File
+    extend self, ::Kind::Object
+
+    def kind; ::File; end
+  end
+
+  def self.File?(*values)
+    KIND.of?(::File, values)
+  end
+end

data/lib/kind/objects/modules/core/float.rb

@@ -0,0 +1,13 @@
+# frozen_string_literal: true
+
+module Kind
+  module Float
+    extend self, ::Kind::Object
+
+    def kind; ::Float; end
+  end
+
+  def self.Float?(*values)
+    KIND.of?(::Float, values)
+  end
+end

data/lib/kind/objects/modules/core/hash.rb

@@ -0,0 +1,19 @@
+# frozen_string_literal: true
+
+module Kind
+  module Hash
+    extend self, ::Kind::Object
+
+    def kind; ::Hash; end
+
+    def value_or_empty(arg)
+      KIND.value(self, arg, Empty::HASH)
+    end
+
+    alias empty_or value_or_empty
+  end
+
+  def self.Hash?(*values)
+    KIND.of?(::Hash, values)
+  end
+end

data/lib/kind/objects/modules/core/integer.rb

@@ -0,0 +1,13 @@
+# frozen_string_literal: true
+
+module Kind
+  module Integer
+    extend self, ::Kind::Object
+
+    def kind; ::Integer; end
+  end
+
+  def self.Integer?(*values)
+    KIND.of?(::Integer, values)
+  end
+end

data/lib/kind/objects/modules/core/io.rb

@@ -0,0 +1,13 @@
+# frozen_string_literal: true
+
+module Kind
+  module IO
+    extend self, ::Kind::Object
+
+    def kind; ::IO; end
+  end
+
+  def self.IO?(*values)
+    KIND.of?(::IO, values)
+  end
+end

data/lib/kind/objects/modules/core/method.rb

@@ -0,0 +1,13 @@
+# frozen_string_literal: true
+
+module Kind
+  module Method
+    extend self, ::Kind::Object
+
+    def kind; ::Method; end
+  end
+
+  def self.Method?(*values)
+    KIND.of?(::Method, values)
+  end
+end

data/lib/kind/objects/modules/core/module.rb

@@ -0,0 +1,17 @@
+# frozen_string_literal: true
+
+module Kind
+  module Module
+    extend self, ::Kind::Object
+
+    def kind; ::Module; end
+
+    def ===(value)
+      Kind.of_module?(value)
+    end
+  end
+
+  def self.Module?(*values)
+    KIND.of?(::Kind::Module, values)
+  end
+end

data/lib/kind/objects/modules/core/numeric.rb

@@ -0,0 +1,13 @@
+# frozen_string_literal: true
+
+module Kind
+  module Numeric
+    extend self, ::Kind::Object
+
+    def kind; ::Numeric; end
+  end
+
+  def self.Numeric?(*values)
+    KIND.of?(::Numeric, values)
+  end
+end

data/lib/kind/objects/modules/core/proc.rb

@@ -0,0 +1,13 @@
+# frozen_string_literal: true
+
+module Kind
+  module Proc
+    extend self, ::Kind::Object
+
+    def kind; ::Proc; end
+  end
+
+  def self.Proc?(*values)
+    KIND.of?(::Proc, values)
+  end
+end

data/lib/kind/objects/modules/core/queue.rb

@@ -0,0 +1,14 @@
+# frozen_string_literal: true
+
+module Kind
+  module Queue
+    extend self, ::Kind::Object
+
+    def kind; ::Queue; end
+    def name; 'Queue'; end
+  end
+
+  def self.Queue?(*values)
+    KIND.of?(::Queue, values)
+  end
+end

data/lib/kind/objects/modules/core/range.rb

@@ -0,0 +1,13 @@
+# frozen_string_literal: true
+
+module Kind
+  module Range
+    extend self, ::Kind::Object
+
+    def kind; ::Range; end
+  end
+
+  def self.Range?(*values)
+    KIND.of?(::Range, values)
+  end
+end

data/lib/kind/objects/modules/core/regexp.rb

@@ -0,0 +1,13 @@
+# frozen_string_literal: true
+
+module Kind
+  module Regexp
+    extend self, ::Kind::Object
+
+    def kind; ::Regexp; end
+  end
+
+  def self.Regexp?(*values)
+    KIND.of?(::Regexp, values)
+  end
+end

data/lib/kind/objects/modules/core/string.rb

@@ -0,0 +1,19 @@
+# frozen_string_literal: true
+
+module Kind
+  module String
+    extend self, ::Kind::Object
+
+    def kind; ::String; end
+
+    def value_or_empty(arg)
+      KIND.value(self, arg, Empty::STRING)
+    end
+
+    alias empty_or value_or_empty
+  end
+
+  def self.String?(*values)
+    KIND.of?(::String, values)
+  end
+end

data/lib/kind/objects/modules/core/struct.rb

@@ -0,0 +1,13 @@
+# frozen_string_literal: true
+
+module Kind
+  module Struct
+    extend self, ::Kind::Object
+
+    def kind; ::Struct; end
+  end
+
+  def self.Struct?(*values)
+    KIND.of?(::Struct, values)
+  end
+end

data/lib/kind/objects/modules/core/symbol.rb

@@ -0,0 +1,13 @@
+# frozen_string_literal: true
+
+module Kind
+  module Symbol
+    extend self, ::Kind::Object
+
+    def kind; ::Symbol; end
+  end
+
+  def self.Symbol?(*values)
+    KIND.of?(::Symbol, values)
+  end
+end

data/lib/kind/objects/modules/core/time.rb

@@ -0,0 +1,13 @@
+# frozen_string_literal: true
+
+module Kind
+  module Time
+    extend self, ::Kind::Object
+
+    def kind; ::Time; end
+  end
+
+  def self.Time?(*values)
+    KIND.of?(::Time, values)
+  end
+end

data/lib/kind/objects/modules/custom/boolean.rb

@@ -0,0 +1,19 @@
+# frozen_string_literal: true
+
+module Kind
+  module Boolean
+    extend self, ::Kind::Object
+
+    def kind; [TrueClass, FalseClass]; end
+
+    def name; 'Boolean'; end
+
+    def ===(value)
+      ::TrueClass === value || ::FalseClass === value
+    end
+  end
+
+  def self.Boolean?(*values)
+    KIND.of?(Boolean, values)
+  end
+end

data/lib/kind/objects/modules/custom/callable.rb

@@ -0,0 +1,19 @@
+# frozen_string_literal: true
+
+module Kind
+  module Callable
+    extend self, ::Kind::Object
+
+    def kind; raise NotImplementedError; end
+
+    def name; 'Callable'; end
+
+    def ===(value)
+      value.respond_to?(:call)
+    end
+  end
+
+  def self.Callable?(*values)
+    KIND.of?(Callable, values)
+  end
+end

data/lib/kind/objects/modules/custom/lambda.rb

@@ -0,0 +1,19 @@
+# frozen_string_literal: true
+
+module Kind
+  module Lambda
+    extend self, ::Kind::Object
+
+    def kind; ::Proc; end
+
+    def name; 'Lambda'; end
+
+    def ===(value)
+      value.kind_of?(::Proc) && value.lambda?
+    end
+  end
+
+  def self.Lambda?(*values)
+    KIND.of?(Lambda, values)
+  end
+end

data/lib/kind/objects/modules/stdlib/open_struct.rb

@@ -0,0 +1,15 @@
+# frozen_string_literal: true
+
+require 'ostruct'
+
+module Kind
+  module OpenStruct
+    extend self, ::Kind::Object
+
+    def kind; ::OpenStruct; end
+  end
+
+  def self.OpenStruct?(*values)
+    KIND.of?(::OpenStruct, values)
+  end
+end

data/lib/kind/objects/modules/stdlib/set.rb

@@ -0,0 +1,19 @@
+# frozen_string_literal: true
+
+module Kind
+  module Set
+    extend self, ::Kind::Object
+
+    def kind; ::Set; end
+
+    def value_or_empty(arg)
+      KIND.value(self, arg, Empty::SET)
+    end
+
+    alias empty_or value_or_empty
+  end
+
+  def self.Set?(*values)
+    KIND.of?(::Set, values)
+  end
+end

data/lib/kind/objects/nil.rb

@@ -0,0 +1,17 @@
+# frozen_string_literal: true
+
+module Kind
+  module Nil
+    def self.|(another_kind)
+      UnionType[self] | another_kind
+    end
+
+    def self.name
+      'nil'
+    end
+
+    def self.===(value)
+      value.nil?
+    end
+  end
+end

data/lib/kind/objects/not_nil.rb

@@ -0,0 +1,13 @@
+# frozen_string_literal: true
+
+module Kind
+  module NotNil
+    def self.[](value, label: nil)
+      return value unless value.nil?
+
+      label_text = label ? "#{label}: " : ''
+
+      raise Error.new("#{label_text}expected to not be nil")
+    end
+  end
+end

data/lib/kind/objects/object.rb

@@ -0,0 +1,56 @@
+# frozen_string_literal: true
+
+require 'kind/maybe'
+
+module Kind
+  module Object
+    include Kind::BasicObject
+    include Maybe::Buildable
+    include UnionType::Buildable
+
+    def name
+      kind.name
+    end
+
+    def ===(value)
+      kind === value
+    end
+
+    def inspect
+      "Kind::Object<#{name}>"
+    end
+  end
+
+  class Object::Instance # :nodoc: all
+    include ::Kind::Object
+
+    ResolveKindName = ->(kind, opt) do
+      name = Try.call!(opt, :[], :name)
+      name || Try.call!(kind, :name)
+    end
+
+    attr_reader :kind, :name
+
+    def initialize(kind, opt)
+      name = ResolveKindName.(kind, opt)
+
+      @name = KIND.of!(::String, name)
+      @kind = KIND.respond_to!(:===, kind)
+    end
+
+    private_constant :ResolveKindName
+  end
+
+  # Kind[]
+  def self.[](kind, opt = Empty::HASH)
+    Object::Instance.new(kind, opt)
+  end
+
+  # Kind::Of()
+  def self.Of(*args)
+    warn '[DEPRECATION] Kind::Of() is deprecated; use Kind[] instead. ' \
+        'It will be removed on next major release.'
+
+    self[*args]
+  end
+end