Skip to content
GitLab
Menu
Projects
Groups
Snippets
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in
Toggle navigation
Menu
Open sidebar
Kainhofer
pae2xml
Commits
2c6b9f1d
Commit
2c6b9f1d
authored
Jul 14, 2010
by
Reinhold Kainhofer
Browse files
Remove trailing whitespace
parent
c9bea654
Changes
1
Hide whitespace changes
Inline
Side-by-side
pae2xml.pl
View file @
2c6b9f1d
#!/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
>
...
...
Write
Preview
Markdown
is supported
0%
Try again
or
attach a new file
.
Attach a file
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment