mirror of
https://github.com/microtherion/VocalEasel.git
synced 2024-12-22 19:23:59 +00:00
Use stream parser, which is much faster
This commit is contained in:
Matthias Neeracher
parent
e1c8e71c86
commit
af0a03ab7d
|
|
@ -6,64 +6,9 @@
|
||||||
require File.dirname($0)+'/plistWriter'
|
require File.dirname($0)+'/plistWriter'
|
||||||
require File.dirname($0)+'/vl'
|
require File.dirname($0)+'/vl'
|
||||||
require 'rexml/document'
|
require 'rexml/document'
|
||||||
|
require 'rexml/streamlistener'
|
||||||
|
|
||||||
module REXML
|
OUTPUT = {'measures' => []}
|
||||||
class XPathParser
|
|
||||||
def get_namespace(node, prefix)
|
|
||||||
return ''
|
|
||||||
end
|
|
||||||
end
|
|
||||||
end
|
|
||||||
|
|
||||||
XML = REXML::Document.new $stdin
|
|
||||||
ROOT = XML.root
|
|
||||||
OUTPUT = {}
|
|
||||||
|
|
||||||
if ROOT.name == "score-timewise"
|
|
||||||
$stderr.puts "Can't read timewise MusicXML files yet"
|
|
||||||
exit 1
|
|
||||||
end
|
|
||||||
|
|
||||||
def textOrNot(elt)
|
|
||||||
return elt ? elt.text : ""
|
|
||||||
end
|
|
||||||
|
|
||||||
OUTPUT['title'] =
|
|
||||||
textOrNot ROOT.elements['./work/work-title']
|
|
||||||
OUTPUT['composer'] =
|
|
||||||
textOrNot ROOT.elements['./identification/creator[@type="composer"]']
|
|
||||||
OUTPUT['lyricist'] =
|
|
||||||
textOrNot ROOT.elements['./identification/creator[@type="poet"]']
|
|
||||||
OUTPUT['groove'] =
|
|
||||||
textOrNot ROOT.elements['./identification/miscellaneous-field[@name="VocalEasel-groove"]']
|
|
||||||
|
|
||||||
CHORDS = ROOT.elements['./part[@id="HARM"]']
|
|
||||||
MELODY = ROOT.elements['./part[@id="MELO"]']
|
|
||||||
PROP = {}
|
|
||||||
$LASTPROP = nil
|
|
||||||
|
|
||||||
OUTPUT['measures'] = []
|
|
||||||
OUTPUT['properties'] = []
|
|
||||||
|
|
||||||
def updateProp(meas)
|
|
||||||
if attr = meas.elements['./attributes']
|
|
||||||
if div = attr.elements['./divisions']
|
|
||||||
PROP['divisions'] = div.text.to_i
|
|
||||||
end
|
|
||||||
if key = attr.elements['./key/fifths']
|
|
||||||
PROP['key'] = key.text.to_i
|
|
||||||
end
|
|
||||||
if mode = attr.elements['./key/mode']
|
|
||||||
PROP['mode'] = mode.text == 'minor' ? -1 : 1
|
|
||||||
end
|
|
||||||
if timeNum = attr.elements['./time/beats']
|
|
||||||
PROP['timeNum'] = timeNum.text.to_i
|
|
||||||
end
|
|
||||||
if timeDenom = attr.elements['./time/beat-type']
|
|
||||||
PROP['timeDenom'] = timeDenom.text.to_i
|
|
||||||
end
|
|
||||||
end
|
|
||||||
end
|
|
||||||
|
|
||||||
PITCH = {
|
PITCH = {
|
||||||
'C' => 0,
|
'C' => 0,
|
||||||
|
|
@ -75,104 +20,234 @@ PITCH = {
|
||||||
'B' => 11
|
'B' => 11
|
||||||
}
|
}
|
||||||
|
|
||||||
def parseNote(note)
|
SYLL = {
|
||||||
n = {}
|
'single' => 0,
|
||||||
if note.elements['./rest']
|
'begin' => 1,
|
||||||
n['pitch'] = -128
|
'end' => 2,
|
||||||
else
|
'middle' => 3
|
||||||
step = note.elements['./pitch/step']
|
}
|
||||||
alter = note.elements['./pitch/alter']
|
|
||||||
octave = note.elements['./pitch/octave']
|
class MusicXMLListener
|
||||||
n['pitch'] = (step ? PITCH[step.text] : 0) +
|
include REXML::StreamListener
|
||||||
(alter ? alter.text.to_i : 0) +
|
|
||||||
(octave ? octave.text.to_i+1 : 0)*12
|
def initialize
|
||||||
|
@text = ""
|
||||||
end
|
end
|
||||||
if dur = note.elements['./duration']
|
|
||||||
n['durNum'] = dur.text.to_i
|
def tag_start(tag, attrs)
|
||||||
n['durDenom'] = PROP['divisions']*4
|
@kind = nil # Ignore all tags not recognized here
|
||||||
end
|
@text = ""
|
||||||
if note.elements['./tie']
|
case tag
|
||||||
n['tied'] = 0
|
when 'score-timewise' then
|
||||||
if note.elements['./tie[@type="start"]']
|
$stderr.puts "Can't read timewise MusicXML files yet"
|
||||||
n['tied'] |= VL::TiedWithNext
|
exit 1
|
||||||
end
|
when 'work-title' then
|
||||||
if note.elements['./tie[@type="stop"]']
|
@kind = 'textProp'
|
||||||
n['tied'] |= VL::TiedWithPrev
|
@key = 'title'
|
||||||
|
when 'creator' then
|
||||||
|
case attrs['type']
|
||||||
|
when 'composer' then
|
||||||
|
@kind = 'textProp'
|
||||||
|
@key = 'composer'
|
||||||
|
when 'poet' then
|
||||||
|
@kind = 'textProp'
|
||||||
|
@key = 'lyricist'
|
||||||
|
end
|
||||||
|
when 'miscellaneous-field' then
|
||||||
|
if attrs['name'] == 'VocalEasel-groove'
|
||||||
|
@kind = 'textProp'
|
||||||
|
@key = 'groove'
|
||||||
|
end
|
||||||
|
when 'part' then
|
||||||
|
@part = attrs['id'] || ""
|
||||||
|
@prop = {}
|
||||||
|
@props = []
|
||||||
|
@measNo = -1
|
||||||
|
when 'measure' then
|
||||||
|
@notes= []
|
||||||
|
@chord= false
|
||||||
|
if a = attrs['number']
|
||||||
|
@measNo = a.to_i-1
|
||||||
|
else
|
||||||
|
@measNo += 1
|
||||||
|
end
|
||||||
|
unless @meas = OUTPUT['measures'][@measNo]
|
||||||
|
@meas = OUTPUT['measures'][@measNo] = {
|
||||||
|
'measure' => @measNo,
|
||||||
|
'properties' => 0,
|
||||||
|
'chords' => [],
|
||||||
|
'melody' => []
|
||||||
|
}
|
||||||
|
end
|
||||||
|
when 'barline' then
|
||||||
|
@times = nil
|
||||||
|
@type = nil
|
||||||
|
@number = ""
|
||||||
|
when 'repeat' then
|
||||||
|
if attrs['direction'] == 'backward' && attrs['times']
|
||||||
|
@times = attrs['times'].to_i
|
||||||
|
elsif attrs['direction'] == 'forward'
|
||||||
|
@times = 0
|
||||||
|
end
|
||||||
|
when 'ending' then
|
||||||
|
@type = attrs['type']
|
||||||
|
@number = attrs['number']
|
||||||
|
when 'sound' then
|
||||||
|
if attrs['tocoda']
|
||||||
|
@meas['tocoda'] = true
|
||||||
|
elsif attrs['coda']
|
||||||
|
@meas['coda'] = true
|
||||||
|
end
|
||||||
|
when 'divisions' then
|
||||||
|
@kind = 'prop'
|
||||||
|
@key = 'divisions'
|
||||||
|
when 'fifths' then
|
||||||
|
@kind = 'prop'
|
||||||
|
@key = 'key'
|
||||||
|
when 'beats' then
|
||||||
|
@kind = 'prop'
|
||||||
|
@key = 'timeNum'
|
||||||
|
when 'beat-type' then
|
||||||
|
@kind = 'prop'
|
||||||
|
@key = 'timeDenom'
|
||||||
|
when 'note' then
|
||||||
|
@note = { 'pitch' => 0, 'durNum' => 0, 'durDenom' => 0 }
|
||||||
|
when 'rest' then
|
||||||
|
@note['pitch'] = -128
|
||||||
|
when 'mode', 'step', 'alter', 'octave', 'duration', 'syllabic', 'text' then
|
||||||
|
@kind = tag
|
||||||
|
when 'tie' then
|
||||||
|
@note['tied'] ||= 0
|
||||||
|
case attrs['type']
|
||||||
|
when 'start' then
|
||||||
|
@note['tied'] |= VL::TiedWithNext
|
||||||
|
when 'stop' then
|
||||||
|
@note['tied'] |= VL::TiedWithPrev
|
||||||
|
end
|
||||||
|
when 'lyric' then
|
||||||
|
num = (attrs['number'] || "1").to_i-1
|
||||||
|
@note['lyrics'] ||= []
|
||||||
|
@note['lyrics'][num] = @lyric = {}
|
||||||
|
when 'chord' then
|
||||||
|
@chord = true
|
||||||
end
|
end
|
||||||
end
|
end
|
||||||
return n
|
|
||||||
end
|
|
||||||
|
|
||||||
def makeChord(root, steps, num, denom)
|
def text(text)
|
||||||
chord = {}
|
@text += text
|
||||||
chord['root'] = root
|
|
||||||
chord['durNum'] = num
|
|
||||||
chord['durDenom'] = denom
|
|
||||||
st = steps.sort
|
|
||||||
pitch = st[0] || -128
|
|
||||||
steps = 0
|
|
||||||
st.each do |step|
|
|
||||||
steps |= 1<<(step-pitch)
|
|
||||||
end
|
end
|
||||||
chord['pitch'] = pitch
|
|
||||||
chord['steps'] = steps
|
|
||||||
|
|
||||||
return chord
|
def makeChords(chords)
|
||||||
end
|
chords.each do |chord|
|
||||||
|
chord['root'] = -128
|
||||||
CHORDS.elements.each('measure') do |meas|
|
st = [*chord['pitch']].sort
|
||||||
updateProp meas
|
pitch = st[0]
|
||||||
chords = []
|
if pitch > 0 && pitch < 60
|
||||||
root = -128
|
chord['root'] = st.shift
|
||||||
steps= []
|
pitch = st[0] || -128
|
||||||
num = nil
|
end
|
||||||
denom= nil
|
steps = 0
|
||||||
meas.elements.each('note') do |note|
|
if pitch > 0
|
||||||
if !note.elements['./chord'] && num
|
st.each do |step|
|
||||||
chords.push makeChord(root, steps, num, denom)
|
steps |= 1<<(step-pitch)
|
||||||
root = -128
|
end
|
||||||
steps= []
|
end
|
||||||
num = nil
|
chord['steps'] = steps
|
||||||
denom= nil
|
chord['pitch'] = pitch
|
||||||
end
|
end
|
||||||
note = parseNote(note)
|
|
||||||
num ||= note['durNum']
|
return chords
|
||||||
denom||= note['durDenom']
|
end
|
||||||
if note['pitch'] < 60
|
|
||||||
root = note['pitch']
|
def makeVolta(number)
|
||||||
|
volta = 0
|
||||||
|
number.split(/,\s*/).each do |v|
|
||||||
|
volta |= 1<<(v.to_i-1)
|
||||||
|
end
|
||||||
|
|
||||||
|
return volta
|
||||||
|
end
|
||||||
|
|
||||||
|
def tag_end(tag)
|
||||||
|
#
|
||||||
|
# Interesting text nodes have @kind set
|
||||||
|
#
|
||||||
|
if @kind
|
||||||
|
case @kind
|
||||||
|
when 'textProp' then
|
||||||
|
OUTPUT[@key] = @text
|
||||||
|
when 'prop' then
|
||||||
|
@prop[@key] = @text.to_i
|
||||||
|
when 'mode' then
|
||||||
|
@prop['mode'] = @text == 'minor' ? -1 : 1
|
||||||
|
when 'step' then
|
||||||
|
@note['pitch'] += PITCH[@text]
|
||||||
|
when 'alter' then
|
||||||
|
@note['pitch'] += @text.to_i
|
||||||
|
when 'octave' then
|
||||||
|
@note['pitch'] += (@text.to_i+1)*12
|
||||||
|
when 'duration' then
|
||||||
|
@note['durNum'] = @text.to_i
|
||||||
|
@note['durDenom'] = @prop['divisions']*4
|
||||||
|
when 'syllabic' then
|
||||||
|
@lyric['kind'] = SYLL[@text]
|
||||||
|
when 'text' then
|
||||||
|
@lyric['text'] = @text
|
||||||
|
end
|
||||||
|
@kind = nil
|
||||||
else
|
else
|
||||||
steps.push note['pitch']
|
#
|
||||||
|
# Structures are distinguished by tag
|
||||||
|
#
|
||||||
|
case tag
|
||||||
|
when 'attributes' then
|
||||||
|
if @prop != @props.last
|
||||||
|
@props.push(@prop)
|
||||||
|
end
|
||||||
|
when 'note' then
|
||||||
|
if @chord
|
||||||
|
note = @notes.last
|
||||||
|
note['pitch'] = [*note['pitch']] << @note['pitch']
|
||||||
|
@chord = false
|
||||||
|
else
|
||||||
|
@notes.push(@note)
|
||||||
|
end
|
||||||
|
when 'barline' then
|
||||||
|
case @type
|
||||||
|
when 'start' then
|
||||||
|
@meas['begin-ending'] = {
|
||||||
|
'volta' => makeVolta(@number)
|
||||||
|
}
|
||||||
|
when 'stop', 'discontinue' then
|
||||||
|
@meas['end-ending'] = {
|
||||||
|
'volta' => makeVolta(@number),
|
||||||
|
'last' => @type == 'discontinue'
|
||||||
|
}
|
||||||
|
else
|
||||||
|
if @times > 0
|
||||||
|
@meas['end-repeat'] = {
|
||||||
|
'times' => @times
|
||||||
|
}
|
||||||
|
elsif @times == 0
|
||||||
|
@meas['begin-repeat'] = {}
|
||||||
|
end
|
||||||
|
end
|
||||||
|
when 'measure' then
|
||||||
|
@meas['properties'] = @props.length-1 unless @props.empty?
|
||||||
|
if @part == 'HARM'
|
||||||
|
@meas['chords'] = makeChords(@notes)
|
||||||
|
else
|
||||||
|
@meas['melody'] = @notes
|
||||||
|
end
|
||||||
|
when 'part' then
|
||||||
|
OUTPUT['properties'] = @props unless @part == 'HARM'
|
||||||
|
end
|
||||||
end
|
end
|
||||||
end
|
end
|
||||||
chords.push makeChord(root, steps, num, denom) if num
|
|
||||||
measNo = meas.attributes['number'].to_i-1
|
|
||||||
OUTPUT['measures'][measNo] = {
|
|
||||||
'measure' => measNo,
|
|
||||||
'properties' => 0,
|
|
||||||
'chords' => chords,
|
|
||||||
'melody' => []
|
|
||||||
}
|
|
||||||
end
|
|
||||||
|
|
||||||
MELODY.elements.each('measure') do |meas|
|
|
||||||
updateProp meas
|
|
||||||
if PROP != $LASTPROP
|
|
||||||
OUTPUT['properties'].push PROP
|
|
||||||
$LASTPROP = PROP
|
|
||||||
end
|
|
||||||
melody = []
|
|
||||||
meas.elements.each('note') do |note|
|
|
||||||
melody.push parseNote(note)
|
|
||||||
end
|
|
||||||
measNo = meas.attributes['number'].to_i-1
|
|
||||||
OUTPUT['measures'][measNo] ||= {
|
|
||||||
'measure'=> measNo,
|
|
||||||
'chords' => []
|
|
||||||
}
|
|
||||||
OUTPUT['measures'][measNo]['properties'] = OUTPUT['properties'].length-1
|
|
||||||
OUTPUT['measures'][measNo]['melody'] = melody
|
|
||||||
end
|
end
|
||||||
|
|
||||||
|
listener = MusicXMLListener.new
|
||||||
|
REXML::Document.parse_stream($stdin, listener)
|
||||||
writePlist($stdout, OUTPUT)
|
writePlist($stdout, OUTPUT)
|
||||||
|
|
||||||
# Local Variables:
|
# Local Variables:
|
||||||
|
|
|
||||||
Loading…
Reference in New Issue
Block a user