monadt 0.1.0 → 0.1.1

checksums.yaml

@@ -1,7 +1,7 @@
 ---
 SHA1:
-  metadata.gz: 7746a87e5355708be40ab3440bb65ea902e9add0
-  data.tar.gz: 6baed7771d0bb368794f0314d26bc18f8f51d292
+  metadata.gz: 4277be1ebc2c809bce2b0d6db287229852bd17de
+  data.tar.gz: ae2ab51f492de99a09e4375753c9b3c623c96f50
 SHA512:
-  metadata.gz: 61d461c44b602499a075876e5883731553f173db40ef3a267dcc099c1061ab6a3bc399a169ba8763df39ba7d1e266b7f6fc9c1f5df74f47d436709084fbfba67
-  data.tar.gz: fd8712a4f9092c683b906ab02908afae83ef4497f9bfbb5f3e5c82a8ad9a65c25155a3e76c2dd300fa3b5c3a9c0994bae501bb67a310c3346fdfea06e5f90d02
+  metadata.gz: a4dbfc6e221f47b26b4ef2c38f671bdab6f2d657ecef37a7bd5ad37e00183ec8f5fe4b9073929be39ec28d9ee027dd8610c45bf8afde7285ee5765cedc731d77
+  data.tar.gz: 6bd0dc62338a9207936698fba178f5859225667f40764ecfd34ab75cf2316023e63d3c57839ad24d99cb801c24806231ed15957a43de8fdc53312a2e3e47c9e1

data/lib/monadt/do_m.rb

@@ -0,0 +1,22 @@
+require_relative 'do_m/fiber'
+require_relative 'do_m/enumerator'
+
+module Monadt
+  class Monad
+
+    class << self
+      def engine
+        if ENV['DO_M_ENGINE'].nil?
+          DoMFiber
+        else
+          Object.const_get(ENV['DO_M_ENGINE'])
+        end
+      end
+
+      def do_m(klass, &blk)
+        engine.do_m(klass, &blk)
+      end
+    end
+  end
+end
+

data/lib/monadt.rb

@@ -4,7 +4,7 @@ require 'monadt/async'
 require 'monadt/state'
 require 'monadt/async_either'
 require 'monadt/reader_state_either'
-require 'monadt/monad'
+require 'monadt/do_m'
 
 module Monadt
   class Monad

metadata

@@ -1,7 +1,7 @@
 --- !ruby/object:Gem::Specification
 name: monadt
 version: !ruby/object:Gem::Version
-  version: 0.1.0
+  version: 0.1.1
 platform: ruby
 authors:
 - Will Pleasant-Ryan
@@ -21,10 +21,10 @@ files:
 - lib/monadt/adt.rb
 - lib/monadt/async.rb
 - lib/monadt/async_either.rb
+- lib/monadt/do_m.rb
 - lib/monadt/either.rb
 - lib/monadt/list.rb
 - lib/monadt/maybe.rb
-- lib/monadt/monad.rb
 - lib/monadt/reader.rb
 - lib/monadt/reader_state_either.rb
 - lib/monadt/state.rb

data/lib/monadt/monad.rb

@@ -1,82 +0,0 @@
-require 'fiber'
-
-module Monadt
-  module Internal
-    class MonadObjFiber
-      def initialize(klass)
-        @klass = klass
-      end
-
-      def return(val)
-        @klass.return val
-      end
-
-      def bind(val)
-        Fiber.yield val
-      end
-    end
-
-    class MonadObjEnum
-      def initialize(klass, yielder)
-        @klass = klass
-        @yielder = yielder
-      end
-
-      def return(val)
-        @klass.return val
-      end
-
-      def bind(val)
-        @yielder.yield val
-      end
-    end
-  end
-
-  class Monad
-    class << self
-      def do_m(klass, &blk)
-        do_m_fiber(klass, &blk)
-      end
-
-      def do_m_fiber(klass, &blk)
-        f = Fiber.new do |y|
-          m_obj = Internal::MonadObjFiber.new klass
-          blk.call(m_obj)
-        end
-        do_m_recur_fiber(klass, f, nil)
-      end
-
-      def do_m_recur_fiber(klass, f, ma, *args)
-        if f.alive?
-          ma = f.resume(*args)
-          klass.bind(ma) do |a|
-            do_m_recur_fiber(klass, f, ma, a)
-          end
-        else
-          ma
-        end
-      end
-
-      def do_m_enum(klass, &blk)
-        e = Enumerator.new do |y|
-          m_obj = Internal::MonadObjEnum.new klass, y
-          blk.call(m_obj)
-        end
-        do_m_recur_enum(klass, e)
-      end
-
-      def do_m_recur_enum(klass, e)
-        begin
-          ma = e.next
-        rescue StopIteration => ex
-          return ex.result
-        end
-        klass.bind(ma) do |a|
-          e.feed a
-          do_m_recur_enum(klass, e)
-        end
-      end
-    end
-  end
-end
-