mirror of
https://github.com/Gnucash/gnucash.git
synced 2024-11-25 10:20:18 -06:00
036c77f923
files. git-svn-id: svn+ssh://svn.gnucash.org/repo/gnucash/trunk@11933 57a11ea4-9604-0410-9ed3-97b8803252fd
80 lines
2.0 KiB
Perl
80 lines
2.0 KiB
Perl
#!@-PERL-@ -w
|
|
# -*- perl -*-
|
|
#
|
|
# This perl script is used to make po/POTFILES.in, the list
|
|
# of C files to be searched for translatable strings.
|
|
#
|
|
# Author: Dave Peticolas <dave@krondo.com>
|
|
|
|
use strict;
|
|
|
|
use File::Basename;
|
|
|
|
my @possible_files = `find src -name '*.c' -o -name '*.glade' -o -name '*.desktop.in' -o -name '*.keys.in' |sort`;
|
|
## For perl files add the following:
|
|
# -o -name '*.pl'
|
|
|
|
chomp(my $cwd = `pwd`);
|
|
|
|
# Since we don't have any cvsignore files anymore, add patterns here
|
|
# that will emulate the old behaviour. Note: These are perl regexp
|
|
# patterns, *not* normal shell wildcards!
|
|
my @ignorepatterns = ('gw-', 'test', 'experimental');
|
|
|
|
my %ignores;
|
|
|
|
## Unfortunately this won't work anymore since we don't have .cvsignore
|
|
## files anymore.
|
|
# my @cvsignores = `find src -name '.cvsignore'`;
|
|
# foreach my $one_ignore (@cvsignores) {
|
|
# chomp($one_ignore);
|
|
# my ($name, $path) = fileparse($one_ignore);
|
|
# $path =~ s/^\.\///;
|
|
# open (IG, $one_ignore);
|
|
# chdir $path;
|
|
# foreach my $fl (<IG>) {
|
|
# chomp $fl;
|
|
# next unless $fl;
|
|
# my @matches = glob ($fl);
|
|
# foreach my $match (@matches) {
|
|
# chomp($match);
|
|
# next unless $match;
|
|
# $ignores{$path . $match} = 1;
|
|
# }
|
|
# }
|
|
# close (IG);
|
|
# chdir $cwd;
|
|
# }
|
|
|
|
print "# List of files which containing translatable strings.\n";
|
|
print "# This file was generated by ../make-gnucash-potfiles.in.\n";
|
|
print "\n";
|
|
|
|
foreach my $file (@possible_files) {
|
|
chomp($file);
|
|
my ($name, $path) = fileparse($file);
|
|
$path =~ s/^\.\///;
|
|
|
|
foreach my $one_ignore (@ignorepatterns) {
|
|
chomp($one_ignore);
|
|
next unless $one_ignore;
|
|
|
|
if ($name =~ m/$one_ignore/) {
|
|
$ignores{$path . $name} = 1;
|
|
#print "not $name\n";
|
|
}
|
|
if ($path =~ m/$one_ignore/) {
|
|
$ignores{$path . $name} = 1;
|
|
#print "not $name\n";
|
|
}
|
|
}
|
|
next if $ignores{$path . $name};
|
|
|
|
print $path . $name . "\n";
|
|
}
|
|
|
|
# These are additionally added in any case
|
|
print "lib/libqof/backend/file/qsf-backend.c\n";
|
|
print "intl-scm/guile-strings.c\n";
|
|
print "doc/tip_of_the_day.list.in\n"
|