src/build/shared/make_workspace.pl

   1 #!/usr/bin/perl
   2
   3 use File::Find;
   4
   5 # Process command line arguments.
   6 while ($ARGV[0] =~ /^-/)
   7 {
   8         $_ = shift;
   9
  10         if ($_ eq "--debug")
  11         {
  12                 $debug = 1;
  13         }
  14         else
  15         {
  16                 die "unknown command line option";
  17         }
  18 }
  19
  20 # Determine directory to run this on.
  21 @findDirs = @ARGV ? @ARGV : ('.');
  22
  23 # Scan for appropriate files.
  24 find(\&FindHandler, @findDirs);
  25
  26 # Done.
  27 exit(0);
  28
  29 # ===================================================================
  30
  31 sub FindHandler
  32 {
  33         if (-d $_)
  34         {
  35                 # Examining a directory entry.
  36
  37                 # Prune the directory if it's one I want to ignore.  This
  38                 # stops the program from descending any further down this directory.
  39                 if (m/^(compile|external|Debug|Optimized|Production|Release)$/i)
  40                 {
  41                         # Prune it.
  42                         $File::Find::prune = 1;
  43                         print STDERR "[Pruned Directory Entry: $File::Find::name]\n" if ($debug);
  44                 }
  45         }
  46         elsif (-f $_)
  47         {
  48                 # Handle files that should go in the workspace file.
  49                 if (m/^.*(c|cpp|def|h|hpp|java|lnt|pl|pm|py|script(?:lib)?|sql|tab|txt)$/)
  50                 {
  51                         print "$_:$File::Find::dir/\n";
  52                 }
  53         }
  54 }
  55
  56 # ===================================================================