decide.rb 0.6.1 → 0.7.0

checksums.yaml

@@ -1,7 +1,7 @@
 ---
 SHA256:
-  metadata.gz: 38dfd00197b187505e43c496a3493942ad4b986d4cd7152cfc51affac1f6abf1
-  data.tar.gz: f0aea859df148b5f4a3eb9518df261dda2cff1fbd71b96e61ad26623c863c083
+  metadata.gz: 560335da25429790af3eb660d743eb7233c3dad032f9582462de1142c9cf3d91
+  data.tar.gz: c42275236a358e3eac7189cf6e7f57cdc3106aa9e00f203b96d139f24360ee91
 SHA512:
-  metadata.gz: 3b90ffcfa1407bcd0cedba9f0fa2c4882fa4675a6f8b73045c025c02a77eb26f5fc0d311693426c78903c1b3dd75606369b857ab5b9683ae75e68ba80aae6a5d
-  data.tar.gz: cbf4b81d9391c97b18a5532fe3f583867f6dc8127403d8c195307a8efc4a1e6ebbd94c298819831587f78711a329812d613014137630d2613174de44ccf0e365
+  metadata.gz: 0da501705ecb75d91b1696f468c9360bc950e7cc0f5ac1ce52a3427beccb2bba8eca1688bee73e874c46c40f17d579ddde4b132a2e6fe04e3737b7091f99619d
+  data.tar.gz: ea55c13433fb463d9746da6fe08016353bc0d38c3aae988f0b7249cfac86ed5325b0bcbb02c3833e5997f43db61f7b293a822988a851273dc39b087d7e4b2e14

data/CHANGELOG.md

@@ -1,3 +1,81 @@
+# 0.7.0
+
+* Add reactor that can react to action results and issue actions
+
+```ruby
+ActionResult = Data.define(:value)
+Action = Data.define(:value)
+
+reactor = Reactor.define do
+  react :action_result do
+    issue :action
+    issue :another_action
+  end
+
+  react proc { action_result in ActionResult(value: 42) } do
+    issue Action.new(value: "the answer")
+  end
+
+  react ActionResult do
+    issue Action.new(value: action_result.value)
+  end
+end
+
+reactor.react(:action_result)
+# => [:action, :another_action]
+reactor.react(ActionResult.new(value: 42)
+# => #<data Action value="the answer">
+reactor.react(ActionResult.new(value: 1)
+# => #<data Action value=1>
+```
+
+* Add `lmap_on_action_result` extension to reactor
+* Add `rmap_on_action` (aliased to `map_on_action`) extensions to reactor
+* Add `combine_with_decider` extension to reactor
+
+```ruby
+decider = Decider.define do
+  initial_state 0
+
+  decide :action do
+    emit :result
+  end
+
+  decide :another_action do
+    emit :another_result
+  end
+end
+
+reactor = Decider::Reactor.define do
+  react :result do
+    issue :another_action
+  end
+end
+
+decider = reactor.combine_with_decider(decider)
+decider.decide(:action)
+# => [:result, :another_result]
+```
+
+# 0.6.2
+
+* Add `many` extension that takes a decider and manage many instances
+
+```ruby
+deciders = Decider.many(decider)
+# or
+deciders = decider.many
+
+deciders.initial_state
+# => {}
+
+deciders.decide([id, command], state)
+# => [[id, event], [id, event]]
+
+deciders.evolve(state, [id, event])
+# => state
+```
+
 # 0.6.1
 
 * Add `apply` extension for creating applicatives

data/lib/decider/reactor.rb

@@ -0,0 +1,142 @@
+# frozen_string_literal: true
+
+module Decider::Reactor
+  class Module < ::Module
+    REACT_FALLBACK = proc { [nil, proc {}] }
+
+    React = Data.define(:action_result, :_actions) do
+      def issue(*actions)
+        _actions.push(*actions)
+      end
+    end
+
+    def initialize(reactions:)
+      define_method(:react) do |action_result|
+        context = React.new(action_result: action_result, _actions: [])
+
+        reactions.find(REACT_FALLBACK) do |arg, _|
+          case arg
+          in Proc => fn
+            context.instance_exec(&fn)
+          in artype
+            action_result in ^artype
+          else
+            false
+          end
+        end => [_, handler]
+
+        context.instance_exec(&handler)
+        context._actions
+      end
+
+      define_method(:lmap_on_action_result) do |fn|
+        Decider::Reactor.lmap_on_action_result(fn, self)
+      end
+
+      define_method(:rmap_on_action) do |fn|
+        Decider::Reactor.rmap_on_action(fn, self)
+      end
+
+      define_method(:map_on_action) do |fn|
+        Decider::Reactor.rmap_on_action(fn, self)
+      end
+
+      define_method(:combine_with_decider) do |decider|
+        Decider::Reactor.combine_with_decider(self, decider)
+      end
+    end
+  end
+
+  class Builder
+    DEFAULT = Object.new
+
+    attr_reader :module
+
+    def initialize
+      @reactions = {}
+    end
+
+    def build(&block)
+      instance_exec(&block) if block_given?
+
+      reactor = Class.new
+
+      @module = Module.new(
+        reactions: reactions
+      )
+
+      reactor.extend(@module)
+
+      reactor
+    end
+
+    private
+
+    attr_reader :reactions
+
+    def react(arg, &block)
+      reactions[arg] = block
+    end
+  end
+  private_constant :Builder
+
+  def self.define(&block)
+    builder = Builder.new
+    builder.build(&block)
+  end
+
+  def self.lmap_on_action_result(fn, reactor)
+    define do
+      react proc { true } do
+        reactor.react(fn.call(action_result)).each do |action|
+          issue action
+        end
+      end
+    end
+  end
+
+  def self.rmap_on_action(fn, reactor)
+    define do
+      react proc { true } do
+        reactor.react(action_result).each do |action|
+          issue fn.call(action)
+        end
+      end
+    end
+  end
+
+  def self.map_on_action(fn, reactor)
+    rmap_on_action(fn, reactor)
+  end
+
+  def self.combine_with_decider(reactor, decider)
+    Decider.define do
+      initial_state decider.initial_state
+
+      decide proc { true } do
+        fn = ->(commands, events, ds) {
+          case commands
+          in []
+            events
+          in [head, *tail]
+            new_events = decider.decide(head, ds)
+            new_commands = new_events.flat_map { |action_result| reactor.react(action_result) }
+            new_state = new_events.reduce(ds, &decider.evolve)
+
+            fn.call(tail + new_commands, events + new_events, new_state)
+          end
+        }
+
+        fn.call([command], [], state).each { |event| emit event }
+      end
+
+      evolve proc { true } do
+        decider.evolve(state, event)
+      end
+
+      terminal? do
+        decider.terminal?(state)
+      end
+    end
+  end
+end

data/lib/decider/version.rb

@@ -1,5 +1,5 @@
 # frozen_string_literal: true
 
 module Decider
-  VERSION = "0.6.1"
+  VERSION = "0.7.0"
 end

data/lib/decider.rb

@@ -1,5 +1,7 @@
 # frozen_string_literal: true
 
+require "decider/reactor"
+
 module Decider
   StateAlreadyDefined = Class.new(StandardError)
   StateNotDefined = Class.new(StandardError)
@@ -140,6 +142,10 @@ module Decider
         Decider.dimap_on_event(fl, fr, self)
       end
 
+      define_method(:many) do
+        Decider.many(self)
+      end
+
       define_method(:apply) do |f|
         Decider.apply(self, f)
       end
@@ -315,6 +321,35 @@ module Decider
     end
   end
 
+  def self.many(decider)
+    define do
+      initial_state({})
+
+      decide proc { [command, state] in [[_id, _], Hash] } do
+        command => [id, command]
+
+        ds = state.fetch(id) { decider.initial_state }
+
+        decider.decide(command, ds).each do |event|
+          emit [id, event]
+        end
+      end
+
+      evolve proc { [state, event] in [Hash, [_id, _]] } do
+        event => [id, event]
+
+        ds = state.fetch(id) { decider.initial_state }
+        ds = decider.evolve(ds, event)
+
+        state.merge(id => ds)
+      end
+
+      terminal? do
+        state.any? && state.all? { |_, ds| decider.terminal?(ds) }
+      end
+    end
+  end
+
   def self.apply(f, x)
     map2(->(f, x) { f.call(x) }, f, x)
   end

metadata

@@ -1,13 +1,13 @@
 --- !ruby/object:Gem::Specification
 name: decide.rb
 version: !ruby/object:Gem::Version
-  version: 0.6.1
+  version: 0.7.0
 platform: ruby
 authors:
 - Jan Dudulski
 bindir: exe
 cert_chain: []
-date: 2025-06-23 00:00:00.000000000 Z
+date: 2025-07-14 00:00:00.000000000 Z
 dependencies:
 - !ruby/object:Gem::Dependency
   name: concurrent-ruby
@@ -71,6 +71,7 @@ files:
 - lib/decider.rb
 - lib/decider/event_sourcing.rb
 - lib/decider/in_memory.rb
+- lib/decider/reactor.rb
 - lib/decider/state.rb
 - lib/decider/version.rb
 - sig/decider.rbs