From ea4f36e6bae9ac90becef8c631c770354a082a46 Mon Sep 17 00:00:00 2001
From: Reinhold Kainhofer <reinhold@kainhofer.com>
Date: Mon, 19 Jul 2010 14:28:47 +0200
Subject: [PATCH] TimeSig: Better warnings
---
pae2xml.pl | 5 ++---
1 file changed, 2 insertions(+), 3 deletions(-)
diff --git a/pae2xml.pl b/pae2xml.pl
index e38fe27..c99c0aa 100755
--- a/pae2xml.pl
+++ b/pae2xml.pl
@@ -795,10 +795,9 @@ sub timesignature {
print "Alternating time signature \"$timesig\" not supported by MusicXML, falling back to $1.\n";
$timesig = $1;
}
- # TODO:
if ($timesig =~ /^c((\d+)(\/(\d+))?)$/gs) {
print "Time signature \"$timesig\" not supported by MusicXML, falling back to $1.\n";
- $timesig = "$1"; # it would be better to show the "C". Example: 451.023.814
+ $timesig = "$1"; # TODO: it would be better to show the "C". Example: 451.023.814
}
# For missing timesignature, fall back to "c"
@@ -814,7 +813,7 @@ sub timesignature {
$symbol = "single-number";
($beats, $beattype) = ($1,2);
} else {
- print_error("Time signature '$timesig' looks strange.\n");
+ print_error("Time signature '$timesig' looks strange, falling back to 4/4.\n");
($beats, $beattype) = (4,4);
}
if ($symbol) {
--
GitLab