musa-dsl 0.22.1 → 0.22.6

data/lib/musa-dsl/series/series.rb

@@ -12,4 +12,4 @@ require_relative 'queue-serie'
 require_relative 'hash-or-array-serie-splitter'
 
 require_relative 'quantizer-serie'
-require_relative 'flattener-timed-serie'
+require_relative 'timed-serie'

data/lib/musa-dsl/series/timed-serie.rb

@@ -0,0 +1,356 @@
+require_relative '../datasets/e'
+
+module Musa
+  module Series
+    extend self
+
+    def TIMED_UNION(*array_of_timed_series, **hash_of_timed_series)
+      raise ArgumentError, 'Can\'t union an array of series with a hash of series' if array_of_timed_series.any? && hash_of_timed_series.any?
+
+      if array_of_timed_series.any?
+        TimedUnionOfArrayOfTimedSeries.new(array_of_timed_series)
+      elsif hash_of_timed_series.any?
+        TimedUnionOfHashOfTimedSeries.new(hash_of_timed_series)
+      else
+        raise ArgumentError, 'Missing argument series'
+      end
+    end
+
+    class TimedUnionOfArrayOfTimedSeries
+      include Serie
+
+      attr_reader :sources
+
+      def initialize(series)
+        @sources = if series[0].prototype?
+                     series.collect(&:prototype).freeze
+                   else
+                     series.collect(&:instance)
+                   end
+
+        _restart false
+
+        mark_regarding! series[0]
+      end
+
+      private def _restart(restart_sources = true)
+        @sources.each(&:restart) if restart_sources
+        @sources_next_values = Array.new(@sources.size)
+
+        @components = nil
+      end
+
+      private def _next_value
+        sources_values = @sources_next_values.each_index.collect do |i|
+          @sources_next_values[i] || (@sources_next_values[i] = @sources[i].next_value)
+        end
+
+        @components, @hash_mode, @array_mode = infer_components(sources_values) unless @components
+
+        time = sources_values.collect { |_| _&.[](:time) }.compact.min
+
+        if time
+          selected_values = sources_values.collect { |_| _ if _&.[](:time) == time }
+
+          @sources_next_values.each_index do |i|
+            if @sources_next_values[i]&.[](:time) == time
+              @sources_next_values[i] = nil
+            end
+          end
+
+          result = { time: time }
+
+          @components.each do |attribute_name, components|
+            if @hash_mode
+              result[attribute_name] = {}
+            elsif @array_mode
+              result[attribute_name] = []
+            else # value mode
+              result[attribute_name] = []
+            end
+
+            components.each do |target_key_or_index, source_placement|
+              result[attribute_name][target_key_or_index] = selected_values.dig(*source_placement)
+            end
+          end
+
+          result.extend(Musa::Datasets::AbsTimed)
+        else
+          nil
+        end
+      end
+
+      def infinite?
+        !!@sources.find(&:infinite?)
+      end
+    end
+
+    private def infer_components(sources_values)
+      other_attributes = Set[]
+
+      sources_values.each do |source_value|
+        (source_value.keys - [:time, :value]).each { |_| other_attributes << _ }
+      end
+
+      components = {}
+      components[:value] = {}
+
+      hash_mode = array_mode = nil
+
+      other_attributes.each do |attribute_name|
+        components[attribute_name] = {}
+      end
+
+      target_index = 0
+
+      sources_values.each_with_index do |source_value, i|
+        case source_value[:value]
+        when Hash
+          hash_mode = true
+
+          source_value[:value].keys.each do |key|
+            raise RuntimeError, "Value: key #{key} already used" unless components[:value][key].nil?
+
+            components[:value][key] = [i, :value, key]
+
+            other_attributes.each do |attribute_name|
+              raise RuntimeError, "Attribute #{attribute_name}: key #{key} already used" unless components[attribute_name][key].nil?
+              components[attribute_name][key] = [i, attribute_name, key]
+            end
+          end
+        when Array
+          array_mode = true
+
+          (0..source_value[:value].size - 1).each do |index|
+            components[:value][target_index] = [i, :value, index]
+
+            other_attributes.each do |attribute_name|
+              components[attribute_name][target_index] = [i, attribute_name, index]
+            end
+
+            target_index += 1
+          end
+        else
+          components[:value][target_index] = [i, :value]
+
+          other_attributes.each do |attribute_name|
+            components[attribute_name][target_index] = [i, attribute_name]
+          end
+
+          target_index += 1
+        end
+      end
+
+      raise RuntimeError, "source series values are of incompatible type (can't combine Hash and Array values)" if array_mode && hash_mode
+
+      return components, hash_mode, array_mode
+    end
+
+    private_constant :TimedUnionOfArrayOfTimedSeries
+
+    class TimedUnionOfHashOfTimedSeries
+      include Serie
+
+      attr_reader :sources
+
+      def initialize(series)
+        @components = series.keys
+
+        @sources = if series.values.first.prototype?
+                     series.transform_values(&:prototype).freeze
+                   else
+                     series.transform_values(&:instance)
+                   end
+
+        _restart false
+
+        mark_regarding! series.values.first
+      end
+
+      private def _restart(restart_sources = true)
+        @sources.each_value(&:restart) if restart_sources
+        @sources_next_values = @components.collect { |k| [k, nil] }.to_h
+        @other_attributes = nil
+      end
+
+      private def _next_value
+        sources_values = {}
+
+        @components.each do |key|
+          sources_values[key] = @sources_next_values[key] || (@sources_next_values[key] = @sources[key].next_value)
+        end
+
+        @other_attributes = infer_other_attributes(sources_values) unless @other_attributes
+
+        time = sources_values.values.collect { |_| _&.[](:time) }.compact.min
+
+        if time
+          selected_values = sources_values.transform_values { |_| _ if _&.[](:time) == time }
+
+          @sources_next_values.each_key do |key|
+            if @sources_next_values[key]&.[](:time) == time
+              @sources_next_values[key] = nil
+            end
+          end
+
+          result = { time: time, value: {} }
+
+          @other_attributes.each do |attribute_name|
+            result[attribute_name] = {}
+          end
+
+          @components.each do |component|
+            result[:value][component] = selected_values[component]&.[](:value)
+
+            @other_attributes.each do |attribute_name|
+              result[attribute_name][component] = selected_values[component]&.[](attribute_name)
+            end
+          end
+
+          result.extend(Musa::Datasets::AbsTimed)
+        else
+          nil
+        end
+      end
+
+      def infinite?
+        !!@sources.find(&:infinite?)
+      end
+
+      private def infer_other_attributes(sources_values)
+        other_attributes = Set[]
+
+        sources_values.each_value do |source_value|
+          (source_value.keys - [:time, :value]).each do |attribute_name|
+            other_attributes << attribute_name
+          end
+        end
+
+        other_attributes
+      end
+    end
+
+    private_constant :TimedUnionOfHashOfTimedSeries
+
+    module SerieOperations
+      def flatten_timed
+        TimedFlattener.new(self)
+      end
+
+      def compact_timed
+        TimedCompacter.new(self)
+      end
+
+      def union_timed(*other_timed_series, key: nil, **other_key_timed_series)
+        if key && other_key_timed_series.any?
+          Series::TIMED_UNION(key => self, **other_key_timed_series)
+
+        elsif other_timed_series.any? && other_key_timed_series.empty?
+          Series::TIMED_UNION(self, *other_timed_series)
+
+        else
+          raise ArgumentError, 'Can\'t union an array of series with a hash of series'
+        end
+      end
+
+      class TimedFlattener
+        include Serie
+
+        attr_reader :source
+
+        def initialize(serie)
+          @source = serie
+          mark_regarding! @source
+        end
+
+        def _restart
+          @source.restart
+        end
+
+        def _next_value
+          source_value = @source.next_value
+
+          if !source_value.nil?
+            time = source_value[:time]
+            source_value_value = source_value[:value]
+
+            source_value_extra = (source_value.keys - [:time, :value]).collect do |attribute_name|
+              [attribute_name, source_value[attribute_name]]
+            end.to_h
+
+            case source_value_value
+            when Hash
+              result = {}
+              source_value_value.each_pair do |key, value|
+                result[key] = { time: time, value: value }.extend(Musa::Datasets::AbsTimed)
+
+                source_value_extra.each do |attribute_name, attribute_value|
+                  result[key][attribute_name] = attribute_value[key]
+                end
+              end
+
+            when Array
+              result = []
+              source_value_value.each_index do |index|
+                result[index] = { time: time, value: source_value_value[index] }.extend(Musa::Datasets::AbsTimed)
+
+                source_value_extra.each do |attribute_name, attribute_value|
+                  result[index][attribute_name] = attribute_value[index]
+                end
+              end
+            else
+              result = source_value.clone.extend(Musa::Datasets::AbsTimed)
+            end
+
+            result.extend(Musa::Datasets::AbsTimed)
+          else
+            nil
+          end
+        end
+
+        def infinite?
+          @source.infinite?
+        end
+      end
+
+      private_constant :TimedFlattener
+    end
+
+    class TimedCompacter
+      include Serie
+
+      attr_reader :source
+
+      def initialize(serie)
+        @source = serie
+        mark_regarding! @source
+      end
+
+      def _restart
+        @source.restart
+      end
+
+      def _next_value
+        while (source_value = @source.next_value) && skip_value?(source_value[:value]); end
+        source_value
+      end
+
+      def infinite?
+        @source.infinite?
+      end
+
+      private def skip_value?(timed_value)
+        case timed_value
+        when Hash
+          timed_value.all? { |_, v| v.nil? }
+        when Array
+          timed_value.all?(&:nil?)
+        else
+          timed_value.nil?
+        end
+      end
+    end
+
+    private_constant :TimedCompacter
+  end
+end

data/musa-dsl.gemspec

@@ -1,9 +1,9 @@
 Gem::Specification.new do |s|
   s.name        = 'musa-dsl'
-  s.version     = '0.22.1'
-  s.date        = '2020-11-11'
+  s.version     = '0.22.6'
+  s.date        = '2020-11-25'
   s.summary     = 'A simple Ruby DSL for making complex music'
-  s.description = 'Musa-DSL: A Ruby DSL for algorithmic music composition, device language neutral (MIDI, OSC, etc)'
+  s.description = 'Musa-DSL: A Ruby framework and DSL for algorithmic sound and musical thinking and composition'
   s.authors     = ['Javier Sánchez Yeste']
   s.email       = 'javier.sy@gmail.com'
   s.files       = `git ls-files -z`.split("\x0").reject { |f| f.match(%r{^(test|spec|features|samples)/}) }

metadata

@@ -1,14 +1,14 @@
 --- !ruby/object:Gem::Specification
 name: musa-dsl
 version: !ruby/object:Gem::Version
-  version: 0.22.1
+  version: 0.22.6
 platform: ruby
 authors:
 - Javier Sánchez Yeste
 autorequire:
 bindir: bin
 cert_chain: []
-date: 2020-11-11 00:00:00.000000000 Z
+date: 2020-11-25 00:00:00.000000000 Z
 dependencies:
 - !ruby/object:Gem::Dependency
   name: citrus
@@ -70,8 +70,8 @@ dependencies:
     - - ">="
       - !ruby/object:Gem::Version
         version: 0.2.4
-description: 'Musa-DSL: A Ruby DSL for algorithmic music composition, device language
-  neutral (MIDI, OSC, etc)'
+description: 'Musa-DSL: A Ruby framework and DSL for algorithmic sound and musical
+  thinking and composition'
 email: javier.sy@gmail.com
 executables: []
 extensions: []
@@ -170,16 +170,15 @@ files:
 - lib/musa-dsl/sequencer/base-sequencer-implementation-play-timed.rb
 - lib/musa-dsl/sequencer/base-sequencer-implementation-play.rb
 - lib/musa-dsl/sequencer/base-sequencer-implementation.rb
-- lib/musa-dsl/sequencer/base-sequencer-public.rb
 - lib/musa-dsl/sequencer/base-sequencer-tick-based.rb
 - lib/musa-dsl/sequencer/base-sequencer-tickless-based.rb
+- lib/musa-dsl/sequencer/base-sequencer.rb
 - lib/musa-dsl/sequencer/sequencer-dsl.rb
 - lib/musa-dsl/sequencer/sequencer.rb
 - lib/musa-dsl/sequencer/timeslots.rb
 - lib/musa-dsl/series.rb
 - lib/musa-dsl/series/array-to-serie.rb
 - lib/musa-dsl/series/base-series.rb
-- lib/musa-dsl/series/flattener-timed-serie.rb
 - lib/musa-dsl/series/hash-or-array-serie-splitter.rb
 - lib/musa-dsl/series/holder-serie.rb
 - lib/musa-dsl/series/main-serie-constructors.rb
@@ -188,6 +187,7 @@ files:
 - lib/musa-dsl/series/quantizer-serie.rb
 - lib/musa-dsl/series/queue-serie.rb
 - lib/musa-dsl/series/series.rb
+- lib/musa-dsl/series/timed-serie.rb
 - lib/musa-dsl/transcription.rb
 - lib/musa-dsl/transcription/from-gdv-to-midi.rb
 - lib/musa-dsl/transcription/from-gdv-to-musicxml.rb

data/lib/musa-dsl/series/flattener-timed-serie.rb

@@ -1,61 +0,0 @@
-require_relative '../datasets/e'
-
-module Musa
-  module Series
-
-    module SerieOperations
-      def flatten_timed
-        TimedFlattener.new(self)
-      end
-
-      class TimedFlattener
-        include Serie
-
-        attr_reader :source
-
-        def initialize(serie)
-          @source = serie
-          mark_regarding! @source
-        end
-
-        def _restart
-          @source.restart
-        end
-
-        def _next_value
-          source_value = @source.next_value
-
-          if !source_value.nil?
-            time = source_value[:time]
-            source_value_value = source_value[:value]
-
-            case source_value_value
-            when Hash
-              result = {}
-              source_value_value.each_pair do |key, value|
-                result[key] = { time: time, value: value }.extend(Musa::Datasets::AbsTimed)
-              end
-            when Array
-              result = []
-              source_value_value.each_index do |index|
-                result[index] = { time: time, value: source_value_value[index] }.extend(Musa::Datasets::AbsTimed)
-              end
-            else
-              raise RuntimeError, "Don't know how to handle #{source_value_value}"
-            end
-
-            result
-          else
-            nil
-          end
-        end
-
-        def infinite?
-          @source.infinite?
-        end
-      end
-
-      private_constant :TimedFlattener
-    end
-  end
-end