Skip to content
Snippets Groups Projects
Commit bd068145 authored by Reinhold Kainhofer's avatar Reinhold Kainhofer
Browse files

Allow empty key signature

parent 45814baa
No related branches found
No related tags found
No related merge requests found
...@@ -161,7 +161,7 @@ sub parse_pe { ...@@ -161,7 +161,7 @@ sub parse_pe {
$pe =~ s/@/@0/gs; # make missing time signature explicit $pe =~ s/@/@0/gs; # make missing time signature explicit
while ($pe =~ s/([^\-])(\d+)(\'|\,)(A|B|C|D|E|F|G)/$1$3$2$4/gs) {}; # octave first, then duration. Truly global. while ($pe =~ s/([^\-])(\d+)(\'|\,)(A|B|C|D|E|F|G)/$1$3$2$4/gs) {}; # octave first, then duration. Truly global.
if ($pe =~ /\s*(%([\w\-\+\d]+))?(@([\d\w\/]+))?\s*&?\s*(\$([^]+))?(.*)$/gs) { if ($pe =~ /^\s*(%([\w\-\+\d]+))?(@([\d\w\/]+))?\s*&?\s*(\$([^]*))?(.*)$/gs) {
my ($clef, $timesig, $keysig, $rest) = ($2, $4, $6, $7); my ($clef, $timesig, $keysig, $rest) = ($2, $4, $6, $7);
print "Writing $filename...\n"; print "Writing $filename...\n";
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Please register or to comment