From: fred <fred>
Date: Fri, 23 May 1997 09:43:04 +0000 (+0000)
Subject: lilypond-0.1.22
X-Git-Tag: release/1.5.59~6133
X-Git-Url: https://git.donarmstrong.com/?a=commitdiff_plain;h=f3b15cd53e1ab22fa7d988e92fd5797094d2310e;p=lilypond.git

lilypond-0.1.22
---

diff --git a/bin/find-typenames.pl b/bin/find-typenames.pl
new file mode 100644
index 0000000000..e08fd00800
--- /dev/null
+++ b/bin/find-typenames.pl
@@ -0,0 +1,20 @@
+#!/usr/bin/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;