accessory 0.1.2 → 0.1.7

data/lib/accessory/traversal_position/enumerable_at_offset.rb

@@ -0,0 +1,28 @@
+module Accessory; end
+module Accessory::TraversalPosition; end
+
+##
+# Represents an element encountered during +#each+ traversal of an +Enumerable+.
+
+class Accessory::TraversalPosition::EnumerableAtOffset
+  ##
+  # @!visibility private
+  def initialize(offset, elem_at, is_first: false, is_last: false)
+    @offset = offset
+    @elem_at = elem_at
+    @is_first = is_first
+    @is_last = is_last
+  end
+
+  # @return [Integer] the offset of +elem_at+ in the Enumerable
+  attr_reader :offset
+
+  # @return [Object] the element under the cursor, if applicable
+  attr_reader :elem_at
+
+  # @return [Boolean] true when {#elem_at} is the first element of the +Enumerable+
+  def first?; @is_first; end
+
+  # @return [Boolean] true when {#elem_at} is the last element of the +Enumerable+
+  def last?; @is_last; end
+end

data/lib/accessory/traversal_position/enumerable_before_offset.rb

@@ -0,0 +1,55 @@
+module Accessory; end
+module Accessory::TraversalPosition; end
+
+##
+# Represents the empty intervals between and surrounding the elements of an
+# +Enumerable#each+ traversal.
+#
+# Examples to build intuition:
+#
+# * An +EnumerableBeforeOffset+ with an <tt>.offset</tt> of <tt>0</tt>
+#   represents the position directly before the first result from
+#   <tt>#each</tt>, i.e. "the beginning." Using {Lens#put_in} at this position
+#   will _prepend_ to the +Enumerable+.
+#
+# * An +EnumerableBeforeOffset+ with an <tt>.offset</tt> equal to the
+#   <tt>#length</tt> of the +Enumerable+ (recognizable by
+#   <tt>EnumerableBeforeOffset#last?</tt> returning +true+) represents
+#   represents the position directly before the end of the enumeration,
+#   i.e. "the end" of the +Enumerable+. Using {Lens#put_in} at this position
+#   will _append_ to the +Enumerable+.
+#
+# * In general, using {Lens#put_in} with an +EnumerableBeforeOffset+ with an
+#   <tt>.offset</tt> of +n+ will insert an element _between_ elements
+#   <tt>n - 1</tt> and +n+ in the enumeration sequence.
+#
+# * Returning <tt>:pop</tt> from {Lens#get_and_update_in} for an
+#   +EnumerableBeforeOffset+-terminated {Lens} will have no effect, as
+#   you're removing an empty slice.
+
+class Accessory::TraversalPosition::EnumerableBeforeOffset
+  ##
+  # @!visibility private
+  def initialize(offset, elem_before, elem_after, is_first: false, is_last: false)
+    @offset = offset
+    @elem_before = elem_before
+    @elem_after = elem_after
+    @is_first = is_first
+    @is_last = is_last
+  end
+
+  # @return [Integer] the offset of +elem_after+ in the Enumerable
+  attr_reader :offset
+
+  # @return [Object] the element before the cursor, if applicable
+  attr_reader :elem_before
+
+  # @return [Object] the element after the cursor, if applicable
+  attr_reader :elem_after
+
+  # @return [Boolean] true when {#elem_after} is the first element of the +Enumerable+
+  def first?; @is_first; end
+
+  # @return [Boolean] true when {#elem_before} is the last element of the +Enumerable+
+  def last?; @is_last; end
+end

data/lib/accessory/version.rb

@@ -1,3 +1,3 @@
 module Accessory
-  VERSION = "0.1.2"
+  VERSION = "0.1.7"
 end

metadata

@@ -1,14 +1,14 @@
 --- !ruby/object:Gem::Specification
 name: accessory
 version: !ruby/object:Gem::Version
-  version: 0.1.2
+  version: 0.1.7
 platform: ruby
 authors:
 - Levi Aul
 autorequire:
 bindir: bin
 cert_chain: []
-date: 2021-01-11 00:00:00.000000000 Z
+date: 2021-01-13 00:00:00.000000000 Z
 dependencies: []
 description:
 email:
@@ -29,9 +29,10 @@ files:
 - lib/accessory/accessors/instance_variable_accessor.rb
 - lib/accessory/accessors/last_accessor.rb
 - lib/accessory/accessors/subscript_accessor.rb
-- lib/accessory/array_cursor_position.rb
+- lib/accessory/bound_lens.rb
 - lib/accessory/lens.rb
-- lib/accessory/lens_path.rb
+- lib/accessory/traversal_position/enumerable_at_offset.rb
+- lib/accessory/traversal_position/enumerable_before_offset.rb
 - lib/accessory/version.rb
 homepage: https://github.com/tsutsu/accessory
 licenses:

data/lib/accessory/array_cursor_position.rb

@@ -1,18 +0,0 @@
-module Accessory; end
-
-class Accessory::ArrayCursorPosition
-  def initialize(offset, elem_before, elem_after, is_first: false, is_last: false)
-    @offset = offset
-    @elem_before = elem_before
-    @elem_after = elem_after
-    @is_first = is_first
-    @is_last = is_last
-  end
-
-  attr_reader :offset
-  attr_reader :elem_before
-  attr_reader :elem_after
-
-  def first?; @is_first; end
-  def last?; @is_last; end
-end

data/lib/accessory/lens_path.rb

@@ -1,150 +0,0 @@
-module Accessory; end
-
-require 'accessory/accessor'
-require 'accessory/accessors/subscript_accessor'
-
-class Accessory::LensPath
-  def self.empty
-    @empty_lens_path ||= (new([]).freeze)
-  end
-
-  def self.[](*path)
-    new(path).freeze
-  end
-
-  class << self
-    private :new
-  end
-
-  def initialize(initial_parts)
-    @parts = []
-
-    for part in initial_parts
-      append_accessor!(part)
-    end
-  end
-
-  def to_a
-    @parts
-  end
-
-  def inspect(format: :long)
-    parts_desc = @parts.map{ |part| part.inspect(format: :short) }.join(', ')
-    parts_desc = "[#{parts_desc}]"
-
-    case format
-    when :long
-      "#LensPath#{parts_desc}"
-    when :short
-      parts_desc
-    end
-  end
-
-  def then(accessor)
-    d = self.dup
-    d.append_accessor!(accessor)
-    d.freeze
-  end
-
-  def dup
-    d = super
-    d.instance_eval do
-      @parts = @parts.dup
-    end
-    d
-  end
-
-  def +(lp_b)
-    parts =
-      case lp_b
-      when Accessory::LensPath
-        lp_b.to_a
-      when Array
-        lp_b
-      else
-        [lp_b]
-      end
-
-    d = self.dup
-    for part in parts
-      d.append_accessor!(part)
-    end
-    d.freeze
-  end
-
-  alias_method :/, :+
-
-  def append_accessor!(part)
-    accessor =
-      case part
-      when Accessory::Accessor
-        part
-      when Array
-        Accessory::SubscriptAccessor.new(part[0], default: part[1])
-      else
-        Accessory::SubscriptAccessor.new(part)
-      end
-
-    unless @parts.empty?
-      @parts.last.make_default_fn = accessor.default_fn_for_previous_step
-    end
-
-    @parts.push(accessor)
-  end
-
-  protected :append_accessor!
-
-  def get_in(doc)
-    if @parts.empty?
-      doc
-    else
-      get_in_step(doc, @parts)
-    end
-  end
-
-  def get_and_update_in(doc, &mutator_fn)
-    if @parts.empty?
-      doc
-    else
-      get_and_update_in_step(doc, @parts, mutator_fn)
-    end
-  end
-
-  def update_in(data, &new_value_fn)
-    _, new_data = self.get_and_update_in(data){ |v| [nil, new_value_fn.call(v)] }
-    new_data
-  end
-
-  def put_in(data, new_value)
-    _, new_data = self.get_and_update_in(data){ [nil, new_value] }
-    new_data
-  end
-
-  def pop_in(data)
-    self.get_and_update_in(data){ :pop }
-  end
-
-  private
-  def get_in_step(data, path)
-    step_accessor = path.first
-    rest_of_path = path[1..-1]
-
-    if rest_of_path.empty?
-      step_accessor.get(data)
-    else
-      step_accessor.get(data){ |v| get_in_step(v, rest_of_path) }
-    end
-  end
-
-  private
-  def get_and_update_in_step(data, path, mutator_fn)
-    step_accessor = path.first
-    rest_of_path = path[1..-1]
-
-    if rest_of_path.empty?
-      step_accessor.get_and_update(data, &mutator_fn)
-    else
-      step_accessor.get_and_update(data){ |v| get_and_update_in_step(v, rest_of_path, mutator_fn) }
-    end
-  end
-end