Chromium Code Reviews| OLD | NEW |
|---|---|
| (Empty) | |
| 1 #!/usr/bin/perl -w | |
| 2 # Copyright 2013 The Chromium Authors. All rights reserved. | |
|
mkosiba (inactive)
2014/09/23 15:53:52
2014?
mnaganov (inactive)
2014/09/23 16:13:03
I will be removing both of the files soon (definit
| |
| 3 # Use of this source code is governed by a BSD-style license that can be | |
| 4 # found in the LICENSE file. | |
| 5 | |
| 6 # Use: find_files.pl <start-from> [exclude-dir ...] | |
| 7 | |
| 8 use strict; | |
| 9 use warnings; | |
| 10 use File::Basename; | |
| 11 | |
| 12 my $progname = basename($0); | |
| 13 | |
| 14 my $root_dir = shift @ARGV; | |
| 15 my @find_args = (); | |
| 16 while (@ARGV) { | |
| 17 my $path = shift @ARGV; | |
| 18 push @find_args, qw'-not ( -path', "*/$path/*", qw'-prune )' | |
| 19 } | |
| 20 push @find_args, qw(-follow -type f -print); | |
| 21 | |
| 22 open FIND, '-|', 'find', $root_dir, @find_args | |
| 23 or die "$progname: Couldn't exec find: $!\n"; | |
| 24 my $check_regex = '\.(asm|c(c|pp|xx)?|h(h|pp|xx)?|p(l|m)|xs|sh|php|py(|x)' . | |
| 25 '|rb|idl|java|el|sc(i|e)|cs|pas|inc|js|pac|html|dtd|xsl|mod|mm?' . | |
| 26 '|tex|mli?)$'; | |
| 27 my @files = (); | |
| 28 while (<FIND>) { | |
| 29 chomp; | |
| 30 print "$_\n" unless (-z $_ || !m%$check_regex%); | |
| 31 } | |
| 32 close FIND; | |
| OLD | NEW |