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 # Copyright (C) 2003 Rainer Typke
#pae2xml is licensed under the terms of the GNU General Public License Version #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>. #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 #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> #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, #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. #INCLUDING THE WARRANTY OF DESIGN, MERCHANTABILITY, AND FITNESS FOR A PARTICULAR PURPOSE.
...@@ -51,6 +51,7 @@ RISM SIGN.: $rismsig\n\n"; ...@@ -51,6 +51,7 @@ RISM SIGN.: $rismsig\n\n";
} }
sub parse_incipits { sub parse_incipits {
my ($incipits, $comp, $title, $sonst, $libsig, $rismsig) = @_; my ($incipits, $comp, $title, $sonst, $libsig, $rismsig) = @_;
...@@ -91,9 +92,9 @@ sub parse_pe { ...@@ -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/(\s+)|&//gs; # it is unclear what the & means, so we'll ignore it for now.
$keysig =~ s/\[|\]//gs; # IGNORING brackets around a key sig. $keysig =~ s/\[|\]//gs; # IGNORING brackets around a key sig.
$fifths = $fif{$keysig}; $fifths = $fif{$keysig};
if ($fifths eq "") { $fifths = "0"; if ($fifths eq "") { $fifths = "0";
print_error("Strange key signature '$keysig'.\n");} print_error("Strange key signature '$keysig'.\n");}
foreach $_ ($rismsig,$title,$inr,$instr,$comp,$encoding_date,$libsig,$sonst) foreach $_ ($rismsig,$title,$inr,$instr,$comp,$encoding_date,$libsig,$sonst)
{ {
s/ s/
...@@ -250,7 +251,7 @@ sub parse_notes { ...@@ -250,7 +251,7 @@ sub parse_notes {
($combdur, $note, $tuplet, $numval) = ($1,$2,$7,$8); ($combdur, $note, $tuplet, $numval) = ($1,$2,$7,$8);
#print "i=$combdur, n=$numval; $note / $tuplet\n"; #print "i=$combdur, n=$numval; $note / $tuplet\n";
my $ind_dur = duration($combdur)/$numval; my $ind_dur = duration($combdur)/$numval;
# my $norm_notes = # my $norm_notes =
my $act_notes = $numval; my $act_notes = $numval;
parse_note($note, $keysig, '<tuplet type="start"/>', ' <time-modification> parse_note($note, $keysig, '<tuplet type="start"/>', ' <time-modification>
<actual-notes>'.$act_notes.'</actual-notes> <actual-notes>'.$act_notes.'</actual-notes>
......
Supports Markdown
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