musicality 0.1.0

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

@@ -0,0 +1,59 @@
+module Musicality
+module Parsing
+
+grammar Articulation
+  rule articulation
+    slur / legato / tenuto / portato / staccato / staccatissimo
+  end
+  
+  rule slur
+    "=" {
+      def to_articulation
+        Musicality::Articulations::SLUR
+      end
+    }
+  end
+
+  rule legato
+    "|" {
+      def to_articulation
+        Musicality::Articulations::LEGATO
+      end
+    }
+  end
+  
+  rule tenuto
+    "_" {
+      def to_articulation
+        Musicality::Articulations::TENUTO
+      end
+    }
+  end
+  
+  rule portato
+    "%" {
+      def to_articulation
+        Musicality::Articulations::PORTATO
+      end
+    }
+  end
+
+  rule staccato
+    "." {
+      def to_articulation
+        Musicality::Articulations::STACCATO
+      end
+    }
+  end
+  
+  rule staccatissimo
+    "'" {
+      def to_articulation
+        Musicality::Articulations::STACCATISSIMO
+      end
+    }
+  end
+end
+
+end
+end

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

@@ -0,0 +1,74 @@
+module Musicality
+
+  class Duration
+    PARSER = Parsing::DurationParser.new
+    CONVERSION_METHOD = :to_r
+    include Parseable
+  end
+  
+  class Pitch
+    PARSER = Parsing::PitchParser.new
+    CONVERSION_METHOD = :to_pitch
+    include Parseable
+  end
+  
+  class Note
+    PARSER = Parsing::NoteParser.new
+    CONVERSION_METHOD = :to_note
+    include Parseable
+  end
+
+  class Meter
+    PARSER = Parsing::MeterParser.new
+    CONVERSION_METHOD = :to_meter
+    include Parseable
+  end
+  
+  class Segment
+    PARSER = Parsing::SegmentParser.new
+    CONVERSION_METHOD = :to_range
+    include Parseable
+  end
+end
+
+class String
+  def to_duration
+    Musicality::Duration.parse(self)
+  end
+  alias :to_dur :to_duration
+  alias :to_d :to_duration
+  
+  def to_durations pattern=" "
+    Musicality::Duration.split_parse(self, pattern)
+  end
+  alias :to_durs :to_durations
+  alias :to_ds :to_durations
+  
+  def to_pitch 
+    Musicality::Pitch.parse(self)
+  end
+  alias :to_p :to_pitch
+  
+  def to_pitches pattern=" "
+    Musicality::Pitch.split_parse(self, pattern)
+  end
+  alias :to_ps :to_pitches
+  
+  def to_note
+    Musicality::Note.parse(self)
+  end
+  alias :to_n :to_note
+  
+  def to_notes pattern=" "
+    Musicality::Note.split_parse(self, pattern)
+  end
+  alias :to_ns :to_notes
+  
+  def to_meter
+    Musicality::Meter.parse(self)
+  end
+  
+  def to_segment
+    Musicality::Segment.parse(self)
+  end
+end

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

@@ -0,0 +1,21 @@
+module Musicality
+module Parsing
+  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
+end

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

@@ -0,0 +1,205 @@
+# Autogenerated from a Treetop grammar. Edits may be lost.
+
+
+module Musicality
+module Parsing
+
+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
+end

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

@@ -0,0 +1,25 @@
+module Musicality
+module Parsing
+
+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
+end

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

@@ -0,0 +1,35 @@
+module Musicality
+module Parsing
+  class LinkNode < Treetop::Runtime::SyntaxNode; end
+    
+  class SlurNode < LinkNode
+    def to_link
+      Musicality::Link::Slur.new(target.to_pitch)
+    end
+  end
+
+  class LegatoNode < LinkNode
+    def to_link
+      Musicality::Link::Legato.new(target.to_pitch)
+    end
+  end
+
+  class GlissandoNode < LinkNode
+    def to_link
+      Musicality::Link::Glissando.new(target.to_pitch)
+    end
+  end
+  
+  class PortamentoNode < LinkNode
+    def to_link
+      Musicality::Link::Portamento.new(target.to_pitch)
+    end
+  end
+  
+  class TieNode < LinkNode
+    def to_link
+      Musicality::Link::Tie.new
+    end
+  end  
+end
+end

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

@@ -0,0 +1,270 @@
+# Autogenerated from a Treetop grammar. Edits may be lost.
+
+
+module Musicality
+module Parsing
+
+module Link
+  include Treetop::Runtime
+
+  def root
+    @root ||= :link
+  end
+
+  include Pitch
+
+  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 = index
+    r1 = _nt_slur_link
+    if r1
+      r1 = SyntaxNode.new(input, (index-1)...index) if r1 == true
+      r0 = r1
+    else
+      r2 = _nt_tie
+      if r2
+        r2 = SyntaxNode.new(input, (index-1)...index) if r2 == true
+        r0 = r2
+      else
+        r3 = _nt_legato_link
+        if r3
+          r3 = SyntaxNode.new(input, (index-1)...index) if r3 == true
+          r0 = r3
+        else
+          r4 = _nt_glissando
+          if r4
+            r4 = SyntaxNode.new(input, (index-1)...index) if r4 == true
+            r0 = r4
+          else
+            r5 = _nt_portamento
+            if r5
+              r5 = SyntaxNode.new(input, (index-1)...index) if r5 == true
+              r0 = r5
+            else
+              @index = i0
+              r0 = nil
+            end
+          end
+        end
+      end
+    end
+
+    node_cache[:link][start_index] = r0
+
+    r0
+  end
+
+  module SlurLink0
+    def target
+      elements[1]
+    end
+  end
+
+  def _nt_slur_link
+    start_index = index
+    if node_cache[:slur_link].has_key?(index)
+      cached = node_cache[:slur_link][index]
+      if cached
+        node_cache[:slur_link][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_pitch
+      s0 << r2
+    end
+    if s0.last
+      r0 = instantiate_node(SlurNode,input, i0...index, s0)
+      r0.extend(SlurLink0)
+    else
+      @index = i0
+      r0 = nil
+    end
+
+    node_cache[:slur_link][start_index] = r0
+
+    r0
+  end
+
+  def _nt_tie
+    start_index = index
+    if node_cache[:tie].has_key?(index)
+      cached = node_cache[:tie][index]
+      if cached
+        node_cache[:tie][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(TieNode,input, index...(index + match_len))
+      @index += match_len
+    else
+      terminal_parse_failure("=")
+      r0 = nil
+    end
+
+    node_cache[:tie][start_index] = r0
+
+    r0
+  end
+
+  module LegatoLink0
+    def target
+      elements[1]
+    end
+  end
+
+  def _nt_legato_link
+    start_index = index
+    if node_cache[:legato_link].has_key?(index)
+      cached = node_cache[:legato_link][index]
+      if cached
+        node_cache[:legato_link][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_pitch
+      s0 << r2
+    end
+    if s0.last
+      r0 = instantiate_node(LegatoNode,input, i0...index, s0)
+      r0.extend(LegatoLink0)
+    else
+      @index = i0
+      r0 = nil
+    end
+
+    node_cache[:legato_link][start_index] = r0
+
+    r0
+  end
+
+  module Glissando0
+    def target
+      elements[1]
+    end
+  end
+
+  def _nt_glissando
+    start_index = index
+    if node_cache[:glissando].has_key?(index)
+      cached = node_cache[:glissando][index]
+      if cached
+        node_cache[:glissando][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_pitch
+      s0 << r2
+    end
+    if s0.last
+      r0 = instantiate_node(GlissandoNode,input, i0...index, s0)
+      r0.extend(Glissando0)
+    else
+      @index = i0
+      r0 = nil
+    end
+
+    node_cache[:glissando][start_index] = r0
+
+    r0
+  end
+
+  module Portamento0
+    def target
+      elements[1]
+    end
+  end
+
+  def _nt_portamento
+    start_index = index
+    if node_cache[:portamento].has_key?(index)
+      cached = node_cache[:portamento][index]
+      if cached
+        node_cache[:portamento][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_pitch
+      s0 << r2
+    end
+    if s0.last
+      r0 = instantiate_node(PortamentoNode,input, i0...index, s0)
+      r0.extend(Portamento0)
+    else
+      @index = i0
+      r0 = nil
+    end
+
+    node_cache[:portamento][start_index] = r0
+
+    r0
+  end
+
+end
+
+class LinkParser < Treetop::Runtime::CompiledParser
+  include Link
+end
+
+
+end
+end

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

@@ -0,0 +1,33 @@
+module Musicality
+module Parsing
+
+grammar Link
+  include Pitch
+  
+  rule link
+    slur_link / tie / legato_link / glissando / portamento
+  end
+  
+  rule slur_link
+    "=" target:pitch <SlurNode>
+  end
+
+  rule tie
+    "=" <TieNode>
+  end
+  
+  rule legato_link
+    "|" target:pitch <LegatoNode>
+  end
+  
+  rule glissando
+    "~" target:pitch <GlissandoNode>
+  end
+  
+  rule portamento
+    "/" target:pitch <PortamentoNode>
+  end
+end
+
+end
+end