Diff of /trunk/rosegarden/scripts/preset-xmlify [r7438] .. [r7439] Maximize Restore

  Switch to side-by-side view

--- a/trunk/rosegarden/scripts/preset-xmlify
+++ b/trunk/rosegarden/scripts/preset-xmlify
@@ -1,5 +1,6 @@
 #!/usr/bin/perl -w
 use strict;
+my $total = 0;
 my $category = '';
 my $ininstrument = 0;
 my $incategory = 0;
@@ -21,6 +22,7 @@
     $value =~ s/^"(.*)"\s*$/$1/;
     $ininstrument = 1;
     print "    <instrument name=\"$value\">\n";
+    $total++;
   } elsif ($key eq 'clef') {
     print "      <clef type=\"$value\" />\n";
   } elsif ($key eq 'transposition') {
@@ -38,4 +40,5 @@
 $ininstrument and print "    </instrument>\n";
 $incategory and print "  </category>\n";
 print "</presets>\n";
+print "<!-- IMPORTED $total INSTRUMENTS -->\n";