From 375fe35d011134332e5503644e9b4a65180afe8f Mon Sep 17 00:00:00 2001
From: fred <fred>
Date: Tue, 17 Mar 1998 00:16:30 +0000
Subject: [PATCH] lilypond-1.0.1

---
 buildscripts/find-typenames.pl | 20 ++++++++++++++++++++
 1 file changed, 20 insertions(+)
 create mode 100644 buildscripts/find-typenames.pl

diff --git a/buildscripts/find-typenames.pl b/buildscripts/find-typenames.pl
new file mode 100644
index 0000000000..890f9cabd0
--- /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;
-- 
2.39.5