farce 0.0.1.alpha2-x86_64-linux-gnu

data/lib/farce/integrations/concurrent.rb

@@ -0,0 +1,112 @@
+# frozen_string_literal: true
+# shareable_constant_value: literal
+# warn_indent: true
+
+# @!group concurrent-ruby Integration
+require "farce"
+require "concurrent/map"
+require "concurrent/tvar"
+
+module Farce
+  module Integrations
+    # @api private
+    module Concurrent
+      # Use TVar's own mutex so Concurrent.atomically and Farce transactions
+      # exclude each other throughout an attempt.
+      # @api private
+      class Entry
+        attr_reader :locks
+        attr_accessor :value
+
+        def initialize(source)
+          @source = source
+          @locks  = []
+          @dirty  = @applied = false
+          @lock   = source.unsafe_lock
+          raise Internal::TransactionConflict, "TVar is locked" unless @lock.try_lock
+          begin
+            @value = @baseline = source.unsafe_value
+          rescue Exception # rubocop:disable Lint/RescueException -- release on failed enrollment too
+            @lock.unlock
+            raise
+          end
+        end
+
+        def working = self
+        def write!  = @dirty = true
+        def prepare = nil
+
+        def valid?
+          !(@dirty && @source.frozen?) && Internal::PortableTransaction.same?(@source.unsafe_value, @baseline)
+        end
+
+        def apply
+          return unless @dirty
+          @applied = true
+          @source.unsafe_value = @value
+        end
+
+        def restore
+          @source.unsafe_value = @baseline if @applied
+        end
+
+        # Object#freeze is independent of this mutex. A writable TVar cannot
+        # safely hide a provisional value across another integration's commit.
+        def reserve
+          return unless @dirty
+          raise TypeError, "writable Concurrent::TVar cannot participate in an external commit"
+        end
+
+        def notify  = nil
+        def release = @lock.unlock
+      end
+    end
+  end
+
+  class Transaction
+    # A Concurrent::TVar enrolled in a Farce transaction.
+    #
+    # Read and assign through this wrapper to stage changes alongside Farce
+    # participants. Values retain their identity. Mutating a contained object
+    # directly is a side effect and cannot be rolled back.
+    #
+    # Enrollment holds the TVar mutex until the attempt finishes. A busy mutex
+    # fails the attempt so it can be retried. Once enrolled, access the TVar
+    # through its wrapper to avoid trying to acquire its mutex again.
+    #
+    # ```ruby
+    # balance  = Concurrent::TVar.new(10)
+    # received = Farce::Atom.new(0)
+    # Farce.transaction do |tx|
+    #   tx[balance].value -= 3
+    #   tx[received].value += 3
+    # end
+    # ```
+    class TVar
+      include Wrapper
+
+      # Read the value staged in this attempt.
+      # @return [Object] the staged value
+      def value = access { @working.value }
+
+      # Stage a replacement value without modifying the original TVar.
+      # @param value [Object] the replacement value
+      # @return [Object] the replacement value
+      def value=(value)
+        write { @working.value = value }
+      end
+
+      private
+
+      def enlist(backend) = @transaction.enlist(backend) { |source| Integrations::Concurrent::Entry.new(source) }
+    end
+  end
+
+  Transaction.define(::Concurrent::TVar) do |object, transaction|
+    Farce::Transaction::TVar.new(transaction, object, object)
+  end
+
+  Internal::Converter.define(::Concurrent::Map, :Map) do |instance, value|
+    value.each { instance[_1] = convert(_2) }
+  end
+end

data/lib/farce/integrations/dry-types.rb

@@ -0,0 +1,5 @@
+# frozen_string_literal: true
+# shareable_constant_value: literal
+# warn_indent: true
+
+require_relative "dry_types"