musa-dsl 0.21.0 → 0.22.0

data/lib/musa-dsl/midi/midi-voices.rb

@@ -2,6 +2,10 @@ require 'set'
 require 'midi-message'
 
 require_relative '../core-ext/arrayfy'
+require_relative '../core-ext/array-explode-ranges'
+
+using Musa::Extension::Arrayfy
+using Musa::Extension::ExplodeRanges
 
 module Musa
   module MIDIVoices

data/lib/musa-dsl/neumas/string-to-neumas.rb

@@ -24,6 +24,7 @@ module Musa
           end
         end
 
+
         alias_method :neumas, :to_neumas
         alias_method :n, :to_neumas
         alias_method :nn, :to_neumas_to_node

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

@@ -5,9 +5,10 @@ module Musa
     class REPL
       @@repl_mutex = Mutex.new
 
-      def initialize(binder, port: nil, after_eval: nil)
+      def initialize(binder, port: nil, after_eval: nil, logger: nil)
         port ||= 1327
-        redirect_stderr ||= false
+
+        @logger = logger || Musa::Logger::Logger.new
 
         @block_source = nil
 
@@ -15,7 +16,7 @@ module Musa
             binder.receiver.sequencer.respond_to?(:on_error)
 
           binder.receiver.sequencer.on_error do |e|
-            send_exception e
+            send_exception e, output: @connection
           end
         end
 
@@ -25,26 +26,33 @@ module Musa
         @main_thread = Thread.new do
           @server = TCPServer.new(port)
           begin
-            while (connection = @server.accept) && @run
+            while (@connection = @server.accept) && @run
               @client_threads << Thread.new do
                 buffer = nil
 
                 begin
-                  while (line = connection.gets) && @run
+                  while (line = @connection.gets) && @run
+
+                    @logger.warn('REPL') { 'input line is nil; will close connection...' } if line.nil?
+
                     line.chomp!
                     case line
                     when '#begin'
                       buffer = StringIO.new
+
                     when '#end'
                       @@repl_mutex.synchronize do
                         @block_source = buffer.string
 
                         begin
-                          send_echo @block_source, output: connection
+                          send_echo @block_source, output: @connection
                           binder.eval @block_source, "(repl)", 1
 
                         rescue StandardError, ScriptError => e
-                          send_exception e, output: connection
+                          @logger.warn('REPL') { 'code execution error' }
+                          @logger.warn('REPL') { e.full_message(highlight: true, order: :top) }
+
+                          send_exception e, output: @connection
                         else
                           after_eval.call @block_source if after_eval
                         end
@@ -53,16 +61,23 @@ module Musa
                       buffer.puts line
                     end
                   end
+
                 rescue IOError, Errno::ECONNRESET, Errno::EPIPE => e
-                  warn e.message
+                  @logger.warn('REPL') { 'lost connection' }
+                  @logger.warn('REPL') { e.full_message(highlight: true, order: :top) }
+
+                ensure
+                  @logger.debug("REPL") { "closing connection (running #{@run})" }
+                  @connection.close
                 end
 
-                connection.close
               end
             end
           rescue Errno::ECONNRESET, Errno::EPIPE => e
-            warn e.message
+            @logger.warn('REPL') { 'connection failure while getting server port; will retry...' }
+            @logger.warn('REPL') { e.full_message(highlight: true, order: :top) }
             retry
+
           end
         end
       end
@@ -71,9 +86,11 @@ module Musa
         @run = false
 
         @main_thread.terminate
-        @client_threads.each { |t| t.terminate }
+        Thread.pass
 
         @main_thread = nil
+
+        @client_threads.each { |t| t.terminate; Thread.pass }
         @client_threads.clear
       end
 
@@ -87,6 +104,8 @@ module Musa
 
       def send_exception(e, output:)
 
+        @logger.error('REPL') { e.full_message(highlight: true, order: :top) }
+
         send output: output, command: '//error'
 
         selected_backtrace_locations = e.backtrace_locations.select { |bt| bt.path == '(repl)' }

data/lib/musa-dsl/sequencer/base-sequencer-implementation-every.rb

@@ -0,0 +1,87 @@
+module Musa; module Sequencer
+  class BaseSequencer
+    private def _every(interval, control, block_procedure_binder: nil, &block)
+      block ||= proc {}
+
+      block_procedure_binder ||= SmartProcBinder.new block, on_rescue: proc { |e| _rescue_error(e) }
+
+      _numeric_at position, control do
+        control._start_position ||= position
+        control._execution_counter ||= 0
+
+        duration_exceeded =
+            (control._start_position + control.duration_value - interval) <= position if interval && control.duration_value
+
+        till_exceeded = control.till_value - interval <= position if interval && control.till_value
+
+        condition_failed = !control.condition_block.call if control.condition_block
+
+        unless control.stopped? || condition_failed || till_exceeded
+          block_procedure_binder.call(control: control)
+          control._execution_counter += 1
+        end
+
+
+        unless control.stopped? || duration_exceeded || till_exceeded || condition_failed || interval.nil?
+          _numeric_at control._start_position + control._execution_counter * interval, control do
+            _every interval, control, block_procedure_binder: block_procedure_binder
+          end
+
+        else
+          control.do_on_stop.each(&:call)
+
+          control.do_after.each do |do_after|
+            _numeric_at position + (interval || 0) + do_after[:bars], control, &do_after[:block]
+          end
+        end
+      end
+
+      nil
+    end
+
+    class EveryControl < EventHandler
+      attr_reader :duration_value, :till_value, :condition_block, :do_on_stop, :do_after
+
+      attr_accessor :_start_position
+      attr_accessor :_execution_counter
+
+      def initialize(parent, duration: nil, till: nil, condition: nil, on_stop: nil, after_bars: nil, after: nil)
+        super parent
+
+        @duration_value = duration
+        @till_value = till
+        @condition_block = condition
+
+        @do_on_stop = []
+        @do_after = []
+
+        @do_on_stop << on_stop if on_stop
+
+        self.after after_bars, &after if after
+      end
+
+      def duration(value)
+        @duration_value = value.rationalize
+      end
+
+      def till(value)
+        @till_value = value.rationalize
+      end
+
+      def condition(&block)
+        @condition_block = block
+      end
+
+      def on_stop(&block)
+        @do_on_stop << block
+      end
+
+      def after(bars = nil, &block)
+        bars ||= 0
+        @do_after << { bars: bars.rationalize, block: block }
+      end
+    end
+
+    private_constant :EveryControl
+  end
+end; end

data/lib/musa-dsl/sequencer/base-sequencer-implementation-move.rb

@@ -0,0 +1,439 @@
+using Musa::Extension::Hashify
+using Musa::Extension::Arrayfy
+
+using Musa::Extension::InspectNice
+
+module Musa; module Sequencer
+  class BaseSequencer
+    private def _move(every: nil,
+                      from:, to: nil,
+                      step: nil,
+                      duration: nil, till: nil,
+                      function: nil,
+                      right_open: nil,
+                      on_stop: nil,
+                      after_bars: nil, after: nil,
+                      &block)
+
+      #
+      # Main calling parameters error check
+      #
+      raise ArgumentError,
+            "Cannot use duration: #{duration} and till: #{till} parameters at the same time. " \
+              "Use only one of them." if till && duration
+
+      raise ArgumentError,
+            "Invalid use: 'function:' parameter is incompatible with 'step:' parameter" if function && step
+      raise ArgumentError,
+            "Invalid use: 'function:' parameter needs 'to:' parameter to be not nil" if function && !to
+
+      #
+      # Homogenize mode parameters
+      #
+      array_mode = from.is_a?(Array)
+      hash_mode = from.is_a?(Hash)
+
+      if array_mode
+        from = from.arrayfy
+        size = from.size
+
+      elsif hash_mode
+        hash_keys = from.keys
+        from = from.values
+        size = from.size
+
+        if every.is_a?(Hash)
+          every = hash_keys.collect { |k| every[k] }
+          raise ArgumentError,
+                "Invalid use: 'every:' parameter should contain the same keys as 'from:' Hash" \
+              unless every.all? { |_| _ }
+        end
+
+        if to.is_a?(Hash)
+          to = hash_keys.collect { |k| to[k] }
+          raise ArgumentError,
+                "Invalid use: 'to:' parameter should contain the same keys as 'from:' Hash" unless to.all? { |_| _ }
+        end
+
+        if step.is_a?(Hash)
+          step = hash_keys.collect { |k| step[k] }
+        end
+
+        if right_open.is_a?(Hash)
+          right_open = hash_keys.collect { |k| right_open[k] }
+        end
+
+      else
+        from = from.arrayfy
+        size = from.size
+      end
+
+      every = every.arrayfy(size: size)
+      to = to.arrayfy(size: size)
+      step = step.arrayfy(size: size)
+      right_open = right_open.arrayfy(size: size)
+
+      # from, to, step, every
+      # from, to, step, (duration | till)
+      # from, to, every, (duration | till)
+      # from, step, every, (duration | till)
+
+      block ||= proc {}
+
+      step.map!.with_index do |s, i|
+        (s && to[i] && ((s > 0 && to[i] < from[i]) || (s < 0 && from[i] < to[i]))) ? -s : s
+      end
+
+      right_open.map! { |v| v || false }
+
+      function ||= proc { |ratio| ratio }
+      function = function.arrayfy(size: size)
+
+      function_range = 1r.arrayfy(size: size)
+      function_offset = 0r.arrayfy(size: size)
+
+      #
+      # Prepare intervals, steps & transformation functions
+      #
+      start_position = position
+
+      if duration || till
+        effective_duration = duration || till - start_position
+
+        # Add 1 tick to arrive to final value in duration time (no need to add an extra tick)
+        right_open_offset = right_open.collect { |ro| ro ? 0 : 1 }
+
+        size.times do |i|
+          if to[i] && step[i] && !every[i]
+
+            steps = (to[i] - from[i]) / step[i]
+
+            # When to == from don't need to do any iteration with every
+            if steps + right_open_offset[i] > 0
+              every[i] = Rational(effective_duration, steps + right_open_offset[i])
+            else
+              every[i] = nil
+            end
+
+          elsif to[i] && !step[i] && !every[i]
+
+            if tick_duration > 0
+              function_range[i] = to[i] - from[i]
+              function_offset[i] = from[i]
+
+              from[i] = 0r
+              to[i] = 1r
+
+              step[i] = 1r / (effective_duration * ticks_per_bar - right_open_offset[i])
+              every[i] = tick_duration
+            else
+              raise ArgumentError, "Cannot use sequencer tickless mode without 'step' or 'every' parameter values"
+            end
+
+          elsif to[i] && !step[i] && every[i]
+            function_range[i] = to[i] - from[i]
+            function_offset[i] = from[i]
+
+            from[i] = 0r
+            to[i] = 1r
+
+            steps = effective_duration / every[i]
+            step[i] = 1r / (steps - right_open_offset[i])
+
+          elsif !to[i] && step[i] && every[i]
+            # ok
+          elsif !to[i] && !step[i] && every[i]
+            step[i] = 1r
+
+          else
+            raise ArgumentError, 'Cannot use this parameters combination (with \'duration\' or \'till\')'
+          end
+        end
+      else
+        size.times do |i|
+          if to[i] && step[i] && every[i]
+            # ok
+          elsif to[i] && !step[i] && every[i]
+            size.times do |i|
+              step[i] = (to[i] <=> from[i]).to_r
+            end
+          else
+            raise ArgumentError, 'Cannot use this parameters combination'
+          end
+        end
+      end
+
+      #
+      # Prepare yield block, parameters to yield block and coincident moving interval groups
+      #
+      binder = SmartProcBinder.new(block)
+
+      every_groups = {}
+      group_counter = {}
+
+      positions = Array.new(size)
+      q_durations = Array.new(size)
+      position_jitters = Array.new(size)
+      duration_jitters = Array.new(size)
+
+      size.times.each do |i|
+        every_groups[every[i]] ||= []
+        every_groups[every[i]] << i
+        group_counter[every[i]] = 0
+      end
+
+      #
+      # Initialize external control object
+      #
+      control = MoveControl.new(@event_handlers.last,
+                                duration: duration, till: till,
+                                on_stop: on_stop, after_bars: after_bars, after: after)
+
+      control.on_stop do
+        control.do_after.each do |do_after|
+          _numeric_at position + do_after[:bars], control, &do_after[:block]
+        end
+      end
+
+      @event_handlers.push control
+
+      #
+      # Let's go with the loop!
+      #
+      _numeric_at start_position, control do
+        next_values = from.dup
+
+        values = Array.new(size)
+        stop = Array.new(size, false)
+        last_position = Array.new(size)
+
+        #
+        # Ok, the loop is here...
+        #
+        _every _common_interval(every_groups.keys), control.every_control do
+          process_indexes = []
+
+          every_groups.each_pair do |group_interval, affected_indexes|
+            group_position = start_position + ((group_interval || 0) * group_counter[group_interval])
+
+            # We consider a position to be on current tick position when it is inside the interval of one tick
+            # centered on the current tick (current tick +- 1/2 tick duration).
+            # This allow to round the irregularly timed positions due to every intervals not integer
+            # multiples of the tick_duration.
+            #
+            if tick_duration == 0 && group_position == position ||
+                group_position >= position - tick_duration && group_position < position + tick_duration
+
+              process_indexes << affected_indexes
+
+              group_counter[group_interval] += 1
+
+              next_group_position = start_position +
+                  if group_interval
+                    (group_interval * group_counter[group_interval])
+                  else
+                    effective_duration
+                  end
+
+              next_group_q_position = _quantize_position(next_group_position)
+
+              affected_indexes.each do |i|
+                positions[i] = group_position
+                q_durations[i] = next_group_q_position - position
+
+                position_jitters[i] = group_position - position
+                duration_jitters[i] = next_group_position - next_group_q_position
+              end
+            end
+          end
+
+          process_indexes.flatten!
+
+          #
+          # Calculate values and next_values for yield block
+          #
+          if process_indexes.any?
+            process_indexes.each do |i|
+              unless stop[i]
+                values[i] = next_values[i]
+                next_values[i] += step[i]
+
+                if to[i]
+                  stop[i] = if right_open[i]
+                              step[i].positive? ? next_values[i] >= to[i] : next_values[i] <= to[i]
+                            else
+                              step[i].positive? ? next_values[i] > to[i] : next_values[i] < to[i]
+                            end
+
+                  if stop[i]
+                    if right_open[i]
+                      next_values[i] = nil if values[i] == to[i]
+                    else
+                      next_values[i] = nil
+                    end
+                  end
+                end
+              end
+            end
+
+            #
+            # Do we need stop?
+            #
+            control.stop if stop.all?
+
+            #
+            # Calculate effective values and next_values applying the parameter function
+            #
+            effective_values = from.clone(freeze: false).map!.with_index do |_, i|
+              function[i].call(values[i]) * function_range[i] + function_offset[i] unless values[i].nil?
+            end
+
+            effective_next_values = from.clone(freeze: false).map!.with_index do |_, i|
+              function[i].call(next_values[i]) * function_range[i] +
+                  function_offset[i] unless next_values[i].nil?
+            end
+
+            # TODO add to 'values' and 'next_values' elements the modules of the original from and/or to objects (i.e. GDV).
+
+            #
+            # Adapt values to array/hash/value mode
+            #
+            value_parameters, key_parameters =
+                if array_mode
+                  binder.apply(effective_values, effective_next_values,
+                               control: control,
+                               duration: _durations(every_groups, effective_duration),
+                               quantized_duration: q_durations.dup,
+                               started_ago: _started_ago(last_position, position, process_indexes),
+                               position_jitter: position_jitters.dup,
+                               duration_jitter: duration_jitters.dup,
+                               right_open: right_open.dup)
+                elsif hash_mode
+                  binder.apply(_hash_from_keys_and_values(hash_keys, effective_values),
+                               _hash_from_keys_and_values(hash_keys, effective_next_values),
+                               control: control,
+                               duration: _hash_from_keys_and_values(
+                                   hash_keys,
+                                   _durations(every_groups, effective_duration)),
+                               quantized_duration: _hash_from_keys_and_values(
+                                   hash_keys,
+                                   q_durations),
+                               started_ago: _hash_from_keys_and_values(
+                                   hash_keys,
+                                   _started_ago(last_position, position, process_indexes)),
+                               position_jitter: _hash_from_keys_and_values(
+                                   hash_keys,
+                                   position_jitters),
+                               duration_jitter: _hash_from_keys_and_values(
+                                   hash_keys,
+                                   duration_jitters),
+                               right_open: _hash_from_keys_and_values(hash_keys, right_open))
+                else
+                  binder.apply(effective_values.first,
+                               effective_next_values.first,
+                               control: control,
+                               duration: _durations(every_groups, effective_duration).first,
+                               quantized_duration: q_durations.first,
+                               position_jitter: position_jitters.first,
+                               duration_jitter: duration_jitters.first,
+                               started_ago: nil,
+                               right_open: right_open.first)
+                end
+
+            #
+            # Do the REAL thing
+            #
+            yield *value_parameters, **key_parameters
+
+            process_indexes.each { |i| last_position[i] = position }
+          end
+        end
+      end
+
+      @event_handlers.pop
+
+      control
+    end
+
+    private def _started_ago(last_positions, position, affected_indexes)
+      Array.new(last_positions.size).tap do |a|
+        last_positions.each_index do |i|
+          if last_positions[i] && !affected_indexes.include?(i)
+            a[i] = position - last_positions[i]
+          end
+        end
+      end
+    end
+
+    private def _durations(every_groups, largest_duration)
+      [].tap do |a|
+        if every_groups.any?
+          every_groups.each_pair do |every_group, affected_indexes|
+            affected_indexes.each do |i|
+              a[i] = every_group || largest_duration
+            end
+          end
+        else
+          a << largest_duration
+        end
+      end
+    end
+
+    private def _hash_from_keys_and_values(keys, values)
+      {}.tap { |h| keys.each_index { |i| h[keys[i]] = values[i] } }
+    end
+
+    private def _common_interval(intervals)
+      intervals = intervals.compact
+      return nil if intervals.empty?
+
+      lcm_denominators = intervals.collect(&:denominator).reduce(1, :lcm)
+      numerators = intervals.collect { |i| i.numerator * lcm_denominators / i.denominator }
+      gcd_numerators = numerators.reduce(numerators.first, :gcd)
+
+      #intervals.reduce(1r, :*)
+
+      Rational(gcd_numerators, lcm_denominators)
+    end
+
+    class MoveControl < EventHandler
+      attr_reader :every_control, :do_on_stop, :do_after
+
+      def initialize(parent, duration: nil, till: nil, on_stop: nil, after_bars: nil, after: nil)
+        super parent
+
+        @every_control = EveryControl.new(self, duration: duration, till: till)
+
+        @do_on_stop = []
+        @do_after = []
+
+        @do_on_stop << on_stop if on_stop
+        self.after after_bars, &after if after
+
+        @every_control.on_stop do
+          @stop = true
+          @do_on_stop.each(&:call)
+        end
+      end
+
+      def on_stop(&block)
+        @do_on_stop << block
+      end
+
+      def after(bars = nil, &block)
+        bars ||= 0
+        @do_after << { bars: bars.rationalize, block: block }
+      end
+
+      def stop
+        @every_control.stop
+      end
+
+      def stopped?
+        @stop
+      end
+    end
+
+    private_constant :MoveControl
+  end
+end; end