summaryrefslogtreecommitdiff
path: root/check-POTFILES.pl
blob: 5024e9330c3b54a2a45ab5c64b85008075dc87c8 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
#!/usr/bin/perl -w
# -*- Mode: perl; indent-tabs-mode: nil -*-

#
#  Nautilus
#
#  Copyright (C) 2000 Eazel, Inc.
#
#  This library is free software; you can redistribute it and/or
#  modify it under the terms of the GNU General Public License as
#  published by the Free Software Foundation; either version 2 of the
#  License, or (at your option) any later version.
#
#  This library is distributed in the hope that it will be useful,
#  but WITHOUT ANY WARRANTY; without even the implied warranty of
#  MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
#  General Public License for more details.
#
#  You should have received a copy of the GNU General Public License
#  along with this library; if not, write to the Free Software
#  Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
#
#  Author: Darin Adler <darin@eazel.com>,
#

# check-POTFILES.pl: Checks for files mentioned in POTFILES.in that
# are not present in the Makefile.am files for those directories.

use diagnostics;
use strict;

my @directories = (".");

my %exceptions =
  (
   '$(APPLETS_SUBDIRS)' => 'applets',
   '$(AUTHENTICATE_HELPER_SUBDIRS)' => 'authenticate',
   '$(INSTALL_SERVICE)' => 'install',
   '$(MOZILLA_COMPONENT_SUBDIRS)' => 'mozilla',
   '$(NULL)' => '',
   '$(RPMVIEW_COMPONENT_SUBDIRS)' => 'rpmview',
   '$(SERVICE_SUBDIRS)' => 'services',
   'intl' => '',
   'po' => '',
  );

my %files;

# collect all files mentioned in Makefile.am files
while (@directories)
  {
    my $directory = pop @directories;
    my $prefix = "";
    $prefix = "$directory/" if $directory ne ".";

    my $in_subdirs = 0;

    my $file = $prefix . "Makefile.am";
    open FILE, $file or die "can't open $file\n";
    while (<FILE>)
      {
        if (s/^SUBDIRS\s*=//)
          {
            $in_subdirs = 1;
          }
        if ($in_subdirs)
          {
            while (s/^\s*([^\s\\]+)//)
              {
                if (defined $exceptions{$1})
                  {
                    if ($exceptions{$1})
                      {
                        push @directories, $prefix . $exceptions{$1};
                      }
                  }
                else
                  {
                    push @directories, $prefix . $1;
                  }
              }
            if (/^\s*$/)
              {
                $in_subdirs = 0;
              }
            elsif (!/^\s*\\$/)
              {
                die "can't parse SUBDIRS in $directory\n";
              }
          }
	while (s/([-_a-zA-Z0-9]+\.(c|h|xml|cpp))\W//)
	  {
	    $files{$prefix . $1} = $1;
	  }
      }
    close FILE;
  }

open POTFILES, "po/POTFILES.in" or die "can't open POTFILES.in\n";
while (<POTFILES>)
  {
    chomp;
    if (! defined $files{$_})
      {
        print "$_ is in POTFILES.in but not Makefile.am\n";
      }
  }
close POTFILES;