grammar.treetop

module Cosy
  
  grammar Sequence

    rule root
      space? (statement ';' space?)* statement? space? <CosyNode>
    end


    rule statement
      assignment / sequence_root
    end


    rule assignment
      var space? '=' sequence_root <AssignmentNode>
    end


    rule sequence_root
      parallel_sequence
    end
    
    
    rule parallel_sequence
      space? choice (space? '==' space? choice)* space? <ParallelNode>
    end


    rule choice
      space? sequence (space? '|' space? sequence)* space? <ChoiceNode>
    end


    rule sequence
      space? sequence_element (space sequence_element)* space? <SequenceNode>
    end


    rule sequence_element
      command / chain modifier:modifier <ModifiedNode> / chain / foreach
    end


    rule chain
      chain_element (':' chain_element)* <ChainNode>
    end


    rule chain_element
      element modifier:modifier <ModifiedNode> / element
    end


    rule foreach
      '(' sequence_root ')@(' sequence_root ')' ('@(' sequence_root ')')* <ForEachNode>
    end


    rule element
      '(' subsequence:sequence_root ')' !'@' / chord / primitive
    end


    rule modifier
      operator:operator operand:element <BehaviorNode>
    end


    rule operator
      space? ('*'/'&') space? <OperatorNode>
    end


    rule chord
      '[' space? primitive (space primitive)* space? ']' <ChordNode>
    end


    rule primitive
      interval / pitch / velocity / duration  / number / string / label / var / ruby / osc_address
    end


    rule pitch
      note_name:[A-Ga-g] ![A-Zac-z] accidentals:('#'/'b'/'+'/'_')* octave:(int)? <PitchNode>
      /
      ('pitch'/'pit'/'PIT') number:(number/ruby) <NumericPitchNode>
    end
    
    
    rule interval
      sign:[+-]? 
      quality:(
        'major' / 'maj' / 'minor' / 'min' / 'perfect' / 'per' / 'augmented' / 'aug' / 'diminished' / 'dim' /
        'MAJOR' / 'MAJ' / 'MINOR' / 'MIN' / 'PERFECT' / 'PER' / 'AUGMENTED' / 'AUG' / 'DIMINISHED' / 'DIM' /
        [MmpP] )
      degree:[0-9]+ <IntervalNode>
      /
      ('interval'/[Ii]) number:(number/ruby) <NumericIntervalNode>
    end


    rule velocity
      ( ('mezzo' '-'?)? ('piano'/'forte') / 'fortissimo' / 'pianissimo' /
      'mp' / 'ppp' / 'pp' / 'p' / 'mf' / 'fff' / 'ff' / 'fo' /
      'MP' / 'PPP' / 'PP' / 'P' / 'MF' / 'FFF' / 'FF' / 'FO'
      ) ![\w] <VelocityNode>
      /
      ('velocity'/'vel'/'VEL'/[Vv]) number:(number/ruby) <NumericVelocityNode>
    end


    rule duration
      multiplier:(number/'-')? metrical_duration:metrical_duration modifier:duration_modifier* <DurationNode>
      /
      ('duration'/'dur'/'DUR') number:(number/ruby) <NumericDurationNode>
    end


    rule metrical_duration
      'whole' / 'half' / 'quarter' / 'eighth' / 'ei' / 'EI' / 'sixteenth' /
      'thirty' '-'? 'second' / 'sixty' '-'? 'fourth' /
      [WwHhQqIiSsRrXx] 
    end


    rule duration_modifier
      't' / '.'
    end


    rule number
      ratio / float / int
    end


    rule ratio
      int '/' int <RatioNode>
    end


    rule float
      '-'? [0-9]+ '.' [0-9]+ <FloatNode>
    end


    rule int
      '-'? [0-9]+ <IntNode>
    end


    rule string
      "'" ("\\'" / !"'" .)* "'" <StringNode>
      /
      '"' ('\"' / !'"' .)* '"' <StringNode>
    end


    rule label
      '#' [\w-]+ <LabelNode>
    end


    rule var
      '$' [A-Za-z] [\w-]*  <VariableNode>
      / 
      '$'+ <VariableNode>
    end


    rule ruby
      '{' script:( string / !('}'/'"'/"'") . )* '}' <RubyNode>
    end


    rule command
      '{{' script:( string / !('}}'/'"'/"'") . )* '}}' <CommandNode>
    end
    
    
    rule osc_address
      '/' [A-Za-z0-9_/.]* <OscAddressNode>
    end


    rule space
      [\s]+
    end	

  end
  
end