Index: android_webview/tools/find_files.pl |
diff --git a/android_webview/tools/find_files.pl b/android_webview/tools/find_files.pl |
new file mode 100755 |
index 0000000000000000000000000000000000000000..5ad414a20a36224dd4b95bffef01a30b54415dbf |
--- /dev/null |
+++ b/android_webview/tools/find_files.pl |
@@ -0,0 +1,32 @@ |
+#!/usr/bin/perl -w |
+# 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
|
+# Use of this source code is governed by a BSD-style license that can be |
+# found in the LICENSE file. |
+ |
+# Use: find_files.pl <start-from> [exclude-dir ...] |
+ |
+use strict; |
+use warnings; |
+use File::Basename; |
+ |
+my $progname = basename($0); |
+ |
+my $root_dir = shift @ARGV; |
+my @find_args = (); |
+while (@ARGV) { |
+ my $path = shift @ARGV; |
+ push @find_args, qw'-not ( -path', "*/$path/*", qw'-prune )' |
+} |
+push @find_args, qw(-follow -type f -print); |
+ |
+open FIND, '-|', 'find', $root_dir, @find_args |
+ or die "$progname: Couldn't exec find: $!\n"; |
+my $check_regex = '\.(asm|c(c|pp|xx)?|h(h|pp|xx)?|p(l|m)|xs|sh|php|py(|x)' . |
+ '|rb|idl|java|el|sc(i|e)|cs|pas|inc|js|pac|html|dtd|xsl|mod|mm?' . |
+ '|tex|mli?)$'; |
+my @files = (); |
+while (<FIND>) { |
+ chomp; |
+ print "$_\n" unless (-z $_ || !m%$check_regex%); |
+} |
+close FIND; |