repo.or.cz
/
lilypond.git
/
blob
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
log
|
graphiclog1
|
graphiclog2
|
commit
|
commitdiff
|
tree
|
refs
|
edit
|
fork
blame
|
history
|
raw
|
HEAD
lilypond-1.4.4
[lilypond.git]
/
bin
/
find-typenames.in
blob
890f9cabd060498408f9b93995d36af016b4918e
1
#!@PERL@
2
3
open GREP, "egrep -h '^struct|^class' *.hh *.cc|";
4
open OUT, "|sort | uniq";
5
while (<GREP>) {
6
7
s/^struct/class/;
8
if (! /; *$/) {
9
s/:[^{]+{.*$//;
10
s/ *{.*$/;/;
11
}
12
if (! /; *$/) {
13
chop;
14
$_ .= ";\n";
15
16
}
17
print OUT;
18
}
19
close OUT;
20
close GREP;