Repetitions: Use correct repeat count indicated by f+ after the !

pae2xml.pl

@@ -154,6 +154,16 @@ REST:         $rest\n";
   close OUT;
 }
 
+# Repeat $1 by a count of $2
+sub repeat {
+  (my $e, my $count) = @_;
+  my $res = "";
+  for (my $i=1; $i <= $count; ++$i)
+  {
+    $res .= $e;
+  }
+  return $res;
+}
 
 sub parse_notes {
   my ($notes, $keysig) = @_;
@@ -166,7 +176,7 @@ sub parse_notes {
     $notes = $1;
   }
 
-  $notes =~ s/!([^!]*)!/$1$1/gs;  # write out repetitions
+  $notes =~ s/!([^!]*)!(f*)/repeat($1, length($2)+1)/gse;  # write out repetitions
   $notes =~ s/\{([^\}]*)\}/$1/gs; # ignore beamings
   while ( $notes =~ s/(:?\/+:?|^)([^\/:]*)(:?\/+:?)i(:?\/+:?)/$1$2$3$2$4/gs) {}; # replace whole-measure repeats (i notation)
 

sample_files/Shortcuts-repetition.pae

+Test Composer
+Test case for repetitions
+1.1.1: S repetitions
+plain&easy: %C-1@c$bBü '4A!'6BG!fff4A/
+
+Test Library
+00000000
\ No newline at end of file