ex_aequo_base 0.1.4 → 0.1.6

checksums.yaml

@@ -1,7 +1,7 @@
 ---
 SHA256:
-  metadata.gz: 2f42430967e4c2f9e06b956df55783e74a92a1e820d226b580517f21f50c00e2
-  data.tar.gz: fb27b96a0dcabf3730527c162013114a465c00ac4a369595c25ac17fc9d032ad
+  metadata.gz: 651fee9239497761fb48b5794e89687a1789de5aefd5d463527cf336b36c5f6d
+  data.tar.gz: b191bce7fcd36aa4820557fc3cc45bdbe9719b91e035328a9db6566183538ab6
 SHA512:
-  metadata.gz: 84104dce64e79d0fe8945d1aeaac2f63bbb14329933eb4e9f84aefbfae68f2b842c9c0de5c82dca1c1c1cfddc3d2060dd532f7d03001efeffe5d3625b15b8a23
-  data.tar.gz: ce17b03ae58f71e3b0d9c2c45d9c7e55a32b1ad7788f1c31163f4fd263879c340a1a6558495026060caf950dcf0a394eb43ccef3b1112f1164165e8b3a241343
+  metadata.gz: ca06e3932d06661ed25f7dc43ea57fd5edb47ed21a4aed9bbabd55e66c74f46546e20ce833f614244d8ad2a10a3bbc1aed51a658362cf0b19e3a12d46de4e44c
+  data.tar.gz: c27d73f78cbbc1820b9e55a66ba9115e7717006135e9d57148831060e37fe56a272c103e7cd6a986728fd87f393fa91c3facdbe4f0980d3d544fa115c70a2369

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.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/kernel.rb

@@ -3,14 +3,13 @@
 require_relative 'constants'
 module ExAequo::Base::KernelHelper extend self
 
-  def require_subdir(file, descend:, &blk)
-
-    raise ArgumentError, "must not provide positional file parameter #{file.inspect} and a block" if file && blk
-    raise ArgumentError, "must provide file or block" unless file || blk
-    if file
-      req_subdir_file(file, descend:)
-    else
+  def require_subdir(*files, descend:, &blk)
+    raise ArgumentError, "must not provide positional file parameter #{files} and a block" if !files.empty? && blk
+    raise ArgumentError, "must provide file or block" unless !files.empty? || blk
+    if files.empty?
       req_subdir_blk(descend:, &blk)
+    else
+      req_subdir_file(File.join(files), descend:)
     end
   end
 
@@ -46,8 +45,8 @@ module ExAequo::Base::KernelHelper extend self
 end
 
 module Kernel
-  def require_subdir(file=nil, descend: false, &blk)
-    ExAequo::Base::KernelHelper.require_subdir(file, descend:, &blk)
+  def require_subdir(*files, descend: false, &blk)
+    ExAequo::Base::KernelHelper.require_subdir(*files, descend:, &blk)
   end
 end
 # SPDX-License-Identifier: AGPL-3.0-or-later

data/lib/ex_aequo/base/open_struct.rb

@@ -6,6 +6,12 @@ class OpenStruct
   extend Forwarder
   forward_all :deconstruct_keys, :empty?, :fetch, :has_key?, to: :to_h
 
+  def self.to_proc
+    -> hashy do
+      new hashy
+    end
+  end
+
   def update(hashy)
     hashy.to_h.each do |k, v|
       self[k] = v

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.4'
+    VERSION = '0.1.6'
   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.4
+  version: 0.1.6
 platform: ruby
 authors:
 - Robert Dober
@@ -65,10 +65,19 @@ 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/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: