brevity 0.4.0

data/lib/brevity/parsing/note/note.rb

@@ -0,0 +1,300 @@
+# Autogenerated from a Treetop grammar. Edits may be lost.
+
+
+module Brevity
+
+module Note
+  include Treetop::Runtime
+
+  def root
+    @root ||= :note
+  end
+
+  include Pitch
+
+  include Accent
+
+  include Link
+
+  include Duration
+
+  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 = index
+    r1 = _nt_polyphonic_note
+    if r1
+      r1 = SyntaxNode.new(input, (index-1)...index) if r1 == true
+      r0 = r1
+    else
+      r2 = _nt_monophonic_note
+      if r2
+        r2 = SyntaxNode.new(input, (index-1)...index) if r2 == true
+        r0 = r2
+      else
+        r3 = _nt_rest_note
+        if r3
+          r3 = SyntaxNode.new(input, (index-1)...index) if r3 == true
+          r0 = r3
+        else
+          @index = i0
+          r0 = nil
+        end
+      end
+    end
+
+    node_cache[:note][start_index] = r0
+
+    r0
+  end
+
+  module RestNote0
+    def duration
+      elements[0]
+    end
+  end
+
+  def _nt_rest_note
+    start_index = index
+    if node_cache[:rest_note].has_key?(index)
+      cached = node_cache[:rest_note][index]
+      if cached
+        node_cache[:rest_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 s0.last
+      r0 = instantiate_node(RestNoteNode,input, i0...index, s0)
+      r0.extend(RestNote0)
+    else
+      @index = i0
+      r0 = nil
+    end
+
+    node_cache[:rest_note][start_index] = r0
+
+    r0
+  end
+
+  module MonophonicNote0
+    def duration
+      elements[0]
+    end
+
+    def pl
+      elements[1]
+    end
+
+    def acc
+      elements[2]
+    end
+  end
+
+  def _nt_monophonic_note
+    start_index = index
+    if node_cache[:monophonic_note].has_key?(index)
+      cached = node_cache[:monophonic_note][index]
+      if cached
+        node_cache[:monophonic_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
+      r2 = _nt_pitch_link
+      s0 << r2
+      if r2
+        r4 = _nt_accent
+        if r4
+          r3 = r4
+        else
+          r3 = instantiate_node(SyntaxNode,input, index...index)
+        end
+        s0 << r3
+      end
+    end
+    if s0.last
+      r0 = instantiate_node(MonophonicNoteNode,input, i0...index, s0)
+      r0.extend(MonophonicNote0)
+    else
+      @index = i0
+      r0 = nil
+    end
+
+    node_cache[:monophonic_note][start_index] = r0
+
+    r0
+  end
+
+  module PolyphonicNote0
+    def pl
+      elements[1]
+    end
+  end
+
+  module PolyphonicNote1
+    def duration
+      elements[0]
+    end
+
+    def pl
+      elements[1]
+    end
+
+    def more_pitches
+      elements[2]
+    end
+
+    def acc
+      elements[3]
+    end
+  end
+
+  def _nt_polyphonic_note
+    start_index = index
+    if node_cache[:polyphonic_note].has_key?(index)
+      cached = node_cache[:polyphonic_note][index]
+      if cached
+        node_cache[:polyphonic_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
+      r2 = _nt_pitch_link
+      s0 << r2
+      if r2
+        s3, i3 = [], index
+        loop do
+          i4, s4 = index, []
+          if (match_len = has_terminal?(",", false, index))
+            r5 = true
+            @index += match_len
+          else
+            terminal_parse_failure(",")
+            r5 = nil
+          end
+          s4 << r5
+          if r5
+            r6 = _nt_pitch_link
+            s4 << r6
+          end
+          if s4.last
+            r4 = instantiate_node(SyntaxNode,input, i4...index, s4)
+            r4.extend(PolyphonicNote0)
+          else
+            @index = i4
+            r4 = nil
+          end
+          if r4
+            s3 << r4
+          else
+            break
+          end
+        end
+        if s3.empty?
+          @index = i3
+          r3 = nil
+        else
+          r3 = instantiate_node(SyntaxNode,input, i3...index, s3)
+        end
+        s0 << r3
+        if r3
+          r8 = _nt_accent
+          if r8
+            r7 = r8
+          else
+            r7 = instantiate_node(SyntaxNode,input, index...index)
+          end
+          s0 << r7
+        end
+      end
+    end
+    if s0.last
+      r0 = instantiate_node(PolyphonicNoteNode,input, i0...index, s0)
+      r0.extend(PolyphonicNote1)
+    else
+      @index = i0
+      r0 = nil
+    end
+
+    node_cache[:polyphonic_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
+
+end
+
+class NoteParser < Treetop::Runtime::CompiledParser
+  include Note
+end
+
+
+end

data/lib/brevity/parsing/note/note.treetop

@@ -0,0 +1,30 @@
+module Brevity
+
+grammar Note
+  include Pitch
+  include Accent
+  include Link
+  include Duration
+
+  rule note
+    polyphonic_note / monophonic_note / rest_note
+  end
+
+  rule rest_note
+    duration:duration <RestNoteNode>
+  end
+  
+  rule monophonic_note
+    duration pl:pitch_link acc:(accent)? <MonophonicNoteNode>
+  end
+  
+  rule polyphonic_note
+    duration pl:pitch_link more_pitches:("," pl:pitch_link)+ acc:(accent)? <PolyphonicNoteNode>
+  end
+
+  rule pitch_link
+    pitch the_link:link?
+  end
+end
+
+end

data/lib/brevity/parsing/note/note_nodes.rb

@@ -0,0 +1,77 @@
+class String
+  def to_accent
+    case self
+    when "."
+      accent = Music::Transcription::Accent::Staccato.new
+    when "'"
+      accent = Music::Transcription::Accent::Staccatissimo.new
+    when ">"
+      accent = Music::Transcription::Accent::Marcato.new
+    when "^"
+      accent = Music::Transcription::Accent::Martellato.new
+    when "_"
+      accent = Music::Transcription::Accent::Tenuto.new
+    else
+      raise RuntimeError, "no accent found for #{self}"
+    end
+  end
+end
+
+module Brevity
+  class NoteNode < Treetop::Runtime::SyntaxNode
+    def itemize(env)
+      Itemization.new(notes: [self.to_note])
+    end
+    
+    def primitives env
+      [ self.to_note ]
+    end
+  end
+  
+  class RestNoteNode < NoteNode
+    def to_note    
+      Music::Transcription::Note.new(duration.to_r)
+    end
+  end
+
+  class MonophonicNoteNode < NoteNode
+    def to_note
+      pitches = [ pl.pitch.to_pitch ]
+      links = {}
+      unless pl.the_link.empty?
+        links[pitches[0]] = pl.the_link.to_link
+      end
+      
+      if acc.empty?
+        Music::Transcription::Note.new(duration.to_r,pitches,links:links)
+      else
+        accent = acc.text_value.to_accent
+        Music::Transcription::Note.new(duration.to_r,pitches,links:links,accent:accent)
+      end
+    end
+  end
+
+  class PolyphonicNoteNode < NoteNode
+    def to_note
+      pitches = [ pl.pitch.to_pitch ]
+      links = {}
+      unless pl.the_link.empty?
+        links[pitches[0]] = pl.the_link.to_link
+      end
+      
+      more_pitches.elements.each do |mp|
+        pitches.push mp.pl.pitch.to_pitch
+        unless mp.pl.the_link.empty?
+          links[pitches[-1]] = mp.pl.the_link.to_link
+        end
+      end
+      
+      if acc.empty?
+        Music::Transcription::Note.new(duration.to_r,pitches,links:links)
+      else
+        accent = acc.text_value.to_accent
+        Music::Transcription::Note.new(duration.to_r,pitches,links:links,accent:accent)
+      end
+    end
+  end
+end

data/lib/brevity/parsing/note/pitch.rb

@@ -0,0 +1,81 @@
+# Autogenerated from a Treetop grammar. Edits may be lost.
+
+
+module Brevity
+
+module Pitch
+  include Treetop::Runtime
+
+  def root
+    @root ||= :pitch
+  end
+
+  module Pitch0
+  end
+
+  def _nt_pitch
+    start_index = index
+    if node_cache[:pitch].has_key?(index)
+      cached = node_cache[:pitch][index]
+      if cached
+        node_cache[:pitch][index] = cached = SyntaxNode.new(input, index...(index + 1)) if cached == true
+        @index = cached.interval.end
+      end
+      return cached
+    end
+
+    i0, s0 = index, []
+    if has_terminal?(@regexps[gr = '\A[A-Ga-g]'] ||= Regexp.new(gr), :regexp, index)
+      r1 = true
+      @index += 1
+    else
+      terminal_parse_failure('[A-Ga-g]')
+      r1 = nil
+    end
+    s0 << r1
+    if r1
+      if has_terminal?(@regexps[gr = '\A[#b]'] ||= Regexp.new(gr), :regexp, index)
+        r3 = true
+        @index += 1
+      else
+        terminal_parse_failure('[#b]')
+        r3 = nil
+      end
+      if r3
+        r2 = r3
+      else
+        r2 = instantiate_node(SyntaxNode,input, index...index)
+      end
+      s0 << r2
+      if r2
+        if has_terminal?(@regexps[gr = '\A[0-9]'] ||= Regexp.new(gr), :regexp, index)
+          r4 = true
+          @index += 1
+        else
+          terminal_parse_failure('[0-9]')
+          r4 = nil
+        end
+        s0 << r4
+      end
+    end
+    if s0.last
+      r0 = instantiate_node(PitchNode,input, i0...index, s0)
+      r0.extend(Pitch0)
+    else
+      @index = i0
+      r0 = nil
+    end
+
+    node_cache[:pitch][start_index] = r0
+
+    r0
+  end
+
+end
+
+class PitchParser < Treetop::Runtime::CompiledParser
+  include Pitch
+end
+
+
+end

data/lib/brevity/parsing/note/pitch.treetop

@@ -0,0 +1,9 @@
+module Brevity
+
+grammar Pitch
+  rule pitch
+    [A-Ga-g] [#b]? [0-9] <PitchNode>
+  end
+end
+
+end

data/lib/brevity/parsing/note/pitch_node.rb

@@ -0,0 +1,50 @@
+class String
+  # Create a Pitch object from a string (e.g. "C2"). String can contain a letter (A-G),
+  # to indicate the semitone, followed by an optional sharp/flat (#/b) and then the
+  # octave number (non-negative integer).
+  def to_pitch
+    string = self
+    if string =~ /[AaBbCcDdEeFfGg][#b][\d]+/
+      semitone = letter_to_semitone string[0]
+      semitone = case string[1]
+      when "#" then semitone + 1
+      when "b" then semitone - 1
+      else raise ArgumentError, "unexpected symbol found"
+      end
+      octave = string[2..-1].to_i
+      return Music::Transcription::Pitch.new(:octave => octave, :semitone => semitone)
+    elsif string =~ /[AaBbCcDdEeFfGg][\d]+/
+      semitone = letter_to_semitone string[0]
+      octave = string[1..-1].to_i
+      return Music::Transcription::Pitch.new(:octave => octave, :semitone => semitone)
+    else
+      raise ArgumentError, "string #{string} cannot be converted to a pitch"
+    end    
+  end
+
+  private
+  
+  def letter_to_semitone letter
+    semitone = case letter
+    when /[Cc]/ then 0
+    when /[Dd]/ then 2
+    when /[Ee]/ then 4
+    when /[Ff]/ then 5
+    when /[Gg]/ then 7
+    when /[Aa]/ then 9
+    when /[Bb]/ then 11
+    else raise ArgumentError, "invalid letter \"#{letter}\" given"
+    end
+    
+    return semitone
+  end
+end
+
+module Brevity
+  class PitchNode < Treetop::Runtime::SyntaxNode
+    def to_pitch
+      # use the added String#to_pitch method
+      text_value.to_pitch
+    end
+  end
+end

data/lib/brevity/parsing/numbers/nonnegative_integer.rb

@@ -0,0 +1,53 @@
+# Autogenerated from a Treetop grammar. Edits may be lost.
+
+
+module Brevity
+
+module NonnegativeInteger
+  include Treetop::Runtime
+
+  def root
+    @root ||= :nonnegative_integer
+  end
+
+  def _nt_nonnegative_integer
+    start_index = index
+    if node_cache[:nonnegative_integer].has_key?(index)
+      cached = node_cache[:nonnegative_integer][index]
+      if cached
+        node_cache[:nonnegative_integer][index] = cached = SyntaxNode.new(input, index...(index + 1)) if cached == true
+        @index = cached.interval.end
+      end
+      return cached
+    end
+
+    s0, i0 = [], index
+    loop do
+      if has_terminal?(@regexps[gr = '\A[0-9]'] ||= Regexp.new(gr), :regexp, index)
+        r1 = true
+        @index += 1
+      else
+        terminal_parse_failure('[0-9]')
+        r1 = nil
+      end
+      if r1
+        s0 << r1
+      else
+        break
+      end
+    end
+    r0 = instantiate_node(SyntaxNode,input, i0...index, s0)
+
+    node_cache[:nonnegative_integer][start_index] = r0
+
+    r0
+  end
+
+end
+
+class NonnegativeIntegerParser < Treetop::Runtime::CompiledParser
+  include NonnegativeInteger
+end
+
+
+end

data/lib/brevity/parsing/numbers/nonnegative_integer.treetop

@@ -0,0 +1,9 @@
+module Brevity
+
+grammar NonnegativeInteger
+  rule nonnegative_integer
+    [0-9]*
+  end
+end
+
+end

data/lib/brevity/parsing/numbers/positive_integer.rb

@@ -0,0 +1,91 @@
+# Autogenerated from a Treetop grammar. Edits may be lost.
+
+
+module Brevity
+
+module PositiveInteger
+  include Treetop::Runtime
+
+  def root
+    @root ||= :positive_integer
+  end
+
+  include NonnegativeInteger
+
+  module PositiveInteger0
+    def nonnegative_integer
+      elements[2]
+    end
+  end
+
+  module PositiveInteger1
+    def to_i
+      text_value.to_i
+    end
+  end
+
+  def _nt_positive_integer
+    start_index = index
+    if node_cache[:positive_integer].has_key?(index)
+      cached = node_cache[:positive_integer][index]
+      if cached
+        node_cache[:positive_integer][index] = cached = SyntaxNode.new(input, index...(index + 1)) if cached == true
+        @index = cached.interval.end
+      end
+      return cached
+    end
+
+    i0, s0 = index, []
+    s1, i1 = [], index
+    loop do
+      if has_terminal?(@regexps[gr = '\A[0]'] ||= Regexp.new(gr), :regexp, index)
+        r2 = true
+        @index += 1
+      else
+        terminal_parse_failure('[0]')
+        r2 = nil
+      end
+      if r2
+        s1 << r2
+      else
+        break
+      end
+    end
+    r1 = instantiate_node(SyntaxNode,input, i1...index, s1)
+    s0 << r1
+    if r1
+      if has_terminal?(@regexps[gr = '\A[1-9]'] ||= Regexp.new(gr), :regexp, index)
+        r3 = true
+        @index += 1
+      else
+        terminal_parse_failure('[1-9]')
+        r3 = nil
+      end
+      s0 << r3
+      if r3
+        r4 = _nt_nonnegative_integer
+        s0 << r4
+      end
+    end
+    if s0.last
+      r0 = instantiate_node(SyntaxNode,input, i0...index, s0)
+      r0.extend(PositiveInteger0)
+      r0.extend(PositiveInteger1)
+    else
+      @index = i0
+      r0 = nil
+    end
+
+    node_cache[:positive_integer][start_index] = r0
+
+    r0
+  end
+
+end
+
+class PositiveIntegerParser < Treetop::Runtime::CompiledParser
+  include PositiveInteger
+end
+
+
+end

data/lib/brevity/parsing/numbers/positive_integer.treetop

@@ -0,0 +1,15 @@
+module Brevity
+
+grammar PositiveInteger
+  include NonnegativeInteger
+  
+  rule positive_integer
+    [0]* [1-9] nonnegative_integer {
+      def to_i
+        text_value.to_i
+      end
+    }
+  end
+end
+
+end