brevity 0.4.0

data/lib/brevity/parsing/modifiers/transpose_modifier.rb

@@ -0,0 +1,69 @@
+# Autogenerated from a Treetop grammar. Edits may be lost.
+
+
+module Brevity
+
+module TransposeModifier
+  include Treetop::Runtime
+
+  def root
+    @root ||= :transpose_modifier
+  end
+
+  include NonnegativeInteger
+
+  module TransposeModifier0
+    def op
+      elements[0]
+    end
+
+    def nsem
+      elements[1]
+    end
+  end
+
+  def _nt_transpose_modifier
+    start_index = index
+    if node_cache[:transpose_modifier].has_key?(index)
+      cached = node_cache[:transpose_modifier][index]
+      if cached
+        node_cache[:transpose_modifier][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[+-]'] ||= Regexp.new(gr), :regexp, index)
+      r1 = true
+      @index += 1
+    else
+      terminal_parse_failure('[+-]')
+      r1 = nil
+    end
+    s0 << r1
+    if r1
+      r2 = _nt_nonnegative_integer
+      s0 << r2
+    end
+    if s0.last
+      r0 = instantiate_node(TransposeModifierNode,input, i0...index, s0)
+      r0.extend(TransposeModifier0)
+    else
+      @index = i0
+      r0 = nil
+    end
+
+    node_cache[:transpose_modifier][start_index] = r0
+
+    r0
+  end
+
+end
+
+class TransposeModifierParser < Treetop::Runtime::CompiledParser
+  include TransposeModifier
+end
+
+
+end

data/lib/brevity/parsing/modifiers/transpose_modifier.treetop

@@ -0,0 +1,11 @@
+module Brevity
+
+grammar TransposeModifier
+  include NonnegativeInteger
+  
+  rule transpose_modifier
+    op:[+-] nsem:nonnegative_integer <TransposeModifierNode>
+  end
+end
+
+end

data/lib/brevity/parsing/modifiers/transpose_modifier_node.rb

@@ -0,0 +1,13 @@
+module Brevity  
+  class TransposeModifierNode < Treetop::Runtime::SyntaxNode
+    def process primitives
+      n = nsem.text_value.to_i
+      if op.text_value == "-"
+        n = -n
+      end
+      primitives.map do |p|
+        p.respond_to?(:transpose) ? p.transpose(n) : p
+      end
+    end
+  end
+end

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

@@ -0,0 +1,44 @@
+# Autogenerated from a Treetop grammar. Edits may be lost.
+
+
+module Brevity
+
+module Accent
+  include Treetop::Runtime
+
+  def root
+    @root ||= :accent
+  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 has_terminal?(@regexps[gr = '\A[.\'>^_]'] ||= Regexp.new(gr), :regexp, index)
+      r0 = instantiate_node(SyntaxNode,input, index...(index + 1))
+      @index += 1
+    else
+      terminal_parse_failure('[.\'>^_]')
+      r0 = nil
+    end
+
+    node_cache[:accent][start_index] = r0
+
+    r0
+  end
+
+end
+
+class AccentParser < Treetop::Runtime::CompiledParser
+  include Accent
+end
+
+
+end

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

@@ -0,0 +1,9 @@
+module Brevity
+
+grammar Accent
+  rule accent
+    [.'>^_]
+  end
+end
+
+end

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

@@ -0,0 +1,203 @@
+# Autogenerated from a Treetop grammar. Edits may be lost.
+
+
+module Brevity
+
+module Duration
+  include Treetop::Runtime
+
+  def root
+    @root ||= :duration
+  end
+
+  include PositiveInteger
+
+  def _nt_duration
+    start_index = index
+    if node_cache[:duration].has_key?(index)
+      cached = node_cache[:duration][index]
+      if cached
+        node_cache[:duration][index] = cached = SyntaxNode.new(input, index...(index + 1)) if cached == true
+        @index = cached.interval.end
+      end
+      return cached
+    end
+
+    i0 = index
+    r1 = _nt_num_and_den
+    if r1
+      r1 = SyntaxNode.new(input, (index-1)...index) if r1 == true
+      r0 = r1
+    else
+      r2 = _nt_num_only
+      if r2
+        r2 = SyntaxNode.new(input, (index-1)...index) if r2 == true
+        r0 = r2
+      else
+        r3 = _nt_den_only
+        if r3
+          r3 = SyntaxNode.new(input, (index-1)...index) if r3 == true
+          r0 = r3
+        else
+          @index = i0
+          r0 = nil
+        end
+      end
+    end
+
+    node_cache[:duration][start_index] = r0
+
+    r0
+  end
+
+  module NumAndDen0
+    def positive_integer1
+      elements[0]
+    end
+
+    def positive_integer2
+      elements[2]
+    end
+  end
+
+  def _nt_num_and_den
+    start_index = index
+    if node_cache[:num_and_den].has_key?(index)
+      cached = node_cache[:num_and_den][index]
+      if cached
+        node_cache[:num_and_den][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(NumDenNode,input, i0...index, s0)
+      r0.extend(NumAndDen0)
+    else
+      @index = i0
+      r0 = nil
+    end
+
+    node_cache[:num_and_den][start_index] = r0
+
+    r0
+  end
+
+  module NumOnly0
+    def numerator
+      elements[0]
+    end
+
+  end
+
+  def _nt_num_only
+    start_index = index
+    if node_cache[:num_only].has_key?(index)
+      cached = node_cache[:num_only][index]
+      if cached
+        node_cache[:num_only][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))
+        r3 = true
+        @index += match_len
+      else
+        terminal_parse_failure("/")
+        r3 = nil
+      end
+      if r3
+        r2 = r3
+      else
+        r2 = instantiate_node(SyntaxNode,input, index...index)
+      end
+      s0 << r2
+    end
+    if s0.last
+      r0 = instantiate_node(NumOnlyNode,input, i0...index, s0)
+      r0.extend(NumOnly0)
+    else
+      @index = i0
+      r0 = nil
+    end
+
+    node_cache[:num_only][start_index] = r0
+
+    r0
+  end
+
+  module DenOnly0
+    def denominator
+      elements[1]
+    end
+  end
+
+  def _nt_den_only
+    start_index = index
+    if node_cache[:den_only].has_key?(index)
+      cached = node_cache[:den_only][index]
+      if cached
+        node_cache[:den_only][index] = cached = SyntaxNode.new(input, index...(index + 1)) if cached == true
+        @index = cached.interval.end
+      end
+      return cached
+    end
+
+    i0, s0 = index, []
+    if (match_len = has_terminal?("/", false, index))
+      r1 = true
+      @index += match_len
+    else
+      terminal_parse_failure("/")
+      r1 = nil
+    end
+    s0 << r1
+    if r1
+      r2 = _nt_positive_integer
+      s0 << r2
+    end
+    if s0.last
+      r0 = instantiate_node(DenOnlyNode,input, i0...index, s0)
+      r0.extend(DenOnly0)
+    else
+      @index = i0
+      r0 = nil
+    end
+
+    node_cache[:den_only][start_index] = r0
+
+    r0
+  end
+
+end
+
+class DurationParser < Treetop::Runtime::CompiledParser
+  include Duration
+end
+
+
+end

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

@@ -0,0 +1,23 @@
+module Brevity
+
+grammar Duration
+  include PositiveInteger
+  
+  rule duration
+    num_and_den / num_only / den_only
+  end
+  
+  rule num_and_den
+    positive_integer "/" positive_integer <NumDenNode>
+  end
+  
+  rule num_only
+    numerator:positive_integer "/"? <NumOnlyNode>
+  end
+  
+  rule den_only
+    "/" denominator:positive_integer <DenOnlyNode>
+  end
+end
+
+end

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

@@ -0,0 +1,19 @@
+module Brevity
+  class NumDenNode < Treetop::Runtime::SyntaxNode
+    def to_r
+      text_value.to_r
+    end
+  end
+
+  class NumOnlyNode < Treetop::Runtime::SyntaxNode
+    def to_r
+      Rational(numerator.text_value.to_i,1)
+    end
+  end
+  
+  class DenOnlyNode < Treetop::Runtime::SyntaxNode
+    def to_r
+      Rational(1,denominator.text_value.to_i)
+    end
+  end
+end

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

@@ -0,0 +1,69 @@
+# Autogenerated from a Treetop grammar. Edits may be lost.
+
+
+module Brevity
+
+module Link
+  include Treetop::Runtime
+
+  def root
+    @root ||= :link
+  end
+
+  include Pitch
+
+  module Link0
+    def link_sym
+      elements[0]
+    end
+
+    def target
+      elements[1]
+    end
+  end
+
+  def _nt_link
+    start_index = index
+    if node_cache[:link].has_key?(index)
+      cached = node_cache[:link][index]
+      if cached
+        node_cache[:link][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[=\\-~/]'] ||= Regexp.new(gr), :regexp, index)
+      r1 = true
+      @index += 1
+    else
+      terminal_parse_failure('[=\\-~/]')
+      r1 = nil
+    end
+    s0 << r1
+    if r1
+      r2 = _nt_pitch
+      s0 << r2
+    end
+    if s0.last
+      r0 = instantiate_node(LinkNode,input, i0...index, s0)
+      r0.extend(Link0)
+    else
+      @index = i0
+      r0 = nil
+    end
+
+    node_cache[:link][start_index] = r0
+
+    r0
+  end
+
+end
+
+class LinkParser < Treetop::Runtime::CompiledParser
+  include Link
+end
+
+
+end

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

@@ -0,0 +1,11 @@
+module Brevity
+
+grammar Link
+  include Pitch
+  
+  rule link
+    link_sym:[=\-~/] target:pitch <LinkNode>
+  end  
+end
+
+end

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

@@ -0,0 +1,19 @@
+module Brevity
+  class LinkNode < Treetop::Runtime::SyntaxNode
+    def to_link
+      tgt = target.to_pitch
+      
+      case link_sym.text_value
+      when '='
+        link = Music::Transcription::Link::Slur.new(tgt)
+      when '-'
+        link = Music::Transcription::Link::Legato.new(tgt)
+      when '~'
+        link = Music::Transcription::Link::Glissando.new(tgt)
+      when '/'
+        link = Music::Transcription::Link::Portamento.new(tgt)
+      end
+      return link
+    end
+  end
+end