lilypond-1.0.1

diff --git a/buildscripts/find-typenames.pl b/buildscripts/find-typenames.pl
new file mode 100644 (file)
index 0000000..890f9ca
--- /dev/null
+++ b/buildscripts/find-typenames.pl
@@ -0,0 +1,20 @@
+#!@PERL@
+
+open GREP, "egrep -h '^struct|^class' *.hh *.cc|";
+open OUT, "|sort | uniq";
+while (<GREP>) {
+
+       s/^struct/class/;
+       if (! /; *$/) {
+               s/:[^{]+{.*$//;
+               s/ *{.*$/;/;
+       }
+       if (! /; *$/) {
+               chop;
+               $_ .= ";\n";
+               
+       }
+       print OUT;
+}
+close OUT;
+close GREP;