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-0.1.15
[lilypond.git]
/
bin
/
find-typenames.pl
blob
e08fd00800578e33c56353b9e507196a196c95f5
1
#!/usr/bin/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
;