[gnumeric] Tools: more bitrot repair.

[Morten Welinder <mortenw src gnome org>]

commit b26781aa7f1409153c8d950ff607202d3bbd25fc
Author: Morten Welinder <terra gnome org>
Date:   Wed Sep 10 11:27:14 2014 -0400

    Tools: more bitrot repair.

 tools/check-glade-parsing |    4 +++-
 tools/check-glade-visible |    5 ++++-
 2 files changed, 7 insertions(+), 2 deletions(-)
---
diff --git a/tools/check-glade-parsing b/tools/check-glade-parsing
index ad419a3..4911e98 100755
--- a/tools/check-glade-parsing
+++ b/tools/check-glade-parsing
@@ -24,6 +24,7 @@ use strict;
 use XML::Parser;
 
 my $exitcode = 0;
+my $verbose = 0;
 
 die "$0: must be run from top-level directory.\n"
     unless -r "configure.ac" && -r 'ChangeLog';
@@ -33,7 +34,7 @@ my %exceptions = ();
 my @files;
 {
     local (*FIND);
-    open (*FIND, "find . '(' -name \*.glade -type f -print ')' -o '(' -type d '(' -name .git -o -name intl 
-o -name macros ')' -prune ')' |")
+    open (*FIND, "find . '(' -name \*.ui -type f -print ')' -o '(' -type d '(' -name .git -o -name win32 -o 
-name intl -o -name macros ')' -prune ')' |")
        or die "$0: cannot execute find: $!\n";
     foreach my $filename (<FIND>) {
        chomp $filename;
@@ -49,6 +50,7 @@ my @files;
     my $parser = new XML::Parser ('Style' => 'Tree');
   FILE:
     foreach my $filename (@files) {
+       print STDERR "Parsing $filename\n" if $verbose;
        eval {
            my $tree = $parser->parsefile ($filename);
        };
diff --git a/tools/check-glade-visible b/tools/check-glade-visible
index ed23427..54e66d1 100755
--- a/tools/check-glade-visible
+++ b/tools/check-glade-visible
@@ -23,6 +23,7 @@
 use strict;
 
 my $exitcode = 0;
+my $verbose = 0;
 
 die "$0: must be run from top-level directory.\n"
     unless -r "configure.ac" && -r 'ChangeLog';
@@ -35,7 +36,7 @@ my %exceptions =
 my @files;
 {
     local (*FIND);
-    open (*FIND, "find . '(' -name \*.glade -type f -print ')' -o '(' -type d '(' -name .git -o -name win32 
-o -name intl -o -name macros ')' -prune ')' |")
+    open (*FIND, "find . '(' -name \*.ui -type f -print ')' -o '(' -type d '(' -name .git -o -name win32 -o 
-name intl -o -name macros ')' -prune ')' |")
        or die "$0: cannot execute find: $!\n";
     foreach my $filename (<FIND>) {
        chomp $filename;
@@ -49,6 +50,8 @@ my @files;
 
 FILE:
     foreach my $filename (@files) {
+       print STDERR "Checking $filename\n" if $verbose;
+
        local (*GREP);
        open (*GREP, "grep -c '^  <property name=\"visible\">True</property>' '$filename' /dev/null 
2>/dev/null |")
            or die "$0: cannot execute grep: $!\n";