doc/tools/find-retagged

   1 #!/usr/bin/perl -w
   2 use strict;
   3 use File::Find ();
   4
   5 # -----------------------------------------------------------------------------
   6 #
   7 # Script
   8 #     find-retagged
   9 #
  10 # Description
  11 #     Search for *.[H] files with 'InClass', 'InNamespace' or 'Type'
  12 #     starting in the first column.
  13 #     In some places these could removed. In other places they should be
  14 #     replaced with a 'Typedef'
  15 #     - print filename and the tag (InClass|InNamespace|Type)
  16 #
  17 # -----------------------------------------------------------------------------
  18
  19 my $re_filespec = qr{^.+\.[H]$};
  20
  21 # for the convenience of &wanted calls, including -eval statements:
  22 ## use vars qw( *name *dir *prune );
  23 ## *name   = *File::Find::name;
  24 ## *dir    = *File::Find::dir;
  25 ## *prune  = *File::Find::prune;
  26
  27 sub wanted {
  28     unless ( lstat($_) and -f _ and -r _ and not -l _ and /$re_filespec/ ) {
  29         return;
  30     }
  31
  32     local @ARGV = $_;
  33     while (<>) {
  34         if (/^(InClass|InNamespace|Type)\s*$/) {
  35             print "$File::Find::name  $1  line=$.\n";
  36         }
  37     }
  38
  39     close ARGV;
  40 }
  41
  42 ## Traverse desired filesystems
  43 for my $dir (@ARGV) {
  44     no warnings 'File::Find';
  45     warn "(**) checking '$dir' ...\n";
  46     File::Find::find( { wanted => \&wanted }, $dir );
  47 }
  48