Commit 2c6b9f1d authored by Reinhold Kainhofer's avatar Reinhold Kainhofer
Browse files

Remove trailing whitespace

parent c9bea654
#!/usr/bin/perl
#!/usr/bin/perl
# Copyright (C) 2003 Rainer Typke
#pae2xml is licensed under the terms of the GNU General Public License Version
#2 as published by the <a href="http://www.fsf.org/" target="_top">Free Software Foundation</a>.
#This gives you legal permission to copy, distribute and/or modify <em>pae2xml</em> under
#certain conditions. Read
#certain conditions. Read
#the <a href="http://www.gnu.org/copyleft/gpl.html" target="_top">online version of the license</a>
#for more details. pae2xml is provided AS IS with NO WARRANTY OF ANY KIND,
#INCLUDING THE WARRANTY OF DESIGN, MERCHANTABILITY, AND FITNESS FOR A PARTICULAR PURPOSE.
......@@ -51,6 +51,7 @@ RISM SIGN.: $rismsig\n\n";
}
sub parse_incipits {
my ($incipits, $comp, $title, $sonst, $libsig, $rismsig) = @_;
......@@ -91,9 +92,9 @@ sub parse_pe {
$keysig =~ s/(\s+)|&//gs; # it is unclear what the & means, so we'll ignore it for now.
$keysig =~ s/\[|\]//gs; # IGNORING brackets around a key sig.
$fifths = $fif{$keysig};
if ($fifths eq "") { $fifths = "0";
if ($fifths eq "") { $fifths = "0";
print_error("Strange key signature '$keysig'.\n");}
foreach $_ ($rismsig,$title,$inr,$instr,$comp,$encoding_date,$libsig,$sonst)
{
s/
......@@ -250,7 +251,7 @@ sub parse_notes {
($combdur, $note, $tuplet, $numval) = ($1,$2,$7,$8);
#print "i=$combdur, n=$numval; $note / $tuplet\n";
my $ind_dur = duration($combdur)/$numval;
# my $norm_notes =
# my $norm_notes =
my $act_notes = $numval;
parse_note($note, $keysig, '<tuplet type="start"/>', ' <time-modification>
<actual-notes>'.$act_notes.'</actual-notes>
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment