musicality 0.1.0

data/lib/musicality/notation/parsing/meter_parsing.rb

@@ -0,0 +1,190 @@
+# Autogenerated from a Treetop grammar. Edits may be lost.
+
+
+module Musicality
+module Parsing
+
+module Meter
+  include Treetop::Runtime
+
+  def root
+    @root ||= :meter
+  end
+
+  include PositiveInteger
+
+  def _nt_meter
+    start_index = index
+    if node_cache[:meter].has_key?(index)
+      cached = node_cache[:meter][index]
+      if cached
+        node_cache[:meter][index] = cached = SyntaxNode.new(input, index...(index + 1)) if cached == true
+        @index = cached.interval.end
+      end
+      return cached
+    end
+
+    i0 = index
+    r1 = _nt_meter1
+    if r1
+      r1 = SyntaxNode.new(input, (index-1)...index) if r1 == true
+      r0 = r1
+    else
+      r2 = _nt_meter2
+      if r2
+        r2 = SyntaxNode.new(input, (index-1)...index) if r2 == true
+        r0 = r2
+      else
+        @index = i0
+        r0 = nil
+      end
+    end
+
+    node_cache[:meter][start_index] = r0
+
+    r0
+  end
+
+  module Meter10
+    def bpm
+      elements[0]
+    end
+
+    def bd
+      elements[2]
+    end
+  end
+
+  module Meter11
+    def to_meter
+      Musicality::Meter.new(bpm.to_i, Rational(1,bd.to_i))
+    end
+  end
+
+  def _nt_meter1
+    start_index = index
+    if node_cache[:meter1].has_key?(index)
+      cached = node_cache[:meter1][index]
+      if cached
+        node_cache[:meter1][index] = cached = SyntaxNode.new(input, index...(index + 1)) if cached == true
+        @index = cached.interval.end
+      end
+      return cached
+    end
+
+    i0, s0 = index, []
+    r1 = _nt_positive_integer
+    s0 << r1
+    if r1
+      if (match_len = has_terminal?("/", false, index))
+        r2 = true
+        @index += match_len
+      else
+        terminal_parse_failure("/")
+        r2 = nil
+      end
+      s0 << r2
+      if r2
+        r3 = _nt_positive_integer
+        s0 << r3
+      end
+    end
+    if s0.last
+      r0 = instantiate_node(SyntaxNode,input, i0...index, s0)
+      r0.extend(Meter10)
+      r0.extend(Meter11)
+    else
+      @index = i0
+      r0 = nil
+    end
+
+    node_cache[:meter1][start_index] = r0
+
+    r0
+  end
+
+  module Meter20
+    def bpm
+      elements[0]
+    end
+
+    def num
+      elements[2]
+    end
+
+    def den
+      elements[4]
+    end
+  end
+
+  module Meter21
+    def to_meter
+      Musicality::Meter.new(bpm.to_i, Rational(num.to_i,den.to_i))
+    end
+  end
+
+  def _nt_meter2
+    start_index = index
+    if node_cache[:meter2].has_key?(index)
+      cached = node_cache[:meter2][index]
+      if cached
+        node_cache[:meter2][index] = cached = SyntaxNode.new(input, index...(index + 1)) if cached == true
+        @index = cached.interval.end
+      end
+      return cached
+    end
+
+    i0, s0 = index, []
+    r1 = _nt_positive_integer
+    s0 << r1
+    if r1
+      if (match_len = has_terminal?("*", false, index))
+        r2 = true
+        @index += match_len
+      else
+        terminal_parse_failure("*")
+        r2 = nil
+      end
+      s0 << r2
+      if r2
+        r3 = _nt_positive_integer
+        s0 << r3
+        if r3
+          if (match_len = has_terminal?("/", false, index))
+            r4 = true
+            @index += match_len
+          else
+            terminal_parse_failure("/")
+            r4 = nil
+          end
+          s0 << r4
+          if r4
+            r5 = _nt_positive_integer
+            s0 << r5
+          end
+        end
+      end
+    end
+    if s0.last
+      r0 = instantiate_node(SyntaxNode,input, i0...index, s0)
+      r0.extend(Meter20)
+      r0.extend(Meter21)
+    else
+      @index = i0
+      r0 = nil
+    end
+
+    node_cache[:meter2][start_index] = r0
+
+    r0
+  end
+
+end
+
+class MeterParser < Treetop::Runtime::CompiledParser
+  include Meter
+end
+
+
+end
+end

data/lib/musicality/notation/parsing/meter_parsing.treetop

@@ -0,0 +1,29 @@
+module Musicality
+module Parsing
+
+grammar Meter
+  include PositiveInteger
+  
+  rule meter
+    meter1 / meter2
+  end
+  
+  rule meter1
+    bpm:positive_integer "/" bd:positive_integer {
+      def to_meter
+        Musicality::Meter.new(bpm.to_i, Rational(1,bd.to_i))
+      end
+    }
+  end
+  
+  rule meter2
+    bpm:positive_integer "*" num:positive_integer "/" den:positive_integer {
+      def to_meter
+        Musicality::Meter.new(bpm.to_i, Rational(num.to_i,den.to_i))
+      end
+    }
+  end
+end
+
+end
+end

data/lib/musicality/notation/parsing/note_node.rb

@@ -0,0 +1,40 @@
+module Musicality
+module Parsing
+  class NoteNode < Treetop::Runtime::SyntaxNode
+    def primitives env
+      [ self.to_note ]
+    end
+    
+    def to_note
+      pitches = []
+      links = {}
+      
+      unless pitch_links.empty?
+        first = pitch_links.first
+        more = pitch_links.more
+        
+        pitches.push first.pitch.to_pitch
+        unless first.the_link.empty?
+          links[pitches[-1]] = first.the_link.to_link
+        end
+        
+        more.elements.each do |x|
+          pitches.push x.pl.pitch.to_pitch
+          unless x.pl.the_link.empty?
+            links[pitches[-1]] = x.pl.the_link.to_link
+          end
+        end
+      end
+      
+      artic = Musicality::Articulations::NORMAL
+      unless art.empty?
+        artic = art.to_articulation
+      end
+      
+      accent_flag = acc.empty? ? false : true
+      Musicality::Note.new(duration.to_r,
+        pitches, links: links, articulation: artic, accented: accent_flag)
+    end
+  end
+end
+end

data/lib/musicality/notation/parsing/note_parsing.rb

@@ -0,0 +1,229 @@
+# Autogenerated from a Treetop grammar. Edits may be lost.
+
+
+module Musicality
+module Parsing
+
+module Note
+  include Treetop::Runtime
+
+  def root
+    @root ||= :note
+  end
+
+  include Pitch
+
+  include Articulation
+
+  include Link
+
+  include Duration
+
+  module Note0
+    def pl
+      elements[1]
+    end
+  end
+
+  module Note1
+    def first
+      elements[0]
+    end
+
+    def more
+      elements[1]
+    end
+  end
+
+  module Note2
+    def duration
+      elements[0]
+    end
+
+    def art
+      elements[1]
+    end
+
+    def pitch_links
+      elements[2]
+    end
+
+    def acc
+      elements[3]
+    end
+  end
+
+  def _nt_note
+    start_index = index
+    if node_cache[:note].has_key?(index)
+      cached = node_cache[:note][index]
+      if cached
+        node_cache[:note][index] = cached = SyntaxNode.new(input, index...(index + 1)) if cached == true
+        @index = cached.interval.end
+      end
+      return cached
+    end
+
+    i0, s0 = index, []
+    r1 = _nt_duration
+    s0 << r1
+    if r1
+      r3 = _nt_articulation
+      if r3
+        r2 = r3
+      else
+        r2 = instantiate_node(SyntaxNode,input, index...index)
+      end
+      s0 << r2
+      if r2
+        i5, s5 = index, []
+        r6 = _nt_pitch_link
+        s5 << r6
+        if r6
+          s7, i7 = [], index
+          loop do
+            i8, s8 = index, []
+            if (match_len = has_terminal?(",", false, index))
+              r9 = true
+              @index += match_len
+            else
+              terminal_parse_failure(",")
+              r9 = nil
+            end
+            s8 << r9
+            if r9
+              r10 = _nt_pitch_link
+              s8 << r10
+            end
+            if s8.last
+              r8 = instantiate_node(SyntaxNode,input, i8...index, s8)
+              r8.extend(Note0)
+            else
+              @index = i8
+              r8 = nil
+            end
+            if r8
+              s7 << r8
+            else
+              break
+            end
+          end
+          r7 = instantiate_node(SyntaxNode,input, i7...index, s7)
+          s5 << r7
+        end
+        if s5.last
+          r5 = instantiate_node(SyntaxNode,input, i5...index, s5)
+          r5.extend(Note1)
+        else
+          @index = i5
+          r5 = nil
+        end
+        if r5
+          r4 = r5
+        else
+          r4 = instantiate_node(SyntaxNode,input, index...index)
+        end
+        s0 << r4
+        if r4
+          r12 = _nt_accent
+          if r12
+            r11 = r12
+          else
+            r11 = instantiate_node(SyntaxNode,input, index...index)
+          end
+          s0 << r11
+        end
+      end
+    end
+    if s0.last
+      r0 = instantiate_node(NoteNode,input, i0...index, s0)
+      r0.extend(Note2)
+    else
+      @index = i0
+      r0 = nil
+    end
+
+    node_cache[:note][start_index] = r0
+
+    r0
+  end
+
+  module PitchLink0
+    def pitch
+      elements[0]
+    end
+
+    def the_link
+      elements[1]
+    end
+  end
+
+  def _nt_pitch_link
+    start_index = index
+    if node_cache[:pitch_link].has_key?(index)
+      cached = node_cache[:pitch_link][index]
+      if cached
+        node_cache[:pitch_link][index] = cached = SyntaxNode.new(input, index...(index + 1)) if cached == true
+        @index = cached.interval.end
+      end
+      return cached
+    end
+
+    i0, s0 = index, []
+    r1 = _nt_pitch
+    s0 << r1
+    if r1
+      r3 = _nt_link
+      if r3
+        r2 = r3
+      else
+        r2 = instantiate_node(SyntaxNode,input, index...index)
+      end
+      s0 << r2
+    end
+    if s0.last
+      r0 = instantiate_node(SyntaxNode,input, i0...index, s0)
+      r0.extend(PitchLink0)
+    else
+      @index = i0
+      r0 = nil
+    end
+
+    node_cache[:pitch_link][start_index] = r0
+
+    r0
+  end
+
+  def _nt_accent
+    start_index = index
+    if node_cache[:accent].has_key?(index)
+      cached = node_cache[:accent][index]
+      if cached
+        node_cache[:accent][index] = cached = SyntaxNode.new(input, index...(index + 1)) if cached == true
+        @index = cached.interval.end
+      end
+      return cached
+    end
+
+    if (match_len = has_terminal?("!", false, index))
+      r0 = instantiate_node(SyntaxNode,input, index...(index + match_len))
+      @index += match_len
+    else
+      terminal_parse_failure("!")
+      r0 = nil
+    end
+
+    node_cache[:accent][start_index] = r0
+
+    r0
+  end
+
+end
+
+class NoteParser < Treetop::Runtime::CompiledParser
+  include Note
+end
+
+
+end
+end

data/lib/musicality/notation/parsing/note_parsing.treetop

@@ -0,0 +1,28 @@
+module Musicality
+module Parsing
+
+grammar Note
+  include Pitch
+  include Articulation
+  include Link
+  include Duration
+
+  rule note
+    duration
+    art:articulation?
+    pitch_links:(first:pitch_link more:("," pl:pitch_link)*)?
+    acc:accent?
+    <NoteNode>
+  end
+
+  rule pitch_link
+    pitch the_link:link?
+  end
+  
+  rule accent
+    "!"
+  end
+end
+
+end
+end