possibly 0.2.0 → 1.0.1

checksums.yaml

@@ -1,7 +1,7 @@
 ---
 SHA1:
-  metadata.gz: 88d90724eacd2027f146e147fe9b3b44d70e11d9
-  data.tar.gz: 69d10e194d938c8c27ec131a69296d7dca8d597a
+  metadata.gz: 96dcbb348677eea89d2b1b9f600015c2cfbf7cb5
+  data.tar.gz: 5ce3bd31351c85b455f91163e069df325dd199bd
 SHA512:
-  metadata.gz: a8e95af1c6849dc749e809df67539585abacb495d74f3100a7ad08dd825dc4a645615bffa98c40f0ab7e3561368c268c84262e683bb44df9242ee23dd7c9202d
-  data.tar.gz: 638e0c13f133d4d1f03d655e2efa24da79a623fb798e0ea6cb0b2f5323bfc8768ff2b16a3377082399b0a9e9941e3f3af02c94e3aef11900c6540328e9ab494a
+  metadata.gz: b5b7b56a8bd3a74fcbb24b655e93460ae38590c208c7a6eaf25cbf0837eafc74e1c5da0d55c80d391a8cbd558c5dbef4c48ed3ed09b1ae565dde7d6c21982e7a
+  data.tar.gz: fed125cd006f48f4a73083f4128cd03ae3abdf309754c8f22bebf6c152bc6fe1c665e248ad41158747a385c14ed1cb6fc478255f172c7e0d20947fdb7f54b7f5

data/lib/possibly.rb

@@ -1,8 +1,10 @@
+# coding: utf-8
 class Maybe
   ([:each] + Enumerable.instance_methods).each do |enumerable_method|
     define_method(enumerable_method) do |*args, &block|
+      @invocation ||= [enumerable_method, args, block]
       res = __enumerable_value.send(enumerable_method, *args, &block)
-      res.respond_to?(:each) ? Maybe(res.first) : res
+      res.respond_to?(:each) ? Maybe(res.first, self.stack, @invocation) : res
     end
   end
 
@@ -15,12 +17,74 @@ class Maybe
     other.class == self.class
   end
   alias_method :eql?, :==
+
+  def inspect
+    to_s
+  end
+
+  protected
+
+  def print_error(msg)
+    message =
+      if msg
+        msg + "\n\n"
+      else
+        "\n"
+      end
+
+    message + print_stack + "\n"
+  end
+
+  def print_stack
+    longest_method = stack.drop(1).map { |inv| inv.first }.map(&:length).max || 0
+    stack.map { |(method, value)|
+      method ||= ""
+      "#{method.ljust(longest_method)} => #{value}"
+    }.join("\n")
+  end
+
+  def stack
+    @parent_stack + [self_stack]
+  end
+
+  def self_stack
+    [inst_method, self.inspect]
+  end
+
+
+  def inst_method
+    "#{print_method(@inst_method)}"
+  end
+
+  def print_method(invocation)
+    method, args, block = invocation
+
+    print_method =
+      if method == :[]
+        args.to_s
+      else
+        method.to_s
+      end
+
+    print_args =
+      if method == :[]
+        nil
+      elsif args.empty?
+        nil
+      else
+        "(#{args.join(', ')})"
+      end
+
+    [print_method, print_args].compact.join("")
+  end
 end
 
 # Represents a non-empty value
 class Some < Maybe
-  def initialize(value)
+  def initialize(value, inst_method = nil, parent_stack = [])
     @value = value
+    @inst_method = inst_method || ["Some.new", []]
+    @parent_stack = parent_stack
   end
 
   def get
@@ -31,6 +95,14 @@ class Some < Maybe
     @value
   end
 
+  def or_raise(*)
+    @value
+  end
+
+  def or_nil
+    @value
+  end
+
   # rubocop:disable PredicateName
   def is_some?
     true
@@ -51,9 +123,14 @@ class Some < Maybe
   end
 
   def method_missing(method_sym, *args, &block)
+    @invocation ||= [method_sym, args, block]
     map { |value| value.send(method_sym, *args, &block) }
   end
 
+  def to_s
+    "Some(#{@value})"
+  end
+
   private
 
   def __enumerable_value
@@ -63,14 +140,53 @@ end
 
 # Represents an empty value
 class None < Maybe
+
+  class ValueExpectedException < Exception; end
+
+  def initialize(inst_method = nil, parent_stack = [])
+    @inst_method = inst_method || ["None.new", []]
+    @parent_stack = parent_stack
+  end
+
   def get
-    fail 'No such element'
+    msg ||= "`get` called to None. A value was expected."
+    raise ValueExpectedException.new(print_error(msg))
   end
 
   def or_else(els = nil)
     block_given? ? yield : els
   end
 
+  def or_raise(*args)
+    opts, args = extract_opts(args)
+    msg_or_exception, msg = args
+    default_message = "`or_raise` called to None. A value was expected."
+
+    exception_object =
+      if msg_or_exception.respond_to? :exception
+        if msg
+          msg_or_exception.exception(msg)
+        else
+          msg_or_exception.exception
+        end
+      else
+        ValueExpectedException.new(msg_or_exception || default_message)
+      end
+
+    exception_and_stack =
+      if opts[:print_stack] == false
+        exception_object
+      else
+        exception_object.exception(print_error(exception_object.message))
+      end
+
+    raise exception_and_stack
+  end
+
+  def or_nil
+    nil
+  end
+
   # rubocop:disable PredicateName
   def is_some?
     false
@@ -81,8 +197,12 @@ class None < Maybe
   end
   # rubocop:enable PredicateName
 
-  def method_missing(*)
-    self
+  def method_missing(method_sym, *args, &block)
+    None([method_sym, args, block], self.stack)
+  end
+
+  def to_s
+    "None"
   end
 
   private
@@ -90,22 +210,35 @@ class None < Maybe
   def __enumerable_value
     []
   end
+
+  def extract_opts(args)
+    *initial, last = *args
+
+    if last.is_a?(::Hash)
+      [last, initial]
+    else
+      [{}, args]
+    end
+  end
 end
 
 # rubocop:disable MethodName
-def Maybe(value)
+def Maybe(value, parent_stack = [], inst_method = nil)
+  inst_method ||= ["Maybe", []]
   if value.nil? || (value.respond_to?(:length) && value.length == 0)
-    None()
+    None(inst_method, parent_stack)
   else
-    Some(value)
+    Some(value, inst_method, parent_stack)
   end
 end
 
-def Some(value)
-  Some.new(value)
+def Some(value, inst_method = nil, parent_stack = [])
+  inst_method ||= ["Some", []]
+  Some.new(value, inst_method, parent_stack)
 end
 
-def None
-  None.new
+def None(inst_method = nil, parent_stack = [])
+  inst_method ||= ["None", []]
+  None.new(inst_method, parent_stack)
 end
 # rubocop:enable MethodName

metadata

@@ -1,14 +1,14 @@
 --- !ruby/object:Gem::Specification
 name: possibly
 version: !ruby/object:Gem::Version
-  version: 0.2.0
+  version: 1.0.1
 platform: ruby
 authors:
 - Mikko Koski
 autorequire: 
 bindir: bin
 cert_chain: []
-date: 2014-04-25 00:00:00.000000000 Z
+date: 2016-07-24 00:00:00.000000000 Z
 dependencies: []
 description: Maybe monad implementation for Ruby (some might call it Option pattern
   or Null pattern)
@@ -38,7 +38,7 @@ required_rubygems_version: !ruby/object:Gem::Requirement
       version: '0'
 requirements: []
 rubyforge_project: 
-rubygems_version: 2.2.2
+rubygems_version: 2.5.1
 signing_key: 
 specification_version: 4
 summary: Maybe monad