bin/find-typenames.pl

   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;