adt 0.0.4 → 0.0.5

data/CHANGELOG.md

@@ -1,3 +1,9 @@
+0.0.5
+=====
+
+* NEW: Started working on data. First up - Maybe. require 'data/maybe'
+* BUG: Arguments to a case were not being shown using #inspect inside a #inspect.
+
 0.0.4
 =====
 

data/lib/adt.rb

@@ -145,7 +145,7 @@ module ADT
         index = 0
         bit = case_args.map { |ca| 
           index += 1
-          " #{ca}:#\{a#{index}\}"
+          " #{ca}:#\{a#{index}\.inspect}"
         }.join('')
         eval(proc_create[case_args.count, "a", " \" #{cn}#{bit}\""])
       }) + ">"

data/lib/data/maybe.rb

@@ -0,0 +1,33 @@
+require 'adt'
+
+class Maybe
+  extend ADT
+  cases do
+    nothing
+    just(:value)
+  end
+
+  def map
+    fold(proc { self }, proc { |v| yield v })
+  end
+
+  def filter
+    fold(proc { self }, proc { |v| yield(v) ? self : Maybe.nothing })
+  end
+
+  def or_else(other = nil)
+    fold(proc { other || yield }, proc { |v| self }) 
+  end
+
+  def or_value(v = nil)
+    fold(proc { v || yield }, proc { |v| v })
+  end
+
+  def or_nil
+    fold(proc { nil }, proc { |v| v })
+  end
+
+  def self.from_nil(v)
+    v.nil? ? nothing : just(v)
+  end
+end

metadata

@@ -5,8 +5,8 @@ version: !ruby/object:Gem::Version
   segments: 
   - 0
   - 0
-  - 4
-  version: 0.0.4
+  - 5
+  version: 0.0.5
 platform: ruby
 authors: 
 - Nick Partridge
@@ -29,6 +29,7 @@ extra_rdoc_files: []
 files: 
 - lib/adt/case_recorder.rb
 - lib/adt.rb
+- lib/data/maybe.rb
 - CHANGELOG.md
 - README.md
 has_rdoc: true