ex_aequo_base 0.1.5 → 0.1.7

checksums.yaml

@@ -1,7 +1,7 @@
 ---
 SHA256:
-  metadata.gz: 24a260aad0b858a285db2f96eccff1885c3755e12eed40c61a01d4100ecc40ed
-  data.tar.gz: 961b6557e5002df0ee9993399de00f4705ecf55561b048e8ef9c5927c924030b
+  metadata.gz: 924bbe0dc0445b557f63850ebfd7650b3f41216d52789a48e0701ebe6afe7b3a
+  data.tar.gz: ec3e3ff23194b4d3de28190ca34cfba950460e1df1b778421733ecca6f2b2327
 SHA512:
-  metadata.gz: 7ba6c445f2dd6bfa21b20fd7e4bc5b83ce57ebc1b72c62049aad348f30ea36f32dc8e016bddf9cef180b29541ef900837124fb91a10b7e8364bb742e06dee4a1
-  data.tar.gz: d34123cb7cdf68a20195a4d95a408d30922ec129ab463d894360fecf76574f354bcb8f96c8c909882a09de50168a84696a164db7b8244f5e4d5b97c4899399f3
+  metadata.gz: 543c0c2a5159d23e0ceab290888bad113373c38c3b28c5c197e7a4a4ab10dfc7ee35a2b4034b7a442c4e88a8a0623654612b8130cb05ab26f22ba13db68e95ba
+  data.tar.gz: e0f75b5c0e3479d0d876236c35e481ac8d74e32bb14813d73532b72c63cfa79905c51945ba79f0100a04e1703ceb11f2b027a6618284fdb7cd3eee9b77848ed0

data/lib/ex_aequo/base/all.rb

@@ -1,7 +1,10 @@
 # frozen_string_literal: true
 require_relative 'colorize'
+require_relative 'enumerable'
+require_relative 'fn'
 require_relative 'kernel'
 require_relative 'open_struct'
+require_relative 'regexp'
 # require_relative 'match_data'
 Colorize = ExAequo::Base::Colorize
 # SPDX-License-Identifier: AGPL-3.0-or-later

data/lib/ex_aequo/base/enumerable.rb

@@ -0,0 +1,27 @@
+# frozen_string_literal: true
+
+require_relative 'enumerable_helper'
+module Enumerable
+  def find_value(&blk)
+    each do
+      val = blk.(it)
+      return val if val
+    end
+    nil
+  end
+
+  def reduce_until(initial, *end_triggers, &blk)
+    raise ArgumentError, "missing end_trigger(s)" if end_triggers.empty?
+
+    ExAequo::Base::EnumerableHelper.reduce_until_with_trigger(self, initial:, end_triggers:, &blk)
+  end
+
+  def reduce_while(initial, *end_triggers, &blk)
+    if end_triggers.empty?
+      ExAequo::Base::EnumerableHelper.reduce_while_simple(self, initial:, &blk)
+    else
+      ExAequo::Base::EnumerableHelper.reduce_while_with_trigger(self, initial:, end_triggers:, &blk)
+    end
+  end
+end
+# SPDX-License-Identifier: AGPL-3.0-or-later

data/lib/ex_aequo/base/enumerable_helper.rb

@@ -0,0 +1,44 @@
+# frozen_string_literal: true
+
+require_relative 'fn'
+module ExAequo
+  module Base
+    module EnumerableHelper extend self
+      def reduce_until_with_trigger(enum, initial:, end_triggers:, &blk)
+        f = Fn.mk_fun_pipeline(end_triggers)
+        enum.each do
+          return initial if f.(initial)
+          initial = blk.(initial, it)
+        end
+        initial
+      end
+
+      def reduce_while_simple(enum, initial:, &blk)
+        enum.each do
+          val = blk.(initial, it)
+          if val
+            initial = val
+          else
+            return initial
+          end
+        end
+        initial
+      end
+
+      def reduce_while_with_trigger(enum, initial:, end_triggers:, &blk)
+        f = Fn.mk_fun_pipeline(end_triggers)
+        enum.each do
+          val = blk.(initial, it)
+          # p(val:, f: f.(val))
+          if f.(val)
+            initial = val
+          else
+            return initial
+          end
+        end
+        initial
+      end
+    end
+  end
+end
+# SPDX-License-Identifier: AGPL-3.0-or-later

data/lib/ex_aequo/base/fn/all.rb

@@ -0,0 +1,9 @@
+# frozen_string_literal: true
+
+require_relative '../fn'
+require_relative 'curry'
+
+Fn = ExAequo::Base::Fn
+Placeholder = Fn::Placeholder
+
+# SPDX-License-Identifier: AGPL-3.0-or-later

data/lib/ex_aequo/base/fn/curry.rb

@@ -0,0 +1,12 @@
+# frozen_string_literal: true
+
+require_relative 'helpers'
+module ExAequo
+  module Base
+    module Fn extend self
+      extend Forwarder
+      forward_all :curry, to: Helpers 
+    end
+  end
+end
+# SPDX-License-Identifier: AGPL-3.0-or-later

data/lib/ex_aequo/base/fn/helpers.rb

@@ -0,0 +1,57 @@
+# frozen_string_literal: true
+
+module ExAequo
+  module Base
+    module Fn
+      Placeholder = BasicObject.new
+
+      module Helpers extend self
+        def curry(rcv, *positionals, **keywords, &blk)
+          return _send_curry(*positionals, **keywords, &blk) if rcv == Placeholder
+
+          _send_to(rcv, *positionals, **keywords, &blk)
+        end
+
+        private
+        def _make_actual_params(positionals, args, keywords, kwds, offset:)
+          as = []
+          ks = {}
+          n = 0
+
+          positionals.each do
+            if it == Placeholder
+              as << args[n]
+              n += 1
+            else
+              as << it
+            end
+          end
+
+          keywords.each do |k, v|
+            if v == Placeholder
+              ks[k] = args[n]
+              n += 1
+            end
+          end
+          as += Array(args[positionals.length-offset..])
+          [as, keywords.merge(ks).merge(kwds)]
+        end
+
+        def _send_curry(*positionals, **keywords, &b)
+          -> (rcv, *args, **kwds, &blk) do
+            _make_actual_params(positionals, args, keywords, kwds, offset: 1) => actual_pos, actual_kwds
+            rcv.send(*actual_pos, **actual_kwds, &(blk || b))
+          end
+        end
+
+        def _send_to(rcv, *positionals, **keywords, &b)
+          -> (*args, **kwds, &blk) do
+            _make_actual_params(positionals, args, keywords, kwds, offset: 0) => actual_pos, actual_kwds
+            rcv.send(*actual_pos, **actual_kwds, &(blk || b))
+          end
+        end
+      end
+    end
+  end
+end
+# SPDX-License-Identifier: AGPL-3.0-or-later

data/lib/ex_aequo/base/fn.rb

@@ -0,0 +1,41 @@
+# frozen_string_literal: true
+
+require_relative 'to_proc'
+module ExAequo
+  module Base
+    module Fn extend self
+      def _not = -> { !it }
+
+      Operators = {
+        '!' => _not,
+      }
+
+
+      def mk_fun(fn_desc)
+        case fn_desc
+        in String
+          mk_op(fn_desc)
+        in Symbol
+        -> { it.send(fn_desc) }
+        in Array
+        -> { it.send(*fn_desc) }
+        in _
+          fn_desc.to_proc
+        end
+        # TODO: Allow for other fn_desc then Array and Symbol
+      end
+
+      def mk_fun_pipeline(fn_descs)
+        fns = fn_descs.map { mk_fun it }
+        -> do
+          fns.inject(it) { |acc, f| f.(acc) }
+        end
+      end
+
+      def mk_op(op)
+        Operators.fetch(op) { raise ArgumentError, "undefined operator #{op.inspect}" }
+      end
+    end
+  end
+end
+# SPDX-License-Identifier: AGPL-3.0-or-later

data/lib/ex_aequo/base/regexp.rb

@@ -0,0 +1,4 @@
+# frozen_string_literal: true
+
+require_relative 'to_proc/regexp'
+# SPDX-License-Identifier: AGPL-3.0-or-later

data/lib/ex_aequo/base/to_proc/false_class.rb

@@ -0,0 +1,8 @@
+# frozen_string_literal: true
+
+class FalseClass
+  def to_proc
+    ->(*) { false }
+  end
+end
+# SPDX-License-Identifier: AGPL-3.0-or-later

data/lib/ex_aequo/base/to_proc/nil_class.rb

@@ -0,0 +1,8 @@
+# frozen_string_literal: true
+
+class NilClass
+  def to_proc
+    ->(*) { nil }
+  end
+end
+# SPDX-License-Identifier: AGPL-3.0-or-later

data/lib/ex_aequo/base/to_proc/regexp.rb

@@ -0,0 +1,7 @@
+# frozen_string_literal: true
+class Regexp
+  def to_proc
+    -> { match(it) }
+  end
+end
+# SPDX-License-Identifier: AGPL-3.0-or-later

data/lib/ex_aequo/base/to_proc/true_class.rb

@@ -0,0 +1,8 @@
+# frozen_string_literal: true
+
+class TrueClass
+  def to_proc
+    ->(*) { true }
+  end
+end
+# SPDX-License-Identifier: AGPL-3.0-or-later

data/lib/ex_aequo/base/to_proc.rb

@@ -0,0 +1,5 @@
+# frozen_string_literal: true
+
+require_relative 'kernel'
+require_subdir __FILE__
+# SPDX-License-Identifier: AGPL-3.0-or-later

data/lib/ex_aequo/base/version.rb

@@ -2,7 +2,7 @@
 
 module ExAequo
   module Base
-    VERSION = '0.1.5'
+    VERSION = '0.1.7'
   end
 end
 # SPDX-License-Identifier: AGPL-3.0-or-later

metadata

@@ -1,7 +1,7 @@
 --- !ruby/object:Gem::Specification
 name: ex_aequo_base
 version: !ruby/object:Gem::Version
-  version: 0.1.5
+  version: 0.1.7
 platform: ruby
 authors:
 - Robert Dober
@@ -65,10 +65,22 @@ files:
 - lib/ex_aequo/base/colorize/color_definitions.rb
 - lib/ex_aequo/base/colorize/colorizer.rb
 - lib/ex_aequo/base/constants.rb
+- lib/ex_aequo/base/enumerable.rb
+- lib/ex_aequo/base/enumerable_helper.rb
+- lib/ex_aequo/base/fn.rb
+- lib/ex_aequo/base/fn/all.rb
+- lib/ex_aequo/base/fn/curry.rb
+- lib/ex_aequo/base/fn/helpers.rb
 - lib/ex_aequo/base/kernel.rb
 - lib/ex_aequo/base/match_data.rb
 - lib/ex_aequo/base/open_struct.rb
+- lib/ex_aequo/base/regexp.rb
 - lib/ex_aequo/base/string/colorize.rb
+- lib/ex_aequo/base/to_proc.rb
+- lib/ex_aequo/base/to_proc/false_class.rb
+- lib/ex_aequo/base/to_proc/nil_class.rb
+- lib/ex_aequo/base/to_proc/regexp.rb
+- lib/ex_aequo/base/to_proc/true_class.rb
 - lib/ex_aequo/base/version.rb
 homepage: https://codeberg.org/lab419/rb_ex_aequo_base
 licenses:
@@ -88,7 +100,7 @@ required_rubygems_version: !ruby/object:Gem::Requirement
     - !ruby/object:Gem::Version
       version: '0'
 requirements: []
-rubygems_version: 3.6.8
+rubygems_version: 3.6.9
 specification_version: 4
 summary: The code I use all the time
 test_files: []