check-POTFILES.pl

   1 #!/usr/bin/perl -w
   2 # -*- Mode: perl; indent-tabs-mode: nil -*-
   3
   4 #
   5 #  Nautilus
   6 #
   7 #  Copyright (C) 2000 Eazel, Inc.
   8 #
   9 #  This library is free software; you can redistribute it and/or
  10 #  modify it under the terms of the GNU General Public License as
  11 #  published by the Free Software Foundation; either version 2 of the
  12 #  License, or (at your option) any later version.
  13 #
  14 #  This library is distributed in the hope that it will be useful,
  15 #  but WITHOUT ANY WARRANTY; without even the implied warranty of
  16 #  MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
  17 #  General Public License for more details.
  18 #
  19 #  You should have received a copy of the GNU General Public License
  20 #  along with this library; if not, write to the Free Software
  21 #  Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
  22 #
  23 #  Author: Darin Adler <darin@bentspoon.com>,
  24 #
  25
  26 # check-POTFILES.pl: Checks for files mentioned in POTFILES.in that
  27 # are not present in the Makefile.am files for those directories.
  28
  29 use diagnostics;
  30 use strict;
  31
  32 my @directories = (".");
  33
  34 my %exceptions =
  35   (
  36    '$(APPLETS_SUBDIRS)' => 'applets',
  37    '$(AUTHENTICATE_HELPER_SUBDIRS)' => 'authenticate',
  38    '$(INSTALL_SERVICE)' => 'install',
  39    '$(MOZILLA_COMPONENT_SUBDIRS)' => 'mozilla',
  40    '$(NULL)' => '',
  41    '$(RPMVIEW_COMPONENT_SUBDIRS)' => 'rpmview',
  42    '$(SERVICE_SUBDIRS)' => 'services',
  43    'intl' => '',
  44    'po' => '',
  45   );
  46
  47 my %files;
  48
  49 # collect all files mentioned in Makefile.am files
  50 while (@directories)
  51   {
  52     my $directory = pop @directories;
  53     my $prefix = "";
  54     $prefix = "$directory/" if $directory ne ".";
  55
  56     my $in_subdirs = 0;
  57
  58     my $file = $prefix . "Makefile.am";
  59     open FILE, $file or die "can't open $file\n";
  60     while (<FILE>)
  61       {
  62         if (s/^SUBDIRS\s*=//)
  63           {
  64             $in_subdirs = 1;
  65           }
  66         if ($in_subdirs)
  67           {
  68             while (s/^\s*([^\s\\]+)//)
  69               {
  70                 if (defined $exceptions{$1})
  71                   {
  72                     if ($exceptions{$1})
  73                       {
  74                         push @directories, $prefix . $exceptions{$1};
  75                       }
  76                   }
  77                 else
  78                   {
  79                     push @directories, $prefix . $1;
  80                   }
  81               }
  82             if (/^\s*$/)
  83               {
  84                 $in_subdirs = 0;
  85               }
  86             elsif (!/^\s*\\$/)
  87               {
  88                 die "can't parse SUBDIRS in $directory\n";
  89               }
  90           }
  91         while (s/([-_a-zA-Z0-9]+\.(c|h|xml|cpp|oaf\.in|desktop\.in))\W//)
  92           {
  93             $files{$prefix . $1} = $1;
  94           }
  95       }
  96     close FILE;
  97   }
  98
  99 open POTFILES, "po/POTFILES.in" or die "can't open POTFILES.in\n";
 100 while (<POTFILES>)
 101   {
 102     chomp;
 103     if (! defined $files{$_})
 104       {
 105         print "$_ is in POTFILES.in but not Makefile.am\n";
 106       }
 107   }
 108 close POTFILES;