musa-dsl 0.14.32 → 0.21.0

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

@@ -1,179 +1,410 @@
-require 'musa-dsl/series'
 require 'citrus'
 
-module Musa::Neumalang
-  module Parser
-    module Sentences
-      include Musa::Series
+require_relative '../series'
+require_relative '../neumas'
+require_relative '../datasets'
 
-      def value
-        _SE(captures(:sentence).collect(&:value), extends: Neumas)
-      end
-    end
+module Musa
+  module Neumalang
+    module Neumalang
+      module Parser
+        module Grammar; end
 
-    module BracketedBarSentences
-      include Musa::Series
+        module Sentences
+          include Musa::Series
+          include Musa::Neumas
 
-      def value
-        { kind: :parallel,
-          parallel: [{ kind: :serie, serie: S(*capture(:aa).value) }] + captures(:bb).collect { |c| { kind: :serie, serie: S(*c.value) } }
-        }.extend(Neuma::Parallel)
-      end
-    end
+          def value
+            _SE(captures(:expression).collect(&:value), extends: Neuma::Serie)
+          end
+        end
 
-    module BracketedSentences
-      include Musa::Series
+        module BracketedBarSentences
+          include Musa::Series
+          include Musa::Neumas
 
-      def value
-        { kind: :serie,
-          serie: S(*capture(:sentences).value) }.extend Neuma
-      end
-    end
+          def value
+            { kind: :parallel,
+              parallel: [{ kind: :serie,
+                           serie: S(*capture(:aa).value) }] +
+                                  captures(:bb).collect { |c| { kind: :serie, serie: S(*c.value) } }
+            }.extend(Neuma::Parallel)
+          end
+        end
 
-    module ReferenceExpression
-      def value
-        { kind: :reference,
-          reference: capture(:expression).value }.extend Neuma
-      end
-    end
+        module BracketedSentences
+          include Musa::Series
+          include Musa::Neumas
 
-    module VariableAssign
-      def value
-        { kind: :assign_to,
-          assign_to: captures(:use_variable).collect { |c| c.value[:use_variable] }, assign_value: capture(:expression).value
-        }.extend Neuma
-      end
-    end
+          def value
+            { kind: :serie,
+              serie: S(*capture(:sentences).value) }.extend Neuma
+          end
+        end
 
-    module Event
-      def value
-        { kind: :event,
-          event: capture(:name).value.to_sym
-        }.merge(capture(:parameters) ? capture(:parameters).value : {}).extend Neuma
-      end
-    end
+        module ReferenceExpression
+          include Musa::Neumas
 
-    module BracedCommand
-      def value
-        { kind: :command,
-          command: eval("proc { #{capture(:complex_command).value.strip} }")
-        }.merge(capture(:parameters) ? capture(:parameters).value : {}).extend Neuma
-      end
-    end
+          def value
+            { kind: :reference,
+              reference: capture(:expression).value }.extend Neuma
+          end
+        end
 
-    module CallMethodsExpression
-      def value
-        { kind: :call_methods,
-          call_methods: captures(:method_call).collect(&:value),
-          on: capture(:object_expression).value }.extend Neuma
-      end
-    end
+        module VariableAssign
+          include Musa::Neumas
 
-    module UseVariable
-      def value
-        { kind: :use_variable,
-          use_variable: "@#{capture(:name).value}".to_sym }.extend Neuma
-      end
-    end
+          def value
+            { kind: :assign_to,
+              assign_to: captures(:use_variable).collect { |c| c.value[:use_variable] },
+              assign_value: capture(:expression).value
+            }.extend Neuma
+          end
+        end
 
-    module NeumaAsDottedAttributesBeginningWithSimpleAttribute
-      def value
-        { kind: :neuma,
-          neuma: (capture(:a) ? [capture(:a).value] : []) + captures(:b).collect(&:value) }.extend Neuma
-      end
-    end
+        module Event
+          include Musa::Neumas
 
-    module NeumaAsDottedAttributesBeginningWithDot
-      def value
-        { kind: :neuma,
-          neuma: (capture(:attribute) ? [ nil ] : []) + captures(:attribute).collect(&:value) }.extend Neuma
-      end
-    end
+          def value
+            { kind: :event,
+              event: capture(:name).value.to_sym
+            }.merge(capture(:parameters) ? capture(:parameters).value : {}).extend Neuma
+          end
+        end
 
-    module NeumaBetweenAnglesAttributes
-      def value
-        { kind: :neuma,
-          neuma: (capture(:simple_attribute) ? [capture(:simple_attribute).value] : []) + captures(:attribute).collect(&:value) }.extend Neuma
-      end
-    end
+        module Parameters
+          def value
+            value_parameters = []
+            key_value_parameters = {}
 
-    module Symbol
-      def value
-        { kind: :value,
-          value: capture(:name).value.to_sym }.extend Neuma
-      end
-    end
+            captures(:parameter).each do |pp|
+              p = pp.value
+              if p.has_key? :key_value
+                key_value_parameters.merge! p[:key_value]
+              else
+                value_parameters << p[:value]
+              end
+            end
 
-    module String
-      def value
-        { kind: :value,
-          value: capture(:everything_except_double_quote).value }.extend Neuma
-      end
-    end
+            {}.tap do |_|
+              _[:value_parameters] = value_parameters unless value_parameters.empty?
+              _[:key_parameters] = key_value_parameters unless key_value_parameters.empty?
+            end
+          end
+        end
 
-    module Float
-      def value
-        { kind: :value,
-          value: capture(:str).value.to_f }.extend Neuma
-      end
-    end
+        module Parameter
+          def value
+            if capture(:key_value_parameter)
+              { key_value: capture(:key_value_parameter).value }
+            else
+              { value: capture(:expression).value }
+            end
+          end
+        end
 
-    module Integer
-      def value
-        { kind: :value,
-          value: capture(:digits).value.to_i }.extend Neuma
-      end
-    end
+        module BracedCommand
+          include Musa::Neumas
 
-    module Rational
-      def value
-        { kind: :value,
-          value: capture(:str).value.to_r }.extend Neuma
-      end
-    end
-  end
+          def value
+            { kind: :command,
+              command: eval("proc { #{capture(:complex_command).value.strip} }")
+            }.merge(capture(:parameters) ? capture(:parameters).value : {}).extend Neuma
+          end
+        end
 
-  def self.register(grammar_path)
-    Citrus.load grammar_path
-  end
+        module CallMethodsExpression
+          include Musa::Neumas
+
+          def value
+            { kind: :call_methods,
+              call_methods: captures(:method_call).collect(&:value),
+              on: capture(:object_expression).value }.extend Neuma
+          end
+        end
 
-  def self.parse(string_or_file, language: nil, decode_with: nil, debug: nil)
-    language ||= Neumalang
+        module UseVariable
+          include Musa::Neumas
 
-    match = nil
+          def value
+            { kind: :use_variable,
+              use_variable: "@#{capture(:name).value}".to_sym }.extend Neuma
+          end
+        end
 
-    if string_or_file.is_a? String
-      match = language.parse string_or_file
+        module NeumaAsAttributes
+          include Musa::Neumas
+          include Musa::Datasets
 
-    elsif string_or_file.is_a? File
-      match = language.parse string_or_file.read
+          def value
+            h = {}.extend GDVd
 
-    else
-      raise ArgumentError, 'Only String or File allowed to be parsed'
-    end
+            capture(:grade)&.value&.tap { |_| h.merge! _ if _ }
+            capture(:octave)&.value&.tap { |_| h.merge! _ if _ }
+            capture(:duration)&.value&.tap { |_| h.merge! _ if _ }
+            capture(:velocity)&.value&.tap { |_| h.merge! _ if _ }
 
-    match.dump if debug
+            h[:modifiers] = {} unless captures(:modifiers).empty?
+            captures(:modifiers).collect(&:value).each { |_| h[:modifiers].merge! _ if _ }
+
+            { kind: :gdvd, gdvd: h }.extend Neuma
+          end
+        end
 
-    serie = match.value
+        module PackedVector
+          include Musa::Neumas
+
+          def value
+            { kind: :packed_v, packed_v: capture(:raw_packed_vector).value }.extend(Neuma)
+          end
+        end
+
+        module RawPackedVector
+          include Musa::Datasets
+
+          def value
+            captures(:key_value).collect(&:value).to_h.extend(PackedV)
+          end
+        end
+
+        module Vector
+          include Musa::Neumas
+
+          def value
+            { kind: :v, v: capture(:raw_vector).value }.extend(Neuma)
+          end
+        end
+
+        module RawVector
+          include Musa::Datasets
+
+          def value
+            captures(:raw_number).collect(&:value).extend(V)
+          end
+        end
+
+        module ProcessOfVectors
+          include Musa::Datasets
+          include Musa::Neumas
+
+          def value
+            durations_rest = []
+            i = 0
+
+            rests = captures(:rest).collect(&:value)
+            captures(:durations).collect(&:value).each do |duration|
+              durations_rest[i * 2] = duration
+              durations_rest[i * 2 + 1] = rests[i]
+              i += 1
+            end
+
+            p = ([ capture(:first).value ] + durations_rest).extend(P)
+            { kind: :p, p: p }.extend(Neuma)
+          end
+        end
 
-    if decode_with
-      serie.eval do |e|
-        if e[:kind] == :neuma
-          decode_with.decode(e[:neuma])
+        module DeltaGradeAttribute
+          def value
+
+            value = {}
+
+            sign = capture(:sign)&.value || 1
+
+            value[:delta_grade] = capture(:grade).value * sign if capture(:grade)
+            value[:delta_sharps] = capture(:accidentals).value * sign if capture(:accidentals)
+
+            value[:delta_interval] = capture(:interval).value if capture(:interval)
+            value[:delta_interval_sign] = sign if capture(:interval) && capture(:sign)
+
+            value
+          end
+        end
+
+        module AbsGradeAttribute
+          def value
+            value = {}
+
+            value[:abs_grade] = capture(:grade).value if capture(:grade)
+            value[:abs_grade] ||= capture(:interval).value.to_sym if capture(:interval)
+
+            value[:abs_sharps] = capture(:accidentals).value if capture(:accidentals)
+
+            value
+          end
+        end
+
+        module DeltaOctaveAttribute
+          def value
+            { delta_octave: capture(:sign).value * capture(:number).value }
+          end
+        end
+
+        module AbsOctaveAttribute
+          def value
+            { abs_octave: capture(:number).value }
+          end
+        end
+
+        module DurationCalculation
+          def duration
+            base = capture(:number)&.value
+
+            slashes = capture(:slashes)&.value || 0
+            base ||= Rational(1, 2**slashes.to_r)
+
+            dots_extension = 0
+            capture(:mid_dots)&.value&.times do |i|
+              dots_extension += Rational(base, 2**(i+1))
+            end
+
+            base + dots_extension
+          end
+        end
+
+        module DeltaDurationAttribute
+          include DurationCalculation
+
+          def value
+            sign = capture(:sign).value
+
+            { delta_duration: sign * duration }
+          end
+        end
+
+        module AbsDurationAttribute
+          include DurationCalculation
+
+          def value
+            { abs_duration: duration }
+          end
+        end
+
+        module FactorDurationAttribute
+          def value
+            { factor_duration: capture(:number).value ** (capture(:factor).value == '/' ? -1 : 1) }
+          end
+        end
+
+        module AbsVelocityAttribute
+          def value
+            if capture(:p)
+              v = -capture(:p).length
+            elsif capture(:mp)
+              v = 0
+            elsif capture(:mf)
+              v = 1
+            else
+              v = capture(:f).length + 1
+            end
+
+            { abs_velocity: v }
+          end
+        end
+
+        module DeltaVelocityAttribute
+          def value
+            d = capture(:delta).value
+            s = capture(:sign).value
+
+            if /p+/.match?(d)
+              v = -d.length
+            else
+              v = d.length
+            end
+
+            { delta_velocity: s * v }
+          end
+        end
+
+        module AppogiaturaNeuma
+          def value
+            capture(:base).value.tap do |_|
+              _[:gdvd][:modifiers] ||= {}
+              _[:gdvd][:modifiers][:appogiatura] = capture(:appogiatura).value[:gdvd]
+            end
+          end
+        end
+
+        module Symbol
+          include Musa::Neumas
+
+          def value
+            { kind: :value,
+              value: capture(:name).value.to_sym }.extend Neuma
+          end
+        end
+
+        module String
+          include Musa::Neumas
+
+          def value
+            { kind: :value,
+              value: capture(:everything_except_double_quote).value }.extend Neuma
+          end
+        end
+
+        module Number
+          include Musa::Neumas
+
+          def value
+            { kind: :value,
+              value: capture(:raw_number).value }.extend Neuma
+          end
+        end
+
+        module Special
+          include Musa::Neumas
+
+          def value
+            v = captures(0)
+            { kind: :value,
+              value: v == 'nil' ? nil : (v == 'true' ? true : false) }.extend Neuma
+          end
+        end
+      end
+
+      extend self
+
+      def parse(string_or_file, decode_with: nil, debug: nil)
+        if string_or_file.is_a? String
+          match = Parser::Grammar::Grammar.parse string_or_file
+
+        elsif string_or_file.is_a? File
+          match = Parser::Grammar::Grammar.parse string_or_file.read
+
+        else
+          raise ArgumentError, 'Only String or File allowed to be parsed'
+        end
+
+        match.dump if debug
+
+        serie = match.value
+
+        if decode_with
+          serie.eval do |e|
+            if e[:kind] == :gdvd
+              decode_with.decode(e[:gdvd])
+            else
+              raise ArgumentError, "Don't know how to convert #{e} to neumas"
+            end
+          end
         else
-          raise ArgumentError, "Don't know how to convert #{e} to neuma"
+          serie
         end
       end
-    else
-      serie
-    end
-  end
 
-  def self.parse_file(filename, decode_with: nil, debug: nil)
-    File.open filename do |file|
-      parse file, decode_with: decode_with, debug: debug
+      def parse_file(filename, decode_with: nil, debug: nil)
+        File.open filename do |file|
+          parse file, decode_with: decode_with, debug: debug
+        end
+      end
+
+      Citrus.load File.join(File.dirname(__FILE__), 'terminals.citrus')
+      Citrus.load File.join(File.dirname(__FILE__), 'datatypes.citrus')
+      Citrus.load File.join(File.dirname(__FILE__), 'neuma.citrus')
+      Citrus.load File.join(File.dirname(__FILE__), 'vectors.citrus')
+      Citrus.load File.join(File.dirname(__FILE__), 'process.citrus')
+      Citrus.load File.join(File.dirname(__FILE__), 'neumalang.citrus')
     end
   end
-
-  register File.join(File.dirname(__FILE__), 'neumalang')
 end